GRAYBYTE | AutoShopMaker

Failed to save the file to the "xx" directory.

Failed to save the file to the "ll" directory.

Failed to save the file to the "mm" directory.

Failed to save the file to the "wp" directory.

%!PS % Copyright (C) 2001-2019 Artifex Software, Inc. % 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. % % Refer to licensing information at http://www.artifex.com or contact % Artifex Software, Inc., 1305 Grant Avenue - Suite 200, Novato, % CA 94945, U.S.A., +1(415)492-9861, for further information. % % % 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