[Back to TURTLE SWAG index]  [Back to Main SWAG index]  [Original]

(* ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
   ³ Programated by Vladimir Zahoransky                        ³
   ³                Vladko software                            ³
   ³ Contact      : zahoran@cezap.ii.fmph.uniba.sk             ³
   ³ Program tema : General n-angles version rekusion          ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
   Well, if you will study rekpic20.pas and rekpic22.pas then is easy to
  make it general.
  The angle is 360/Level
  Parametre in cycle : 1 to Level
  And angle for rotation is : 90-360/Level
  (Angle is : 90 - angle of angle in peak of n-angle)

}

Uses Okor;

Const Level=5;

Type Mykor=Object(kor)
             Procedure N_angle(n:integer;s:real);
             End;

  procedure Mykor.N_angle(n:integer;s:real);
  var
    i:integer;
  begin
    if n=0 then
    else for i:=1 to Level do
    begin
      Zmenfp(i);
      dopredu(s);
      vlavo(360/Level);
      N_angle(n-1,s/3);
    end;
  end;

  Var k:Mykor;
  Begin

  With k do Begin
            Init(200,-240,90-360/Level);
            N_angle(6,300);
            CakajKlaves;
            Koniec;
            End;

  End.

[Back to TURTLE SWAG index]  [Back to Main SWAG index]  [Original]