Lines Matching +defs:frame +defs:char +defs:width
359 ;; set `ps-print-header-frame' to nil.
361 ;; The variable `ps-header-frame-alist' specifies header frame properties
362 ;; alist. Valid frame properties are:
364 ;; fore-color Specify the foreground frame color.
372 ;; back-color Specify the background frame color (similar to
381 ;; border-width Specify the border width.
408 ;; line height to insert between the header frame and the text it contains,
465 ;; `ps-footer-offset', `ps-print-footer-frame', `ps-footer-font-family',
467 ;; `ps-left-footer', `ps-right-footer' and `ps-footer-frame-alist'. These
478 ;; ps-print-footer-frame nil
880 ;; size (usually 10) and the corresponding line height, width of a space and
881 ;; average character width.
954 ;; For Helvetica 10 point, the line height is 11.56, the space width is 2.78
955 ;; and a crude estimate of average character width is 5.09243
967 ;; (space-width . 2.78)
968 ;; (avg-char-width . 5.09243)))
993 ;; (space-width . 6.0)
994 ;; (avg-char-width . 6.0))
1014 ;; (avg-char-width . 6.0)
1015 ;; (space-width . 6.0)
1226 ;; `ps-print-footer-frame', `ps-footer-font-family',
1228 ;; `ps-left-footer', `ps-right-footer', `ps-footer-frame-alist' and
1229 ;; `ps-header-frame-alist'.
1516 (defalias 'ps-frame-parameter
1517 (if (fboundp 'frame-parameter) 'frame-parameter 'frame-property))
1875 "*List associating a symbolic paper type to its width, height and doc media.
2400 The insertion is done between the header frame and the text it contains,
2414 The insertion is done between the footer frame and the text it contains,
2431 (defcustom ps-print-header-frame t
2432 "*Non-nil means draw a gaudy frame around the header."
2437 (defcustom ps-header-frame-alist
2440 (border-width . 0.4)
2443 "*Specify header frame properties alist.
2445 Valid frame properties are:
2447 `fore-color' Specify the foreground frame color.
2454 `back-color' Specify the background frame color (similar to
2461 `border-width' Specify the border width.
2492 (const :format "" border-width)
2532 (defcustom ps-print-footer-frame t
2533 "*Non-nil means draw a gaudy frame around the footer."
2538 (defcustom ps-footer-frame-alist
2541 (border-width . 0.4)
2544 "*Specify footer frame properties alist.
2549 See also `ps-header-frame-alist' for documentation."
2574 (const :format "" border-width)
2716 (space-width . 6.0)
2717 (avg-char-width . 6.0))
2725 (space-width . 2.78)
2726 (avg-char-width . 5.09243))
2734 (space-width . 2.5)
2735 (avg-char-width . 4.71432))
2743 (space-width . 2.5)
2744 (avg-char-width . 5.08676))
2752 (space-width . 2.2796)
2753 (avg-char-width . 4.17579))
2761 (space-width . 2.78)
2762 (avg-char-width . 5.31162))
2769 (space-width . 2.77)
2770 (avg-char-width . 5.45189))
2776 (space-width . 2.8)
2777 (avg-char-width . 5.51351))
2783 (space-width . 3.4)
2784 (avg-char-width . 6.05946))
2790 (space-width . 3.2)
2791 (avg-char-width . 5.67027))
2797 (space-width . 2.5)
2798 (avg-char-width . 3.24324))
2803 (space-width . 2.78)
2804 (avg-char-width . 2.78))
2809 (space-width . 2.2)
2810 (avg-char-width . 4.10811))
2817 (space-width . 2.2)
2818 (avg-char-width . 4.10811))
2822 reference size, line height, space width, average character width.
2857 (const :format "" space-width)
2860 (const :format "" avg-char-width)
2990 (defcustom ps-default-fg 'frame-parameter
3001 frame-parameter The foreground-color frame parameter will be used.
3023 (const :tag "Frame Foreground" frame-parameter)
3033 (defcustom ps-default-bg 'frame-parameter
3044 frame-parameter The background-color frame parameter will be used.
3068 (const :tag "Frame Background" frame-parameter)
3648 '(30 . ps-print-header-frame)
3649 '(30 . ps-header-frame-alist)
3654 '(30 . ps-print-footer-frame)
3655 '(30 . ps-footer-frame-alist)
3872 (let* ((frame-font (or (ps-x-face-font-instance face)
3875 (and frame-font
3877 (ps-x-font-instance-properties frame-font))))
4032 "Vertical and horizontal space between the header frame and the text.
4036 "Vertical and horizontal space between the footer frame and the text.
4041 (defmacro ps-page-dimensions-get-width (dims) `(nth 0 ,dims))
4047 (defvar ps-print-width nil)
4051 (defvar ps-width-remaining nil)
4299 (goto-char to)
4364 (defsubst ps-space-width (font-sym)
4365 "The width of a space character, for generating PostScript.
4367 (get font-sym 'space-width))
4369 (defsubst ps-avg-char-width (font-sym)
4370 "The average width, in points, of a character, for generating PostScript.
4374 (get font-sym 'avg-char-width))
4391 (icw (ps-avg-char-width 'ps-font-for-text)) ; initial character width
4392 (print-width (progn (ps-get-page-dimensions)
4393 ps-print-width))
4396 cw-min ; minimum character width
4399 cw-max ; maximum character width
4402 cw ; current character width
4406 nb-cpl-max (floor (/ print-width cw-min))
4408 nb-cpl-min (floor (/ print-width cw-max))
4411 (goto-char (point-max))
4414 "\nnb char per line / font size\n")
4416 (setq cw (/ print-width (float nb-cpl))
4467 (goto-char (point-max))
4493 (put sym 'space-width (ps-size-scale 'space-width))
4494 (put sym 'avg-char-width (ps-size-scale 'avg-char-width))
4501 page-width page-height)
4518 (setq page-width (ps-page-dimensions-get-width page-dimensions)
4523 ;; exchange width and height
4524 (setq page-width (prog1 page-height (setq page-height page-width))))
4530 ;; page-width == lm + n * pw + (n - 1) * ic + rm
4531 ;; => pw == (page-width - lm -rm - (n - 1) * ic) / n
4532 (setq ps-print-width (/ (- page-width
4536 (if (<= ps-print-width 0)
4538 page-width == %s
4544 page-width == lm + n * print-width + (n - 1) * ic + rm
4545 => print-width == %d !"
4546 page-width
4551 ps-print-width))
4688 (char ?\000))
4690 (while (<= char ?\037)
4691 (aset table char (format "\\%03o" char))
4692 (setq char (1+ char)))
4694 (while (< char ?\177)
4695 (aset table char (format "%c" char))
4696 (setq char (1+ char)))
4698 (while (<= char ?\377)
4699 (aset table char (format "\\%o" char))
4700 (setq char (1+ char)))
4721 (let ((special (following-char)))
4722 (delete-char 1)
4729 (goto-char (point-max))
4791 (goto-char (point-max))
4802 (forward-char 1)
4813 (goto-char (point-max))
4897 (defun ps-output-frame-properties (name alist)
4901 (ps-float-format (or (cdr (assq 'border-width alist)) 0.4))
5201 ;; normal size is landscaped, that is, the height is smaller than width.
5537 (format " %d" (round (ps-page-dimensions-get-width dimensions)))
5569 (- (* (+ ps-print-width ps-inter-column)
5572 (format "/PrintWidth %s def\n" ps-print-width)
5593 (ps-output-boolean "PrintHeaderFrame " ps-print-header-frame)
5594 (ps-output-frame-properties "HeaderFrameProperties" ps-header-frame-alist)
5596 (ps-output-boolean "PrintFooterFrame " ps-print-footer-frame)
5597 (ps-output-frame-properties "FooterFrameProperties" ps-footer-frame-alist)
5723 (/ (ps-lookup 'space-width) (ps-lookup 'size)))))
5887 (goto-char (point-max))
5921 ((eq ps-default-bg 'frame-parameter)
5922 (ps-frame-parameter nil 'background-color))
5933 ((eq ps-default-fg 'frame-parameter)
5934 (ps-frame-parameter nil 'foreground-color))
6025 (setq ps-width-remaining ps-print-width
6061 (forward-char 1)))
6074 (setq ps-width-remaining ps-print-width
6083 (setq ps-width-remaining ps-print-width
6087 (defun ps-find-wrappoint (from to char-width)
6088 (let ((avail (truncate (/ ps-width-remaining char-width)))
6091 (cons to (* todo char-width))
6092 (cons (+ from avail) ps-width-remaining))))
6096 (ps-avg-char-width 'ps-font-for-text)))
6106 (ps-avg-char-width 'ps-font-for-text)))
6116 (ps-space-width 'ps-font-for-text)))
6125 (plotted-width (cdr wrappoint)))
6127 ps-width-remaining (- ps-width-remaining plotted-width))
6172 (let ((tbl (make-char-table 'translation-table nil)))
6174 (char-table-p ucs-mule-8859-to-mule-unicode))
6175 (map-char-table
6177 (if (and v (eq (char-charset v) 'latin-iso8859-1) (/= k v))
6209 (goto-char from)
6218 (goto-char (match-end 0))
6220 (= (following-char) ?\n)
6221 (forward-char 1))
6226 (match (char-after match-point))
6234 (goto-char (nth 1 composition)))
6242 (forward-char -1)
6263 (unless (and (equal (char-after (1- match-point)) ?\n)
6266 (and (equal (following-char) ?\n)
6275 (let* ((charset (char-charset match))
6280 (let ((ch (following-char)))
6284 (eq (char-charset ch) charset)))
6285 (forward-char 1)))
6298 (char ?\000))
6300 (while (<= char ?\037)
6301 (aset table char (format "^%c" (+ char ?@)))
6302 (setq char (1+ char)))
6304 (while (< char ?\177)
6305 (aset table char (format "%c" char))
6306 (setq char (1+ char)))
6308 (aset table char "^?")
6310 (while (<= (setq char (1+ char)) ?\377)
6311 (aset table char (format "\\%o" char)))
6315 (defun ps-control-character (char)
6316 (let* ((str (aref ps-string-control-codes char))
6320 (char-width (ps-avg-char-width 'ps-font-for-text))
6321 (wrappoint (ps-find-wrappoint from to char-width)))
6324 (setq ps-width-remaining (- ps-width-remaining (* len char-width)))
6434 (goto-char to))
6675 (goto-char (point-min))
6720 (goto-char (point-max))
6725 (goto-char (point-min))
6883 (goto-char (point-min))
6893 (goto-char (point-min))
6961 (goto-char (point-min))
6970 (goto-char (point-min))
7024 ps-print-header-frame t
7060 Where ENDPOS is the end position of the sequence and RUN-WIDTH is the width of