AppTitle "Starfield"

Const ResX=800
Const ResY=600
Const HalfX=ResX / 2
Const HalfY=ResY / 2
Const MaxZ=255
Const NumStars=1000


Graphics ResX,ResY,16,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()


Type TStar
Field x#,y#,z#
End Type


Global x2,y2,Spd#


Function RGB(r,g,b)
Return r*$10000+g*$100+b
End Function

Function Erzeugen()
 For i=1 To NumStars
  s.TStar=New TStar
  s\x = Rnd(-ResX,ResX)
  s\y = Rnd(-ResY,ResY)
  s\z = Rnd(0,MaxZ)
 Next
End Function


Function Zeichnen()
LockBuffer BackBuffer()
 For s.TStar=Each TStar
 
  x2 = 80 * s\x / s\z + HalfX
  y2 = 80 * s\y / s\z + HalfY
  s\z = s\z - Spd

  If s\z > 0 Then
   tmp=255 - s\z
   ;Color tmp,tmp,tmp
   ;Plot x2,y2
   WritePixelFast x2,y2,rgb(tmp,tmp,tmp)
  Else
   s\x = Rnd(-ResX,ResX)
   s\y = Rnd(-ResY,ResY)
   s\z = Rnd(0,MaxZ)
  End If

 Next
UnlockBuffer BackBuffer()
End Function


spd=1
Erzeugen
Repeat
Cls
Zeichnen
If KeyHit(27) Then spd=spd + 0.1
If KeyHit(53) Then spd=spd - 0.1
Flip
Until KeyHit(1)
End