DarkBASIC 使っている奴情報交換してください 3

[123 名前は開発中のものです。 2014/02/20(木) 20:58:23.32 ID:PD81Au7i]

これ、テスト用のコードでふ

rem 回る立方体
set display mode 800,600,32,1
set window on
sync on
sync rate 60
ObjectNumber=1
make object cube ObjectNumber,10:color object ObjectNumber,rgb(0,0,255)
color object ObjectNumber,rgb(0,0,255)

while mouseclick()=0
set cursor 0,0
print "screen fps "+str$(screen fps())
xrotate object ObjectNumber,wrapvalue(object angle x(ObjectNumber)+1)
yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)
sync
endwhile
end