Graphics3D 640,480,32,2
SetBuffer BackBuffer ()
Include "system\is Bob engine.bb"

;zeigt die verwendung der Befehle is_create_anim(), is_set_anim_bob()

;kamera und Layer erstellen
Kamera=CreateCamera( )
Is_Setup_layer(Kamera)

;mesh und Surface erstellen
mesh=Is_Create_Mesh()
; erstellt die Surface mit textur größe 512x512
surface=Is_create_Surface(mesh,"ABCD.png",1)

;--------Bob 1-------------
;erstellt die Animation in größe 128x128 das ergibt 4 Bilder auf der Textur mit abspielgeschwingkeit von einer 1 Sekunde
Is_Create_Anim(surface,128,128)
;erstellt einen Bob für die Animation
bob=Is_Create_Bob (surface,100,100)
;setzt die anzahl der bilder für die Animation und die abspielrichtung
Is_Set_Anim_Bob(bob,0,3,1)
;bildgriff auf mitte
Is_Automid_Bob (bob)

;-------Bob 2-------------
;erstellt die Animation in größe 128x128 das ergibt 4 Bilder auf der Textur mit abspielgeschwingkeit von einer halben Sekunde
Is_Create_Anim(surface,128,128,.5)
;erstellt einen Bob für die Animation
bob2=Is_Create_Bob (surface,80,80)
;setzt die anzahl der bilder für die Animation und die abspielrichtung
Is_Set_Anim_Bob(bob2,0,1,1)



timer=CreateTimer (60)


Repeat   
   Is_Rotate_Bob (bob,1)
   Is_Draw_Bob(bob2,10,10)
   Is_Draw_Bob(bob,320,240)
   WaitTimer (timer)
   RenderWorld
   
   Flip
Until KeyHit(1)

Function is_rect_kollision_bob(id)
   If id=0 Then Return
   bob.bob=Object.bob(id)
   If bob.bob=Null Return

   ;punkt 0 x,y Kordinaten übergeben
       X#=VertexX (bob\Surface,bob\v[0])
   y#=Abs(VertexY (bob\Surface,bob\v[0]))

   ;punkt 1 x,y Kordinaten übergeben
       X1#=VertexX (bob\Surface,bob\v[1])
   y1#=Abs(VertexY (bob\Surface,bob\v[1]))

   ;punkt 2 x,y Kordinaten übergeben
       X2#=VertexX (bob\Surface,bob\v[2])
   y2#=Abs(VertexY (bob\Surface,bob\v[2]))

   ;punkt 3 x,y Kordinaten übergeben
   X3#=VertexX (bob\Surface,bob\v[3])
   y3#=Abs(VertexY (bob\Surface,bob\v[3]))
   
   ; alle weiteren Bob´s überprüfen ob einen Kollision stattgefunden hat   
   For bob.bob=Each bob
      ;punkt 0 x,y Kordinaten übergeben
      Xx#=VertexX (bob\Surface,bob\v[0])
      yy#=Abs(VertexY (bob\Surface,bob\v[0]))

      ;punkt 1 x,y Kordinaten übergeben   
          Xx1#=VertexX (bob\Surface,bob\v[1])
      yy1#=Abs(VertexY (bob\Surface,bob\v[1]))

      ;punkt 2 x,y Kordinaten übergeben   
          Xx2#=VertexX (bob\Surface,bob\v[2])
      yy2#=Abs(VertexY (bob\Surface,bob\v[2]))

      ;punkt 2 x,y Kordinaten übergeben
      Xx3#=VertexX (bob\Surface,bob\v[3])
      yy3#=Abs(VertexY (bob\Surface,bob\v[3]))

      ;abfragen aller Vertex ob sie sich überschneiden
      ;punkt 0
      If bob\id >< id
         ausgabe=Line_intersect(x#,y#,x1#,y1#, xx#,yy#,xx1#,yy1#)
         If ausgabe >0 Return ausgabe
      EndIf
      If x>xx And x<xx1
         If y>yy And y<yy2
            Return 1
         EndIf
      EndIf
      ;punkt 1
      If bob\id >< id
         ausgabe=Line_intersect(x1#,y1#,x3#,y3#, xx1#,yy1#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
      EndIf    
      If x1>xx And x1<xx3
         If y1>yy And y1<yy3
            Return 1
         EndIf
      EndIf
      ;punkt 2
      If bob\id >< id
         ausgabe=Line_intersect(x2#,y2#,x3#,y3#, xx2#,yy2#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
      EndIf    
      If x2>xx And x2<xx1
         If y2>yy And y2<yy2
            Return 1
         EndIf
      EndIf
      ;punkt 3
      If bob\id >< id
         ;ausgabe=Line_intersect(x#,y#,x2#,y2#, xx#,yy#,xx2#,yy2#)
         ;If ausgabe =1 Return ausgabe
      EndIf    
   Next

End Function   
Function Line_intersect(x1#,y1#,x2#,y2#, x3#,y3#,x4#,y4#)
   ;Steigung ausrechnen
   m1# = (y1#-y2#)/(x1#-x2#)
   m2# = (y3#-y4#)/(x3#-x4#)
   
   ;Y-Achsen Abschnitt ausrechnen
   b1# = y1# - m1#*x1#
   b2# = y3# - m2#*x3#
   
   
   ;Term umformen
   x# = (b2# - b1#) / (m1# - m2#)
   y# = x# * m1# + b1#
   
   ;schauen, ob der Punkt auf einer Linie liegt
   abstand# = Abs (x1#-x2#)
   If Abs (x#-x1#) <= abstand # Then
      If Abs (x#-x2#) <= abstand # Then
            
         abstand# = Abs (y1#-y2#)
         If Abs (y#-y1#) <= abstand # Then
            If Abs (y#-y2#) <= abstand # Then
                 
               abstand# = Abs (x3#-x4#)
               If Abs (x#-x3#) <= abstand # Then
                  If Abs (x#-x4#) <= abstand # Then
                      
                     abstand# = Abs (y3#-y4#)
                     If Abs (y#-y3#) <= abstand # Then
                        If Abs (y#-y4#) <= abstand # Then
                         
                        Return 1
                         
                        EndIf
                     EndIf
                  EndIf
               EndIf
            EndIf
         EndIf
      EndIf
   EndIf
End Function

Graphics 512,512,0,2
SetBuffer BackBuffer()

x0=128+32:y0=128-32
x1=384+32:y1=128+32
x2=384-32:y2=384+32
x3=128-32:y3=384-32




While Not KeyHit(1)
 mx=MouseX()
 my=MouseY()

 If KeyHit(2) x0=mx:y0=my
 If KeyHit(3) x1=mx:y1=my
 If KeyHit(4) x2=mx:y2=my
 If KeyHit(5) x3=mx:y3=my

 Color 64,64,64
 If InsideQuad(mx,my,x0,y0,x1,y1,x2,y2,x3,y3) Rect 0,0,512,512,1
 Color 255,255,255

 Line x0,y0,x1,y1
 Line x1,y1,x2,y2
 Line x2,y2,x3,y3
 Line x3,y3,x0,y0

Text 20,20,MouseX()

 Flip
 Cls
Wend
End




Function InsideQuad(px,py,x0,y0,x1,y1,x2,y2,x3,y3)
 If (x1-x0)*(py-y1)-(px-x1)*(y1-y0)>0
  If (x2-x1)*(py-y2)-(px-x2)*(y2-y1)>0
   If (x3-x2)*(py-y3)-(px-x3)*(y3-y2)>0
    If (x0-x3)*(py-y0)-(px-x0)*(y0-y3)>0
     Return True
    End If
   End If
  End If
 End If
End Function

Function is_rect_kollision_bob(id)
   Local x#,y#,x1#,y1#,x2#,y2#,x3#,y3#,xx#,yy#,xx1#,yy1#,xx2#,yy2#,xx3#,yy3#
   If id=0 Then Return
   bob.bob=Object.bob(id)
   Id=bob\id
   If bob.bob=Null Return
   ;punkt 0 x,y Kordinaten übergeben
    X#=VertexX (bob\Surface,bob\v[0])
   y#=Abs(VertexY (bob\Surface,bob\v[0]))
   ;punkt 1 x,y Kordinaten übergeben
    X1#=VertexX (bob\Surface,bob\v[1])
   y1#=Abs(VertexY (bob\Surface,bob\v[1]))
   ;punkt 2 x,y Kordinaten übergeben
    X3#=VertexX (bob\Surface,bob\v[2])
   y3#=Abs(VertexY (bob\Surface,bob\v[2]))
   ;punkt 3 x,y Kordinaten übergeben
   X2#=VertexX (bob\Surface,bob\v[3])
   y2#=Abs(VertexY (bob\Surface,bob\v[3]))

   
   ; alle weiteren Bob´s überprüfen ob einen Kollision stattgefunden hat   
   For bob.bob=Each bob
      If bob\id>< id
         ;punkt 0 x,y Kordinaten übergeben
         Xx#=VertexX (bob\Surface,bob\v[0])
         yy#=Abs(VertexY (bob\Surface,bob\v[0]))
         ;punkt 1 x,y Kordinaten übergeben   
          Xx1#=VertexX (bob\Surface,bob\v[1])
         yy1#=Abs(VertexY (bob\Surface,bob\v[1]))
         ;punkt 2 x,y Kordinaten übergeben   
          Xx3#=VertexX (bob\Surface,bob\v[2])
         yy3#=Abs(VertexY (bob\Surface,bob\v[2]))
         ;punkt 2 x,y Kordinaten übergeben
         Xx2#=VertexX (bob\Surface,bob\v[3])
         yy2#=Abs(VertexY (bob\Surface,bob\v[3]))
      EndIf    
      ;abfragen aller Vertex ob sie sich überschneiden
      ;punkt 0
      If bob\id >< id
         ausgabe=Insidebob(x#,y#,xx#,yy#,xx1#,yy1#,xx2#,yy2#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
         ausgabe=Insidebob(xx#,yy#,x#,y#,x1#,y1#,x2#,y2#,x3#,y3#)
         If ausgabe =1 Return ausgabe      
      EndIf
      ;punkt 1
      If bob\id >< id
         ausgabe=Insidebob(x1#,y1#,xx#,yy#,xx1#,yy1#,xx2#,yy2#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
         ausgabe=Insidebob(xx1#,yy1#,x#,y#,x1#,y1#,x2#,y2#,x3#,y3#)
         If ausgabe =1 Return ausgabe         
      EndIf    
      ;punkt 2
      If bob\id >< id
         ausgabe=Insidebob(x2#,y2#,xx#,yy#,xx1#,yy1#,xx2#,yy2#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
         ausgabe=Insidebob(xx2#,yy2#,x#,y#,x1#,y1#,x2#,y2#,x3#,y3#)
         If ausgabe =1 Return ausgabe         
      EndIf    
      ;punkt 3
      If bob\id >< id
         ausgabe=Insidebob(x3#,y3#,xx#,yy#,xx1#,yy1#,xx2#,yy2#,xx3#,yy3#)
         If ausgabe =1 Return ausgabe
         ausgabe=Insidebob(xx3#,yy3#,x#,y#,x1#,y1#,x2#,y2#,x3#,y3#)
         If ausgabe =1 Return ausgabe         
      EndIf    
   Next

End Function