**[**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 sign 1 ³
ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ *)
{
This program draw interesting sign with anomals. The cycle j draw the
steps of picture. The 4500 is a good parameter - have nice picture. In
cycle i we draw "tiangles" and then we rotate turtle. This is very
difficult to undestand. It draw it and we have this sign. For very small
j it is just point, but for larger it is just this picture. If you
want good ducumentaion then you muth know the functions with two
variables. (mathematical functions) If in poly we delete *i then the
picture draw periodicly how in korpic03.pas.
}
***uses **okor,crt;
**type **MyTur = **object**(kor)
**procedure **poly(n:integer;s,u:real);
**end**;
**procedure **MyTur.poly(n:integer;s,u:real);
**begin
while **n>0 **do begin
**dopredu(s);
vpravo(u);
dec(n);
**end**;
**end**;
**var **k:MyTur;
i,j,o:integer;
**begin
**k.init(0,0,0);
o:=0;
**For **j:=1 **to **4500 **do Begin
**inc(o);
**for **i:=1 **to **3 **do begin
**k.poly(3,0.0003*o*i,i);
k.vpravo(o);
**End**;
**End**;
CakajKlaves;
K.koniec;
**end**.

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