CodeBase - The Line Graph for FPS

Information

Uploaded: 25th Mar 2006 19:08

Modified: 1st Jan 1970 01:00

Author:  Jedi Lord

Summary

No Media Required, this program will find how fast your computing doing.

Full Description

REM Project: Line Graph System Check<br /> REM Created: 2/12/2006 6:26:07 PM<br /> REM<br /> REM ***** Main Source File *****<br /> REM<br /> sync on<br /> sync rate 70<br /> set window on<br /> set window title &quot;Line graph of FPS&quot;<br /> set display mode 400,400,32<br /> active=0<br /> dim average(4)<br /> totalaverage=-1<br /> do<br /> cls : cls : sync<br /> ink rgb(255,0,0),0<br /> text 85,193.5,&quot;0-&quot;<br /> text 78,173.5,&quot;20-&quot;<br /> ink rgb(255,0,0),0<br /> text 50,163.5,&quot;------&quot;<br /> ink rgb(0,255,0),0<br /> text 78,153.5,&quot;40-&quot;<br /> text 78,133.5,&quot;60-&quot;<br /> text 78,113.5,&quot;80-&quot;<br /> text 70,93.5,&quot;100-&quot;<br /> ink rgb(255,255,255),0<br /> line 100,100,200,100<br /> line 100,100,100,200<br /> line 200,100,200,200<br /> line 100,200,200,200<br /> if screen fps()&lt;30<br /> ink rgb(255,0,0),0<br /> else<br /> ink rgb(0,255,0),0<br /> endif<br /> oldx=101<br /> oldy=200<br /> time=0<br /> oldtime=0<br /> vcount=0<br /> for count=101 to 200 step 1<br /> time=time+1<br /> <br /> if totalaverage&gt;=0<br /> set cursor 20,220<br /> print &quot;Total average: &quot;,totalaverage<br /> endif<br /> <br /> set cursor 100,20<br /> print &quot;TOTAL TIMES FAIL FPS: &quot;,fail<br /> <br /> if screen fps()&lt;30<br /> fail=fail+1<br /> ink rgb(255,0,0),0<br /> <br /> else<br /> <br /> ink rgb(0,255,0),0<br /> endif<br /> <br /> line oldx,oldy,count,200-screen fps() : oldy=200-screen fps()<br /> <br /> oldx=count<br /> <br /> if time-20&gt;oldtime<br /> vcount=vcount+1<br /> set cursor 20,time-10<br /> print &quot;FPS: &quot;,screen fps()<br /> average(vcount)=screen fps()<br /> oldtime=time<br /> endif<br /> <br /> sync<br /> next count<br /> <br /> totalaverage=average(1)+average(2)+average(3)+average(4)<br /> <br /> totalaverage=totalaverage/4<br /> sync<br /> loop