global_settings { assumed_gamma 2.2 }

#include "colors.inc"
#include "shapes.inc"
  camera {
    location <-20, 20, -40>
    look_at 0
    angle 36
  }
  background { White }
//  light_source { <1000, 500, -800> White }
  light_source { <-1000, 500, -800> White }
//  plane { y, -1.5
//    pigment { checker Green White }
//  }

    #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*10
       translate <0,1,-15>
       scale 0.2
    }    
    
    
    object {photon
       rotate y*90
       rotate x*350
       translate <0,10,80>
       scale 0.2
    }
    
    
    object {photon
       rotate y*80
       rotate x*350
       translate <-16,10,80>
       scale 0.2
    }
    
    
    object {photon
       rotate y*100
       rotate x*350
       translate <16,10,80>
       scale 0.2
    }