[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 : Flower sign 1                              ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {
          This program draw interesting sign with anomals. The cycle j draw the
       steps of picture. The 4500 is a good parameter - have nice picture. In
       cycle i we draw "tiangles" and then we rotate turtle. This is very
       difficult to undestand. It draw it and we have this sign. For very small
       j it is just point, but for larger it is just this picture. If you
       want good ducumentaion then you muth know the functions with two
       variables. (mathematical functions) If in poly we delete *i then the
       picture draw periodicly how in korpic03.pas.
    }

    uses okor,crt;
    type MyTur = object(kor)
         procedure poly(n:integer;s,u:real);
         end;

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

    var k:MyTur;
        i,j,o:integer;

    begin

      k.init(0,0,0);
      o:=0;

      For j:=1 to 4500 do Begin
                          inc(o);
        for i:=1 to 3 do begin
                         k.poly(3,0.0003*o*i,i);
                         k.vpravo(o);
                         End;
                          End;

      CakajKlaves;
      K.koniec;

    end.

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