FM / Init

/usr/share/ghostscript/8.70/Resource/Init/

/usr/share/ghostscript/8.70/Resource/Init

Name	Size	Mode	Actions
cidfmap	398	0644	edit dl rm
cidfmap.GS	991	0644	edit dl rm
CIDFnmap	291	0644	edit dl rm
FCOfontmap-PCLPS2	3013	0644	edit dl rm
Fontmap	216	0644	edit dl rm
Fontmap.GS	12219	0644	edit dl rm
gs_agl.ps	28598	0644	edit dl rm
gs_btokn.ps	11376	0644	edit dl rm
gs_cet.ps	1812	0644	edit dl rm
gs_cff.ps	24571	0644	edit dl rm
gs_cidcm.ps	17375	0644	edit dl rm
gs_ciddc.ps	8374	0644	edit dl rm
gs_cidfm.ps	4641	0644	edit dl rm
gs_cidfn.ps	12894	0644	edit dl rm
gs_cidtt.ps	5496	0644	edit dl rm
gs_cmap.ps	17725	0644	edit dl rm
gs_cspace.ps	6958	0644	edit dl rm
gs_css_e.ps	4949	0644	edit dl rm
gs_dbt_e.ps	2282	0644	edit dl rm
gs_diskf.ps	7578	0644	edit dl rm
gs_diskn.ps	6910	0644	edit dl rm
gs_dpnxt.ps	4773	0644	edit dl rm
gs_dps.ps	7975	0644	edit dl rm
gs_dps1.ps	4725	0644	edit dl rm
gs_dps2.ps	8088	0644	edit dl rm
gs_dscp.ps	3930	0644	edit dl rm
gs_epsf.ps	7210	0644	edit dl rm
gs_fapi.ps	11469	0644	edit dl rm
gs_fntem.ps	11636	0644	edit dl rm
gs_fonts.ps	44891	0644	edit dl rm
gs_frsd.ps	3020	0644	edit dl rm
gs_icc.ps	3274	0644	edit dl rm
gs_il1_e.ps	2794	0644	edit dl rm
gs_img.ps	28171	0644	edit dl rm
gs_init.ps	74153	0644	edit dl rm
gs_l2img.ps	5635	0644	edit dl rm
gs_lev2.ps	34607	0644	edit dl rm
gs_ll3.ps	12111	0644	edit dl rm
gs_mex_e.ps	3991	0644	edit dl rm
gs_mgl_e.ps	2187	0644	edit dl rm
gs_mro_e.ps	2533	0644	edit dl rm
gs_pdfwr.ps	27994	0644	edit dl rm
gs_pdf_e.ps	1703	0644	edit dl rm
gs_res.ps	36866	0644	edit dl rm
gs_resmp.ps	22737	0644	edit dl rm
gs_setpd.ps	29872	0644	edit dl rm
gs_statd.ps	13558	0644	edit dl rm
gs_std_e.ps	3237	0644	edit dl rm
gs_sym_e.ps	3096	0644	edit dl rm
gs_trap.ps	3031	0644	edit dl rm
gs_ttf.ps	79221	0644	edit dl rm
gs_typ32.ps	4353	0644	edit dl rm
gs_typ42.ps	2132	0644	edit dl rm
gs_type1.ps	8285	0644	edit dl rm
gs_wan_e.ps	1681	0644	edit dl rm
opdfread.ps	141760	0644	edit dl rm
pdf_base.ps	40992	0644	edit dl rm
pdf_cslayer.ps	4058	0644	edit dl rm
pdf_draw.ps	61490	0644	edit dl rm
pdf_font.ps	60742	0644	edit dl rm
pdf_main.ps	66315	0644	edit dl rm
pdf_ops.ps	28419	0644	edit dl rm
pdf_rbld.ps	15056	0644	edit dl rm
pdf_sec.ps	15917	0644	edit dl rm
xlatmap	1788	0644	edit dl rm

Edit: /usr/share/ghostscript/8.70/Resource/Init/gs_l2img.ps (5635B)

%    Copyright (C) 1995, 1996 Aladdin Enterprises.  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.
% 
% For more information about licensing, please refer to
% http://www.ghostscript.com/licensing/. For information on
% commercial licensing, go to http://www.artifex.com/licensing/ or
% contact Artifex Software, Inc., 101 Lucas Valley Road #110,
% San Rafael, CA  94903, U.S.A., +1(415)492-9861.

% $Id: gs_l2img.ps 8954 2008-08-08 04:22:38Z ray $
% Emulate the Level 2 dictionary-based image operator in Level 1,
% except for Interpolate (ignored) and MultipleDataSources = true;
% also, we require that the data source be either a procedure of a
% particular form or a stream, not a string or a general procedure.

% pdf2ps copies the portion of this file from %BEGIN to %END if Level 1
% compatible output is requested.

/currentglobal where
 { pop currentglobal { setglobal } true setglobal }
 { { } }
ifelse

/packedarray where
 { pop }
 { /packedarray { array astore readonly } bind def }
ifelse

%BEGIN

11 dict /.csncompdict 1 index def begin
  /DeviceGray { 1 /setgray load } bind def
  /DeviceRGB { 3 /setrgbcolor load } bind def
  /DeviceCMYK { 4 /setcmykcolor load } bind def
  /Indexed
   { dup 1 index 1 get //.csncompdict exch get exec
		% Stack: [/Indexed base hival map] ncomp basesetcolor
     3 -1 roll 3 get mark 3 1 roll
		% Stack: ncomp -mark- basesetcolor map
     dup type /stringtype eq
      {  { -
	    { exch round cvi get 255 div
	    }
	   -
	    { exch round cvi 3 mul 2 copy 2 copy get 255 div
	      3 1 roll 1 add get 255 div
	      4 2 roll 2 add get 255 div
	    }
	    { exch round cvi 4 mul 2 copy 2 copy 2 copy get 255 div
	      3 1 roll 1 add get 255 div
	      4 2 roll 2 add get 255 div
	      5 3 roll 3 add get 255 div
	    }
	 }
	4 index get aload pop counttomark -1 roll
      }
      { /exec load 3 -1 roll
		% Stack: -mark- mapproc --exec-- basesetcolor
      }
     ifelse .packtomark cvx
     exch pop 1 exch
   } bind def
  /Separation
   { dup 2 index //.csncompdict exch get exec
		% Stack: [/Separation name alt xform] ncomp altsetcolor
     3 -1 roll 3 get /exec load 3 -1 roll 3 array astore readonly cvx
     exch pop 1 exch
   } bind def
	% Substitute device spaces for CIE spaces.
  /CIEBasedA /DeviceGray load def
  /CIEBasedABC /DeviceRGB load def
  /CIEBasedDEF /DeviceRGB load def
  /CIEBasedDEFG /DeviceCMYK load def
end

/.packtomark { counttomark packedarray exch pop } bind def

/.csinextbits		% - .csinextbits <bits>
			% Uses b, nnb, i, row, mask, BitsPerComponent;
			% sets b, nnb, i.
 { /nnb nnb BitsPerComponent add
    { dup 0 le { exit } if
      /b b 8 bitshift row i get add def
      /i i 1 add def  8 sub
    }
   loop def
   b nnb bitshift mask and
 } bind def

% Note that the ColorSpace key must be present in the image dictionary.
/.colorspaceimage		% <imagedict> .colorspaceimage -
 { save exch
   dup length 15 add dict begin { cvlit def } forall
   ColorSpace dup dup type /nametype ne { 0 get } if
   .csncompdict exch get exec
     /setpixelcolor exch def  /ncomp exch def  pop
   /row ncomp BitsPerComponent mul Width mul 7 add 8 idiv string def
      /mask 1 BitsPerComponent bitshift 1 sub def
      /nextbits BitsPerComponent 8 eq
       { { row i get /i i 1 add def } }
       { /.csinextbits load }
      ifelse def
      /nextpixel mark 0 2 ncomp 1 sub 2 mul
       { /nextbits cvx exch
	 Decode exch 2 getinterval
	 dup aload pop exch sub
	 dup mask eq { pop } { mask div /mul load 3 -1 roll } ifelse
	 0 get dup 0 eq { pop } { /sub load 3 -1 roll } ifelse
       }
      for
      /setpixelcolor load dup type /operatortype ne { /exec load } if
      .packtomark cvx def
      /readrow
        /DataSource load dup type
        dup /arraytype eq exch /packedarraytype eq or
	{	% Must be { <file> <string> ... }
	  aload length 1 add array /pop load exch astore
	  dup 1 row put cvx
	}
	{ pop
		% Adobe requires readstring to signal an error if given
		% an empty string.  Work around this nonsense here.
          row length 0 eq
	   { { } }
	   { { DataSource row readstring pop pop } }
	  ifelse
	}
      ifelse def
      ImageMatrix matrix invertmatrix concat
      /imat matrix def
      0 1 Height 1 sub
       { imat 5 3 -1 roll neg put
	 readrow
	 /b 0 def  /nnb 0 def  /i 0 def
	 0 1 Width 1 sub
	  { imat 4 3 -1 roll neg put nextpixel
	    1 1 true imat {<80>} imagemask
	  }
	 for
       }
      for
   end restore
 } bind def

%END
exec
currentfile closefile

% Patch for testing.
/.cincompdict 3 dict begin
  1 { {0 1} {/DeviceGray} } def
  3 { {0 1 0 1 0 1} {/DeviceRGB} } def
  4 { {0 1 0 1 0 1 0 1} {/DeviceCMYK} } def
currentdict end def
/.imagekeys [
  /Decode /DataSource /ImageMatrix /BitsPerComponent /Height /Width
] def
/colorimage		% <width> <height> <bits/comp> <matrix>
			%   <datasrc> false <ncomp> colorimage -
 { 1 index { /colorimage .systemvar /rangecheck signalerror } if exch pop
   //.cincompdict exch get exec
   7 dict begin /ColorSpace exch cvlit def
   .imagekeys { exch cvlit def } forall
   currentdict end .colorspaceimage
 } bind odef
/image
 { dup type /dicttype ne
    { 7 dict begin /ColorSpace /DeviceGray def [0 1] 
      .imagekeys { exch cvlit def } forall
      currentdict end
    }
    { dup length 1 add dict .copydict dup /ColorSpace currentcolorspace put
    }
   ifelse
   .colorspaceimage
 } bind odef

exec

cmd: