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

    {
       This program present the anomals with treepetal. If you know
     assembler (int 10 ... ), please work with palette (256 colors).
     Here can be very nice effekts. This (assembler) version will be
     in swag in other update. Here is just this version. (with unit
     graph) It is not so fantastic and fast graphic, but demostrate
     this problem. Use Ograph.pas. (It is in swag may 1997) In first
     section isn't.  Then update all turtle units with this unit.
     (ograph.pas)  This effekt made the anomals with real variables.
    }

    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:=3;

    With k do Begin
      init(-150,0,30);
      ZmenFP(color);
      For j:=1 to 120 do Begin
      vlavo(1);
      For i:=1 to 3 do Begin
                       Poly(60,2,1);
                       Vpravo(120);
                       Poly(60,2,1);
                       Cakaj(5);
                       End;
                       End;

              Cakajklaves;
              Koniec;
              End;

    End.

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