From: Ronald H. <ron...@us...> - 2005-10-23 07:41:01
|
Update of /cvsroot/apophysis/2.10/ScreenSaver In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28338/ScreenSaver Modified Files: FlameIO.pas Log Message: xform writes it self to xml Index: FlameIO.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/ScreenSaver/FlameIO.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** FlameIO.pas 9 Oct 2005 18:19:56 -0000 1.2 --- FlameIO.pas 23 Oct 2005 07:40:53 -0000 1.3 *************** *** 108,132 **** { Write transform parameters } t := NumXForms(cp1); ! for i := 0 to t - 1 do ! begin ! 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; { Write palette data } --- 108,113 ---- { Write transform parameters } t := NumXForms(cp1); ! for i := 0 to t - 1 do begin ! FileList.Add(cp1.xform[i].ToXMLString); end; { Write palette data } |