#include "colors.inc"
#include "volmac.mac"

camera {
        location <160,-25,0>
        look_at <90,0,0>
}

//here is the "atmosphere" part

media {
  intervals 25  //use 10 or less for "quick" tests
  scattering { 4, rgb 0.01}  //play with the rgb value to
increase/decrease atm. density		     
  samples 10, 20  //use 1,4 or so for "quick" tests

  confidence 0.9999
  variance 1/1000
  ratio 0.9
}

#declare Grating=union {
 object {RoundedBox (<0,-1,-9.5>,<60,1.5,-7>,.5)}
 object {RoundedBox (<0,-1,9.5>,<60,1.5,7>,.5)}
 object {RoundedBox (<0,-.2,-9>,<7,1.5,9>,.2)} 
 object {RoundedBox (<53,-.2,-9>,<60,1.5,9>,.2)} 
 
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*0}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*2}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*-2}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*4}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*-4}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*6}
 cylinder {<0,.75,0>,<60,.75,0>,.5 translate z*-6}
 
 pigment {rgb <101,113,143>/256}
 finish {specular .4 reflection .1}
}

#declare GratingS=union {
object {Grating}object {Grating translate x*60}object {Grating translate
x*120}}

object {GratingS}
object {GratingS translate z*20}
object {GratingS translate z*-20}

light_source {<110,-30,0> Blue*.4 shadowless media_interaction off}
//fill light
light_source {<80,120,-5> White*1.5}

sphere {<90,-20,10>,10 pigment {rgb <101,113,143>/256}}

//plane {y,-60 pigment {Green}}
box {<0,-60,-30>,<180,250,30> hollow pigment {rgb <101,113,143>/256}}

Post a reply to this message