global_settings { assumed_gamma 2.2 }

#include "colors.inc"
#include "shapes.inc"
  camera {
    location <-20, 10, -30>
    look_at 0
    angle 36
  }
  background { White }
//  light_source { <1000, 500, -800> White }
  light_source { <-1000, 500, 800> White }
plane { y, -10
    texture {
      pigment { color Grey }
      normal { bumps 1 }
      finish { phong 1}
    }
  }

//    #declare Ycount=-2
//    #while (Ycount < 0)

//    #declare Zcount=-10;
//    #while (Zcount < 10)
    

//    #declare Xcount=-10;
//    #while (Xcount < 10)
//      sphere { <Xcount, Ycount, Zcount>, 0.2
//        #if (Ycount = -1)
//          pigment { Yellow }
//        #else
//          pigment { Red }
//        #end        
//      }
//      #declare Xcount=Xcount+1;
//    #end
    
//      #declare Zcount=Zcount+1;
//    #end

//      #declare Ycount=Ycount+1;
//    #end
    
    #declare Arrow = union {
      cylinder { <0,0,0>, <0,5,0>, 0.2
      }
      cone { <0,5,0>, 0.5, <0,6,0>, 0 
      }
    }

    #declare Pi = 3.1415926
    #declare Arrow_sinewave = union {

    #declare Count= 10
    #while (Count < 720)
    
    #declare rad = Count*2*Pi/360
    object { Arrow translate <Count/10, 0, 0>
    scale( <1,sin(rad),1> ) 
    }    


    #declare Count = Count+10;
    #end
    }

    #declare photon = union {    
    object { Arrow_sinewave 
      pigment { Blue }
    }

    object { Arrow_sinewave 
      rotate x*90
      translate <9,0,0>
      pigment { Red }
    }
    
    object { Arrow
      pigment { Green }
      scale 2
      rotate z*90
    }
    
    }
    
    object {photon
       rotate y*90
       rotate x*45
       translate <0,-35,-10>
       scale 0.2
    }    
    
    
    object {photon
       rotate y*90
       rotate x*315
       translate <0,10,60>
       scale 0.2
    }