SuperStrict
SeedRnd MilliSecs()
SetGraphicsDriver GLMax2DDriver()

Const GX:Int=1280
Const GY:Int=1024
Const MAPYNULL:Int=GY/5

Graphics GX,GY,32

Type Background
   Field x1:Int[]
   Field y1:Int[]
   
   Method Draw()
      For Local i:Int=0 To 1000
         SetColor 250,250,250
         Plot x1[i],y1[i]
      Next
   EndMethod
   
   Function Create:Background()
      Local bgr:Background=New Background
      For Local i:Int=0 To 1000
         bgr.x1[i]=Rand(0,GX)
         bgr.y1[i]=500
      Next
      Return bgr
   EndFunction
EndType

Local _bgr:Background=Background.Create()
Local a:Int=MilliSecs()
Local fps:Short=0
Local z:Short=0

While Not KeyHit(KEY_ESCAPE)
   
   If a+999<MilliSecs()
      a=MilliSecs()
      fps=z
      z=0
   EndIf

   Cls
   
   _bgr.Draw()
   
   DrawText "FPS: "+fps,0,0
   
   Flip 1
   
   z=z+1
   
Wend

End