graphics 800,600,32 starfont=loadimagefont("Jedi Normal") 'glPushmatrix() SetImageFont starfont Const text_row_h=70 'MY STUFF HERE fin=0 ystart#=450.00 SetBlend ALPHABLEND ncount=0 ndelay=1 glMatrixMode(GL_PROJECTION) glLoadIdentity() gluPerspective(20.0,-8.0/6.0,1.0,100000.0) glrotatef(180.0,0,0,1) 'glrotatef (180.0,0.0,0.0,1.0) glEnable(GL_FOG) Local fcols:Float[]=[0.0,0.0,0.0,0.0] Local colptr:Float Ptr=VarPtr fcols[0] glFogfv(GL_FOG_COLOUR,colptr) glFogf(GL_FOG_START,500) glFogf(GL_FOG_END,1000) glFogi(GL_FOG_MODE,GL_LINEAR) xpos=-108 angg#=80.0 dist=-836.0 scaley#=1.29599917 scalex#=0.113999963 Cls Flip Repeat Cls glMatrixMode(GL_MODELVIEW) glLoadidentity() SetOrigin xpos,ystart glTranslatef(0,0,dist) glrotatef(angg,1,0,0) SetScale scalex,scaley SetColor Rand(0,255),Rand(0,255),Rand(0,255) DrawText " ***********************************",0.0,text_row_h DrawText " * your text here!! *",0.0,text_row_h*2 DrawText " **********************************",0.0,text_row_h*3 DrawText " * ************** *",0.0,text_row_h*4 DrawText " *************04/05*************",0.0,text_row_h*5 EndIf ncount:+1 If ncount>ndelay Then ncount=0 If ncount=0 Then ystart:-1 Flip Until KeyHit(KEY_ESCAPE) Or ystart<-2000.0 glMatrixMode GL_PROJECTION glLoadidentity() glOrtho 0,800,600,0,-1,1 SetScale(1,1) SetColor 255,255,255 SetAlpha 1.0 glMatrixMode GL_MODELVIEW glLoadIdentity SetOrigin 0,0 glDisable(GL_FOG) 'glPopmatrix() Cls Flip
Here you go - I've tried to make a couple of mods so you can run it straight off the bat - untested - you'll need to download a font called 'Jedi Normal' to
see it as intended - this is on a website called "2200 free fonts" - available in Mac or PC format. Make sure the font filename is correct in the code above.