dim 160 180

background 0 0 0

ang_picture 0 0 80 80
ang_origin 0 0
ang_unit 10

ang_point Terra 8 9
ang_point Luna 8 9.5
ang_point Venus 8 10
ang_point Mercurius 8 10.7
ang_point Sol 8 11.2
ang_point Mars 8 10
ang_point Iuppiter 8 9
ang_point Saturnus 8 8

point Ugao 0 0 1000 0
getx angl Ugao

%Moon revolution
expression anglLuna {angl*12}
%Mercury revolution
expression anglMerc {angl*4}
%Venus revolution
expression anglVen {angl*2}
%Mars revolution
expression anglMars {angl*0.9}
%Jupiter revolution
expression anglIup {angl*0.084}
%Saturn revolution
expression anglSat {angl*0.034}

point O 0 0

%relative distances of the planets from the Sun
point Merc_pos 0 -7
point Venus_pos 0 -13
point Mars_pos 0 -35
point Iup_pos 0 -45
point Sat_pos 0 -55

%rotation of Sun and Moon around the Earth
rotate Luna Terra anglLuna Luna
rotate Sol Terra angl Sol

%rotation of planets around the Sun
translate Mercurius O Merc_pos Sol
rotate Mercurius Sol anglMerc Mercurius
translate Venus O Venus_pos Sol
rotate Venus Sol anglVen Venus
translate Mars O Mars_pos Sol
rotate Mars Sol anglMars Mars
translate Iuppiter O Iup_pos Sol
rotate Iuppiter Sol anglIup Iuppiter
translate Saturnus O Sat_pos Sol
rotate Saturnus Sol anglSat Saturnus

color 0 0 255
cmark_b Terra
color 153 0 76
cmark_r Luna
drawcircle Terra Luna
color 200 200 0
cmark_b Sol
color 255 51 255
cmark_r Venus
drawcircle Sol Venus
color 128 128 128
cmark_r Mercurius
drawcircle Sol Mercurius
color 255 0 0
cmark_r Mars
drawcircle Sol Mars
color 0 153 76
cmark_r Iuppiter
drawcircle Sol Iuppiter
color 255 128 0
cmark_r Saturnus
drawcircle Sol Saturnus
color 0 0 0

% Shapes of orbits as seen from Earth

%traace Luna 153 0 76
%traace Sol 200 200 0
trace Mercurius 128 128 128
%traace Venus 255 51 255
%traace Mars 255 0 0
%traace Iuppiter  0 153 76
%traace Saturnus 255 128 0

animation_frames 1000 20