- 34 名前：DBPの例 [2013/02/17(日) 16:25:10.99 ]
- `DarkBASIC Professional Source Code
sync on
sync rate 0
make object cube 1, 10
do
rotate object 1, object angle x ( 1 ) + 0.1, object angle y ( 1 ) + 0.1, object angle z ( 1 ) + 0.1
for a = 1 to 100
for b = 1 to 100
for c = 1 to 100
d = rnd ( 100 )
next c
next b
next a
set cursor 0, 0
print "fps = " + str$( screen fps ( ) )
sync
loop
