Renderer.Width := 320; Renderer.Height := 240; SetRenderBounds; Flame.SampleDensity := 10; for j := 0 to 99 do // 100 frames, begin 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; for i := 0 to Transforms - 1 do begin SetActiveTransform(i); Rotate(3.6); end; Renderer.Filename := 'c:rendersBMPANI' + Format('%.2d', [j]) + '.bmp'; Render; end; UpdateFlame := False;