Página 1 de 1
Toxic
Página 1 de 1
Otras respuestas a este tema
#2
Escrito 18 julio 2007 - 12:13
Pero que bueno este!!! Me gustó!!
El arte es el mediador de lo inexpresable. - Goethe - | www.adrianapaulino.com
Reglas del Foro | Cómo subir imágenes al foro
Reglas del Foro | Cómo subir imágenes al foro
#8
Escrito 18 julio 2007 - 03:06
Si es un script, ahi te lo pasteo:
{Simple Disc Script -pinwheel
by Elizabeth Tomchek
Released 3-5-07
Based on an idea by Inge (Toxic Girlfriend)
Her work and tutorial can be found here:
http://toxicgirlfriend.deviantart.com/
Thanks sooo much Inge!!}
sc := random*0.5;
//set the number of spokes for the pinwheel
spokes := (random*3)+2;
//set the power of the juliaN variation (make sure its not 0)
Ptype := 0;
while Ptype = 0 do
begin
Ptype := trunc(random*6)-3;
end;
clear;
pivot.mode := 1;
addtransform;
addtransform;
setactivetransform(1);
with transform do
begin
transform.variation[0] := 0;
transform.disc := 1
rotate(random*360);
translate(((random*0.05)-0.025),((random*0.05)-0.025))
end;
setactivetransform(0);
transform.symmetry := 1;
resetlocation := true;
calculatecolors;
// To set the final transform:
SetActiveTransform(transforms);
with Transform do
begin
for i := 0 to NVARS - 1 do
begin
Variation[i] := 0;
end;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
end;
Transform.julian := 1;
Transform.julian_power := spokes;
Transform.julian_dist := Ptype;
Flame.FinalXformEnabled := true;
UpdateFlame := True;
calculatecolors;
Flame.x := 0;
Flame.y := 0;
flame.scale := 35;
//end code
{Simple Disc Script -pinwheel
by Elizabeth Tomchek
Released 3-5-07
Based on an idea by Inge (Toxic Girlfriend)
Her work and tutorial can be found here:
http://toxicgirlfriend.deviantart.com/
Thanks sooo much Inge!!}
sc := random*0.5;
//set the number of spokes for the pinwheel
spokes := (random*3)+2;
//set the power of the juliaN variation (make sure its not 0)
Ptype := 0;
while Ptype = 0 do
begin
Ptype := trunc(random*6)-3;
end;
clear;
pivot.mode := 1;
addtransform;
addtransform;
setactivetransform(1);
with transform do
begin
transform.variation[0] := 0;
transform.disc := 1
rotate(random*360);
translate(((random*0.05)-0.025),((random*0.05)-0.025))
end;
setactivetransform(0);
transform.symmetry := 1;
resetlocation := true;
calculatecolors;
// To set the final transform:
SetActiveTransform(transforms);
with Transform do
begin
for i := 0 to NVARS - 1 do
begin
Variation[i] := 0;
end;
a := 1;
b := 0;
c := 0;
d := 1;
e := 0;
f := 0;
end;
Transform.julian := 1;
Transform.julian_power := spokes;
Transform.julian_dist := Ptype;
Flame.FinalXformEnabled := true;
UpdateFlame := True;
calculatecolors;
Flame.x := 0;
Flame.y := 0;
flame.scale := 35;
//end code
Página 1 de 1

Conectar
Registrar
Ayuda


MultiCitas




