Don_Ten opened this issue on May 09, 2005 ยท 5 posts
Don_Ten posted Mon, 09 May 2005 at 3:40 PM
Would anybody be able to point me to a script for Apophysis that combines the default animation with a gradient step animation? I've tried combining the default animation script with a gradient animating script I have, but the end result is allways a runtime error :( Many thanks in advance, Don
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;
Don_Ten posted Tue, 10 May 2005 at 5:32 PM
Thank you. Unfortunately I didnt supply enough detail with my request. What I'm actually looking for/trying to do is animate the flame while rotating the gradient and exporting each flame as a seperate bmp. I have a script that does the animating and rendering but cant get a gradient rotation to run alongside it. Apologies for the confusion. Don
ulliroyal posted Wed, 11 May 2005 at 3:50 AM
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;
Don_Ten posted Wed, 11 May 2005 at 6:37 AM
Absolutely perfect. Thank you very much :)