I run this program on my machine and get 65 to 70 frames per second.
When I put it on my roomates computer, which is a 1.6ghz processor, I get 280 frames per second. His processor is not even twice as fast as mine yet he gets four times the framerate.
here is the program I'm using.
Code: Select all
Screen 18,32,1,1
Function FPS%
Static FPSST!, FPS1%, FPS2%
FPS1% = FPS1% + 1
If FPSST! + 1 < Timer Then
FPS2% = FPS1%
FPS1% = 0
FPSST! = Timer
End If
FPS% = FPS2%
End Function
Dim TestPanel As Any Ptr
TestPanel = ImageCreate(640,460,Rgb(0,0,0))
Do
Locate 1,1: Print FPS%
Put (0,20), TestPanel, PSet
Loop Until Inkey <> ""
ImageDestroy(TestPanel)
End