[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]