#include "colors.inc"
#include "metals.inc"
#include "textures.inc"

#declare Sc = 1;
/*
camera {
  location  <10, 4, -10>
  look_at   <0.0, 0.0,  0.0>
  scale Sc*3
}*/
/*
light_source {
  <-15, 40, -20>
  color rgb <1,1,1>
scale Sc
}

light_source {
  <15, -40, -20>
  color rgb <1,1,1>
scale Sc
}
*/
#declare c = -10*3.1416;
#declare i = .031416*2;
//#declare T = 2.125;
#declare S = .05;
#declare f = 1;

#declare Blue_spiral = union {
#while (c<10*3.1416)
cylinder { <c/f, sin(c), cos(c)>, <(c-i)/f, sin(c-i), cos(c-i)>, S
pigment {Cyan}
finish {phong 0.7 phong_size 50 ambient 1}       
}
sphere { <c/f, sin(c), cos(c)>, S
pigment {Cyan}
finish {phong 0.7 phong_size 50 ambient 1}       
}
#declare c = c + i;  
#end
}

#declare Blue_spiral_r = union {
#while (c>-10*3.1416)
cylinder { <c/f, -sin(c), cos(c)>, <(c-i)/f, -sin(c-i), cos(c-i)>, S
pigment {Cyan}
finish {phong 0.7 phong_size 50 ambient 1}       
}
sphere { <c/f, -sin(c), cos(c)>, S
pigment {Cyan}
finish {phong 0.7 phong_size 50 ambient 1}       
}
#declare c = c - i;  
#end
}
/*
#declare c = -10*3.1416;

#declare Green_spiral = union {
#while (c<10*3.1416)
cylinder { <c/f, sin(c), cos(c)>, <(c-i)/f, sin(c-i), cos(c-i)>, S
pigment {Green}
finish {phong 0.7 phong_size 50 ambient 1}       
}
sphere { <c/f, sin(c), cos(c)>, S
pigment {Green}
finish {phong 0.7 phong_size 50 ambient 1}       
}
#declare c = c + i;  
#end
}

#declare c = -10*3.1416;

#declare Red_spiral = union {
#while (c<10*3.1416)
cylinder { <c/f, sin(c), cos(c)>, <(c-i)/f, sin(c-i), cos(c-i)>, S
pigment {Red}
finish {phong 0.7 phong_size 50 ambient 1}       
}
sphere { <c/f, sin(c), cos(c)>, S
pigment {Red}
finish {phong 0.7 phong_size 50 ambient 1}       
}
#declare c = c + i;  
#end
}
*/

#declare Beam = union {
cylinder {
<0, 1, 0>, <0, -1, 0>, 0.5
hollow
pigment {rgbt 1}
interior {
media {
emission 3
  density {
    cylindrical
    ramp_wave
    color_map {
      [0.0 color rgb <0.0, 0.0, 0.0>]
      [0.3 color rgb <0.0, 0.05, 0.1>]
      [0.9 color rgb <0.3, 0.4, 0.7>]          
      [1.0 color rgb <1.0, 1.0, 1.0>]
    }
  }
}
}
rotate 90*z
scale 31.416*x
}

object {Blue_spiral scale Sc}
object {Blue_spiral_r scale Sc}
object {Blue_spiral scale Sc rotate 180*x}
object {Blue_spiral_r scale Sc rotate 180*x}
translate 31.416*x
scale 1/31.416
scale 500
rotate 29.53*z
translate -870.03*x
}
//object {Red_spiral scale Sc rotate 120*x}
//object {Green_spiral scale Sc rotate 240*x}