Hi everyone,
I'm writing a game that requires a lot of text labels on 3D objects (see attached screenshot).
In order to do this, I wrote the following function to create a simple image with the desired text which I then apply to a plain object:
function makeTextImage(text$, imageNumber, lines)
if bitmap exist(1)=0 then create bitmap 1,640,480
set current bitmap 1
box 0,0,640,480,rgb(0,0,0),rgb(0,0,0),rgb(0,0,0),rgb(0,0,0)
set cursor 7,0
print text$
Get image imageNumber, 0, 0, len(text$)*8+16, 15
set current bitmap 0
endfunction
However, after creating about 100 of these images, it crashes the program. Does anyone know why this is or if there is a better way to be doing this?
Thanks,
David
Check out my website http://roborangers.home.comcast.net/Trek.html