home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / InventorTests / rotateDiskX.eve < prev    next >
Encoding:
Text File  |  1995-04-19  |  279 b   |  17 lines

  1. defineClass: rotateColorDisk {c xT r} {
  2.  
  3.   AttributeBegin
  4.     Color $c
  5.     Translate $xT 0 0 
  6.     Rotate $r 1 0 0
  7.     Disk 0 1 360
  8.   AttributeEnd
  9. }
  10.  
  11.  
  12. startShape star
  13.   for {set i 0} {$i < 10} {incr i} {
  14.     rotateColorDisk "[expr "$i * .1"] 1 1" $i [expr {$i * 10}]
  15.   }
  16. endShape
  17.