#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

Thanks Fabien.

Umm.. Couple of things though. You've got an include mentioned at the top of
your code that I'm not familiar with. Also, the object RoundedBox is not one
my POV likes overmuch. :{)

David

Post a reply to this message

David Heys wrote:
> 
> Thanks Fabien.
> 
> Umm.. Couple of things though. You've got an include mentioned at the top of
> your code that I'm not familiar with. Also, the object RoundedBox is not one
> my POV likes overmuch. :{)
> 
> David

Oh, I forgot about that !  The RoundedBox is from the macroscope (now
down),
and is defined in "volmac.mac"; here it is :

Post a reply to this message

Attachments:
Download 'iso-8859-1' (6 KB)

Fabien Mosen wrote:

> Oh, I forgot about that !  The RoundedBox is from the macroscope (now
> down),
> and is defined in "volmac.mac"; here it is :
>

<SMILE> Thanks. Now I can play with this thing.

David

Post a reply to this message