home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Stone Design
/
Stone Design.iso
/
Stone_Friends
/
Wave
/
WavesWorld
/
Examples
/
InventorTests
/
rotateDiskX.eve
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1995-04-19
|
279 b
|
17 lines
defineClass: rotateColorDisk {c xT r} {
AttributeBegin
Color $c
Translate $xT 0 0
Rotate $r 1 0 0
Disk 0 1 360
AttributeEnd
}
startShape star
for {set i 0} {$i < 10} {incr i} {
rotateColorDisk "[expr "$i * .1"] 1 1" $i [expr {$i * 10}]
}
endShape