ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / share / ghostscript / lib

% 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.
%

% viewmiff.ps
% Display a MIFF file.  You would think the 'display' command would do this,
% but many versions of 'display' either core-dump or require unacceptably
% large amounts of memory.
% FITPAGE is true, it fits the output page size to the image

% Recognize MIFF keywords.
/miffwords mark
  /class { cvn /class exch def }
  /colors { cvi /colors exch def }
  /columns { cvi /Width exch def }
  /compression { cvn /compression exch def }
  /depth { cvi /depth exch def }
  /packets { cvi /packets exch def }
  /rows { cvi /Height exch def }
.dicttomark readonly def

% Recognize MIFF image classes.
/miffclasses mark
  /DirectClass {
    /DeviceRGB setcolorspace
    /BitsPerComponent depth def
    /Decode [ 0 1 0 1 0 1 ] def
  }
  /PseudoClass {
    [ /Indexed
                % The MIFF documentation lies about the size of pixels
                % for this case: the pixel size is determined only by
                % the number of colors, and is not affected by the image
                % depth.  Specifically, if there are 256 or fewer colors
                % but the depth (of color map entries) is 16, each pixel
                % is still only 1 byte, not 2.
      currentdict /colors known {
        /DeviceRGB colors 1 sub
        /BitsPerComponent colors 256 le { 8 } { 16 } ifelse def
        colors 3 mul string depth 8 eq {
          f exch readstring pop
        } {
                % 16-bit color map entries: take only the high-order byte.
          0 1 2 index length 1 sub {
            f read pop 2 index 3 1 roll put f read pop pop
          } for
        } ifelse
      } {
        /colors 256 def
        /DeviceGray 255
        256 string 0 1 255 { 1 index exch dup put } for
      } ifelse
    ] setcolorspace
    /Decode [ 0 1 BitsPerComponent bitshift 1 sub ] def
  }
.dicttomark readonly def

% Recognize MIFF compression methods.
/rlstring 768 string def
/rlread {
                % packets is not reliable -- disregard it.
  dup rlstring 0 3 getinterval readstring {
    pop read pop 3 mul 3 3 2 index {
      rlstring exch rlstring 0 3 getinterval putinterval
    } for
    rlstring 0 3 -1 roll 3 add getinterval
  } {
    pop pop ()
  } ifelse
} bind def
/miffcompress mark
  /Uncompressed { f }
  /RunLengthEncoded { { f rlread } }
  /Zip { [ f /FlateDecode filter cvlit /rlread cvx ] cvx }
.dicttomark readonly def

% Read a MIFF file and display the image.
/viewmiff {		% <filename> viewmiff -
  50 dict begin
  /fname 1 index def
  /f exch (r) file def
                % Set defaults.
  /ImageType 1 def
  /class /DirectClass def
  /compression /Uncompressed def
  /depth 8 def
  /packets 16#7fffffff def
                % Read and parse the header.
  { f token pop
    dup (:) eq { pop exit } if
    dup type /nametype eq {
      1024 string cvs (=) search {
        exch pop miffwords exch .knownget { exec } { pop } ifelse
      } {
        pop	% who knows?
      } ifelse
    } {
      pop	% probably a comment in braces
    } ifelse
  } loop
                % Read and display the image.
  miffclasses class get exec
  /DataSource miffcompress compression get exec def
  /FITPAGE where
  {
    /FITPAGE get
    {
      % we've already set the image color space, so
      % push it on the stack, and set it again after
      % setting the page size
      currentcolorspace
      <</PageSize [Width Height] >> setpagedevice
      setcolorspace
    } if
  } if

/ImageMatrix [Width 0 0 Height neg 0 Height] def
  currentpagedevice /PageSize get
    dup 0 get exch 1 get scale
  gsave 0.8 setgray 0 0 1 1 rectfill grestore	% provide background
  currentdict image
  showpage
                % Clean up.
  f closefile
  end
} bind def

[-] rollconv.ps [edit]
[-] acctest.ps [edit]
[-] bjc610b7.upp [edit]
[-] viewps2a.ps [edit]
[-] ras3.upp [edit]
[-] stc1520h.upp [edit]
[-] stc800p.upp [edit]
[-] PM820p.upp [edit]
[-] st640ih.upp [edit]
[-] stc_l.upp [edit]
[-] bj8gc12f.upp [edit]
[-] bj8oh06n.upp [edit]
[-] viewmiff.ps [edit]
[-] docie.ps [edit]
[-] viewgif.ps [edit]
[-] gs_wl2_e.ps [edit]
[-] printafm.ps [edit]
[-] Stp720p.upp [edit]
[-] st640plg.upp [edit]
[-] sipixa6.upp [edit]
[-] lines.ps [edit]
[-] caption.ps [edit]
[-] bjc610a0.upp [edit]
[-] cbjc600.ppd [edit]
[-] pphs.ps [edit]
[-] bjc6000a1.upp [edit]
[-] dnj750m.upp [edit]
[-] cdj690ec.upp [edit]
[-] viewpbm.ps [edit]
[-] Stp720pl.upp [edit]
[-] cdj550.upp [edit]
[-] Stc670p.upp [edit]
[+] ..
[-] gs_il2_e.ps [edit]
[-] ras24.upp [edit]
[-] gs_t.xpm [edit]
[-] bjc610b6.upp [edit]
[-] stocht.ps [edit]
[-] viewpcx.ps [edit]
[-] gs_l_m.xbm [edit]
[-] gs_s.xbm [edit]
[-] image-qa.ps [edit]
[-] landscap.ps [edit]
[-] dmp_site.ps [edit]
[-] bjc610a4.upp [edit]
[-] necp2x.upp [edit]
[-] align.ps [edit]
[-] ps2epsi.ps [edit]
[-] gslp.ps [edit]
[-] stc740ih.upp [edit]
[-] bj8.rpd [edit]
[-] gs_ce_e.ps [edit]
[-] st640ihg.upp [edit]
[-] ghostpdf.ppd [edit]
[-] stc600ih.upp [edit]
[-] Stc680pl.upp [edit]
[-] stc.upp [edit]
[-] stcany_h.upp [edit]
[-] gs_t_m.xbm [edit]
[-] stcinfo.ps [edit]
[-] gs_wl5_e.ps [edit]
[-] stc500ph.upp [edit]
[-] gs_wl1_e.ps [edit]
[-] stc300bl.upp [edit]
[-] gs_l.xpm [edit]
[-] ras32.upp [edit]
[-] winmaps.ps [edit]
[-] stc500p.upp [edit]
[-] bjc6000b1.upp [edit]
[-] mkcidfm.ps [edit]
[-] pdf2dsc.ps [edit]
[-] bjc610b8.upp [edit]
[-] pf2afm.ps [edit]
[-] s400b1.upp [edit]
[-] traceimg.ps [edit]
[-] traceop.ps [edit]
[-] Stc760pl.upp [edit]
[-] stc300bm.upp [edit]
[-] st640pg.upp [edit]
[-] stc600p.upp [edit]
[-] st640p.upp [edit]
[-] Stc777p.upp [edit]
[-] uninfo.ps [edit]
[-] ps2ai.ps [edit]
[-] gs_l.xbm [edit]
[-] bjc610a2.upp [edit]
[-] gs_t.xbm [edit]
[-] bj8hg12f.upp [edit]
[-] Stp870pl.upp [edit]
[-] prfont.ps [edit]
[-] bj8pa06n.upp [edit]
[-] gs_lgo_e.ps [edit]
[-] gs_ksb_e.ps [edit]
[-] stc800pl.upp [edit]
[-] gs_kanji.ps [edit]
[-] font2pcl.ps [edit]
[-] Stc740p.upp [edit]
[-] stc200_h.upp [edit]
[-] bjc610a8.upp [edit]
[-] viewjpeg.ps [edit]
[-] pfbtopfa.ps [edit]
[-] bjc610b2.upp [edit]
[-] necp2x6.upp [edit]
[-] gs_s.xpm [edit]
[-] jispaper.ps [edit]
[-] ppath.ps [edit]
[-] ras4.upp [edit]
[-] bjc610a1.upp [edit]
[-] Stc777pl.upp [edit]
[-] Stc760p.upp [edit]
[-] stc300.upp [edit]
[-] stcany.upp [edit]
[-] gs_s_m.xbm [edit]
[-] stc_h.upp [edit]
[-] ras8m.upp [edit]
[-] bjc610a6.upp [edit]
[-] gs_m_m.xbm [edit]
[-] gs_m.xpm [edit]
[-] stc600pl.upp [edit]
[-] stc2s_h.upp [edit]
[-] bjc610a7.upp [edit]
[-] PM820pl.upp [edit]
[-] cid2code.ps [edit]
[-] bjc610a5.upp [edit]
[-] stc640p.upp [edit]
[-] ht_ccsto.ps [edit]
[-] cdj690.upp [edit]
[-] st640pl.upp [edit]
[-] PDFX_def.ps [edit]
[-] bjc610a3.upp [edit]
[-] zeroline.ps [edit]
[-] dmp_init.ps [edit]
[-] Stc680p.upp [edit]
[-] PM760p.upp [edit]
[-] bjc610b3.upp [edit]
[-] PM760pl.upp [edit]
[-] sharp.upp [edit]
[-] stc2_h.upp [edit]
[-] bj8ts06n.upp [edit]
[-] stc800ih.upp [edit]
[-] bjc610b4.upp [edit]
[-] dnj750c.upp [edit]
[-] bj8pp12f.upp [edit]
[-] stc2.upp [edit]
[-] s400a1.upp [edit]
[-] bjc610b1.upp [edit]
[-] viewcmyk.ps [edit]
[-] PDFA_def.ps [edit]
[-] cbjc800.ppd [edit]
[-] ras1.upp [edit]
[-] gs_lgx_e.ps [edit]
[-] Stp870p.upp [edit]
[-] escp_24.src [edit]
[-] stcolor.ps [edit]
[-] Stc740pl.upp [edit]
[-] gs_m.xbm [edit]
[-] Stc670pl.upp [edit]
[-] gsnup.ps [edit]