;Grafikkramm
Graphics 400,400,0,2
SetBuffer BackBuffer()

;Schiffe
Type ship
 Field xp#;X-Position
 Field yp#;Y-Position
 Field wp%;Next Waypoint
 Field wk#;Winkel
End Type

;Wegepunkte
Dim xwp(9);X-Waypoints
Dim ywp(9);Y-Waypoints

ws#=0;SollWinkel
wi#=0;IstWinkel
xwp(0)=035:ywp(0)=090
xwp(1)=060:ywp(1)=030
xwp(2)=270:ywp(2)=030
xwp(3)=240:ywp(3)=140
xwp(4)=090:ywp(4)=180
xwp(5)=290:ywp(5)=270
xwp(6)=230:ywp(6)=370
xwp(7)=140:ywp(7)=360
xwp(8)=360:ywp(8)=040
xwp(9)=165:ywp(9)=240

;Hauptschleife
While Not KeyHit(1)

 ;Mauskramm
 mx=MouseX()
 my=MouseY()

 ;Wegepunkte
 For q=0 To 9
  Text xwp(q)-4,ywp(q)-6,q
 Next


 ;Neues Schiff
 If MouseHit(1)
  sh.ship=New ship
  sh\xp=mx
  sh\yp=my
  sh\wk=ATan2(ywp(0)-my,xwp(0)-mx)
  sh\wp=0
 End If

 ;Schiffe bewegen
 For sh.ship=Each ship
  ws=ATan2(ywp(sh\wp)-sh\yp,xwp(sh\wp)-sh\xp)
  sh\wk=sh\wk+Sgn(Sin(ws-sh\wk))
  sh\xp=sh\xp+Cos(sh\wk)
  sh\yp=sh\yp+Sin(sh\wk)
  Line sh\xp,sh\yp,sh\xp+Cos(sh\wk)*10,sh\yp+Sin(sh\wk)*10
  If Sqr((xwp(sh\wp)-sh\xp)^2+(ywp(sh\wp)-sh\yp)^2)<50 sh\wp=sh\wp+1
  If sh\wp>9 sh\wp=0;Delete sh
 Next

 Flip
 Cls
Wend
End

Global GFX_X=800
Global GFX_Y=600

Graphics GFX_X,GFX_Y,32,2
SetBuffer BackBuffer()


Type Punkt
Field x#
Field y#
End Type

Type Kurve
Field P1.Punkt
Field P2.Punkt
Field P3.Punkt
Field P4.Punkt
End Type

Repeat;Hauptschleife
   counter=1

   Repeat
      If MouseHit(1)
         Select counter
            Case 1
               k.Kurve = New Kurve
               k\P1 = Punkt_Create(MouseX(),MouseY())
            Case 2
               k\P2 = Punkt_Create(MouseX(),MouseY())
            Case 3
               k\P3 = Punkt_Create(MouseX(),MouseY())
            Case 4
               k\P4 = Punkt_Create(MouseX(),MouseY())
         End Select
         counter=counter+1
      EndIf
      

      Text 10,10,"4 Mausklicks um Kurve hinzuzufügen"
      If k<>Null
         If k\P1<>Null Text k\P1\x,k\P1\y,"P1"
         If k\P2<>Null Text k\P2\x,k\P2\y,"P2"
         If k\P3<>Null Text k\P3\x,k\P3\y,"P3"
         If k\P4<>Null Text k\P4\x,k\P4\y,"P4"
      EndIf
      Flip
   
      If KeyHit(27) End
   Until counter=5

   Cls
   For k.Kurve = Each Kurve
      Kurve_Draw(k)
   Next
   Flip
   If KeyHit(27) End
Forever

End




Function Punkt_Create.Punkt(x#,y#)
   p.Punkt = New Punkt
   p\x = x
   p\y = y
   Return p
End Function


Function Kurve_Draw(k.Kurve)
   Local x#,y#,lastx#,lasty#,t#

   x# = k\P1\x*(1-t)^3+3*k\P2\x*t*(1-t)^2+3*k\P3\x*t^2*(1-t)+k\P4\x*t^3
   y# = k\P1\y*(1-t)^3+3*k\P2\y*t*(1-t)^2+3*k\P3\y*t^2*(1-t)+k\P4\y*t^3

   For t=0 To 1 Step 0.1
      lastx# = x#
      lasty# = y#
      x# = k\P1\x*(1-t)^3+3*k\P2\x*t*(1-t)^2+3*k\P3\x*t^2*(1-t)+k\P4\x*t^3
      y# = k\P1\y*(1-t)^3+3*k\P2\y*t*(1-t)^2+3*k\P3\y*t^2*(1-t)+k\P4\y*t^3
      Line lastx,lasty,x,y
   Next
   Text k\P1\x,k\P1\y,"P1"
   Text k\P2\x,k\P2\y,"P2"
   Text k\P3\x,k\P3\y,"P3"
   Text k\P4\x,k\P4\y,"P4"
End Function