[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 : Regular n-angle                            ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{ This program just draw Regular n-angle. For example n=3 it is
  triangle. For n=4 it is squard. This program draw regular n-angle
  3 to 10. This program is general and know draw for all corekt n.
}

Uses Okor;

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

Procedure MyKor.Nangle(n:integer;s:real);
Var pom:real;
Begin
Pom:=360/n;
While n>0 do Begin
             dopredu(s);
             vlavo(pom);
             dec(n);
             End;
end;

Var m:MyKor;
    i:integer;

Begin

With m do Begin
 For i:=3 to 10 do Begin
                   init(0,0,0);
                   Nangle(i,800/i);
                   CakajKlaves;
                   Zmaz1;
                   End;
          Koniec;
          End;

End.

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