Enumeration
  #Flake
  #WinHeight = 600
  #WinWidth = 800

EndEnumeration


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)
    ExamineKeyboard()
    Gosub Flake0
    Delay(1)

  Until KeyboardPushed(#PB_Key_Escape) Or Quit

End




 Flake0:
 DisplayTransparentSprite(#Flake, 230, 100)
 Return
 Flake1:
 DisplayTransparentSprite(#Flake, 350, 420)
 Return
 Flake2:
 DisplayTransparentSprite(#Flake, 107, 320)

Return