// A satellite link for WTEL logo

//  Requires

//    wtel_logo_beam_org
//    wtel_logo_beam_dst

//    wtel_logo_beam_radius
//    wtel_logo_beam_step
//    wtel_logo_beam_texture

//  Defines

//    wtel_logo_beam

#declare del = 0.667 // fraction of beam step to leave out at each end
#declare ph = 0.5    // phase of dot in beam step
#declare dv = wtel_logo_beam_dst - wtel_logo_beam_org
#declare dl = vlength(dv)
#declare n = int((dl - 2*del*wtel_logo_beam_step)/wtel_logo_beam_step)
#declare ds = (1.0/(n+2*del)) * dv

#declare ct = 0
#declare wtel_logo_beam = 
  union{
    #while (ct < n)
      sphere{ 
        < 0,0,0>, wtel_logo_beam_radius
        texture{ wtel_logo_beam_texture }
        translate (ct+del+ph)*ds
      }
      #declare ct = ct+1
    #end
    translate wtel_logo_beam_org
    no_shadow
  }