The Line Graph for FPS by Jedi Lord25th Mar 2006 19:08
|
|---|
|
Summary No Media Required, this program will find how fast your computing doing. Description REM Project: Line Graph System Check Code ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
REM Project: Line Graph System Check
REM Created: 2/12/2006 6:26:07 PM
REM
REM ***** Main Source File *****
REM
sync on
sync rate 70
set window on
set window title "Line graph of FPS"
set display mode 400,400,32
active=0
dim average(4)
totalaverage=-1
do
cls : cls : sync
ink rgb(255,0,0),0
text 85,193.5,"0-"
text 78,173.5,"20-"
ink rgb(255,0,0),0
text 50,163.5,"------"
ink rgb(0,255,0),0
text 78,153.5,"40-"
text 78,133.5,"60-"
text 78,113.5,"80-"
text 70,93.5,"100-"
ink rgb(255,255,255),0
line 100,100,200,100
line 100,100,100,200
line 200,100,200,200
line 100,200,200,200
if screen fps()<30
ink rgb(255,0,0),0
else
ink rgb(0,255,0),0
endif
oldx=101
oldy=200
time=0
oldtime=0
vcount=0
for count=101 to 200 step 1
time=time+1
if totalaverage>=0
set cursor 20,220
print "Total average: ",totalaverage
endif
set cursor 100,20
print "TOTAL TIMES FAIL FPS: ",fail
if screen fps()<30
fail=fail+1
ink rgb(255,0,0),0
else
ink rgb(0,255,0),0
endif
line oldx,oldy,count,200-screen fps() : oldy=200-screen fps()
oldx=count
if time-20>oldtime
vcount=vcount+1
set cursor 20,time-10
print "FPS: ",screen fps()
average(vcount)=screen fps()
oldtime=time
endif
sync
next count
totalaverage=average(1)+average(2)+average(3)+average(4)
totalaverage=totalaverage/4
sync
loop
|