#include "colors.inc"

global_settings
{
  assumed_gamma 1.0
  ambient_light White
}


sky_sphere
{
  // Not important, just make it easier to see.

  pigment
  {
    gradient z
    color_map {[0 colour red 0.2 green .35 blue .7] [1 colour Brown]}
    scale 2
    translate -z
  }
}


camera
{
  // right handed

  location <1500, 1500, 1500>
  direction -x
  up z
  sky z
  right 4/3*y
  angle 45
  look_at <500, 500, 700>
}


#declare TextureForSample = texture {pigment {colour rgbt 0.7}  finish {ambient 1}}


#declare WhatItDoesLookLike =
difference
{
  difference
  {
    box
    {
      <   0,    0,  0>,
      <1070,  920, 25>
    }

    intersection
    {
      plane
      {
        y, 150
      }
      plane
      {
        <-1, 1, 0>, 0
        translate 410*x
      }
    }
  }

  union
  {
    plane
    {
      <-1, -1, 0>, 0
      translate <1070, 360, 0>
    }
    plane
    {
      <-1, 1, 0>, 0
      translate <1070, 360, 0>
    }
    plane
    {
      <1, 1, 0>, 0
      translate <100, 0, 0>
    }
  }
}


#declare WhatItShouldLookLike =
prism
{
  linear_sweep
  linear_spline
  0, 25,
  9,
  < 100,    0>
  < 410,    0>
  < 560,  150>
  < 860,  150>
  <1070,  360>
  < 510,  920>
  <   0,  920>
  <   0,  100>
  < 100,    0>

  rotate -90*x
}


#declare PresentTheScene =
union
{
  object
  {
    WhatItShouldLookLike
    translate 990*z
  }

  object
  {
    WhatItDoesLookLike
    translate 410*z
  }

  texture {TextureForSample}
}


object { PresentTheScene }