do u mean something like this mate.?
I shrunk the sizes distances a little to make it a little easier to visualise.
rem care of arbitrages code in classic many moons ago (no pun intended)
rem edited and cleaned up by indi
rem further edited and fiddled with by Philip
sync on : sync rate 60 : randomize timer()
hide mouse
color backdrop rgb(0,0,0)
rem the defualt light that starts on is zero
color light 0, 255, 255, 224
position light 0,0,0,0
rem an internal yellow texture for the sun
ink rgb(255,255,0),1
box 0,0,32,32
get image 1,0,0,32,32
cls
rem the sun
make object sphere 1,5000
position object 1, 0, 0, 0
texture object 1,1
SET OBJECT 1, 1, 0, 1, 1, 1, 0, 1
rem SET OBJ Object Number, Wire, Transparent, Cull, Filter, Light, Fog, Ambient
rem other planets and moons
make object sphere 2,1000
make object sphere 3,200
for i = 2 to 3
set object light i, 1
set object ambient i, 1
color object i,rgb(rnd(255),rnd(255),rnd(255))
next i
AngleY3#=120 : AngleY4#=120 : AngleY5#=240 :AngleY6#=240
set camera range 1,20000
Position camera 0, 10000, -15000
Point camera 0,0,0
disable escapekey
while escapekey() = 0
if upkey() = 1 then pitch camera up 0, 1
if downkey() = 1 then pitch camera down 0, 1
if leftkey() = 1 then turn camera left 0, 1
if rightkey() = 1 then turn camera right 0, 1
if returnkey() = 1 then move camera 0, 200
if controlkey() = 1 then move camera 0, -200
AngleY1#= AngleY1#+0.01
AngleY2#= AngleY2#+0.1
x2#= NewXValue(0,AngleY1#,10000)
z2#= NewZValue(0,AngleY1#,10000)
x3#= NewXValue(x2#,AngleY2#,3000)
z3#= NewZValue(z2#,AngleY2#,3000)
Position object 2,x2#,0,z2#
Position object 3,x3#,0,z3#
for i = 1 to 3
center text object screen x(i), object screen y(i), "Obj " + STR$(i)
next i
sync
endwhile
for i = 1 to 3
if object exist(i)=1
delete object i
endif
if image exist(i)=1
delete image i
endif
next i
end
