Sorry your browser is not supported!

Rem DD's "Intersect Object" Function-------
` May be helpful to someone......
` Just like static line of sight, but can detect non-static objects.
`Must Dim these arrays at the start of ur prog.....



Dim DD_IO_Info(3)
`DD_IO_Info(0)=Object That was intersected..
`DD_IO_Info(1)=Intersect X
`DD_IO_Info(2)=Intersect Y
`DD_IO_Info(3)=Intersect Z

autocam off
sync on



Rem Create Boxes to test the sight........
Make object cube 1,10
Make object cube 2,15
color object 1,RGB(125,205,55)
color object 2,RGB(155,105,255)
Position object 1,-25,0,0
Position object 2,25,0,10

Rem Create Obstruction to test the sight........
Make object cube 3,20
Scale object 3,120,100,120
color object 3,RGB(255,15,25)
Position object 3,0,0,0

Position camera -10,70,10
Point camera 0,0,0

Ang#=90

Do
Set cursor 1,1

obj1x#=Object Position X(1)
obj1y#=Object Position Y(1)
obj1z#=Object Position Z(1)

obj2x#=Object Position X(2)
obj2y#=Object Position Y(2)
obj2z#=Object Position Z(2)

CANSEE=DD's_Line_of_Sight(obj1x#,obj1y#,obj1z#,obj2x#,obj2y#,obj2z#,10,30,100,2000,1)

if CANSEE=1 
If DD_IO_Info(0)=2 then print "You Can see the blue cube!" Else print "You Cannot see the blue cube...":Print "Intersepted At: "+STR$(DD_IO_Info(1))+","+STR$(DD_IO_Info(2))+","+STR$(DD_IO_Info(3))
endif








Ang#=Wrapvalue(Ang#)
yrotate object 1,Ang#

if upkey()=1 then move object 1,1
if rightkey()=1 then inc Ang#,3
if leftkey()=1 then dec Ang#,3




Print Screen Fps()

sync
loop



Function DD's_Line_of_Sight(StartX#,StartY#,StartZ#,EndX#,EndY#,EndZ#,SphereSize,accuracy,Cycles,Imaginaryobjnum,Obj)

Rem Clear the imagine object if exists....
 If object exist(Imaginaryobjnum)=0
    Make object Sphere Imaginaryobjnum,SphereSize 
 endif

   Position object Imaginaryobjnum,StartX#,StartY#,StartZ#

REm Running a check to "Scan" for and obstructing object.......      
  For Check=1 to Cycles
        Yes=0                  
        NextX#=Curvevalue(EndX#,Object Position X(Imaginaryobjnum),accuracy)                   
        NextY#=Curvevalue(EndY#,Object Position Y(Imaginaryobjnum),accuracy)                   
        NextZ#=Curvevalue(EndZ#,Object Position Z(Imaginaryobjnum),accuracy)                   
                         
        Position object Imaginaryobjnum,NextX#,NextY#,NextZ#
                                
                                 
                                    
       REm If detected an obj...........                        
       Objdetected = object collision(Imaginaryobjnum,0)
      if Objdetected > 0 and Objdetected <> Obj
        Yes=1    
       DD_IO_Info(0)=Objdetected
       DD_IO_Info(1)=Object Position X(Imaginaryobjnum)
       DD_IO_Info(2)=Object Position Y(Imaginaryobjnum)
       DD_IO_Info(3)=Object Position Z(Imaginaryobjnum)
    
      endif
         

      if Yes=1 Then ExitFunction Yes
  
  Next Check





endfunction Yes

Dim DD_IO_Info(3)

Sync on


Make object Plain 100,3,3
Move object 100,20

do

set cursor 1,1
obj1x#=Camera Position X()
obj1y#=Camera Position Y()
obj1z#=Camera Position Z()

`obj2x#=Object Position X(100)
`obj2y#=Object Position Y(100)
`obj2z#=Object Position Z(100)

obj2x#=Newxvalue(Obj1x#,Camera Angle X(),100)
obj2y#=Newyvalue(Obj1y#,Camera Angle y(),100)
obj2z#=Newzvalue(Obj1z#,Camera Angle z(),100)

CANSEE=DD's_Line_of_Sight(obj1x#,obj1y#,obj1z#,obj2x#,obj2y#,obj2z#,5,30,100,2000,1,1)

if CANSEE=1 then PRINT "YAY" 
if CANSEE=1 and DD_IO_INFO(0) <> 0 then PRINT "BLAST THAT PLAIN!!!" 

rem Control Camera
cya#=wrapvalue(cya#-(mousemovex()/3.0))
cxa#=cxa#-(mousemovey()/3.0)
if cxa#<-45.0 then cxa#=-45.0
if cxa#>45.0 then cxa#=45.0

rotate camera wrapvalue(cxa#),cya#,0








if mouseclick()=1 and spflg=0 and DD_IO_INFO(0) <> 0
spflg=1
if object exist(2001)=1 then delete object 2001 


make object sphere 2001,3
ghost object on 2001
position object 2001,obj1x#,obj1y#,obj1z#
Color object 2001,RGB(255,20,20)
sie=0
position object 2001,DD_IO_Info(1),DD_IO_Info(2),DD_IO_Info(3)



endif
if spacekey()=0 then spflg=0


sie=curvevalue(800,sie,6)
if object exist(2001)=1 then  scale object 2001,sie,sie,sie
if object exist(2001)=1 and sie > 600 then  delete object 2001






for clr=0 to 3
DD_IO_INFO(clr)=0

next clr
sync
loop









































Function DD's_Line_of_Sight(StartX#,StartY#,StartZ#,EndX#,EndY#,EndZ#,SphereSize,accuracy,Cycles,Imaginaryobjnum,Obj,hideflg)

Rem Clear the imagine object if exists....
 If object exist(Imaginaryobjnum)=0
    Make object Sphere Imaginaryobjnum,SphereSize 
 endif

   Position object Imaginaryobjnum,StartX#,StartY#,StartZ#
   if hideflg=1 then hide object Imaginaryobjnum 
REm Running a check to "Scan" for and obstructing object.......      
  For Check=1 to Cycles
        Yes=0                  
        NextX#=Curvevalue(EndX#,Object Position X(Imaginaryobjnum),accuracy)                   
        NextY#=Curvevalue(EndY#,Object Position Y(Imaginaryobjnum),accuracy)                   
        NextZ#=Curvevalue(EndZ#,Object Position Z(Imaginaryobjnum),accuracy)                   
                         
        Position object Imaginaryobjnum,NextX#,NextY#,NextZ#
                                
                                 
                                    
       REm If detected an obj...........                        
       Objdetected = object collision(Imaginaryobjnum,0)
      if Objdetected > 0 and Objdetected <> Obj
        Yes=1    
       DD_IO_Info(0)=Objdetected
       DD_IO_Info(1)=Object Position X(Imaginaryobjnum)
       DD_IO_Info(2)=Object Position Y(Imaginaryobjnum)
       DD_IO_Info(3)=Object Position Z(Imaginaryobjnum)
    
      endif
         

      if Yes=1 Then ExitFunction Yes
  
  Next Check





endfunction Yes

function ray(x1#,y1#,z1#,x2#,y2#,z2#,obj)
    make object triangle obj,x1#,y1#,z1#,x1#,y1#,z1#,x2#,y2#,z2#
    result=object collision(obj,0)
    delete object obj
endfunction result

autocam off : position camera 0,10,0

make object plain 1,100,100
xrotate object 1,90
position object 1,50,0,50
sc_setupobject 1,0,2


Dim DD_IO_Info(3)


start = timer()

for x = 1 to 100
   for y = 1 to 100
      `a# = sc_intersectobject(1,x,100,y,x,-100,y)
      a# = intersect object(1,x,100,y,x,-100,y)
      `a# = DDs_Line_of_Sight(x,100,y,x,-100,y,10,30,100,2000,1)
   next y
next x

ends = timer()
diff = ends - start

repeat

text 0,0, str$(diff) : sync

until scancode() > 0

end


Function DDs_Line_of_Sight(StartX#,StartY#,StartZ#,EndX#,EndY#,EndZ#,SphereSize,accuracy,Cycles,Imaginaryobjnum,Obj)

Rem Clear the imagine object if exists .
 If object exist(Imaginaryobjnum)=0
    Make object Sphere Imaginaryobjnum,SphereSize
 endif

   Position object Imaginaryobjnum,StartX#,StartY#,StartZ#

REm Running a check to "Scan" for and obstructing object  .
  For Check=1 to Cycles
        Yes=0
        NextX#=Curvevalue(EndX#,Object Position X(Imaginaryobjnum),accuracy)
        NextY#=Curvevalue(EndY#,Object Position Y(Imaginaryobjnum),accuracy)
        NextZ#=Curvevalue(EndZ#,Object Position Z(Imaginaryobjnum),accuracy)

        Position object Imaginaryobjnum,NextX#,NextY#,NextZ#



       REm If detected an obj   ..
       Objdetected = object collision(Imaginaryobjnum,0)
      if Objdetected > 0 and Objdetected <> Obj
        Yes=1
       DD_IO_Info(0)=Objdetected
       DD_IO_Info(1)=Object Position X(Imaginaryobjnum)
       DD_IO_Info(2)=Object Position Y(Imaginaryobjnum)
       DD_IO_Info(3)=Object Position Z(Imaginaryobjnum)

      endif


      if Yes=1 Then ExitFunction Yes

  Next Check

endfunction Yes