diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/play/gamegrid.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el index 74158e7bfd..dab015eb67 100644 --- a/lisp/play/gamegrid.el +++ b/lisp/play/gamegrid.el @@ -320,7 +320,14 @@ static unsigned char gamegrid_bits[] = { (< max-height height)) (setq max-height height)))))) (when (and max-height (< max-height 1)) - (set-face-attribute gamegrid-face nil :height max-height))))) + (let ((default-font-height (face-attribute 'default :height)) + (resy (/ (display-pixel-height) (/ (display-mm-height) 25.4))) + point-size pixel-size) + (setq point-size (/ (* (float default-font-height) max-height) 10) + pixel-size (floor (* resy (/ point-size 72.27))) + point-size (* (/ pixel-size resy) 72.27)) + (set-face-attribute gamegrid-face nil + :height (floor (* point-size 10)))))))) (defun gamegrid-initialize-display () (setq gamegrid-display-mode (gamegrid-display-type)) |