/up {0 1} def /down {0 -1} def /left {-1 0} def /right {1 0} def %% syntaxe : alpha dir --> vecteur de norme 1 et d'angle alpha avec le %% vecteur unite sur l'axe des abscisses /dir {dup cos exch sin} def