Fix: incorrect symbols; Report update;

This commit is contained in:
KoroLion 2020-06-18 17:35:30 +03:00
parent 01d6d7a5dd
commit 565cfaa226
3 changed files with 9 additions and 4 deletions

View File

@ -19,7 +19,7 @@ begin
with args do begin
width := 512;
height := 512;
f := 'sin(x) - y';
f := 'y = sin(x)';
zoom := 10;
centerX := 0;
centerY := 0;
@ -54,9 +54,14 @@ var
begin
fname := '{f}_(z={z},cx={cx},cy={cy},WxH={w}x{h}).bmp';
// replacing illegal characters for the filename
fn := stringReplace(args.f, ' ', '', [rfReplaceAll]);
fn := stringReplace(fn, '*', '', [rfReplaceAll]);
fn := stringReplace(fn, '/', ' div ', [rfReplaceAll]);
fn := stringReplace(fn, '<', ' lt ', [rfReplaceAll]);
fn := stringReplace(fn, '<=', ' le ', [rfReplaceAll]);
fn := stringReplace(fn, '>', ' gt ', [rfReplaceAll]);
fn := stringReplace(fn, '>=', ' ge ', [rfReplaceAll]);
fname := StringReplace(fname, '{f}', fn, []);
fname := StringReplace(fname, '{z}', floatToStr(args.zoom), []);

View File

@ -6,9 +6,9 @@ uses sysutils, BMPImage, ucomplex, utils;
type
TArgs = record
power: longint;
width: longint; // TryStrToInt wants longint
height: longint;
power: longint;
zoom: extended;
center_x: extended;
center_y: extended;
@ -68,13 +68,13 @@ end;
procedure setDefaultArgs(var args: TArgs);
begin
with args do begin
power := 2;
width := 512;
height := 512;
power := 2;
zoom := 1;
center_x := 0;
center_y := 0;
out_path := './images';
out_path := './multibrot_images';
end;
end;

Binary file not shown.