%    Copyright (C) 1997, 1998 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_dpnxt.ps,v 1.5 2002/08/22 07:12:28 henrys Exp $% gs_dpnxt.ps% NeXT Display PostScript extensions % Define the operation values for compositing.  These must match the values% in gsdpnext.h, which also are the ones from the NeXT documentation.% We put them in systemdict, which seems like as good a place as any.mark  /Clear /Copy /Sover /Sin /Sout /Satop /Dover /Din /Dout /Datop /Xor  /PlusD /PlusL /Highlight	% not sure about Highlightcounttomark { counttomark 1 sub def } repeat pop % We implement readimage and sizeimage using the following 3 otherwise% undocumented lower-level operators:%%	<x> <y> <width> <height> <matrix> .sizeimagebox%	  <dev_x> <dev_y> <dev_width> <dev_height> <matrix>%%	- .sizeimageparams <bits/sample> <multiproc> <ncolors>%%	<device> <x> <y> <width> <max_height> <alpha?> <std_depth|null>%	  <string> .getbitsrect <height> <substring>%% NOTE: These operators are subject to change without notice! % Implement readimage using .getbitsrect.  Experimentation on a NeXT system% shows that the data is always returned in order of increasing device Y,% regardless of the CTM.%% Note that we can't make stack protection work for this operator,% because it must remove its operands from the stack before calling% the supplied procedure(s). /readimage {		% <x> <y> <width> <height> <proc> [... <procN-1>]			%   <string> <alpha?> readimage -  .sizeimageparams exch {	% multiproc = true.  If N > 1, store the procedures in an array.    exch pop 1 index { 1 add } if	% Stack: ... string alpha? nprocs    dup 1 eq {      pop false		% only 1 procedure, multiproc is irrelevant    } {      dup array 4 1 roll 3 add 2 roll astore 3 1 roll true    } ifelse  } {	% multiproc = false.    pop pop false  } ifelse	% Map the rectangle to device coordinates.	% Stack: x y w h proc(s) str alpha? multi?  8 -4 roll matrix .sizeimagebox pop 8 4 roll	% Make sure we allocate the operand array in local VM	% to avoid a possible invalidaccess.  .currentglobal false .setglobal 9 1 roll  exch { 1 } { 0 } ifelse exch		% alpha is last, if present  exch 4 1 roll 8 array astore exch .setglobal  {	% Read out a block of scan lines and pass them to the procedure.	% Stack: [x y w h alpha? proc(s) str multi?] -- we must consume this.    dup 3 get 0 eq { pop exit } if    aload 9 1 roll pop exch pop currentdevice 7 1 roll	% Always read out the data as standard (not native) pixels.    .sizeimageparams pop pop exch .getbitsrect	% Stack: [x y w h alpha? proc(s) str multi?] hread substr    3 -1 roll	% Stack: hread substr [x y w h alpha? proc(s) str multi?]    dup 1 2 copy get 5 index add put	% Stack: hread substr [x y' w h alpha? proc(s) str multi?]    dup 3 2 copy get 6 -1 roll sub put	% Stack: substr [x y' w h' alpha? proc(s) str multi?]    dup 5 get exch 7 get {	% multiproc = true, pass each plane to a different procedure.	% Stack: substr procs      0 1 2 index length 1 sub {	% Push 1 plane and its procedure under the top 2 elements.	% Stack: ... substr procs plane#	2 index length 2 index length idiv	% bytes per plane	dup 2 index mul exch	% Stack: ... substr procs plane# start length	4 index 3 1 roll getinterval 4 1 roll	2 copy get 4 1 roll pop      } for      exch pop length 2 mul .execn    } {	% multiproc = false, just call the procedure.      exec    } ifelse  } //systemdict /exec get 3 packedarray cvx loop} bind odef %%   <w>  <h>  <bpc>  <mtx>  <dsrc0> ... <multi>  <ncomp>   alphaimage   -%img_utils_dict begin/.alphaimage  where  {    pop    currentglobal true setglobal    /alphaimage      {        //true          //.colorimage        stopped          { /alphaimage load $error /errorname get signalerror }        if      }    .bind systemdict begin odef end    setglobal  }ifend % Implement sizeimage using lower-level operators. /sizeimage {		% <x> <y> <width> <height> <matrix> sizeimage			%   <devwidth> <devheight> <bits/sample> <matrix>			%   <multiproc> <ncolors>  .sizeimagebox 5 -2 roll pop pop  .sizeimageparams 3 -1 roll 4 1 roll} bind odef