SpiderBasic

Code: Select all

#OutputSprite = 0
#tmpSprite = 1

Global GameWidth.i = 320, GameHeight.i = 240, GameSpriteSize.i = 16
Global DisplayWidth.i = 0, DisplayHeight.i = 0

Procedure RenderFrame()
  ClearScreen($000077)
  
  ClipSprite(#tmpSprite, 20 , 20 , 56 , 52 )
  DisplaySprite(#tmpSprite, 20, 20 )
  
  
  FlipBuffers()
  
EndProcedure


ExamineDesktops()
DisplayWidth = DesktopWidth(0) / 2
DisplayHeight = DesktopHeight(0) /2

OpenWindow (0, 0, 0, DisplayWidth, DisplayHeight, "", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
OpenWindowedScreen(WindowID(0), 0, 0, GameWidth, GameHeight, 1, 0, 0) ; auto scale is set, not not working

SetFrameRate(3)

BindEvent(#PB_Event_RenderFrame, @RenderFrame())

CreateSprite(#tmpSprite, 32, 32)
StartDrawing(SpriteOutput(#tmpSprite))
Box(0, 0, 32, 32, RGB(255,255,255))
StopDrawing()

FlipBuffers(); // start the rendering