pentagrimm + script

minor tweak of CabinTom's technica script [link]

my little tweak is nowhere near to exciting, it produces only
the same pentagramm over and over again - and oddly
enough doesn't seem to run with the official Apo-version.
(only under ApoZ+ /C+ versions it seems *shrug* )
maybe someone can repair this (?)

anyway, thanks for looking at 'my Flag'

copy between lines and paste into Apo-script-editor

***
edit: addition! LadyLyonesse pointed out something useful - that you 'remove the Clear command and run it on top of other previously generated flames'...
***
________________________________________ ______

Clear;

AddTransform;
AddTransform;

SetActiveTransform(transforms);
with Transform do
begin
linear := 0;
ngon := 1;
ngon_sides := 5;
ngon_power := 1.8;
ngon_circle := 1.8;
ngon_corners := 11;
end;

SetActiveTransform(0);
with Transform do
begin
linear := 0;
julian := 1;
julian_power := 4;
julian_dist := -1;
Transform.Color := 0;
Weight := 3;
Symmetry := 0;
a := 0.15;
b := 0;
c := 0;
d := 0.15;
e := 0;
f := 0;
end;

SetActiveTransform(1);
with Transform do
begin
linear := 0;
disc := 1;
Transform.Color := 1;
Weight := 3.5;
Symmetry := 0;
a := 0.5;
b := 0;
c := 0;
d := 0.5;
e := 0;
f := 0;
end;

Flame.FinalXformEnabled := true;
ResetLocation := true;

________________________________________ ______