Don_Ten opened this issue on May 09, 2005 ยท 5 posts
ulliroyal posted Tue, 10 May 2005 at 11:43 AM
{ Rotates the gradient } { Rotates the reference Triangle } { Hit any key to stop } Flame.SampleDensity := 1; while not Stopped do begin RotateReference(3.6); for i := 0 to 255 do begin Flame.Gradient[i][0] := Flame.Gradient[(i + 1) mod 256][0]; Flame.Gradient[i][1] := Flame.Gradient[(i + 1) mod 256][1]; Flame.Gradient[i][2] := Flame.Gradient[(i + 1) mod 256][2]; end; Preview; end;