Graphics 800, 600, 16, 2


Global start_x = 100
Global start_y = 300
Global steps = 1000

Repeat
  SetBuffer BackBuffer() : Cls
  For i = 0 To steps - 1
    time# = (1.00 / steps) * i
    Plot bezierCurve#(start_x, start_x + 200, MouseX() - 200, MouseX(), time#), bezierCurve#(start_y, star_y - 200, MouseY() - 200, MouseY(), time#)
  Next
   
   time2# = (time2# + 0.01) Mod 1.00
   Oval bezierCurve#(start_x, start_x + 200, MouseX() - 200, MouseX(), time2#) - 5, bezierCurve#(start_y, star_y - 200, MouseY() - 200, MouseY(), time2#) - 5, 10, 10

  Flip
Until KeyHit(1) : End


; --------------------------------------------------------------------------------------------------------------------------------------
;   errechnen einer Bezierkurve  /  Startpunkt  /  Startpunkt BCP  /  Endpunkt BCP  /  Endpunkt
; --------------------------------------------------------------------------------------------------------------------------------------


Function   bezierCurve#(x1#, x2#, x3#, x4#, time#)

   Return   (x1# * ((1 - time#) ^ 3)) + (x2# * 3 * time# * ((1 - time#) ^ 2)) + (x3# * 3 * (time# ^ 2) * (1 - time#))  + (x4# * (time# ^ 2)) 

End Function

Global a#,b#,x#,y#,c#
Graphics 800,600,16,1
SetBuffer BackBuffer()
x=200 ;x Koordinate Erster Punkt
y=280;x Koordinate zweiter Punkt
While Not KeyHit (1)
   c=((y-x)/180);Wegen dem Sinus müssen alle Differenzen von x und y durch 180 geteilt werden (Einheitskreis)
   Cls
   Color 255,255,0
   For a=1 To 180 ;Wegen Einheitskreis 180°
       Line (x-c)+(a*c),Sin(a-1)*b+x+50,x+(a*c),Sin(a)*b+x+50 ;Zwischen beiden Sinuswerten ne Linie malen
   Next
   If KeyDown(200) Then b=b-1 ;Wert für den Sinusmultiplikator verringern
   If KeyDown(208) Then b=b+1 ;Wert für den Sinusmultiplikator erhöhen
   If KeyDown(203) Then y=y-1 ;Den 2.Punkt nach links bewegen
   If KeyDown(205) Then y=y+1 ;Den 2.Punkt nach rechts bewegen
   Flip
Wend