Фрактал. Pascal.

[stas45rus]

Помогите пжл. изменить программу, чтобы получился фрактал показанный на изображении.

PROGRAM Zadanie_7b;
Uses Crt,Graph;
CONST
  it=1280;
  r=0.35;
  l=300;
  da=pi/6;
  v=4;
VAR
  gd,gm:Integer;
  a:Real;
  x,y:Real;
  xn,yn:Real;
  i:Integer;
 
Function Mn(nn:Integer):Real;
Begin
  If nn mod(v*v*v*v)=0 Then Mn:=1
   Else
    If nn mod(v*v*v)=0 Then Mn:=r
     Else
      If nn mod(v*v)=0 Then Mn:=r*r
       Else
        If nn mod v=0 Then Mn:=r*r*r
         Else Mn:=r*r*r*r;
End;
 
BEGIN
 ClrScr;
 gd:=Detect;
 InitGraph(gd,gm,'');
 a:=0;
 x:=200; y:=320;
 For i:=0 To it Do
  begin
    xn:=x+sin(a)*l*Mn(i);
    yn:=y-cos(a)*l*Mn(i);
    Line(Round(x),Round(y),Round(xn),Round(yn));
    x:=xn;
    y:=yn;
    a:=a+da;
  end;
 ReadKey;
 CloseGraph;
END.

[stas45rus]

помогите кто-нибудь

[denisbrain]

Сообщение от stas45rus

помогите кто-нибудь

поиграй с параметрами
cONST
it=200;
r=0.35;
l=350;
da=(360/5)*pi/180;
v=6;

[Serge_Bliznykov]

угу. согласен с denisbrain

вот так, например, попробуйте:

CONST
  it=1280;
  r=0.25;
  l=150;
  da=pi/10;
  v=4;