/* by Peter Wirbelauer  28.o6.2o12  */

uses gdip
Screen 640,480,1
sys Font

Function Max(single a, b) as single
iF a >= b 
   Return a 
Else 
   Return b
End iF   
End Function

Sub Text3D(string txt, sys x1, y1, r,g,b )
sys i
For i=1 To Len (txt)
Text Font,x1+i,y1+i,txt, ARGB 255,max(r-i*8,0),max(g-i*8,0),max(b-i*8,0) 
Next
End Sub

ClsColor 255, 0,0,255
Font= LoadFont "arial",60
Text3D "3D BANANA TEXT",64,0,255,210,150

Font= LoadFont "impact",60
Text3D "Bananas  ",64, 64, 255,110,250
Text3D "  are    ",64,108, 255,210,250
Text3D "delicious",64,158, 255,255,250

Font= LoadFont "tunga",60
Text3D "Bananas  ",64,264, 255,110,250
Text3D "  are    ",64,308, 255,210,250
Text3D "delicious",64,358, 255,255,250

Font= LoadFont "georgia",60
Text3D "Bananas  ",364, 64, 255,110,250
Text3D "  are    ",364,108, 255,210,250
Text3D "delicious",364,158, 255,255,250

Font= LoadFont "verdana",60
Text3D "Bananas  ",364,264, 255,110,250
Text3D "  are    ",364,308, 255,210,250
Text3D "delicious",364,358, 255,255,250

Flip
WaitKey(27)
Ends