Sorry your browser is not supported!

Rem Project: Gui using a 3D plane
Rem Created: Feb 05 2011


` ===============================
` Declare global variables
` ===============================
#CONSTANT cameraFOV 61.9621391296
Global BaseX as integer
Global BaseY as integer
Global ZDist as integer
Global MaxWidth as integer = 1024
Global MaxHeight as integer = 768


` ===============================
` Set the screen
` ===============================
set display mode MaxWidth, MaxHeight, 32
set window on
set window layout 0,1,0
sync on : sync rate 60
color backdrop rgb(0,0,0)
backdrop on
autocam off


` ===============================
` give values to globals/load gui
` ===============================
gosub SetGlobals
gosub DefineGui


` ===============================
` Main program loop
` ===============================
make object box 2,100,100,10
position object 2,0,0,-300

do
 zrotate object 2, object angle z(2)+2
 xrotate object 2, object angle x(2)+1
 yrotate object 2, object angle y(2)+1
 
 gosub DisplayGui
 
 x#=x#+mousemovey() : y#=y#+mousemovex() : rotate camera 0,x#,y#,0 ` move camera with mouse - just for testing purposes
  
 sync
loop


` ===============================
` Subroutine SetGlobals
` ===============================
SetGlobals:
ZDist=(screen height()/2)/TAN(cameraFOV/2) ` distance from camera to scale plain to screensize (i.e. 10x10 pixel plain takes up 10x10 pixels on screen) 
BaseX=0-screen width()/2 ` variable needed to convert an object's X position to screen position
BaseY=screen height()/2 ` same for Y value
return


` ===============================
` Subroutine DefineGui
` ===============================
DefineGui:
load image "GUI_02.png", 100
make object plain 1,MaxWidth,MaxHeight
texture object 1,100
set object transparency 1, 1
set object light 1,0
return


` ===============================
` Subroutine DisplayGui
` ===============================
DisplayGui:
PlaceGui(1,0,0,MaxWidth,MaxHeight,0)          ` other Gui-objects can be added ofcourse
return


` ===============================
` Function PlaceGui
` ===============================
Function PlaceGui(obj,x,y,width,height,ghost)

CamPosX=camera position x()
CamPosY=camera position y()
CamPosZ=camera position z()

position object obj,CamPosX,CamPosY,CamPosZ ` place plain at camera position
set object to camera orientation obj        ` turn object to point in the same direction as the camera
turn object left obj,180                    ` turn object to face camera

move object left obj,BaseX+x+(width/2)      ` move object to pixel perfect distance on x-axis
move object up obj,BaseY-y-(height/2)       ` same for y-axis   
move object obj,(zDist*-1)                  ` same for z-axis

disable object zdepth obj                   ` make plain appear over everything else
set object filter obj,1                     ` turn mipmaps on object off

if ghost=1                                  ` Ghost plain if requested (only works if object is set to be effected by lighting).
  set object light obj,1
  ghost object on obj
 else
  set object light obj,0                    ` if ghosting is not required, make sure the plain isn't affected by brightness, lights etc. 
  ghost object off obj
endif

EndFunction

autocam on:backdrop on
make matrix 1,4000,4000,100,100
set matrix height 1,50,50,500
update matrix 1
make camera 1
position camera 1,0,500,500
point camera 1,2000,0,2000
set camera to image 1,1,128,128
fov=45:range=1000:size=0:aspect=screen width()/screen height()
point camera 0,2000,0,2000
while mouseclick()<>1
paste image 1,0,0
set cursor 0,0
print "a-z Field-Of-View Angle ",fov
print "s-x viewing range of the camera ",range
print "d-c viewport of the camera ",size
print "f-v Aspect Ratio ",aspect
if inkey$()="a" then fov=fov-1:if fov<0 then fov=0
if inkey$()="z" then fov=fov+1
if inkey$()="s" then range=range-1:if range<0 then range=0
if inkey$()="x" then range=range+1
if inkey$()="d" then size=size-1:if size<0 then size=0
if inkey$()="c" then size=size+1
if inkey$()="f" then aspect=aspect-1:if aspect<0 then aspect=0
if inkey$()="v" then aspect=aspect+1
set camera fov 0,fov
set camera range 0,1,range
set camera view 0,size,size,screen width()-size,screen height()-size
set camera aspect 0,aspect
endwhile
while mouseclick()=1 : endwhile
delete matrix 1:autocam off:backdrop off
end

make camera 1
backdrop off 1
set camera view 1, 15, 13, 725, 590
rotate camera 1, 11, -164, 0

set display mode 640,480,32
set camera view 5,5,540,400
nGray=rgb(200,200,200)
nDarkGray=rgb(100,100,100)
box 0,0,640,480,nDarkGray,nGray,nDarkGray,nGray
make object cube 1,10
text 10,402,"SOME TEXT"
do
    turn object right 1,.1
loop