global proc create_cell_spheres()
{
    currentTime 1;
    string $sphere_1_name[] = `sphere`;
    string $sphere_2_name[] = `duplicate -rr -un`;
    move -a -0.085 0 0 $sphere_1_name[0];
    setKeyframe ($sphere_1_name[0] + ".tx");
    move -a 0.085 0 0 $sphere_2_name[0];
    setKeyframe ($sphere_2_name[0] + ".tx");
    
    currentTime 60;
    move -a -0.28 0 0 $sphere_1_name[0];
    setKeyframe ($sphere_1_name[0] + ".tx");
    move -a 0.28 0 0 $sphere_2_name[0];
    setKeyframe ($sphere_2_name[0] + ".tx");
    
    currentTime 120;
    move -a -0.335 0 0 $sphere_1_name[0];
    setKeyframe ($sphere_1_name[0] + ".tx");
    move -a 0.335 0 0 $sphere_2_name[0];
    setKeyframe ($sphere_2_name[0] + ".tx");
    
    selectKey -add -k -t 120 ($sphere_1_name[0] + "_translateX") ;
    selectKey -add -k -t 120 ($sphere_2_name[0] + "_translateX") ;
    keyTangent -itt flat -ott flat;
    
    select $sphere_1_name[0];
    select -tgl $sphere_2_name[0];    
}
  
create_cell_spheres;