you could simulate a background image with a 3d plane(plain), they can be used as buttons as well.
just slide multiples ones backward or forward by 0.1 in the distance calcualtion for them so theres no horrible clipping etc..
in this component
Z# = Screen Height()*0.83
a large one would cover the screen but in fact its a 3d panel in the background.
you could make a few backgrounds this way and ghost the closer ones as well as adding set object parameters would be cool.
rem ------------------------------------------------------
rem 3D Button Functions by indi
rem
rem Button areas in the form of 3D Planes (plains)
rem DarkBasic Version 1.13
rem September 9 2002
rem ------------------------------------------------------
rem
rem
rem What does it Do???:
rem it automatically assigns a 3d plain as a button
rem it will also setup a mouse hot spot according
rem to the 3d button variables at the top of the code
rem
rem using these functions
rem
rem Make3D_btn(objnum,3d_btn_siz,3d_btn_x,3d_btn_y)
rem Place3Dbtn(objnum,X,Y)
rem Check3D_btn_(x1,x2,y1,y2,ms)
rem Delete3D_btn(objnum)
rem
rem easy to adapt for multiple buttons
rem
rem *** The Rotation and colouring
rem *** are just to show its usage
rem
rem What doesn't it Do???
rem It wont change its hotspot size if u wish to change the button
rem size dynamically in your project.
rem
rem
rem
rem
rem Functions By David Smith
rem Make3D_btn(3d_btn_siz,3d_btn_x,3d_btn_y)
rem Check3D_btn_(x1,x2,y1,y2,ms)
rem Delete3D_btn(objnum)
rem Function by Thomas Christ
rem Place3Dbtn(Object,X,Y)
rem ------------------------------------------------------
sync rate 0
sync on
randomize timer()
rem use arrays instead of variables in this example
3d_btn_x = 320
3d_btn_y = 240
3d_btn_siz = 150
3dbx1 = 3d_btn_x - (3d_btn_siz/2)
3dby1 = 3d_btn_y - (3d_btn_siz/2)
3dbx2 = 3d_btn_x + (3d_btn_siz/2)
3dby2 = 3d_btn_y + (3d_btn_siz/2)
Make3D_btn(1,3d_btn_siz,3d_btn_x,3d_btn_y)
rem temp main loop
do
Check3D_btn(3dbx1,3dbx2,3dby1,3dby2)
rem Output Debug
center text 320,20,"---==== 3D Buttons by indi ====---"
center text 320,40,"use mouse over square on screen"
center text 320,60,"mouse x "+STR$(mousex())
center text 320,80,"mouse y "+STR$(mousey())
center text object screen x(1)-90,object screen y(1)-40,"x1 " +STR$(3dbx1)
center text object screen x(1)-90,object screen y(1)-20,"y1 " +STR$(3dby1)
center text object screen x(1)+90,object screen y(1)+120,"x2 " +STR$(3dbx2)
center text object screen x(1)+90,object screen y(1)+140,"y2 " +STR$(3dby2)
rem safe exit
if inkey$()="q"
Delete3D_btn(1)
end
endif
sync
loop
rem ------------------------------------------------------
rem Make3D_btn(3d_btn_siz,3d_btn_x,3d_btn_y) Function By David Smith
rem ------------------------------------------------------
function Make3D_btn(objnum,3d_btn_siz,3d_btn_x,3d_btn_y)
make object plain objnum,3d_btn_siz,3d_btn_siz
lock object on objnum
Place3D_btn(objnum,3d_btn_x,3d_btn_y)
color object objnum,rgb(155,155,155)
endfunction
rem ------------------------------------------------------
rem Place3Dbtn(Object,X,Y) Function by Thomas Christ
rem ------------------------------------------------------
Function Place3D_btn(objnum,X,Y)
Width = Screen Width()/2
Height = Screen Height()/2
Z# = Screen Height()*0.83
Position Object objnum,(X-Width),(Height-Y),Z#
EndFunction
rem ------------------------------------------------------
rem Check3D_btn(x1,x2,y1,y2,ms) Function by David Smith
rem ------------------------------------------------------
Function Check3D_btn(3dbx1,3dbx2,3dby1,3dby2)
If mousex()>3dbx1 and mousex()<3dbx2 and mousey()>3dby1 and mousey()<3dby2 and mouseclick()=0
center text 320,460,"mouse over"
color object 1,rgb(55,155,55)
else
color object 1,rgb(155,155,155)
endif
If mousex()>3dbx1 and mousex()<3dbx2 and mousey()>3dby1 and mousey()<3dby2 and mouseclick()=1
center text 320,460,"left mouse click"
y = wrapvalue(y+1)
rotate object 1,0,y,0
color object 1,rgb(55,255,55)
endif
If mousex()>3dbx1 and mousex()<3dbx2 and mousey()>3dby1 and mousey()<3dby2 and mouseclick()=2
center text 320,460,"right mouse click"
y = wrapvalue(y+1)
rotate object 1,0,0,y
color object 1,rgb(55,255,255)
endif
If mousex()>3dbx1 and mousex()<3dbx2 and mousey()>3dby1 and mousey()<3dby2 and mouseclick()=3
center text 320,460,"both buttons"
y = wrapvalue(y+1)
rotate object 1,y,y,y
color object 1,rgb(rnd(255),rnd(255),rnd(255))
endif
Endfunction
rem ------------------------------------------------------
rem Delete3D_btn(objnum) Function By David Smith
rem ------------------------------------------------------
function Delete3D_btn(objnum)
delete object objnum
endfunction
