تفضل ياعزيزي ارجو ان يكون هذا مطلبك
كود:
Rem Project: rotate
Rem Created: 1/18/2009 8:54:30 PM
Rem ***** Main Source File *****
rem create some spheres
rem create a few spheres
autocam off
position camera 0,0,-200
global dim distance(2) ` rem these are the distances (or radius) from the middle of one sphere to the one it is rotating around
distance(1) = 100 `this is the distance of big middle sphere to the outside sphere
distance(2) = 25 `distance from the outside sphere to its satellite.
rem make 3 spheres of increasing size for the demo
FOR i = 1 to 3
make object sphere i,i*10,10,10
next i
do
xp#=object position x(3)
yp#=object position y(3)
zp#=object position z(3)
rem rotate the second sphere around the stationary sphere
inc Angle#
x1# = COS(Angle#)*distance(1)+xp# `the x position is defined by the cos of your angle times how far away from the other object it is
z1# = SIN(Angle#)*distance(1)+zp#`the z position is defined by the sin of your angle times how far away from the other object it is
y1# = COS(Angle#)*distance(1)/60+yp#
position object 2, x1#, y1#, z1#
if upkey()=1 then move object 3,1
if downkey()=1 then move object 3,-1
if rightkey()=1 then move object right 3,1
if leftkey()=1 then move object left 3,1
if lower$(inkey$()) = "w" then move object up 3,1
if lower$(inkey$()) = "s" then move object down 3,1
rem rotate the third sphere (the satellite sphere) around the second sphere
inc angle2#,2
x2# = x1# + COS(Angle2#)*distance(2)+xp#
z2# = z1# + SIN(Angle2#)*distance(2)+zp#
position object 1, x2#, 0, z2#
loop