kturtle/data/trianglesss.logo

   1 # draw triangle wheels
   2
   3 reset
   4
   5 learn triangle X [
   6   repeat 3 [
   7     forward X
   8     turnleft 120
   9   ]
  10 ]
  11
  12 for r = 1 to 30 [
  13   clear
  14   repeat 18 [
  15     triangle r*r*5
  16     tr 20
  17   ]
  18   wait 1
  19 ]
  20
  21 wait 3
  22 clear
  23
  24 print "  I'm tired..."