// Objects for testing the camera's field of view
// Last edited on 2019-04-08 01:56:44 by stolfilocal

#declare camera_test_obj =
  union{
    cylinder{ 
      <0,0,0> + 30*vnormalize(camera_dir), <0,0,0>,
      scene_radius
      bulb_tx( < 1.000, 0.800, 0.300 > )
    }

    box{
      < -0.495 * camera_field_width,   10, -0.495 * camera_field_height >,
      < +0.495 * camera_field_width, -100, +0.495 * camera_field_height >
      bulb_tx( < 0.200, 0.850, 0.000 > )
    }

    box{
      < -0.245 * camera_field_width,   20, -0.245 * camera_field_height >,
      < +0.245 * camera_field_width, -200, +0.245 * camera_field_height >
      bulb_tx( < 0.850, 0.200, 0.000 > )
    }
  }