#include "colors.inc"    
#include "math.inc"
global_settings
{
  assumed_gamma 1.0
  ambient_light rgb <1,1,1> 
  max_trace_level 10}
#declare camera_scale=300; 
camera {
//    location <8, 15 , 15>
    location <0, 0, -30>
    look_at  <-0, 0, 0>
    angle 21.5
}
#declare uv = <1,1,1>;
#declare l_time =clock+0.0;
#declare e_thick=.0125;
#declare g=1;

#declare x0=1;
#declare y0=0;
#declare vx0=0;
#declare vy0=1.25;
#declare dds=.001;
#declare ds=.1;
#declare s=0;
#declare tf=21.8900;    //tune this for one orbit
#declare e_time=l_time*tf;
#declare xa=x0;
#declare ya=y0;
#declare vx=vx0;
#declare vy=vy0;
#declare vv1=<.1,.1,.7,.8>;
#declare vv2=<.9,.9,.9,.5>;

#while(s<=tf)
        #declare xx=xa;
        #declare yy=ya;
        #declare ss=0;
        #while(ss<ds)
                #if(s<= e_time)
                        #declare p_e = <xa,ya,0>;
                #end         
                #declare xb=xa+vx*dds;
                #declare yb=ya+vy*dds;
                #declare r=vlength(<xa,ya,0>);
                #declare ax=-g*xa/(r*r*r);
                #declare ay=-g*ya/(r*r*r);
                #declare vx=vx+ax*dds;
                #declare vy=vy+ay*dds;
                #declare xa=xb;
                #declare ya=yb;
                #declare ss=ss+dds;
                #declare s=s+dds;
        #end
        cylinder{<xx,yy,0>,<xb,yb,0>,e_thick 
        texture{pigment { color rgbt <.1,.1,.7,.5> } finish{ambient .9 diffuse .5}}}       
#end

//second verse
#declare x0=-1.5;
#declare y0=.55;
#declare vx0=-.80;
#declare vy0=-.16;
#declare dds=.0001;
#declare ds=.02;
#declare s=0;
#declare tf2=14.0;    //tune this for one orbit
#declare p2_time=l_time*tf;
#declare xa=x0;
#declare ya=y0;
#declare vx=vx0;
#declare vy=vy0;
#declare vv1=<.1,.1,.7,.8>;
#declare vv2=<.9,.9,.9,.5>;

#while(s<=tf2)
        #declare xx=xa;
        #declare yy=ya;
        #declare ss=0;
        #while(ss<ds)
                #if(s<= p2_time)
                        #declare p_2 = <xa,ya,0>;
                #end         
                #declare xb=xa+vx*dds;
                #declare yb=ya+vy*dds;
                #declare r=vlength(<xa,ya,0>);
                #declare ax=-g*xa/(r*r*r);
                #declare ay=-g*ya/(r*r*r);
                #declare vx=vx+ax*dds;
                #declare vy=vy+ay*dds;
                #declare xa=xb;
                #declare ya=yb;
                #declare ss=ss+dds;
                #declare s=s+dds;
        #end
        cylinder{<xx,yy,0>,<xb,yb,0>,e_thick 
        texture{pigment { color rgbt <.7,.5,.5,.5> } finish{ambient .9 diffuse .5}}}       
#end



//third verse
#declare x0=-3.0;
#declare y0=-3.0;
#declare vx0=+.33;
#declare vy0=-.33;
#declare dds=.001;
#declare ds=.02;
#declare s=0;
#declare tf3=51.0;    //tune this for one orbit
#declare p3_time=l_time*tf;
#declare xa=x0;
#declare ya=y0;
#declare vx=vx0;
#declare vy=vy0;
#declare vv1=<.1,.1,.7,.8>;
#declare vv2=<.9,.9,.9,.5>;

#while(s<=tf3)
        #declare xx=xa;
        #declare yy=ya;
        #declare ss=0;
        #while(ss<ds)
                #if(s<= p3_time)
                        #declare p_3 = <xa,ya,0>;
                #end         
                #declare xb=xa+vx*dds;
                #declare yb=ya+vy*dds;
                #declare r=vlength(<xa,ya,0>);
                #declare ax=-g*xa/(r*r*r);
                #declare ay=-g*ya/(r*r*r);
                #declare vx=vx+ax*dds;
                #declare vy=vy+ay*dds;
                #declare xa=xb;
                #declare ya=yb;
                #declare ss=ss+dds;
                #declare s=s+dds;
        #end
        cylinder{<xx,yy,0>,<xb,yb,0>,e_thick 
        texture{pigment { color rgbt <.7,.5,.5,.5> } finish{ambient .9 diffuse .5}}}       
#end
 #macro Make_Venus (tt)
union{
        sphere {0,1 //basic venus, possibly transparant
                  texture { 
                        pigment { wood
                          color_map {
                            [0.0 color rgbt <.7,.7,.5,tt> ]
                            [0.25 color rgbt <.64,.64,.55,tt> ]
                            [0.5 color rgbt <.75,.75,.55,tt> ]
                            [0.75 color rgbt <.94,.94,.90,tt> ]
                          } 
                        ramp_wave
                        turbulence .2
                        scale y*.150
                        }
                        finish {
                                ambient 1.0
                                diffuse 0.0 }
                        //rotate x*90 
                        
                        }
                        texture { 
                        pigment { cylindrical 
                          color_map {
                            [0.0 color rgbt <.6,.5,.5,.5*(1+tt)> ]
                            [.4 color rgbt <.75,.7,.7,.5*(1+tt)> ]
                            [.7 color rgbt <.9,.9,.9,.5*(1+tt)> ]
                          } 
                        scale y*.09
                        rotate x*10
                        turbulence .5
                        }   
                        finish {
                                ambient 1.0
                                diffuse 0.0 }
                        } 
                      
        }
                sphere{ 0,1.50
                    texture {pigment {color rgbf <1,1,1,1>}}
                    hollow
                    interior {
                        media {
                            emission color rgbt <.8, .8, .8,.1>
                            scattering {2}
                            intervals 4 samples 16
                            method 3
                           // aa_threshold 0.3 aa_level 5
                            density {spherical scale 1.5}
                        }
                    }
                }
        
}
#end


#macro Make_Earth (tt)
        union{
                sphere {0,1 //basic earth, possibly transparant
                          texture { 
                                pigment { agate
                                  color_map {
                                    [0.0 color rgbt <.01,.01,.2,tt> ]
                                    [0.4 color rgbt <.2,.1,.1,tt> ]
                                    [1.2 color rgbt <.7,.7,.7,tt> ]
                                  } 
                                turbulence .3
                                }
                                finish {
                                        ambient 1.0
                                        diffuse 0.0 }
                                }
                }
                sphere{ 0,1.30
                    texture {pigment {color rgbf <1,1,1,1>}}
                    hollow
                    interior {
                        media {
                            emission color rgbt <.8, .8, .8,.1>
                            scattering {2}
                            intervals 4 samples 16
                            method 3
                           // aa_threshold 0.3 aa_level 5
                            density {spherical scale 15.5}
                        }
                    }
                }
        }
#end
#declare sun =union{ 
        sphere {0,1 //sun
          texture { 
                pigment { color rgb <.8,.8,0>}
                finish {
                        ambient 1.0
                        diffuse 0.0 }
          }
                texture { 
                        pigment { agate
                        color_map {
                        [0.0 color rgbt <.85,.8,.0,.2> ]
                        [0.4 color rgbt <.88,.75,.05,.2> ]
                        [1.2 color rgbt <.77,.85,.05,.2> ]
                        } 
                        turbulence 1
                        }
                        finish {
                        ambient 1.0
                        diffuse 0.0 }
                }
        
        }
                sphere{ 0,1.1
                    texture {pigment {color rgbf <1,1,1,1>}}
                    hollow
                    interior {
                        media {
                            emission color rgbt <.8, .8, .8,.1>
                            scattering {2}
                            intervals 4 samples 16
                            method 3
                           // aa_threshold 0.3 aa_level 5
                            density {spherical scale 9.5}
                        }
                    }
                }

}
#macro Make_Mars (tt)
        sphere {0,1 //basic mars, possibly transparant
                  texture { 
                        pigment { agate
                          color_map {
                            [0.0 color rgbt <.2,.1,.05,tt> ]
                            [0.4 color rgbt <.2,.15,.10,tt> ]
                            [1.2 color rgbt <.1,.08,.05,tt> ]
                          } 
                        turbulence .7
                        }
                        finish {
                                ambient 1.0
                                diffuse 0.0 }
                        }texture { 
                        pigment { cylindrical 
                          color_map {
                            [0.0 color rgbt <.2,.15,.10,1> ]
                            [.78 color rgbt <.4,.4,.4,tt> ]
                            [.80 color rgbt <.9,.9,.9,tt> ]
                          } 
                        turbulence .1
                        }
                        finish {
                                ambient 1.0
                                diffuse 0.0 }
                        }
        }
#end
        
object{sun scale .15}
object{
        Make_Earth (0) 
        scale .1 
        rotate z*(l_time)*360*13
        translate (p_e)
}
object{
        Make_Venus (0) 
        scale .08 
        rotate z*(l_time)*360*19
        translate (p_2)
}
object{
        Make_Mars (0) 
        scale .15
        rotate x*90 
        rotate z*(l_time)*360*23
        translate (p_3)
}