Sorry your browser is not supported!

set display mode 1280, 720, 32
sync on
sync rate 0

autocam on
make object cube 1, 1
hide object 1
make matrix 1, 12, 12, 12, 12
autocam off
position camera 0, 25, 0
point camera camera position x(), 0, camera position z()
make object cube 25, 1
position object 25, 0, 0, 5
do
    text 0, 100, \"x :\" + str$(fun2Dto3D_x(0, 0, camera position y()))
    text 0, 120, \"z :\" + str$(fun2Dto3D_z(0, 0, camera position y()))

    ink rgb(255, 0, 0), rgb(0, 0, 0)
    circle fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), 2
    dot fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), rgb(255, 0, 0)
    if mouseclick() = 4
        x = mousex()
        y = mousey()
        
        xp = mousemovex()
        yp = mousemovey()
        
        position object 25, camera position x(), 0, camera position z()
        
        yy# = camera position y()
        x_cor# = fun2Dto3D_x(x, y, yy#)
        z_cor# = fun2Dto3D_z(x, y, yy#)
        
        x_cor_new# = fun2Dto3D_x(x + xp, y + yp, yy#)
        z_cor_new# = fun2Dto3D_z(x + xp, y + yp, yy#)
        cam_x# = camera position x() + (x_cor# - x_cor_new#)
        cam_z# = camera position z() + (z_cor# - z_cor_new#)
        position camera cam_x#, camera position y(), cam_z#
        point camera cam_x#, 0, cam_z#
        text 0, 00, \"xp :\" + str$(xp)
        text 0, 20, \"yp :\" + str$(yp)
        text 0, 40, \"x  :\" + str$(x)
        text 0, 60, \"y  :\" + str$(y)
    else
        NULL = mousemovex()
        NULL = mousemovey()
    endif
    sync
loop

function fun2Dto3D_x(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector x()
endfunction value#

function fun2Dto3D_y(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector y()
endfunction value#

function fun2Dto3D_z(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector z()
endfunction value#

function fun3Dto2D_x(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen x(1)
endfunction value#

function fun3Dto2D_y(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen y(1)
endfunction value#

function distance3D(x1#, y1#, z1#, x2#, y2#, z2#)
    x# = dif(x1#, x2#)
    y# = dif(y1#, y2#)
    z# = dif(z1#, z2#)
    dis# = sqrt((x#^2) + (y#^2) + (z#^2))
endfunction dis#

function dif(v1#, v2#)
    value# = 0
    
    if v1# > v2#
        value# = v1# - v2#
    endif
    
    if v2# > v1#
        value# = v2# - v1#
    endif
endfunction value#

set display mode 1280, 720, 32
sync on
sync rate 0

autocam on
make object cube 1, 1
hide object 1
make matrix 1, 12, 12, 12, 12
autocam off
position camera 0, 25, 0
point camera camera position x(), 0, camera position z()
make object cube 25, 1
position object 25, 0, 0, 5
do
    text 0, 100, \"x :\" + str$(fun2Dto3D_x(0, 0, camera position y()))
    text 0, 120, \"z :\" + str$(fun2Dto3D_z(0, 0, camera position y()))

    ink rgb(255, 0, 0), rgb(0, 0, 0)
    circle fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), 2
    dot fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), rgb(255, 0, 0)
    if mouseclick() = 4
        x = mousex()
        y = mousey()
        
        xp = mousemovex()
        yp = mousemovey()
        
        position object 25, camera position x(), 0, camera position z()
        
        yy# = camera position y()
        x_cor# = fun2Dto3D_x(x, y, yy#)
        z_cor# = fun2Dto3D_z(x, y, yy#)
        
        x_cor_new# = fun2Dto3D_x(x + xp, y + yp, yy#)
        z_cor_new# = fun2Dto3D_z(x + xp, y + yp, yy#)
        cam_x# = camera position x() + (x_cor# - x_cor_new#)
        cam_z# = camera position z() + (z_cor# - z_cor_new#)
        position camera cam_x#, camera position y(), cam_z#
        point camera cam_x#, 0, cam_z#
        text 0, 00, \"xp :\" + str$(xp)
        text 0, 20, \"yp :\" + str$(yp)
        text 0, 40, \"x  :\" + str$(x)
        text 0, 60, \"y  :\" + str$(y)
    else
        NULL = mousemovex()
        NULL = mousemovey()
    endif
    sync
loop

function fun2Dto3D_x(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector x()
endfunction value#

function fun2Dto3D_y(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector y()
endfunction value#

function fun2Dto3D_z(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector z()
endfunction value#

function fun3Dto2D_x(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen x(1)
endfunction value#

function fun3Dto2D_y(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen y(1)
endfunction value#

function distance3D(x1#, y1#, z1#, x2#, y2#, z2#)
    x# = dif(x1#, x2#)
    y# = dif(y1#, y2#)
    z# = dif(z1#, z2#)
    dis# = sqrt((x#^2) + (y#^2) + (z#^2))
endfunction dis#

function dif(v1#, v2#)
    value# = 0
    
    if v1# > v2#
        value# = v1# - v2#
    endif
    
    if v2# > v1#
        value# = v2# - v1#
    endif
endfunction value#

set display mode 1280, 720, 32
sync on
sync rate 0

autocam on
make object cube 1, 1
hide object 1
make matrix 1, 12, 12, 12, 12
autocam off
position camera 0, 25, 0
point camera camera position x(), 0, camera position z()
make object cube 25, 1
position object 25, 0, 0, 5
do
    text 0, 100, "x :\" + str$(fun2Dto3D_x(0, 0, camera position y()))
	 text 0, 110, "y :\" + str$(camera position y())
    text 0, 120, "z :\" + str$(fun2Dto3D_z(0, 0, camera position y()))

    ink rgb(255, 0, 0), rgb(0, 0, 0)
    circle fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), 2
    dot fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), rgb(255, 0, 0)

    rem pan
    if mouseclick() = 4

        x = mousex()
        y = mousey()
        yy# = camera position y()
        position object 25, camera position x(), 0, camera position z()
        
        rem mouse was just clicked, store original positions
        if drag_click_flag = 0
            storex# = camera position x() + fun2Dto3D_x(x, y, yy#)
            storez# = camera position z() + fun2Dto3D_z(x, y, yy#)
            drag_click_flag = 1
        endif
		  
        rem subtract mouse coordinates from from original positions to get new positions
        cam_x# = storex# - fun2Dto3D_x(x, y, yy#)
        cam_z# = storez# - fun2Dto3D_z(x, y, yy#)
        
        rem update camera
        position camera cam_x#, camera position y(), cam_z#
        point camera cam_x#, 0, cam_z#
        text 0, 00, "xp :\" + str$(xp)
        text 0, 20, "yp :\" + str$(yp)
        text 0, 40, "x  :\" + str$(x)
        text 0, 60, "y  :\" + str$(y)
    else
	 
        rem reset flag
        drag_click_flag = 0

    endif
    sync
loop

function fun2Dto3D_x(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector x()
endfunction value#

function fun2Dto3D_y(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector y()
endfunction value#

function fun2Dto3D_z(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector z()
endfunction value#

function fun3Dto2D_x(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen x(1)
endfunction value#

function fun3Dto2D_y(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen y(1)
endfunction value#

function distance3D(x1#, y1#, z1#, x2#, y2#, z2#)
    x# = dif(x1#, x2#)
    y# = dif(y1#, y2#)
    z# = dif(z1#, z2#)
    dis# = sqrt((x#^2) + (y#^2) + (z#^2))
endfunction dis#

function dif(v1#, v2#)
    value# = 0
    
    if v1# > v2#
        value# = v1# - v2#
    endif
    
    if v2# > v1#
        value# = v2# - v1#
    endif
endfunction value#

set display mode 1280, 720, 32
sync on
sync rate 0

autocam on
make object cube 1, 1
hide object 1
make matrix 1, 12, 12, 12, 12
autocam off
position camera 0, 25, 0
point camera camera position x(), 0, camera position z()
make object cube 25, 1
position object 25, 0, 0, 5
do
    text 0, 100, "x :" + str$(fun2Dto3D_x(0, 0, camera position y()))
    text 0, 120, "z :" + str$(fun2Dto3D_z(0, 0, camera position y()))

    ink rgb(255, 0, 0), rgb(0, 0, 0)
    circle fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), 2
    dot fun3Dto2D_x(0, 0, 0), fun3Dto2D_y(0, 0, 0), rgb(255, 0, 0)
    if mouseclick() = 1
        x = mousex()
        y = mousey()
        
        xp = mousemovex()
        yp = mousemovey()
        
        yy# = camera position y()
        x_cor# = fun2Dto3D_x(x, y, yy#)
        z_cor# = fun2Dto3D_z(x, y, yy#)
        
        x_cor_new# = fun2Dto3D_x(x + xp, y + yp, yy#)
        z_cor_new# = fun2Dto3D_z(x + xp, y + yp, yy#)
        cam_x# = camera position x() + (x_cor# - x_cor_new#)
        cam_z# = camera position z() + (z_cor# - z_cor_new#)
        position camera cam_x#, camera position y(), cam_z#
        point camera cam_x#, 0, cam_z#

        position object 25, camera position x(), 0, camera position z()
        
        text 0, 00, "xp :" + str$(xp)
        text 0, 20, "yp :" + str$(yp)
        text 0, 40, "x  :" + str$(x)
        text 0, 60, "y  :" + str$(y)
    else
        NULL = mousemovex()
        NULL = mousemovey()
    endif
    sync
loop

function fun2Dto3D_x(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector x()
endfunction value#

function fun2Dto3D_y(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector y()
endfunction value#

function fun2Dto3D_z(x, y, dis#)
    pick screen x, y, dis#
    value# = get pick vector z()
endfunction value#

function fun3Dto2D_x(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen x(1)
endfunction value#

function fun3Dto2D_y(x#, y#, z#)
    position object 1, x#, y#, z#
    value# = object screen y(1)
endfunction value#

function distance3D(x1#, y1#, z1#, x2#, y2#, z2#)
    x# = dif(x1#, x2#)
    y# = dif(y1#, y2#)
    z# = dif(z1#, z2#)
    dis# = sqrt((x#^2) + (y#^2) + (z#^2))
endfunction dis#

function dif(v1#, v2#)
    value# = 0
    
    if v1# > v2#
        value# = v1# - v2#
    endif
    
    if v2# > v1#
        value# = v2# - v1#
    endif
endfunction value#

type rect
    left
    top
    right
    bottom
endtype

global _rect        as rect

type vector3
    x               as float
    y               as float
    z               as float
endtype

global _vector3     as vector3

type matrix4
    _11             as float
    _12             as float
    _13             as float
    _14             as float
    _21             as float
    _22             as float
    _23             as float
    _24             as float
    _31             as float
    _32             as float
    _33             as float
    _34             as float
    _41             as float
    _42             as float
    _43             as float
    _44             as float        
endtype

global _matrix4     as matrix4

local m             as matrix4
local mag           as float
local rayDir        as vector3
local pickVec       as vector3
local distance      as float

distance = 20

sync on : sync rate 0
autocam off

make object cube 1,10
position object 1,0,0,20

global _projMat as integer = 1
global _viewMat as integer  = 2
make matrix4 _projMat
make matrix4 _viewMat

do

    _mousex = mousex()
    _mousey = mousey()    

    projection matrix4 _projMat, 0
    getMatrix4( _projMat )

    _rect.right = screen width()
    _rect.bottom = screen height()

    _vector3.x = ( ( ( 2.0 * (_mousex) ) / _rect.right) - 1 ) / _matrix4._11
    _vector3.y = ( ( ( 2.0 * (_mousey) ) / _rect.bottom) - 1 ) / _matrix4._22
    _vector3.z = 1
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    getMatrix4( _viewMat ) : m = _matrix4
    
    rayDir.x = _vector3.x*m._11 + _vector3.y*m._21 + _vector3.z*m._31
    rayDir.y = _vector3.x*m._12 + _vector3.y*m._22 + _vector3.z*m._32
    rayDir.z = _vector3.x*m._13 + _vector3.y*m._23 + _vector3.z*m._33
    
    mag = sqrt(rayDir.x*rayDir.x + rayDir.y*rayDir.y + rayDir.z*rayDir.z)
    rayDir.x = rayDir.x / mag
    rayDir.y = rayDir.y / mag
    rayDir.z = rayDir.z / mag
    
    pickVec.x = rayDir.x * distance
    pickVec.y = -rayDir.y * distance
    pickVec.z = rayDir.z * distance
    
    pick screen mousex(), mousey(), distance

    set cursor 0,0
    print "DBP Pick"
    print get pick vector x()
    print get pick vector y()
    print get pick vector z()
    print
    print "My Pick Equivalent"
    print pickVec.x
    print pickVec.y  
    print pickVec.z 
    
    sync
loop

function getMatrix4( source as integer )

    _matrix4._11 = get matrix4 element(source,0)
    _matrix4._12 = get matrix4 element(source,1)    
    _matrix4._13 = get matrix4 element(source,2)
    _matrix4._14 = get matrix4 element(source,3)
        
    _matrix4._21 = get matrix4 element(source,4)
    _matrix4._22 = get matrix4 element(source,5)    
    _matrix4._23 = get matrix4 element(source,6)
    _matrix4._24 = get matrix4 element(source,7)       

    _matrix4._31 = get matrix4 element(source,8)
    _matrix4._32 = get matrix4 element(source,9)    
    _matrix4._33 = get matrix4 element(source,10)
    _matrix4._34 = get matrix4 element(source,11)
    
    _matrix4._41 = get matrix4 element(source,12)
    _matrix4._42 = get matrix4 element(source,13)    
    _matrix4._43 = get matrix4 element(source,14)
    _matrix4._44 = get matrix4 element(source,15)
    
endfunction