请选择 进入手机版 | 继续访问电脑版
 找回密码
 一起学习分形艺术吧!

QQ登录

只需一步,快速开始

查看: 192|回复: 0
[复制链接]
幽蓝小宇宙
1# 紫外星人 发表于 2019-12-13 23:23:48
分享到:
9;.jpg ,以下是它的脚本{ Flame }Clear;
if (pos('7x', LowerCase(ProgramVersionString)) >= 0) then
  AngleTransform := 180 / PI else AngleTransform := 1;
with Flame do begin
  Width := 808;
  Height := 539;
  Brightness := 15.8695652173913;
  Gamma := 1;
  Scale := 11.912262966185;
  Yaw := -0.719948316447661 * AngleTransform;
  X := -0.614001521742252;
  Y := -0.426764825347809;
  Background[0] := 0;
  Background[1] := 0;
  Background[2] := 0;
end;

{ Transform 1 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.2;
  a := 0.787703;
  b := -0.339031;
  c := 0.339031;
  d := 0.787703;
  e := 0;
  f := 0;
  Opacity := 0
  linear := 1
end;

{ Transform 2 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.42;
  Symmetry := 1;
  a := 0.605067;
  b := -0.414144;
  c := 0.414144;
  d := 0.605067;
  e := 4.698887;
  f := 0.288518;
  Opacity := 0
  tan := 1
end;

{ Transform 3 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.92;
  a := 0.565851;
  b := 0.644384;
  c := -0.644384;
  d := 0.565851;
  e := 0;
  f := 0;
  Opacity := 0
  linear := 1
end;

{ Transform 4 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.81;
  a := -0.437988;
  b := 0.737282;
  c := -0.737282;
  d := -0.437988;
  e := 0;
  f := 0;
  Opacity := 0
  linear := 1
end;

{ Transform 5 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.67;
  a := -0.836542;
  b := -0.188719;
  c := 0.188719;
  d := -0.836542;
  e := 0;
  f := 0;
  Opacity := 0
  linear := 1
end;

{ Transform 6 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.43;
  a := -0.079024;
  b := -0.853916;
  c := 0.853916;
  d := -0.079024;
  e := 0;
  f := 0;
  Opacity := 0
  linear := 1
end;

{ Transform 7 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0;
  Symmetry := 1;
  a := -0.022589;
  b := -0.084283;
  c := 0.084283;
  d := -0.022589;
  e := 0;
  f := 0;
  Opacity := 1
  linear := 1
end;

{ Transform 8 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.5;
  Color := 0.74;
  Symmetry := 1;
  a := 0.203662;
  b := -0.824007;
  c := 0.824007;
  d := 0.203662;
  e := 4.698887;
  f := 0.288518;
  Opacity := 0
  tan := 1
end;

{ Transform 9 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.026;
  Color := 0;
  a := 0.690831;
  b := 0;
  c := 0;
  d := 0.690831;
  e := -0.681206;
  f := -0.205;
  Opacity := 1
  linear := 1
end;

{ Transform 10 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.059;
  Color := 0.77;
  Symmetry := 1;
  a := -0.43985;
  b := 0.166305;
  c := -0.166305;
  d := -0.43985;
  e := 4.698887;
  f := 0.363204;
  Opacity := 0
  tan := 1
end;

{ Transform 11 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.051;
  Color := 0;
  Symmetry := 1;
  a := -0.009994;
  b := -0.090268;
  c := 0.090268;
  d := -0.009994;
  e := 0;
  f := 0;
  Opacity := 1
  linear := 1
end;

{ Transform 12 }
AddTransform;
with Transform do begin
  for i := 0 to NVARS do Variation := 0;
  Weight := 0.051;
  Color := 0;
  Symmetry := 1;
  a := -0.045414;
  b := -0.07865;
  c := 0.07865;
  d := -0.045414;
  e := 0;
  f := 0;
  Opacity := 1
  linear := 1
end;

{ Weight modifiers for transform 1 }
SetActiveTransform(0);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 1
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 0
  chaos[7] := 1
  chaos[8] := 1
  chaos[9] := 1
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 2 }
SetActiveTransform(1);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 0
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 1
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
end;

{ Weight modifiers for transform 3 }
SetActiveTransform(2);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 1
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 0
  chaos[7] := 1
  chaos[8] := 1
  chaos[9] := 1
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 4 }
SetActiveTransform(3);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 1
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 0
  chaos[7] := 1
  chaos[8] := 1
  chaos[9] := 1
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 5 }
SetActiveTransform(4);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 1
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 0
  chaos[7] := 1
  chaos[8] := 1
  chaos[9] := 1
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 6 }
SetActiveTransform(5);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 1
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 0
  chaos[7] := 1
  chaos[8] := 1
  chaos[9] := 1
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 7 }
SetActiveTransform(6);
with Transform do begin
  chaos[0] := 1
  chaos[1] := 0
  chaos[2] := 1
  chaos[3] := 1
  chaos[4] := 1
  chaos[5] := 1
  chaos[6] := 0
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 8 }
SetActiveTransform(7);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 0
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 1
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
end;

{ Weight modifiers for transform 10 }
SetActiveTransform(9);
with Transform do begin
  chaos[0] := 0
  chaos[1] := 0
  chaos[2] := 0
  chaos[3] := 0
  chaos[4] := 0
  chaos[5] := 0
  chaos[6] := 1
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
end;

{ Weight modifiers for transform 11 }
SetActiveTransform(10);
with Transform do begin
  chaos[0] := 1
  chaos[1] := 0
  chaos[2] := 1
  chaos[3] := 1
  chaos[4] := 1
  chaos[5] := 1
  chaos[6] := 0
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
  chaos[10] := 0
  chaos[11] := 0
end;

{ Weight modifiers for transform 12 }
SetActiveTransform(11);
with Transform do begin
  chaos[0] := 1
  chaos[1] := 0
  chaos[2] := 1
  chaos[3] := 1
  chaos[4] := 1
  chaos[5] := 1
  chaos[6] := 0
  chaos[7] := 0
  chaos[8] := 1
  chaos[9] := 0
  chaos[10] := 0
  chaos[11] := 0
end;


本版积分规则

快速回复 返回顶部 返回列表