ShopDreamUp AI ArtDreamUp
Deviation Actions
Suggested Deviants
Suggested Collections
You Might Like…
Description
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;
________________________________________ ______
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;
________________________________________ ______
Image size
1050x700px 196.26 KB
© 2007 - 2024 artissima
Comments4
Join the community to add your comment. Already a deviant? Log In
Thank you for the script. I had fun playing with it