Source PostScript (smulm.pps)

%% syntaxe : M alpha smulm --> multiplie M par le scalaire alpha
/smulm {
9 dict begin
   /alpha exch def
   /M exch def
   M dimmatrix pop /nblignes exch def
   /i 0 def
   nblignes {
      M i
      M i get_Li {alpha mul} apply
      put_Li
   /i i 1 add store
   } repeat
   M
end
} def