Sorry your browser is not supported!

float dynRaycastHitGetU()
float dynRaycastHitGetV()

rem bone animated collision - 2D test on triangle
rem by TheComet
rem transform functions by Neuro Fuzzy - Thanks a bunch! :>

rem setup screen
sync on
sync rate 60
backdrop on
color backdrop 0
show mouse

rem types
type vec3
    x as float
    y as float
    z as float
endtype

global returnVar as vec3
global nA as vec3
global nB as vec3
global nC as vec3
global oA as vec3
global oB as vec3
global oC as vec3
global nplayer as vec3
global oplayer as vec3

rem set positions for triangle
nA.x=80
nB.x=500
nC.x=300
nA.y=600
nB.y=580
nC.y=200

rem position player inside triangle
nplayer.x=230
nplayer.y=457

rem main loop
do

   rem store old positions
   oA.x=nA.x
   oA.y=nA.y
   oB.x=nB.x
   oB.y=nB.y
   oC.x=nC.x
   oC.y=nC.y
   oplayer.x=nplayer.x
   oplayer.y=nplayer.y

   rem move triangle points
   mx=mousex()
   my=mousey()
   if mouseclick()=1
      if mx>oA.x-10 and mx<oA.x+10
         if my>oA.y-10 and my<oA.y+10
            selected=1
         endif
      endif
      if mx>oB.x-10 and mx<oB.x+10
         if my>oB.y-10 and my<oB.y+10
            selected=2
         endif
      endif
      if mx>oC.x-10 and mx<oC.x+10
         if my>oC.y-10 and my<oC.y+10
            selected=3
         endif
      endif
      if selected=1
         nA.x=mx
         nA.y=my
      endif
      if selected=2
         nB.x=mx
         nB.y=my
      endif
      if selected=3
         nC.x=mx
         nC.y=my
      endif
   endif
   
   rem calculate new positions for player
   transf(oA,oB,oC,nA,nB,nC,oplayer)
   nplayer.x=returnVar.x
   nplayer.y=returnVar.y

   rem draw triangle
   line nA.x,nA.y,nB.x,nB.y
   line nB.x,nB.y,nC.x,nC.y
   line nC.x,nC.y,nA.x,nA.y
   text nA.x,nA.y,"A"
   text nB.x,nB.y,"B"
   text nC.x,nC.y,"C"
   text nplayer.x,nplayer.y,"P"

   rem refresh screen
   sync
   
rem end of main loop
loop

rem transform functions -----------------------------------------------------------

function transf(a1 as vec3, a2 as vec3, a3 as vec3, b1 as vec3, b2 as vec3, b3 as vec3,pos as vec3)
    getT(a1,a2,a3,pos)
    t1#=returnVar.x
    t2#=returnVar.y
    returnVar.x=(b2.x-b1.x)*t1#+(b3.x-b1.x)*t2#+b1.x
    returnVar.y=(b2.y-b1.y)*t1#+(b3.y-b1.y)*t2#+b1.y
    returnVar.z=(b2.z-b1.z)*t1#+(b3.z-b1.z)*t2#+b1.z
endfunction 

function getT(p1 as vec3,p2 as vec3, p3 as vec3,pos as vec3)
    yy1#=pos.y-p1.y
    y3y1#=p3.y-p1.y
    y2y1#=p2.y-p1.y
    xx1#=pos.x-p1.x
    x3x1#=p3.x-p1.x
    x2x1#=p2.x-p1.x
    returnVar.y=(yy1#*x2x1#-y2y1#*xx1#)/(y3y1#*x2x1#-y2y1#*x3x1#)
    returnVar.x=(xx1#-x3x1#*returnVar.y)/x2x1#
endfunction

function PointInTRI(pv as vect,av as vect,bv as vect,cv as vect)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as vect,p2 as vect,av as vect,bv as vect)
   t1 as vect : t2 as vect : t3 as vect
   r1 as vect : r2 as vect
   dotp as float

   t1.x=bv.x-av.x
   t1.y=bv.y-av.y

   t2.x=p1.x-av.x
   t2.y=p1.y-av.y

   t3.x=p2.x-av.x
   t3.y=p2.y-av.y

   r1.z=(t1.x*t2.y) - (t1.y*t2.x)
   r2.z=(t1.x*t3.y) - (t1.y*t3.x)

   dotp=(r1.z*r2.z)

   if dotp>=0
      result=1
   else
      result=0
   endif
endfunction result

Type Point3D
    X#
    Y#
    Z#
EndType

Lock VertexData For Limb PickedPolygon.Object, 0
        VertexCount = Get VertexData Vertex Count()
	          
        Repeat
        	Poly = Poly + 1
        	        	
        	X# = PickedPolygon.P.X# 
        	Y# = PickedPolygon.P.Y#
        	Z# = PickedPolygon.P.Z#
        	
        	P As Point3D
        	P.X# = X#
        	P.Y# = Y#
        	P.Z# = Z#
                	        
        	X1# = Get VertexData Position X(Index)
        	Y1# = Get VertexData Position Y(Index)
        	Z1# = Get VertexData Position Z(Index)
        	
        	A As Point3D
        	A.X# = X1#
        	A.Y# = Y1#
        	A.Z# = Z1#
        	           	
        	X2# = Get VertexData Position X(Index+1)
        	Y2# = Get VertexData Position Y(Index+1)
        	Z2# = Get VertexData Position Z(Index+1)
        	        	
        	B As Point3D
        	B.X# = X2#
        	B.Y# = Y2#
        	B.Z# = Z2#
                	
        	X3# = Get VertexData Position X(Index+2)
        	Y3# = Get VertexData Position Y(Index+2)
        	Z3# = Get VertexData Position Z(Index+2)
        	
        	C As Point3D
        	C.X# = X3#
        	C.Y# = Y3#
        	C.Z# = Z3#
          	
        	InTriangle = PointInTRI(P,A,B,C) `PointInTriangle(P, A, B, C) `PointinTriangle(x#, y#, x1#, y1#, x2#, y2#, x3#, y3#)
        	If InTriangle = 1 Then Exit
        
        	Index = Index + 3
        Until Index >= VertexCount
        
                
        Message Str$(PickedPolygon.Poly) 
        Message Str$(Poly)
        
        Unlock VertexData


function PointInTRI(pv as Point3D,av as Point3D,bv as Point3D,cv as Point3D)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as Point3D,p2 as Point3D,av as Point3D,bv as Point3D)
   t1 as Point3D : t2 as Point3D : t3 as Point3D
   r1 as Point3D : r2 as Point3D
   
   t1.X#=bv.X#-av.X#
   t1.Y#=bv.Y#-av.Y#

   t2.X#=p1.X#-av.X#
   t2.Y#=p1.Y#-av.Y#

   t3.X#=p2.X#-av.X#
   t3.Y#=p2.Y#-av.Y#

   r1.z#=(t1.X#*t2.Y#) - (t1.Y#*t2.X#)
   r2.z#=(t1.X#*t3.Y#) - (t1.Y#*t3.X#)

   dotp#=(r1.Z#*r2.Z#)

   if dotp# >= 0
      result=1
   else
      result=0
   endif
endfunction result

PickedPolygon.P.X#
PickedPolygon.P.Y#
PickedPolygon.P.Z#

PickedPolygon.Limb = DK Pick Limb(0, MX#, MY#, PickedPolygon.Object, 0, Get Limb Count(PickedPolygon.Object))                
        PickedPolygon.Poly = DK Get Pick Poly()  

PickedPolygon.Poly

X1# = Get VertexData Position X(Get IndexData(Index))
        	Y1# = Get VertexData Position Y(Get IndexData(Index))
        	Z1# = Get VertexData Position Z(Get IndexData(Index))
        	
        	       	           	
        	X2# = Get VertexData Position X(Get IndexData(Index+1))
        	Y2# = Get VertexData Position Y(Get IndexData(Index+1))
        	Z2# = Get VertexData Position Z(Get IndexData(Index+1))
        	        	
        	X3# = Get VertexData Position X(Get IndexData(Index+2))
        	Y3# = Get VertexData Position Y(Get IndexData(Index+2))
        	Z3# = Get VertexData Position Z(Get IndexData(Index+2))

Type Point3D
    X#
    Y#
    Z#
EndType

P As Point3D
A As Point3D
B As Point3D
C As Point3D

A.X# = -5
A.Y# = 5
A.Z# = 0
  
B.X# = 5
B.Y# = 0
B.Z# = 0

C.X# = -5
C.Y# = 0
C.Z# = 0

P.X# = -4
P.Y# = 1
P.Z# = 0

Message Str$(PointInTRI(P,A,B,C))

A.X# = -5
A.Y# = 5
A.Z# = 0
  
B.X# = 5
B.Y# = 0
B.Z# = 0

C.X# = -5
C.Y# = 0
C.Z# = 0

P.X# = -6
P.Y# = 1
P.Z# = 0

Message Str$(PointInTRI(P,A,B,C))
End

function PointInTRI(pv as Point3D,av as Point3D,bv as Point3D,cv as Point3D)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as Point3D,p2 as Point3D,av as Point3D,bv as Point3D)
   t1 as Point3D : t2 as Point3D : t3 as Point3D
   r1 as Point3D : r2 as Point3D
   
   t1.X#=bv.X#-av.X#
   t1.Y#=bv.Y#-av.Y#

   t2.X#=p1.X#-av.X#
   t2.Y#=p1.Y#-av.Y#

   t3.X#=p2.X#-av.X#
   t3.Y#=p2.Y#-av.Y#

   r1.z#=(t1.X#*t2.Y#) - (t1.Y#*t2.X#)
   r2.z#=(t1.X#*t3.Y#) - (t1.Y#*t3.X#)

   dotp#=(r1.Z#*r2.Z#)

   if dotp# >= 0
      result=1
   else
      result=0
   endif
endfunction result

VertexCount = Get VertexData Vertex Count()
	          
Repeat
    Poly = Poly + 1
    
    Index = Index + 3
Until Index >= VertexCount

A.X# = -5
A.Y# = 5
A.Z# = 0
  
B.X# = 5
B.Y# = 0
B.Z# = 0

C.X# = -5
C.Y# = 0
C.Z# = 0

P.X# = -4
P.Y# = 1
P.Z# = 0

Type Point3D
    X#
    Y#
    Z#
EndType

P As Point3D
A As Point3D
B As Point3D
C As Point3D

A.X# = -0.0005
A.Y# = 0.0005
A.Z# = 0.0000
  
B.X# = 0.0005
B.Y# = 0.0000
B.Z# = 0.0000

C.X# = -0.0005
C.Y# = 0.0000
C.Z# = 0.0000

P.X# = -0.0004
P.Y# = 0.0001
P.Z# = 0.0000

Message Str$(PointInTRI(P,A,B,C))

A.X# = -0.0005
A.Y# = 0.0005
A.Z# = 0.0000
  
B.X# = 0.0005
B.Y# = 0.0000
B.Z# = 0.0000

C.X# = -0.0005
C.Y# = 0.0000
C.Z# = 0.0000

P.X# = -0.0006
P.Y# = 0.0001
P.Z# = 0.0000

Message Str$(PointInTRI(P,A,B,C))
End

function PointInTRI(pv as Point3D,av as Point3D,bv as Point3D,cv as Point3D)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as Point3D,p2 as Point3D,av as Point3D,bv as Point3D)
   t1 as Point3D : t2 as Point3D : t3 as Point3D
   r1 as Point3D : r2 as Point3D
   
   t1.X#=bv.X#-av.X#
   t1.Y#=bv.Y#-av.Y#

   t2.X#=p1.X#-av.X#
   t2.Y#=p1.Y#-av.Y#

   t3.X#=p2.X#-av.X#
   t3.Y#=p2.Y#-av.Y#

   r1.z#=(t1.X#*t2.Y#) - (t1.Y#*t2.X#)
   r2.z#=(t1.X#*t3.Y#) - (t1.Y#*t3.X#)

   dotp#=(r1.Z#*r2.Z#)

   if dotp# >= 0
      result=1
   else
      result=0
   endif
endfunction result

Repeat
        	Poly = Poly + 1
        	        	
        	Index = Index + 3
        Until Index >= VertexCount
        

Type Point3D
    X#
    Y#
    Z#
EndType

Type Polygon
    Object
    P As Point3D
    A As Point3D
    B As Point3D
    C As Point3D
    Poly
    Limb
EndType

Global PickedPolygon As Polygon

Global Surface : Surface = NextObject()
Make Object Plain Surface, 100, 100

Do

If MouseClick() = 1 And MouseLeft = 0

PickedPolygon.Object = Pick Object(MX#, MY#, Surface, Surface)

PickedPolygon.Limb = DK Pick Limb(0, MX#, MY#,        PickedPolygon.Object, 0, Get Limb Count(PickedPolygon.Object))                
PickedPolygon.Poly = DK Get Pick Poly()  

PickedPolygon.P.X# = Get Pick Vector X() + Camera Position X()
PickedPolygon.P.Y# = Get Pick Vector Y() + Camera Position Y()
PickedPolygon.P.Z# = Get Pick Vector Z() + Camera Position Z()

Lock VertexData For Limb PickedPolygon.Object, 0
        VertexCount = Get VertexData Vertex Count()
	          
        Repeat
        	Poly = Poly + 1
        	        	
        	X# = PickedPolygon.P.X# 
        	Y# = PickedPolygon.P.Y#
        	Z# = PickedPolygon.P.Z#
        	
        	P As Point3D
        	P.X# = X#
        	P.Y# = Y#
        	P.Z# = Z#
                	        
        	X1# = Get VertexData Position X(Index)
        	Y1# = Get VertexData Position Y(Index)
        	Z1# = Get VertexData Position Z(Index)
        	
        	A As Point3D
        	A.X# = X1#
        	A.Y# = Y1#
        	A.Z# = Z1#
        	           	
        	X2# = Get VertexData Position X(Index+1)
        	Y2# = Get VertexData Position Y(Index+1)
        	Z2# = Get VertexData Position Z(Index+1)
        	        	
        	B As Point3D
        	B.X# = X2#
        	B.Y# = Y2#
        	B.Z# = Z2#
                	
        	X3# = Get VertexData Position X(Index+2)
        	Y3# = Get VertexData Position Y(Index+2)
        	Z3# = Get VertexData Position Z(Index+2)
        	
        	C As Point3D
        	C.X# = X3#
        	C.Y# = Y3#
        	C.Z# = Z3#
          	
        	InTriangle = PointInTRI(P,A,B,C) `PointInTriangle(P, A, B, C) `PointinTriangle(x#, y#, x1#, y1#, x2#, y2#, x3#, y3#)
        	If InTriangle = 1 Then Exit
        
        	Index = Index + 3
        Until Index >= VertexCount
        
                
        Message Str$(PickedPolygon.Poly) 
        Message Str$(Poly)
        
        Unlock VertexData

Mouseleft = 1
EndIf

Loop

If MouseClick() = 0 Then MouseLeft = 0

function PointInTRI(pv as Point3D,av as Point3D,bv as Point3D,cv as Point3D)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as Point3D,p2 as Point3D,av as Point3D,bv as Point3D)
   t1 as Point3D : t2 as Point3D : t3 as Point3D
   r1 as Point3D : r2 as Point3D
   
   t1.X#=bv.X#-av.X#
   t1.Y#=bv.Y#-av.Y#

   t2.X#=p1.X#-av.X#
   t2.Y#=p1.Y#-av.Y#

   t3.X#=p2.X#-av.X#
   t3.Y#=p2.Y#-av.Y#

   r1.z#=(t1.X#*t2.Y#) - (t1.Y#*t2.X#)
   r2.z#=(t1.X#*t3.Y#) - (t1.Y#*t3.X#)

   dotp#=(r1.Z#*r2.Z#)

   if dotp# >= 0
      result=1
   else
      result=0
   endif
endfunction result

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, June 30, 2012

Rem ***** Main Source File *****
sync on
set camera range 1,25000

Type Point3D
    X#
    Y#
    Z#
EndType

Type Polygon
    Object
    P As Point3D
    A As Point3D
    B As Point3D
    C As Point3D
    Poly
    Limb
EndType

Global PickedPolygon As Polygon

Global Surface : Surface = 1 //NextObject()
Make Object Plain Surface, 100, 100,1
set object wireframe surface,1


Do
   
   
   mx=mousex()
   my=mousey()
If MouseClick() = 0 Then MouseLeft = 0
PickedPolygon.Object=0
PickedPolygon.Object = Pick Object(MX, MY, Surface, Surface)

If MouseClick() = 1 And MouseLeft = 0 and PickedPolygon.Object>0


PickedPolygon.Limb = DK Pick Limb(0, MX#, MY#, PickedPolygon.Object, 0, Get Limb Count(PickedPolygon.Object))                
PickedPolygon.Poly = DK Get Pick Poly()  



PickedPolygon.P.X# = Get Pick Vector X() + Camera Position X()
PickedPolygon.P.Y# = Get Pick Vector Y() + Camera Position Y()
PickedPolygon.P.Z# = Get Pick Vector Z() + Camera Position Z()



poly=0
Lock VertexData For Limb PickedPolygon.Object, 0
        VertexCount = Get VertexData Vertex Count()
        polys=VertexCount/3
             
           for i=1 to polys
                      
           X# = PickedPolygon.P.X# 
           Y# = PickedPolygon.P.Y#
           Z# = PickedPolygon.P.Z#
           
           P As Point3D
           P.X# = X#
           P.Y# = Y#
           P.Z# = Z#
                         
           i1=(i-1)*3+0
           i2=(i-1)*3+1
           i3=(i-1)*3+2  
           X1# = Get VertexData Position X(i1)
           Y1# = Get VertexData Position Y(i1)
           Z1# = Get VertexData Position Z(i1)
           
           A As Point3D
           A.X# = X1#
           A.Y# = Y1#
           A.Z# = Z1#
                         
           X2# = Get VertexData Position X(i2)
           Y2# = Get VertexData Position Y(i2)
           Z2# = Get VertexData Position Z(i2)
                      
           B As Point3D
           B.X# = X2#
           B.Y# = Y2#
           B.Z# = Z2#
                   
           X3# = Get VertexData Position X(i3)
           Y3# = Get VertexData Position Y(i3)
           Z3# = Get VertexData Position Z(i3)
           
           C As Point3D
           C.X# = X3#
           C.Y# = Y3#
           C.Z# = Z3#
             
           InTriangle = PointInTRI(P,A,B,C) `PointInTriangle(P, A, B, C) `PointinTriangle(x#, y#, x1#, y1#, x2#, y2#, x3#, y3#)
           If InTriangle = 1 
              poly=i
              exit
           endif
        next i
                

        
        Unlock VertexData

Mouseleft = 1
EndIf

        text 20,20, Str$(PickedPolygon.Poly) 
        text 20,40, Str$(Poly)

text 20,100,str$(PickedPolygon.P.X#)
text 20,120,str$(PickedPolygon.P.y#)
text 20,140,str$(PickedPolygon.P.z#)
sync
Loop



function PointInTRI(pv as Point3D,av as Point3D,bv as Point3D,cv as Point3D)
   v1 as integer
   v2 as integer
   v3 as integer

   v1=SameSide(pv,av,bv,cv)
   v2=SameSide(pv,bv,av,cv)
   v3=SameSide(pv,cv,av,bv)

   if v1=1 and v2=1 and v3=1
      result=1
   else
      result=0
   endif
endfunction result


function SameSide(p1 as Point3D,p2 as Point3D,av as Point3D,bv as Point3D)
   
   t1 as Point3D : t2 as Point3D : t3 as Point3D
   r1 as Point3D : r2 as Point3D
   
   t1.X#=bv.X#-av.X#
   t1.Y#=bv.Y#-av.Y#

   t2.X#=p1.X#-av.X#
   t2.Y#=p1.Y#-av.Y#

   t3.X#=p2.X#-av.X#
   t3.Y#=p2.Y#-av.Y#

   r1.z#=(t1.X#*t2.Y#) - (t1.Y#*t2.X#)
   r2.z#=(t1.X#*t3.Y#) - (t1.Y#*t3.X#)

   dotp#=(r1.Z#*r2.Z#)
   
   if dotp# >= 0
      result=1
   else
      result=0
   endif
endfunction result