REM Forum Sig image Entry
REM Created by BN2
 
set text font "copperplate gothic bold",1
set text size 24
ink rgb(0,0,255),0
3dtext(1,1,"DarkBASIC Classic",1)
color backdrop rgb(0,0,0)
sync on
autocam off
 
position object 1,object position x(1),object position y(1)+20,object position z(1)
 
ink rgb(255,0,0),0
3dtext(2,1,"Programming",1)
 
turn object left 2,45
position object 2,object position x(2)-60,object position y(2)-20,object position z(2)
 
3dtext(3,1,"Challenge",1)
position object 3,object position x(3)+60,object position y(3)-20,object position z(3)
turn object right 3,45
create bitmap 2,640,480
for i=1 to 255
	ink rgb(255-i,255-i/2,255-i/4),0
	circle 320,240,i
next i
get image 3,0,0,640,480
set current bitmap 0
backdrop off
paste image 3,0,0
oldx#=320
oldy#=240
for i=1 to 180
	i#=i
	rad#=i#*(3.14)
	rad#=rad#/180
	r#=250*cos(50000*rad#)
	newx#=320+r#*cos(i)
	newy#=240-r#*sin(i)
	ink rgb(0,newy#-240,0),0
	line oldx#,oldy#,newx#,newy#
	oldx#=newx#
	oldy#=newy#
next i
x=60
y=198
WAIT KEY
copy bitmap 0,1
set current bitmap 1
get image 401,80,y,560,y+120
set current bitmap 0
backdrop off
delete object 1
delete object 2
delete object 3
cls
sprite 1,50,150,401
wait key
end
 
function 3dtext(object,bitmap,string$,image)
if bitmap exist(bitmap) then delete bitmap bitmap
create bitmap bitmap,640,480
set text to bold
Text 0,0,string$
 
x=text width(string$)
y=text Height(string$)
get image image,0,0,x,y
make object plain object,x,y
texture object object,image
set object object,1,0,1
delete image image
endfunction