// Galho listrado

#macro galho(P,Q,R,tt)
  // Galho "infinito" de raio {R} que passa por {P} e {Q}
  // com duas listras entre esses dois pontos,
  // deslocado proporcionalmente ao tempo {tt}
  // (fase completa de 0 a 1).
  
  #local ca = < 0.800, 0.500, 0.200 >;
  #local cb = < 0.600, 0.300, 0.100 >;
  #local dd = Q - P;
  #local tx_bandas = 
    texture{
      pigment{ 
        gradient dd 
        color_map{ 
          [0.00 color rgb ca]
          [0.50 color rgb ca]
          [0.50 color rgb cb]
          [1.00 color rgb cb]
        }
      }
      finish{ diffuse 0.8 ambient 0.2 }
      scale vlength(dd)
      translate P - tt*dd
    }
    
  cylinder{ P-100*dd, Q+100*dd, R texture{ tx_bandas } }
#end