Graphics 800,600,16,2
Global frametimer = CreateTimer (50)
Global Start,Wert,Phase
Const max = 40
Const frequenz = 10

Dim Items(max,10)
Dim Farbe(3)
Dim Kreis#(360,1)
Farbe(1) = 240
Farbe(2) = 10
Farbe(3) = 10

;Items(I,1)  X
;Items(I,2)  Y
;Items(I,3)  Radius
;Items(I,4) -> X
;Items(I,5) -> Y

;Items(I,6)  StartWinkel
;Items(I,8)  Speed
;Items(I,9)  Richtung

Initialise()

Repeat
  WaitTimer (frametimer)
  ;Cls
  Winkel = (MilliSecs()-Start) / frequenz
  DrawItem(Winkel)
  Flip
Until KeyHit(1)

Function DrawItem(Winkel)
  Mode = Winkel Mod 360
  Phase = Mode/60
  If Mode > Wert Then
    Wert = Mode
    Z = ((7-Phase) Mod 3) + 1
    If (Phase Mod 2) Then Farbe(Z) = Farbe(Z) + Rnd(8,10) Else Farbe(Z) = Farbe(Z) - Rnd(8,10)
  Else
    Wert = Mode
  EndIf
  If Farbe(Z) < 10 Then Farbe(Z)=10
  If Farbe(Z) > 240 Then Farbe(Z)=240
  
  For I = 1 To max
  
    W = ((Winkel+Items(I,6))*Items(I,8)/10) Mod 360
    Items(I,1) = 400 + Kreis(W,Items(I,9))*Items(I,4)
    Items(I,2) = 300 + Kreis(W,1-Items(I,9))*Items(I,5)

    Color Farbe(1),Farbe(2),Farbe(3)
    Oval Items(I,1)-Items(I,3)/2,Items(I,2)-Items(I,3)/2,Items(I,3),Items(I,3),1
    Line Items(I,1),Items(I,2),400,300
  Next
End Function

Function Initialise()
  SetBuffer BackBuffer () 
  SeedRnd MilliSecs()
  
  For I = 0 To 359
    Kreis#(I,0) = Sin(I)
    Kreis#(I,1) = Cos(I)
  Next
  
  For I = 1 To max
    Items(I,1) = Rnd(50,750)
    Items(I,2) = Rnd(50,550)
    Items(I,3) = Rnd(10,50)
    Items(I,4) = Abs(400-Items(I,1))
    Items(I,5) = Abs(300-Items(I,2))
    Items(I,6) = (ATan2(300-Items(I,2),400-Items(I,1))+360) Mod 360
    Items(I,8) = 10
    Items(I,9) = Rnd(0,1)
  Next
  Start = MilliSecs()
End Function