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

Updated screensaver sources to newest XForm manager.

Browse Source
This commit is contained in:
utak3r 2005-10-09 18:19:56 +00:00
parent 58d19f5af1
commit fe0968ef8c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
2.10/ScreenSaver/FlameIO.pas
View File

@ -10,7 +10,7 @@ function FlameToXML(const cp1: TControlPoint; sheep: boolean; compact: boolean =
implementation implementation
uses uses
Classes, SysUtils, xForm; Classes, SysUtils, xForm, xFormMan;
function NumXForms(const cp: TControlPoint): integer; function NumXForms(const cp: TControlPoint): integer;
var var
@ -122,7 +122,7 @@ begin
begin begin
if vars[j] <> 0 then if vars[j] <> 0 then
begin begin
varlist := varlist + varnames[j] + format('="%f" ', [vars[j]]); varlist := varlist + varnames(j) + format('="%f" ', [vars[j]]);
end; end;
end; end;
FileList.Add(Format(' <xform weight="%g" color="%g" symmetry="%g" ', [density, color, symmetry]) + FileList.Add(Format(' <xform weight="%g" color="%g" symmetry="%g" ', [density, color, symmetry]) +