PureBasic Forums - English

Posted: **Wed Feb 08, 2012 6:11 am**

I want to see the numbers in this program increment at a rapid rate:

OpenWindow(1, 100, 100, 400, 400, "")
CreateImage(1, 400, 400)

For mc = 1 To 100
StartDrawing(ImageOutput(1))
DrawText(100,100, Str(mc))
StopDrawing()
StartDrawing(WindowOutput(1))
DrawImage(ImageID(1), 0, 0)
StopDrawing()
Next

Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
FreeImage(1)
CloseWindow(1)

If I set mc to increment to 1000, the screen goes white until the loop has finished counting. On OS X, how can I see the numbers count up to 1000, i.e. rapid graphics refresh?

Posted: **Wed Feb 08, 2012 6:05 pm**

...bad practice

Code: Select all

OpenWindow(1, 100, 100, 400, 400, "")
CreateImage(1, 400, 400)

For mc = 1 To 100
StartDrawing(ImageOutput(1))
DrawText(100,100, Str(mc))
StopDrawing()
StartDrawing(WindowOutput(1))
DrawImage(ImageID(1), 0, 0)
StopDrawing()
While WindowEvent():Wend
;While WaitWindowEvent(10):Wend ; for a delay
Next

Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
FreeImage(1)
CloseWindow(1)

Posted: **Thu Feb 09, 2012 9:14 pm**

Thanks William.

I had a loop with WaitWindowEvent() waiting for window events. By changing it to WaitWindowEvent(1), adding a 1 ms timeout, the graphics became responsive.

PureBasic Forums - English

Rapid Graphics Drawing

Rapid Graphics Drawing

Re: Rapid Graphics Drawing

Re: Rapid Graphics Drawing