Picked Surface / Triangle?

Blitz3D Forums/Blitz3D Programming/Picked Surface / Triangle?

Guy Fawkes (Posted 2014) [#1]

Hi all. I am again working on my normal program instead of a piece OF my program, & would like to know how to modify this code from the code examples (which I modified a little bit), to select a SINGLE surface & turn picked surface red then deselect it by painting it back to its' old color before it was picked (white) if you either click on the mesh surface again, switch between a mesh surface, or click something without an entitypickmode or the distance itself. (In the distance). I would also like to do the same thing for single triangles. I have managed to get it in SOME aspects to select / deselect. Picked_Surface_And_Triangle.bb: ; PickedSurface Example ; --------------------- Graphics3D 800, 600, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global wantpicked = 0 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 ;api_ShowWindow(SystemProperty$("AppHWND"), 1) 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 MouseDown(1)=True Then CameraPick(camera,MouseX(),MouseY()) b0 = CreateBrush(255, 255, 255) b = CreateBrush(255, 0, 0) oldb = b0 ent = CameraPick(camera, MouseX(), MouseY()) If MouseHit(1) ;Is it a mesh? If so, allow for us to "pick" it If ent Then wantpicked = 1-wantpicked ;If selected If wantpicked ;If entity is a mesh If ent ;Get total surface count For i = 1 To CountSurfaces(ent) ;Get each surface s = GetSurface(ent, i) ;Paint each surface selected color "red" PaintSurface s, b ;Next Next ;EndIf EndIf ;Otherwise Else ;If entity is a mesh If ent ;Get total surface count For i = 1 To CountSurfaces(ent) ;Get each surface s = GetSurface(ent, i) ;Paint each surface unselected color "white" PaintSurface s, oldb ;Next Next ;EndIf EndIf ;EndIf EndIf ;EndIf EndIf UpdateWorld 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() VWait 1 Flip 0 Delay 1 Wend End Thank You so kindly! =) ~GF

_PJ_ (Posted 2014) [#2]

Since linepick type commands only refer to the most recent pick command, you you need to be sure that setting wantpicked depends on the state of the surface not just on/off each time the entity is clicked. The same with oldb - This needs to be updated at some point to change between b and b0 depending on the current state.