Hi
i have made a little 3d cube spinning program....
BUT!
this one is a bit difference from the others
cus in this one you can choose if you wanna see the cube spinning auto or you can choose manual if you wanna spin it yourself
If you choose manuel here is the control:
leftkey : yrotate the cube
rightkey : xrotate the cube
NOTE: anyone ho didnt readed "dbpro only"
this program will only work in dbpro all with dbclassic there is no reason to try the snippet i have tested it in dbclassic and it didnt work.
i will also say thanks to : Supremacy Project(forum member) for the help.
here is the source:
set display mode 800,600,16
flag$ as string
flag2 as integer
set text size 18
set text font "times new roman"
text 10,10, "this program is made by: The Nerd special thanks to: Supremacy Project(forum member)"
set cursor 10,20
input "press a if you just wanna see the cube spin auto or m to control: ", flag$
text 10,35, "press a key to continue"
wait key
sync on
sync rate 30
if flag$="a" then flag2=1
if flag$="m" then flag2=2
make object cube 1,100
do
select (flag2)
case 1:
yrotate object 1,object angle y(1)+1
endcase
case 2:
if leftkey()=1 then yrotate object 1,object angle y(1)+2
if rightkey()=1 then xrotate object 1,object angle x(1)-2
endcase
endselect
if inkey$()="a" then flag2=1
if inkey$()="m" then flag2=2
fastsync
loop
hope you enjoy
please give me some comments
-The Nerd
