%% syntaxe : array_points n M putp --> depose le point M a l'indice n %% du tableau de points /putp { 4 copy %% array, n, xM, yM, array, n, xM, yM pop exch 2 mul exch put %% array, n, xM, yM exch pop %% array, n, yM exch 2 mul 1 add exch put } def