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