Baggers,
The following code should work with the attached dll
Rem Project: Text3D
Rem Created: 12/04/2005 23:51:59
Rem ***** Main Source File *****
set display mode 1024,768,32:sync on`:autocam off
rem Create and delete object to force backdrop. Otherwise AA does not work
make object cube 1,10
delete object 1
Load Dll "DBProSetupDebug.dll", 1
`Get pointer to D3DDevice
CID=Call Dll(1, "?GetDirect3DDevice@@YAPAUIDirect3DDevice9@@XZ")
Rem Set Direct3d device to enable D3D operations
SetDX9Device CID
Rem Set Font for Antialiased Text and 3D Text commands - Format is Font number Font Name,size,bold(0 or 1),italic(0 or 1)
rem you can currently set up 10 different fonts
set font 1,"Arial",9,0,0
set font 2,"Tahoma",9,0,0
set font 3,"Comic Sans MS",9,0,0
draw color 255,0,0,100
do
rem Initiate Text drawing StartText dummyval. Not sure how to set up function
rem with no parameters or return code
StartText
rem text AA font number,x,y,text$
text AA 1,0,0,str$(screen fps())
rem Comment out above line and comment back in below line to see normal text in action
`text 0,0,str$(screen fps())
for i=1 to 50
text AA 1,0,i*15,"100% Alpha Antialised Text"
text AA 2,180,i*15,"100% Alpha Antialiased Text"
text AA 3,360,i*15,"100% Alpha Antialiased Text"
text AA 1,560,i*15,"100% Alpha Antialiased Text"
rem Comment out above lines and comment back in below lines to see normal text in action
` text 0,i*15,"100% Alpha Antialised Text"
` text 180,i*15,"100% Alpha Antialiased Text"
` text 360,i*15,"100% Alpha Antialiased Text"
` text 560,i*15,"100% Alpha Antialiased Text"
next i
rem Perform Text drawing to screen EndText dummyval. Not sure how to set up function
rem with no parameters or return code
EndText
sync
loop
end
