here is my entry, couldn't quite get the star-burst image in the background to work right, but it is good enough.
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
Note: For those who want to know, but don't want to check the code, to make the starburst image, you need to use polar coordinates (basically a distance and the angle is what changes) connected by a line. The equation is 250*cos(50000*rad#) where rad# is the angle in radians (degrees*pi/180). The 250 can be changed to alter the scale.
Ever notice how in Microsoft word, the word "microsoft" is auto corrected to be "Microsoft" but "macintosh" just gets the dumb red underline?
