%% syntaxe : M dupmatrix --> depose une nouvelle instance de M sur la pile
/dupmatrix {
3 dict begin
/M exch def
M dimmatrix /nc exch def /nl exch def
/i 0 def
[
nl {
[
/j 0 def
nc {
M i j get_ij
/j j 1 add store
} repeat
]
/i i 1 add store
} repeat
]
end
} def
|