Sorry your browser is not supported!

sync on
hide mouse

load object "ramp.3ds",1

xPos=50
yPos=100
zPos=0

do


print "xAng=",xAng
print "yAng=",yAng
print "zAng=",zAng
print "xPos",xPos
print "yPos",yPos
print "zPos",zPos

   if inkey$()="s" then  sin(yAng)=a#;cos(yAng)=b#;zPos=zPos+a#;xPos=xPos+b#
   if inkey$()="w" then  sin(yAng)=a#;cos(yAng)=b#;zPos=zPos-a#;xPos=xPos-b#


   if upkey()=1 then xAng=wrapvalue(xAng+1)
   if downkey()=1 then xAng=wrapvalue(xAng-1)
   if rightkey()=1 then yang=wrapvalue(yang+1)
   if  leftkey()=1 then yang=wrapvalue(yang-1)

   top:
   rotate camera xAng,yAng,zAng

   position camera xPos,yPos,zPos


   sync

loop

do

   if upkey()=1 then yPos=yPos+1
   if downkey()=1 then yPos=yPos-1
   if rightkey()=1 then xPos=xPos+1
   if leftkey()=1 then xPos=xPos-1
   if upkey()=1 then xAng=wrapvalue(xAng+1)
   if downkey()=1 then xAng=wrapvalue(xAng-1)
   if rightkey()=1 then yang=wrapvalue(yang+1)
   if  leftkey()=1 then yang=wrapvalue(yang-1)




  position camera xPos,yPos,zPos
  rotate camera xAng,yang,zAng

loop

sync on
hide mouse

make object cube 1,1


do
Text 5,5,"FPS = "+str$(screen fps())
Text 5,15, "xAng="+str$(xAng)+"   yAng="+str$(yAng)+"   zAng="+str$(zAng)
Text 5,30,"xPos="+str$(xPos)+"   yPos="+str$(yPos)+"   zPos="+str$(zPos)

control camera using arrowkeys 0,0.01,0.1

xang = camera angle x()
yang = camera angle y()
zang = camera angle z()

xpos = camera position x()
ypos = camera position y()
zpos = camera position z()

   sync

loop

sync on
sync rate 60
hide mouse

make object sphere 1,4
position object 1,0,0,20
color object 1, rgb(0,200,0)

make object cube 2,4
position object 2,-10,0,35
color object 2,rgb(0,0,50)

make object cone 3,4
position object 3,10,0,20
color object 3, rgb(200,4,0)

make object cube 4,4
position object 4,10,0,10

make object sphere 5,4
position object 5,-10,0,15
color object 5, rgb(0,10,0)

make object cone 6,4
position object 6,-10,0,40
color object 6,rgb(0,0,15)

make object cone 7,4
position object 7,-5,0,50

make object cylinder 8,4
position object 8,-5,5,20
color object 8,rgb(200,0,0)

make object sphere 9,4
position object 9,5,0,8
color object 9,rgb(0,200,0)

make object cone 10,4
position object 10,-3,0,2
color object 10,rgb(10,40,0)

make object cube 11,4
position object 11,10,0,50
color object 11,rgb(0,200,0)

make object sphere 12,4
position object 12,5,3,10
color object 12,rgb(100,0,100)




do
pitch object up 1,4
turn object left 1,7

pitch object down 2,3
turn object right 2,5

pitch object down 3,8
turn object right 3,3

pitch object up 4,7
turn object left 4,8

pitch object down 5,7
turn object right 5,8

pitch object up 6,8
turn object left 6,2

pitch object down 7,2
turn object right 7,3

pitch object down 8,7
turn object left 8,8

pitch object up 9,1
turn object right 9,5

pitch object down 10,7
turn object right 10,8

pitch object down 11,7
turn object right 11,8

pitch object down 12,6
turn object left 12,4



sync
loop