[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 shnee flake version                ³
       ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

    {    This program modify snee flake (rekpic01.pas). Draw  it in higher
      inside level then 3. (draw too for 1,2) Principe is Inside_level mal
      do cyklus and rotate turtle (when finish part 1) 360/inside_level
      degrees right. This program draw /\ it outside.
    }

    uses oKor,crt;
    Const inside_level=4;

    type MyKor=Object(Kor)
               Procedure Flake(n:integer; s:real);
               Procedure Flake_pom(n:integer; s:real);
               End;

    Procedure MyKor.Flake(n:integer; s:real);
    var i:integer;
    begin
      for i:=1 to inside_level do
                             Begin
                             ZmenFP(i);   {If you don't wand colors Clr this line}
                             Flake_pom(n,s);
                             Vpravo(360/inside_level);
                             End;
    end;

    Procedure MyKor.Flake_pom(n:integer; s:real);
    begin
      if n=1 then Dopredu(s)
      else
        begin
          Flake_pom(n-1,s/3);
          Vlavo(60);
          Flake_pom(n-1,s/3);
          Vpravo(120);
          Flake_pom(n-1,s/3);
          Vlavo(60);
          Flake_pom(n-1,s/3);
        end
    end;

    var k:MyKor;
        i:integer;

    begin
      with k do Begin
        for i:=1 to 9 do
          begin
            Init(-50,-50,0);
            If ukazana=true then write(#7);
            Flake(i,720/inside_level);
            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]