OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	01/31/2023 12:39:13 PM	rwxr-xr-x
📄 PDFA_def.ps	1.25 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 PDFX_def.ps	1.77 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 PM760p.upp	1.13 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 PM760pl.upp	1.1 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 PM820p.upp	1.12 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 PM820pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc670p.upp	1.13 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc670pl.upp	1.1 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc680p.upp	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc680pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc740p.upp	1.01 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc740pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc760p.upp	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc760pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc777p.upp	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stc777pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stp720p.upp	1.13 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stp720pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stp870p.upp	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 Stp870pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 acctest.ps	4.17 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 align.ps	2.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8.rpd	639 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8gc12f.upp	1.5 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8hg12f.upp	1.5 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8oh06n.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8pa06n.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8pp12f.upp	1.51 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bj8ts06n.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc6000a1.upp	1.62 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc6000b1.upp	1.62 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a0.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a1.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a2.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a3.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a4.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a5.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a6.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a7.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610a8.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b1.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b2.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b3.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b4.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b6.upp	1.48 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b7.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 bjc610b8.upp	1.49 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 caption.ps	1.72 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cbjc600.ppd	10.89 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cbjc800.ppd	11.22 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cdj550.upp	1.65 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cdj690.upp	1.95 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cdj690ec.upp	2.01 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 cid2code.ps	4.39 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 dmp_init.ps	7.08 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 dmp_site.ps	459 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 dnj750c.upp	2.74 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 dnj750m.upp	1.93 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 docie.ps	7.32 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 escp_24.src	350 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 font2pcl.ps	18.01 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 ghostpdf.ppd	25.04 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_ce_e.ps	2.17 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_il2_e.ps	2.57 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_kanji.ps	3.91 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_ksb_e.ps	3.07 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_l.xbm	1.9 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_l.xpm	2.69 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_l_m.xbm	1.91 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_lgo_e.ps	2.67 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_lgx_e.ps	1.72 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_m.xbm	945 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_m.xpm	1.4 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_m_m.xbm	955 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_s.xbm	594 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_s.xpm	957 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_s_m.xbm	604 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_t.xbm	345 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_t.xpm	605 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_t_m.xbm	355 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_wl1_e.ps	2.44 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_wl2_e.ps	2.44 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gs_wl5_e.ps	2.45 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gslp.ps	20.24 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 gsnup.ps	2.57 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 ht_ccsto.ps	222.8 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 image-qa.ps	71.34 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 jispaper.ps	784 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 landscap.ps	1.43 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 lines.ps	3.65 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 mkcidfm.ps	21.8 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 necp2x.upp	1.02 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 necp2x6.upp	1.04 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 pdf2dsc.ps	7.87 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 pf2afm.ps	14.94 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 pfbtopfa.ps	995 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ppath.ps	1.78 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 pphs.ps	6.68 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 prfont.ps	7.04 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 printafm.ps	4.78 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 ps2ai.ps	21.78 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 ps2epsi.ps	8.34 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras1.upp	215 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras24.upp	219 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras3.upp	214 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras32.upp	196 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras4.upp	220 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 ras8m.upp	209 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 rollconv.ps	12.23 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 s400a1.upp	1.42 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 s400b1.upp	1.57 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 sharp.upp	1.89 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 sipixa6.upp	529 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640ih.upp	2.23 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640ihg.upp	1.47 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640p.upp	1.87 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640pg.upp	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640pl.upp	1.83 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 st640plg.upp	1.08 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc.upp	1.88 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc1520h.upp	2.1 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc2.upp	1.86 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc200_h.upp	1.8 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc2_h.upp	1.83 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc2s_h.upp	2.22 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc300.upp	2.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc300bl.upp	1.31 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc300bm.upp	1.4 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc500p.upp	1.86 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc500ph.upp	1.86 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc600ih.upp	2.23 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc600p.upp	1.12 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc600pl.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc640p.upp	1.07 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc740ih.upp	2.07 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc800ih.upp	2.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc800p.upp	1.09 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc800pl.upp	1.07 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc_h.upp	1.87 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stc_l.upp	734 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 stcany.upp	673 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 stcany_h.upp	681 bytes	04/13/2023 01:09:22 PM	rw-r--r--
📄 stcinfo.ps	24.92 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stcolor.ps	4.95 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 stocht.ps	2.44 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 traceimg.ps	1.35 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 traceop.ps	2.51 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 uninfo.ps	5.85 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewcmyk.ps	1.94 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewgif.ps	5.27 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewjpeg.ps	5.56 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewmiff.ps	4.15 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewpbm.ps	10.04 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewpcx.ps	5.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 viewps2a.ps	1.11 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 winmaps.ps	3.52 KB	04/13/2023 01:09:22 PM	rw-r--r--
📄 zeroline.ps	2.26 KB	04/13/2023 01:09:22 PM	rw-r--r--

Editing: viewpbm.ps

% Copyright (C) 2001-2018 Artifex Software, Inc.
% All Rights Reserved.
%
% This software is provided AS-IS with no warranty, either express or
% implied.
%
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
%
% Refer to licensing information at http://www.artifex.com or contact
% Artifex Software, Inc.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
%

% viewpbm.ps
% Display a PBM/PGM/PPM file.
% Requires the Level 2 `image' operator (to handle variable pixel widths).
% If SCALE is defined, maps input pixels to output pixels with that scale;
% if SCALE is undefined, scales the image to fit the page.
% If FITPAGE true, it fits the output page size to the image, honouring SCALE
% When the input is PAM (P7) RGBTAG from bitrgbtags device, -dTAG will show
% the tags is pseudo color:
% TEXT=1, IMAGE=2, PATH=4, UNTOUCHED=8
%  red     green   blue      gray

/s 100 string def
/readmaxv {		% <file> readmaxv -
  10 string readline pop cvx exec /maxv exch def
} bind def
/readrow {		% <file> <row> readrow <row>
  0 1 2 index length 1 sub {
    1 index exch 3 index token pop put
  } for exch pop
} bind def
/read01 {		% <file> <count> read01 <byte>
  0 exch {
    1 index read pop 48 xor dup 1 le { exch dup add add } { pop } ifelse
  } repeat
} bind def
/readrow01 {		% <file> <row> readrow01 <row>
  0 1 w 8 idiv {
    1 index exch 3 index 8 read01 put
  } for
  wrem 0 ne {
     dup rsize 1 sub wrem read01 8 wrem sub bitshift put
  } if
  exch pop
} bind def
/readwh {		% <file> readwh <w> <h>
 dup s readline pop		% check for comment
 (#) anchorsearch {
   pop pop dup s readline pop
 } if
 cvx exec
} bind def
/pbmtypes mark
% The procedures in this dictionary are called as
%	<file> Pn <w> <h> <readproc>
/P1 {			% ASCII 1-bit white/black
  /bpc 1 def /maxv 1 def /rsize w 7 add 8 idiv def
  /wrem w 8 mod def
  /ncomp 1 def /invert true def /DeviceGray setcolorspace
  readwh
        { readrow01 }
} bind
/P2 {			% ASCII 8-bit gray
  readwh
  /bpc 8 def 2 index readmaxv /rsize 2 index def
  /ncomp 1 def /invert false def /DeviceGray setcolorspace
        { readrow }
} bind
/P3 {			% ASCII 8-bit RGB
  readwh
  /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  /ncomp 3 def /invert false def /DeviceRGB setcolorspace
        { readrow }
} bind
/P4 {			% Binary 1-bit white/black
  readwh
  /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def
  /ncomp 1 def /invert true def /DeviceGray setcolorspace
        { readstring pop }
} bind
/P5 {			% Binary 8-bit gray
  readwh
  /bpc 8 def 2 index readmaxv /rsize 2 index def
  /ncomp 1 def /invert false def /DeviceGray setcolorspace
        { readstring pop }
} bind
/P6 {			% Binary 8-bit RGB
  readwh
  /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  /ncomp 3 def /invert false def /DeviceRGB setcolorspace
        { readstring pop }
} bind
/P7 {			% Assume Binary 8-bit CMYK -- assumes 'pf' is the input file
% P7
% WIDTH 612	%% used to set rsize and w
% HEIGHT 792	%% used to set h
% DEPTH 4	%% if present and not 1 or 4, then bail
% MAXVAL 255	%% used to set maxv
% TUPLTYPE CMYK | RGB_TAG | RGB_ALPHA | GRAYSCALE %% if present and not one of these, then bail
% ENDHDR	%% skip everything else up to this
  /P7KEYS <<
    /WIDTH { /w pf token pop def }
    /HEIGHT { /h pf token pop def }
    /DEPTH { /d pf token pop def d 4 eq d 1 eq or not {
             (*** Only DEPTH 1 or 4 PAM files supported at this time. ***) = quit
             } if
           }
    /MAXVAL { /maxv pf token pop def }
    /TUPLTYPE { pf token pop dup /CMYK eq 1 index /RGB_TAG eq or 1 index /RGB_ALPHA eq or 1 index /GRAYSCALE eq or not {
                  (*** Only CMYK, RGB_TAG, RGB_ALPHA and GRAYSCALE files supported at this time. ***) = quit
                } if
                /T exch def
              }
    /ENDHDR { exit }
    (#) cvn { pf 255 string readline pop pop }
  >> def
  { pf token not { exit } if P7KEYS exch .knownget { exec } if } loop
  /bpc 8 def
  /rsize w 4 mul def		% same bytes per line for CMYK or RGB_TAG
  /T load /CMYK eq {
    /ncomp 4 def /invert false def /DeviceCMYK setcolorspace
    w h { readstring pop }
  } if
  /T load /RGB_ALPHA eq {
    /ncomp 4 def /invert false def /DeviceCMYK setcolorspace
    w h { readstring pop }
  } if
  /T load /GRAYSCALE eq {
    /ncomp 1 def /invert false def /DeviceGray setcolorspace
    w h { readstring pop }
  } if
  /T load /RGB_TAG eq {
    % not CMYK, must be RGB_TAG since was checked above
    /TAG where {
      pop
      % show the tags as pseudo-color image
      /ncomp 1 def /invert false def /maxv 1 def
      [ /Indexed /DeviceRGB 255
        % UNTOUCHED=0, TEXT=1, IMAGE=2, PATH=4
        %     gray      red     green    blue
        768 string
        dup 0 <cccccc ff0000 00ff00 ffff00 0000ff ff00ff 00ffff ffffff 000000> putinterval
      ] setcolorspace
      w h {
        readstring pop
        % discard all but the tag
        dup length 4 div cvi
        string	% destination string
        0 1 2 index length 1 sub {
          2 index 1 index 4 mul get
          2 index exch 2 index exch
          put
          pop % done with pixel#
        } for
        exch pop
      }
    } {
      % show the image as RGB (ignore tags)
      /ncomp 3 def /invert false def /DeviceRGB setcolorspace
      w h {
        readstring pop
        % re-pack the RGB, discard the tag
        dup length 4 div 3 mul cvi string	% destination string
        0 1 2 index length 3 idiv 1 sub {
          % stack: RGBTstring destRGBstring pixel#
          2 index 1 index 4 mul 4 getinterval
          1 3 getinterval	% RGB values
          % stack RGBTstring destRGBstring pixel# RGBstring
          2 index exch 2 index 3 mul exch
          putinterval
          pop % done with pixel#
        } for
        exch pop
      }
    } ifelse
  } if
} bind

.dicttomark readonly def
/pbmsetup {			% <file> <w> <h> <readproc> pbmsetup <imagedict>
   /readproc exch def
   /h exch def
   /w exch def
   /f exch def
   20 dict begin		% image dictionary
     /ImageType 1 def
     /Width w def
     /Height h def
     /ImageMatrix [w 0 0 h neg 0 h] def
     /BitsPerComponent bpc def
     /Decode [ 0 255 maxv div invert { exch } if ncomp 1 sub { 2 copy } repeat ] def
     /DataSource [ f rsize string /readproc load /exec load ] cvx def
   currentdict end
} def
/imagescale {			% <imagedict> imagescale -
  begin
    /SCALE where {
      pop
      /FITPAGE where {/FITPAGE get}{false} ifelse
      {
          Width SCALE mul Height SCALE mul
      }
      {
        % Map pixels SCALE-for-1.  Assume orthogonal transformation.
        Width 1 0 dtransform add abs div SCALE mul
        Height 0 1 dtransform add abs div SCALE mul
      } ifelse
    } {
      /FITPAGE where {/FITPAGE get}{false} ifelse
      {
          % Scale the image (uniformly) to fit the page.
        clippath pathbbox pop pop translate	% offset to the printable origin
        pathbbox 3 -1 roll sub exch 3 -1 roll sub exch
        % stack printable_width printable_height
        2 copy gt 3 1 roll .min exch
        % stack: min(printable_w, printable_h) landscape?
        {
          % printable height is less than width (landscape)
          dup Height Width gt {
            Width mul Height div exch
          } {
            Height mul Width div
          } ifelse
        } {
          % printable width is less than height (portrait)
          dup Height Width lt {
            Width mul Height div exch
          } {
            Height mul Width div
          } ifelse
        } ifelse
      }
      {
        0 0 translate
        612 792
      }
      ifelse
    }
    ifelse
    scale
  end
} def

% Image a PBM file page by page.
/viewpbm {			% <filename> viewpbm -
  20 dict begin
    (r) file /pf exch def {
      pf token not { exit } if
      pbmtypes exch get pf exch exec pbmsetup
      currentcolorspace			% preserve colorspace around setpagedevice
      /FITPAGE where
      {
        /FITPAGE get
        {
          /SCALE where
          {
            pop
            << /PageSize [ 1 1 dtransform h SCALE mul exch abs div exch w SCALE mul exch abs div exch ] >>
          }
          {
            << /PageSize [ 1 1 dtransform h exch abs div exch w exch abs div exch ] >>
          } ifelse
          setpagedevice
        } if
      } if
      setcolorspace			% restore colorspave in case we did setpagedevice
      dup imagescale image showpage
    } loop
  end
} def

% Reassemble a composite PBM file from the CMYK separations.
/viewpsm {
  20 dict begin
    /fname exch def
    /sources [ 0 1 3 {
      /plane exch def
      /pf fname (r) file def
      pf pbmtypes pf token pop get exec
                % Stack: pf w h readproc
      plane {
        /readproc exch def /h exch def /w exch def pop
        /row rsize string def
        h { pf row readproc pop } repeat
        pf pbmtypes pf token pop get exec
      } repeat
      pbmsetup
    } for ] def
    /datas [ sources { /DataSource get 0 get } forall ] def
    /decode sources 0 get /Decode get
      dup 0 get exch 1 get add cvi 0 exch
      2 copy 4 copy 8 array astore def
    sources 0 get
      dup /MultipleDataSources true put
      dup /DataSource datas put
      dup /Decode decode put
    /DeviceCMYK setcolorspace
    /FITPAGE where
    {
      /FITPAGE get
      {
        /SCALE where
        {
            <</PageSize [w SCALE mul h SCALE mul]>>
        }
        {
            <</PageSize [w h]>>
        }ifelse
        setpagedevice
      } if
    } if
    dup imagescale image showpage
  end
} def

% If the program was invoked from the command line, run it now.
[ shellarguments
 { counttomark 1 ge
    { ] { viewpbm } forall
    }
    { cleartomark
      (Usage: gs [-dSCALE=#.#] [-dFITPAGE] [--] viewpbm.ps filename.p*m ...\n) print
      ( e.g.: gs [-dSCALE=#.#] [-dFITPAGE] [--] viewpbm.ps my.ppm another.ppm\n) print flush
      (    also -dTAG option can be used to show the pseudo-color tag image from a\n) print flush
      (    P7 RGB_TAG PAM file created by the bitrgbtags device.\n) print flush
    }
   ifelse
 }
 { pop
 }
ifelse