Here is some code that makes a wheel with letters.
` setup the letters
set text font "times"
set text size 64
for x = 1 to 26
cls 0
ink rgb(0,0,255),0
box 2,2,62,62
ink rgb(255,255,255),0
a$=chr$(x+64)
text 32-text width(a$)/2,-2,chr$(x+64)
get image x,0,0,64,64
next x
` setup the camera
sync on
autocam off
position camera 0,50,0
point camera 0,0,0
color backdrop rgb(150,150,150)
` make the wheel
make object sphere 100,35,12,36
scale object 100,100,0,100
color object 100,rgb(255,0,0)
set object emissive 100,rgb(255,0,0)
make object sphere 101,46,12,36
scale object 101,100,0,100
color object 101,rgb(0,255,0)
set object emissive 101,rgb(0,255,0)
move object down 101,1
` make the letters
for o = 1 to 24
make object plane o,4,4
glue object to limb o,100,0
yrotate object o,o*15
move object o,20
xrotate object o,270
texture object o,o
scale object texture o,-1,-1
set object emissive o,rgb(255,255,255)
next o
` spin the wheel
do
turn object right 100,.01
sync
loop
You could map the letters to the planes according to whatever they need to spell out. Here's a version that asks for input and then spells out the phrase on the wheel.
` get the user input
print "Type your phrase and hit ENTER (maximum of 24 characters)"
input U$
if U$="" then U$="RICHARD"
U$=upper$(U$)
if len(U$)>24 then U$=left$(U$,24)
if len(U$)>24 then U$=U$+space$(24-len(U$))
` setup the letters
set text font "times"
set text size 64
cls 0
for x = 1 to 26
ink rgb(0,0,255),0
box 2,2,62,62
ink rgb(255,255,255),0
a$=chr$(x+64)
text 32-text width(a$)/2,-2,chr$(x+64)
get image x,0,0,64,64
next x
` and the "space" character
ink rgb(0,0,255),0
box 2,2,62,62
get image 27,0,0,64,64
` setup the camera
sync on
autocam off
position camera 0,50,0
point camera 0,0,0
color backdrop rgb(150,150,150)
` make the wheel
make object sphere 100,35,12,36
scale object 100,100,0,100
color object 100,rgb(255,0,0)
set object emissive 100,rgb(255,0,0)
make object sphere 101,46,12,36
scale object 101,100,0,100
color object 101,rgb(0,255,0)
set object emissive 101,rgb(0,255,0)
move object down 101,1
` make the letters
for o = 1 to 24
make object plane o,4,4
glue object to limb o,100,0
yrotate object o,o*15
move object o,20
xrotate object o,270
texture object o,27
a=asc(mid$(U$,o))
if a>64 and a<91 then texture object o,a-64
scale object texture o,-1,-1
set object emissive o,rgb(255,255,255)
next o
` spin the wheel
do
turn object right 100,.01
sync
loop
