Merge from emacs--devo--0

[gnu-emacs] / lisp / play / gamegrid.el

diff --git a/lisp/play/gamegrid.el b/lisp/play/gamegrid.el
index c1a99e9afff3d142acda3f04f170763254f00f9b..1187da9580adc1ee513478f032f648b927fb2fb6 100644 (file)
--- 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))
-       (face-spec-set gamegrid-face `((t :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))
+         (face-spec-set gamegrid-face
+                        `((t :height ,(floor (* point-size 10))))))))))
 
 (defun gamegrid-initialize-display ()
   (setq gamegrid-display-mode (gamegrid-display-type))