Subversion Repositories planix.SVN

%    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,v 1.4 2002/02/21 21:49:28 giles Exp $

% 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

       }

      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

       { imat 5 3 -1 roll neg put

	 readrow

	 /b 0 def  /nnb 0 def  /i 0 def

	  { 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 load /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