[How-To] 3D Raycasting/Picking From Screen Cursor

Author

Message

Clonkex

Forum Vice President

16

Years of Service

User Offline

Joined: 20th May 2010

Location: Northern Tablelands, NSW, Australia

Posted: 3rd Oct 2013 14:01 Edited at: 3rd Oct 2013 14:05

Link

Hi all,

On Lee's FPSC Reloaded blog, he asked for some help regarding picking a point on a terrain with the cursor, and since I also wanted to know this, I started experimenting.

At first I tried using the camera's FOV and calculating the angle, which theoretically should work but I must have been doing something wrong because I just couldn't get it to work. I'm sure it's a valid method, though...

So I starting researching it on the internet. In the end I decided it would be simplest to use the 3D Maths commands, however complicated. And it took literally a day and half of more-or-less constant work and a Stack Overflow question before I finally got it to work. Sure, I could have asked on these forums and someone would probably have been able to give me code right off the bat, but I wanted to do it myself.

And I did. It works. And I have a much better understanding of how things are rendered.

Following is the source code, in case anyone wants it. It requires Sparky's DLL (I did NOT know Sparky is Paul Johnston...very cool that he released the source code) if you want to run it as it is, but it can be used with any raycasting plugin (such as Dark Dynamix):

sync on
sync rate 0
autocam off
set display mode desktop width(),desktop height(),32,1
sync

global camrange=1000
global screenwidth#=0.0 //in vars to force floating maths
global screenheight#=0.0

screenwidth#=desktop width()
screenheight#=desktop height()

load object "test.x",1
make object sphere 2,0.4 //hit indicator

color object 2,rgb(255,0,0) //make the indicator bright red

//position object 1,0,0,80

sc_setupobject 1,0,0

move camera -80
move camera right 50

set camera range 1,1000

global m4_view=1
global m4_projection=2
global m4_viewproj=3
global v4_near=4
global v4_far=5
global v3_far=6

blank=make matrix4(m4_view)
blank=make matrix4(m4_projection)
blank=make matrix4(m4_viewproj)
blank=make vector4(v4_near)
blank=make vector4(v4_far)
blank=make vector3(v3_far)

projection matrix4 m4_projection

do
set cursor 0,0
print ""
print ""
print "HOLD RMB TO ROTATE CAMERA AND USE ARROW KEYS TO MOVE CAMERA"

view matrix4 m4_view //only necessary to update this matrix when the camera changes position/rotation
set vector4 v4_near,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),0,1
set vector4 v4_far,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),1,1
multiply matrix4 m4_viewproj,m4_view,m4_projection
blank=inverse matrix4(m4_viewproj,m4_viewproj)
transform vector4 v4_near,v4_near,m4_viewproj
transform vector4 v4_far,v4_far,m4_viewproj
set vector3 v3_far,x vector4(v4_far),y vector4(v4_far),z vector4(v4_far) //normalisation would be affected if it were a vec4
normalize vector3 v3_far,v3_far
multiply vector3 v3_far,camrange

hit=sc_raycast(1,x vector4(v4_near),y vector4(v4_near),z vector4(v4_near),x vector3(v3_far),y vector3(v3_far),z vector3(v3_far),0)
if hit=1 then position object 2,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()

gosub _cameracontrol

sync
loop

_cameracontrol:
if mouseclick()=2
 hide mouse
 movex#=mousemovex()/10.0
 movey#=mousemovey()/10.0
 yrotate camera camera angle y()+(movex#+oldmovex#)/2.0
 xrotate camera camera angle x()+(movey#+oldmovey#)/2.0
 position mouse screen width()/2,screen height()/2
 oldmovex#=movex#
 oldmovey#=movey#
 if camera angle x()>90 then rotate camera 90,camera angle y(),camera angle z()
 if camera angle x()<-90 then rotate camera -90,camera angle y(),camera angle z()
 if camera angle y()>360 then rotate camera camera angle x(),0,camera angle z()
 if camera angle y()<0 then rotate camera camera angle x(),360,camera angle z()
else
 show mouse
endif
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if leftkey()=1 then move camera left 1
if rightkey()=1 then move camera right 1
return

+ Code Snippet

sync on
sync rate 0
autocam off
set display mode desktop width(),desktop height(),32,1
sync

global camrange=1000
global screenwidth#=0.0 //in vars to force floating maths
global screenheight#=0.0

screenwidth#=desktop width()
screenheight#=desktop height()

load object "test.x",1
make object sphere 2,0.4 //hit indicator

color object 2,rgb(255,0,0) //make the indicator bright red

//position object 1,0,0,80

sc_setupobject 1,0,0

move camera -80
move camera right 50

set camera range 1,1000

global m4_view=1
global m4_projection=2
global m4_viewproj=3
global v4_near=4
global v4_far=5
global v3_far=6

blank=make matrix4(m4_view)
blank=make matrix4(m4_projection)
blank=make matrix4(m4_viewproj)
blank=make vector4(v4_near)
blank=make vector4(v4_far)
blank=make vector3(v3_far)

projection matrix4 m4_projection

do
set cursor 0,0
print ""
print ""
print "HOLD RMB TO ROTATE CAMERA AND USE ARROW KEYS TO MOVE CAMERA"

view matrix4 m4_view //only necessary to update this matrix when the camera changes position/rotation
set vector4 v4_near,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),0,1
set vector4 v4_far,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),1,1
multiply matrix4 m4_viewproj,m4_view,m4_projection
blank=inverse matrix4(m4_viewproj,m4_viewproj)
transform vector4 v4_near,v4_near,m4_viewproj
transform vector4 v4_far,v4_far,m4_viewproj
set vector3 v3_far,x vector4(v4_far),y vector4(v4_far),z vector4(v4_far) //normalisation would be affected if it were a vec4
normalize vector3 v3_far,v3_far
multiply vector3 v3_far,camrange

hit=sc_raycast(1,x vector4(v4_near),y vector4(v4_near),z vector4(v4_near),x vector3(v3_far),y vector3(v3_far),z vector3(v3_far),0)
if hit=1 then position object 2,sc_getstaticcollisionx(),sc_getstaticcollisiony(),sc_getstaticcollisionz()

gosub _cameracontrol

sync
loop

_cameracontrol:
if mouseclick()=2
 hide mouse
 movex#=mousemovex()/10.0
 movey#=mousemovey()/10.0
 yrotate camera camera angle y()+(movex#+oldmovex#)/2.0
 xrotate camera camera angle x()+(movey#+oldmovey#)/2.0
 position mouse screen width()/2,screen height()/2
 oldmovex#=movex#
 oldmovey#=movey#
 if camera angle x()>90 then rotate camera 90,camera angle y(),camera angle z()
 if camera angle x()<-90 then rotate camera -90,camera angle y(),camera angle z()
 if camera angle y()>360 then rotate camera camera angle x(),0,camera angle z()
 if camera angle y()<0 then rotate camera camera angle x(),360,camera angle z()
else
 show mouse
endif
if upkey()=1 then move camera 1
if downkey()=1 then move camera -1
if leftkey()=1 then move camera left 1
if rightkey()=1 then move camera right 1
return

If anyone doesn't understand it and really wants to use it I'm happy to provide detailed tutorials, or if you prefer just show you which bits to use

Oh, and here's the model file that it loads as a test. It's .x format, so just stick it in a text editor (notepad) and save as .x

xof 0303txt 0032

Frame Root {
  FrameTransformMatrix {
     1.000000, 0.000000, 0.000000, 0.000000,
     0.000000,-0.000000, 1.000000, 0.000000,
     0.000000, 1.000000, 0.000000, 0.000000,
     0.000000, 0.000000, 0.000000, 1.000000;;
  }
  Frame Cone {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
       0.000000,-1.541744, 1.970599, 1.000000;;
    }
    Mesh { // Cone mesh
      33;
       0.000000; 1.000000;-1.000000;,
       0.195090; 0.980785;-1.000000;,
       0.382683; 0.923880;-1.000000;,
       0.555570; 0.831470;-1.000000;,
       0.707107; 0.707107;-1.000000;,
       0.831470; 0.555570;-1.000000;,
       0.923880; 0.382683;-1.000000;,
       0.980785; 0.195090;-1.000000;,
       1.000000; 0.000000;-1.000000;,
       0.000000; 0.000000; 1.000000;,
       0.980785;-0.195090;-1.000000;,
       0.923880;-0.382683;-1.000000;,
       0.831470;-0.555570;-1.000000;,
       0.707107;-0.707107;-1.000000;,
       0.555570;-0.831470;-1.000000;,
       0.382683;-0.923880;-1.000000;,
       0.195090;-0.980785;-1.000000;,
      -0.000000;-1.000000;-1.000000;,
      -0.195091;-0.980785;-1.000000;,
      -0.382684;-0.923879;-1.000000;,
      -0.555571;-0.831469;-1.000000;,
      -0.707107;-0.707106;-1.000000;,
      -0.831470;-0.555570;-1.000000;,
      -0.923880;-0.382683;-1.000000;,
      -0.980785;-0.195089;-1.000000;,
      -1.000000; 0.000001;-1.000000;,
      -0.980785; 0.195091;-1.000000;,
      -0.923879; 0.382684;-1.000000;,
      -0.831469; 0.555571;-1.000000;,
      -0.707106; 0.707108;-1.000000;,
      -0.555569; 0.831470;-1.000000;,
      -0.382682; 0.923880;-1.000000;,
      -0.195089; 0.980786;-1.000000;;
      33;
      3;32,9,31;,
      3;1,9,0;,
      3;0,9,32;,
      3;2,9,1;,
      3;31,9,30;,
      3;30,9,29;,
      3;29,9,28;,
      3;28,9,27;,
      3;27,9,26;,
      3;26,9,25;,
      3;25,9,24;,
      3;24,9,23;,
      3;23,9,22;,
      3;22,9,21;,
      3;21,9,20;,
      3;20,9,19;,
      3;19,9,18;,
      3;18,9,17;,
      3;17,9,16;,
      3;16,9,15;,
      3;15,9,14;,
      3;14,9,13;,
      3;13,9,12;,
      3;12,9,11;,
      3;11,9,10;,
      3;10,9,8;,
      3;8,9,7;,
      3;7,9,6;,
      3;6,9,5;,
      3;5,9,4;,
      3;4,9,3;,
      3;3,9,2;,
      32;32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,8,7,6,5,4,3,2,1,0;;
      MeshNormals { // Cone normals
        33;
        -0.259887; 0.856737; 0.445488;,
         0.087754; 0.890977; 0.445488;,
        -0.087753; 0.890977; 0.445488;,
         0.259888; 0.856737; 0.445488;,
        -0.422035; 0.789574; 0.445488;,
        -0.567964; 0.692067; 0.445488;,
        -0.692066; 0.567965; 0.445488;,
        -0.789573; 0.422037; 0.445488;,
        -0.856737; 0.259889; 0.445488;,
        -0.890977; 0.087754; 0.445488;,
        -0.890977;-0.087753; 0.445488;,
        -0.856737;-0.259887; 0.445488;,
        -0.789574;-0.422035; 0.445488;,
        -0.692067;-0.567964; 0.445488;,
        -0.567965;-0.692066; 0.445488;,
        -0.422036;-0.789573; 0.445488;,
        -0.259889;-0.856737; 0.445488;,
        -0.087754;-0.890977; 0.445488;,
         0.087753;-0.890977; 0.445488;,
         0.259888;-0.856737; 0.445488;,
         0.422036;-0.789573; 0.445488;,
         0.567965;-0.692067; 0.445488;,
         0.692067;-0.567965; 0.445488;,
         0.789573;-0.422035; 0.445488;,
         0.856737;-0.259888; 0.445488;,
         0.890977;-0.087753; 0.445488;,
         0.890977; 0.087754; 0.445488;,
         0.856737; 0.259888; 0.445488;,
         0.789573; 0.422036; 0.445488;,
         0.692067; 0.567965; 0.445488;,
         0.567965; 0.692067; 0.445488;,
         0.422036; 0.789573; 0.445488;,
         0.000000; 0.000000;-1.000000;;
        33;
        3;0,0,0;,
        3;1,1,1;,
        3;2,2,2;,
        3;3,3,3;,
        3;4,4,4;,
        3;5,5,5;,
        3;6,6,6;,
        3;7,7,7;,
        3;8,8,8;,
        3;9,9,9;,
        3;10,10,10;,
        3;11,11,11;,
        3;12,12,12;,
        3;13,13,13;,
        3;14,14,14;,
        3;15,15,15;,
        3;16,16,16;,
        3;17,17,17;,
        3;18,18,18;,
        3;19,19,19;,
        3;20,20,20;,
        3;21,21,21;,
        3;22,22,22;,
        3;23,23,23;,
        3;24,24,24;,
        3;25,25,25;,
        3;26,26,26;,
        3;27,27,27;,
        3;28,28,28;,
        3;29,29,29;,
        3;30,30,30;,
        3;31,31,31;,
        32;32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32;;
      } // End of Cone normals
    } // End of Cone mesh
  } // End of Cone
  Frame Cube {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
       0.000000, 0.000000, 0.000000, 1.000000;;
    }
    Mesh { // Cube mesh
      8;
       1.000000; 1.000000;-1.000000;,
       1.000000;-1.000000;-1.000000;,
      -1.000000;-1.000000;-1.000000;,
      -1.000000; 1.000000;-1.000000;,
       1.000000; 0.999999; 1.000000;,
       0.999999;-1.000001; 1.000000;,
      -1.000000;-1.000000; 1.000000;,
      -1.000000; 1.000000; 1.000000;;
      6;
      4;3,2,1,0;,
      4;5,6,7,4;,
      4;1,5,4,0;,
      4;2,6,5,1;,
      4;3,7,6,2;,
      4;7,3,0,4;;
      MeshNormals { // Cube normals
        6;
         0.000000; 0.000000;-1.000000;,
         0.000000;-0.000000; 1.000000;,
         1.000000;-0.000000; 0.000000;,
        -0.000000;-1.000000;-0.000000;,
        -1.000000; 0.000000;-0.000000;,
         0.000000; 1.000000; 0.000000;;
        6;
        4;0,0,0,0;,
        4;1,1,1,1;,
        4;2,2,2,2;,
        4;3,3,3,3;,
        4;4,4,4,4;,
        4;5,5,5,5;;
      } // End of Cube normals
      MeshMaterialList { // Cube material list
        1;
        6;
        0,
        0,
        0,
        0,
        0,
        0;;
        Material Material {
           0.640000; 0.640000; 0.640000; 1.000000;;
           96.078431;
           0.500000; 0.500000; 0.500000;;
           0.000000; 0.000000; 0.000000;;
        }
      } // End of Cube material list
    } // End of Cube mesh
  } // End of Cube
  Frame Icosphere {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
      -1.403176, 1.515785, 1.160112, 1.000000;;
    }
    Mesh { // Icosphere mesh
      42;
       0.000000; 0.000000;-1.000000;,
       0.723607;-0.525725;-0.447220;,
      -0.276388;-0.850649;-0.447220;,
      -0.894426; 0.000000;-0.447216;,
      -0.276388; 0.850649;-0.447220;,
       0.723607; 0.525725;-0.447220;,
       0.276388;-0.850649; 0.447220;,
      -0.723607;-0.525725; 0.447220;,
      -0.723607; 0.525725; 0.447220;,
       0.276388; 0.850649; 0.447220;,
       0.894426; 0.000000; 0.447216;,
       0.000000; 0.000000; 1.000000;,
       0.425323;-0.309011;-0.850654;,
       0.262869;-0.809012;-0.525738;,
      -0.162456;-0.499995;-0.850654;,
       0.425323; 0.309011;-0.850654;,
       0.850648; 0.000000;-0.525736;,
      -0.688189;-0.499997;-0.525736;,
      -0.525730; 0.000000;-0.850652;,
      -0.688189; 0.499997;-0.525736;,
      -0.162456; 0.499995;-0.850654;,
       0.262869; 0.809012;-0.525738;,
       0.951058; 0.309013; 0.000000;,
       0.951058;-0.309013; 0.000000;,
       0.587786;-0.809017; 0.000000;,
       0.000000;-1.000000; 0.000000;,
      -0.587786;-0.809017; 0.000000;,
      -0.951058;-0.309013; 0.000000;,
      -0.951058; 0.309013; 0.000000;,
      -0.587786; 0.809017; 0.000000;,
       0.000000; 1.000000; 0.000000;,
       0.587786; 0.809017; 0.000000;,
       0.688189;-0.499997; 0.525736;,
      -0.262869;-0.809012; 0.525738;,
      -0.850648; 0.000000; 0.525736;,
      -0.262869; 0.809012; 0.525738;,
       0.688189; 0.499997; 0.525736;,
       0.525730; 0.000000; 0.850652;,
       0.162456;-0.499995; 0.850654;,
      -0.425323;-0.309011; 0.850654;,
      -0.425323; 0.309011; 0.850654;,
       0.162456; 0.499995; 0.850654;;
      80;
      3;14,12,0;,
      3;16,12,1;,
      3;18,14,0;,
      3;20,18,0;,
      3;15,20,0;,
      3;23,16,1;,
      3;25,13,2;,
      3;27,17,3;,
      3;29,19,4;,
      3;31,21,5;,
      3;24,23,1;,
      3;26,25,2;,
      3;28,27,3;,
      3;30,29,4;,
      3;22,31,5;,
      3;38,32,6;,
      3;39,33,7;,
      3;40,34,8;,
      3;41,35,9;,
      3;37,36,10;,
      3;2,13,14;,
      3;13,12,14;,
      3;13,1,12;,
      3;5,15,16;,
      3;15,12,16;,
      3;15,0,12;,
      3;3,17,18;,
      3;17,14,18;,
      3;17,2,14;,
      3;4,19,20;,
      3;19,18,20;,
      3;19,3,18;,
      3;5,21,15;,
      3;21,20,15;,
      3;21,4,20;,
      3;10,22,23;,
      3;22,16,23;,
      3;22,5,16;,
      3;6,24,25;,
      3;24,13,25;,
      3;24,1,13;,
      3;7,26,27;,
      3;26,17,27;,
      3;26,2,17;,
      3;8,28,29;,
      3;28,19,29;,
      3;28,3,19;,
      3;9,30,31;,
      3;30,21,31;,
      3;30,4,21;,
      3;6,32,24;,
      3;32,23,24;,
      3;32,10,23;,
      3;7,33,26;,
      3;33,25,26;,
      3;33,6,25;,
      3;8,34,28;,
      3;34,27,28;,
      3;34,7,27;,
      3;9,35,30;,
      3;35,29,30;,
      3;35,8,29;,
      3;10,36,22;,
      3;36,31,22;,
      3;36,9,31;,
      3;11,37,38;,
      3;37,32,38;,
      3;37,10,32;,
      3;11,38,39;,
      3;38,33,39;,
      3;38,6,33;,
      3;11,39,40;,
      3;39,34,40;,
      3;39,7,34;,
      3;11,40,41;,
      3;40,35,41;,
      3;40,8,35;,
      3;11,41,37;,
      3;41,36,37;,
      3;41,9,36;;
      MeshNormals { // Icosphere normals
        80;
         0.102381;-0.315090;-0.943523;,
         0.700224;-0.268032;-0.661699;,
        -0.268034;-0.194736;-0.943523;,
        -0.268034; 0.194737;-0.943523;,
         0.102381; 0.315090;-0.943523;,
         0.904989;-0.268032;-0.330385;,
         0.024747;-0.943521;-0.330386;,
        -0.889697;-0.315095;-0.330385;,
        -0.574602; 0.748784;-0.330388;,
         0.534576; 0.777865;-0.330387;,
         0.802609;-0.583126;-0.125627;,
        -0.306569;-0.943522;-0.125629;,
        -0.992077;-0.000000;-0.125628;,
        -0.306569; 0.943522;-0.125629;,
         0.802609; 0.583126;-0.125627;,
         0.408946;-0.628425; 0.661698;,
        -0.471300;-0.583122; 0.661699;,
        -0.700224; 0.268032; 0.661699;,
         0.038530; 0.748779; 0.661699;,
         0.724042; 0.194736; 0.661695;,
        -0.038530;-0.748779;-0.661699;,
         0.187594;-0.577345;-0.794658;,
         0.471300;-0.583122;-0.661699;,
         0.700224; 0.268032;-0.661699;,
         0.607060; 0.000000;-0.794656;,
         0.331305; 0.000000;-0.943524;,
        -0.724042;-0.194736;-0.661695;,
        -0.491119;-0.356821;-0.794657;,
        -0.408946;-0.628425;-0.661698;,
        -0.408946; 0.628425;-0.661698;,
        -0.491119; 0.356821;-0.794657;,
        -0.724042; 0.194736;-0.661695;,
         0.471300; 0.583122;-0.661699;,
         0.187594; 0.577345;-0.794658;,
        -0.038530; 0.748779;-0.661699;,
         0.992077; 0.000000; 0.125628;,
         0.982246; 0.000000;-0.187599;,
         0.904989; 0.268031;-0.330385;,
         0.306569;-0.943522; 0.125629;,
         0.303531;-0.934171;-0.187597;,
         0.534576;-0.777865;-0.330387;,
        -0.802609;-0.583126; 0.125627;,
        -0.794656;-0.577348;-0.187595;,
        -0.574602;-0.748784;-0.330388;,
        -0.802609; 0.583126; 0.125627;,
        -0.794656; 0.577348;-0.187595;,
        -0.889697; 0.315095;-0.330385;,
         0.306569; 0.943522; 0.125629;,
         0.303531; 0.934171;-0.187597;,
         0.024747; 0.943521;-0.330386;,
         0.574602;-0.748784; 0.330388;,
         0.794656;-0.577348; 0.187595;,
         0.889697;-0.315095; 0.330385;,
        -0.534576;-0.777865; 0.330387;,
        -0.303531;-0.934171; 0.187597;,
        -0.024747;-0.943521; 0.330386;,
        -0.904989; 0.268032; 0.330385;,
        -0.982246; 0.000000; 0.187599;,
        -0.904989;-0.268031; 0.330385;,
        -0.024747; 0.943521; 0.330386;,
        -0.303531; 0.934171; 0.187597;,
        -0.534576; 0.777865; 0.330387;,
         0.889697; 0.315095; 0.330385;,
         0.794656; 0.577348; 0.187595;,
         0.574602; 0.748784; 0.330388;,
         0.268034;-0.194737; 0.943523;,
         0.491119;-0.356821; 0.794657;,
         0.724042;-0.194736; 0.661695;,
        -0.102381;-0.315090; 0.943523;,
        -0.187594;-0.577345; 0.794658;,
         0.038530;-0.748779; 0.661699;,
        -0.331305; 0.000000; 0.943524;,
        -0.607060; 0.000000; 0.794656;,
        -0.700224;-0.268032; 0.661699;,
        -0.102381; 0.315090; 0.943523;,
        -0.187594; 0.577345; 0.794658;,
        -0.471300; 0.583122; 0.661699;,
         0.268034; 0.194737; 0.943523;,
         0.491119; 0.356821; 0.794657;,
         0.408946; 0.628425; 0.661699;;
        80;
        3;0,0,0;,
        3;1,1,1;,
        3;2,2,2;,
        3;3,3,3;,
        3;4,4,4;,
        3;5,5,5;,
        3;6,6,6;,
        3;7,7,7;,
        3;8,8,8;,
        3;9,9,9;,
        3;10,10,10;,
        3;11,11,11;,
        3;12,12,12;,
        3;13,13,13;,
        3;14,14,14;,
        3;15,15,15;,
        3;16,16,16;,
        3;17,17,17;,
        3;18,18,18;,
        3;19,19,19;,
        3;20,20,20;,
        3;21,21,21;,
        3;22,22,22;,
        3;23,23,23;,
        3;24,24,24;,
        3;25,25,25;,
        3;26,26,26;,
        3;27,27,27;,
        3;28,28,28;,
        3;29,29,29;,
        3;30,30,30;,
        3;31,31,31;,
        3;32,32,32;,
        3;33,33,33;,
        3;34,34,34;,
        3;35,35,35;,
        3;36,36,36;,
        3;37,37,37;,
        3;38,38,38;,
        3;39,39,39;,
        3;40,40,40;,
        3;41,41,41;,
        3;42,42,42;,
        3;43,43,43;,
        3;44,44,44;,
        3;45,45,45;,
        3;46,46,46;,
        3;47,47,47;,
        3;48,48,48;,
        3;49,49,49;,
        3;50,50,50;,
        3;51,51,51;,
        3;52,52,52;,
        3;53,53,53;,
        3;54,54,54;,
        3;55,55,55;,
        3;56,56,56;,
        3;57,57,57;,
        3;58,58,58;,
        3;59,59,59;,
        3;60,60,60;,
        3;61,61,61;,
        3;62,62,62;,
        3;63,63,63;,
        3;64,64,64;,
        3;65,65,65;,
        3;66,66,66;,
        3;67,67,67;,
        3;68,68,68;,
        3;69,69,69;,
        3;70,70,70;,
        3;71,71,71;,
        3;72,72,72;,
        3;73,73,73;,
        3;74,74,74;,
        3;75,75,75;,
        3;76,76,76;,
        3;77,77,77;,
        3;78,78,78;,
        3;79,79,79;;
      } // End of Icosphere normals
    } // End of Icosphere mesh
  } // End of Icosphere
} // End of Root

+ Code Snippet

xof 0303txt 0032

Frame Root {
  FrameTransformMatrix {
     1.000000, 0.000000, 0.000000, 0.000000,
     0.000000,-0.000000, 1.000000, 0.000000,
     0.000000, 1.000000, 0.000000, 0.000000,
     0.000000, 0.000000, 0.000000, 1.000000;;
  }
  Frame Cone {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
       0.000000,-1.541744, 1.970599, 1.000000;;
    }
    Mesh { // Cone mesh
      33;
       0.000000; 1.000000;-1.000000;,
       0.195090; 0.980785;-1.000000;,
       0.382683; 0.923880;-1.000000;,
       0.555570; 0.831470;-1.000000;,
       0.707107; 0.707107;-1.000000;,
       0.831470; 0.555570;-1.000000;,
       0.923880; 0.382683;-1.000000;,
       0.980785; 0.195090;-1.000000;,
       1.000000; 0.000000;-1.000000;,
       0.000000; 0.000000; 1.000000;,
       0.980785;-0.195090;-1.000000;,
       0.923880;-0.382683;-1.000000;,
       0.831470;-0.555570;-1.000000;,
       0.707107;-0.707107;-1.000000;,
       0.555570;-0.831470;-1.000000;,
       0.382683;-0.923880;-1.000000;,
       0.195090;-0.980785;-1.000000;,
      -0.000000;-1.000000;-1.000000;,
      -0.195091;-0.980785;-1.000000;,
      -0.382684;-0.923879;-1.000000;,
      -0.555571;-0.831469;-1.000000;,
      -0.707107;-0.707106;-1.000000;,
      -0.831470;-0.555570;-1.000000;,
      -0.923880;-0.382683;-1.000000;,
      -0.980785;-0.195089;-1.000000;,
      -1.000000; 0.000001;-1.000000;,
      -0.980785; 0.195091;-1.000000;,
      -0.923879; 0.382684;-1.000000;,
      -0.831469; 0.555571;-1.000000;,
      -0.707106; 0.707108;-1.000000;,
      -0.555569; 0.831470;-1.000000;,
      -0.382682; 0.923880;-1.000000;,
      -0.195089; 0.980786;-1.000000;;
      33;
      3;32,9,31;,
      3;1,9,0;,
      3;0,9,32;,
      3;2,9,1;,
      3;31,9,30;,
      3;30,9,29;,
      3;29,9,28;,
      3;28,9,27;,
      3;27,9,26;,
      3;26,9,25;,
      3;25,9,24;,
      3;24,9,23;,
      3;23,9,22;,
      3;22,9,21;,
      3;21,9,20;,
      3;20,9,19;,
      3;19,9,18;,
      3;18,9,17;,
      3;17,9,16;,
      3;16,9,15;,
      3;15,9,14;,
      3;14,9,13;,
      3;13,9,12;,
      3;12,9,11;,
      3;11,9,10;,
      3;10,9,8;,
      3;8,9,7;,
      3;7,9,6;,
      3;6,9,5;,
      3;5,9,4;,
      3;4,9,3;,
      3;3,9,2;,
      32;32,31,30,29,28,27,26,25,24,23,22,21,20,19,18,17,16,15,14,13,12,11,10,8,7,6,5,4,3,2,1,0;;
      MeshNormals { // Cone normals
        33;
        -0.259887; 0.856737; 0.445488;,
         0.087754; 0.890977; 0.445488;,
        -0.087753; 0.890977; 0.445488;,
         0.259888; 0.856737; 0.445488;,
        -0.422035; 0.789574; 0.445488;,
        -0.567964; 0.692067; 0.445488;,
        -0.692066; 0.567965; 0.445488;,
        -0.789573; 0.422037; 0.445488;,
        -0.856737; 0.259889; 0.445488;,
        -0.890977; 0.087754; 0.445488;,
        -0.890977;-0.087753; 0.445488;,
        -0.856737;-0.259887; 0.445488;,
        -0.789574;-0.422035; 0.445488;,
        -0.692067;-0.567964; 0.445488;,
        -0.567965;-0.692066; 0.445488;,
        -0.422036;-0.789573; 0.445488;,
        -0.259889;-0.856737; 0.445488;,
        -0.087754;-0.890977; 0.445488;,
         0.087753;-0.890977; 0.445488;,
         0.259888;-0.856737; 0.445488;,
         0.422036;-0.789573; 0.445488;,
         0.567965;-0.692067; 0.445488;,
         0.692067;-0.567965; 0.445488;,
         0.789573;-0.422035; 0.445488;,
         0.856737;-0.259888; 0.445488;,
         0.890977;-0.087753; 0.445488;,
         0.890977; 0.087754; 0.445488;,
         0.856737; 0.259888; 0.445488;,
         0.789573; 0.422036; 0.445488;,
         0.692067; 0.567965; 0.445488;,
         0.567965; 0.692067; 0.445488;,
         0.422036; 0.789573; 0.445488;,
         0.000000; 0.000000;-1.000000;;
        33;
        3;0,0,0;,
        3;1,1,1;,
        3;2,2,2;,
        3;3,3,3;,
        3;4,4,4;,
        3;5,5,5;,
        3;6,6,6;,
        3;7,7,7;,
        3;8,8,8;,
        3;9,9,9;,
        3;10,10,10;,
        3;11,11,11;,
        3;12,12,12;,
        3;13,13,13;,
        3;14,14,14;,
        3;15,15,15;,
        3;16,16,16;,
        3;17,17,17;,
        3;18,18,18;,
        3;19,19,19;,
        3;20,20,20;,
        3;21,21,21;,
        3;22,22,22;,
        3;23,23,23;,
        3;24,24,24;,
        3;25,25,25;,
        3;26,26,26;,
        3;27,27,27;,
        3;28,28,28;,
        3;29,29,29;,
        3;30,30,30;,
        3;31,31,31;,
        32;32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32;;
      } // End of Cone normals
    } // End of Cone mesh
  } // End of Cone
  Frame Cube {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
       0.000000, 0.000000, 0.000000, 1.000000;;
    }
    Mesh { // Cube mesh
      8;
       1.000000; 1.000000;-1.000000;,
       1.000000;-1.000000;-1.000000;,
      -1.000000;-1.000000;-1.000000;,
      -1.000000; 1.000000;-1.000000;,
       1.000000; 0.999999; 1.000000;,
       0.999999;-1.000001; 1.000000;,
      -1.000000;-1.000000; 1.000000;,
      -1.000000; 1.000000; 1.000000;;
      6;
      4;3,2,1,0;,
      4;5,6,7,4;,
      4;1,5,4,0;,
      4;2,6,5,1;,
      4;3,7,6,2;,
      4;7,3,0,4;;
      MeshNormals { // Cube normals
        6;
         0.000000; 0.000000;-1.000000;,
         0.000000;-0.000000; 1.000000;,
         1.000000;-0.000000; 0.000000;,
        -0.000000;-1.000000;-0.000000;,
        -1.000000; 0.000000;-0.000000;,
         0.000000; 1.000000; 0.000000;;
        6;
        4;0,0,0,0;,
        4;1,1,1,1;,
        4;2,2,2,2;,
        4;3,3,3,3;,
        4;4,4,4,4;,
        4;5,5,5,5;;
      } // End of Cube normals
      MeshMaterialList { // Cube material list
        1;
        6;
        0,
        0,
        0,
        0,
        0,
        0;;
        Material Material {
           0.640000; 0.640000; 0.640000; 1.000000;;
           96.078431;
           0.500000; 0.500000; 0.500000;;
           0.000000; 0.000000; 0.000000;;
        }
      } // End of Cube material list
    } // End of Cube mesh
  } // End of Cube
  Frame Icosphere {
    FrameTransformMatrix {
       1.000000, 0.000000, 0.000000, 0.000000,
       0.000000, 1.000000, 0.000000, 0.000000,
       0.000000, 0.000000, 1.000000, 0.000000,
      -1.403176, 1.515785, 1.160112, 1.000000;;
    }
    Mesh { // Icosphere mesh
      42;
       0.000000; 0.000000;-1.000000;,
       0.723607;-0.525725;-0.447220;,
      -0.276388;-0.850649;-0.447220;,
      -0.894426; 0.000000;-0.447216;,
      -0.276388; 0.850649;-0.447220;,
       0.723607; 0.525725;-0.447220;,
       0.276388;-0.850649; 0.447220;,
      -0.723607;-0.525725; 0.447220;,
      -0.723607; 0.525725; 0.447220;,
       0.276388; 0.850649; 0.447220;,
       0.894426; 0.000000; 0.447216;,
       0.000000; 0.000000; 1.000000;,
       0.425323;-0.309011;-0.850654;,
       0.262869;-0.809012;-0.525738;,
      -0.162456;-0.499995;-0.850654;,
       0.425323; 0.309011;-0.850654;,
       0.850648; 0.000000;-0.525736;,
      -0.688189;-0.499997;-0.525736;,
      -0.525730; 0.000000;-0.850652;,
      -0.688189; 0.499997;-0.525736;,
      -0.162456; 0.499995;-0.850654;,
       0.262869; 0.809012;-0.525738;,
       0.951058; 0.309013; 0.000000;,
       0.951058;-0.309013; 0.000000;,
       0.587786;-0.809017; 0.000000;,
       0.000000;-1.000000; 0.000000;,
      -0.587786;-0.809017; 0.000000;,
      -0.951058;-0.309013; 0.000000;,
      -0.951058; 0.309013; 0.000000;,
      -0.587786; 0.809017; 0.000000;,
       0.000000; 1.000000; 0.000000;,
       0.587786; 0.809017; 0.000000;,
       0.688189;-0.499997; 0.525736;,
      -0.262869;-0.809012; 0.525738;,
      -0.850648; 0.000000; 0.525736;,
      -0.262869; 0.809012; 0.525738;,
       0.688189; 0.499997; 0.525736;,
       0.525730; 0.000000; 0.850652;,
       0.162456;-0.499995; 0.850654;,
      -0.425323;-0.309011; 0.850654;,
      -0.425323; 0.309011; 0.850654;,
       0.162456; 0.499995; 0.850654;;
      80;
      3;14,12,0;,
      3;16,12,1;,
      3;18,14,0;,
      3;20,18,0;,
      3;15,20,0;,
      3;23,16,1;,
      3;25,13,2;,
      3;27,17,3;,
      3;29,19,4;,
      3;31,21,5;,
      3;24,23,1;,
      3;26,25,2;,
      3;28,27,3;,
      3;30,29,4;,
      3;22,31,5;,
      3;38,32,6;,
      3;39,33,7;,
      3;40,34,8;,
      3;41,35,9;,
      3;37,36,10;,
      3;2,13,14;,
      3;13,12,14;,
      3;13,1,12;,
      3;5,15,16;,
      3;15,12,16;,
      3;15,0,12;,
      3;3,17,18;,
      3;17,14,18;,
      3;17,2,14;,
      3;4,19,20;,
      3;19,18,20;,
      3;19,3,18;,
      3;5,21,15;,
      3;21,20,15;,
      3;21,4,20;,
      3;10,22,23;,
      3;22,16,23;,
      3;22,5,16;,
      3;6,24,25;,
      3;24,13,25;,
      3;24,1,13;,
      3;7,26,27;,
      3;26,17,27;,
      3;26,2,17;,
      3;8,28,29;,
      3;28,19,29;,
      3;28,3,19;,
      3;9,30,31;,
      3;30,21,31;,
      3;30,4,21;,
      3;6,32,24;,
      3;32,23,24;,
      3;32,10,23;,
      3;7,33,26;,
      3;33,25,26;,
      3;33,6,25;,
      3;8,34,28;,
      3;34,27,28;,
      3;34,7,27;,
      3;9,35,30;,
      3;35,29,30;,
      3;35,8,29;,
      3;10,36,22;,
      3;36,31,22;,
      3;36,9,31;,
      3;11,37,38;,
      3;37,32,38;,
      3;37,10,32;,
      3;11,38,39;,
      3;38,33,39;,
      3;38,6,33;,
      3;11,39,40;,
      3;39,34,40;,
      3;39,7,34;,
      3;11,40,41;,
      3;40,35,41;,
      3;40,8,35;,
      3;11,41,37;,
      3;41,36,37;,
      3;41,9,36;;
      MeshNormals { // Icosphere normals
        80;
         0.102381;-0.315090;-0.943523;,
         0.700224;-0.268032;-0.661699;,
        -0.268034;-0.194736;-0.943523;,
        -0.268034; 0.194737;-0.943523;,
         0.102381; 0.315090;-0.943523;,
         0.904989;-0.268032;-0.330385;,
         0.024747;-0.943521;-0.330386;,
        -0.889697;-0.315095;-0.330385;,
        -0.574602; 0.748784;-0.330388;,
         0.534576; 0.777865;-0.330387;,
         0.802609;-0.583126;-0.125627;,
        -0.306569;-0.943522;-0.125629;,
        -0.992077;-0.000000;-0.125628;,
        -0.306569; 0.943522;-0.125629;,
         0.802609; 0.583126;-0.125627;,
         0.408946;-0.628425; 0.661698;,
        -0.471300;-0.583122; 0.661699;,
        -0.700224; 0.268032; 0.661699;,
         0.038530; 0.748779; 0.661699;,
         0.724042; 0.194736; 0.661695;,
        -0.038530;-0.748779;-0.661699;,
         0.187594;-0.577345;-0.794658;,
         0.471300;-0.583122;-0.661699;,
         0.700224; 0.268032;-0.661699;,
         0.607060; 0.000000;-0.794656;,
         0.331305; 0.000000;-0.943524;,
        -0.724042;-0.194736;-0.661695;,
        -0.491119;-0.356821;-0.794657;,
        -0.408946;-0.628425;-0.661698;,
        -0.408946; 0.628425;-0.661698;,
        -0.491119; 0.356821;-0.794657;,
        -0.724042; 0.194736;-0.661695;,
         0.471300; 0.583122;-0.661699;,
         0.187594; 0.577345;-0.794658;,
        -0.038530; 0.748779;-0.661699;,
         0.992077; 0.000000; 0.125628;,
         0.982246; 0.000000;-0.187599;,
         0.904989; 0.268031;-0.330385;,
         0.306569;-0.943522; 0.125629;,
         0.303531;-0.934171;-0.187597;,
         0.534576;-0.777865;-0.330387;,
        -0.802609;-0.583126; 0.125627;,
        -0.794656;-0.577348;-0.187595;,
        -0.574602;-0.748784;-0.330388;,
        -0.802609; 0.583126; 0.125627;,
        -0.794656; 0.577348;-0.187595;,
        -0.889697; 0.315095;-0.330385;,
         0.306569; 0.943522; 0.125629;,
         0.303531; 0.934171;-0.187597;,
         0.024747; 0.943521;-0.330386;,
         0.574602;-0.748784; 0.330388;,
         0.794656;-0.577348; 0.187595;,
         0.889697;-0.315095; 0.330385;,
        -0.534576;-0.777865; 0.330387;,
        -0.303531;-0.934171; 0.187597;,
        -0.024747;-0.943521; 0.330386;,
        -0.904989; 0.268032; 0.330385;,
        -0.982246; 0.000000; 0.187599;,
        -0.904989;-0.268031; 0.330385;,
        -0.024747; 0.943521; 0.330386;,
        -0.303531; 0.934171; 0.187597;,
        -0.534576; 0.777865; 0.330387;,
         0.889697; 0.315095; 0.330385;,
         0.794656; 0.577348; 0.187595;,
         0.574602; 0.748784; 0.330388;,
         0.268034;-0.194737; 0.943523;,
         0.491119;-0.356821; 0.794657;,
         0.724042;-0.194736; 0.661695;,
        -0.102381;-0.315090; 0.943523;,
        -0.187594;-0.577345; 0.794658;,
         0.038530;-0.748779; 0.661699;,
        -0.331305; 0.000000; 0.943524;,
        -0.607060; 0.000000; 0.794656;,
        -0.700224;-0.268032; 0.661699;,
        -0.102381; 0.315090; 0.943523;,
        -0.187594; 0.577345; 0.794658;,
        -0.471300; 0.583122; 0.661699;,
         0.268034; 0.194737; 0.943523;,
         0.491119; 0.356821; 0.794657;,
         0.408946; 0.628425; 0.661699;;
        80;
        3;0,0,0;,
        3;1,1,1;,
        3;2,2,2;,
        3;3,3,3;,
        3;4,4,4;,
        3;5,5,5;,
        3;6,6,6;,
        3;7,7,7;,
        3;8,8,8;,
        3;9,9,9;,
        3;10,10,10;,
        3;11,11,11;,
        3;12,12,12;,
        3;13,13,13;,
        3;14,14,14;,
        3;15,15,15;,
        3;16,16,16;,
        3;17,17,17;,
        3;18,18,18;,
        3;19,19,19;,
        3;20,20,20;,
        3;21,21,21;,
        3;22,22,22;,
        3;23,23,23;,
        3;24,24,24;,
        3;25,25,25;,
        3;26,26,26;,
        3;27,27,27;,
        3;28,28,28;,
        3;29,29,29;,
        3;30,30,30;,
        3;31,31,31;,
        3;32,32,32;,
        3;33,33,33;,
        3;34,34,34;,
        3;35,35,35;,
        3;36,36,36;,
        3;37,37,37;,
        3;38,38,38;,
        3;39,39,39;,
        3;40,40,40;,
        3;41,41,41;,
        3;42,42,42;,
        3;43,43,43;,
        3;44,44,44;,
        3;45,45,45;,
        3;46,46,46;,
        3;47,47,47;,
        3;48,48,48;,
        3;49,49,49;,
        3;50,50,50;,
        3;51,51,51;,
        3;52,52,52;,
        3;53,53,53;,
        3;54,54,54;,
        3;55,55,55;,
        3;56,56,56;,
        3;57,57,57;,
        3;58,58,58;,
        3;59,59,59;,
        3;60,60,60;,
        3;61,61,61;,
        3;62,62,62;,
        3;63,63,63;,
        3;64,64,64;,
        3;65,65,65;,
        3;66,66,66;,
        3;67,67,67;,
        3;68,68,68;,
        3;69,69,69;,
        3;70,70,70;,
        3;71,71,71;,
        3;72,72,72;,
        3;73,73,73;,
        3;74,74,74;,
        3;75,75,75;,
        3;76,76,76;,
        3;77,77,77;,
        3;78,78,78;,
        3;79,79,79;;
      } // End of Icosphere normals
    } // End of Icosphere mesh
  } // End of Icosphere
} // End of Root

Placement Editor Professional
Code Line Counter

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 3rd Oct 2013 15:11

Link

I swear you can just use Pick Object, multiply the pick vector by 2 and add camera position and this is your mouse cursor position for the raycast.

"Get in the Van!" - Van B

Back to top

Profile PM Email

LeeBamber

TGC Lead Developer

26

Years of Service

User Offline

Joined: 21st Jan 2000

Location: England

Posted: 3rd Oct 2013 16:55 Edited at: 3rd Oct 2013 16:56

Link

Care to prove it

Hogging the awesome since 1999

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 3rd Oct 2013 17:10 Edited at: 3rd Oct 2013 17:26

Link

Quote: "Care to prove it"

Proved

sync on : sync rate 60
autocam off

// load object
load object "a.x",1,0
position object 1,0,0,10
SC_setupComplexObject 1 , 0 , 2

// set up hit indicator
make object sphere 2,0.2
color object 2,rgb(255,0,0)

do

_mouseX# = mousex()
    _mouseY# = mousey()
    _mouseVelocityX# = mousemovex()
    _mouseVelocityY# = mousemovey()
    
    // update camera
    if mouseclick() = 2
        hide mouse
        cameraAngX# = clamp(cameraAngX# + (_mouseVelocityY# * .24),-89.9,89.9)
        cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
        rotate camera cameraAngX#, cameraAngY#, 0
        if (upkey() || keystate(17)) then move camera 0.24
        if (downkey() || keystate(31)) then move camera -0.24
        if (leftkey() || keystate(30)) then move camera right -0.24
        if (rightkey() || keystate(32)) then move camera right 0.24
    else
        show mouse
    endif

// get intersection at mouse x/y
    if pick object( _mouseX# , _mouseY# , 1 , 1 ) and mouseclick() = 0
        x# = (get pick vector x() * 2) + camera position x()
        y# = (get pick vector y() * 2) + camera position y()
        z# = (get pick vector z() * 2) + camera position z()
    endif
	
	// update hit indicator
    if SC_rayCast(0,camera position x(),camera position y(),camera position z(),x#,y#,z#,0)
        position object 2,SC_GetStaticCollisionX(),SC_GetStaticCollisionY(),SC_GetStaticCollisionZ()
    endif

text 0,0,"Hold RMB to move camera WASD/DPAD, mouse to rotate"

sync
loop

+ Code Snippet

sync on : sync rate 60
autocam off

// load object
load object "a.x",1,0
position object 1,0,0,10
SC_setupComplexObject 1 , 0 , 2

// set up hit indicator
make object sphere 2,0.2
color object 2,rgb(255,0,0)

do

    _mouseX# = mousex()
    _mouseY# = mousey()
    _mouseVelocityX# = mousemovex()
    _mouseVelocityY# = mousemovey()
    
    // update camera
    if mouseclick() = 2
        hide mouse
        cameraAngX# = clamp(cameraAngX# + (_mouseVelocityY# * .24),-89.9,89.9)
        cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
        rotate camera cameraAngX#, cameraAngY#, 0
        if (upkey() || keystate(17)) then move camera 0.24
        if (downkey() || keystate(31)) then move camera -0.24
        if (leftkey() || keystate(30)) then move camera right -0.24
        if (rightkey() || keystate(32)) then move camera right 0.24
    else
        show mouse
    endif

    // get intersection at mouse x/y
    if pick object( _mouseX# , _mouseY# , 1 , 1 ) and mouseclick() = 0
        x# = (get pick vector x() * 2) + camera position x()
        y# = (get pick vector y() * 2) + camera position y()
        z# = (get pick vector z() * 2) + camera position z()
    endif
	
	// update hit indicator
    if SC_rayCast(0,camera position x(),camera position y(),camera position z(),x#,y#,z#,0)
        position object 2,SC_GetStaticCollisionX(),SC_GetStaticCollisionY(),SC_GetStaticCollisionZ()
    endif

    text 0,0,"Hold RMB to move camera WASD/DPAD, mouse to rotate"

    sync
loop

Note: just replace object 1 with whatever coz I used his mesh

"Get in the Van!" - Van B

Back to top

Profile PM Email

Clonkex

Forum Vice President

16

Years of Service

User Offline

Joined: 20th May 2010

Location: Northern Tablelands, NSW, Australia

Posted: 4th Oct 2013 04:18 Edited at: 4th Oct 2013 05:01

Link

No, your method will not work. If you move your camera inside the bounding box of the terrain it will not hit anything, since pick object picks the bounding box.

Hooray my method is still better

Placement Editor Professional
Code Line Counter

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Oct 2013 11:15

Link

Oh... We're dealing with terrain. Well I've got another way then... give me a moment

"Get in the Van!" - Van B

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 4th Oct 2013 11:35 Edited at: 4th Oct 2013 11:43

Link

I've already done this in my engine last year.

You would not be able to run this straight off the bat, due to it requiring my trigger system, but the picking procedure highlighted below.

It is not as fancy as Clonex's solution nor the most elaborate feature given much attention yet as I reminded myself in the code comment ('Not pretty'), but it works:

//==================================================
Function HandleBlitzTerrainPick(id)
  If Not TryInt(TerrainPickers(id).ITerrain, 0) Then ExitFunction 0
  Local iTerrain : iTerrain = Ints( TerrainPickers(id).ITerrain )
  
  If BT TerrainExist(iTerrain)
    If Not Terrains(iTerrain).IsBlitzTerrain
      ExitFunction 0
    endif
  Else
    ExitFunction 0
  EndIf
  
  ax# = Camera Angle X()
  ay# = Camera Angle Y()
  az# = Camera Angle Z()
  cx# = Camera Position X()
  cy# = Camera Position Y()
  cz# = Camera Position Z()
  
  Set Vector3 TerrainPickerVec, Get Pick Vector X() + cx#, Get Pick Vector Y() + cy#, Get Pick Vector Z() + cz#
  
  // Look at where we are clicking
  Point Camera At Vector3 Current Camera(), TerrainPickerVec

` Not pretty, but blitz has no intersect object command
  ` therefore find the nearest point to the ground progressively
  repeat
      move camera BlitzTerrainPickPrecision#
      inc mc
      cx# = camera position x()
      cz# = camera position z()
      h# = BT GetGroundHeight(iTerrain,cx#,cz#)
      maxc = (2*BT GetTerrainSize(iTerrain))
  until (camera position y() < h#) or  mc > maxc
  UpdateVec3( TerrainPickers(id).Vec3PickResultPos, cx#, h#, cz# ) ` Update a vector3 property; basically it is Set Vector3 with some update calls
  
  Position Camera cx#, cy#, cz#  
  Rotate Camera ax#, ay#, az#
endfunction 1

+ Code Snippet

//==================================================
Function HandleBlitzTerrainPick(id)
  If Not TryInt(TerrainPickers(id).ITerrain, 0) Then ExitFunction 0
  Local iTerrain : iTerrain = Ints( TerrainPickers(id).ITerrain )
  
  If BT TerrainExist(iTerrain)
    If Not Terrains(iTerrain).IsBlitzTerrain
      ExitFunction 0
    endif
  Else
    ExitFunction 0
  EndIf
  
  ax# = Camera Angle X()
  ay# = Camera Angle Y()
  az# = Camera Angle Z()
  cx# = Camera Position X()
  cy# = Camera Position Y()
  cz# = Camera Position Z()
  
  Set Vector3 TerrainPickerVec, Get Pick Vector X() + cx#, Get Pick Vector Y() + cy#, Get Pick Vector Z() + cz#
  
  // Look at where we are clicking
  Point Camera At Vector3 Current Camera(), TerrainPickerVec

  ` Not pretty, but blitz has no intersect object command
  ` therefore find the nearest point to the ground progressively
  repeat
      move camera BlitzTerrainPickPrecision#
      inc mc
      cx# = camera position x()
      cz# = camera position z()
      h# = BT GetGroundHeight(iTerrain,cx#,cz#)
      maxc = (2*BT GetTerrainSize(iTerrain))
  until (camera position y() < h#) or  mc > maxc
  UpdateVec3( TerrainPickers(id).Vec3PickResultPos, cx#, h#, cz# ) ` Update a vector3 property; basically it is Set Vector3 with some update calls
  
  Position Camera cx#, cy#, cz#  
  Rotate Camera ax#, ay#, az#
endfunction 1

It simply uses something as a projectile that moves until it is underneath the terrain by a given measurement, say a few inches.

When I get round to optimizing it, I will use a reverse-factorial recursion loop to reduce the number of iterations required for long distance picking.

It is a bit more OOP because I've treated terrain picking as something entities and AI can perform aswell.

Full terrain picking library:

`BinaryModularZeroOne
`Terrain_Pickers.dba
`======================

` TODO - Only supports blitz. Handle advanced terrain, physics and sparkys collision
Type TerrainPickerType
  Info as InfoType
  UpdateDue
  
  ISite
  IEnabler
  ICamera
  IUpdateRate
  IPick
  ITrackMouse
  FPickDistance
  ITerrain
  
  IPickMarkerObject
  IPickMarkerLimb
  IPickMarkerSprite
  
  Vec2ViewPos
  Vec3PickResultPos
  
  PickedSoundSource
  PickedEvent
  ITriggerPicked
  IPickSoundSource
  IUnPickedSoundSource
  
  UnPickedEvent
  ITriggerUnPicked
  
EndType

//==================================================
Function SetupTerrainPickers()
  Global Dim TerrainPickers(0) as TerrainPickerType
  Global TerrainPickerVec : TerrainPickerVec = New Vector3()
  ` Statistics
  Global TerrainPickersCurrentlyActive
  Global TerrainPickersCurrentlyActiveStat : TerrainPickersCurrentlyActiveStat = AddStat(\"TerrainPickers\",\"TerrainPickers Active This Frame\", 0, 0.0, 1, 0, 0)
EndFunction
//==================================================
Function TerrainPickerExist(id)
  If id > 0
    If id <= __n (TerrainPickers())
      ExitFunction 1
    EndIf     
  EndIf   
EndFunction 0
//==================================================
Function AddTerrainPicker( sName$, iSite, fPickDist# )
  _New TerrainPickers() : n = __n (TerrainPickers())
  TerrainPickers(n) = TerrainPickers(0)
  TerrainPickers(n).Info.Name$ = Def$( sName$, \"TerrainPicker[\" + Str$(n) + \"]\" )
  TerrainPickers(n).ISite = AddInt( iSite )
  TerrainPickers(n).IEnabler= AddInt( 1 )
  TerrainPickers(n).IPick = AddInt( 1 )
  TerrainPickers(n).ICamera = AddInt( 0 )
  TerrainPickers(n).IUpdateRate = MakeInt(sName$ + \".UpdateRate\", iUpdateRate)
  TerrainPickers(n).FPickDistance = MakeFloat(sName$ + \".PickDistance\" , fPickDist#)
  TerrainPickers(n).Vec2ViewPos = MakeVec2(sName$ + \".PickViewPos\", 0.0, 0.0 )
  TerrainPickers(n).ITrackMouse = AddInt(0)
  TerrainPickers(n).Vec3PickResultPos = MakeVec3(sName$ + \".PickResultPos\" , 0.0, 0.0, 0.0)
EndFunction  n
//==================================================
Function UpdateTerrainPickers()
  Local iCount
  Local id
  
  iCount = __n (TerrainPickers())
  Status(\"Updating \" + Str$(iCount) + \" terrain pickers\", \"\", -)
  For id = 1 to iCount
    If UseInt( TerrainPickers(id).IEnabler )  
      If SiteIsActive( Ints(  TerrainPickers(id).ISite ) )      
        If TerrainPickers(id).UpdateDue <= Timer()
          //----------------------
          If UseInt( TerrainPickers(id).IPick )
            HandleTerrainPicking(id)
            HandleTerrainPickMarkers(id)
          EndIf
          Inc TerrainPickersCurrentlyActive
          //----------------------
          TerrainPickers(id).UpdateDue = Timer() + Max(TryInt( TerrainPickers(id).IUpdateRate, 0), 0)
        EndIf
      EndIf
    EndIf
  Next id
  
  ` Stats
  SetStat(TerrainPickersCurrentlyActiveStat, TerrainPickersCurrentlyActive, 0.0)
  TerrainPickersCurrentlyActive = 0
EndFunction

//==================================================
Function TerrainPicker$(id)
  Local s$
  If TerrainPickerExist(id)
    s$ = Def$( TerrainPickers(id).Info.Name$ , \"TerrainPicker\")
    s$ = s$ + \" [Index: \" + Str$(id) + \"]\"
  Else
    s$ = \"Undefined_TerrainPicker [Index: \" + Str$(id) + \"]\"
  EndIf   
EndFunction s$

//==================================================
Function HandleTerrainPicking(id)
  Local iOldCam : iOldCam = Current Camera()
  Local px
  Local py
  Local fPickDist# : fPickDist# = UseFloat#( TerrainPickers(id).FPickDistance )
  If fPickDist# = 0.0 Then ExitFunction
  
  ` Get camera view location
  If TryInt( TerrainPickers(id).ITrackMouse, 0 )
    px = MouseLocX()
    py = MouseLocY()
    TryUpdateVec2( TerrainPickers(id).Vec2ViewPos, px, py)
  Else
    px = UseVec2X(  TerrainPickers(id).Vec2ViewPos )
    py = UseVec2Y(  TerrainPickers(id).Vec2ViewPos )
  EndIf
  
  Set Current Camera TryInt( TerrainPickers(id).ICamera, 0 )
  
  ` Pick the view
  Pick Screen px, py,fPickDist#
  Local iPicked = 0
  
  If Not HandleBlitzTerrainPick(id)
    `If Not HandleAdvancedTerrainPick(id)
      ` If Not HandlePhyTerrainPick(id)
        ` If HandleFuncTerrainPick(id) Then iPicked = 1
      `Else
      `  iPicked = 1
      ` EndIf
    `Else
      ` iPicked = 1
    `endif
  Else
    iPicked = 1
  EndIf

If iPicked
    `TryPlaySoundSource( TryInt(TerrainPickers(id).IPickSoundSource, 0 ) )
    TryRaiseEvent( TerrainPickers(id).PickedEvent )
    TryTriggerInt( TerrainPickers(id).ITriggerPicked, id, 0  )
  Else
    `TryPlaySoundSource( TryInt(TerrainPickers(id).IUnPickedSoundSource, 0 ) )
    TryRaiseEvent( TerrainPickers(id).UnPickedEvent )
    TryTriggerInt( TerrainPickers(id).ITriggerUnPicked, id, 0  )    
  endif
  Set Current Camera iOldCam
EndFunction

//==================================================
Function HandleBlitzTerrainPick(id)
  If Not TryInt(TerrainPickers(id).ITerrain, 0) Then ExitFunction 0
  Local iTerrain : iTerrain = Ints( TerrainPickers(id).ITerrain )
  
  If BT TerrainExist(iTerrain)
    If Not Terrains(iTerrain).IsBlitzTerrain
      ExitFunction 0
    endif
  Else
    ExitFunction 0
  EndIf
  
  ax# = Camera Angle X()
  ay# = Camera Angle Y()
  az# = Camera Angle Z()
  cx# = Camera Position X()
  cy# = Camera Position Y()
  cz# = Camera Position Z()
  
  Set Vector3 TerrainPickerVec, Get Pick Vector X() + cx#, Get Pick Vector Y() + cy#, Get Pick Vector Z() + cz#
  
  // Look at where we are clicking
  Point Camera At Vector3 Current Camera(), TerrainPickerVec

` Not pretty, but blitz has no intersect object command
  ` therefore find the nearest point to the ground progressively
  repeat
      move camera BlitzTerrainPickPrecision#
      inc mc
      cx# = camera position x()
      cz# = camera position z()
      h# = BT GetGroundHeight(iTerrain,cx#,cz#)
      maxc = (2*BT GetTerrainSize(iTerrain))
  until (camera position y() < h#) or  mc > maxc
  UpdateVec3( TerrainPickers(id).Vec3PickResultPos, cx#, h#, cz# )
  
  Position Camera cx#, cy#, cz#  
  Rotate Camera ax#, ay#, az#
endfunction 1

//==================================================
Function HandleTerrainPickMarkers(id)
  Local spr : spr = TryInt( TerrainPickers(id).IPickMarkerSprite, 0 )
  Local ob : ob = TryInt( TerrainPickers(id).IPickMarkerObject, 0 )
  Local lmb : lmb  = TryInt( TerrainPickers(id).IPickMarkerLimb, 0 )
  If SpriteExist(spr)
    Sprite spr, X Vector2 ( TerrainPickers(id).Vec2ViewPos ), Y Vector2 ( TerrainPickers(id).Vec2ViewPos ), Sprite Image(spr)
  endif
  If lmb <= 0
    If ObjectExist( ob )
      Position Object At Vector3 ob, TerrainPickers(id).Vec3PickResultPos
    EndIf
  Else
    If LimbExist(ob, lmb)
      v = TerrainPickers(id).Vec3PickResultPos
      Offset Limb ob, lmb, X Vector3(v) - Object Position X(ob), Y Vector3(v) - Object Position Y(ob), Z Vector3(v) - Object Position Z(ob)
    Endif
  Endif  
Endfunction

+ Code Snippet

`BinaryModularZeroOne
`Terrain_Pickers.dba
`======================

` TODO - Only supports blitz. Handle advanced terrain, physics and sparkys collision
Type TerrainPickerType
  Info as InfoType
  UpdateDue
  
  ISite
  IEnabler
  ICamera
  IUpdateRate
  IPick
  ITrackMouse
  FPickDistance
  ITerrain
  
  IPickMarkerObject
  IPickMarkerLimb
  IPickMarkerSprite
  
  Vec2ViewPos
  Vec3PickResultPos
  
  PickedSoundSource
  PickedEvent
  ITriggerPicked
  IPickSoundSource
  IUnPickedSoundSource
  
  UnPickedEvent
  ITriggerUnPicked
  
EndType

//==================================================
Function SetupTerrainPickers()
  Global Dim TerrainPickers(0) as TerrainPickerType
  Global TerrainPickerVec : TerrainPickerVec = New Vector3()
  ` Statistics
  Global TerrainPickersCurrentlyActive
  Global TerrainPickersCurrentlyActiveStat : TerrainPickersCurrentlyActiveStat = AddStat(\"TerrainPickers\",\"TerrainPickers Active This Frame\", 0, 0.0, 1, 0, 0)
EndFunction
//==================================================
Function TerrainPickerExist(id)
  If id > 0
    If id <= __n (TerrainPickers())
      ExitFunction 1
    EndIf     
  EndIf   
EndFunction 0
//==================================================
Function AddTerrainPicker( sName$, iSite, fPickDist# )
  _New TerrainPickers() : n = __n (TerrainPickers())
  TerrainPickers(n) = TerrainPickers(0)
  TerrainPickers(n).Info.Name$ = Def$( sName$, \"TerrainPicker[\" + Str$(n) + \"]\" )
  TerrainPickers(n).ISite = AddInt( iSite )
  TerrainPickers(n).IEnabler= AddInt( 1 )
  TerrainPickers(n).IPick = AddInt( 1 )
  TerrainPickers(n).ICamera = AddInt( 0 )
  TerrainPickers(n).IUpdateRate = MakeInt(sName$ + \".UpdateRate\", iUpdateRate)
  TerrainPickers(n).FPickDistance = MakeFloat(sName$ + \".PickDistance\" , fPickDist#)
  TerrainPickers(n).Vec2ViewPos = MakeVec2(sName$ + \".PickViewPos\", 0.0, 0.0 )
  TerrainPickers(n).ITrackMouse = AddInt(0)
  TerrainPickers(n).Vec3PickResultPos = MakeVec3(sName$ + \".PickResultPos\" , 0.0, 0.0, 0.0)
EndFunction  n
//==================================================
Function UpdateTerrainPickers()
  Local iCount
  Local id
  
  iCount = __n (TerrainPickers())
  Status(\"Updating \" + Str$(iCount) + \" terrain pickers\", \"\", -)
  For id = 1 to iCount
    If UseInt( TerrainPickers(id).IEnabler )  
      If SiteIsActive( Ints(  TerrainPickers(id).ISite ) )      
        If TerrainPickers(id).UpdateDue <= Timer()
          //----------------------
          If UseInt( TerrainPickers(id).IPick )
            HandleTerrainPicking(id)
            HandleTerrainPickMarkers(id)
          EndIf
          Inc TerrainPickersCurrentlyActive
          //----------------------
          TerrainPickers(id).UpdateDue = Timer() + Max(TryInt( TerrainPickers(id).IUpdateRate, 0), 0)
        EndIf
      EndIf
    EndIf
  Next id
  
  ` Stats
  SetStat(TerrainPickersCurrentlyActiveStat, TerrainPickersCurrentlyActive, 0.0)
  TerrainPickersCurrentlyActive = 0
EndFunction 

//==================================================
Function TerrainPicker$(id)
  Local s$
  If TerrainPickerExist(id)
    s$ = Def$( TerrainPickers(id).Info.Name$ , \"TerrainPicker\")
    s$ = s$ + \" [Index: \" + Str$(id) + \"]\"
  Else
    s$ = \"Undefined_TerrainPicker [Index: \" + Str$(id) + \"]\"
  EndIf   
EndFunction s$

//==================================================
Function HandleTerrainPicking(id)
  Local iOldCam : iOldCam = Current Camera()
  Local px
  Local py
  Local fPickDist# : fPickDist# = UseFloat#( TerrainPickers(id).FPickDistance )
  If fPickDist# = 0.0 Then ExitFunction
  
  ` Get camera view location
  If TryInt( TerrainPickers(id).ITrackMouse, 0 )
    px = MouseLocX()
    py = MouseLocY()
    TryUpdateVec2( TerrainPickers(id).Vec2ViewPos, px, py)
  Else
    px = UseVec2X(  TerrainPickers(id).Vec2ViewPos )
    py = UseVec2Y(  TerrainPickers(id).Vec2ViewPos )
  EndIf
  
  Set Current Camera TryInt( TerrainPickers(id).ICamera, 0 )
  
  ` Pick the view
  Pick Screen px, py,fPickDist#
  Local iPicked = 0
  
  If Not HandleBlitzTerrainPick(id)
    `If Not HandleAdvancedTerrainPick(id)
      ` If Not HandlePhyTerrainPick(id)
        ` If HandleFuncTerrainPick(id) Then iPicked = 1
      `Else
      `  iPicked = 1
      ` EndIf
    `Else
      ` iPicked = 1
    `endif
  Else
    iPicked = 1
  EndIf

  If iPicked
    `TryPlaySoundSource( TryInt(TerrainPickers(id).IPickSoundSource, 0 ) )
    TryRaiseEvent( TerrainPickers(id).PickedEvent )
    TryTriggerInt( TerrainPickers(id).ITriggerPicked, id, 0  )
  Else
    `TryPlaySoundSource( TryInt(TerrainPickers(id).IUnPickedSoundSource, 0 ) )
    TryRaiseEvent( TerrainPickers(id).UnPickedEvent )
    TryTriggerInt( TerrainPickers(id).ITriggerUnPicked, id, 0  )    
  endif
  Set Current Camera iOldCam
EndFunction 

//==================================================
Function HandleBlitzTerrainPick(id)
  If Not TryInt(TerrainPickers(id).ITerrain, 0) Then ExitFunction 0
  Local iTerrain : iTerrain = Ints( TerrainPickers(id).ITerrain )
  
  If BT TerrainExist(iTerrain)
    If Not Terrains(iTerrain).IsBlitzTerrain
      ExitFunction 0
    endif
  Else
    ExitFunction 0
  EndIf
  
  ax# = Camera Angle X()
  ay# = Camera Angle Y()
  az# = Camera Angle Z()
  cx# = Camera Position X()
  cy# = Camera Position Y()
  cz# = Camera Position Z()
  
  Set Vector3 TerrainPickerVec, Get Pick Vector X() + cx#, Get Pick Vector Y() + cy#, Get Pick Vector Z() + cz#
  
  // Look at where we are clicking
  Point Camera At Vector3 Current Camera(), TerrainPickerVec

  ` Not pretty, but blitz has no intersect object command
  ` therefore find the nearest point to the ground progressively
  repeat
      move camera BlitzTerrainPickPrecision#
      inc mc
      cx# = camera position x()
      cz# = camera position z()
      h# = BT GetGroundHeight(iTerrain,cx#,cz#)
      maxc = (2*BT GetTerrainSize(iTerrain))
  until (camera position y() < h#) or  mc > maxc
  UpdateVec3( TerrainPickers(id).Vec3PickResultPos, cx#, h#, cz# )
  
  Position Camera cx#, cy#, cz#  
  Rotate Camera ax#, ay#, az#
endfunction 1

//==================================================
Function HandleTerrainPickMarkers(id)
  Local spr : spr = TryInt( TerrainPickers(id).IPickMarkerSprite, 0 )
  Local ob : ob = TryInt( TerrainPickers(id).IPickMarkerObject, 0 )
  Local lmb : lmb  = TryInt( TerrainPickers(id).IPickMarkerLimb, 0 )
  If SpriteExist(spr)
    Sprite spr, X Vector2 ( TerrainPickers(id).Vec2ViewPos ), Y Vector2 ( TerrainPickers(id).Vec2ViewPos ), Sprite Image(spr)
  endif
  If lmb <= 0
    If ObjectExist( ob )
      Position Object At Vector3 ob, TerrainPickers(id).Vec3PickResultPos
    EndIf
  Else
    If LimbExist(ob, lmb)
      v = TerrainPickers(id).Vec3PickResultPos
      Offset Limb ob, lmb, X Vector3(v) - Object Position X(ob), Y Vector3(v) - Object Position Y(ob), Z Vector3(v) - Object Position Z(ob)
    Endif
  Endif  
Endfunction

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Oct 2013 14:29 Edited at: 4th Oct 2013 16:08

Link

Aha I'm back with my results

@Clonkex

This is the math equivalent of Pick Screen:

+ Code Snippet

view matrix4 m4_view //only necessary to update this matrix when the camera changes position/rotation
set vector4 v4_near,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),0,1
set vector4 v4_far,((mousex()/screenwidth#)*2)-1,-(((mousey()/screenheight#)*2)-1),1,1
multiply matrix4 m4_viewproj,m4_view,m4_projection
blank=inverse matrix4(m4_viewproj,m4_viewproj)
transform vector4 v4_near,v4_near,m4_viewproj
transform vector4 v4_far,v4_far,m4_viewproj
set vector3 v3_far,x vector4(v4_far),y vector4(v4_far),z vector4(v4_far) //normalisation would be affected if it were a vec4
normalize vector3 v3_far,v3_far
multiply vector3 v3_far,camrange

So all of that can be replaced with:

+ Code Snippet

pick screen mousex(), mousey(), cameraRange/2
x# = (get pick vector x() * 2) + camera position x()
y# = (get pick vector y() * 2) + camera position y()
z# = (get pick vector z() * 2) + camera position z()

Which btw is 8 times as fast

Though what's interesting is they produce nearly the same results, so I have no clue which is correct. I'm gonna do some testing with math to see where the inaccuracies are with Pick Screen and you code.

"Get in the Van!" - Van B

Back to top

Profile PM Email

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Oct 2013 15:44 Edited at: 4th Oct 2013 16:05

Link

I'm back again

After some playing I reworked your method to accurately emulated Pick Screen:

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

projection matrix4 _projMat, 0
distance# = 100

do
    
    x# = (((2.0*(mousex()))/screen width())-1)/ get matrix4 element(_projMat,0)
    y# = -(((2.0*(mousey()))/screen height())-1)/ get matrix4 element(_projMat,5)
    z# = 1.0
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    
    rayDirX# = x#*get matrix4 element(_viewMat,0) + y#*get matrix4 element(_viewMat,4) + z#*get matrix4 element(_viewMat,8)
    rayDirY# = x#*get matrix4 element(_viewMat,1) + y#*get matrix4 element(_viewMat,5) + z#*get matrix4 element(_viewMat,9)
    rayDirZ# = x#*get matrix4 element(_viewMat,2) + y#*get matrix4 element(_viewMat,6) + z#*get matrix4 element(_viewMat,10)
            
    m# = sqrt(rayDirX#*rayDirX# + rayDirY#*rayDirY# + rayDirZ#*rayDirZ#)
    
    pickX# = (rayDirX# / m#) * distance#
    pickY# = (rayDirY# / m#) * distance#
    pickZ# = (rayDirZ# / m#) * distance#
        
    sync
loop

+ Code Snippet

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

projection matrix4 _projMat, 0
distance# = 100

do
    
    x# = (((2.0*(mousex()))/screen width())-1)/ get matrix4 element(_projMat,0)
    y# = -(((2.0*(mousey()))/screen height())-1)/ get matrix4 element(_projMat,5)
    z# = 1.0
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    
    rayDirX# = x#*get matrix4 element(_viewMat,0) + y#*get matrix4 element(_viewMat,4) + z#*get matrix4 element(_viewMat,8)
    rayDirY# = x#*get matrix4 element(_viewMat,1) + y#*get matrix4 element(_viewMat,5) + z#*get matrix4 element(_viewMat,9)
    rayDirZ# = x#*get matrix4 element(_viewMat,2) + y#*get matrix4 element(_viewMat,6) + z#*get matrix4 element(_viewMat,10)
            
    m# = sqrt(rayDirX#*rayDirX# + rayDirY#*rayDirY# + rayDirZ#*rayDirZ#)
    
    pickX# = (rayDirX# / m#) * distance#
    pickY# = (rayDirY# / m#) * distance#
    pickZ# = (rayDirZ# / m#) * distance#
        
    sync
loop

Or... (only slightly faster)

+ Code Snippet

sync on : sync rate 60
autocam off

global _projMat as integer = 1
global _viewMat as integer = 2
global _farPlane as integer = 3
global _pick as integer = 4

make matrix4 _projMat
make matrix4 _viewMat
make vector4 _farPlane
make vector3 _pick

projection matrix4 _projMat, 0
distance# = 100

do : cls 
    
    x# = (((2.0*(mousex()))/screen width())-1)/ get matrix4 element(_projMat,0)
    y# = -(((2.0*(mousey()))/screen height())-1)/ get matrix4 element(_projMat,5)
    z# = 1.0
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    set vector4 _farPlane,x#,y#,z#,1
    transform vector4 _farPlane, _farPlane, _viewMat
    set vector3 _pick, x vector4(_farPlane), y vector4(_farPlane), z vector4(_farPlane)
    normalize vector3 _pick,_pick
    multiply vector3 _pick,distance#
    
    sync
loop

And actually using it:

sync on : sync rate 60
autocam off

// load object
load object "a.x",1,0
position object 1,0,0,10
SC_setupComplexObject 1 , 0 , 2

// set up hit indicator
make object sphere 2,0.2
color object 2,rgb(255,0,0)

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

projection matrix4 _projMat, 0

distance# = 1000

do

_mouseX# = mousex()
    _mouseY# = mousey()
    _mouseVelocityX# = mousemovex()
    _mouseVelocityY# = mousemovey()
    
    // update camera
    if mouseclick() = 2
        hide mouse
        cameraAngX# = clamp(cameraAngX# + (_mouseVelocityY# * .24),-89.9,89.9)
        cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
        rotate camera cameraAngX#, cameraAngY#, 0
        if (upkey() || keystate(17)) then move camera 0.24
        if (downkey() || keystate(31)) then move camera -0.24
        if (leftkey() || keystate(30)) then move camera right -0.24
        if (rightkey() || keystate(32)) then move camera right 0.24
    else
        show mouse
    endif
    
    // math equivelant of Pick Screen
    x# = (((2.0*(mousex()))/screen width())-1)/ get matrix4 element(_projMat,0)
    y# = -(((2.0*(mousey()))/screen height())-1)/ get matrix4 element(_projMat,5)
    z# = 1.0
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    
    rayDirX# = x#*get matrix4 element(_viewMat,0) + y#*get matrix4 element(_viewMat,4) + z#*get matrix4 element(_viewMat,8)
    rayDirY# = x#*get matrix4 element(_viewMat,1) + y#*get matrix4 element(_viewMat,5) + z#*get matrix4 element(_viewMat,9)
    rayDirZ# = x#*get matrix4 element(_viewMat,2) + y#*get matrix4 element(_viewMat,6) + z#*get matrix4 element(_viewMat,10)
            
    m# = sqrt(rayDirX#*rayDirX# + rayDirY#*rayDirY# + rayDirZ#*rayDirZ#)
    
    pickX# = (rayDirX# / m#) * distance# + camera position x()
    pickY# = (rayDirY# / m#) * distance# + camera position y()
    pickZ# = (rayDirZ# / m#) * distance# + camera position z()
        
        // update hit indicator
    if SC_rayCast(0,camera position x(),camera position y(),camera position z(),pickX#,pickY#,pickZ#,0)
        position object 2,SC_GetStaticCollisionX(),SC_GetStaticCollisionY(),SC_GetStaticCollisionZ()
    endif

text 0,0,"Hold RMB to move camera WASD/DPAD, mouse to rotate"

sync
loop

+ Code Snippet

sync on : sync rate 60
autocam off

// load object
load object "a.x",1,0
position object 1,0,0,10
SC_setupComplexObject 1 , 0 , 2

// set up hit indicator
make object sphere 2,0.2
color object 2,rgb(255,0,0)

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

projection matrix4 _projMat, 0

distance# = 1000

do

    _mouseX# = mousex()
    _mouseY# = mousey()
    _mouseVelocityX# = mousemovex()
    _mouseVelocityY# = mousemovey()
    
    // update camera
    if mouseclick() = 2
        hide mouse
        cameraAngX# = clamp(cameraAngX# + (_mouseVelocityY# * .24),-89.9,89.9)
        cameraAngY# = wrapvalue(cameraAngY# + (_mouseVelocityX# *.24))
        rotate camera cameraAngX#, cameraAngY#, 0
        if (upkey() || keystate(17)) then move camera 0.24
        if (downkey() || keystate(31)) then move camera -0.24
        if (leftkey() || keystate(30)) then move camera right -0.24
        if (rightkey() || keystate(32)) then move camera right 0.24
    else
        show mouse
    endif
    
    // math equivelant of Pick Screen
    x# = (((2.0*(mousex()))/screen width())-1)/ get matrix4 element(_projMat,0)
    y# = -(((2.0*(mousey()))/screen height())-1)/ get matrix4 element(_projMat,5)
    z# = 1.0
    
    view matrix4 _viewMat, 0
    null = inverse matrix4( _viewMat, _viewMat )
    
    rayDirX# = x#*get matrix4 element(_viewMat,0) + y#*get matrix4 element(_viewMat,4) + z#*get matrix4 element(_viewMat,8)
    rayDirY# = x#*get matrix4 element(_viewMat,1) + y#*get matrix4 element(_viewMat,5) + z#*get matrix4 element(_viewMat,9)
    rayDirZ# = x#*get matrix4 element(_viewMat,2) + y#*get matrix4 element(_viewMat,6) + z#*get matrix4 element(_viewMat,10)
            
    m# = sqrt(rayDirX#*rayDirX# + rayDirY#*rayDirY# + rayDirZ#*rayDirZ#)
    
    pickX# = (rayDirX# / m#) * distance# + camera position x()
    pickY# = (rayDirY# / m#) * distance# + camera position y()
    pickZ# = (rayDirZ# / m#) * distance# + camera position z()
        
        // update hit indicator
    if SC_rayCast(0,camera position x(),camera position y(),camera position z(),pickX#,pickY#,pickZ#,0)
        position object 2,SC_GetStaticCollisionX(),SC_GetStaticCollisionY(),SC_GetStaticCollisionZ()
    endif

    text 0,0,"Hold RMB to move camera WASD/DPAD, mouse to rotate"

    sync
loop

Quote: "Hooray my method is still better "

Not anymore

Note: Pick Screen method I posted above is still the fastest method

"Get in the Van!" - Van B

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 4th Oct 2013 22:35

Link

Excellent! I have no idea how it works, but it works. It looks like a more mathematical equivalent of the Sparky's Collision example. Now all that would need to be done is convert the Blitz Terrain into the 3D object, which is a simple task.

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 4th Oct 2013 23:56 Edited at: 5th Oct 2013 00:26

Link

Well I tested Pick Screen (the method above) on Blitz Terrain + Sparky's Collision and everything is working fine. Success

Also note: You can use Pick Object on a Blitz Terrain Object

P.S. I've never used Blitz Terrain till just now

"Get in the Van!" - Van B

Back to top

Profile PM Email

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 5th Oct 2013 03:04 Edited at: 5th Oct 2013 03:06

Link

I do not know how fantastic pick object is going to be on a dynamic terrain frequently updated by terraform events and effects; with all of those vertices to work with. FPSCR will have dynamic terrains. Pick object would require a new DBPRO object to be generated every time something happens to the terrain.

But it all depends how often the terrain will change. Perhaps breaking down the terrain into various objects might be more optimal; but this is all a wild guess; in the best case scenario the object generation would be swift; and pick object or your or Clonex's snippet would be fast.

Back to top

Profile PM Email Website

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 5th Oct 2013 03:35

Link

If that's the case use Pick Screen which is the fastest method to work out where there ray cast should go. The main collision is done by Sparky's so I would imagine you just update the object terrain (SC_UpdateObject) if it's been altered though I imagine you'd have to recreate the terrain object to do this anyway. If I had the full version I would look into this more to make it more effiecent. I can only guess at this moment.

"Get in the Van!" - Van B

Back to top

Profile PM Email

Clonkex

Forum Vice President

16

Years of Service

User Offline

Joined: 20th May 2010

Location: Northern Tablelands, NSW, Australia

Posted: 5th Oct 2013 05:38 Edited at: 5th Oct 2013 05:56

Link

Quote: "Not anymore"

Dammit!

Quote: "Which btw is 8 times as fast"

DAMMIT! Hhhh.....NOW what am I gonna do...I tested your pick screen method and it does work just as well as mine...hmm...how to get back at you for invalidating my work...

Can't believe I didn't look into Pick Screen to begin with...

Quote: "After some playing I reworked your method to accurately emulated Pick Screen"

Complicated....

Placement Editor Professional
Code Line Counter

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / [How-To] 3D Raycasting/Picking From Screen Cursor