// Persistence of Vision Ray Tracer Scene Description File
// File: ?.pov
// Vers: 3.5
// Desc: Basic Scene Example
// Date: mm/dd/yy
// Auth: ?
//

#version 3.5;

#include "colors.inc"

global_settings {
  assumed_gamma 1.0
     ambient_light color rgb <1,1,1>
}
background{color rgb <.2,.3,.4>*.25}
// ----------------------------------------

camera {
  location  <0.0,0, -100.0>
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
  angle 12
}
#declare pscale=.0;
#declare pulse = function(xx) { 1.5*sin(pscale*xx)*exp(-pscale*pscale*xx*xx) }  


light_source {
  <0, 0, 0>            // light's position (translated below)
  color rgb <1, 1, 1>  // light's color
  translate <-30, 30, -30>
} 
#declare lclock=clock+.5;

// --The transverse pulse
#declare coil_radius=.75;
#declare wire_radius=.05;
#declare loop_density = 2;
#declare segs_per_loop=30;
#declare xnow=-12;
#declare qnow=0;
#declare dq=2*pi/segs_per_loop;
#declare dx=1/(loop_density*segs_per_loop);
#declare ymid=3+pulse(xnow+15-30*lclock);
#declare cyl_start = <xnow, ymid+coil_radius*sin(qnow),coil_radius*cos(qnow)>;
union{
     #while (xnow <= 12)
          #declare xnow=xnow+dx;
          #declare qnow=qnow+dq;
          #declare ymid=3+pulse(xnow+15-30*lclock);
          #declare cyl_end = <xnow, ymid+coil_radius*sin(qnow),coil_radius*cos(qnow)>;
          cylinder { cyl_start, cyl_end, wire_radius }     
          #declare  cyl_start= cyl_end;
     #end
     texture {
       pigment {  color rgb <.8,.8,.8>  }
       finish {  ambient 0.2  specular 0.6  }
     }
}
text {
  ttf             // font type (only TrueType format for now)
  "crystal.ttf",  // Microsoft Windows-format TrueType font file name
  "Transverse Wave",      // the string to create
  .2,              // the extrusion depth
  0               // inter-character spacing
       texture {
       pigment {  color rgb <.8,.8,.8>  }
       finish {  ambient 1  specular 0.0}
     }
    translate -4.5*x+.5*y    
    no_shadow no_reflection
}

// --The longitudinal pulse
 
 #declare xnow=-22;
#declare qnow=0;
#declare dq=2*pi/segs_per_loop;
#declare dx=1/(loop_density*segs_per_loop);
#declare ymid=-3;
#declare cyl_start = <xnow, ymid+coil_radius*sin(qnow),coil_radius*cos(qnow)>;
union{
     #while (xnow <= 18)
          #declare xnow=xnow+dx*(1+pulse(xnow+15-30*lclock));
          #declare qnow=qnow+dq;
          #declare cyl_end = <xnow, ymid+coil_radius*sin(qnow),coil_radius*cos(qnow)>;
          cylinder { cyl_start, cyl_end, wire_radius }     
          #declare  cyl_start= cyl_end;
     #end
     texture {
       pigment {  color rgb <.8,.8,.8>  }
       finish {  ambient 0.2  specular 0.6  }
     }
}

text {
  ttf             // font type (only TrueType format for now)
  "crystal.ttf",  // Microsoft Windows-format TrueType font file name
  "Longitudinal Wave",      // the string to create
  .2,              // the extrusion depth
  0               // inter-character spacing
       texture {
       pigment {  color rgb <.8,.8,.8>  }
       finish {  ambient 1  specular 0.0}
     }
    translate -4.5*x-5*y
    no_shadow no_reflection
}