AppTitle "Loop"
Graphics 640,480,16,2
SetBuffer BackBuffer()

Color 0,255,0
zoom# = 10.0
kerp = 0
add# = 1
speed = 20
colum = 1

Repeat

If KeyDown(200)=1 Then
speed = speed + 1
EndIf
If KeyDown(208)=1 Then
If speed > 1 Then speed = speed - 1
EndIf
If KeyHit(57)=1 Then
colum = Not colum
EndIf

For f# = -33 To 33 Step 1
Line f*zoom+320,-1000/(f*f)*zoom+400,(f+1)*zoom+320,-1000/((f+1)*(f+1))*zoom+400
Next

add = add + 0.1
If add >= 1 Then
add = 0
EndIf

;DebugLog add
For f# = 1 To 33
Color 0,255,0
Line (f+add)*zoom+320,-1000/((f+add)*(f+add))*zoom+400,-(f+add)*zoom+320,-1000/(-(f+add)*-(f+add))*zoom+400
If colum = 1 Then
Color 0,Abs(((f+add)*zoom+320)-320.0)/320*255,0
Rect (f+add)*zoom+320,390,1,200
Rect -(f+add)*zoom+320,390,1,200
EndIf
Next
Color 0,255,0

Text 0,0,"Speed(Pfeiltasten) : " + Str$(speed)
Text 0,10,"Leertaste um Stützen auszublenden"

Flip 0
Delay 1000/speed
Cls
Until KeyHit(1)
End

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

qq#=0
za#=0
x1#=0
y1#=0
x2#=0
y2#=0


While Not KeyHit(1)
 za=za+.5

 LockBuffer BackBuffer()

 For qq=0 To 10000
  x1=Sin(qq/3)/4
  y1=Cos(qq/2)/4
  x2=Sin(qq*x1+za)*(qq+x1)/60
  y2=Cos(qq*y1)*(qq+y1)/60
  WritePixel 200+x2,200+y2,14737632
 Next

 UnlockBuffer BackBuffer()

 Flip
 Cls
Wend
End