GIF89a=( �' 7IAXKgNgYvYx\%wh&h}t�h%�s%x�}9�R��&�0%� (�.��5�SD��&�a)�x5��;ͣ*ȡ&ղ)ׯ7׵<ѻ4�3�H֧KͯT��Y�aq��q��F� !� ' !� NETSCAPE2.0 , =( ��pH,�Ȥr�l:xШtJ�Z�جv��z��xL.:��z�n���|N�����~�������& !�0`9R�}��"�"a:S�~x��������g���E�������R���E����B�� ��ȸ��D���"�Ů� �H��L��D٫D�B�����D���T���H �G��A R�ڐ |�� ٭&��E8�S�kG�A�px�a��� R2XB��E8I���6X�:vT)�~��q�賥��"F~%x� � 4#Z�0O|-4Bs�X:= Q� Sal��yXJ`GȦ|s h��K3l7�B|�$'7Jީܪ0!��D�n=�P� ����0`�R�lj����v>���5 �.69�ϸd�����nlv�9��f{���Pbx �l5}�p� ��� �3a���I�O����!ܾ���i��9��#��)p�a ޽ �{�)vm��%D~ 6f��s}Œ�D�W E�`!� �&L8x� �ܝ{)x`X/>�}m��R�*|`D�=�_ ^�5 !_&'a�O�7�c��`DCx`�¥�9�Y�F���`?��"� �n@`�} lď��@4>�d S �v�xN��"@~d��=�g�s~G��� ���ud &p8Q�)ƫlXD����A~H�ySun�j���k*D�LH�] ��C"J��Xb~ʪwSt}6K,��q�S:9ت:���l�@�`�� �.۬�t9�S�[:��=`9N����{¿�A !R�:���6��x�0�_ �;������^���#����!����U���;0L1�����p% A��U̬ݵ��%�S��!���~`�G���� ���=4�np�3���������u�u�ٮ|%2�I��r�#0��J``8�@S@5� ���^`8E�]�.�S���7 � �0�j S�D� z���i�S�����!���l��w9*�D�I�nEX��� &A�Go�Qf��F��;���}�J����F5��Q|���X��T��y���]� o ��C=��:���PB@ D׽S�(>�C�x}`��xJЬ�۠��p+eE0`�}`A �/NE�� �9@��� H�7�!%B0`�l*��!8 2�%� �:�1�0E��ux%nP1�!�C)�P81l�ɸF#Ƭ{����B0>�� �b�`��O3��()yRpb��E.ZD8�H@% �Rx+%���c� ���f��b�d�`F�"8�XH"��-�|1�6iI, 2�$+](A*j� QT�o0.�U�`�R�}`�SN����yae�����b��o~ S)�y�@��3 �tT�0�&�+~L�f"�-|�~��>!�v��~�\Q1)}@�}h#aP72�"�$ !� " , =( &7IAXG]KgNgYvYxR"k\%w]'}h}t�h%�g+�s%r.m3ax3�x�}9��&��+�!7�0%� (�.�SD��&��;�"&ײ)׻4��6�K� �@pH,�Ȥr�l:xШtJ�Z�جv��z��xL.:��z�n���|N�����~�������& !�0`9R�}��"�"a:S�~x��������g �� E �� �������E �´��C���ǶR��D��"Ʒ�ʱH��M��GڬD�B����D��T����G���C�C� l&�~:'�tU�6ɹ#��)�'�.6�&��Ȼ K(8p0N�?!�2"��NIJX>R��OM '��2�*x�>#n� �@<[:�I�f ��T���Cdb��[�}E�5MBo��@�`@��tW-3 �x�B���jI�&E�9[T&$��ﯧ&"s��ȳ����dc�UUρ#���ldj?����`\}���u|3'�R]�6 �S#�!�FKL�*N E���`$�:e�YD�q�.�촁�s \-�jA 9�����-��M[�x(�s��x�|���p��}k�T�DpE@W� ��]k`1� ���Yb ��0l��*n0��"~zBd�~u�7�0Bl��0-�x~|U�U0 �h�*HS�|��e"#"?vp�i`e6^�+q��`m8 #V�� ��VS|`��"m"сSn|@:U���~`pb�G�ED����2F�I�? >�x� R� ��%~jx��<�a�9ij�2�D��&: Z`�]w���:�6��B�7eFJ|�ҧ�,���FǮcS�ʶ+B�,�ܺN���>PAD�HD��~���n��}�#�� Q��S���2�X�{�k�lQ�2�����w�|2� h9��G�,m���3��6-��E�L��I�³*K���q�`DwV�QXS��peS��� qܧTS����R�u �<�a�*At�lmE� � ��N[P1�ۦ��$��@`��Dpy�yXvCAy�B`}D� 0QwG#� �a[^�� $���Ǧ{L�"[��K�g�;�S~��GX.�goT.��ư��x���?1z��x~:�g�|�L� ��S`��0S]P�^p F<""�?!,�!N4&P� ����:T�@h�9%t��:�-~�I<`�9p I&.)^ 40D#p@�j4�ج:�01��rܼF2oW�#Z ;$Q q  �K��Nl#29 !F@�Bh�ᏬL!XF�LHKh�.�hE&J�G��<"WN!�����Y@� >R~19J"�2,/ &.GXB%�R�9B6�W]���W�I�$��9�RE8Y� ��"�A5�Q.axB�&ة�J�! �t)K%tS-�JF b�NMxL��)�R��"���6O!TH�H� 0 !� ) , =( &AXKgNgYvYxR"k\%wh&h}h%�g+�s%r.x3�x�}9��&��+�R,�!7�0%� (�.��5��&�a)��;�"&ף*Ȳ)ׯ7׻4�3��6�H֧KͻH�T��Y��q��h� ��pH,�Ȥr�l:xШtJ�Z�جv��z��xL.:��z�n���|N�����~�������& !�0`9R�}��"�"a:S�~x��������g �� E$����� � ����$E$��"��D� � ������R��C��� E ��H�M��G�D� �B��ϾD��a��`1r��Ӑ�� �o~�zU!L�C'�yW�UGt����ll�0���uG�)A�s[��x� �xO%��X2�  P�n:R/��aHae+�Dm?# ǣ6�8�J�x�Di�M���j���5oQ7�- <! *�l��R2r/a!l)d� A"�E���� &� ;��c �%����b��pe~C"B���H�eF2��`8qb�t_`ur`e� w�u3��Pv�h""�`�Íx�LĹ��3� �~ֺ�:���MDfJ� �۵�W�%�S�X �؁)�@��:E��w�u�Sxb8y\m�zS��Zb�E�L��w!y(>�"w�=�|��s�d �C�W)H�cC$�L �7r.�\{)@�`@ �X�$PD `aaG:���O�72E�amn]�"Rc�x�R� &dR8`g��i�xLR!�P &d����T���i�|�_ � Qi�#�`g:��:noM� :V �)p����W&a=�e�k� j���1߲s�x�W�jal|0��B0�, \j۴:6���C ��W��|��9���zĸV {�;��n��V�m�I��.��PN� ����C��+��By�ѾHŸ:��� 7�Y�FTk�SaoaY$D�S���29R�kt� ��f� ��:��Sp�3�I��DZ� �9���g��u�*3)O��[_hv ,���Et x�BH� �[��64M@�S�M7d�l�ܶ5-��U܍��z�R3Ԭ3~ ��P��5�g: ���kN�&0�j4���#{��3S�2�K�'ợl���2K{� {۶?~m𸧠�I�nE�='����^���_�=��~�#O���'���o..�Y�n��CSO��a��K��o,���b�����{�C�� "�{�K ��w��Ozdը�:$ ���v�] A#� ���a�z)Rx׿ƥ�d``�w-�y�f�K!����|��P��=�`�(f��'Pa ��BJa%��f�%`�}F����6>��`G"�}�=�!o`�^FP�ةQ�C���`(�}\�ݮ ��$<��n@dĠE#��U�I�!� #l��9`k���'Rr��Z�NB�MF �[�+9���-�wj���8�r� ,V�h"�|�S=�G_��"E� 0i*%̲��da0mVk�):;&6p>�jK ��# �D�:�c?:R Ӭf��I-�"�<�="��7�3S��c2RW ,�8(T"P0F¡Jh�" ; 403WebShell
403Webshell
Server IP : 173.249.157.85  /  Your IP : 3.14.64.102
Web Server : Apache
System : Linux server.frogzhost.com 3.10.0-1127.19.1.el7.x86_64 #1 SMP Tue Aug 25 17:23:54 UTC 2020 x86_64
User : econtech ( 1005)
PHP Version : 7.3.33
Disable Function : NONE
MySQL : OFF  |  cURL : OFF  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /usr/share/ghostscript/lib/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/ghostscript/lib/image-qa.ps
%!PS
% Copyright (C) 2001-2018 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

Youez - 2016 - github.com/yon3zu
LinuXploit