Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 20:37:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

(gamegrid-setup-default-font): Calculate a font

Browse source 
height that doesn't exceed the requested height by rounding off.
This commit is contained in:
Kenichi Handa 2007-08-23 12:13:24 +00:00
parent 3898f05006
commit 34764b7311
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/play/gamegrid.el
View file

@ -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))