if unknown hz_stretch: hz_stretch:=1; fi let BEGINCHAR = beginchar; def beginchar(expr n, w, h, d) = BEGINCHAR(n,(w)*hz_stretch,h,d) enddef;