[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 : Turtle rotations with objects              ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{
    This program is very easy to undestand. Just rotate trivial
  object in input angle. This program is reaction for usualy
  mistakes. The rotation angle muth not be in cycle !
  Correkt version is if you in program don't have (* *), but
  it is not sympatic and useful. (Usualy the programers make
  there mistakes) If you want the rotation, please define the
  angle in init or use ABSOLUTE angle!
}

uses okor;

type
  mkor=object(kor)
    Procedure poly(n:integer;s,u:real);
  end;

var
  k:mkor;
  Color,i,j:integer;

  procedure mkor.poly(n:integer;s,u:real);
  begin
    while n>0 do
    begin
      dopredu(s);
      vpravo(u);
      dec(n);
    end;
  end;

begin
  Color:=1;

With k do Begin
  init(-150,0,0);

  For i:=1 to 3 do Begin     (*
                   Vpravo(90); *)
                   ZmenFp(Color);
                   Poly(60,2,1);
                   Vpravo(120);
                   Poly(60,2,1);  (*
                   Vlavo(90);      *)
                   End;

          Cakajklaves;
          Koniec;
          End;

end.

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