Enumeration
  #Flake
  #WinHeight = 600
  #WinWidth = 800
  #Number_of_flakes = 10
EndEnumeration

Structure SnowPosition
  X.i
  Y.i
EndStructure

Dim Snow.SnowPosition(1)
Snow()/X = Random(800)
Snow()/Y = Random(600)

UsePNGImageDecoder()
InitKeyboard()
InitSprite()


OpenWindow(0, 0, 0, 800, 600, "Static Sprite Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 800, 600, 0, 0, 0) ;Set the window parameters
Global Quit.b = #False
LoadSprite(#Flake, "flake.png", #PB_Sprite_Texture | #PB_Sprite_AlphaBlending)

Repeat

  Repeat
    Event = WindowEvent()
    If Event = #PB_Event_CloseWindow : Quit = #True : EndIf
  Until Event = 0
  FlipBuffers()
  ClearScreen(0)
  Gosub Snowflake
  ExamineKeyboard()
  Delay(5)
Until KeyboardPushed(#PB_Key_Escape) Or Quit
End

Snowflake:
For count=0 To #Number_of_Flakes
  DisplayTransparentSprite(#Flake, x, y)
Next count
Return