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