home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_l2img.ps < prev    next >
Text File  |  2002-02-22  |  6KB  |  185 lines
  1. %    Copyright (C) 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_l2img.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % Emulate the Level 2 dictionary-based image operator in Level 1,
  18. % except for Interpolate (ignored) and MultipleDataSources = true;
  19. % also, we require that the data source be either a procedure of a
  20. % particular form or a stream, not a string or a general procedure.
  21.  
  22. % pdf2ps copies the portion of this file from %BEGIN to %END if Level 1
  23. % compatible output is requested.
  24.  
  25. /currentglobal where
  26.  { pop currentglobal { setglobal } true setglobal }
  27.  { { } }
  28. ifelse
  29.  
  30. /packedarray where
  31.  { pop }
  32.  { /packedarray { array astore readonly } bind def }
  33. ifelse
  34.  
  35. %BEGIN
  36.  
  37. 11 dict /.csncompdict 1 index def begin
  38.   /DeviceGray { 1 /setgray load } bind def
  39.   /DeviceRGB { 3 /setrgbcolor load } bind def
  40.   /DeviceCMYK { 4 /setcmykcolor load } bind def
  41.   /Indexed
  42.    { dup 1 index 1 get //.csncompdict exch get exec
  43.         % Stack: [/Indexed base hival map] ncomp basesetcolor
  44.      3 -1 roll 3 get mark 3 1 roll
  45.         % Stack: ncomp -mark- basesetcolor map
  46.      dup type /stringtype eq
  47.       {  { -
  48.         { exch round cvi get 255 div
  49.         }
  50.        -
  51.         { exch round cvi 3 mul 2 copy 2 copy get 255 div
  52.           3 1 roll 1 add get 255 div
  53.           4 2 roll 2 add get 255 div
  54.         }
  55.         { exch round cvi 4 mul 2 copy 2 copy 2 copy get 255 div
  56.           3 1 roll 1 add get 255 div
  57.           4 2 roll 2 add get 255 div
  58.           5 3 roll 3 add get 255 div
  59.         }
  60.      }
  61.     4 index get aload pop counttomark -1 roll
  62.       }
  63.       { /exec load 3 -1 roll
  64.         % Stack: -mark- mapproc --exec-- basesetcolor
  65.       }
  66.      ifelse .packtomark cvx
  67.      exch pop 1 exch
  68.    } bind def
  69.   /Separation
  70.    { dup 2 index //.csncompdict exch get exec
  71.         % Stack: [/Separation name alt xform] ncomp altsetcolor
  72.      3 -1 roll 3 get /exec load 3 -1 roll 3 array astore readonly cvx
  73.      exch pop 1 exch
  74.    } bind def
  75.     % Substitute device spaces for CIE spaces.
  76.   /CIEBasedA /DeviceGray load def
  77.   /CIEBasedABC /DeviceRGB load def
  78.   /CIEBasedDEF /DeviceRGB load def
  79.   /CIEBasedDEFG /DeviceCMYK load def
  80. end
  81.  
  82. /.packtomark { counttomark packedarray exch pop } bind def
  83.  
  84. /.csinextbits        % - .csinextbits <bits>
  85.             % Uses b, nnb, i, row, mask, BitsPerComponent;
  86.             % sets b, nnb, i.
  87.  { /nnb nnb BitsPerComponent add
  88.     { dup 0 le { exit } if
  89.       /b b 8 bitshift row i get add def
  90.       /i i 1 add def  8 sub
  91.     }
  92.    loop def
  93.    b nnb bitshift mask and
  94.  } bind def
  95.  
  96. % Note that the ColorSpace key must be present in the image dictionary.
  97. /.colorspaceimage        % <imagedict> .colorspaceimage -
  98.  { save exch
  99.    dup length 15 add dict begin { cvlit def } forall
  100.    ColorSpace dup dup type /nametype ne { 0 get } if
  101.    .csncompdict exch get exec
  102.      /setpixelcolor exch def  /ncomp exch def  pop
  103.    /row ncomp BitsPerComponent mul Width mul 7 add 8 idiv string def
  104.       /mask 1 BitsPerComponent bitshift 1 sub def
  105.       /nextbits BitsPerComponent 8 eq
  106.        { { row i get /i i 1 add def } }
  107.        { /.csinextbits load }
  108.       ifelse def
  109.       /nextpixel mark 0 2 ncomp 1 sub 2 mul
  110.        { /nextbits cvx exch
  111.      Decode exch 2 getinterval
  112.      dup aload pop exch sub
  113.      dup mask eq { pop } { mask div /mul load 3 -1 roll } ifelse
  114.      0 get dup 0 eq { pop } { /sub load 3 -1 roll } ifelse
  115.        }
  116.       for
  117.       /setpixelcolor load dup type /operatortype ne { /exec load } if
  118.       .packtomark cvx def
  119.       /readrow
  120.         /DataSource load dup type
  121.         dup /arraytype eq exch /packedarraytype eq or
  122.     {    % Must be { <file> <string> ... }
  123.       aload length 1 add array /pop load exch astore
  124.       dup 1 row put cvx
  125.     }
  126.     { pop
  127.         % Adobe requires readstring to signal an error if given
  128.         % an empty string.  Work around this nonsense here.
  129.           row length 0 eq
  130.        { { } }
  131.        { { DataSource row readstring pop pop } }
  132.       ifelse
  133.     }
  134.       ifelse def
  135.       ImageMatrix matrix invertmatrix concat
  136.       /imat matrix def
  137.       0 1 Height 1 sub
  138.        { imat 5 3 -1 roll neg put
  139.      readrow
  140.      /b 0 def  /nnb 0 def  /i 0 def
  141.      0 1 Width 1 sub
  142.       { imat 4 3 -1 roll neg put nextpixel
  143.         1 1 true imat {<80>} imagemask
  144.       }
  145.      for
  146.        }
  147.       for
  148.    end restore
  149.  } bind def
  150.  
  151. %END
  152. exec
  153. currentfile closefile
  154.  
  155. % Patch for testing.
  156. /.cincompdict 3 dict begin
  157.   1 { {0 1} {/DeviceGray} } def
  158.   3 { {0 1 0 1 0 1} {/DeviceRGB} } def
  159.   4 { {0 1 0 1 0 1 0 1} {/DeviceCMYK} } def
  160. currentdict end def
  161. /.imagekeys [
  162.   /Decode /DataSource /ImageMatrix /BitsPerComponent /Height /Width
  163. ] def
  164. /colorimage        % <width> <height> <bits/comp> <matrix>
  165.             %   <datasrc> false <ncomp> colorimage -
  166.  { 1 index { /colorimage load /rangecheck signalerror } if exch pop
  167.    //.cincompdict exch get exec
  168.    7 dict begin /ColorSpace exch cvlit def
  169.    .imagekeys { exch cvlit def } forall
  170.    currentdict end .colorspaceimage
  171.  } bind odef
  172. /image
  173.  { dup type /dicttype ne
  174.     { 7 dict begin /ColorSpace /DeviceGray def [0 1] 
  175.       .imagekeys { exch cvlit def } forall
  176.       currentdict end
  177.     }
  178.     { dup length 1 add dict .copydict dup /ColorSpace currentcolorspace put
  179.     }
  180.    ifelse
  181.    .colorspaceimage
  182.  } bind odef
  183.  
  184. exec
  185.