| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354 |
- ; PickedX Example
- ; ---------------
- Graphics3D 640,480,0,2
- SetBuffer BackBuffer()
- camera=CreateCamera()
- PositionEntity camera,0,2,-10
- light=CreateLight()
- RotateEntity light,90,0,0
- plane=CreatePlane()
- EntityPickMode plane,2 ; Make the plane entity 'pickable'. Use pick_geometry mode no.2 for polygon collision.
- ground_tex=LoadTexture("media/Chorme-2.bmp")
- EntityTexture plane,ground_tex
- cube=CreateCube()
- EntityPickMode cube,2 ; Make the cube entity 'pickable'. Use pick_geometry mode no.2 for polygon collision.
- cube_tex=LoadTexture("media/b3dlogo.jpg")
- EntityTexture cube,cube_tex
- PositionEntity cube,0,1,0
- While Not KeyDown( 1 )
- If KeyDown( 205 )=True Then TurnEntity camera,0,-1,0
- If KeyDown( 203 )=True Then TurnEntity camera,0,1,0
- If KeyDown( 208 )=True Then MoveEntity camera,0,0,-0.05
- If KeyDown( 200 )=True Then MoveEntity camera,0,0,0.05
- ; If left mouse button hit then use CameraPick with mouse coordinates
- ; In this example, only three things can be picked: the plane, the cube, or nothing
- If MouseHit(1)=True Then CameraPick(camera,MouseX(),MouseY())
- RenderWorld
- Text 0,0,"Use cursor keys to move about"
- Text 0,20,"Press left mouse button to use CameraPick with mouse coordinates"
- Text 0,40,"PickedX: "+PickedX#()
- Text 0,60,"PickedY: "+PickedY#()
- Text 0,80,"PickedZ: "+PickedZ#()
- Text 0,100,"PickedNX: "+PickedNX#()
- Text 0,120,"PickedNY: "+PickedNY#()
- Text 0,140,"PickedNZ: "+PickedNZ#()
- Text 0,160,"PickedTime: "+PickedTime#()
- Text 0,180,"PickedEntity: "+PickedEntity()
- Text 0,200,"PickedSurface: "+PickedSurface()
- Text 0,220,"PickedTriangle: "+PickedTriangle()
- Flip
- Wend
- End
|
