[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 : Squard effekt with rekusion inside         ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    { This program draw squard effekt how rekpic04.pas, but this program
      draw squards inside. This program just modify vlavo(90) in
      MyKor.Squard , but the symetry is how in rekcip04.pas. This program
      have symetry of diagonals. This make other easy to undestand, but
      nice effekt.
    }

    uses oKor,crt;

    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 4 do Begin
                     ZmenFP(i);   {If you don't wand colors Clr this line}
                     Squard1(n,s);
                     Vlavo(90);
                     End;
    End;

    Procedure MyKor.Squard1(n:integer; s:real);
    Begin
      if n=1 then Dopredu(s)
      Else
        Begin
          Squard1(n-1,s/3);
          Vlavo(90);
          Squard1(n-1,s/3);
          Vpravo(90);
          Squard1(n-1,s/3);
          Vpravo(90);
          Squard1(n-1,s/3);
          Vlavo(90);
          Squard1(n-1,s/3);
        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,150);
            PresunXY(-300,230); Pis('Squard effekt inside level '+chr(i+48));
            CakajKlaves;
            Zmaz1;
          End;
                Koniec;
                End;
    End.

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