Commit 58ce180d authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

Eliminate CheckConfig.

parent 66e63857
......@@ -389,9 +389,7 @@ StandardEncoding 46 82 getinterval aload pop
/docState save def
% ---- [andrewi] set PageSize based on chosen dimensions
UseSetpagedevice{
0
{<< /PageSize [PageWidth LandscapePageHeight] >> setpagedevice}
CheckConfig
<< /PageSize [PageWidth LandscapePageHeight] >> setpagedevice
}{
LandscapeMode{
% ---- translate to bottom-right corner of Portrait page
......@@ -695,24 +693,4 @@ StandardEncoding 46 82 getinterval aload pop
% 3 cm 20 cm moveto 10 /Courier ReportFontInfo showpage
% 3 cm 20 cm moveto ReportAllFontInfo showpage
/ErrorMessages
[(This PostScript printer is not configured with this document page size.)
(Duplex printing is not supported on this PostScript printer.)]def
% stack: error-index proc |- --
/CheckConfig{
stopped{
1 cm LandscapePageHeight 0.5 mul moveto
/Courier findfont 10 scalefont setfont
gsave
(ps-print error:) show
grestore
0 -10 rmoveto
ErrorMessages exch get show
showpage
$error /newerror false put
stop
}if
}bind def
% === END ps-print prologue 1
% === BEGIN ps-print prologue 3
% --- duplex feature verification
1
UseSetpagedevice {
{<< /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice}
<< /Duplex DuplexValue /Tumble TumbleValue >> setpagedevice
}{
{statusdict begin
DuplexValue setduplexmode TumbleValue settumble
end}
statusdict begin
DuplexValue setduplexmode TumbleValue settumble
end
}ifelse
CheckConfig
% === END ps-print prologue 3
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment