The directory does not exist что это значит?


я понимаю что нет а что нет, эхис, это эскиз? и что там с директорией или ...

Модераторы: Ириния, Альтэра, Модераторы
Хоссэ писал(а):Теперь можно Незнайку удостоить почётного звания fractal artist!
{ ===================================== }
{ "Mandala 8 symmetry" }
{ Scripted By Hosse7 }
{ http://Hosse7.deviantart.com/ }
{ ===================================== }
Clear
AddTransform
With Transform do
Begin
neg := -1^(trunc(random*10))
If neg < 0.5 then
Begin
transform.a := -transform.a
end
linear :=0
bipolar := 1.5+random
sc := random;
//set the number of spokes for the pinwheel
bounce := 0;
while bounce = 0 do
begin
bounce := trunc(random*3)-1;
end;
spokes := ((random*3)+2)*bounce;
//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;
{END code snippet from ETomchek}
//Create a blank flame with 8 transforms:
clear;
addTransform;
addTransform;
addTransform;
addTransform;
addTransform;
addTransform;
addTransform;
addTransform;
//"Shape" transform 2:
SetActiveTransform(transforms-8);
Translate(random,random);
Scale(0.1)
Transform.Variation[0] := 0.1;
Transform.Variation[ random * NVARS-1 ] := 0.5;
Transform.Variation[ random * NVARS-1 ] := 0.1;
transform.symmetry:= -1;
Transform.Color := random * 1.0;
Transform.Weight := 0.1;
//"Shape" transform 1:
SetActiveTransform(transforms-7);
Translate(random,random);
Scale(0.1)
Transform.Variation[0] := 0.1;
Transform.Variation[ random * NVARS-1 ] := 0.5;
Transform.Variation[ random * NVARS-1 ] := 0.1;
transform.symmetry:= -1;
Transform.Color := random * 1.0;
Transform.Weight := 0.1;
//"Shape" transform 1:
SetActiveTransform(transforms-6);
Translate(random,random);
Scale(0.1)
Transform.Variation[0] := 0.1;
Transform.Variation[ random * NVARS-1 ] := 0.5;
Transform.Variation[ random * NVARS-1 ] := 0.1;
transform.symmetry:= -1;
Transform.Color := random * 1.0;
Transform.Weight := 0.1;
//"Shape" transform 2
SetActiveTransform(transforms-5);
Translate(random,random);
Scale(0.1)
Transform.Variation[0] := 0.1;
Transform.Variation[ random * NVARS-1 ] := 0.5;
Transform.Variation[ random * NVARS-1 ] := 0.1;
transform.symmetry:= -1;
Transform.Color := random * 1.0;
Transform.Weight := 0.1;
//Tile transforms:
SetActiveTransform(transforms-4);
Translate(1,0)
Rotate(0)
Transform.Symmetry:= 1;
SetActiveTransform(transforms-3);
Translate(0,-1)
Rotate(90)
Transform.Symmetry:= 1;
SetActiveTransform(transforms-2);
Translate(-1,0)
Rotate(90)
Transform.Symmetry:= 1;
SetActiveTransform(transforms-1);
Translate(-1,0)
Rotate(180)
Transform.Symmetry:= 1;
{Code added by ETomchek for final transform}
// 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.Variation[V_JULIAN] := 1;
Transform.julian_power := spokes;
Transform.julian_dist := Ptype;
Transform.Symmetry := 0;
Flame.FinalXformEnabled := true;
{END code snippet added by ETomchek}
pow := -1^(trunc(random*10))
sd := 0
While sd < 0.35 do
Begin
sd := random
End
sj := 0
While sj < 0.25 do
Begin
sj := random
End
jp := 0
While jp < 20 do
Begin
jp := random * 300
End
jd := -1000000
While jd < (-jp*0.5) do
Begin
jd := -(random*175)
End
d := 0
While (d < 0.5) do
Begin
d := random * 2
While d > 1.25 do
Begin
d := random * 2
End
End
wd := 0
While wd < 1 do
Begin
wd := random * 5
End
wd := 0
While wd < 1 do
Begin
wd := random * 5
End
wj := 0
While wj < 0.1 do
Begin
wj := random * 2
End
AddTransform
With Transform do
Begin
linear := 0
linear := 0
cylinder := 0.852
scale(sd)
rotate(360 * random)
weight := wd
color := random
End
AddTransform
With Transform do
Begin
linear := 0
juliascope := 3.296
juliascope_power := 41
juliascope_dist := -8.17714
scale(sj)
rotate(360*random)
weight := wj
color := random
End
// 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.Variation[V_JULIAN] := 1.266;
julian_power := 4;
Transform.Variation[V_LINEAR] := 0;
Transform.Symmetry := 1;
Flame.FinalXformEnabled := true;
Flame.scale := 15;
Flame.Brightness := 10;
Flame.X := 0;
Flame.Y := 0;
CalculateColors;
//ResetLocation := True;
UpdateFlame := True;
color := random
symmetry := 1
weight := 1
scale(random*3 + random)
rotate(45* trunc(random*9))
End
AddTransform
With Transform do
Begin
x:= random*10
If x < 5 then
Begin
m := random
End
Else
Begin
m := 2 + random
End
neg := -1^(trunc(random*10))
If neg < 0 then
Begin
transform.a := -transform.a
end
linear :=0
wedge_julia := 2+random
wedge_julia_angle := 1.5
wedge_julia_count := 1.5
wedge_julia_power := trunc(random*175)
wedge_julia_dist := -1
scale(m)
rotate(random*360)
color := random
symmetry := -1
weight := random
End
Flame.gamma := 3
Flame.y := 0
Flame.x := 0
Хоссэ писал(а):Нет с треугольниками я мало работаю, больше с цифрами и формулами и сочетаниями формул разных скриптов.
Калагия писал(а):в последнем у тебя тоже ошибка по калькулейт колорс
Хоссэ писал(а):Ошибки быть не должно у меня идёт калкулэйт колорс без палочек, с палочками не то.
Хоссэ писал(а):Градиенты сохраняются открыв окошко градиенты и нажав крайнюю правую кнопочку Smooth Pallete - Находишь любой рисунок jpg и сохраняешь его как градиент присвоив имя.
Вернуться в ТВОРЧЕСТВО, ИСКУССТВО, КРАСОТА
Сейчас этот форум просматривают: Claude [Bot] и гости: 0