Global FPSSEC = MilliSecs(), FPS, FRAMES
Graphics 800,600,16,2
SetBuffer BackBuffer()



; --- Sternenhintergrund erstellen ---
Type star
 Field x#, y#, sx#, sy#, layer, col
End Type

For i = 1 To 500
 s.star = New star
 s\x = Rnd (0,800)
 s\y = Rnd (0,600)
 s\layer = Rnd(1,4)
 s\sx# = Cos(180) * s\layer
 s\sy# = Sin(180) * s\layer
 i = s\layer*50
 s\col = a*$1000000 + i*$10000 + i*$100 + i
Next
; --- Sternenhintergrund erstellen ---



; --- Hauptprogramm ---
 Repeat
  Cls
   
  UpdateStars()
  Text 0,0, "FPS: " + fps

  Flip
 Until KeyHit(1)

End
; --- Hauptprogramm ---



; --- Sterne bewegen und anzeigen ---
Function UpdateStars()
 LockBuffer BackBuffer()

  For s.star = Each star
   s\x# = s\x# + s\sx#
   s\y# = s\y# + s\sy#

   If s\x < 0 Then s\x = 800
   If s\x > 800 Then s\x = 0
   If s\y < 0 Then s\y = 600
   If s\y > 600 Then s\y = 0

   WritePixelFast s\x, s\y, s\col
  Next

 UnlockBuffer BackBuffer()
End Function
; --- Sterne bewegen und anzeigen ---



; --- FPS ermitteln ---
Function FPS()

  FRAMES = FRAMES + 1
  If MilliSecs() - FPSSEC => 1000 Then
   FPS = FRAMES
   FRAMES = 0
   FPSSEC = MilliSecs()
  EndIf
 
 Return FPS
End Function
; --- FPS ermitteln ---

;Local i
For i = 1 To 500
 s.star = New star
 s\x = Rnd (0,800)
 s\y = Rnd (0,600)
 s\layer = Rnd(1,4)
 s\sx# = Cos(180) * s\layer
 s\sy# = Sin(180) * s\layer
 i = s\layer*50 ;<<<<< Local  i = s\layer*50 !
 s\col = a*$1000000 + i*$10000 + i*$100 + i
Next