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

xform writes it self to xml

Browse Source
This commit is contained in:
ronaldhordijk 2005-10-23 07:40:53 +00:00
parent 51f9740917
commit 9b54d64531
1 changed files with 2 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
2.10/ScreenSaver/FlameIO.pas
View File

@ -107,27 +107,8 @@ begin
format('vibrancy="%g" ', [cp1.vibrancy]) + hue + url + nick + '>'); format('vibrancy="%g" ', [cp1.vibrancy]) + hue + url + nick + '>');
{ Write transform parameters } { Write transform parameters }
t := NumXForms(cp1); t := NumXForms(cp1);
for i := 0 to t - 1 do for i := 0 to t - 1 do begin
begin FileList.Add(cp1.xform[i].ToXMLString);
with cp1.xform[i] do
begin
a := c[0][0];
b := c[1][0];
cc := c[0][1];
d := c[1][1];
e := c[2][0];
f := c[2][1];
varlist := '';
for j := 0 to NRVAR - 1 do
begin
if vars[j] <> 0 then
begin
varlist := varlist + varnames(j) + format('="%f" ', [vars[j]]);
end;
end;
FileList.Add(Format(' <xform weight="%g" color="%g" symmetry="%g" ', [density, color, symmetry]) +
varlist + Format('coefs="%g %g %g %g %g %g"/>', [a, cc, b, d, e, f]));
end;
end; end;
{ Write palette data } { Write palette data }
if not sheep then begin if not sheep then begin