Rem Project: 3d Moddellere NO MEDIA!!!!
Rem Created: 18/11/2005 20:18:08
AutoCam Off
Rem ***** Main Source File *****
make matrix 1, 1000, 1000, 100, 100
position camera 0, 10, 0
position matrix 1, 0, 0, 0
set camera aspect 0.75
do
if keystate(2) then input "Number of cube",num$ : Input "size of cube",size$:input "Positionx", posx$:input "Positiony", posy$:input "Positionz",posz$:make object cube val(num$),val(size$):position object val(num$), val(posx$), val(posy$), val(posz$)
if keystate(3) then input "Number of cone", num2$:Input "size of Cone",size2$:input "Positionx", posx2$:input "Positiony", posy2$:input "Positionz",posz2$:make object Cone val(num2$),val(size2$):position object val(num2$), val(posx2$), val(posy2$), val(posz2$)
if rightkeY()=1 then turn camera right 2
if leftkeY()=1 then turn camera left 2
if upkey()=1 then pitch camera up 2
if downkey()=1 then pitch camera down 2
loop