home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / elan / turtle / rosette.eln < prev    next >
Text File  |  1988-10-11  |  424b  |  22 lines
  1.  
  2. draw a rosette:
  3.    enter turtle graphics;
  4.    go to the centre;
  5.    UPTO 6
  6.    REP draw equilateral hook;
  7.    turn (60)
  8.    ENDREP;
  9.    wait for confirmation (10, 10);
  10.    leave turtle graphics.
  11.  
  12.  
  13. go to the centre:
  14.    REAL CONST d:: turtle y limit / 3.0;
  15.    move (turtle x limit / 2.0, turtle y limit / 2.0).
  16.  
  17.  
  18. draw equilateral hook:
  19.    draw (d); turn (120);
  20.    draw (d); turn (120);
  21.    move (d); turn (120).
  22.