I made it and it very correct position for these effect.
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
Don't whine... because I tried to put it into 1 line... and it still work. : )
Whoa... I like a shiny thing...