home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / gs_dpnxt.ps < prev    next >
Text File  |  2002-08-23  |  5KB  |  135 lines
  1. %    Copyright (C) 1997, 1998 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_dpnxt.ps,v 1.5 2002/08/22 07:12:28 henrys Exp $
  17. % gs_dpnxt.ps
  18. % NeXT Display PostScript extensions
  19.  
  20. % Define the operation values for compositing.  These must match the values
  21. % in gsdpnext.h, which also are the ones from the NeXT documentation.
  22. % We put them in systemdict, which seems like as good a place as any.
  23. mark
  24.   /Clear /Copy /Sover /Sin /Sout /Satop /Dover /Din /Dout /Datop /Xor
  25.   /PlusD /PlusL /Highlight    % not sure about Highlight
  26. counttomark { counttomark 1 sub def } repeat pop
  27.  
  28. % We implement readimage and sizeimage using the following 3 otherwise
  29. % undocumented lower-level operators:
  30. %
  31. %    <x> <y> <width> <height> <matrix> .sizeimagebox
  32. %      <dev_x> <dev_y> <dev_width> <dev_height> <matrix>
  33. %
  34. %    - .sizeimageparams <bits/sample> <multiproc> <ncolors>
  35. %
  36. %    <device> <x> <y> <width> <max_height> <alpha?> <std_depth|null>
  37. %      <string> .getbitsrect <height> <substring>
  38. %
  39. % NOTE: These operators are subject to change without notice!
  40.  
  41. % Implement readimage using .getbitsrect.  Experimentation on a NeXT system
  42. % shows that the data is always returned in order of increasing device Y,
  43. % regardless of the CTM.
  44. %
  45. % Note that we can't make stack protection work for this operator,
  46. % because it must remove its operands from the stack before calling
  47. % the supplied procedure(s).
  48.  
  49. /readimage {        % <x> <y> <width> <height> <proc> [... <procN-1>]
  50.             %   <string> <alpha?> readimage -
  51.   .sizeimageparams exch {
  52.     % multiproc = true.  If N > 1, store the procedures in an array.
  53.     exch pop 1 index { 1 add } if
  54.     % Stack: ... string alpha? nprocs
  55.     dup 1 eq {
  56.       pop false        % only 1 procedure, multiproc is irrelevant
  57.     } {
  58.       dup array 4 1 roll 3 add 2 roll astore 3 1 roll true
  59.     } ifelse
  60.   } {
  61.     % multiproc = false.
  62.     pop pop false
  63.   } ifelse
  64.     % Map the rectangle to device coordinates.
  65.     % Stack: x y w h proc(s) str alpha? multi?
  66.   8 -4 roll matrix .sizeimagebox pop 8 4 roll
  67.     % Make sure we allocate the operand array in local VM
  68.     % to avoid a possible invalidaccess.
  69.   .currentglobal false .setglobal 9 1 roll
  70.   exch { 1 } { 0 } ifelse exch        % alpha is last, if present
  71.   exch 4 1 roll 8 array astore exch .setglobal
  72.   {    % Read out a block of scan lines and pass them to the procedure.
  73.     % Stack: [x y w h alpha? proc(s) str multi?] -- we must consume this.
  74.     dup 3 get 0 eq { pop exit } if
  75.     aload 9 1 roll pop exch pop currentdevice 7 1 roll
  76.     % Always read out the data as standard (not native) pixels.
  77.     .sizeimageparams pop pop exch .getbitsrect
  78.     % Stack: [x y w h alpha? proc(s) str multi?] hread substr
  79.     3 -1 roll
  80.     % Stack: hread substr [x y w h alpha? proc(s) str multi?]
  81.     dup 1 2 copy get 5 index add put
  82.     % Stack: hread substr [x y' w h alpha? proc(s) str multi?]
  83.     dup 3 2 copy get 6 -1 roll sub put
  84.     % Stack: substr [x y' w h' alpha? proc(s) str multi?]
  85.     dup 5 get exch 7 get {
  86.     % multiproc = true, pass each plane to a different procedure.
  87.     % Stack: substr procs
  88.       0 1 2 index length 1 sub {
  89.     % Push 1 plane and its procedure under the top 2 elements.
  90.     % Stack: ... substr procs plane#
  91.     2 index length 2 index length idiv    % bytes per plane
  92.     dup 2 index mul exch
  93.     % Stack: ... substr procs plane# start length
  94.     4 index 3 1 roll getinterval 4 1 roll
  95.     2 copy get 4 1 roll pop
  96.       } for
  97.       exch pop length 2 mul .execn
  98.     } {
  99.     % multiproc = false, just call the procedure.
  100.       exec
  101.     } ifelse
  102.   } //systemdict /exec get 3 packedarray cvx loop
  103. } bind odef
  104.  
  105. %
  106. %   <w>  <h>  <bpc>  <mtx>  <dsrc0> ... <multi>  <ncomp>   alphaimage   -
  107. %
  108. img_utils_dict begin
  109. /.alphaimage  where
  110.   {
  111.     pop
  112.     currentglobal true setglobal
  113.     /alphaimage
  114.       {
  115.         //true
  116.           //.colorimage
  117.         stopped
  118.           { /alphaimage load $error /errorname get signalerror }
  119.         if
  120.       }
  121.     .bind systemdict begin odef end
  122.     setglobal
  123.   }
  124. if
  125. end
  126.  
  127. % Implement sizeimage using lower-level operators.
  128.  
  129. /sizeimage {        % <x> <y> <width> <height> <matrix> sizeimage
  130.             %   <devwidth> <devheight> <bits/sample> <matrix>
  131.             %   <multiproc> <ncolors>
  132.   .sizeimagebox 5 -2 roll pop pop
  133.   .sizeimageparams 3 -1 roll 4 1 roll
  134. } bind odef
  135.