PNG  IHDR pHYs   OiCCPPhotoshop ICC profilexڝSgTS=BKKoR RB&*! J!QEEȠQ, !{kּ> H3Q5 B.@ $pd!s#~<<+"x M0B\t8K@zB@F&S`cbP-`'{[! eDh;VEX0fK9-0IWfH  0Q){`##xFW<+*x<$9E[-qWW.(I+6aa@.y24x6_-"bbϫp@t~,/;m%h^ uf@Wp~<5j>{-]cK'Xto(hw?G%fIq^D$.Tʳ?D*A, `6B$BB dr`)B(Ͱ*`/@4Qhp.U=pa( Aa!ڈbX#!H$ ɈQ"K5H1RT UH=r9\F;2G1Q= C7F dt1r=6Ыhڏ>C03l0.B8, c˱" VcϱwE 6wB aAHXLXNH $4 7 Q'"K&b21XH,#/{C7$C2'ITFnR#,4H#dk9, +ȅ3![ b@qS(RjJ4e2AURݨT5ZBRQ4u9̓IKhhitݕNWGw Ljg(gwLӋT071oUX**| J&*/Tު UUT^S}FU3S ԖUPSSg;goT?~YYLOCQ_ cx,!k u5&|v*=9C3J3WRf?qtN (~))4L1e\kXHQG6EYAJ'\'GgSSݧ M=:.kDwn^Loy}/TmG X $ <5qo</QC]@Caaᄑ.ȽJtq]zۯ6iܟ4)Y3sCQ? 0k߬~OCOg#/c/Wװwa>>r><72Y_7ȷOo_C#dz%gA[z|!?:eAAA!h쐭!ΑiP~aa~ 'W?pX15wCsDDDޛg1O9-J5*>.j<74?.fYXXIlK9.*6nl {/]py.,:@LN8A*%w% yg"/6шC\*NH*Mz쑼5y$3,幄'L Lݛ:v m2=:1qB!Mggfvˬen/kY- BTZ(*geWf͉9+̳ې7ᒶKW-X潬j9(xoʿܔĹdff-[n ڴ VE/(ۻCɾUUMfeI?m]Nmq#׹=TR+Gw- 6 U#pDy  :v{vg/jBFS[b[O>zG499?rCd&ˮ/~јѡ򗓿m|x31^VwwO| (hSЧc3- cHRMz%u0`:o_F@8N ' p @8N@8}' p '#@8N@8N pQ9p!i~}|6-ӪG` VP.@*j>[ K^<֐Z]@8N'KQ<Q(`s" 'hgpKB`R@Dqj '  'P$a ( `D$Na L?u80e J,K˷NI'0eݷ(NI'؀ 2ipIIKp`:O'`ʤxB8Ѥx Ѥx $ $P6 :vRNb 'p,>NB 'P]-->P T+*^h& p '‰a ‰ (ĵt#u33;Nt̵'ޯ; [3W ~]0KH1q@8]O2]3*̧7# *p>us p _6]/}-4|t'|Smx= DoʾM×M_8!)6lq':l7!|4} '\ne t!=hnLn (~Dn\+‰_4k)0e@OhZ`F `.m1} 'vp{F`ON7Srx 'D˸nV`><;yMx!IS钦OM)Ե٥x 'DSD6bS8!" ODz#R >S8!7ّxEh0m$MIPHi$IvS8IN$I p$O8I,sk&I)$IN$Hi$I^Ah.p$MIN$IR8I·N "IF9Ah0m$MIN$IR8IN$I 3jIU;kO$ɳN$+ q.x* tEXtComment

Viewing File: /usr/share/ghostscript/lib/viewpbm.ps

% Copyright (C) 2001-2021 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
Back to Directory=ceiIENDB`