comparison lisp/ps-print.el @ 23691:cfeb9bcbd372

(ps-print-prologue-1): Only use old LandscapeMode handling if setpagedevice is not available. (ps-begin-file): Fix typo.

23690:5149f79d6dfd

/BeginDoc {
  % ---- Remember space width of the normal text font `f0'.
  /SpaceWidth /f0 findfont setfont ( ) stringwidth pop def
  % ---- save the state of the document (useful for ghostscript!)
  /docState save def
  % ---- [andrewi] set PageSize based on chosen dimensions
  /setpagedevice where {
    pop
    1 dict dup
      /PageSize [ PrintPageWidth LeftMargin RightMargin add add
                  LandscapePageHeight ] put
    setpagedevice
  } if
  % ---- [jack] Kludge: my ghostscript window is 21x27.7 instead of 21x29.7
  /JackGhostscript where {
    pop 1 27.7 29.7 div scale
  } if
  LandscapeMode {
    % ---- translate to bottom-right corner of Portrait page
    LandscapePageHeight 0 translate
    90 rotate
    } if
  /ColumnWidth PrintWidth InterColumn add def
  % ---- translate to lower left corner of TEXT
  LeftMargin BottomMargin translate
  % ---- define where  printing will start
  /f0 F					% this installs Ascent

    (ps-output (format "/SpaceWidthRatio %f def\n"
		       (/ (ps-lookup 'space-width) (ps-lookup 'size)))))

  (ps-mule-initialize)

  (ps-output "%%EndPrologue\n%%BeginSetup\nBeginDoc\n%%EndSetup\n\n")))

(defun ps-header-dirpart ()
  (let ((fname (buffer-file-name)))
    (if fname
	(if (string-equal (buffer-name) (file-name-nondirectory fname))

23691:cfeb9bcbd372

/BeginDoc {
  % ---- Remember space width of the normal text font `f0'.
  /SpaceWidth /f0 findfont setfont ( ) stringwidth pop def
  % ---- save the state of the document (useful for ghostscript!)
  /docState save def
  /JackGhostscript where {pop 1 27.7 29.7 div scale}if
  % ---- [andrewi] set PageSize based on chosen dimensions
  /setpagedevice where {
    pop
    1 dict dup
    /PageSize [ PrintPageWidth LeftMargin add RightMargin add
                LandscapePageHeight ] put
    setpagedevice
  }{
    LandscapeMode {
      % ---- translate to bottom-right corner of Portrait page
      LandscapePageHeight 0 translate
      90 rotate
    }if
  }ifelse
  /ColumnWidth PrintWidth InterColumn add def
  % ---- translate to lower left corner of TEXT
  LeftMargin BottomMargin translate
  % ---- define where  printing will start
  /f0 F					% this installs Ascent

    (ps-output (format "/SpaceWidthRatio %f def\n"
		       (/ (ps-lookup 'space-width) (ps-lookup 'size)))))

  (ps-mule-initialize)

  (ps-output "%%EndPrologue\n%%BeginSetup\nBeginDoc\n%%EndSetup\n\n"))

(defun ps-header-dirpart ()
  (let ((fname (buffer-file-name)))
    (if fname
	(if (string-equal (buffer-name) (file-name-nondirectory fname))