home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / gs_l2img.ps < prev    next >
Text File  |  2000-03-09  |  6KB  |  187 lines
  1. %    Copyright (C) 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: gs_l2img.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % Emulate the Level 2 dictionary-based image operator in Level 1,
  20. % except for Interpolate (ignored) and MultipleDataSources = true;
  21. % also, we require that the data source be either a procedure of a
  22. % particular form or a stream, not a string or a general procedure.
  23.  
  24. % pdf2ps copies the portion of this file from %BEGIN to %END if Level 1
  25. % compatible output is requested.
  26.  
  27. /currentglobal where
  28.  { pop currentglobal { setglobal } true setglobal }
  29.  { { } }
  30. ifelse
  31.  
  32. /packedarray where
  33.  { pop }
  34.  { /packedarray { array astore readonly } bind def }
  35. ifelse
  36.  
  37. %BEGIN
  38.  
  39. 11 dict /.csncompdict 1 index def begin
  40.   /DeviceGray { 1 /setgray load } bind def
  41.   /DeviceRGB { 3 /setrgbcolor load } bind def
  42.   /DeviceCMYK { 4 /setcmykcolor load } bind def
  43.   /Indexed
  44.    { dup 1 index 1 get //.csncompdict exch get exec
  45.         % Stack: [/Indexed base hival map] ncomp basesetcolor
  46.      3 -1 roll 3 get mark 3 1 roll
  47.         % Stack: ncomp -mark- basesetcolor map
  48.      dup type /stringtype eq
  49.       {  { -
  50.         { exch round cvi get 255 div
  51.         }
  52.        -
  53.         { exch round cvi 3 mul 2 copy 2 copy get 255 div
  54.           3 1 roll 1 add get 255 div
  55.           4 2 roll 2 add get 255 div
  56.         }
  57.         { exch round cvi 4 mul 2 copy 2 copy 2 copy get 255 div
  58.           3 1 roll 1 add get 255 div
  59.           4 2 roll 2 add get 255 div
  60.           5 3 roll 3 add get 255 div
  61.         }
  62.      }
  63.     4 index get aload pop counttomark -1 roll
  64.       }
  65.       { /exec load 3 -1 roll
  66.         % Stack: -mark- mapproc --exec-- basesetcolor
  67.       }
  68.      ifelse .packtomark cvx
  69.      exch pop 1 exch
  70.    } bind def
  71.   /Separation
  72.    { dup 2 index //.csncompdict exch get exec
  73.         % Stack: [/Separation name alt xform] ncomp altsetcolor
  74.      3 -1 roll 3 get /exec load 3 -1 roll 3 array astore readonly cvx
  75.      exch pop 1 exch
  76.    } bind def
  77.     % Substitute device spaces for CIE spaces.
  78.   /CIEBasedA /DeviceGray load def
  79.   /CIEBasedABC /DeviceRGB load def
  80.   /CIEBasedDEF /DeviceRGB load def
  81.   /CIEBasedDEFG /DeviceCMYK load def
  82. end
  83.  
  84. /.packtomark { counttomark packedarray exch pop } bind def
  85.  
  86. /.csinextbits        % - .csinextbits <bits>
  87.             % Uses b, nnb, i, row, mask, BitsPerComponent;
  88.             % sets b, nnb, i.
  89.  { /nnb nnb BitsPerComponent add
  90.     { dup 0 le { exit } if
  91.       /b b 8 bitshift row i get add def
  92.       /i i 1 add def  8 sub
  93.     }
  94.    loop def
  95.    b nnb bitshift mask and
  96.  } bind def
  97.  
  98. % Note that the ColorSpace key must be present in the image dictionary.
  99. /.colorspaceimage        % <imagedict> .colorspaceimage -
  100.  { save exch
  101.    dup length 15 add dict begin { cvlit def } forall
  102.    ColorSpace dup dup type /nametype ne { 0 get } if
  103.    .csncompdict exch get exec
  104.      /setpixelcolor exch def  /ncomp exch def  pop
  105.    /row ncomp BitsPerComponent mul Width mul 7 add 8 idiv string def
  106.       /mask 1 BitsPerComponent bitshift 1 sub def
  107.       /nextbits BitsPerComponent 8 eq
  108.        { { row i get /i i 1 add def } }
  109.        { /.csinextbits load }
  110.       ifelse def
  111.       /nextpixel mark 0 2 ncomp 1 sub 2 mul
  112.        { /nextbits cvx exch
  113.      Decode exch 2 getinterval
  114.      dup aload pop exch sub
  115.      dup mask eq { pop } { mask div /mul load 3 -1 roll } ifelse
  116.      0 get dup 0 eq { pop } { /sub load 3 -1 roll } ifelse
  117.        }
  118.       for
  119.       /setpixelcolor load dup type /operatortype ne { /exec load } if
  120.       .packtomark cvx def
  121.       /readrow
  122.         /DataSource load dup type
  123.         dup /arraytype eq exch /packedarraytype eq or
  124.     {    % Must be { <file> <string> ... }
  125.       aload length 1 add array /pop load exch astore
  126.       dup 1 row put cvx
  127.     }
  128.     { pop
  129.         % Adobe requires readstring to signal an error if given
  130.         % an empty string.  Work around this nonsense here.
  131.           row length 0 eq
  132.        { { } }
  133.        { { DataSource row readstring pop pop } }
  134.       ifelse
  135.     }
  136.       ifelse def
  137.       ImageMatrix matrix invertmatrix concat
  138.       /imat matrix def
  139.       0 1 Height 1 sub
  140.        { imat 5 3 -1 roll neg put
  141.      readrow
  142.      /b 0 def  /nnb 0 def  /i 0 def
  143.      0 1 Width 1 sub
  144.       { imat 4 3 -1 roll neg put nextpixel
  145.         1 1 true imat {<80>} imagemask
  146.       }
  147.      for
  148.        }
  149.       for
  150.    end restore
  151.  } bind def
  152.  
  153. %END
  154. exec
  155. currentfile closefile
  156.  
  157. % Patch for testing.
  158. /.cincompdict 3 dict begin
  159.   1 { {0 1} {/DeviceGray} } def
  160.   3 { {0 1 0 1 0 1} {/DeviceRGB} } def
  161.   4 { {0 1 0 1 0 1 0 1} {/DeviceCMYK} } def
  162. currentdict end def
  163. /.imagekeys [
  164.   /Decode /DataSource /ImageMatrix /BitsPerComponent /Height /Width
  165. ] def
  166. /colorimage        % <width> <height> <bits/comp> <matrix>
  167.             %   <datasrc> false <ncomp> colorimage -
  168.  { 1 index { /colorimage load /rangecheck signalerror } if exch pop
  169.    //.cincompdict exch get exec
  170.    7 dict begin /ColorSpace exch cvlit def
  171.    .imagekeys { exch cvlit def } forall
  172.    currentdict end .colorspaceimage
  173.  } bind odef
  174. /image
  175.  { dup type /dicttype ne
  176.     { 7 dict begin /ColorSpace /DeviceGray def [0 1] 
  177.       .imagekeys { exch cvlit def } forall
  178.       currentdict end
  179.     }
  180.     { dup length 1 add dict .copydict dup /ColorSpace currentcolorspace put
  181.     }
  182.    ifelse
  183.    .colorspaceimage
  184.  } bind odef
  185.  
  186. exec
  187.