Firstly I would like to say that this is in WIP section because I plan to add a few more features.
This was mostly made as something to do and an exercise of my programming ability (haven't coded in DBPro in a while
).
What this program does is add a bunch of spinning cubes until your FPS drops to, or below 30, while tallying up the number of cubes, vertices, and faces.
Basically it is a test of CPU and graphics card speed.
There is a .exe attached, but if you don't feel like downloading anything here is the source code:
DIM Cubes(-1)
cube=1
minfps$="0"
input "Aprox. FPS Threshold (I.E. 30) (NOTE: May vary by several FPS): ",minfps$
sync on
sync rate 0
do
if screen fps()>val(minfps$)
for i=1 to 10
make object cube cube,1
position object cube,rnd(15)-rnd(15),rnd(15)-rnd(15),rnd(30)
array insert at bottom Cubes()
Cubes()=cube
inc cube,1
next i
endif
count = array count(Cubes())
for i=1 to count
turn object right Cubes(i), .2
next i
inc count
text 20,20,"FPS: "+str$(screen fps())
text 20,40,"There are "+str$(count)+" cubes."
text 20,60,"There are "+str$(count*8)+" vertices."
text 20,80,"There are "+str$(count*6)+" faces."
sync
loop
= Done.
= Work in progress.
= Planned but not yet started.
Features:
Custom FPS threshold upon program launch.
All cubes rendered (Bug Fix).
--Many thanks to Max P for optimizing my code a bit 
.
GUI.
This isn't really that useful, but I thought I'd post it anyway.
Feel free to post any feedback you have below!
