ok, this is cubu in earth.
for i=1 to 300
dot rnd(640),rnd(480),rgb(rnd(255),rnd(255),rnd(255))
next i
get image 2,0,0,640,480,1
Sync on
Sync Rate 60
Color Backdrop rgb(0,0,0)
Make Object Sphere 1, 100, 40, 40
Load Image "earth.jpg", 1
`Load Image "stars-png.bmp", 2
Texture Object 1, 1
make object cube 10,10000
scale object 10, -100,-100,-100
Texture Object 10,2
Set Ambient Light 100
Color Ambient Light rgb(255,255,255)
Position Camera 0, 20, -300
`TEXTURE BACKDROP 2
y#=20
set camera range 1,50000
Do
` Paste Image 2, 0, 0
Yrotate Object 1, object angle y(1) + 0.02
if shiftkey()=1 then y#=y#+1
if controlkey()=1 then y#=y#-1
position camera camera position x(), y#, camera position z()
control camera using arrowkeys 0,1,1
Sync
Loop