[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 : general version of squard effect outside   ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    { This program is general version of recpic05.pas. This program just
      modify Vlavo(360/l) In Mykor.squard.
    }

    uses oKor,crt;

    Const l=7;

    type MyKor=object(Kor)
                   Procedure Squard (n:integer; s:real);
                   Procedure Squard1(n:integer; s:real);
                 end;

    procedure MyKor.Squard(n:integer; s:real);
    var i:integer;
    begin
    For i:=1 to l do Begin
                     ZmenFP(i);   {If you don't wand colors Clr this line}
                     Squard1(n,s);
                     Vlavo(360/l);
                     End;
    end;

    procedure MyKor.Squard1(n:integer; s:real);
    begin
      if n=1 then Dopredu(s)
      else
        begin
          Squard1(n-1,s/(6*(l-2)/l));
          Vlavo(360/l);
          Squard1(n-1,s/(6*(l-2)/l));
          Vpravo(360/l);
          Squard1(n-1,s/(6*(l-2)/l));
          Vpravo(360/l);
          Squard1(n-1,s/(6*(l-2)/l));
          Vlavo(360/l);
          Squard1(n-1,s/(6*(l-2)/l));
        end
    end;

    var k:MyKor;
        i:integer;

    begin
      with k do Begin
        For i:=1 to 9 do
          Begin
            Init(0,0,0);
            Squard(i,750/l);
            PresunXY(-300,230); Pis('Snee flake of level '+chr(i+48));
            CakajKlaves;
            Zmaz1;
          End;
                Koniec;
                End;
    End.

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