Moved the making of random flames to a seperate unit

Number of variant dependant code change so all changes can be done only in xform
Test mode for new variant added

2.10/Source/Global.pas

@@ -129,9 +129,9 @@ var
   DefaultPalette: TColorMap;
 
 
-implementation
+function Round6(x: double): double;
 
-uses dialogs, Main;
+implementation
 
 { IFS }
 
@@ -140,6 +140,13 @@ begin
   Result := (a * d - b * c);
 end;
 
+
+function Round6(x: double): double;
+// Really ugly, but it works
+begin
+  Result := StrToFloat(Format('%.6f', [x]));
+end;
+
 function solve3(x1, x2, x1h, y1, y2, y1h, z1, z2, z1h: double;
   var a, b, e: double): double;
 var