`// Author: Raven
`// Title: Point Object
`// environment setup
sync on : sync rate 0
hide mouse
backdrop on
`// create objects
make object cone 1,100
scale object 1,50,100,50
color object 1,rgb(250,0,100)
xrotate object 1,90.0
fix object pivot 1
position object 1,0.0,( object size y( 1 )/2 ),0.0
make object sphere 2,50
color object 2,rgb(0,0,128)
fSphereDist# = 500.0
`// ground
make object plain 10,1000.0,1000.0
xrotate object 10,90.0
fix object pivot 10
position object 10,0.0,-10.0,0.0
color object 10,rgb(128,128,128)
ghost object on 10
`// setup camera
position camera 0.0,500.0,-800.0
point camera ( object position x( 1 ) ),( object position y( 1 ) ),( object position z( 1 ) )
do
`// update positions
fMoveXZ# = wrapvalue( fMoveXZ# + ( mousemovex()/2 ) )
fMoveY# = wrapvalue( fMoveY# + ( mousemovey()/2 ) )
gosub _RotateSphere
`// update objects
position object 2,fSphereX#,fSphereY#,fSphereZ#
point object 1,fSphereX#,fSphereY#,fSphereZ#
sync
loop
_RotateSphere:
`fSphereY# = sin( fMoveY# ) * fSphereDist#
fSphereX# = ( cos( fMoveXZ# ) * fSphereDist# ) * cos( fSphereY# )
fSphereZ# = ( sin( fMoveXZ# ) * fSphereDist# ) * cos( fMoveY# )
return
try that ... might help you out
Tsu'va Oni Ni Jyuuko Fiori Sei Tau!
One block follows the suit ... the whole suit of blocks is the path ... what have you found?
