This is a very simple program that tells you test for how many polys you should use in your game. It simply tells you how many frames per second it will process with that number of polygons.
To control it use the upkey to increase the number of polys and downkey to decrease the number of polys.
I hope this program helps.
backdrop on
do
set cursor 0,0:print "FPS=",(screen fps()):print "polys on screen=",statistic(1)
if upkey()=1 then inc o#,1:make object cube o#,0
if downkey()=1 and o#>=1 then delete object o#:dec o#,1
loop
There are two types of people in this world: people who are extremly cool and are good at everything and people who are me.