Code: Select all
FlipBuffers(1) : Delay(1)
Code: Select all
rotate.f = timegettime_() / 10000
Code: Select all
; -------- Test the Module PlayerRoutine and the CPU ussage....
cFile$ = OpenFileRequester("Please select your Protracker Module","","",0)
If cFile$ = ""
MessageRequester("Error","Cant find Module!",0)
End
EndIf
If InitSprite() = 0
MessageRequester("Error","Cant Init Sprite!",0)
End
EndIf
If InitKeyboard() = 0
MessageRequester("Error","Cant Init Keyboard!",0)
End
EndIf
If InitSound() = 0
MessageRequester("Error","Cant Init Sound!",0)
End
EndIf
If InitModule() = 0
MessageRequester("Error","Cant Init Module!",0)
End
EndIf
If OpenWindow(0,0,0,640,480,#PB_Window_WindowCentered |#PB_Window_ScreenCentered ,"PlayModule and Screeb CPU ussage Test") = 0
MessageRequester("Error","Cant open Window!",0)
End
EndIf
If OpenWindowedScreen(WindowID(0),0,0,640,480,0,0,0) = 0
MessageRequester("Error","Cant open Windowed Screen!",0)
End
EndIf
; -------- Load and Play Protracker Module --------
LoadModule(0,cFile$)
PlayModule(0)
; -------- Draw on Screen any play Module --------
Repeat
lEvent = WindowEvent()
ExamineKeyboard()
ClearScreen(0)
StartDrawing(ScreenOutput())
Box( Random(640-20), Random(480-20), 20, 20, $ffffff )
StopDrawing()
FlipBuffers(1)
Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
End
Completely insane! It's a demo! Why would you play a DVD while running a demo?!Jan Vooijs wrote:@Va!n,
The frame 60 version runs very smooth only one or two small hick-ups every odd 20 or 30secs, but it still uses all the CPU cycles!! So no other app can run (like playing a DVD) or we stutter like madd (that is both DVD and your prog).
Well thank YOUdjes wrote:Completely insane! It's a demo! Why would you play a DVD while running a demo?!Jan Vooijs wrote:@Va!n,
The frame 60 version runs very smooth only one or two small hick-ups every odd 20 or 30secs, but it still uses all the CPU cycles!! So no other app can run (like playing a DVD) or we stutter like madd (that is both DVD and your prog).
Maybe you don't know : a demo try to push the computer limits. If you have no cpu time left, maybe it's because the code is using it.
MrVain> However, controlling frame rate on a PC is not easy. Maybe we could share our knowledge to do it efficiently?
and the same back!! The purpose is to look if the demo runs at any rate!! Not to steel all the CPU cycles which it does now and stutters, but running smooth. There is a problem with the way the demo is build inside, aka wrong type of "engine" which looking at the provided source code makes me wonder this runs beter:Code: Select all
; -------- Test the Module PlayerRoutine and the CPU ussage....
... code removed was unchanged ...
; -------- Draw on Screen any play Module --------
Repeat
lEvent = WaitWindowEvent( 2)
ExamineKeyboard()
; ClearScreen(0)
StartDrawing(ScreenOutput())
Box( Random(640-20), Random(480-20), 20, 20, $ffffff )
StopDrawing()
FlipBuffers(1)
; Delay(1)
Until KeyboardPushed(#PB_Key_Escape)
End
This version runs about 30% and still NO stutter!!! I even can play a DVD while this litle demo version runs...What should WaitWindowEvent(2) do??? This command dont use/need any arguments! So i dont understand the "2"... In the original effect code i dont used any ClearScreen(), because the complete screen will be redrawed each frame, so i didnt used ClearScreen() .. Delay(1) was used because i dont wanted 100% CPU ussage...Jan Vooijs wrote: Note the " WaitWindowEvent( 2)" and removal of "; ClearScreen(0)" and the "Delay(1)". But the program stops if the mouse is NO longer on the window (side effect)...
Hope this helps....
WaitWindowEvent(2) sets a timeout to the command, which means its something like Delay(2) but includes window message processing.va!n wrote:What should WaitWindowEvent(2) do??? This command dont use/need any arguments! So i dont understand the "2"... In the original effect code i dont used any ClearScreen(), because the complete screen will be redrawed each frame, so i didnt used ClearScreen() .. Delay(1) was used because i dont wanted 100% CPU ussage...Jan Vooijs wrote: Note the " WaitWindowEvent( 2)" and removal of "; ClearScreen(0)" and the "Delay(1)". But the program stops if the mouse is NO longer on the window (side effect)...
Hope this helps....
