Global GFX_X=1280
Global GFX_Y=1024

Graphics GFX_X,GFX_Y,32,60


Type Punkt
Field x#
Field y#
End Type

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


k:Kurve = New Kurve

k.P1 = Punkt_Create(Rand(0,GFX_X),Rand(0,GFX_Y))
k.P2 = Punkt_Create(Rand(0,GFX_X),Rand(0,GFX_Y))
k.P3 = Punkt_Create(Rand(0,GFX_X),Rand(0,GFX_Y))
k.P4 = Punkt_Create(Rand(0,GFX_X),Rand(0,GFX_Y))
				
Repeat'Hauptschleife



k.P1.x = k.P4.x
k.P1.y = k.P4.y

zufall#=Rnd(0,1)
rx# = k.P4.x-k.P3.x
ry# = k.P4.y-k.P3.y

k.P2.x = k.P1.x+rx
k.P2.y = k.P1.y+ry

k.P4.x = Rand(0,GFX_X)
k.P4.y = Rand(0,GFX_Y)


winkel# = Rand(0,359)
k.P3.x = k.P4.x+Sin(winkel)*200
k.P3.y = k.P4.y+Cos(winkel)*200



For t#=0 To 1 Step 0.01
Cls
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
DrawText \"Punkt\",x,y
Kurve_Draw(k:Kurve)
Flip
If KeyHit(27) End
Next

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.05
	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
	DrawLine lastx,lasty,x,y
Next
DrawText \"P1\",k.P1.x,k.P1.y
DrawText \"P2\",k.P2.x,k.P2.y
DrawText \"P3\",k.P3.x,k.P3.y
DrawText \"P4\",k.P4.x,k.P4.y
End Function