home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / elan.sit / turtle / ROSETTE.E < prev    next >
Encoding:
Text File  |  1988-11-09  |  403 b   |  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.