[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Calculate window size in pixels
From: |
Mathias Dahl |
Subject: |
Re: Calculate window size in pixels |
Date: |
06 May 2005 17:40:41 +0200 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 |
Mathias Dahl <brakjoller@hotmail.com> writes:
> Which means I can use this:
>
> (defun window-height-pixels ()
> (let ((line-pixel-height-ratio (/ (+ (frame-pixel-height) 0.0)
> (frame-height)))
> (column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0)
> (frame-width))))
> (ftruncate (* (window-height) line-pixel-height-ratio))))
>
> (defun window-width-pixels ()
> (let ((column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0)
> (frame-width))))
> (ftruncate (* (window-width) column-pixel-width-ratio))))
And even better:
(defun window-height-pixels ()
(let ((line-pixel-height-ratio (/ (+ (frame-pixel-height) 0.0)
(frame-height))))
(truncate (* (window-height) line-pixel-height-ratio))))
(defun window-width-pixels ()
(let ((column-pixel-width-ratio (/ (+ (frame-pixel-width) 0.0)
(frame-width))))
(truncate (* (window-width) column-pixel-width-ratio))))
/Mathias