Function: gamegrid-calculate-glyph-size

gamegrid-calculate-glyph-size is a byte-compiled function defined in gamegrid.el.gz.

Signature

(gamegrid-calculate-glyph-size)

Documentation

Calculate appropriate glyph size in pixels based on display resolution.

Return a multiple of 8 no less than 16.

Source Code

;; Defined in /usr/src/emacs/lisp/play/gamegrid.el.gz
;; ;;;;;;;;;;;;; glyph generation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun gamegrid-calculate-glyph-size ()
  "Calculate appropriate glyph size in pixels based on display resolution.
Return a multiple of 8 no less than 16."
  (let ((atts (frame-monitor-attributes))
        y-pitch)
    (setq y-pitch (cond
                   (atts
                    (/ (nth 4 (assq 'geometry atts))
                       (nth 2 (assq 'mm-size atts))
                       (or (cdr (assq 'scale-factor atts)) 1.0)))
                   ((and (display-pixel-height) (display-mm-height))
                    (/ (display-pixel-height) (float (display-mm-height))))))
    (if y-pitch
        (let* ((pixels (* y-pitch gamegrid-glyph-height-mm))
               (rounded (* (floor (/ (+ pixels 4) 8)) 8)))
          (max 16 rounded))
      16)))