MeshesIntersect

Blitz3D Forums/Blitz3D Beginners Area/MeshesIntersect

fox95871 (Posted 2009) [#1]

Hi, how can I get MeshesIntersect to work more like if it had the name MeshWithin, so it's better for things like sensors? Graphics3D 640,480,32,1 SetBuffer BackBuffer() SeedRnd MilliSecs() Const fps=30 blitz=LoadFont("blitz",14,1,0,0) SetFont blitz ClearTextureFilters TextureFilter "alpha",2 period=1000/fps time=MilliSecs()-period elapsed%=0 ticks%=0 tween#=0 rt%=0 AmbientLight 50,50,50 camera=CreateCamera(pivot) CameraZoom camera,1.6 PositionEntity camera,0,0,-20 RotateEntity camera,0,0,0 light=CreateLight() RotateEntity light,45,45,0 character=CreateSphere() EntityColor character,100,100,100 MoveEntity character,-5,0,0 sensor=CreateCone() EntityAlpha sensor,.25 ScaleEntity sensor,4,7,4 PositionMesh sensor,0,.75,0 EntityFX sensor,16 ;WireFrame 1 While Not KeyHit(1) Cls Repeat elapsed=MilliSecs()-time Until elapsed ticks=elapsed/period tween#=Float(elapsed Mod period)/Float(period) For rt=1 To ticks time=time+period If rt=ticks Then CaptureWorld If KeyDown(44) TranslateEntity character,-.1,0,0 If KeyDown(45) TranslateEntity character,+.1,0,0 If MeshesIntersect(character,sensor) EntityColor sensor,250,0,0 Else EntityColor sensor,100,100,100 EndIf UpdateWorld Next RenderWorld tween fr=fr+1 If MilliSecs()-frTime>=1000 fps2=fr fr=0 frTime=MilliSecs() EndIf Color 100,100,100 Text 0,00,"Controls: z and x" Color 50,50,50 Text 0,15,"fps " +fps2 Flip 0 Wend End ;

_PJ_ (Posted 2009) [#2]

This might be helpful... http://www.blitzbasic.com/codearcs/codearcs.php?code=1192

Zethrax (Posted 2009) [#3]

A couple of mine:- http://www.blitzbasic.com/codearcs/codearcs.php?code=1920 http://www.blitzbasic.com/codearcs/codearcs.php?code=1901 I think you'll find that MeshesIntersect is too slow for that purpose. You're better off doing an AABB (Axially Aligned Bounding Box) or OBB (Oriented Bounding Box) test, or using collision proxies (as in the code above).