/milieu3d { %% A B --> I le milieu de [AB]
   addv3d 0.5 mulv3d
} def