//
// Sample for movemacro.inc
//

#include "movemacro.inc"

camera {
    location <3, -0, -13>
    look_at <3, 4, 0>
}

light_source {
    <10, 0, -10>
    color rgb 1.0
}

#declare P=array[7] {<0,0,0>,<4,2,0>,<0,4,0>,<4,6,0>,<0,8,0>,<4,10,0>,<0,0,0>}

// Red sphere , move P[0]->P[1]->...->P[6] (while clock=0.0 to 1.0)

sphere { 
    0, 1.2 
    pigment {color red 1}
      
    translate MovePs(P, 7)  
}

// Blue sphere (fixed position)

#declare i = 0 ;

#while (i < 6)  

  sphere {
      P[i] 1 
      pigment {color blue 1}
  }
  
  #declare i = i + 1 ;
  
#end