Sorry your browser is not supported!

function grid(mzX,mzY)

ink rgb(30,30,30),rgb(30,30,30)
box 0,0,window width(),window height()

       lineB = 0
       //hide mouse

       for i=0 to window width()-100
           
                if lineB <> 10
                    ink rgb(60,60,60)
                else
                    ink rgb(155,155,155)
                    lineB = 0
                endif
                
           //LOCK PIXELS 
            line i+mzX,0,i+mzX,964
           //UNLOCK PIXELS             
           i=i + grid_space

           lineB = lineB +1
           
       next
       
       lineB = 0
       
       i = window height()/20
       for i=0 to window height()
                if lineB <> 10
                    ink rgb(60,60,60)
                else
                    ink rgb(155,155,155)
                    lineB = 0
                endif
            line 0,i+mzY,window width(),i+mzY
           i=i + grid_space
           lineB = lineB +1
       next
       
       //scrnHeightDemi# = window height()/2
       //scrnWidthDemi# = window Width()/2
       // screenWidthDemi# = window width()
       //screenHeighthDemi# = window width()
       
       //line scrnWidthDemi#,0,scrnWidthDemi#,screenHeightDemi#
       //line 0,screenHeightDemi#,scrnWidthDemi#,screenHeightDemi#
       lineB = 0
       i= 0
       
       mzX = 0
       mzY = 0
       
       mzXSave = mzXSave  + mzX
       mzYSave = mzYSave + mzY
       
      sync camera 4
       
endfunction

autocam off
 set display mode 1024,768,16
color backdrop rgb(120,120,120)
ink rgb(155,155,150),1
a#=45:cam#=45
box 0,0,30,30
ink rgb(0,0,0),1
box 1,1,29,29


get image 1,0,0,30,30,1
make object plain 1,25,25

xrotate object 1,90
texture object 1,1
 set object 1,1,1,0,0
scale object texture 1,40,40
set object emissive 1,rgb(155,50,65)
make object sphere 2,1
position camera 10,10,-10
point camera 0,0,0

sync on
do
set cursor 0,0
print screen fps()
if mouseclick()=1 then di#=di#+0.1
if mouseclick()=2 then di#=di#-0.1
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
position camera 0,0,0
move camera -20+di#
sync
loop

finishy=screen height()
finishx=screen width()
gridsize=64
for y=starty to finishy step gridsize
    for x=startx to finishx step gridsize
        line x,0,x,finishy
    next x
    line 0,y,finishx,y
next y
get image 1,0,0,finishx,finishy

type vector
    x           as float
    y           as float
    z           as float
endtype

sync on : sync rate 60
autocam off : hide mouse
color backdrop rgb(16,16,16)

setupViewportGrid()

// quick setup of a camera
position camera -(128),128+64,-(128+64)
point camera 0,0,0

cy# = camera angle y() : ncy# = cy#
cx# = camera angle x()+5 : ncx# = cx#

do

    cr# = 0 : cf# = 0
    speed# = 4.0
    sm# = 5.0
    
    if rightkey()=1 or KEYSTATE(32)=1 then cr# = -speed#
    if leftkey()=1 or KEYSTATE(30)=1 then cr# = speed#
    if upkey()=1 or KEYSTATE(17)=1 then cf# = speed#
    if downkey()=1 or KEYSTATE(31)=1 then cf# = -speed#
        ncr#=curvevalue(cr#,ncr#,sm#)
        ncf#=curvevalue(cf#,ncf#,sm#)
        cx#=cx#+mousemovey()*0.2
        cy#=cy#+mousemovex()*0.2
    if cx#>80 then cx#=80
    if cx#<-80  then cx#=-80
        ncx#=curveangle(cx#,ncx#,sm#)
        ncy#=curveangle(cy#,ncy#,sm#)
    move camera ncf#
        rotate camera 0,wrapvalue(ncy#-90),0
            move camera ncr#
        rotate camera 0,wrapvalue(ncy#+90),0
    rotate camera ncx#,ncy#,0
    
    set cursor 0,0
    print "WASD to move, mouse look to rotate"
   	

    sync
loop

#constant VIEWPORT_GRIDSIZE         512.0
#constant VIEWPORT_GRIDCOUNT        16

function setupViewportGrid()

    local v1            as vector
    local v2            as vector
    local row           as integer
    local col           as integer
    local gridHalf      as float
    local resultSize    as float
    
    gridHalf = (VIEWPORT_GRIDSIZE*.5)
    resultSize = (VIEWPORT_GRIDSIZE/VIEWPORT_GRIDCOUNT)          
    
    
    for row = 0 to VIEWPORT_GRIDCOUNT
    
        v1.x = -gridHalf
        v1.y = 0.0
        v1.z = (row*resultSize)-gridHalf
    
        v2.x = gridHalf
        v2.y = 0.0
        v2.z = (row*resultSize)-gridHalf
        
        if row = (VIEWPORT_GRIDCOUNT*.5)
            createWireMesh( v1, v2, rgb(0,0,12) )
        else
            createWireMesh( v1, v2, rgb(12,12,12) )
        endif
        
    next
    
    for col = 0 to VIEWPORT_GRIDCOUNT
    
        v1.x = (col*resultSize)-gridHalf
        v1.y = 0.0
        v1.z = -gridHalf
    
        v2.x = (col*resultSize)-gridHalf
        v2.y = 0.0
        v2.z = gridHalf
        
        if col = (VIEWPORT_GRIDCOUNT*.5)
            createWireMesh( v1, v2, rgb(0,0,12) )
        else
            createWireMesh( v1, v2, rgb(12,12,12) )
        endif
        
    next
    
endfunction

function createWireMesh( v1 as vector, v2 as vector, Color as dword )

    local d         as vector
    local n         as integer
    local dist      as float
    
    n = find free object()
			
    make object triangle n ,0,0,0 ,0,0,0 ,0,0,1
	
    position object n,v1.x,v1.y,v1.z
    point object n,v2.x,v2.y,v2.z

    d.x = v2.x - v1.x
    d.y = v2.y - v1.y
    d.z = v2.z - v1.z

    dist = sqrt( d.x * d.x + d.y * d.y + d.z * d.z )
	
    scale object n,0,0,100.0*dist
    set object diffuse n, color
    set object emissive n, color
    set object wireframe n, 1
	
endfunction n