% Usage: mf '\mode=what_ever_mode; \input mode2dpi' let myexit = primitive_end_; mode_setup; string xdpi; xdpi := decimal round pixels_per_inch; message "XDPI = " & xdpi; string ydpi; ydpi := decimal round (pixels_per_inch * aspect_ratio); message "YDPI = " & ydpi; fontmaking := 0; myexit;