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

{    This program modify snee flake (rekpic02.pas). Draw /\ it in
   inside version. This program just modify vravo to vlava in cycle
   MyKor.flake. It is nice picture, but very easy to undestand.
}

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);
                           Vlavo(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]