mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

increased variation value precision

Browse Source
This commit is contained in:
zueuk 2005-09-11 11:36:05 +00:00
parent 5b6645bca1
commit e6b4fb16d9
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
2.10/Source/ControlPoint.pas
View File

@ -32,6 +32,10 @@ const
BRIGHT_ADJUST = 2.3; BRIGHT_ADJUST = 2.3;
FUSE = 15; FUSE = 15;
type //?
PLongintArray = ^TLongintArray;
TLongintArray = array[0..8192] of Longint;
type type
TVariation = (vLinear, vSinusoidal, vSpherical, vSwirl, vHorseshoe, vPolar, TVariation = (vLinear, vSinusoidal, vSpherical, vSwirl, vHorseshoe, vPolar,
vHandkerchief, vHeart, vDisc, vSpiral, vHyperbolic, vSquare, vEx, vJulia, vHandkerchief, vHeart, vDisc, vSpiral, vHyperbolic, vSquare, vEx, vJulia,
@ -1456,7 +1460,7 @@ begin
sl.add(format('xform %d density %.3f color %f symmetry %f', [i, xform[i].density, xform[i].color, xform[i].symmetry])); sl.add(format('xform %d density %.3f color %f symmetry %f', [i, xform[i].density, xform[i].color, xform[i].symmetry]));
s := 'var'; s := 'var';
for j := 0 to NRVAR - 1 do begin for j := 0 to NRVAR - 1 do begin
s := format('%s %f', [s, xform[i].vars[j]]); s := format('%s %.3f', [s, xform[i].vars[j]]);
end; end;
sl.add(s); sl.add(s);
// sl.Add(format('coefs %f %f %f %f %f %f', // sl.Add(format('coefs %f %f %f %f %f %f',
@ -1498,8 +1502,11 @@ var
begin begin
Clear; Clear;
sl := TStringList.Create; sl := TStringList.Create;
// --Z-- this is quite a weird and unoptimal way to copy things:
cp1.SaveToStringlist(sl); cp1.SaveToStringlist(sl);
ParseStringlist(sl); ParseStringlist(sl);
Fangle := cp1.FAngle; Fangle := cp1.FAngle;
cmap := cp1.cmap; cmap := cp1.cmap;
name := cp1.name; name := cp1.name;