I created this ages a ago, it might be useful for simple things:
rem 3D Text
rem David Tattersall 4/9/02
remstart
This function creates an object in the shape of 3D text as specified
in the function call.
MAXIMUM NUMBER OF CHARS : 38
remend
set display mode 800,600,32
sync off
`syntax: create_3d_text(Obj num,Text,Font,Width,Height,Depth,Colour)
create_3d_text(1,"Hello","Verdana",50,20,25,RGB(255,255,255))
position object 1,0,0,0
position camera 0,-50,0
point camera 0,0,0
ink RGB(215,0,0),0
do
inc x,5
inc y,5
inc z,5
x= wrapvalue(x)
y= wrapvalue(y)
z= wrapvalue(z)
rotate object 1,x,y,z
text 10,10,"Screen FPS: "+str$(screen fps())
text 10,30,str$(statistic(1))
sync
loop
function create_3d_text(obj,text$,font$,width,height,depth,col)
`first grab image of text
cls
ink col,0
chars = LEN(text$)
set text font font$
set text size 40
text 0,0,text$
get image 1,0,0,chars*20,40
`now make base mesh for extra limbs
make object plain 99,width,height
make mesh from object 1,99
delete object 99
`now create our object
make object plain obj,width,height
texture object obj,1
pos# = 0.05
`now add limbs to create depth
for n=1 to depth
add limb 1,n,1
offset limb 1,n,0,0,pos#
texture limb 1,n,1
pos# = pos#+0.05
next n
`SET OBJECT Object Number, Wireframe, Transparency, Cull
SET OBJECT 1,1,1,0
endfunction
Merry Christmas to all Apollo members!
Visit [url]www.lightning-systems.co.uk[/url] :: [url]www.realgametools.net/forums[/url]
