diff options
Diffstat (limited to 'Master/tlpkg/tlgs/lib/image-qa.ps')
-rw-r--r--[-rwxr-xr-x] | Master/tlpkg/tlgs/lib/image-qa.ps | 3652 |
1 files changed, 1826 insertions, 1826 deletions
diff --git a/Master/tlpkg/tlgs/lib/image-qa.ps b/Master/tlpkg/tlgs/lib/image-qa.ps index e5e7fa7bcb1..0606ec8ceb6 100755..100644 --- a/Master/tlpkg/tlgs/lib/image-qa.ps +++ b/Master/tlpkg/tlgs/lib/image-qa.ps @@ -1,1826 +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
+%!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 |