[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 : Circle anomals                             ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    { This program just draw circle anomals. It is nice effekt. This
      effekt medal Circle anomals.
    }

    Uses Okor;

    Type Mykor=Object(kor)
                     Procedure Circle(r:real);
                     End;

    Procedure Mykor.Circle(r:real);
    Var i:integer;
    Begin
    For i:=1 to 360 do Begin
                       Vpravo(i);
                       PH;
                       Dopredu(r-1);
                       PD;
                       Dopredu(r);
                       Domov;
                       End;
    end;

    Var m:MyKor;
        i:integer;

    Begin

    With m do begin
                   init(0,0,0);
                   Circle(40);
                   CakajKlaves;
                   Koniec;
                   End;

    End.

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