// Windows on the wall (for specular surfaces)

// Requires
//
//   window_width
//   window_height
//   window_X
//   window_min_Y
//   window_min_Z
//
//   window_texture
//
// Defines
//
//   dcc_wall_window

#declare window_pane = box{ <0,0,0>, <1,1,1> }

#declare dcc_wall_windows =
  union{
    object{ window_pane translate < 0.00, 0.00, 0.00 > }
    object{ window_pane translate < 0.00, 1.05, 0.00 > }
    object{ window_pane translate < 0.00, 2.10, 0.00 > }
    object{ window_pane translate < 0.00, 0.00, 1.05 > }
    object{ window_pane translate < 0.00, 1.05, 1.05 > }
    object{ window_pane translate < 0.00, 2.10, 1.05 > }
    texture{ window_texture }
    scale < 0.001, window_width/3.10, window_height/2.05 >
    translate < window_X, window_min_Y, window_min_Z >
  }