Sorry your browser is not supported!

sync on : sync rate 60
set display mode 1024, 768, 32

set camera range 30, 65

#constant true 1
#constant false 0

make object sphere 1, 10
make object sphere 2, 2
make object box 3, 100, 1, 100

position object 1, 0, -11, 0
position object 2, 15, 0, 0
position object 3, 0, 0, 0

set alpha mapping on 3, 0

position camera 0, 50, 0
point camera 0, 0, 0

degree = 0
posx = 15
posz = 0

repeat

text 1, 1, "Click to place the ball."
text 1, 16, "Press return to exit."

degree = wrapvalue( degree + 1 )
px = posx
posx = h2(0, posx, 0, posz) * sin( degree )
posz = h2(0, px, 0, posz) * cos( degree )

if mouseclick() = 1
  null = pick object(mousex(), mousey(), 3, 3)
  posx = get pick vector x() + camera position x()
  posz = get pick vector z() + camera position z()
  degree = 0
endif

position object 2, posx, 0, posz

sync

until returnkey() = true

end


function h1()

hy = sqrt( ( object position x( 1 ) - object position x( 2 ) ) ^ 2 + ( object position z( 1 ) - object position z( 2 ) ) ^ 2 )

endfunction hy

function h2(x1 as integer, x2 as integer, z1 as integer, z2 as integer)

hy = sqrt( ( x1 - x2 )^2 + ( z1 - z2 )^2 )

endfunction hy

sync on : sync rate 60
set display mode 1024, 768, 32

set camera range 30, 65

#constant true 1
#constant false 0

make object sphere 1, 10
make object sphere 2, 2
make object box 3, 100, 1, 100

position object 1, 0, -11, 0
position object 2, 15, 0, 0
position object 3, 0, 0, 0

set alpha mapping on 3, 0

position camera 0, 50, 0
point camera 0, 0, 0

do


X# = object position x(1)
Y# = object position y(1)
Z# = object position Z(1)

point object 2,X#,Y#,Z#

if leftkey()=1 then move object left 2,1
if rightkey()=1 then move object right 2,1

sync
loop

sync on
sync rate 60

circle 20,20,20
get image 1,0,0,41,41

cls
radius = 100

do
   if mouseclick()=1
      cls
      centerx=mousex()
      centery=mousey()
      paste image 1,centerx,centery
   endif

   theta#=wrapvalue(theta#+1)

   x#=radius*cos(theta#)+centerx
   y#=radius*sin(theta#)+centery

   sprite 1,x#,y#,1
   sync
loop

sync on
sync rate 60

circle 20,20,20
get image 1,0,0,41,41

cls
radius = 100

do
   if mouseclick()=1
      cls
      centerx=mousex()
      centery=mousey()
      paste image 1,centerx,centery
   endif

   theta#=wrapvalue(theta#+1)

   x#=radius*cos(theta#)+centerx
   y#=(radius-50)*sin(theta#)+centery

   sprite 1,x#,y#,1
   sync
loop

sync on
sync rate 60
autocam off

rem Make a grid so we can get a sense of motion.
Make matrix 1,10000,10000,60,60
position matrix 1,-5000,0,-5000

rem Make the cube.
make object cube 1,10

rem make the sphere.
make object sphere 2,10

rem Set the radius to 30 to start.
Radius#=30

rem Set the rate in which out COSINE and SINE angle increases at.
IncSpeed#=5
do

rem Print some text on the screen.
ink rgb(155,155,155),0
set cursor 0,0 : print "USE WASD TO MOVE THE CUBE. USE UP/DOWN TO CHANGE THE RADIUS"
print "RADIUS: ",str$(Radius#)

rem Allow you to move the cube.
move object 1,2*(keystate(17)-keystate(31))
yrotate object 1, Object Angle y(1)+2*(Keystate(32)-KEystate(30))

rem Allow you to change the radius.
inc Radius#,upkey()-downkey()


rem Increase the angle that COSINE and SINE will be based off of.
Angle#=wrapvalue(Angle#+IncSpeed#)

rem Position our sphere.
position object 2,Object position x(1)+( Radius#*sin(Angle#) ),0,Object position z(1)+( Radius#*cos(Angle#) )


rem Position the camera
position camera Object position x(1),500,Object position z(1)
xrotate camera 90


rem Make a circle on the screen to show the Sphere's path.
circleradius=sqrt( (Object screen x(1)-OBject screen x(2))*(Object screen x(1)-OBject screen x(2))+(Object screen y(1)-OBject screen y(2))*(Object screen y(1)-OBject screen y(2)) )

if radius#>0 then ink rgb(0,255,0),0 else ink rgb(255,0,0),0
circle Object screen x(1),object screen y(1),circleradius

sync
loop

set display mode 1280, 1024, 32

`No user input shows the construct rotating
`Clicking and Holding Mouse 1 will show a cube orbiting around a point
`Clicking Mouse 2 changes which axis you are rotating on
`Mousewheel changes the radius/distance of the orbit


`Advantages of this method:
`NO MATH
`Easy to implement and use for various effect
`Basically anywhere where you want to orbit/rotate
`something in 3d space.

`You can add more than one limb, for multiple orbit points
`Around the same point.  The points will be relative to
`each other

`This builds our basic construct for our mathless rotation

make object sphere 1, .2
make mesh from object 1,1
add limb 1, 1, 1
delete mesh 1

offset limb 1,1, 0, 0, 1 ` This is our radius/distance depending on what you are trying to do

make object cube 2, .2
hide object 2


mousez() = 1000

do


` These are the two most important functions for this method

` This positions the object at the orbit point.  NOTE: You can position other things like
` Lights, and Cameras at this position to.
position object 2, limb position x(1,1), limb position y(1,1), limb position z(1,1)

`This is just our radius/distance from whatever we are orbiting around.  Be it a point
`in 3d space, or the player itself.
offset limb 1,1, 0, 0, mz# / 1000

`For a chase camera.  Position Object 1 at the XYZ of your character.  Then position the
`Camera at the XYZ of the LIMB.  Then point the camera at the XYZ of your character.
`When you rotated your character rotate object one with the same values.  Or for neat
`Effect rotate the camera faster or slower.
`You can always reposition the camera to be directly behind the character you are following
`by setting Object 1 rotate values to be equal to your characters rotation values.



`ALL of this code just showcases the method

`Use the Mousewheel to set radius/distance
mz# = mousez()

`Rotate around the X axis
if ra = 0
a# = a# + .02
xrotate object 1, a#
endif

`Rotate around the y axis
if ra = 1
b# = b# + .02
yrotate object 1, b#
endif

`Rotate around the Z axis
if ra = 2
c# = c# + .02
zrotate object 1, c#
endif


`Reset everything to fault visually
if mouseclick() = 0
   mc = 0
   show object 1
   hide object 2
endif

`Show Cube Orbiting around the point
if mouseclick() = 1
   hide object 1
   show object 2
endif

`Change axis rotation
if mouseclick() = 2 and mc = 0
   mc = 1
   ra = ra + 1
   if ra = 3 then ra = 0
endif





loop


if spacekey() = 0
   text 0, 0, "Press Space to show Quick Help"
endif

if spacekey() = 1
   text 0,0 , "Mouse 1: Show Cube Rotating"
   text 0, 12, "Mouse 2: Change Rotation Axis"
   text 0, 24, "Mouse Wheel: Change Radius/Distance"
endif

set display mode 1280, 1024, 32


make object sphere 1, .2
make mesh from object 1,1
add limb 1, 1, 1
delete mesh 1

offset limb 1,1, 0, 0, 1

make object cube 2, .2
hide object 2


mousez() = 10000

do


position object 2, limb position x(1,1), limb position y(1,1), limb position z(1,1)

offset limb 1,1, 0, 0, mz# / 1000

mz# = mousez()


if ra = 0
a# = a# + .02
xrotate object 1, a#
endif


if ra = 1
b# = b# + .02
yrotate object 1, b#
endif


if ra = 2
c# = c# + .02
zrotate object 1, c#
endif



if mouseclick() = 0
   mc = 0
   show object 1
   hide object 2
endif


if mouseclick() = 1
   hide object 1
   show object 2
endif


if mouseclick() = 2 and mc = 0
   mc = 1
   ra = ra + 1
   if ra = 3 then ra = 0
endif



if spacekey() = 0
   text 0, 0, "Press Space to show Quick Help"
endif

if spacekey() = 1
   text 0,0 , "Mouse 1: Show Cube Rotating"
   text 0, 12, "Mouse 2: Change Rotation Axis"
   text 0, 24, "Mouse Wheel: Change Radius/Distance"
endif





loop