%% syntaxe~: A u vect --> trace le vecteur u a partir du point A /vect { gsave dupd %% A, u, A, u addv %% A, u, M exchp popp %% A, M (->) line grestore } def