Moved the creation of random flames from mainform and into a seperate unit

This commit is contained in:
ronaldhordijk
2005-03-27 13:28:52 +00:00
parent 73b68d554e
commit 7984e9851a
8 changed files with 282 additions and 234 deletions

View File

@ -988,7 +988,7 @@ begin
if ((maxx - minx) > 1000) or
((maxy - miny) > 1000) then
raise Exception.Create('Flame area to large');
raise EMathError.Create('Flame area to large');
center[0] := (minx + maxx) / 2;
center[1] := (miny + maxy) / 2;
@ -1084,7 +1084,7 @@ begin
if ((maxx - minx) > 1000) or
((maxy - miny) > 1000) then
raise Exception.Create('Flame area to large');
raise EMathError.Create('Flame area to large');
cp.center[0] := (minx + maxx) / 2;
cp.center[1] := (miny + maxy) / 2;
@ -1536,6 +1536,7 @@ begin
end;
end;
///////////////////////////////////////////////////////////////////////////////
function TControlPoint.HasNewVariants: boolean;
var
i: integer;