//---------------- Window ------------------
#declare Window_Texture =
texture{ pigment{ color White}
finish { ambient 0.9 phong 0.5}
} // end of texture
//------------------------------------------
#declare Window =
union{
difference{
box{<-0.50,0.80,-0.02>,< 0.50,1.80,0.02>}
box{<-0.45,0.85,-0.03>,<-0.03,1.27,0.03>}
box{< 0.03,0.85,-0.03>,< 0.45,1.27,0.03>}
box{<-0.45,1.33,-0.03>,<-0.03,1.75,0.03>}
box{< 0.03,1.33,-0.03>,< 0.45,1.75,0.03>}
texture{ Window_Texture }
} // --- end of difference
box{<-0.49,0.81,0.0>,< 0.49,1.79,0.001>
texture{ T_Glass3 } // without ior !!!
} // end of box
} // --- end of union
// Attention: avoid coincident surfaces!!
//------- end of window definition ------
//Draw the window:
object{Window translate<0,0,0>}
//------------------------------------- end |
