diff --git a/2.10/Source/Editor.pas b/2.10/Source/Editor.pas
index 6aeaddd..2c19cd7 100644
--- a/2.10/Source/Editor.pas
+++ b/2.10/Source/Editor.pas
@@ -2567,7 +2567,7 @@ begin
     vleVariables.Values[vleVariables.Keys[varDragIndex+1]] := '0';
   end;
 
-  UpdateFlameX;
+  UpdateFlame(true);
 end;
 
 { **************************************************************************** }
diff --git a/2.10/Source/XForm.pas b/2.10/Source/XForm.pas
index 7381fda..cfb8e62 100644
--- a/2.10/Source/XForm.pas
+++ b/2.10/Source/XForm.pas
@@ -213,26 +213,26 @@ begin
                     (vars[12] <> 0.0) or (vars[13] <> 0.0) or (vars[21] <> 0.0) or (vars[22] <> 0.0);
 //  CalculateLength := False;
   CalculateSinCos := (vars[4] <> 0.0) or (vars[9] <> 0.0) or {z! (vars[10] <> 0.0) or}
-                     (vars[11] <> 0.0) or {z! (vars[16] <> 0.0)} or (vars[19] <> 0.0) or
+                     (vars[11] <> 0.0) or {z! (vars[16] <> 0.0) or} (vars[19] <> 0.0) or
                      (vars[21] <> 0.0);
 
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--0--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Linear;
 begin
   FPx := FPx + vars[0] * FTx;
   FPy := FPy + vars[0] * FTy;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--1--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Sinusoidal;
 begin
   FPx := FPx + vars[1] * sin(FTx);
   FPy := FPy + vars[1] * sin(FTy);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--2--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Spherical;
 var
   r2, rr2: double;
@@ -243,7 +243,7 @@ begin
   FPy := FPy + vars[2] * (FTy * rr2);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--3--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Swirl;
 var
   c1, c2, r2: double;
@@ -255,7 +255,7 @@ begin
   FPy := FPy + vars[3] * (c2 * FTx + c1 * FTy);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--4--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Horseshoe;
 //var
 //  a, c1, c2: double;
@@ -270,7 +270,7 @@ begin
   FPy := FPy + vars[4] * (FCosA* FTx + FSinA * FTy);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--5--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Polar;
 {var
   ny: double;
@@ -286,7 +286,7 @@ begin
   FPy := FPy + vars[5] * (sqrt(FTx * FTx + FTy * FTy) - 1.0);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--6--////////////////////////////////////////////////////////////////////////
 procedure TXForm.FoldedHandkerchief;
 var
   r: double;
@@ -296,7 +296,7 @@ begin
   FPy := FPy + vars[6] * cos(FAngle - r) * r;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--7--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Heart;
 var
   r: double;
@@ -307,7 +307,7 @@ begin
   FPy := FPy + vars[7] * cos(FAngle * r) * -r;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--8--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Disc;
 const
   rPI: double = 0.31830989;
@@ -324,7 +324,7 @@ begin
   FPy := FPy + vars[8] * cosr * FAngle * rPI;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--9--////////////////////////////////////////////////////////////////////////
 procedure TXForm.Spiral;
 var
   r, rr: double;
@@ -338,7 +338,7 @@ begin
   FPy := FPy + vars[9] * (FsinA - cosr) * rr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--10--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Hyperbolic;
 {
 var
@@ -360,7 +360,7 @@ begin
   FPy := FPy + vars[10] * FTy;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--11--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Square;
 var
 //  r: double;
@@ -372,7 +372,7 @@ begin
   FPy := FPy + vars[11] * FCosA * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--12--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Ex;
 var
   r: double;
@@ -387,7 +387,7 @@ begin
   FPy := FPy + vars[12] * (m0 - m1);
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--13--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Julia;
 var
   a,r: double;
@@ -400,7 +400,7 @@ begin
   FPy := FPy + vars[13] * r * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--14--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Bent;
 var
   nx, ny: double;
@@ -415,7 +415,7 @@ begin
   FPy := FPy + vars[14] * ny;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--15--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Waves;
 var
   dx,dy,nx,ny: double;
@@ -428,7 +428,7 @@ begin
   FPy := FPy + vars[15] * ny;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--16--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Fisheye;
 var
  { a,} r: double;
@@ -448,7 +448,7 @@ begin
 
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--17--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Popcorn;
 var
   dx, dy: double;
@@ -466,7 +466,7 @@ begin
   FPy := FPy + vars[17] * ny;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--18--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Exponential;
 var
   dx, dy: double;
@@ -480,7 +480,7 @@ begin
   FPy := FPy + vars[18] * sinr * dx;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--19--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Power;
 var
   r: double;
@@ -495,7 +495,7 @@ begin
   FPy := FPy + vars[19] * r * FSinA;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--20--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Cosine;
 var
   nx, ny: double;
@@ -508,7 +508,7 @@ begin
   FPy := FPy + vars[20] * ny;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--21--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Rings;
 var
   r: double;
@@ -519,12 +519,11 @@ begin
   r := FLength;
   r := r + dx - System.Int((r + dx)/(2 * dx)) * 2 * dx - dx + r * (1-dx);
   SinCos(FAngle, sinr, cosr);
-
   FPx := FPx + vars[21] * r * cosr;
   FPy := FPy + vars[21] * r * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--22--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Fan;
 var
   r,t,a : double;
@@ -549,7 +548,7 @@ begin
 end;
 
 
-///////////////////////////////////////////////////////////////////////////////
+//--23--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Triblob;
 var
   r : double;
@@ -569,7 +568,7 @@ begin
   FPy := FPy + vars[23] * r * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--24--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Daisy;
 var
   r : double;
@@ -590,7 +589,7 @@ begin
   FPy := FPy + vars[24] * r * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--25--///////////////////////////////////////////////////////////////////////
 procedure TXForm.Checkers;
 var
   dx: double;
@@ -604,7 +603,7 @@ begin
   FPy := FPy + vars[25] * FTy;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//--26--///////////////////////////////////////////////////////////////////////
 procedure TXForm.CRot;
 var
   r : double;
@@ -627,7 +626,8 @@ begin
   FPy := FPy + vars[26] * r * sinr;
 end;
 
-///////////////////////////////////////////////////////////////////////////////
+//***************************************************************************//
+
 procedure TXForm.NextPoint(var px,py,pc: double);
 var
   i: Integer;