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

    {
         This program is easy to undestand. Draw flower. This program
     draw all petels. (input n=7) Draw the petal from korpic08.pas.
     All petels are rotated in 360/n degress. (korpic07.pas)
     And draw other petal in other color.
    }

    uses  okor;

    Type Mykor=object(kor)
               Procedure poly(n:integer;s,u:real);
               Procedure Part_Circle(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.Part_circle(n:integer;s:real);
      Begin
        poly(n,s,90/n);
      End;

      Procedure Mykor.petal(n:integer;s:real);
      Begin
        Part_circle(n,s);
        vpravo(90);
        Part_circle(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);
      k.flower(100,2.5,360/7,7);
      cakajklaves;
      k.koniec;

    End.

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