%% syntaxe : A x y M printmatrix --> affiche la matrice M en partant
%% du point A et en utilisant des decalage de (x,0) ou (0,y)
/printmatrix {
8 dict begin
/M exch def
/y exch def
/x exch def
/A defpoint
M dimmatrix /nc exch def /nl exch def
/i 0 def
gsave
nl {
/j 0 def
gsave
nc {
M i j get_ij chaine cvs A cctext
x 0 stranslate
/j j 1 add store
} repeat
grestore
0 y stranslate
/i i 1 add store
} repeat
grestore
end
} def
|