diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/image-qa.ps')
| -rw-r--r-- | Master/tlpkg/tlgs/lib/image-qa.ps | 1826 |
1 files changed, 1826 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/lib/image-qa.ps b/Master/tlpkg/tlgs/lib/image-qa.ps new file mode 100644 index 00000000000..e5e7fa7bcb1 --- /dev/null +++ b/Master/tlpkg/tlgs/lib/image-qa.ps @@ -0,0 +1,1826 @@ +%!PS
+% Copyright (C) 2000 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: image-qa.ps 6300 2005-12-28 19:56:24Z giles $
+% Tests for the image operators
+
+% Specifications for Image operator testing.
+%
+% 1. All 8 standard orientations (0, 90, 180, 270 degree rotations with
+% and without reflection); ditto those orientations perturbed by +/-
+% 10 degrees, and by 45 degrees.
+%
+% Enough space is provided around images on a test page to allow
+% these permutations to use the same page layout. This will make
+% test page construction easier and simplify page checking.
+%
+% 2. All 9 image types (ImageType 1 mask, ImageType 1 opaque,
+% ImageType 3 with all 3 InterleaveTypes and with unequal scaling
+% for InterleaveType 2 and 3, ImageType 4 with both range and
+% single-point matching).
+%
+% 3. DeviceGray, DeviceRGB, and DeviceN color, both direct and Indexed.
+% Indexed color will use the common pallete size of 256 colors.
+%
+% 4. For simple masks, both colored and uncolored Patterns.
+%
+% 5. CombineWithColor true and false; several different colors for the
+% true case (including black, white, other solid colors, halftones,
+% and patterns).
+%
+% 6. Source transparency true and false.
+%
+% 7. Texture transparency true and false.
+%
+% 8. Different RasterOp values.
+%
+% 9. For ImageType 4, different color keys (out-of-range, specific
+% color other than white, range without white).
+%
+% 10. String, file, and procedure data sources; for multi-component
+% color spaces, MultipleDataSources = true. This is tested by
+% constructing string data sources that are used as input to
+% SubFileDecode filter to create a filetype data source. These
+% filters are read into scratch strings for the procedure data
+% source case. The procedure data source scratch string length
+% does not match the raster width, and the width x height is
+% not an integer multiple of the string length.
+%
+% Also for the File case, the number of bytes consumed is
+% checked after the image operator to verify that the exact
+% amount of data is used. This is particularly important when
+% the currentfile is used as a source (possibly through a
+% filter.
+%
+% Image bytes per line are < 500 bytes to exercise direct and
+% buffer copy gs_image_next_planes mode with the default stream
+% buffer size of 512 bytes. Procedure string size is greater
+% than the image bytes per line for the same reason (sM and sD).
+%
+% Total string size is kept below 65535.
+
+/WidthRGB 83 def
+/HeightRGB 89 def
+
+%
+% 11. Banded and non-banded rendering. This can be tested by running
+% test files throuch with different page device parameters to
+% force banding vs. page mode.
+%
+% -------------------------------------------------------------------------
+%
+% Testing the RasterOp-related functions (5/6/7/8) is not necessary at this
+% time. They are well isolated logically.
+%
+% Testing orientation (1) and color masking (9) would be a good idea at some
+% point, because this code has broken many times in the past and has had a
+% long bug tail.
+%
+% The really important things to test are 2 (image type), 3/4 (color space --
+% but only with regard to number of components, plus DeviceN and simple masks
+% with a Pattern, which exercise special control paths), 10 (data source),
+% and 11 (banding modes).
+%
+% ==========================================================================
+
+%
+% Procedure to generate test mask data
+%
+% WM and HM must be defined prior to invocation
+% MaskGen -
+%
+% The mask data is stored into a string named /MaskData
+%
+% The mask consists of a "target". Bits past width WM are
+% filled with 1's to make sure that pad bits are ignored.
+%
+/MaskGen {
+ /H8 HM 8 div def
+ /X0 WM 2 div def
+ /Y0 HM 2 div def
+ /WB WM 7 add 8 div cvi def
+ /MaskData WB HM mul string def
+ /MB [ 128 64 32 16 8 4 2 1 ] def
+ 0 1 HM 1 sub {
+ /Y exch def
+ 0 1 WB 1 sub {
+ /B exch def % byte within the row
+ /C B Y WB mul add def
+ /P 0 def
+ 0 1 7 {
+ /b exch def % bit within the character
+ /X b B 8 mul add def
+ X WM lt
+ { X Y eq
+ X HM 1 sub Y sub eq or
+ Y Y0 gt X X0 sub abs 2 le and or
+ X X0 sub WM div dup mul Y Y0 sub HM div dup mul add sqrt 9 mul cvi 2 mod 1 eq or
+ }
+ { true } % pad bits are always set
+ ifelse
+ % stack: true if pixel is set
+ {
+ MB b get P or /P exch def
+ } if
+ } for % Bits within a byte
+ MaskData C P put
+ } for % Bytes within the row
+ } for % Rows in the mask
+} bind def % MaskGen
+
+%
+% WM and HM must be defined prior to invocation
+% BPC MaskGenBPC -
+%
+% The mask data is stored into a string named /MaskData
+%
+% The mask consists of a "target". BPC is the size of the elements
+% in the MaskData string (must be 4, 8 or 12)
+%
+/MaskGenBPC {
+ /BPC exch def
+ /X0 WM 2 div def
+ /Y0 HM 2 div def
+ /WB WM BPC mul 7 add 8 div cvi def % Width in Bytes
+ /MaskData WB HM mul string def
+ 0 1 HM 1 sub {
+ /Y exch def
+ 0 1 WM 1 sub {
+ /X exch def
+ MaskData % Target string
+ X Y eq
+ X HM 1 sub Y sub eq or
+ Y Y0 gt X X0 sub abs 2 le and or
+ X X0 sub WM div dup mul Y Y0 sub HM div dup mul add sqrt 9 mul cvi 2 mod 1 eq or
+ X BPC mul 8 div Y WB mul add exch
+ [
+ { } % BPC = 0
+ { { 1 } { 0 } ifelse put4bit } % BPC = 4
+ { { 255 } { 0 } ifelse exch cvi exch put } % BPC = 8
+ { { 1 } { 0 } ifelse put12bit } % BPC = 12
+ ] BPC 4 div cvi get exec
+ } for
+ } for % Rows in the mask
+} bind def
+
+% -----------------------------------------------------------------------
+
+% Procedure to generate image data
+%
+% WD and HD must be defined prior to invocation
+% { proc } ImageGen -
+%
+% The procedure is called once for each pixel
+% Local definitions are R, G, B, X and Y
+
+% Example: Generate RGB Chunky pixel data (single data source) BPC = 8
+% /WD WidthRGB def
+% /HD HeightRGB def
+% /RGBData WD HD mul 3 mul string def
+% { X Y WD mul add 3 mul RGBData
+% dup 2 index R 255 mul cvi put
+% dup 2 index 1 add G 255 mul cvi put
+% exch 2 add B 255 mul cvi put
+% } ImageGen
+
+/ImageGen {
+ gsave
+ 0 1 HD 1 sub {
+ /Y exch def
+ 0 1 WD 1 sub {
+ /X exch def
+ /D X WD 2 div sub WD div dup mul Y HD 2 div sub HD div dup mul add sqrt def
+ /D D .6 div def
+ /A X WD 2 div sub Y HD 2 div sub atan 360 div def
+ A % Hue
+ .7 D .3 sub .60 div sub % Saturation
+ dup 0.05 lt
+ { .95 D .8 sub 3 mul sub 3 mul cvi 3 div sqrt } % Level once Saturation < 0
+ { .7 D .25 sub .75 div add } % Level inside
+ ifelse
+ X WD 2 div gt Y HD 2 div sub abs 2 le and { pop 0 } if % asymmetric marker
+ sethsbcolor
+ currentrgbcolor /B exch def /G exch def /R exch def
+ dup exec
+ } for
+ } for
+ pop % discard the procedure
+ grestore
+} bind def
+
+
+% -----------------------------------------------------------------------
+%
+% Procedures for ImageMatrix creation
+/IMLRTB { [ WD 0 0 HD neg 0 HD ] } def
+/IMLRBT { [ WD 0 0 HD 0 0 ] } def
+/IMRLTB { [ WD neg 0 0 HD neg WD HD ] } def
+/IMRLBT { [ WD neg 0 0 HD WD 0 ] } def
+% -----------------------------------------------------------------------
+%
+% Procedure to make invocation of image operators more concise
+%
+% YY, SX, SY, WD and HD should be defined prior to invocation
+% X matrix source decode DoImageMask -
+%
+/DoImageMask {
+ gsave
+ /D exch def
+ /S exch def
+ /M exch def
+ /XX 1 index def
+ YY translate SX SY scale
+ 0 setlinewidth 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto 0 0 lineto stroke
+ .5 .5 translate
+ IR rotate
+ -.5 -.5 translate
+ <<
+ /ImageType 1
+ /Width WM
+ /Height HM
+ /ImageMatrix M
+ /MultipleDataSources false
+ /DataSource S
+ /Decode D
+ /BitsPerComponent 1
+ >>
+ imagemask
+ grestore
+} bind def
+
+% YY, SX, SY, WD and HD should be defined prior to invocation
+% X Y BPC matrix source multi decode DoImage1 -
+%
+/DoImage1 {
+ gsave
+ CSpace setcolorspace
+ /D exch def
+ /MS exch def
+ /S exch def % May be an array of sources
+ /M exch def
+ /BPC exch def
+ /XX 1 index def
+ YY translate SX SY scale
+ 0 setlinewidth 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto 0 0 lineto stroke
+ .5 .5 translate
+ IR rotate
+ -.5 -.5 translate
+ <<
+ /ImageType 1
+ /Width WD
+ /Height HD
+ /ImageMatrix M
+ /MultipleDataSources MS
+ /DataSource S
+ /BitsPerComponent BPC
+ /Decode D
+ >>
+ image
+ grestore
+} bind def
+
+
+% YY, SX, SY, WD and HD should be defined prior to invocation
+% X Y BPC matrix source multi decode MaskColor DoImage4 -
+%
+/DoImage4 {
+ gsave
+ CSpace setcolorspace
+ /MC exch def
+ /D exch def
+ /MS exch def
+ /S exch def % May be an array of sources
+ /M exch def
+ /BPC exch def
+ /XX 1 index def
+ YY translate SX SY scale
+ 0 setlinewidth 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto 0 0 lineto stroke
+ .5 .5 translate
+ IR rotate
+ -.5 -.5 translate
+ <<
+ /ImageType 4
+ /Width WD
+ /Height HD
+ /ImageMatrix M
+ /MultipleDataSources MS
+ /DataSource S
+ /BitsPerComponent BPC
+ /Decode D
+ /MaskColor MC
+ >>
+ image
+ grestore
+} bind def
+
+% YY, SX, SY, W, HD (Data) WM, HM (Mask) should be defined prior to invocation
+% (IT is InterleaveType)
+% X Y BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+%
+/DoImage3 {
+ gsave
+ CSpace setcolorspace
+ /IT exch def
+ /DD exch def
+ /DM exch def
+ /MS exch def
+ /S exch def % May be an array of sources - For InterleaveType 3
+ % S[0] is the Mask DataSource
+ /M exch def
+ /BPC exch def
+ /XX 1 index def
+ YY translate SX SY scale
+ 0 setlinewidth 0 0 moveto 1 0 lineto 1 1 lineto 0 1 lineto 0 0 lineto stroke
+ .5 .5 translate
+ IR rotate
+ -.5 -.5 translate
+ /DataImage
+ <<
+ /ImageType 1
+ /Width WD
+ /Height HD
+ /ImageMatrix M
+ /MultipleDataSources MS
+ /DataSource IT 3 ne { S } { S 1 get exec } ifelse
+ /BitsPerComponent BPC
+ /Decode DD
+ >>
+ def
+ /MaskImage
+ <<
+ /ImageType 1
+ /Width WM
+ /Height HM
+ /ImageMatrix % construct the mask matrix using signs from the DataImage matrix
+ /M0 M 0 get WD abs div cvi def
+ /M3 M 3 get HD abs div cvi def
+ /M4 M 4 get WD abs div cvi def
+ /M5 M 5 get HD abs div cvi def
+ [ WM M0 mul 0 0 HM M3 mul WM M4 mul HM M5 mul ]
+ IT 3 eq {
+ /DataSource S 0 get exec % DataSource only allowed for InterleaveType 3
+ } if
+ /BitsPerComponent IT 1 eq { BPC } { 1 } ifelse
+ /Decode DM
+ >>
+ def
+ <<
+ /ImageType 3
+ /DataDict DataImage
+ /MaskDict MaskImage
+ /InterleaveType IT
+ >>
+ image
+ grestore
+} bind def
+
+
+% -----------------------------------------------------------------------
+%
+/Helvetica-Bold findfont 20 scalefont /TitleFont exch def
+
+/FontSize 10 def
+/Helvetica-Narrow findfont FontSize scalefont /LegendFont exch def
+
+/blockshow { % like "show" but '\n' causes new-line
+ dup = flush %DEBUG
+ currentpoint /showY exch def /showX exch def
+ {
+ dup 10 ne
+ { 1 string dup 0 4 -1 roll put show }
+ { pop showX showY FontSize sub dup /showY exch def moveto }
+ ifelse
+ } forall
+} bind def
+
+/TX 013 def % Title left X
+/SX 036 def
+/XA 060 def
+/XB XA SX 1.5 mul add def
+/XC XA SX 3.0 mul add def
+/XD XA SX 4.5 mul add def
+/XE XA SX 6.0 mul add def
+/XF XA SX 7.5 mul add def
+/XG XA SX 9.0 mul add def
+/XH XA SX 10.5 mul add def
+/XI XA SX 12.0 mul add def
+/XJ XA SX 13.5 mul add def
+
+/BY 036 def % Bottom Title Top line
+/SY 037 def
+/YA 050 def
+/YB YA SY 1.8 mul add def
+/YC YA SY 3.6 mul add def
+/YD YA SY 5.4 mul add def
+/YE YA SY 7.2 mul add def
+/YF YA SY 9.0 mul add def
+/YG YA SY 10.8 mul add def
+/YH YA SY 12.6 mul add def
+/YI YA SY 14.4 mul add def
+/YJ YA SY 16.2 mul add def
+/YK YA SY 18.0 mul add def
+
+% -----------------------------------------------------------------------
+%
+% Utility procedures to support storing 4 and 12 bit elements in
+% strings.
+%
+% <string> <index> <value> put##bit -
+%
+% <index> will have a fractional part ( .5 ) if the element
+% starts on a 4-bit boundary.
+%
+% <value> is between 0 and 1 and is scaled 0 to 15 (4bit) or
+% 0 to 4095 (12 bit)
+
+/put4bit {
+ 15 mul cvi
+ exch dup cvi dup 3 1 roll eq 3 -1 roll exch
+ { % integer index means high nibble.
+ 16 mul put
+ }
+ { % low nibble -- combine with high nibble
+ 2 index 2 index get or put
+ }
+ ifelse
+} bind def
+
+/put12bit {
+ 1 index cvi /I exch def
+ 2 index /S exch def
+ 4095 mul cvi
+ exch dup dup cvi eq
+ { % integer index means high byte is aligned
+ cvi exch 3 copy 16 div cvi put
+ exch 1 add exch 15 and 16 mul put
+ }
+ { % low nibble -- combine with high nibble
+ cvi exch 3 copy 2 index 2 index get exch 256 div cvi or put
+ 255 and exch 1 add exch put
+ }
+ ifelse
+} bind def
+
+% -----------------------------------------------------------------------
+%
+% Procedures to use generated string data as procedure or files
+
+/WD WidthRGB def
+/HD HeightRGB def
+
+/sM WidthRGB 2 mul 1 sub string def % long enough to hold more than one mask line
+/sD WidthRGB 7 mul 1 sub string def % long enough to hold more than one 12 bit RGB line
+ % worst case is 12bit ImageType3 InterleaveType 1 == 48 bits
+
+/MaskDProc {
+ /FM MaskData dup length () /SubFileDecode filter def
+ { { FM sM readstring pop } }
+} bind def
+
+/FileTailString (12345) def % Marker string to check file data usage
+
+/AppendFileTail { % <string> AppendFileTail <string_with_tail> <original_length>
+ dup length FileTailString length add string
+ dup 0 3 index putinterval
+ dup 2 index length FileTailString putinterval
+ exch length
+} bind def
+
+/MaskDFile {
+ MaskData dup length () /SubFileDecode filter
+ /MDF 1 index def
+} bind def
+
+/RGBDProc {
+ /FD RGBData dup length () /SubFileDecode filter def
+ { { FD sD readstring pop } }
+} bind def
+
+/RGBDFile {
+ RGBData dup length () /SubFileDecode filter
+ /RGBDF 1 index def
+} bind def
+
+/sR WidthRGB 2 mul 1 sub string def % long enough to hold more than one line of 12 bit data
+/sG WidthRGB 2 mul 1 sub string def
+/sB WidthRGB 2 mul 1 sub string def
+
+/RDProc {
+ /FR RData dup length () /SubFileDecode filter def
+ { FR sR readstring pop }
+} bind def
+
+/GDProc {
+ /FG GData dup length () /SubFileDecode filter def
+ { FG sG readstring pop }
+} bind def
+
+/BDProc {
+ /FB BData dup length () /SubFileDecode filter def
+ { FB sB readstring pop }
+} bind def
+
+/RDFile {
+ RData dup length () /SubFileDecode filter
+ /RDF 1 index def
+} bind def
+
+/GDFile {
+ GData dup length () /SubFileDecode filter
+ /GDF 1 index def
+} bind def
+
+/BDFile {
+ BData dup length () /SubFileDecode filter
+ /BDF 1 index def
+} bind def
+
+% -----------------------------------------------------------------------
+%
+% Procedure to handle fileposition. Ghostscript has a private
+% operator .fileposition that works when fileposition does not
+%
+% <file> tryfilepos
+% Returns: fileposition true if successful
+% 0 false if not
+/tryfilepos {
+ /.fileposition where
+ { pop /.fileposition load } % most likely to succeed
+ { /fileposition load }
+ ifelse
+ stopped
+ { pop 0 false }
+ { true }
+ ifelse
+} bind def
+
+% -----------------------------------------------------------------------
+%
+% Procedure to provide =only operator if not present. Suggested
+% by Alex Cherepanov to use =print operator present on some Adobe
+% implementations.
+/=only where
+ { pop }
+ { /=print where { pop /=print load } { /print load } ifelse
+ /=only exch def
+ }
+ifelse
+
+% -----------------------------------------------------------------------
+%
+% Procedure to make sure that the file is at the EOF.
+% added above (string == FileTailString.
+%
+% If not, it will mark the image area with a red "F"
+%
+% <string> <title> <file> CheckFileTail - XX is the horizontal position
+% YY is the vertical position
+% SX,SY determine size of "F" if fail
+/CheckFileTail {
+ dup
+ status not dup % status false says no longer valid
+ { (Unexpected EOF: XX,YY=) print XX =only (,) print YY = false }
+ { 1 index tryfilepos not exch 5 index length ne or dup
+ { 3 index print ( fileposition = ) print
+ 2 index tryfilepos pop =only
+ ( doesn't match expected = ) print 4 index length = flush
+ }
+ if
+ }
+ ifelse
+ or
+ {
+ gsave .8 0 0 setrgbcolor
+ SX 4 div setlinewidth
+ XX YY moveto 0 SY rlineto SX 0 rlineto stroke
+ XX YY SY .5 mul add moveto SX .5 mul 0 rlineto stroke
+ grestore
+ }
+ if
+ pop pop pop
+} bind def
+
+/CSpaceName { % - CSpaceName <string>
+ CSpace dup type /arraytype eq { 0 get } if
+ 15 string cvs
+} bind def
+% -----------------------------------------------------------------------
+%
+% tests
+
+/CheckImage {
+
+ /IR 0 def
+ /CSpace /DeviceRGB def
+
+ % Use an unusual (unpleasant?) underlying color
+ .6 .95 .4 setrgbcolor clippath fill
+
+ 0 0 0 setrgbcolor
+ TitleFont setfont
+ 200 760 moveto (Image Type 3 Tests) show
+ 200 740 moveto (Rotation Angle = ) show IR 3 string cvs show
+ 170 720 moveto (Colorspace = ) show CSpaceName show
+ LegendFont setfont
+
+ .4 .1 .7 setrgbcolor % contrasting color for stencil masking
+ /SX SX 2 mul def /SY SY 2 mul def
+ /YY 780 SY sub def
+ MaskGen
+ TX IMLRTB MaskData [1 0] DoImageMask
+
+ /RGBData WD HD mul 3 mul string def
+ { X Y WD mul add 3 mul RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XI 8 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ /SX SX 2 div def /SY SY 2 div def
+
+ showpage
+} def
+
+% -----------------------------------------------------------------------
+%
+% Type 1 and Type 4 Tests
+
+% /CSpace and /IR are defined in order to generate various pages
+/T1T4Tests { %
+
+ % Use an unusual (unpleasant?) underlying color
+ .6 .95 .4 setrgbcolor clippath fill
+ 0 0 0 setrgbcolor
+
+ TitleFont setfont
+ 120 760 moveto (Image Type 1 and ImageType 4 Tests) show
+ 200 740 moveto (Rotation Angle = ) show IR 3 string cvs show
+ 170 720 moveto (Colorspace = ) show CSpaceName show
+ LegendFont setfont
+
+ XA BY moveto (Decode\nInverted) blockshow
+ XB BY moveto ( IMLRTB\nDS=string) blockshow
+ XC BY moveto ( IMLRBT\nDS=string) blockshow
+ XD BY moveto ( IMRLTB\nDS=string) blockshow
+ XE BY moveto ( IMRLBT\nDS=string) blockshow
+ XF BY moveto (IMLRTB\nDS=proc) blockshow
+ XG BY moveto (IMLRTB\nDS=file) blockshow
+ XH BY moveto ( Multi\nDS=string) blockshow
+ XI BY moveto ( Multi\nDS=proc) blockshow
+ XJ BY moveto ( Multi\nDS=file) blockshow
+
+ .4 .1 .7 setrgbcolor % contrasting color for stencil masking
+
+ /WM WD def
+ /HM HD def
+ /SX SX 2 mul def /SY SY 2 mul def
+ /YY 780 SY sub def
+ MaskGen
+ TX IMLRTB MaskData [1 0] DoImageMask
+
+ /RGBData WD HD mul 3 mul string def
+ { X Y WD mul add 3 mul RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XI 8 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ /SX SX 2 div def /SY SY 2 div def
+
+ % ----------------------------------------------------------------------
+ % Type 1 Stencil Mask Images
+
+ /YY YA def
+ TX YA SY add moveto (\nType 1\nStencil\nMask) blockshow
+
+ MaskGen
+
+ % X matrix source decode
+ XA IMLRTB MaskData [0 1] DoImageMask
+ XB IMLRTB MaskData [1 0] DoImageMask
+ XC IMLRBT MaskData [1 0] DoImageMask
+ XD IMRLTB MaskData [1 0] DoImageMask
+ XE IMRLBT MaskData [1 0] DoImageMask
+ XF IMLRTB MaskDProc [1 0] DoImageMask
+ XG IMLRTB MaskDFile [1 0] DoImageMask
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Single Data Sources, BPC==8
+
+ /YY YB def
+ TX YY SY add moveto (\nType 1\nRGB\nBPC=8) blockshow
+
+ /RGBData WD HD mul 3 mul string def
+ { X Y WD mul add 3 mul RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XA 8 IMLRTB RGBData false [1 0 1 0 1 0] DoImage1
+ XB 8 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ XC 8 IMLRBT RGBData false [0 1 0 1 0 1] DoImage1
+ XD 8 IMRLTB RGBData false [0 1 0 1 0 1] DoImage1
+ XE 8 IMRLBT RGBData false [0 1 0 1 0 1] DoImage1
+ XF 8 IMLRTB RGBDProc false [0 1 0 1 0 1] DoImage1
+ XG 8 IMLRTB RGBDFile false [0 1 0 1 0 1] DoImage1
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Multiple Data Sources, BPC==8
+
+ WD HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ { X Y WD mul add
+ RData 1 index R 255 mul cvi put
+ GData 1 index G 255 mul cvi put
+ BData exch B 255 mul cvi put
+ } ImageGen
+
+
+ % X BPC matrix source multi decode
+ XH 8 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] DoImage1
+ XI 8 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] DoImage1
+ XJ 8 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] DoImage1
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==8, mask black
+
+ /YY YE def
+ TX YY SY add moveto (\nType 4\nBPC=8\nmask=black) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 8 IMLRTB RGBData false [1 0 1 0 1 0] [ 000 000 000 ] DoImage4
+ XB 8 IMLRTB RGBData false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XC 8 IMLRBT RGBData false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XD 8 IMRLTB RGBData false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XE 8 IMRLBT RGBData false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XF 8 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XG 8 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==8, mask black
+
+ % X BPC matrix source multi decode MaskColor
+ XH 8 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XI 8 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ XJ 8 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 000 000 000 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==8, mask white
+
+ /YY YF def
+ TX YY SY add moveto (\nType 4\nBPC=8\nmask=white) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 8 IMLRTB RGBData false [1 0 1 0 1 0] [ 255 255 255 ] DoImage4
+ gsave .5 .2 .2 setrgbcolor XB YY SX 13 mul SY rectfill grestore
+ XB 8 IMLRTB RGBData false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XC 8 IMLRBT RGBData false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XD 8 IMRLTB RGBData false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XE 8 IMRLBT RGBData false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XF 8 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XG 8 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==8, mask white
+
+ % X BPC matrix source multi decode MaskColor
+ XH 8 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XI 8 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ XJ 8 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 255 255 255 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==8, mask gray
+
+ /YY YG def
+ TX YY SY add moveto (\nType 4\nBPC=8\nmask=gray) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 8 IMLRTB RGBData false [1 0 1 0 1 0] [ 147 147 147 ] DoImage4
+ XB 8 IMLRTB RGBData false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XC 8 IMLRBT RGBData false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XD 8 IMRLTB RGBData false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XE 8 IMRLBT RGBData false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XF 8 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XG 8 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==8, mask gray
+
+ % X BPC matrix source multi decode MaskColor
+ XH 8 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XI 8 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ XJ 8 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 147 147 147 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==8, mask range
+
+ /YY YH def
+ TX YY SY add moveto (\nType 4\nBPC=8\nmask range) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 8 IMLRTB RGBData false [1 0 1 0 1 0] [ 020 200 020 200 020 200 ] DoImage4
+ XB 8 IMLRTB RGBData false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XC 8 IMLRBT RGBData false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XD 8 IMRLTB RGBData false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XE 8 IMRLBT RGBData false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XF 8 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XG 8 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==8, mask range
+
+ % X Y SX SY BPC matrix source multi decode MaskColor
+ XH 8 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XI 8 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ XJ 8 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 020 200 020 200 020 200 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Single Data Sources, BPC==12
+
+ /YY YC def
+ TX YY SY add moveto (\nType 1\nRGB\nBPC=12) blockshow
+
+ /RGBData WD 36 mul 7 add 8 div cvi HD mul string def
+ {
+ X 36 mul 8 div Y WD 36 mul 7 add 8 div cvi mul add
+ RGBData 1 index R put12bit
+ RGBData 1 index 1.5 add G put12bit
+ RGBData exch 3 add B put12bit
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XA 12 IMLRTB RGBData false [1 0 1 0 1 0] DoImage1
+ XB 12 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ XC 12 IMLRBT RGBData false [0 1 0 1 0 1] DoImage1
+ XD 12 IMRLTB RGBData false [0 1 0 1 0 1] DoImage1
+ XE 12 IMRLBT RGBData false [0 1 0 1 0 1] DoImage1
+ XF 12 IMLRTB RGBDProc false [0 1 0 1 0 1] DoImage1
+ XG 12 IMLRTB RGBDFile false [0 1 0 1 0 1] DoImage1
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Multiple Data Sources, BPC==12
+
+ WD 3 mul 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 3 mul 2 div Y WD 3 mul 1 add 2 div cvi mul add
+ RData 1 index R put12bit
+ GData 1 index G put12bit
+ BData exch B put12bit
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XH 12 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] DoImage1
+ XI 12 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] DoImage1
+ XJ 12 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] DoImage1
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==12, mask range
+
+ /YY YI def
+ TX YY SY add moveto (\nType 4\nBPC=12\nmask range) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 12 IMLRTB RGBData false [1 0 1 0 1 0] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XB 12 IMLRTB RGBData false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XC 12 IMLRBT RGBData false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XD 12 IMRLTB RGBData false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XE 12 IMRLBT RGBData false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XF 12 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XG 12 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==12, mask range
+
+ % X BPC matrix source multi decode MaskColor
+ XH 12 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XI 12 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ XJ 12 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 300 3000 300 3000 300 3000 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Single Data Sources, BPC==4
+
+ /YY YD def
+ TX YY SY add moveto (\nType 1\nRGB\nBPC=4) blockshow
+
+ /RGBData WD 12 mul 7 add 8 div cvi HD mul string def
+ {
+ X 12 mul 8 div Y WD 12 mul 7 add 8 div cvi mul add
+ RGBData 1 index R put4bit
+ RGBData 1 index 0.5 add G put4bit
+ RGBData exch 1.0 add B put4bit
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XA 4 IMLRTB RGBData false [1 0 1 0 1 0] DoImage1
+ XB 4 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ XC 4 IMLRBT RGBData false [0 1 0 1 0 1] DoImage1
+ XD 4 IMRLTB RGBData false [0 1 0 1 0 1] DoImage1
+ XE 4 IMRLBT RGBData false [0 1 0 1 0 1] DoImage1
+ XF 4 IMLRTB RGBDProc false [0 1 0 1 0 1] DoImage1
+ XG 4 IMLRTB RGBDFile false [0 1 0 1 0 1] DoImage1
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 1 RGB Multiple Data Sources, BPC==4
+
+ WD 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 2 div Y WD 1 add 2 div cvi mul add
+ RData 1 index R put4bit
+ GData 1 index G put4bit
+ BData exch B put4bit
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XH 4 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] DoImage1
+ XI 4 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] DoImage1
+ XJ 4 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] DoImage1
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Single Data Sources, BPC==4, mask range
+
+ /YY YJ def
+ TX YY SY add moveto (\nType 4\nBPC=4\nmask range) blockshow
+
+ % X BPC matrix source multi decode MaskColor
+ XA 4 IMLRTB RGBData false [1 0 1 0 1 0] [ 1 10 1 10 1 10 ] DoImage4
+ XB 4 IMLRTB RGBData false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XC 4 IMLRBT RGBData false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XD 4 IMRLTB RGBData false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XE 4 IMRLBT RGBData false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XF 4 IMLRTB RGBDProc false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XG 4 IMLRTB RGBDFile false [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ % ----------------------------------------------------------------------
+ % Type 4 RGB Multiple Data Sources, BPC==4, mask range
+
+ % X BPC matrix source multi decode MaskColor
+ XH 4 IMLRTB [ RData GData BData ] true [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XI 4 IMLRTB [ RDProc GDProc BDProc ] true [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ XJ 4 IMLRTB [ RDFile GDFile BDFile ] true [0 1 0 1 0 1] [ 1 10 1 10 1 10 ] DoImage4
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ showpage
+
+} bind def % T1T4Tests
+
+% -----------------------------------------------------------------------
+%
+% Type 3 Tests
+
+/T3Tests {
+ % Use an unusual (unpleasant?) underlying color
+ .6 .95 .4 setrgbcolor clippath fill
+
+ 0 0 0 setrgbcolor
+ TitleFont setfont
+ 200 760 moveto (Image Type 3 Tests) show
+ 200 740 moveto (Rotation Angle = ) show IR 3 string cvs show
+ 170 720 moveto (Colorspace = ) show CSpaceName show
+ LegendFont setfont
+
+ .4 .1 .7 setrgbcolor % contrasting color for stencil masking
+
+ /WM WD def
+ /HM HD def
+ /SX SX 2 mul def /SY SY 2 mul def
+ /YY 780 SY sub def
+ MaskGen
+ XA IMLRTB MaskData [1 0] DoImageMask
+
+ /RGBData WD HD mul 3 mul string def
+ { X Y WD mul add 3 mul RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi decode
+ XH 8 IMLRTB RGBData false [0 1 0 1 0 1] DoImage1
+ /SX SX 2 div def /SY SY 2 div def
+
+% ----------------------------------------------------------------------
+% InterleaveType 1, BPC==8, WM=WD, HM=HD
+% IT 1 is what GS calls "chunky pixel"
+ /YY YA def
+ TX YY SY add moveto (\nIntType 1\nBPC=8) blockshow
+
+ % Generate the MaskData first
+ 8 MaskGenBPC
+
+ % Generate the Data Image (uses the MaskData)
+ /RGBData WD HD mul 4 mul string def
+ { X Y WD mul add 4 mul % 4 bytes Mask,Red,Green,Blue
+ RGBData
+ dup 2 index MaskData X Y WB mul add get put
+ dup 2 index 1 add R 255 mul cvi put
+ dup 2 index 2 add G 255 mul cvi put
+ exch 3 add B 255 mul cvi put
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 1 DoImage3
+ XB 8 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 1 DoImage3
+ XC 8 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 1 DoImage3
+ XD 8 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XE 8 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XF 8 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XG 8 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XH 8 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XI 8 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 1, BPC==12, WM=WD, HM=HD
+% IT 1 is what GS calls "chunky pixel"
+ /YY YB def
+ TX YY SY add moveto (\nIntType 1\nBPC=12) blockshow
+
+ % Generate the MaskData first
+ 12 MaskGenBPC
+
+ % Generate the Data Image (uses the MaskData)
+ /RGBData WD HD mul 6 mul string def
+ { X Y WD mul add 6 mul % 6 bytes Mask,Red,Green,Blue
+ RGBData
+ dup 2 index
+ MaskData X 1.5 mul .5 add cvi
+ Y WB mul add get % get the aligned mask byte (hi or lo)
+ 0 eq { 0 } { 1 } ifelse
+ put12bit
+ dup 2 index 1.5 add R put12bit
+ dup 2 index 3.0 add G put12bit
+ exch 4.5 add B put12bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 1 DoImage3
+ XB 12 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 1 DoImage3
+ XC 12 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 1 DoImage3
+ XD 12 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XE 12 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XF 12 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XG 12 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XH 12 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XI 12 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 1, BPC==4, WM=WD, HM=HD
+% IT 1 is what GS calls "chunky pixel"
+ /YY YC def
+ TX YY SY add moveto (\nIntType 1\nBPC=4) blockshow
+
+ % Generate the MaskData first
+ 4 MaskGenBPC
+
+ % Generate the Data Image (uses the MaskData)
+ /RGBData WD HD mul 2 mul string def
+ { X Y WD mul add 2 mul % 2 bytes Mask,Red,Green,Blue
+ RGBData
+ dup 2 index MaskData X 2 div cvi Y WB mul add get
+ X 1 and 0 eq { 128 div cvi } { 1 and } ifelse
+ put4bit
+ dup 2 index 0.5 add R put4bit
+ dup 2 index 1.0 add G put4bit
+ exch 1.5 add B put4bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 1 DoImage3
+ XB 4 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 1 DoImage3
+ XC 4 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 1 DoImage3
+ XD 4 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XE 4 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XF 4 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XG 4 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XH 4 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ XI 4 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 1 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==8, WM=WD, HM=HD
+% IT 2 is line interleave -- Mask line follwoed by Data line
+% RGB Image Data must be chunky (MultipleDatasources==false).
+ /YY YD def
+ TX YY SY add moveto (\nIntType 2\nBPC=8) blockshow
+
+ % Generate the MaskData first
+ MaskGen
+
+ % Generate the Data Image (uses the MaskData)
+ /BPL WD 3 mul WB add cvi def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 3 mul Y BPL mul add WB add % 3 bytes Red,Green,Blue + Mask Bytes
+ X 0 eq {
+ RGBData 1 index WB sub
+ MaskData Y WB mul WB getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 8 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 8 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 8 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 8 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 8 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 8 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 8 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 8 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==12, WM=WD, HM=HD
+ /YY YE def
+ TX YY SY add moveto (\nIntType 2\nBPC=12) blockshow
+
+ % Generate the Data Image (uses the MaskData)
+ /BPL WD 36 mul 7 add 8 div cvi WB add def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 36 mul 8 div Y BPL mul add WB add
+ X 0 eq {
+ RGBData 1 index WB sub cvi
+ MaskData Y WB mul WB getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R put12bit
+ dup 2 index 1.5 add G put12bit
+ exch 3.0 add B put12bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 12 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 12 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 12 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 12 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 12 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 12 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 12 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 12 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==4, WM=WD, HM=HD
+ /YY YF def
+ TX YY SY add moveto (\nIntType 2\nBPC=4) blockshow
+
+ % Generate the Data Image (uses the MaskData)
+ /BPL WD 12 mul 7 add 8 div cvi WB add def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 12 mul 8 div Y BPL mul add WB add
+ X 0 eq {
+ RGBData 1 index WB sub cvi
+ MaskData Y WB mul WB getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R put4bit
+ dup 2 index 0.5 add G put4bit
+ exch 1.0 add B put4bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 4 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 4 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 4 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 4 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 4 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 4 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 4 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 4 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==8, WM=.6*WD, HM=HD/2
+% IT 2 is line interleave -- Mask line follwoed by Data line
+% RGB Image Data must be chunky (MultipleDatasources==false).
+ /YY YG def
+ TX YY SY add moveto (\nIntType 2\nBPC=8\nWM=.6*WD\nHM=HD/2) blockshow
+
+ % Generate the MaskData first
+ /WM WD .6 mul cvi def
+ /HM HD 2 div cvi def
+ /saveHD HD def
+ /HD HM 2 mul def % make HD even for this exercise
+ MaskGen
+
+ % Generate the Data Image (uses the MaskData)
+ /BPL WD 3 mul def % BytesPerLine RGB Data
+ /RGBData BPL HD mul WB HM mul add string def
+ { X 3 mul Y BPL mul add Y 2 div cvi 1 add WB mul add % 3 bytes Red,Green,Blue + Mask
+ X 0 eq Y 1 and 0 eq and { % Do one row of Mask every other image row
+ RGBData 1 index WB sub
+ MaskData Y 2 div cvi WB mul WB getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ }
+ ImageGen
+
+%DEBUG /xx (xx) (w) file def
+%DEBUG 0 1 HM 1 sub { MaskData exch WB mul WB getinterval xx exch writehexstring xx (\n) writestring } for
+%DEBUG xx (----------------------------------------------------------------\n) writestring
+%DEBUG 0 2 HD 1 sub {
+%DEBUG RGBData 1 index BPL mul 2 index 2 div cvi WB mul add
+%DEBUG WB getinterval xx exch writehexstring xx (\n) writestring
+%DEBUG RGBData 1 index BPL mul 2 index 2 div cvi 1 add WB mul add
+%DEBUG BPL getinterval xx exch writehexstring xx (\n) writestring
+%DEBUG RGBData 1 index 1 add BPL mul 2 index 2 div cvi 1 add WB mul add
+%DEBUG BPL getinterval xx exch writehexstring xx (\n) writestring
+%DEBUG pop
+%DEBUG } for
+%DEBUG xx closefile
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 8 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 8 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 8 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 8 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 8 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 8 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 8 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 8 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ /HD saveHD def % put odd HD back
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==8, WM=1.3*WD, HM=2*HD
+% IT 2 is line interleave -- Mask line follwoed by Data line
+% RGB Image Data must be chunky (MultipleDatasources==false).
+ /YY YH def
+ TX YY SY add moveto (\nIntType 2\nBPC=8\nWM=1.3*WD\nHM=2*HD) blockshow
+
+ % Generate the MaskData first
+ /WM WD 1.3 mul cvi def
+ /HM HD 2 mul def
+ MaskGen
+
+ % Generate the Data Image (uses the MaskData)
+ /HR HM HD div cvi def
+ /BPL WD 3 mul WB HR mul add cvi def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 3 mul Y BPL mul add WB HR mul add % 3 bytes Red,Green,Blue + Mask Bytes
+ X 0 eq { % Do HM/HD rows of Mask
+ RGBData 1 index WB HR mul sub
+ MaskData Y WB HR mul mul WB HR mul getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 8 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 8 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 8 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 8 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 8 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 8 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 8 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 8 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==12, WM=1.3*WD, HM=2*HD
+ /YY YI def
+ TX YY SY add moveto (\nIntType 2\nBPC=12\nWM=1.3*WD\nHM=2*HD) blockshow
+
+ % Generate the Data Image (uses the MaskData)
+ /HR HM HD div cvi def
+ /BPL WD 36 mul 7 add 8 div cvi WB HR mul add def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 36 mul 8 div Y BPL mul add WB HR mul add
+ X 0 eq {
+ RGBData 1 index WB HR mul sub cvi
+ MaskData Y WB HR mul mul WB HR mul getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R put12bit
+ dup 2 index 1.5 add G put12bit
+ exch 3.0 add B put12bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 12 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 12 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 12 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 12 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 12 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 12 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 12 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 12 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 2, BPC==4, WM=1.3*WD, HM=2*HD
+ /YY YJ def
+ TX YY SY add moveto (\nIntType 2\nBPC=4\nWM=1.3*WD\nHM=2*HD) blockshow
+
+ % Generate the Data Image (uses the MaskData)
+ /HR HM HD div cvi def
+ /BPL WD 12 mul 7 add 8 div cvi WB HR mul add def % BytesPerLine
+ /RGBData BPL HD mul string def
+ { X 12 mul 8 div Y BPL mul add WB HR mul add
+ X 0 eq {
+ RGBData 1 index WB HR mul sub cvi
+ MaskData Y WB HR mul mul WB HR mul getinterval
+ putinterval
+ } if
+ RGBData
+ dup 2 index R put4bit
+ dup 2 index 0.5 add G put4bit
+ exch 1.0 add B put4bit
+ }
+ ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB RGBData false [0 1] [1 0 1 0 1 0] 2 DoImage3
+ XB 4 IMLRTB RGBData false [1 0] [1 0 1 0 1 0] 2 DoImage3
+ XC 4 IMLRTB RGBData false [0 1] [0 1 0 1 0 1] 2 DoImage3
+ XD 4 IMLRTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XE 4 IMLRBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XF 4 IMRLTB RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XG 4 IMRLBT RGBData false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XH 4 IMLRTB RGBDProc false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ XI 4 IMLRTB RGBDFile false [1 0] [0 1 0 1 0 1] 2 DoImage3
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+ showpage
+% ----------------------------------------------------------------------
+
+ % Use an unusual (unpleasant?) underlying color
+ .6 .95 .4 setrgbcolor clippath fill
+
+ 0 0 0 setrgbcolor
+ TitleFont setfont
+ 200 760 moveto (Image Type 3 Tests) show
+ 200 740 moveto (Rotation Angle = ) show IR 3 string cvs show
+ 200 720 moveto (InterleaveType 3) show
+ 170 700 moveto (Colorspace = ) show CSpaceName show
+ LegendFont setfont
+
+ .4 .1 .7 setrgbcolor % contrasting color for stencil masking
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==8, WM=WD, HM=HD
+% IT 3 is line interleave -- Mask and Data in separate sources
+% RGB Image Data chunky (MultipleDatasources==false).
+ /YY YA def
+ TX YY SY add moveto (BPC=8\nMulti\nfalse) blockshow
+
+ % Generate the MaskData first
+ /WM WD def
+ /HM HD def
+ MaskGen
+
+ % Generate the Data Image
+ /RGBData WD HD mul 3 mul string def
+ { X Y WD mul add 3 mul RGBData
+ dup 2 index R 255 mul cvi put
+ dup 2 index 1 add G 255 mul cvi put
+ exch 2 add B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB [ MaskData RGBData ] false [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 8 IMLRTB [ MaskData RGBData ] false [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 8 IMLRTB [ MaskData RGBData ] false [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 8 IMLRTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 8 IMLRBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 8 IMRLTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 8 IMRLBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 8 IMLRTB [ MaskDProc RGBDProc ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 8 IMLRTB [ MaskDFile RGBDFile ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==12, WM=WD, HM=HD
+ /YY YB def
+ TX YY SY add moveto (BPC=12\nMulti\nfalse) blockshow
+
+ /RGBData WD 36 mul 7 add 8 div cvi HD mul string def
+ {
+ X 36 mul 8 div Y WD 36 mul 7 add 8 div cvi mul add
+ RGBData 1 index R put12bit
+ RGBData 1 index 1.5 add G put12bit
+ RGBData exch 3 add B put12bit
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB [ MaskData RGBData ] false [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 12 IMLRTB [ MaskData RGBData ] false [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 12 IMLRTB [ MaskData RGBData ] false [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 12 IMLRTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 12 IMLRBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 12 IMRLTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 12 IMRLBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 12 IMLRTB [ MaskDProc RGBDProc ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 12 IMLRTB [ MaskDFile RGBDFile ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==4, WM=WD, HM=HD
+ /YY YC def
+ TX YY SY add moveto (BPC=4\nMulti\nfalse) blockshow
+
+ /RGBData WD 12 mul 7 add 8 div cvi HD mul string def
+ {
+ X 12 mul 8 div Y WD 12 mul 7 add 8 div cvi mul add
+ RGBData 1 index R put4bit
+ RGBData 1 index 0.5 add G put4bit
+ RGBData exch 1.0 add B put4bit
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB [ MaskData RGBData ] false [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 4 IMLRTB [ MaskData RGBData ] false [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 4 IMLRTB [ MaskData RGBData ] false [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 4 IMLRTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 4 IMLRBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 4 IMRLTB [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 4 IMRLBT [ MaskData RGBData ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 4 IMLRTB [ MaskDProc RGBDProc ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 4 IMLRTB [ MaskDFile RGBDFile ] false [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RGBData (RGB) RGBDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==8, WM=WD, HM=HD
+% IT 3 is line interleave -- Mask and Data in separate sources
+% RGB Image Data seprate (MultipleDatasources==true).
+ /YY YA def
+ TX YY SY add moveto (BPC=8\nMulti\ntrue) blockshow
+
+ % Generate the MaskData first
+ MaskGen
+
+ % Generate the Data Image
+ WD HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ { X Y WD mul add
+ RData 1 index R 255 mul cvi put
+ GData 1 index G 255 mul cvi put
+ BData exch B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 8 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 8 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 8 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 8 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 8 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==8, WM=WD, HM=HD
+% IT 3 is line interleave -- Mask and Data in separate sources
+% RGB Image Data seprate (MultipleDatasources==true).
+ /YY YD def
+ TX YY SY add moveto (BPC=8\nMulti\ntrue) blockshow
+
+ % Generate the MaskData first
+ MaskGen
+
+ % Generate the Data Image
+ WD HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ { X Y WD mul add
+ RData 1 index R 255 mul cvi put
+ GData 1 index G 255 mul cvi put
+ BData exch B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 8 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 8 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 8 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 8 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 8 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==12, WM=WD, HM=HD
+ /YY YE def
+ TX YY SY add moveto (BPC=12\nMulti\ntrue) blockshow
+
+ WD 3 mul 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 3 mul 2 div Y WD 3 mul 1 add 2 div cvi mul add
+ RData 1 index R put12bit
+ GData 1 index G put12bit
+ BData exch B put12bit
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 12 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 12 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 12 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 12 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 12 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 12 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 12 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 12 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==4, WM=WD, HM=HD
+ /YY YF def
+ TX YY SY add moveto (BPC=4\nMulti\ntrue) blockshow
+
+ WD 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 2 div Y WD 1 add 2 div cvi mul add
+ RData 1 index R put4bit
+ GData 1 index G put4bit
+ BData exch B put4bit
+ } ImageGen
+
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 4 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 4 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 4 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 4 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 4 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 4 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 4 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 4 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==8, WM=.9*WD, HM=1.1*HD
+% IT 3 is line interleave -- Mask and Data in separate sources
+% RGB Image Data seprate (MultipleDatasources==true).
+ /YY YG def
+ TX YY SY add moveto (BPC=8\nMulti\ntrue\nWM=.9*WD\nHM=1.1*HD) blockshow
+
+ /WM 0.9 WD mul cvi def
+ /HM 1.1 HD mul cvi def
+ % Generate the MaskData first
+ MaskGen
+
+ % Generate the Data Image
+ WD HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ { X Y WD mul add
+ RData 1 index R 255 mul cvi put
+ GData 1 index G 255 mul cvi put
+ BData exch B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 8 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 8 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 8 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 8 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 8 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==12, WM=WD, HM=HD
+ /YY YI def
+ TX YY SY add moveto (BPC=12\nMulti\ntrue\nWM=.9*WD\nHM=1.1*HD) blockshow
+
+ WD 3 mul 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 3 mul 2 div Y WD 3 mul 1 add 2 div cvi mul add
+ RData 1 index R put12bit
+ GData 1 index G put12bit
+ BData exch B put12bit
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 12 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 12 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 12 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 12 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 12 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 12 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 12 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 12 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 12 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==4, WM=WD, HM=HD
+ /YY YJ def
+ TX YY SY add moveto (BPC=4\nMulti\ntrue\nWM=.9*WD\nHM=1.1*HD) blockshow
+
+ WD 1 add 2 div cvi HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ {
+ X 2 div Y WD 1 add 2 div cvi mul add
+ RData 1 index R put4bit
+ GData 1 index G put4bit
+ BData exch B put4bit
+ } ImageGen
+
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 4 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 4 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 4 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 4 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 4 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 4 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 4 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 4 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 4 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+% ----------------------------------------------------------------------
+% InterleaveType 3, BPC==8, WM=1.1*WD, HM=.9*HD
+% IT 3 is line interleave -- Mask and Data in separate sources
+% RGB Image Data seprate (MultipleDatasources==true).
+ /YY YH def
+ TX YY SY add moveto (BPC=8\nMulti\ntrue\nWM=1.1*WD\nHM=.9*HD) blockshow
+
+ /WM 1.1 WD mul cvi def
+ /HM 0.9 HD mul cvi def
+ % Generate the MaskData first
+ MaskGen
+
+ % Generate the Data Image
+ WD HD mul /RData 1 index string def
+ /GData 1 index string def
+ /BData exch string def
+ { X Y WD mul add
+ RData 1 index R 255 mul cvi put
+ GData 1 index G 255 mul cvi put
+ BData exch B 255 mul cvi put
+ } ImageGen
+
+ % X BPC matrix source multi MaskDecode DataDecode IT DoImage3 -
+ XA 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [1 0 1 0 1 0] 3 DoImage3
+ XB 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [1 0 1 0 1 0] 3 DoImage3
+ XC 8 IMLRTB [ MaskData [RData GData BData] ] true [0 1] [0 1 0 1 0 1] 3 DoImage3
+ XD 8 IMLRTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XE 8 IMLRBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XF 8 IMRLTB [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XG 8 IMRLBT [ MaskData [RData GData BData] ] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XH 8 IMLRTB [ MaskDProc [RDProc GDProc BDProc]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ XI 8 IMLRTB [ MaskDFile [RDFile GDFile BDFile]] true [1 0] [0 1 0 1 0 1] 3 DoImage3
+ MaskData (Mask) MDF CheckFileTail % Check that the correct amount of data was consumed
+ RData (Red) RDF CheckFileTail % Check that the correct amount of data was consumed
+ GData (Grn) GDF CheckFileTail % Check that the correct amount of data was consumed
+ BData (Blu) BDF CheckFileTail % Check that the correct amount of data was consumed
+
+ showpage
+} bind def % T3Tests
+
+
+% ----------------------------------------------------------------------
+% Do the various rotations
+%
+/CSpace /DeviceRGB def
+
+[ 0 10 -10 45 90 180 270 ]
+pop [ 0 ] % delete this line to enable tests
+{ /IR exch def T1T4Tests } forall
+
+[ 0 10 -10 45 90 180 270 ]
+pop [ 0 ] % delete this line to enable tests
+{ /IR exch def T3Tests } forall
+
+/CSpace [ /DeviceN [/Blue /Red /Green] /DeviceRGB { } ] def
+
+[ 0 10 -10 45 90 180 270 ]
+pop [ 0 ] % delete this line to enable tests
+{ /IR exch def T1T4Tests } forall
+
+[ 0 10 -10 45 90 180 270 ]
+pop [ 0 ] % delete this line to enable tests
+{ /IR exch def T3Tests } forall
|