/* Stars 

   declaration of different stellar sources for use
   in making binary merger movies.

   Shining_Dwarf_Core
   Shining_Dwarf_Atmos
   Shining_Dwarf_Light
   Shining_Dwarf_Globe
   Shining_Dwarf
   Accretion_Core
   Accretion_Envelope
   Accretion_Fragment
   Merger_Envelope

   Dr C.Simon Jeffery
   Armagh Observatory
   2001 July

*/


#declare Shining_Dwarf_Core = sphere{ 
      <0,0,0>, 0.99 hollow on          
      interior{
           media{
              absorption rgb<0.0, 0.0, 0.0>
              scattering { 5 rgb<1.0, 1.0, 1.0> eccentricity +0.1 }
              density { spherical 
                  color_map{
                    [0.00 rgb <0,0,0>]
                    [0.05 rgb <0.1,0.1,0.5>]
                    [0.2 rgb <0.2,0.2,0.6>]
                    [0.5 rgb <0.5,0.5,0.8>]
                    [0.7 rgb <0.6,0.6,0.85>]
                    [0.9 rgb <0.7,0.7,0.95>]
                    [1.0 rgb <1.0,1.0,1.0>]
      } } } }
      texture {
         pigment {color White 1.00 filter 1.00}
         finish {
            reflection 0.0 
      } }
}

#declare Shining_Dwarf_Atmos = difference{
      sphere{  <0,0,0>, 1     } 
      sphere{  <0,0,0>, 0.99  } 
      hollow on
      interior{ 
          media{
             absorption rgb<0., 0.05, 0.1>
             scattering { 5 rgb<0.4, 0.3, 0.5> eccentricity +0.3 }
             density { spherical    
             color_map{
                    [0.00 rgb <0,0,0.4>]
                    [0.01 rgb <0.1,0.1,0.5>]
                    [0.03 rgb <0.2,0.2,0.6>]
                    [0.1 rgb <0.3,0.2,0.7>]
                    [0.2 rgb <0.5,0.5,0.8>]
                    [0.5 rgb <0.6,0.6,0.85>]
                    [0.7 rgb <0.7,0.7,0.95>]
                    [1.0 rgb <1.0,1.0,1.0>]
      } } } }      
      texture {
         pigment {color White 1.00 filter 1.00}
         finish {
            reflection 0.0 
      } }
 }

#declare Shining_Dwarf_Light =  light_source { <0,0,0> color rgb<1.,1.,1.>  }

#declare Shining_Dwarf_Globe =  light_source { 
    <0,0,0> color rgb<1.,1.,1.> 
    looks_like { 
        sphere { 
           <0,0,0>, 0.10 hollow on
           pigment { color White 1.0 filter 1.0 }
           }
        }   
    }

#declare Shining_Dwarf = union{
     object { Shining_Dwarf_Core  scale 1.0 }
     object { Shining_Dwarf_Light scale 1.0 }
}



#declare Accretion_Core = sphere {
      <0,0,0>, 0.99 hollow on          
      interior{
           media{
              absorption rgb<0.0, 0.0, 0.0>
              scattering { 5 rgb<1.0, 1.0, 1.0> eccentricity +0.1 }
              density { spherical 
                  color_map{
                    [0.00 rgb <0,0,0>]
                    [0.05 rgb <0.1,0.1,0.5>]
                    [0.2 rgb <0.2,0.2,0.6>]
                    [0.5 rgb <0.5,0.5,0.7>]
                    [0.7 rgb <0.6,0.6,0.75>]
                    [0.9 rgb <0.7,0.7,0.8>]
                    [1.0 rgb <0.7,0.7,0.8>]
      } } } }
      texture {
         pigment {color White 1.00 filter 1.00}
         finish {
            reflection 0.0 
      } }
}
 
#declare Merger_Envelope = sphere {
      <0,0,0>, 1 hollow 
      interior{
           media{
              absorption rgb<0.9, 0.9, 0.99>
//            emission rgb<1.00, 0.75, 0.90> 
              scattering { 5 rgb<1., 1., 1.> eccentricity +0.1 }
              density { spherical
                color_map {
                    [0.0 rgb <0,0,0.0>]
                    [0.1 rgb <0.03,0.01,0.01>]
                    [1.0 rgb <0.06,0.02,0.02>]
//                  [1.0 rgb <0.10,0.04,0.04>]
//                  [1.0 rgb <0.15,0.05,0.05>]
//                  [0.7 rgb <0.12,0.15,0.20>]
//                  [0.9 rgb <0.20,0.20,0.25>]
//                  [1.0 rgb <0.25,0.25,0.30>]
//                  [1.0 rgb <0.30,0.30,0.40>]
      } } } }      
      texture {
         pigment {color White 1.00 filter 1.00}
         finish {
            reflection 0.0 
      } }
}

#declare Accretion_Envelope = sphere {
      <0,0,0>, 1 hollow 
      interior{
           media{
              absorption rgb<0.9, 0.9, 0.99>
//            emission rgb<1.00, 0.75, 0.90> 
              scattering { 5 rgb<1., 1., 1.> eccentricity +0.1 }
              density { spherical
                color_map {
                    [0.0 rgb <0,0,0.0>]
                    [0.1 rgb <0.03,0.03,0.05>]
                    [0.3 rgb <0.05,0.05,0.08>]
                    [0.6 rgb <0.07,0.07,0.10>]
                    [1.0 rgb <0.10,0.10,0.15>]
//                  [0.7 rgb <0.12,0.15,0.20>]
//                  [0.9 rgb <0.20,0.20,0.25>]
//                  [1.0 rgb <0.25,0.25,0.30>]
//                  [1.0 rgb <0.30,0.30,0.40>]
      } } } }      
      texture {
         pigment {color White 1.00 filter 1.00}
         finish {
            reflection 0.0 
      } }
      scale <5,1.5,5>
}

#declare Accretion_Fragment = intersection {
      box { <0,-0.5,0>, <1.5,+0.5,1.5> hollow }
      torus { 0.33, 0.1 hollow }
      interior{
           media{
              absorption rgb<0.1, 0.1, 0.1>
//            emission rgb<1.00, 0.75, 0.90>       // clouds will be very hot.. thermal emission
              scattering { 3 rgb<1., 1., 1.>  }    // use Rayleigh scattering
              density { spherical
                color_map {
                    [0.0 rgb <0,0,0.0>]
                    [0.1 rgb <0.03,0.03,0.05>]
                    [0.3 rgb <0.05,0.05,0.08>]
                    [0.6 rgb <0.07,0.07,0.10>]
                    [1.0 rgb <0.10,0.10,0.15>]
      } } } }      
      texture {
         pigment {color White 1.00 filter 0.90}
         finish {
            reflection 0.0 
      } }
//    scale <2,1,2>
}