[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 with anomals                        ³
   ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)

{    This program is very easy to undestand if you know korpic09.pas.
  This program draw flower. It is just anomals. It is so nice (in 16
  colors) and it is how the petals have textures. No. It is so
  modifycation of korpic09.pas. There is only one cykle which draw
  all flowers in correkt size. It is easy for programing but very
  nice. If you know assembler (int 10) update it. You will have
  perfekt effekt. (and fast) It is presentation for fractals and
  use turtle graphic. (If you have ograph then this effekt is
  fast)
}

uses  okor;

type
  Mykor=object(kor)
    procedure poly(n:integer;s,u:real);
    procedure stvrtkruh(n:integer;s:real);
    procedure petal(n:integer;s:real);
    procedure flower(n:integer;s,u:real;p:integer);
  end;

var     k:Mykor;
    color:byte;

  Procedure Mykor.poly(n:integer;s,u:real);
  Begin
    While n>0 do
    Begin
      dopredu(s);
      vpravo(u);
      dec(n);
    End;
  End;

  Procedure Mykor.stvrtkruh(n:integer;s:real);
  Begin
    poly(n,s,90/n);
  End;

  Procedure Mykor.petal(n:integer;s:real);
  Begin
    stvrtkruh(n,s);
    vpravo(90);
    stvrtkruh(n,s);
    vpravo(90);
  End;

  Procedure Mykor.flower(n:integer;s,u:real;p:integer);
  Begin
    While p>0 do Begin
                 Inc(color);
                 ZmenFp(color);
                 petal(n,s);
                 Vpravo(u);
      dec(p);
    End;
  End;

var i:integer;

Begin

  k.init(0,0,0);
  For i:=1 to 130 do
  k.flower(i,1,360/10,10);
  cakajklaves;
  k.koniec;

End.

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