Drawing Sprites

chris319 · **Joined:** Mon Oct 24, 2005 1:05 pm **Posts:** 386

Why do all three calls to StartDrawing() return errors? I am using OpenGL on Windows 7.

Code:

result = InitSprite()
If result = 0
  MessageRequester("Error", "Sprites not initialized.")
  End
EndIf

OpenWindow(1, 0, 100, 640, 400, "")
OpenWindowedScreen(WindowID(1), 0, 0, WindowWidth(1), WindowHeight(1), 0, 0, 0)

result = CreateSprite(1, 10, 33)

If result = 0
  MessageRequester("Error", "Sprite not created.")
  End
EndIf

StartDrawing(SpriteOutput(1))
;StartDrawing(SpriteOutput(SpriteID(1)))
;StartDrawing(SpriteID(1))

Delay(5000)

StopDrawing()
CloseWindow(1)

End

ts-soft · **Posted:** Wed Apr 11, 2012 6:08 am

Remove the Delay and add: Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

chris319 · **Joined:** Mon Oct 24, 2005 1:05 pm **Posts:** 386

ts-soft wrote:

Remove the Delay and add: Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Same error: "The specified output is NULL (0 value)." The call to StartDrawing() fails so it's not even getting to the call to Delay().

IdeasVacuum · **Posted:** Wed Apr 11, 2012 6:17 pm

With Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow, works fine here on WinXP 32bit, PB4.60
Compiler sub-system set to OpenGL.

chris319 · **Joined:** Mon Oct 24, 2005 1:05 pm **Posts:** 386

IdeasVacuum wrote:

With Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow, works fine here on WinXP 32bit, PB4.60
Compiler sub-system set to OpenGL.

Maybe it's a Windows 7 thing?

ts-soft · **Posted:** Wed Apr 11, 2012 6:36 pm

chris319 wrote:

Maybe it's a Windows 7 thing?

No, works fine on my Win7. I think, it is a driver problem on your PC.

bmon · **Posted:** Wed Apr 11, 2012 8:35 pm

Hi Chris ... See if this works

Code:

result = InitSprite()
If result = 0
  MessageRequester("Error", "Sprites not initialized.")
  End
EndIf

event = 0

OpenWindow(1, 0, 100, 640, 400, "")
OpenWindowedScreen(WindowID(1), 0, 0, WindowWidth(1), WindowHeight(1), 0, 0, 0)

result = CreateSprite(1, 10, 33)

If result = 0
  MessageRequester("Error", "Sprite not created.")
  End
EndIf

; Lets take the sprite we created and print an "H" on it
StartDrawing(SpriteOutput(result))
  DrawText(0,0,"H")
StopDrawing()
;StartDrawing(SpriteOutput(SpriteID(1)))
;StartDrawing(SpriteID(1))

Repeat
  event = WaitWindowEvent(1)
  
  ClearScreen(RGB(0,0,0))
  DisplaySprite(result,50,50)
  
  FlipBuffers()
Until event = #PB_Event_CloseWindow

;Delay(5000)

End

Sorry but I can only test on Windows XP. The StartDrawing() StopDrawing() command allows you to "draw" on the sprite in real time. If you are trying to load an existing image as a sprite then you wouldn't do the StartDrawing() StopDrawing() stuff to display it.

BasicallyPure · **Posted:** Wed Apr 11, 2012 8:56 pm

@bmon
if you are going to use 'result' like this:

Code:

StartDrawing(SpriteOutput(result))

and this:

Code:

DisplaySprite(result,50,50)

then you must use 'PB_Any' like this when you create the sprite:

Code:

result = CreateSprite(#PB_Any, 10, 33)

This works for me on Win. XP.

Code:

result = InitSprite()
If result = 0
  MessageRequester("Error", "Sprites not initialized.")
  End
EndIf

event = 0

OpenWindow(1, 0, 100, 640, 400, "")
OpenWindowedScreen(WindowID(1), 0, 0, WindowWidth(1), WindowHeight(1), 0, 0, 0)

result = CreateSprite(#PB_Any, 10, 33)

If result = 0
  MessageRequester("Error", "Sprite not created.")
  End
EndIf

; Lets take the sprite we created and print an "H" on it
StartDrawing(SpriteOutput(result))
  DrawText(0,0,"H")
StopDrawing()

Repeat
  event = WaitWindowEvent(1)
  
  ClearScreen(RGB(0,0,0))
  DisplaySprite(result,50,50)
  
  FlipBuffers()
Until event = #PB_Event_CloseWindow

;Delay(5000)

End

B.P.

chris319 · **Joined:** Mon Oct 24, 2005 1:05 pm **Posts:** 386

Tried the fixes, still getting an error on StartDrawing().

A driver problem?

J. Baker · **Posted:** Wed Apr 11, 2012 9:25 pm

chris319 wrote:

Tried the fixes, still getting an error on StartDrawing().

A driver problem?

Check out what graphics card you have and update to the latest driver if you can.

bmon · **Posted:** Thu Apr 12, 2012 4:18 am

Thanks B.P. ... Yep, it was a silly mistake on my part. :oops:

Chris ... Sorry that things still aren't working on your end. I hope it turns out to be something simple to correct ...

chris319 · **Joined:** Mon Oct 24, 2005 1:05 pm **Posts:** 386

I'm going to try to get transparent images working instead of sprites.

PureBasic Forum

Drawing Sprites

Who is online