%!PS-Adobe-3.0 EPSF-3.0 XG480-7
%%BoundingBox: 14 08 828 584

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/XG48/XG48.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016060112000)
  /ModDate (D:20160601112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011
/sfgray {setgray} bind def %Early Frame File (f) definition
%BEG XG48/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301

%Early Binding: needed for colour separation
%/sgcmykcolor {setcmykcolor} bind def
%/sggray {setgray} bind def
%/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
 /IMES 0 def %0=LAB* used, no reflection factor necessary
%/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
 /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
%/ISIN*ioG 0 def %default input  for Offset Reflective System (ORS18/FRS09)
%/ISOU*ioG 0 def %default output dto.
 /ISIN*ioG 1 def %input  for Television Luminous System (TLS00)
 /ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input  for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input  for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input  for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input  for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input  for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input  for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
 /iLAB 0 def %/colormg 0 def

%END XG48/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301

%BEG XG48/OUTLIN1X.PS 20110801
%EMPTY
%END XG48/OUTLIN1X.PS 20110801
                                                                         
%BEG XG48/OUTLIN1Y2.PS Emty 20101101

%END XG48/OUTLIN1Y2.PS Emty 20101101
                                                                         
/sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def
%line 20******************************************************
/BeginEPSF {% def               % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF  {% def              % End for EPS file
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/colrecfiLAB* %x y width heigth LAB*
  { setcolor rec fill} bind def

/colrecstLAB* %x y width heigth LAB*
  { setcolor rec stroke} bind def

/colrecficmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec fill} bind def
 
/colrecstcmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec stroke} bind def

/colrecfiw* %x y width heigth w*
  { setgray rec fill} bind def

/colrecstw* %x y width heigth w*
  { setgray rec stroke} bind def

/colrecfiolv* %x y width heigth olv*
  { setrgbcolor rec fill} bind def

/colrecstolv* %x y width heigth olv*
  { setrgbcolor rec stroke} bind def
 
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzoLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzvLAB* [32.20  24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66  90.32 -19.65] def
/tzyLAB* [93.76 -20.24  85.93] def

/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
 
/A4quer {598 0 translate 90 rotate} def
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog

%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
1.0 1.0 scale
/pgsave save def
%%EndPageSetup

/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def
%       0           1            2            3            4            5
%       6           7            8
/EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
      (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
      (P.DAT) (T.DAT)] def
/xc0d 02 def
/xc2d 02 def
/xc4d 02 def
/xcal xc0d 1 add 2 mul
%      xc2d 1 add 2 mul add
%      xc4d 1 add 2 mul add
      1 sub def
%*******************************************************************
/lanind1f 00 def /lanind2f 00 def /laninddf 01 def
/colorm1f 00 def /colorm2f 00 def /colormdf 01 def
/deintp1f 00 def /deintp2f 00 def /deintpdf 01 def
/xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def
/xchart1f 00 def /xchart2f xcal def /xchartdf 01 def
/xchart3f 03 def /xchart4f 03 def /xchart5f 00 def
/pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0
/colsep1f 00 def /colsep2f 00 def /colsepdf 01 def
/pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def
%/lanindf lanind1f def %
/lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def

%/colormf colorm1f def %
/colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def

%/deintpf deintp1f def %
/deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def

%/xcolorf xcolor1f def %
/xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def

%/xchartf xchart1f def %
xchart1f xchartdf xchart2f {/xchartf exch def

%/pchartf pchart1f def %
/pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def

%/colsepf colsep1f def %
/colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def

/lanind lanindf def
/colorm colormf def
/deintp deintpf def
/xcolor xcolorf def
/xchart xchartf def   /xchartm xchart2f xchart1f sub 1 add def
/xchart3 xchart3f def /xchart4 xchart4f def
/pchart pchartf def
/colsep colsepf def

%/pmetamf pmetam1f def %
/pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def

/pmetam pmetamf def

%*************************************************************
/setgray {sfgray} bind def
/setrgbcolor {sfrgbcolor} bind def
/setcmykcolor {sfcmykcolor} bind def

%72 90 translate

%0.01 MM dup scale
%0 0 moveto 24600 0 rlineto 0 17220 rlineto
%          -24600 0 rlineto closepath stroke
%000 -240 moveto
%240 /Times-ISOL1 FS
%lanindf cvishow (-) show
%colormf cvishow
%deintpf cvishow
%xcolorf cvishow
%xchartf cvishow
%pchartf cvishow
%colsepf cvishow (-F) show pmetamf cvishow

%grestore
gsave

/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def
/GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def

%01
%02
%03
%04
%05
%06
%07
%08
%09
%10

%gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339
%!PS-Adobe-3.0 EPSF-3.0 XG480-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349
%!PS-Adobe-3.0 EPSF-3.0 XG480-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 XG480-3,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-3,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 14

%line 369
%!PS-Adobe-3.0 EPSF-3.0 XG480-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379
%!PS-Adobe-3.0 EPSF-3.0 XG480-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389
%!PS-Adobe-3.0 EPSF-3.0 XG480-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
BeginEPSF
 /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
25 MM 2 MM sub 20 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 XG480-7N
%%BoundingBox: 70 83 795 587

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/XG48/XG48.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2016060112000)
  /ModDate (D:20160601112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011


%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatiN1=Times-I

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop


/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-ISOL1 exch definefont pop

/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop


/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/CSS {115 /Courier-ISOL1 FS} bind def
/CSK {140 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /Courier-ISOL1 FS} bind def
/CM {300 /Courier-ISOL1 FS} bind def
/CG {350 /Courier-ISOL1 FS} bind def

/CBSS {115 /CourierB-ISOL1 FS} bind def
/CBSK {140 /CourierB-ISOL1 FS} bind def
/CBS {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def

/ns {350 /Times-ISOL1 FS  show} bind def
/ks {350 /TimesI-ISOL1 FS  show} bind def
/bs {350 /TimesB-ISOL1 FS  show} bind def
/js {350 /TimesBI-ISOL1 FS  show} bind def
/ss {350 /Symbol FS  show} bind def
/is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0   90 rmoveto} bind def
/eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def
/ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def

%20% kleiner
/ns2 {300 /Times-ISOL1 FS  show TM} bind def
/ks2 {300 /TimesI-ISOL1 FS  show TM} bind def
/bs2 {300 /TimesB-ISOL1 FS  show TM} bind def
/js2 {300 /TimesBI-ISOL1 FS  show TM} bind def
/ss2 {300 /Symbol FS  show TM} bind def
/is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def
/eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def
/ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def

%40% kleiner
/ns4 {250 /Times-ISOL1 FS  show TK} bind def
/ks4 {250 /TimesI-ISOL1 FS  show TK} bind def
/bs4 {250 /TimesB-ISOL1 FS  show TK} bind def
/js4 {250 /TimesBI-ISOL1 FS  show TK} bind def
/ss4 {250 /Symbol FS  show TK} bind def
/is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def
/eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def
/ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def

%XCHA01.PS BEG
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colrecfi %x y width heigth c m y k
  {setcmyk_olvcolor rec fill} bind def

/colrecst %x y width heigth c m y k
  {setcmyk_olvcolor rec stroke} bind def

/rem %x, y width heigth
  {/heigth exch 0.5 mul def /width exch 0.5 mul def
   /yleftb exch heigth 0.5 mul add def
   /xleftb exch width  0.5 mul add def
   xleftb yleftb
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/colremfi %x y width heigth c m y k
  {setcmykcolor rem fill} bind def

/colremst %x y width heigth c m y k
  {setcmykcolor rem stroke} bind def

/tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzg {1.0 0.0 1.0 0.0} bind def
/tzb {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def
/tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def
/tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def

/tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben
/tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def
/tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def
/tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def

/tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe
/tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def
/tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def
/tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def
/tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 10 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def
/cvsshow4 {10000 mul cvi 0.0001 mul 10 string cvs show} def

%0
%1
%max 2800 sample pairs with 10 data per line = minimum 28000 data
/Wdata0 28000 array def
/Wdata1 28000 array def
/Wdata2 28000 array def

%*************************************
/cvi36show
{1000 mul /nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx   9999 le {(0) show} if
nx  99999 le {(0) show} if
nx 999999 le {(0) show} if
nx cvi 10 string cvs show
} def

/cvi24show
{100 mul /nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx   9999 le {(0) show} if
nx cvi 8 string cvs show
} def
%*******************************************
/cvi03show
{/nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx    999 le {(0) show} if
nx cvi 7 string cvs show
} def

/cvi02show
{/nx exch cvi def
nx      9 le {(0) show} if
nx     99 le {(0) show} if
nx cvi 6 string cvs show
} def

/cvi02nshow
{/nx exch def %with round
nx 0 eq {%nx=0
         (00) show
         nx cvi 6 string cvs show
        } if %nx>=0
nx 0 gt {%nx>=0
         /nx nx 0.5 add cvi def
         nx      9 le {(0) show} if
         nx     99 le {(0) show} if
         nx 6 string cvs show
        } if
nx 0 lt {%nx<0
         /nx nx 0.5 sub cvi def
         nx abs   99 le {(0) show} if
         nx 6 string cvs show
        } if %nx>=0
} def

/cvi02xshow
{/nx exch def %with round
nx 0 eq {%nx=0
         (  ) show
         nx cvi 6 string cvs show
        } if %nx>=0
nx 0 gt {%nx>=0
         /nx nx 0.5 add cvi def
         nx      9 le {( ) show} if
         nx     99 le {( ) show} if
         nx 6 string cvs show
        } if
nx 0 lt {%nx<0
         /nx nx 0.5 sub cvi def
         nx abs   99 le {( ) show} if
         nx 6 string cvs show
        } if %nx>=0
} def

/cvi03nshow
{/nx exch def %with round
nx 0 eq {%nx=0
         (000) show
         nx cvi 7 string cvs show
        } if %nx>=0
nx 0 gt {%nx>=0
         /nx nx 0.5 add cvi def
         nx      9 le {(0) show} if
         nx     99 le {(0) show} if
         nx    999 le {(0) show} if
         nx 7 string cvs show
        } if
nx 0 lt {%nx<0
         /nx nx 0.5 sub cvi def
         nx abs    9 le {(0) show} if
         nx abs   99 le {(0) show} if
         nx 7 string cvs show
        } if %nx>=0
} def

/cvi03xshow
{/nx exch cvi def %with round
nx 0 eq {%nx=0
         (   ) show
         nx cvi 7 string cvs show
        } if %nx>=0
nx 0 gt {%nx>=0
%         /nx nx 0.5 add cvi def
         nx      9 le {( ) show} if
         nx     99 le {( ) show} if
         nx    999 le {( ) show} if
         nx 7 string cvs show
        } if
nx 0 lt {%nx<0
%         /nx nx 0.5 sub cvi def
         nx abs    9 le {( ) show} if
         nx abs   99 le {( ) show} if
         nx 7 string cvs show
        } if %nx>=0
} def

%*************************************************************
/d_CIELABi  2800 array def
/d_CIELCHi  2800 array def
/d_C94LCHi  2800 array def
/d_CMCLCHi  2800 array def
/d_CM2LCHi  2800 array def
/d_C00LCHi  2800 array def
/d_C85LCHi  2800 array def
/d_C77LCHi  2800 array def
/d_C78LCHi  2800 array def
/d_C79LCHi  2800 array def

/d_CIELABmi  2800 array def
/d_CIELCHmi  2800 array def
/d_C94LCHmi  2800 array def
/d_CMCLCHmi  2800 array def
/d_CM2LCHmi  2800 array def
/d_C00LCHmi  2800 array def
/d_C85LCHmi  2800 array def
/d_C77LCHmi  2800 array def
/d_C78LCHmi  2800 array def
/d_C79LCHmi  2800 array def

/D13 1 3 div def
/D841_108 841 108 div def
/D4_29 4 29 div def
/D6_29 6 29 div 3 exp def

/proc_coldiff {%BEG procedure proc_coldiff proc_coldiff_WK58.PS 150529
%calculates CIE colour data and differences for 10 colour spaces
%BEG CIELAB/CIELCH
/FL 0.000001 def
X0 XW div D6_29 gt {/FXXN0 X0 XW div 0.0001 add D13 exp def}
                   {/FXXN0 D841_108 X0 XW div mul D4_29 add def} ifelse

Y0 YW div D6_29 gt {/FYYN0 Y0 YW div 0.0001 add D13 exp def}
                    {/FYYN0 D841_108 Y0 YW div mul D4_29 add def} ifelse

Z0 ZW div D6_29 gt {/FZZN0 Z0 ZW div 0.0001 add D13 exp def}
                    {/FZZN0 D841_108 Z0 ZW div mul D4_29 add def} ifelse

/CIEL*0 116. FYYN0 mul 16. sub def
/CIEa*0 500. FXXN0 FYYN0 sub mul def
/CIEb*0 200. FYYN0 FZZN0 sub mul def
/CIEC*ab0 CIEa*0 dup mul
          CIEb*0 dup mul add 0.0001 add sqrt def
/CIEhab0 CIEb*0 CIEa*0 0.0001 add atan def

X1 XW div D6_29 gt {/FXXN1 X1 XW div 0.0001 add D13 exp def}
                   {/FXXN1 D841_108 X1 XW div mul D4_29 add def} ifelse

Y1 YW div D6_29 gt {/FYYN1 Y1 YW div 0.0001 add D13 exp def}
                   {/FYYN1 D841_108 Y1 YW div mul D4_29 add def} ifelse

Z1 ZW div D6_29 gt {/FZZN1 Z1 ZW div 0.0001 add D13 exp def}
                   {/FZZN1 D841_108 Z1 ZW div mul D4_29 add def} ifelse

/CIEL*1 116. FYYN1 mul 16. sub def
/CIEa*1 500. FXXN1 FYYN1 sub mul def
/CIEb*1 200. FYYN1 FZZN1 sub mul def
/CIEC*ab1 CIEa*1 dup mul
          CIEb*1 dup mul add 0.0001 add sqrt def
/CIEhab1 CIEb*1 CIEa*1 0.0001 add atan def

%mixed terms with *0 sn *1:
/d_CIEL* CIEL*1 CIEL*0 sub def
/d_CIEa* CIEa*1 CIEa*0 sub def
/d_CIEb* CIEb*1 CIEb*0 sub def

d_CIELABi i d_CIEL* dup mul
            d_CIEa* dup mul add 
            d_CIEb* dup mul add 0.00000001 add sqrt put

/a_CIELAB 1.26 def
/b_CIELAB 0.55 def
d_CIELABmi i d_CIELABi i get b_CIELAB exp a_CIELAB mul put

/d_CIEh CIEhab1 CIEhab0 sub def                    %see CIEDE2000 page 4
CIEC*ab1 CIEC*ab0 mul 0 eq {/d_CIEh 0 def} if      %CIEC*ab1 x CIEC*ab0 =0
CIEC*ab1 CIEC*ab0 mul 0 ne  d_CIEh  180 gt and
         {/d_CIEh d_CIEh 360 sub def} if
CIEC*ab1 CIEC*ab0 mul 0 ne  d_CIEh -180 lt and
         {/d_CIEh d_CIEh 360 add def} if

/d_CIEL   CIEL*1   CIEL*0   sub def
/d_CIECab CIEC*ab1 CIEC*ab0 sub def
/d_CIEHab CIEC*ab1 CIEC*ab0 mul 0.000001 add sqrt 2 mul
          d_CIEh 0.5 mul sin mul def

d_CIELCHi i d_CIEL   dup mul
            d_CIECab dup mul add
            d_CIEHab dup mul add 0.000001 add sqrt put

%alternative:
%for 2 an 10 degree observer, see Richter (1996)
%a'=0,2191 b'=-0,08376 a'10=0,2193, b'10=-0,08417
%a'2 and a'10 used for both 12 and 190 degree observer

%BEG LABD65_1976=C76
/S76L 1 def
/S76A 1 def
/S76B 1 def
/K76L 1 def
/K76A 1 def
/K76B 1 def
/AS2 0.2191 def
/BS2 -0.08376 def
%C76a'=AS2*(x/y)**(1/3)
%C76b'=BS2*(z/y)**(1/3)
%C76L*=L*CIE
%C76a*=500*[C76a'-C76a'n]*Y**(1/3)
%C76b*=500*[C76b'-C76b'n]*Y**(1/3)

/C76a'0 X0 Y0 FL add div 0.3333 exp AS2 mul def
/C76a'1 X1 Y1 FL add div 0.3333 exp AS2 mul def
/C76a'n XW YW FL add div 0.3333 exp AS2 mul def

/C76b'0 Z0 Y0 FL add div 0.3333 exp BS2 mul def
/C76b'1 Z1 Y1 FL add div 0.3333 exp BS2 mul def
/C76b'n ZW YW FL add div 0.3333 exp BS2 mul def
 
/C76a*0 C76a'0 C76a'n sub 500 mul Y0 1 3 div exp mul def
/C76a*1 C76a'1 C76a'n sub 500 mul Y1 1 3 div exp mul def
/C76b*0 C76b'0 C76b'n sub 500 mul Y0 1 3 div exp mul def
/C76b*1 C76b'1 C76b'n sub 500 mul Y1 1 3 div exp mul def

%name d_CIELCHi instead of d_LABD65i 1976
d_CIELCHi i CIEL*1 CIEL*0 sub K76L div S76L div dup mul
            C76a*1 C76a*0 sub K76A div S76A div dup mul add
            C76b*1 C76b*0 sub K76B div S76B div dup mul add
            0.00000001 add sqrt put

%END LABD65_1976=C76

/a_CIELCH 1.26 def
/b_CIELCH 0.55 def
d_CIELCHmi i d_CIELCHi i get b_CIELCH exp a_CIELCH mul put

%BEG CIELAB/CIELCH

%BEG CIE94
/S94L 1 def
/S94C 1 0.045 CIEC*ab0 mul add def
/S94H 1 0.015 CIEC*ab0 mul add def
/K94L 1 def
/K94C 1 def
/K94H 1 def

/LC94*0 CIEL*0 K94L div S94L div def
/LC94*1 CIEL*1 K94L div S94L div def
/CC94*ab0 CIEC*ab0 K94C div S94C div def
/CC94*ab1 CIEC*ab1 K94C div S94C div def

d_C94LCHi i CIEL*1   CIEL*0   sub K94L div S94L div dup mul
            CIEC*ab1 CIEC*ab0 sub K94C div S94C div dup mul add 
            d_CIEHab              K94H div S94H div dup mul add
            0.00000001 add sqrt put

/a_C94LCH 1.41 def
/b_C94LCH 0.70 def
d_C94LCHmi i d_C94LCHi i get b_C94LCH exp a_C94LCH mul put

%END CIE94

%BEG CMC(l:c=1:1)
%special mean m of two samples for SCML, SCMC, TCMC

/CIEL*0m   CIEL*0 CIEL*1 add 0.5 mul def
/CMCC0S CIEC*ab0 def
/CMCC1S CIEC*ab1 def
/CIEC*ab0m CMCC0S CMCC1S add 0.5 mul def

CIEC*ab0 0 eq {/CMCh0S 0 def}
              {/CMCh0S CIEb*0 CIEa*0  0.0001 add atan def
              } ifelse
CIEC*ab1 0 eq {/CMCh1S 0 def}
              {/CMCh1S CIEb*1 CIEa*1  0.0001 add atan def
              } ifelse

%beg special EQUATION (11) TO (14)
/d_CMChS0 CMCh1S CMCh0S sub def                    %see CIEDE2000 page 4
CMCC1S CMCC0S mul 0 eq {/d_CMChS 0 def} if    %CIEC*ab1 x CIEC*ab0 =0
CMCC1S CMCC0S mul 0 ne
d_CMChS0 abs  180 le and
         {/d_CMChSm d_CMChS0 def} if
CMCC1S CMCC0S mul 0 ne
d_CMChS0  180 gt and
         {/d_CMChSm d_CMChS0 360 sub def} if
CMCC1S CMCC0S mul 0 ne
d_CMChS0 -180 lt and
         {/d_CMChSm d_CMChS0 360 add def} if
%end special EQUATION (11) TO (14)

%beg special EQUATION (23) TO (26)
/a_CMChsm CMCh0S CMCh1S add 0.5 mul def
/m_CMCCSm CMCC0S CMCC1S mul def

d_CMChSm abs 180 le
m_CMCCSm 0   ne and
{/CMChSqm a_CMChsm def} if

d_CMChSm abs 180 gt
a_CMChsm 360 le and
m_CMCCSm 0   ne and
{/CMChSqm CMCh0S CMCh1S add 360 add 0.5 mul def} if

d_CMChSm abs 180 gt
a_CMChsm 360 ge and
m_CMCCSm 0   ne and
{/CMChSqm CMCh0S CMCh1S add 360 sub 0.5 mul def} if

m_CMCCSm 0 eq {/CMChSqm CMCh0S CMCh1S add def } if
%end special EQUATION (23) TO (26)

CIEL*0m 16 lt {/SCMLm 0.511 def}
              {/SCMLm 0.040975 CIEL*0m mul
                      0.01765  CIEL*0m mul 1 add div def
             } ifelse
/SCMCm 0.0638 CIEC*ab0m mul
       0.0131 CIEC*ab0m mul 1 add div 0.638 add def
%beg special
/FCMCm CIEC*ab0m dup mul dup mul
       CIEC*ab0m dup mul dup mul 1900 add div sqrt def
CMChSqm 164 lt
CMChSqm 345 gt or
{/TCMCm CMChSqm  35 add cos 0.4 mul abs 0.36 add def}
{/TCMCm CMChSqm 168 add cos 0.2 mul abs 0.56 add def} ifelse
%end special

/SCMHm TCMCm FCMCm mul 1 add FCMCm sub SCMCm mul def

/KCML 1 def %=l
/KCMC 1 def %=c
/KCMH 1 def %1

/CMCL*0m CIEL*0 KCML div SCMLm div def
/CMCL*1m CIEL*1 KCML div SCMLm div def
/CMCC*ab0m CIEC*ab0 KCMC div SCMCm div def
/CMCC*ab1m CIEC*ab1 KCMC div SCMCm div def

d_CMCLCHi i CIEL*1 CIEL*0 sub     KCML div SCMLm div dup mul
            CIEC*ab1 CIEC*ab0 sub KCMC div SCMCm div dup mul add 
            d_CIEHab              KCMH div SCMHm div dup mul add
            0.00000001 add sqrt put

/a_CMCLCH 1.34 def
/b_CMCLCH 0.66 def
d_CMCLCHmi i d_CMCLCHi i get b_CMCLCH exp a_CMCLCH mul put

%END CMC(m:l:c=m:1:1)=CMC

%BEG CM2(m:l:c=m:1:2)=CM2
/KM2L 1 def %=l
/KM2C 2 def %=c
/KM2H 1 def %1

/CM2L*0 CIEL*0 KM2L div SCMLm div def
/CM2L*1 CIEL*1 KM2L div SCMLm div def
/CM2C*ab0 CIEC*ab0 KM2C div SCMCm div def
/CM2C*ab1 CIEC*ab1 KM2C div SCMCm div def

d_CM2LCHi i CIEL*1 CIEL*0 sub     KM2L div SCMLm div dup mul
            CIEC*ab1 CIEC*ab0 sub KM2C div SCMCm div dup mul add
            d_CIEHab              KM2H div SCMHm div dup mul add
            0.00000001 add sqrt put

%END CM2(m:l:c=m:1:2)=CM2

%BEG CIEDE2000=C00
%beg special equation (7)
/CIEC*ab CIEC*ab0 CIEC*ab1 add 0.5 mul def
/DEG 1 CIEC*ab 7 exp
       CIEC*ab 7 exp 25 7 exp add div
       0.000001 add sqrt sub 0.5 mul def
%end special equation (7)

%beg special EQUATION (1) TO (6)
%0
/C00L0S CIEL*0 def
/C00a0S 1 DEG add CIEa*0 mul def
/C00b0S CIEb*0 def
/C00C0S C00a0S dup mul
        C00b0S dup mul add
        0.000001 add sqrt def
C00C0S 0 eq {/C00h0S 0 def}
            {/C00h0S C00b0S C00a0S  0.0001 add atan def
            } ifelse
%1
/C00L1S CIEL*1 def
/C00a1S 1 DEG add CIEa*1 mul def
/C00b1S CIEb*1 def
/C00C1S C00a1S dup mul
        C00b1S dup mul add
        0.000001 add sqrt def
C00C1S 0 eq {/C00h1S 0 def}
            {/C00h1S C00b1S C00a1S  0.0001 add atan def
            } ifelse
%end special EQUATION (1) TO (6)

%beg special EQUATION (11) TO (14)
/d_C00hS0 C00h1S C00h0S sub def                    %see CIEDE2000 page 4
C00C1S C00C0S mul 0 eq {/d_C00hS 0 def} if    %CIEC*ab1 x CIEC*ab0 =0
C00C1S C00C0S mul 0 ne
d_C00hS0 abs  180 le and
         {/d_C00hS d_C00hS0 def} if
C00C1S C00C0S mul 0 ne
d_C00hS0  180 gt and
         {/d_C00hS d_C00hS0 360 sub def} if
C00C1S C00C0S mul 0 ne
d_C00hS0 -180 lt and
         {/d_C00hS d_C00hS0 360 add def} if
%end special EQUATION (11) TO (14)

%beg special EQUATION (8) TO (10)
/d_C00LS C00L1S C00L0S sub def
/d_C00aS C00a1S C00a0S sub def
/d_C00bS C00b1S C00b0S sub def
/d_C00CS C00C1S C00C0S sub def
/d_C00HS C00C0S C00C1S mul 0.000001 add sqrt 2 mul
         d_C00hS 0.5 mul sin mul def
%end special EQUATION (8) TO (10)

%beg special EQUATION (23) TO (26)
/a_C00hs C00h0S C00h1S add 0.5 mul def
/m_C00CS C00C0S C00C1S mul def

d_C00hS abs 180 le
m_C00CS 0   ne and
{/C00hSq a_C00hs def} if

d_C00hS abs 180 gt
a_C00hs 360 le and
m_C00CS 0   ne and
{/C00hSq C00h0S C00h1S add 360 add 0.5 mul def} if

d_C00hS abs 180 gt
a_C00hs 360 ge and
m_C00CS 0   ne and
{/C00hSq C00h0S C00h1S add 360 sub 0.5 mul def} if

m_C00CS 0 eq {/C00hSq C00h0S C00h1S add def } if
%end special EQUATION (23) TO (26)

%beg special EQUATIONS (16) TO (22)
/C00LSq C00L0S C00L1S add 0.5 mul def
/C00CSq C00C0S C00C1S add 0.5 mul def

/C00SL C00LSq 50 sub dup mul 0.015 mul
       C00LSq 50 sub dup mul 20 add sqrt div
       1 add def
/C00SC 0.045 C00CSq mul 1 add def

%beg special T, RT, d_D, RC
/C00T C00hSq 30 sub cos -0.17 mul
      C00hSq 2 mul  cos  0.24 mul add
      C00hSq 3 mul 6 add cos  0.32 mul add
      C00hSq 4 mul 63 sub cos 0.20 mul sub
      1 add def
/C00SH 0.015 C00CSq mul C00T mul 1 add def

/C00RC C00CSq 7 exp
       C00CSq 7 exp 25 7 exp add 0.000001 add div 0.000001 add sqrt 2 mul def
/expDT C00hSq 275 sub 25 div dup mul def
/econst 2.718281 def
/C00DT 30 econst expDT neg exp mul def
/C00RT C00DT 2 mul sin neg C00RC mul def
%end special T, RT, d_D, RC
%end special EQUATIONS (16) TO (22)

%beg special EQUATION (15)

/C00KL 1.0 def
/C00KC 1.0 def
/C00KH 1.0 def

/d_C00LSN d_C00LS C00KL div C00SL div def
/d_C00CSN d_C00CS C00KC div C00SC div def
/d_C00HSN d_C00HS C00KH div C00SH div def

d_C00LCHi i d_C00LSN dup mul
            d_C00CSN dup mul add
            d_C00HSN dup mul add
            d_C00CSN d_C00HSN mul C00RT mul add
            0.000001 add sqrt put

/a_C00LCH 1.43 def
/b_C00LCH 0.70 def
d_C00LCHmi i d_C00LCHi i get b_C00LCH exp a_C00LCH mul put

%end special EQUATION (15)
%END CIEDE2000=C00

%BEG LABJND=C85
/Yq Y0 Y1 add 0.5 mul def
/d_Y Y1 Y0 sub def

/a085 X0 Y0 0.000001 add div def
/b085 Z0 Y0 0.000001 add div 0.4 mul neg def
/a185 X1 Y1 0.000001 add div def
/b185 Z1 Y1 0.000001 add div 0.4 mul neg def

/an85 XW YW 0.000001 add div def
/bn85 ZW YW 0.000001 add div 0.4 mul neg def

/d_a085 a085 an85 sub def
/d_b085 b085 bn85 sub def
/d_a185 a185 an85 sub def
/d_b185 b185 bn85 sub def

/a0"85 d_a085 d_a085 abs 0.5 mul 1 add div an85 add def
/b0"85 d_b085 d_b085 abs 0.5 mul 1 add div bn85 add def
/a1"85 d_a185 d_a185 abs 0.5 mul 1 add div an85 add def
/b1"85 d_b185 d_b185 abs 0.5 mul 1 add div bn85 add def

/d_Y Y1 Y0 sub def
/d_a"85 a1"85 a0"85 sub def
/d_b"85 b1"85 b0"85 sub def

/s85 0.0170 def
/q85 0.0058 def
/g85 1.0000 def %not used

/a0085 1.0 def
/b0085 1.8 def
/Y0085 1.5 def

d_C85LCHi i d_Y dup mul
            a0085 d_a"85 mul Yq mul dup mul add
            b0085 d_b"85 mul Yq mul dup mul add
            0.000001 add sqrt Y0085 mul
            q85 Yq mul s85 add div put

/a_C85LCH 1.17 def
/b_C85LCH 0.35 def
d_C85LCHmi i d_C85LCHi i get b_C85LCH exp a_C85LCH mul put

%END LABJND=C85

%BEG LABHNU_1977=C77
/S77L 1 def
/S77A 1 def
/S77B 1 def
/K77L 1 def
/K77A 1 def
/K77B 1 def
%C77a'=(x/y+1/6)**(1/3)/4
%C77b'=-(z/y+1/6)**(1/3)/12
%C77L*=L*CIE
%C77a*=500*[C77a'-C77a'n]*Y**(1/3)
%C77b*=500*[C77b'-C77b'n]*Y**(1/3)

/C77a'0 X0 Y0 FL add div 1 6 div add 0.3333 exp 4 div def
/C77a'1 X1 Y1 FL add div 1 6 div add 0.3333 exp 4 div def
/C77a'n XW YW FL add div 1 6 div add 0.3333 exp 4 div def

/C77b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C77b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C77b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def
 
/C77a*0 C77a'0 C77a'n sub 500 mul Y0 1 3 div exp mul def
/C77a*1 C77a'1 C77a'n sub 500 mul Y1 1 3 div exp mul def
/C77b*0 C77b'0 C77b'n sub 500 mul Y0 1 3 div exp mul def
/C77b*1 C77b'1 C77b'n sub 500 mul Y1 1 3 div exp mul def


d_C77LCHi i CIEL*1 CIEL*0 sub K77L div S77L div dup mul
            C77a*1 C77a*0 sub K77A div S77A div dup mul add
            C77b*1 C77b*0 sub K77B div S77B div dup mul add
            0.00000001 add sqrt put
%END LABHNU_1977=C77

%BEG LABHNU1=C78
/S78L 1 def
/S78A 1 def
/S78B 1 def
/K78L 1 def
/K78A 1 def
/K78B 1 def
%C78a'=(x/y+1)/15
%C78b'=-(z/y+1/6)**(1/3)/12
%C78L*=L*CIE
%C78a*=500*[C78a'-C78a'n]*Y**(1/3)
%C78b*=500*[C78b'-C78b'n]*Y**(1/3)

/C78a'0 X0 Y0 FL add div 1 add 15 div def
/C78a'1 X1 Y1 FL add div 1 add 15 div def
/C78a'n XW YW FL add div 1 add 15 div def

/C78b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C78b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C78b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def
 
/C78a*0 C78a'0 C78a'n sub 500 mul Y0 1 3 div exp mul def
/C78a*1 C78a'1 C78a'n sub 500 mul Y0 1 3 div exp mul def
/C78b*0 C78b'0 C78b'n sub 500 mul Y0 1 3 div exp mul def
/C78b*1 C78b'1 C78b'n sub 500 mul Y0 1 3 div exp mul def

d_C78LCHi i CIEL*1 CIEL*0 sub K78L div S78L div dup mul
            C78a*1 C78a*0 sub K78A div S78A div dup mul add
            C78b*1 C78b*0 sub K78B div S78B div dup mul add
            0.00000001 add sqrt put
%END LABHNU1_1978-C78

%BEG LABHNU2_1979=C79
/S79L 1 def
/S79A 1 def
/S79B 1 def
/K79L 1 def
/K79A 1 def
/K79B 1 def
%C79a'=(x/y+1/6)**(2/3)/15
%C79b'=-(z/y+1/6)**(1/3)/12
%C79L*=L*CIE
%C79a*=500*[C79a'-C79a'n]*Y**(1/3)
%C79b*=500*[C79b'-C79b'n]*Y**(1/3)

/C79a'0 X0 Y0 FL add div 1 6 div add 0.6667 exp 15 div def
/C79a'1 X1 Y1 FL add div 1 6 div add 0.6667 exp 15 div def
/C79a'n XW YW FL add div 1 6 div add 0.6667 exp 15 div def

/C79b'0 Z0 Y0 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C79b'1 Z1 Y1 FL add div 1 6 div add 0.3333 exp 12 div neg def
/C79b'n ZW YW FL add div 1 6 div add 0.3333 exp 12 div neg def
 
/C79a*0 C79a'0 C79a'n sub 500 mul Y0 1 3 div exp mul def
/C79a*1 C79a'1 C79a'n sub 500 mul Y1 1 3 div exp mul def
/C79b*0 C79b'0 C79b'n sub 500 mul Y0 1 3 div exp mul def
/C79b*1 C79b'1 C79b'n sub 500 mul Y1 1 3 div exp mul def

d_C79LCHi i CIEL*1 CIEL*0 sub K79L div S79L div dup mul
            C79a*1 C79a*0 sub K79A div S79A div dup mul add
            C79b*1 C79b*0 sub K79B div S79B div dup mul add
            0.00000001 add sqrt put
%END LABHNU2_1979=C79

} bind def %END procedure proc_coldiff
%*************************************************************

%*************************************************************
%Aus Kittelmann_CD_DA/Daten der Ausertung/
%Farbwerte der Farbfelder und Reihen.xls/CIELAB_1
%siehe auch Dipl-Arbeit Seite 31 ff
/LAB_KIi 3100 array def %310x10
/LAB_KIi [
%n L*r   a*r    b*r   L*t    a*t    b*t   E*r-t C*r   h*r
%  L*r   a*r    b*r   CIELAB data of 310 printel samples, see page 34
%                     95.410 -0.980 4.760 ISO 15775 Papierweiss Tab. 2.2
1 94.806 -1.832 6.977 95.410 -0.980 4.760 2.450 7.213 104.710
2 76.937 -16.536 -18.248 77.015 -15.805 -18.995 1.048 24.626 227.818
3 59.410 -30.942 -42.455 58.620 -30.630 -42.750 0.899 52.534 233.915
4 94.807 -1.883 7.035 95.410 -0.980 4.760 2.520 7.282 104.985
5 76.919 -16.503 -18.327 77.015 -15.805 -18.995 0.971 24.663 227.998
6 59.468 -30.964 -42.431 58.620 -30.630 -42.750 0.966 52.528 233.880
7 94.796 -1.848 7.051 95.410 -0.980 4.760 2.526 7.289 104.684
8 60.143 15.422 -18.907 60.565 15.185 -19.800 1.016 24.399 309.204
9 27.166 31.237 -43.580 25.720 31.350 -44.360 1.646 53.619 305.632
10 94.811 -1.797 6.812 95.410 -0.980 4.760 2.288 7.045 104.775
11 60.039 15.614 -19.124 60.565 15.185 -19.800 0.958 24.689 309.231
12 27.145 31.257 -43.757 25.720 31.350 -44.360 1.550 53.774 305.539
13 94.813 -1.742 6.702 95.410 -0.980 4.760 2.170 6.925 104.573
14 71.354 37.382 -0.087 71.770 37.110 -1.020 1.057 37.382 359.867
15 48.299 74.762 -6.470 48.130 75.200 -6.800 0.573 75.042 355.054
16 94.862 -1.790 6.808 95.410 -0.980 4.760 2.269 7.039 104.734
17 71.430 37.531 -0.146 71.770 37.110 -1.020 1.028 37.531 359.777
18 48.348 75.034 -6.602 48.130 75.200 -6.800 0.338 75.324 354.972
19 94.829 -1.679 6.457 95.410 -0.980 4.760 1.925 6.672 104.576
20 71.895 30.271 30.198 71.675 32.165 28.415 2.611 42.758 44.931
21 48.389 65.379 52.900 47.940 65.310 52.070 0.946 84.100 38.977
22 94.841 -1.727 6.563 95.410 -0.980 4.760 2.033 6.787 104.743
23 71.834 30.282 30.495 71.675 32.165 28.415 2.810 42.976 45.200
24 48.373 65.160 52.576 47.940 65.310 52.070 0.683 83.726 38.899
25 94.856 -1.811 6.930 95.410 -0.980 4.760 2.389 7.163 104.645
26 91.995 -9.864 53.175 92.890 -6.070 50.465 4.747 54.082 100.509
27 88.831 -7.617 100.643 90.370 -11.160 96.170 5.910 100.931 94.328
28 94.840 -1.857 6.961 95.410 -0.980 4.760 2.437 7.204 104.938
29 91.969 -9.864 53.060 92.890 -6.070 50.465 4.688 53.969 100.532
30 88.822 -7.585 99.964 90.370 -11.160 96.170 5.438 100.251 94.339
31 94.843 -1.831 6.986 95.410 -0.980 4.760 2.450 7.223 104.689
32 72.670 -33.310 23.706 73.155 -31.970 20.735 3.296 40.885 144.561
33 52.763 -62.634 40.725 50.900 -62.960 36.710 4.438 74.710 146.968
34 94.844 -1.844 6.940 95.410 -0.980 4.760 2.413 7.181 104.883
35 72.659 -33.330 23.584 73.155 -31.970 20.735 3.195 40.830 144.717
36 52.751 -62.659 40.456 50.900 -62.960 36.710 4.189 74.585 147.152
37 59.858 -30.723 -42.299 58.620 -30.630 -42.750 1.321 52.279 234.008
38 39.512 -15.438 -20.098 38.315 -15.065 -21.605 1.960 25.343 232.471
39 20.439 0.604 1.879 18.010 0.500 -0.460 3.374 1.974 72.184
40 59.843 -30.628 -42.217 58.620 -30.630 -42.750 1.334 52.157 234.039
41 39.472 -15.216 -20.290 38.315 -15.065 -21.605 1.759 25.361 233.132
42 20.596 0.834 1.790 18.010 0.500 -0.460 3.444 1.975 65.031
43 28.050 31.224 -43.592 25.720 31.350 -44.360 2.457 53.621 305.613
44 24.428 16.573 -21.290 21.865 15.925 -22.410 2.871 26.980 307.898
45 20.775 1.062 1.849 18.010 0.500 -0.460 3.646 2.132 60.115
46 27.951 31.592 -43.586 25.720 31.350 -44.360 2.374 53.831 305.935
47 24.413 16.789 -21.558 21.865 15.925 -22.410 2.822 27.324 307.911
48 20.742 1.238 1.780 18.010 0.500 -0.460 3.609 2.168 55.193
49 47.685 75.265 -6.106 48.130 75.200 -6.800 0.827 75.513 355.362
50 34.058 36.976 -1.848 33.070 37.850 -3.630 2.217 37.022 357.138
51 19.828 0.759 1.618 18.010 0.500 -0.460 2.773 1.787 64.874
52 47.770 75.333 -6.073 48.130 75.200 -6.800 0.823 75.577 355.391
53 34.024 36.746 -1.841 33.070 37.850 -3.630 2.308 36.792 357.131
54 19.895 0.766 1.713 18.010 0.500 -0.460 2.889 1.877 65.917
55 48.084 65.391 53.701 47.940 65.310 52.070 1.639 84.616 39.394
56 33.902 32.769 28.182 32.975 32.905 25.805 2.555 43.221 40.696
57 20.096 0.689 1.832 18.010 0.500 -0.460 3.105 1.958 69.398
58 48.093 65.240 53.510 47.940 65.310 52.070 1.449 84.377 39.358
59 33.983 32.963 28.200 32.975 32.905 25.805 2.599 43.379 40.547
60 20.045 0.703 1.815 18.010 0.500 -0.460 3.059 1.946 68.836
61 88.969 -7.916 99.202 90.370 -11.160 96.170 4.656 99.517 94.562
62 54.202 -4.710 50.539 54.190 -5.330 47.855 2.755 50.758 95.324
63 20.513 1.218 2.043 18.010 0.500 -0.460 3.612 2.379 59.195
64 88.968 -7.927 98.732 90.370 -11.160 96.170 4.357 99.050 94.591
65 54.261 -4.648 50.299 54.190 -5.330 47.855 2.539 50.514 95.279
66 20.641 0.847 1.666 18.010 0.500 -0.460 3.401 1.869 63.062
67 53.549 -61.840 40.746 50.900 -62.960 36.710 4.956 74.057 146.619
68 35.886 -31.821 20.383 34.455 -31.230 18.125 2.738 37.790 147.359
69 20.920 1.315 2.010 18.010 0.500 -0.460 3.903 2.401 56.801
70 53.497 -62.212 40.195 50.900 -62.960 36.710 4.410 74.067 147.134
71 35.953 -31.500 20.084 34.455 -31.230 18.125 2.481 37.358 147.479
72 20.895 1.150 1.709 18.010 0.500 -0.460 3.667 2.059 56.060
73 94.784 -1.844 6.954 95.410 -0.980 4.760 2.440 7.194 104.855
74 57.474 -0.187 4.308 56.710 -0.240 2.150 2.290 4.312 92.481
75 19.853 0.660 2.057 18.010 0.500 -0.460 3.124 2.160 72.205
76 94.850 -1.803 6.917 95.410 -0.980 4.760 2.376 7.148 104.613
77 57.492 -0.158 4.396 56.710 -0.240 2.150 2.380 4.399 92.060
78 19.840 0.774 1.873 18.010 0.500 -0.460 2.978 2.026 67.556
79 94.712 -1.740 6.671 95.410 -0.980 4.760 2.171 6.894 104.624
80 75.767 -1.256 4.576 76.060 -0.610 3.455 1.327 4.745 105.346
81 57.770 -0.029 4.084 56.710 -0.240 2.150 2.215 4.084 90.406
82 38.879 0.418 3.397 37.360 0.130 0.845 2.983 3.422 82.988
83 20.500 0.760 1.906 18.010 0.500 -0.460 3.445 2.052 68.276
84 94.746 -1.749 6.752 95.410 -0.980 4.760 2.236 6.975 104.522
85 75.784 -1.036 4.321 76.060 -0.610 3.455 1.004 4.443 103.478
86 57.797 0.122 4.078 56.710 -0.240 2.150 2.243 4.080 88.280
87 38.909 0.429 3.229 37.360 0.130 0.845 2.859 3.258 82.432
88 20.404 0.745 1.681 18.010 0.500 -0.460 3.221 1.839 66.098
89 94.821 -1.758 6.747 95.410 -0.980 4.760 2.214 6.973 104.604
90 86.389 -9.074 -6.237 86.213 -8.393 -7.118 1.128 11.011 214.502
91 76.787 -16.568 -18.756 77.015 -15.805 -18.995 0.832 25.026 228.543
92 68.577 -23.637 -30.298 67.818 -23.218 -30.873 1.041 38.427 232.040
93 59.128 -30.875 -42.876 58.620 -30.630 -42.750 0.578 52.835 234.243
94 94.810 -1.748 6.756 95.410 -0.980 4.760 2.221 6.978 104.505
95 86.419 -8.953 -6.387 86.213 -8.393 -7.118 0.943 10.998 215.505
96 76.820 -16.491 -18.789 77.015 -15.805 -18.995 0.742 25.000 228.727
97 68.658 -23.582 -30.348 67.818 -23.218 -30.873 1.056 38.433 232.151
98 59.211 -30.905 -42.735 58.620 -30.630 -42.750 0.652 52.739 234.127
99 94.672 -1.678 6.502 95.410 -0.980 4.760 2.016 6.715 104.470
100 78.300 7.067 -7.013 77.988 7.103 -7.520 0.597 9.956 315.220
101 60.293 15.348 -19.582 60.565 15.185 -19.800 0.385 24.880 308.089
102 44.203 22.986 -31.712 43.143 23.268 -32.080 1.157 39.167 305.936
103 27.016 31.165 -43.974 25.720 31.350 -44.360 1.365 53.898 305.325
104 94.830 -1.783 6.928 95.410 -0.980 4.760 2.383 7.154 104.433
105 78.257 7.039 -7.270 77.988 7.103 -7.520 0.373 10.119 314.077
106 60.155 15.718 -20.231 60.565 15.185 -19.800 0.798 25.619 307.845
107 44.111 23.540 -32.017 43.143 23.268 -32.080 1.008 39.740 306.324
108 26.626 33.169 -44.169 25.720 31.350 -44.360 2.042 55.237 306.905
109 94.830 -1.701 6.558 95.410 -0.980 4.760 2.022 6.775 104.543
110 83.971 17.488 2.916 83.590 18.065 1.870 1.254 17.729 9.468
111 71.531 37.398 -0.616 71.770 37.110 -1.020 0.550 37.403 359.056
112 60.110 56.166 -3.810 59.950 56.155 -3.910 0.189 56.295 356.120
113 48.082 74.995 -6.574 48.130 75.200 -6.800 0.309 75.282 354.990
114 94.878 -1.729 6.630 95.410 -0.980 4.760 2.084 6.852 104.617
115 83.935 17.501 2.928 83.590 18.065 1.870 1.247 17.744 9.497
116 71.513 37.496 -0.695 71.770 37.110 -1.020 0.566 37.502 358.938
117 60.110 56.159 -3.719 59.950 56.155 -3.910 0.249 56.282 356.211
118 48.182 74.902 -6.412 48.130 75.200 -6.800 0.492 75.176 355.107
119 94.804 -1.818 7.199 95.410 -0.980 4.760 2.649 7.425 104.176
120 82.777 14.554 17.861 83.543 15.593 16.588 1.812 23.040 50.825
121 71.216 31.512 29.973 71.675 32.165 28.415 1.750 43.490 43.566
122 59.233 49.560 42.426 59.808 48.738 40.243 2.403 65.239 40.565
123 47.901 65.572 53.795 47.940 65.310 52.070 1.745 84.815 39.365
124 94.772 -1.833 6.825 95.410 -0.980 4.760 2.324 7.067 105.036
125 82.720 14.616 17.563 83.543 15.593 16.588 1.607 22.849 50.232
126 71.256 31.437 30.263 71.675 32.165 28.415 2.030 43.636 43.910
127 59.267 49.547 42.334 59.808 48.738 40.243 2.306 65.169 40.511
128 47.815 65.383 53.061 47.940 65.310 52.070 1.001 84.204 39.061
129 94.840 -1.780 6.905 95.410 -0.980 4.760 2.359 7.131 104.455
130 93.112 -6.364 28.580 94.150 -3.525 27.613 3.174 29.280 102.554
131 92.030 -9.686 51.982 92.890 -6.070 50.465 4.014 52.877 100.555
132 90.731 -10.442 77.889 91.630 -8.615 73.318 5.005 78.586 97.636
133 88.925 -7.755 98.630 90.370 -11.160 96.170 4.442 98.935 94.496
134 94.750 -1.706 6.774 95.410 -0.980 4.760 2.240 6.985 104.140
135 93.456 -6.983 29.551 94.150 -3.525 27.613 4.024 30.365 103.295
136 91.762 -9.588 54.588 92.890 -6.070 50.465 5.536 55.424 99.962
137 90.523 -9.923 78.975 91.630 -8.615 73.318 5.912 79.596 97.161
138 88.450 -7.383 99.721 90.370 -11.160 96.170 5.528 99.994 94.234
139 94.774 -1.701 6.618 95.410 -0.980 4.760 2.092 6.833 104.419
140 84.620 -17.161 14.272 84.283 -16.475 12.748 1.706 22.320 140.250
141 72.841 -32.934 22.138 73.155 -31.970 20.735 1.731 39.683 146.092
142 63.629 -47.768 31.268 62.028 -47.465 28.723 3.022 57.091 146.792
143 53.074 -62.749 39.986 50.900 -62.960 36.710 3.938 74.407 147.493
144 94.824 -1.732 6.644 95.410 -0.980 4.760 2.111 6.866 104.611
145 84.610 -17.132 14.251 84.283 -16.475 12.748 1.673 22.284 140.245
146 72.795 -32.837 21.866 73.155 -31.970 20.735 1.470 39.451 146.341
147 63.609 -47.604 30.857 62.028 -47.465 28.723 2.660 56.730 147.049
148 53.068 -62.538 39.758 50.900 -62.960 36.710 3.764 74.106 147.554
149 59.304 -30.836 -42.453 58.620 -30.630 -42.750 0.774 52.471 234.007
150 48.835 -23.073 -32.162 48.468 -22.848 -32.178 0.431 39.582 234.345
151 38.544 -15.514 -20.880 38.315 -15.065 -21.605 0.883 26.012 233.387
152 28.577 -8.727 -9.949 28.163 -7.283 -11.033 1.853 13.234 228.743
153 19.400 0.578 1.071 18.010 0.500 -0.460 2.069 1.217 61.645
154 59.283 -30.812 -42.644 58.620 -30.630 -42.750 0.696 52.611 234.150
155 49.013 -23.128 -32.035 48.468 -22.848 -32.178 0.630 39.512 234.172
156 38.632 -15.429 -21.396 38.315 -15.065 -21.605 0.526 26.379 234.205
157 28.626 -9.032 -10.165 28.163 -7.283 -11.033 2.007 13.598 228.377
158 19.526 0.414 1.083 18.010 0.500 -0.460 2.165 1.159 69.068
159 26.747 31.469 -43.910 25.720 31.350 -44.360 1.128 54.022 305.628
160 25.010 24.152 -33.934 23.793 23.638 -33.385 1.431 41.651 305.440
161 23.199 16.450 -22.261 21.865 15.925 -22.410 1.441 27.680 306.463
162 21.560 8.223 -9.882 19.938 8.213 -11.435 2.246 12.856 309.764
163 19.767 0.771 1.400 18.010 0.500 -0.460 2.573 1.598 61.142
164 26.466 33.265 -43.952 25.720 31.350 -44.360 2.096 55.121 307.121
165 24.531 25.256 -34.061 23.793 23.638 -33.385 1.903 42.403 306.557
166 22.532 17.348 -22.759 21.865 15.925 -22.410 1.610 28.617 307.317
167 21.297 9.116 -10.038 19.938 8.213 -11.435 2.148 13.559 312.243
168 20.241 1.362 2.421 18.010 0.500 -0.460 3.745 2.778 60.648
169 47.954 75.045 -6.124 48.130 75.200 -6.800 0.715 75.294 355.335
170 39.935 56.633 -5.204 40.600 56.525 -5.215 0.674 56.872 354.750
171 34.317 37.076 -2.591 33.070 37.850 -3.630 1.798 37.166 356.003
172 27.113 19.906 0.097 25.540 19.175 -2.045 2.756 19.906 0.279
173 20.282 0.865 1.650 18.010 0.500 -0.460 3.122 1.863 62.340
174 48.114 74.940 -6.437 48.130 75.200 -6.800 0.447 75.216 355.091
175 40.005 56.475 -5.385 40.600 56.525 -5.215 0.621 56.731 354.553
176 34.340 37.261 -2.923 33.070 37.850 -3.630 1.569 37.376 355.515
177 27.115 19.691 -0.318 25.540 19.175 -2.045 2.394 19.694 359.076
178 20.357 0.721 1.317 18.010 0.500 -0.460 2.952 1.501 61.306
179 47.885 65.560 53.596 47.940 65.310 52.070 1.548 84.680 39.267
180 40.159 49.175 39.907 40.458 49.108 38.938 1.017 63.331 39.061
181 33.458 32.557 27.471 32.975 32.905 25.805 1.770 42.598 40.158
182 26.575 18.004 15.031 25.493 16.703 12.673 2.904 23.454 39.858
183 19.509 0.349 1.149 18.010 0.500 -0.460 2.205 1.201 73.119
184 47.899 65.372 53.449 47.940 65.310 52.070 1.381 84.441 39.270
185 40.193 49.025 39.636 40.458 49.108 38.938 0.752 63.043 38.955
186 33.443 32.649 27.569 32.975 32.905 25.805 1.843 42.732 40.179
187 26.586 17.967 15.189 25.493 16.703 12.673 3.021 23.527 40.209
188 19.559 0.718 1.107 18.010 0.500 -0.460 2.214 1.319 57.028
189 88.855 -7.734 98.558 90.370 -11.160 96.170 4.442 98.861 94.487
190 72.418 -8.190 74.514 72.280 -8.245 72.013 2.506 74.962 96.272
191 53.856 -5.000 49.618 54.190 -5.330 47.855 1.824 49.869 95.755
192 37.368 -2.171 26.048 36.100 -2.415 23.698 2.682 26.138 94.764
193 19.741 0.588 1.403 18.010 0.500 -0.460 2.544 1.521 67.252
194 88.335 -7.243 99.966 90.370 -11.160 96.170 5.821 100.228 94.144
195 72.521 -8.080 74.951 72.280 -8.245 72.013 2.953 75.385 96.153
196 54.041 -4.892 50.769 54.190 -5.330 47.855 2.951 51.005 95.504
197 37.291 -2.102 27.349 36.100 -2.415 23.698 3.854 27.430 94.394
198 20.047 1.076 1.865 18.010 0.500 -0.460 3.144 2.153 60.022
199 52.992 -62.907 39.847 50.900 -62.960 36.710 3.771 74.466 147.649
200 44.029 -47.586 30.202 42.678 -47.095 27.418 3.134 56.361 147.598
201 35.211 -32.267 19.159 34.455 -31.230 18.125 1.648 37.526 149.301
202 26.980 -16.066 9.803 26.233 -15.365 8.833 1.411 18.821 148.611
203 20.466 0.704 1.621 18.010 0.500 -0.460 3.225 1.767 66.517
204 52.908 -62.721 39.980 50.900 -62.960 36.710 3.845 74.379 147.486
205 43.965 -47.550 30.261 42.678 -47.095 27.418 3.154 56.362 147.527
206 35.087 -31.927 19.339 34.455 -31.230 18.125 1.536 37.328 148.796
207 26.972 -15.836 9.697 26.233 -15.365 8.833 1.232 18.569 148.519
208 20.294 0.770 1.635 18.010 0.500 -0.460 3.111 1.808 64.791
209 94.809 -1.830 6.976 95.410 -0.980 4.760 2.449 7.212 104.699
210 58.984 -30.966 -42.837 58.620 -30.630 -42.750 0.503 52.858 234.137
211 19.349 0.469 1.318 18.010 0.500 -0.460 2.226 1.398 70.426
212 94.944 -1.846 7.105 95.410 -0.980 4.760 2.543 7.341 104.567
213 58.971 -30.882 -42.895 58.620 -30.630 -42.750 0.456 52.855 234.248
214 19.176 0.272 0.555 18.010 0.500 -0.460 1.563 0.618 63.872
215 94.790 -1.802 6.934 95.410 -0.980 4.760 2.405 7.164 104.566
216 26.440 31.213 -44.153 25.720 31.350 -44.360 0.762 54.072 305.257
217 19.441 0.489 1.328 18.010 0.500 -0.460 2.290 1.415 69.769
218 94.798 -1.798 6.914 95.410 -0.980 4.760 2.385 7.145 104.579
219 26.313 31.108 -44.083 25.720 31.350 -44.360 0.697 53.954 305.210
220 19.377 0.342 0.924 18.010 0.500 -0.460 1.951 0.985 69.704
221 94.819 -1.802 6.895 95.410 -0.980 4.760 2.363 7.127 104.645
222 47.850 74.956 -6.176 48.130 75.200 -6.800 0.726 75.210 355.289
223 19.840 0.541 1.276 18.010 0.500 -0.460 2.523 1.386 67.045
224 94.770 -1.747 6.714 95.410 -0.980 4.760 2.194 6.937 104.589
225 47.821 75.208 -5.965 48.130 75.200 -6.800 0.890 75.444 355.465
226 19.694 0.611 1.037 18.010 0.500 -0.460 2.255 1.203 59.503
227 94.825 -1.776 6.746 95.410 -0.980 4.760 2.218 6.976 104.750
228 48.028 65.260 53.084 47.940 65.310 52.070 1.019 84.124 39.126
229 19.876 0.685 0.983 18.010 0.500 -0.460 2.366 1.198 55.119
230 94.757 -1.745 6.631 95.410 -0.980 4.760 2.124 6.857 104.740
231 48.025 65.348 52.692 47.940 65.310 52.070 0.629 83.945 38.880
232 19.948 0.440 0.952 18.010 0.500 -0.460 2.398 1.049 65.224
233 94.873 -1.904 7.232 95.410 -0.980 4.760 2.693 7.478 104.749
234 88.844 -7.513 99.977 90.370 -11.160 96.170 5.488 100.259 94.298
235 19.166 0.454 1.197 18.010 0.500 -0.460 2.021 1.280 69.252
236 94.774 -1.875 7.051 95.410 -0.980 4.760 2.540 7.296 104.892
237 88.796 -7.519 99.400 90.370 -11.160 96.170 5.115 99.684 94.326
238 19.338 0.352 0.841 18.010 0.500 -0.460 1.865 0.912 67.297
239 94.804 -1.889 7.199 95.410 -0.980 4.760 2.672 7.443 104.699
240 52.200 -63.279 39.813 50.900 -62.960 36.710 3.380 74.762 147.823
241 19.336 0.468 1.313 18.010 0.500 -0.460 2.214 1.394 70.403
242 94.841 -1.856 7.078 95.410 -0.980 4.760 2.542 7.317 104.693
243 52.201 -63.318 39.205 50.900 -62.960 36.710 2.837 74.473 148.235
244 19.327 0.532 0.810 18.010 0.500 -0.460 1.830 0.969 56.705
245 59.110 -30.725 -42.847 58.620 -30.630 -42.750 0.508 52.725 234.357
246 26.841 31.207 -43.931 25.720 31.350 -44.360 1.209 53.887 305.389
247 47.998 74.766 -5.917 48.130 75.200 -6.800 0.993 74.999 355.475
248 59.180 -30.727 -42.860 58.620 -30.630 -42.750 0.579 52.736 234.363
249 26.918 30.963 -43.680 25.720 31.350 -44.360 1.431 53.541 305.332
250 47.960 74.748 -5.974 48.130 75.200 -6.800 0.957 74.987 355.431
251 47.932 74.957 -6.193 48.130 75.200 -6.800 0.683 75.213 355.277
252 47.999 65.290 53.196 47.940 65.310 52.070 1.127 84.217 39.172
253 88.840 -7.715 98.748 90.370 -11.160 96.170 4.567 99.049 94.467
254 47.938 74.793 -6.065 48.130 75.200 -6.800 0.862 75.039 355.364
255 47.995 65.199 52.614 47.940 65.310 52.070 0.558 83.781 38.902
256 88.992 -7.768 98.150 90.370 -11.160 96.170 4.162 98.457 94.525
257 88.806 -7.564 99.378 90.370 -11.160 96.170 5.066 99.666 94.353
258 52.054 -63.456 39.583 50.900 -62.960 36.710 3.136 74.790 148.045
259 58.953 -30.907 -42.839 58.620 -30.630 -42.750 0.442 52.824 234.190
260 88.799 -7.554 99.130 90.370 -11.160 96.170 4.923 99.418 94.358
261 52.114 -63.302 39.247 50.900 -62.960 36.710 2.833 74.482 148.202
262 59.070 -30.873 -42.721 58.620 -30.630 -42.750 0.513 52.709 234.145
263 26.607 31.110 -43.675 25.720 31.350 -44.360 1.146 53.622 305.462
264 58.916 -30.902 -42.852 58.620 -30.630 -42.750 0.414 52.832 234.204
265 52.088 -63.025 39.540 50.900 -62.960 36.710 3.070 74.401 147.897
266 26.722 30.906 -43.822 25.720 31.350 -44.360 1.220 53.624 305.194
267 59.121 -30.882 -42.788 58.620 -30.630 -42.750 0.562 52.769 234.181
268 52.256 -63.141 39.105 50.900 -62.960 36.710 2.758 74.269 148.229
269 52.510 -62.813 39.840 50.900 -62.960 36.710 3.523 74.382 147.615
270 88.821 -7.677 99.211 90.370 -11.160 96.170 4.876 99.507 94.425
271 47.854 65.422 53.179 47.940 65.310 52.070 1.118 84.309 39.106
272 52.472 -62.907 39.443 50.900 -62.960 36.710 3.153 74.250 147.912
273 88.911 -7.687 98.611 90.370 -11.160 96.170 4.488 98.910 94.458
274 48.184 65.048 53.192 47.940 65.310 52.070 1.177 84.027 39.274
275 47.989 65.268 53.085 47.940 65.310 52.070 1.017 84.130 39.122
276 47.951 74.898 -5.916 48.130 75.200 -6.800 0.951 75.131 355.484
277 26.916 31.080 -43.714 25.720 31.350 -44.360 1.386 53.637 305.412
278 48.097 65.075 52.962 47.940 65.310 52.070 0.936 83.903 39.141
279 47.899 75.065 -6.424 48.130 75.200 -6.800 0.461 75.339 355.109
280 26.923 31.161 -44.194 25.720 31.350 -44.360 1.229 54.075 305.188
281 59.056 -30.846 -42.596 58.620 -30.630 -42.750 0.510 52.592 234.090
282 42.393 -0.024 -43.358 42.170 0.360 -43.555 0.485 43.358 269.969
283 26.201 31.341 -43.878 25.720 31.350 -44.360 0.681 53.922 305.538
284 35.879 52.754 -25.625 36.925 53.275 -25.580 1.170 58.649 334.092
285 47.697 75.104 -5.768 48.130 75.200 -6.800 1.123 75.325 355.608
286 59.077 -30.803 -42.830 58.620 -30.630 -42.750 0.495 52.757 234.277
287 42.530 0.124 -43.449 42.170 0.360 -43.555 0.443 43.449 270.163
288 26.456 31.114 -43.949 25.720 31.350 -44.360 0.875 53.848 305.297
289 36.149 53.085 -25.997 36.925 53.275 -25.580 0.901 59.109 333.908
290 47.813 74.760 -5.930 48.130 75.200 -6.800 1.026 74.995 355.465
291 47.681 75.057 -5.678 48.130 75.200 -6.800 1.217 75.271 355.674
292 48.009 70.346 23.542 48.035 70.255 22.635 0.912 74.181 18.503
293 47.948 65.385 53.204 47.940 65.310 52.070 1.137 84.297 39.135
294 69.043 27.507 75.803 69.155 27.075 74.120 1.742 80.640 70.055
295 88.877 -7.732 98.861 90.370 -11.160 96.170 4.607 99.162 94.472
296 47.708 75.078 -5.934 48.130 75.200 -6.800 0.971 75.312 355.481
297 48.137 70.269 23.468 48.035 70.255 22.635 0.839 74.085 18.468
298 47.993 65.415 53.124 47.940 65.310 52.070 1.060 84.269 39.080
299 69.008 27.609 75.411 69.155 27.075 74.120 1.405 80.306 69.892
300 88.950 -7.638 98.601 90.370 -11.160 96.170 4.509 98.897 94.429
301 88.888 -7.777 98.464 90.370 -11.160 96.170 4.348 98.770 94.516
302 69.977 -37.776 67.450 70.635 -37.060 66.440 1.402 77.308 119.251
303 52.753 -62.962 39.380 50.900 -62.960 36.710 3.250 74.263 147.976
304 56.064 -46.601 -2.263 54.760 -46.795 -3.020 1.520 46.656 182.780
305 59.454 -30.783 -42.623 58.620 -30.630 -42.750 0.858 52.577 234.163
306 88.698 -7.654 98.411 90.370 -11.160 96.170 4.484 98.708 94.447
307 69.890 -37.662 67.446 70.635 -37.060 66.440 1.389 77.249 119.179
308 52.671 -62.821 38.863 50.900 -62.960 36.710 2.791 73.870 148.258
309 55.892 -46.803 -2.516 54.760 -46.795 -3.020 1.239 46.871 183.077
310 59.528 -30.492 -42.511 58.620 -30.630 -42.750 0.949 52.316 234.349
] def %LAB_KIi

%************************************************************
%151212_Experimental_Data_UGR_Triplets_3.txt
%Tristimulus Values Reference White Tristimulus Values
%triplets X0 Y0 Z0 X1 Y1 Z1 X2 Y2 Z2

/XYZ_MEi 1000 array def %147x4 
/XYZ_MEi [%BEG XYZ_MEi
001 70.188 75.432 60.812 %001 S1-1 W-WC-C
002 37.416 46.323 59.435
003 17.219 26.573 53.545

007 70.173 75.418 60.694 %002 S1-2 W-WV-V
008 27.079 26.226 37.489
009  6.844  5.494 17.846

013 70.231 75.461 60.548 %003 S1-3 W-WM-M
014 46.938 38.265 36.669
015 29.153 16.396 18.216

019 70.671 75.886 61.105 %004 S1-4 W-WO-O
020 45.488 38.090 19.729
021 27.376 16.119  3.052

025 70.217 75.535 60.299 %005 S1-5 W-WY-Y
026 60.343 64.298 20.892
027 59.918 63.786  6.808

031 70.554 75.886 60.812 %006 S1-6 W-WL-L
032 29.127 39.628 23.333
033  9.496 18.447  5.754

039  3.277  3.500  3.211 %007 S2-1 N-CN-C
038 10.472  7.637  3.056
037 26.973 15.825  3.002

045  3.321  3.553  3.273 %008 S2-2 N-VN-V
044  4.654  4.259  8.408
043  6.928  5.486 18.331

051  3.273  3.491  3.220 %009 S2-3 N-MN-M
050 10.916  7.740  8.170
049 28.837 16.050 17.909

057  3.277  3.500  3.211 %010 S2-4 N-ON-O
056 10.472  7.637  3.056
055 26.973 15.825  3.002

063  3.367  3.599  3.274 %011 S2-5 N-YN-Y
062 18.224 19.565  4.769
061 59.874 63.668  7.187

069  3.304  3.532  3.239 %012 S2-6 N-LN-L
068  5.410  8.321  4.352
067  9.641 18.384  6.245

075  3.302  3.532  3.223 %013 S2-7 N-Z-W
074 21.314 22.968 20.538
073 70.100 75.286 61.090

211  3.438  3.664  3.318 %014 S3-1 N-C-W
210 17.854 27.502 53.882
209 71.213 76.604 61.163

217  3.463  3.686  3.330 %015 S3-2 N-V-W
216  7.208  5.756 18.396
215 71.023 76.370 60.914

223  3.503  3.712  3.314 %016 S3-3 N-M-W
222 29.710 16.786 18.810
221 70.759 76.047 60.812

229  3.517  3.737  3.368 %017 S3-4 N-O-W
228 27.668 16.383  3.198
227 71.008 76.326 61.090

235  3.416  3.636  3.226 %018 S3-5 N-Y-W
234 60.738 64.723  7.054
233 71.228 76.604 60.900

241  3.430  3.661  3.302 %019 S3-6 N-L-W
240 10.048 19.139  5.958
239 71.008 76.384 60.856

%flags
247 29.563 16.748 18.535 %020 S4-1 M-V-C v negativ
246  7.343  5.864 18.463
245 17.934 27.561 53.721

253 29.871 16.862 18.920 %021 S4-2 Y-O-M v negativ
252 27.650 16.360  3.097
251 60.768 64.811  7.181

257 60.431 64.342  7.089 %022 S4-3 Y-L-C v positiv
258  9.962 18.966  5.857
259 17.546 27.143 52.959

263  7.178  5.691 18.362 %023 S4-4 V-C-L v positiv
264 17.816 27.464 53.882
265 10.048 19.185  5.889

269 10.179 19.392  5.916 %024 S4-5 L-Y-O v positiv
270 60.284 64.284  7.168
271 27.511 16.283  3.093

277  7.344  5.823 18.646 %025 S4-6 V-M-O v negativ
276 29.710 16.773 18.787
275 27.662 16.360  3.176


089 70.979 76.267 61.515 %026 (S5-1) W-Wc-WC
090 52.710 60.240 60.724
091 36.844 45.708 57.662

099 70.481 75.711 61.075 %027 (S5-2) W-Wv-WV
100 45.942 47.129 48.623
101 26.626 25.759 36.727

109 70.612 75.842 61.310 %028 (S5-3) W-Wm-WM
110 58.892 55.889 48.081
111 46.587 37.943 35.878

119 70.744 76.033 61.002 %029 (S5-4) W-Wo-WO
120 56.182 53.677 34.500
121 44.770 37.255 17.803

129 71.037 76.326 61.368 %030 (S5-5) W-Wy-WY
130 66.276 72.004 39.188
131 63.478 69.294 22.917

139 70.920 76.179 61.705 %031 (S5-6) W-Wl-WL
140 47.553 56.519 38.939
141 28.755 39.013 22.526


151  7.168  9.906 16.799 %032 (S6-1) C-Cw-CW v negativ alle
150 10.352 15.498 30.208
149 15.062 23.725 50.747

161  4.553  4.341  8.548 %033 (S6-2) V-Vw-VW
160  5.542  4.927 12.901
159  6.548  5.434 17.841

171 11.364  8.306  8.793 %034 (S6-3) M-Mw-MW
170 17.647 10.941 11.866
169 28.226 15.754 16.812

181 10.447  7.750  3.166 %035 (S6-4) O-Ow-OW
180 16.907 10.939  3.068
179 26.642 15.642  2.853

191 18.153 19.577  4.622 %036 (S6-5) Y-Ww-YW
190 35.174 37.826  5.422
189 59.713 62.936  5.831

201  4.786  7.725  4.377 %037 (S6-6) L-Wl-LW
200  6.494 11.674  5.092
199  8.563 16.969  5.703


093 15.144 23.775 50.879 %038 (S7-1) CN-Cn-C
092 25.491 34.867 55.626
091 36.361 45.166 56.827

103  6.751  5.598 18.336 %039 (S7-2) VN-Vn-V
102 15.037 13.624 27.536
101 26.633 25.810 36.127

113 28.635 16.001 17.260 %040 (S7-3) MN-Mn-M
112 37.181 25.661 25.782
111 46.499 37.943 35.350

123 26.932 15.775  2.779 %041 (S7-4) ON-On-O
122 35.160 24.730  7.549
121 44.960 37.445 17.444

133 59.493 62.687  5.902 %042 (S7-5) YN-Yn-Y
132 61.207 66.217 11.149
131 62.994 68.913 22.318

143  8.755 17.277  5.795 %043 (S7-6) LN-Ln-L
142 17.597 27.986 12.476
141 28.712 39.057 21.875


153  2.914  3.245  3.159 %044 (S8-1) N-Nc-NC
152  4.461  5.800  7.838
151  7.001  9.798 16.565

163  3.049  3.386  3.296 %045 (S8-2) N-Nv-NV
162  3.805  3.938  5.394
161  4.577  4.370  8.488

173  3.151  3.488  3.364 %046 (S8-3) N-Nw-NM
172  6.163  5.409  5.432
171 11.418  8.304  8.577

183  3.019  3.355  3.279 %047 (S8-4) N-No-NO
182  5.766  5.092  3.173
181 10.501  7.718  2.999

193  3.096  3.434  3.314 %048 (S8-5) N-Ny-NY
192  8.038  8.929  4.018
191 18.226 19.628  4.638

203  3.238  3.592  3.491 %049 (S8-6) N-Nl-NL
202  3.725  5.107  3.838
201  4.810  7.775  4.383

] def %END XYZ_MEi

%*************************************************************
/D57SERWi 2000 array def %max 57 series of 15 data (100x20)
/D57SERWi [%BEG D57SERWi top data WANG_ELCD scaling data
%0  1   2   3   4   5   6   7    8    9    10   11  12      13  14    15
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV*1i DV*2i WANG1 WANG2
%Serie 1, BAM test chart order 1:25
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 26.45 26.39 (W03) (W04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 29.54 41.95 (W13) (W14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 31.00 32.74 (W23) (W24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 28.01 37.64 (W33) (W34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 16.99 11.01 (W43) (W44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 25.44 28.39 (W53) (W54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 25.80 35.47 (W06) (W05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0)  9.30 16.62 (W16) (W15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 26.80 29.68 (W26) (W25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 30.62 34.58 (W36) (W35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 29.85 41.77 (W46) (W45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 18.79 35.12 (W56) (W55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 64.17 61.50 (W01) (W02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 67.03 32.91 (W11) (W12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 74.48 61.26 (W21) (W22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 71.77 67.21 (W31) (W32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 37.26 86.10 (W41) (W42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 50.89 56.11 (W51) (W52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 41.67 45.01 (W09) (W19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 28.41 72.32 (W29) (W39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 64.80 40.72 (W49) (W59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 41.67 40.72 (W09) (W59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 64.80 72.32 (W49) (W39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 28.41 45.01 (W29) (W19)
%Serie 5, BAM test chart order 2:26
025 004 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 26.45  0.00 (W03) (W00)
026 004 099 100 101 102 103 (W)  (Wv) (VW) (0)  (0) 29.54  0.00 (W13) (W00)
027 004 109 110 111 112 113 (W)  (Wm) (MW) (0)  (0) 31.00  0.00 (W23) (W00)
028 004 119 120 121 122 123 (W)  (Wo) (OW) (0)  (0) 28.01  0.00 (W33) (W00)
029 004 129 130 131 132 133 (W)  (Wy) (YW) (0)  (0) 16.99  0.00 (W43) (W00)
030 004 139 140 141 142 143 (W)  (Wl) (LW) (0)  (0) 25.44  0.00 (W53) (W00)
%Serie 6, BAM test chart order 2:26
031 004 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 26.39  0.00 (W04) (W00)
032 004 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 41.95  0.00 (W14) (W00)
033 004 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 32.74  0.00 (W24) (W00)
034 004 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 37.64  0.00 (W34) (W00)
035 004 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 110.1  0.00 (W44) (W00)
036 004 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 28.39  0.00 (W54) (W00)
%Serie 7, BAM test chart order 2:26
037 004 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 25.80  0.00 (W06) (W00)
038 004 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0)  9.30  0.00 (W16) (W00)
039 004 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 26.80  0.00 (W26) (W00)
040 004 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 30.62  0.00 (W36) (W00)
041 004 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 29.85  0.00 (W46) (W00)
042 004 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 18.79  0.00 (W56) (W00)
%Serie 8, BAM test chart order 2:26
043 004 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 61.50  0.00 (W02) (W00)
044 004 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 32.91  0.00 (W12) (W00)
045 004 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 61.26  0.00 (W22) (W00)
046 004 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 67.21  0.00 (W32) (W00)
047 004 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 86.10  0.00 (W42) (W00)
048 004 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 56.11  0.00 (W52) (W00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 10.00  9.00 (W61) (W62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 004 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 41.67  0.00 (W09) (W00)
051 004 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 45.01  0.00 (W19) (W00)
052 004 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 28.41  0.00 (W29) (W00)
053 004 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 72.32  0.00 (W39) (W00)
054 004 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 64.80  0.00 (W49) (W00)
055 004 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 40.72  0.00 (W59) (W00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 004 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 10.00  0.00 (W61) (W00)
057 004 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0)  9.00  0.00 (W62) (W00)
] def %END D57SERWi

%*************************************************************
/D57SERVi 2000 array def %max 57 series of 15 data (100x20)
/D57SERVi [%BEG D57SERVi top data VIK_ELCD scaling data
%0  1   2   3   4   5   6   7    8    9    10   11  12      13  14    15
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV*1i DV*2i VIK1  VIK2
%Serie 1, BAM test chart order 1:25
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 25.24 39.23 (V01) (V02)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 33.11 46.66 (V03) (V04)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 30.92 45.35 (V05) (V06)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 26.55 46.66 (V07) (V08)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 22.62 23.06 (V09) (V10)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 29.18 40.98 (V11) (V12)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 38.35 42.73 (V13) (V14)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 21.75 31.36 (V15) (V16)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 40.98 44.47 (V17) (V18)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 34.86 43.16 (V19) (V20)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 35.73 47.97 (V21) (V22)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 36.17 42.29 (V23) (V24)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 53.65 55.40 (V26) (V25)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 65.02 29.61 (V28) (V27)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 60.21 53.22 (V30) (V29)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 58.46 48.84 (V32) (V31)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 37.38 61.52 (V34) (V33)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 55.84 45.35 (V36) (V35)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 44.47 42.29 (V37) (V38)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 22.62 47.97 (V40) (V39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 46.22 31.36 (V41) (V42)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 48.41 30.49 (V44) (V43)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 51.03 53.65 (V46) (V45)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 23.49 48.84 (V47) (V48)
%Serie 5, BAM test chart order 2:26
025 004 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 25.24  0.00 (V01) (V00)
026 004 099 100 101 000 000 (W)  (Wv) (VW) (0)  (0) 33.11  0.00 (V03) (V00)
027 004 109 110 111 000 000 (W)  (Wm) (MW) (0)  (0) 30.92  0.00 (V05) (V00)
028 004 119 120 121 000 000 (W)  (Wo) (OW) (0)  (0) 26.55  0.00 (V07) (V00)
029 004 129 130 131 000 000 (W)  (Wy) (YW) (0)  (0) 22.62  0.00 (V09) (V00)
030 004 139 140 141 000 000 (W)  (Wl) (LW) (0)  (0) 29.18  0.00 (V11) (V00)
%Serie 6, BAM test chart order 2:26
031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 22.62 27.87 (V62) (V61)
032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 26.99 33.98 (V64) (V63)
033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 28.30 35.73 (V66) (V65)
034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 24.37 33.98 (V68) (V67)
035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 18.25 20.00 (V70) (V69)
036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 23.49 32.24 (V72) (V71)
%Serie 7, BAM test chart order 2:26
037 003 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 29.61 28.74 (V74) (V73)
038 003 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0) 19.56 18.25 (V76) (V75)
039 003 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 35.73 27.87 (V78) (V77)
040 003 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 37.48 26.12 (V80) (V79)
041 003 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 38.35 30.49 (V82) (V81)
042 003 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 33.11 26.99 (V84) (V83)
%Serie 8, BAM test chart order 2:26
043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 37.48 26.12 (V86) (V85)
044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 20.43 18.25 (V88) (V87)
045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 34.86 28.30 (V90) (V89)
046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 33.98 27.87 (V92) (V91)
047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 39.67 34.86 (V94) (V93)
048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 32.24 26.12 (V96) (V95)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 40.10 36.61 (V97) (V98)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 004 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 44.47  0.00 (V37) (V00)
051 004 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 42.29  0.00 (V38) (V00)
052 004 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 22.62  0.00 (V40) (V00)
053 004 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 47.97  0.00 (V39) (V00)
054 004 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 46.22  0.00 (V41) (V00)
055 004 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 31.36  0.00 (V42) (V00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 004 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 40.10  0.00 (V97) (V00)
057 004 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 36.61  0.00 (V98) (V00)
] def %END D57SERVi

%***************************************************************************
/R57VIK1i [%BEG R57VIK1i top data VIK1_ELCD, only 3 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 RDV DV1 DV2 VIK_1 VIK_2
%Serie 1, BAM test chart order 1:25
%57x2 = 114 data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 434 000 000 (V03) (V04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 452 000 000 (V13) (V14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 430 000 000 (V23) (V24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 431 000 000 (V33) (V34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 474 000 000 (V43) (V44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 480 000 000 (V53) (V54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 543 000 000 (V06) (V05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 602 000 000 (V16) (V15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 515 000 000 (V26) (V25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 520 000 000 (V36) (V35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 487 000 000 (V46) (V45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 514 000 000 (V56) (V55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 451 000 000 (V01) (V02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 622 000 000 (V11) (V12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 457 000 000 (V21) (V22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 464 000 000 (V31) (V32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 346 000 000 (V41) (V42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 499 000 000 (V51) (V52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 506 000 000 (V09) (V19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 375 000 000 (V29) (V39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 517 000 000 (V49) (V59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 517 000 000 (V09) (V59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 509 000 000 (V49) (V39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 396 000 000 (V29) (V19)
%Serie 5, BAM test chart order 2:26
025 003 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 481 206 428 (V03) (V00)
026 003 099 100 101 102 103 (W)  (Wv) (VW) (0)  (0) 497 236 474 (V13) (V00)
027 003 109 110 111 112 113 (W)  (Wm) (MW) (0)  (0) 492 231 469 (V23) (V00)
028 003 119 120 121 122 123 (W)  (Wo) (OW) (0)  (0) 493 224 452 (V33) (V00)
029 003 129 130 131 132 133 (W)  (Wy) (YW) (0)  (0) 358 176 488 (V43) (V00)
030 003 139 140 141 142 143 (W)  (Wl) (LW) (0)  (0) 492 232 471 (V53) (V00)
%Serie 6, BAM test chart order 2:26
031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 375 428 643 (V04) (V00)
032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 420 474 695 (V14) (V00)
033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 416 469 690 (V24) (V00)
034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 412 452 678 (V34) (V00)
035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 476 488 732 (V44) (V00)
036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 429 471 698 (V54) (V00)
%Serie 7, BAM test chart order 2:26
037 003 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 533 268 502 (V06) (V00)
038 003 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0) 503 267 530 (V16) (V00)
039 003 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 535 268 500 (V26) (V00)
040 003 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 534 262 490 (V36) (V00)
041 003 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 504 248 492 (V46) (V00)
042 003 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 515 258 500 (V56) (V00)
%Serie 8, BAM test chart order 2:26
043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 493 502 748 (V02) (V00)
044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 565 530 796 (V12) (V00)
045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 445 500 723 (V22) (V00)
046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 449 490 719 (V32) (V00)
047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 419 492 705 (V42) (V00)
048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 443 500 722 (V52) (V00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 477 000 000 (V61) (V62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 462 000 000 (V09) (V00)
051 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 554 000 000 (V19) (V00)
052 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 565 000 000 (V29) (V00)
053 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 460 000 000 (V39) (V00)
054 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 438 000 000 (V49) (V00)
055 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 525 000 000 (V59) (V00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 003 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 476 230 484 (V61) (V00)
057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 444 483 713 (V62) (V00)
] def %END R57VIK1i

%**************************************************************************
/R57KIT1i [%BEG R57KIT1i top data KIT1_ELCD, only 3 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 RDV DV1 DV2 KIT_1 KIT_2
%Serie 1, BAM test chart order 1:25
%57x2 = 114 data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 523 000 000 (K03) (K04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 454 000 000 (K13) (K14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 450 000 000 (K23) (K24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 400 000 000 (K33) (K34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 429 000 000 (K43) (K44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 501 000 000 (K53) (K54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 541 000 000 (K06) (K05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 497 000 000 (K16) (K15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 526 000 000 (K26) (K25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 529 000 000 (K36) (K35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 452 000 000 (K46) (K45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 438 000 000 (K56) (K55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 454 000 000 (K01) (K02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 714 000 000 (K11) (K12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 435 000 000 (K21) (K22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 479 000 000 (K31) (K32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 304 000 000 (K41) (K42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 505 000 000 (K51) (K52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 479 000 000 (K09) (K19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 329 000 000 (K29) (K39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 604 000 000 (K49) (K59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 587 000 000 (K09) (K59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 552 000 000 (K49) (K39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 347 000 000 (K29) (K19)
%Serie 5, BAM test chart order 2:26
025 003 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 483 220 455 (K03) (K00)
026 003 099 100 101 102 103 (W)  (Wv) (VW) (0)  (0) 522 232 444 (K13) (K00)
027 003 109 110 111 112 113 (W)  (Wm) (MW) (0)  (0) 539 255 473 (K23) (K00)
028 003 119 120 121 122 123 (W)  (Wo) (OW) (0)  (0) 505 226 447 (K33) (K00)
029 003 129 130 131 132 133 (W)  (Wy) (YW) (0)  (0) 510 235 460 (K43) (K00)
030 003 139 140 141 142 143 (W)  (Wl) (LW) (0)  (0) 542 251 463 (K53) (K00)
%Serie 6, BAM test chart order 2:26
031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 383 455 664 (K04) (K00)
032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 386 444 659 (K14) (K00)
033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 445 473 708 (K24) (K00)
034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 437 447 689 (K34) (K00)
035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 477 460 718 (K44) (K00)
036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 432 463 695 (K54) (K00)
%Serie 7, BAM test chart order 2:26
037 003 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 557 285 511 (K06) (K00)
038 003 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0) 450 217 482 (K16) (K00)
039 003 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 558 291 521 (K26) (K00)
040 003 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 589 284 482 (K36) (K00)
041 003 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 556 273 491 (K46) (K00)
042 003 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 586 270 460 (K56) (K00)
%Serie 8, BAM test chart order 2:26
043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 515 511 763 (K02) (K00)
044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 584 482 785 (K12) (K00)
045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 402 521 714 (K22) (K00)
046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 459 482 720 (K32) (K00)
047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 369 491 679 (K42) (K00)
048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 509 460 735 (K52) (K00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 244 000 000 (K61) (K62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 476 000 000 (K09) (K00)
051 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 526 000 000 (K19) (K00)
052 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 607 000 000 (K29) (K00)
053 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 500 000 000 (K39) (K00)
054 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 525 000 000 (K49) (K00)
055 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 552 000 000 (K59) (K00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 004 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 529 244 461 (K61) (K00)
057 004 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 463 461 711 (K62) (K00)
] def %END R57KIT1i

%**************************************************************************
/R57KIT2i [%BEG R57KIT2i top data KIT2_ELCD, only 3 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 RDV DV1 DV2 KIT_1 KIT_2
%Serie 1, BAM test chart order 1:25
%57x2 = 114 data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 494 000 000 (K03) (K04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 441 000 000 (K13) (K14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 464 000 000 (K23) (K24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 464 000 000 (K33) (K34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 491 000 000 (K43) (K44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 473 000 000 (K53) (K54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 488 000 000 (K06) (K05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 497 000 000 (K16) (K15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 535 000 000 (K26) (K25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 502 000 000 (K36) (K35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 467 000 000 (K46) (K45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 429 000 000 (K56) (K55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 458 000 000 (K01) (K02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 720 000 000 (K11) (K12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 429 000 000 (K21) (K22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 502 000 000 (K31) (K32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 341 000 000 (K41) (K42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 508 000 000 (K51) (K52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 505 000 000 (K09) (K19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 329 000 000 (K29) (K39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 585 000 000 (K49) (K59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 557 000 000 (K09) (K59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 511 000 000 (K49) (K39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 373 000 000 (K29) (K19)
%Serie 5, BAM test chart order 2:26
025 003 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 468 223 476 (K03) (K00)
026 003 099 100 101 102 103 (W)  (Wv) (VW) (0)  (0) 442 208 470 (K13) (K00)
027 003 109 110 111 112 113 (W)  (Wm) (MW) (0)  (0) 471 223 473 (K23) (K00)
028 003 119 120 121 122 123 (W)  (Wo) (OW) (0)  (0) 519 244 470 (K33) (K00)
029 003 129 130 131 132 133 (W)  (Wy) (YW) (0)  (0) 474 241 508 (K43) (K00)
030 003 139 140 141 142 143 (W)  (Wl) (LW) (0)  (0) 481 217 451 (K53) (K00)
%Serie 6, BAM test chart order 2:26
031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 398 476 685 (K04) (K00)
032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 460 470 714 (K14) (K00)
033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 413 473 691 (K24) (K00)
034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 411 470 688 (K34) (K00)
035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 615 508 811 (K44) (K00)
036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 448 451 697 (K54) (K00)
%Serie 7, BAM test chart order 2:26
037 003 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 546 276 505 (K06) (K00)
038 003 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0) 345 170 492 (K16) (K00)
039 003 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 563 282 500 (K26) (K00)
040 003 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 585 282 482 (K36) (K00)
041 003 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 597 299 500 (K46) (K00)
042 003 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 603 272 451 (K56) (K00)
%Serie 8, BAM test chart order 2:26
043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 511 505 758 (K02) (K00)
044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 671 492 833 (K12) (K00)
045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 463 500 732 (K22) (K00)
046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 440 482 710 (K32) (K00)
047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 403 500 702 (K42) (K00)
048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 460 451 704 (K52) (K00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 464 000 000 (K61) (K62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 511 000 000 (K09) (K00)
051 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 541 000 000 (K19) (K00)
052 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 594 000 000 (K29) (K00)
053 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 470 000 000 (K39) (K00)
054 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 528 000 000 (K49) (K00)
055 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 570 000 000 (K59) (K00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 003 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 480 223 464 (K61) (K00)
057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 509 464 737 (K62) (K00)
] def %END R57KIT2i

%***************************************************************************
/R57MEL1i [%BEG R57MEL1i top data MEL1_ELCD, only 3 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 RDV DV1 DV2 MEL_1 MEL_2
%Serie 1, BAM test chart order 1:25
%49x2 = 98 data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 505 000 000 (M03) (M04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 526 000 000 (M13) (M14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 507 000 000 (M23) (M24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 465 000 000 (M33) (M34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 564 000 000 (M43) (M44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 511 000 000 (M53) (M54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 561 000 000 (M06) (M05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 515 000 000 (M16) (M15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 512 000 000 (M26) (M25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 519 000 000 (M36) (M35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 532 000 000 (M46) (M45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 511 000 000 (M56) (M55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 449 000 000 (M01) (M02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 591 000 000 (M11) (M12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 434 000 000 (M21) (M22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 475 000 000 (M31) (M32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 368 000 000 (M41) (M42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 443 000 000 (M51) (M52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 510 000 000 (M09) (M19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 344 000 000 (M29) (M39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 492 000 000 (M49) (M59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 464 000 000 (M09) (M59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 474 000 000 (M49) (M39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 559 000 000 (M29) (M19)
%Serie 5, BAM test chart order 2:26
025 003 089 090 091 000 000 (W)  (Wc) (CW) (0)  (0) 502 000 000 (M03) (M00)
026 003 099 100 101 102 103 (W)  (Wv) (VW) (0)  (0) 517 000 000 (M13) (M00)
027 003 109 110 111 112 113 (W)  (Wm) (MW) (0)  (0) 494 000 000 (M23) (M00)
028 003 119 120 121 122 123 (W)  (Wo) (OW) (0)  (0) 474 000 000 (M33) (M00)
029 003 129 130 131 132 133 (W)  (Wy) (YW) (0)  (0) 510 000 000 (M43) (M00)
030 003 139 140 141 142 143 (W)  (Wl) (LW) (0)  (0) 512 000 000 (M53) (M00)
%Serie 6, BAM test chart order 2:26
031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 574 000 000 (M04) (M00)
032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 465 000 000 (M14) (M00)
033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 574 000 000 (M24) (M00)
034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 569 000 000 (M34) (M00)
035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 506 000 000 (M44) (M00)
036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 537 000 000 (M54) (M00)
%Serie 7, BAM test chart order 2:26
037 003 149 150 151 000 000 (C)  (Cn) (CN) (0)  (0) 562 000 000 (M06) (M00)
038 003 159 160 161 000 000 (V)  (Vn) (VN) (0)  (0) 590 000 000 (M16) (M00)
039 003 169 170 171 000 000 (M)  (Mn) (MN) (0)  (0) 426 000 000 (M26) (M00)
040 003 179 180 181 000 000 (O)  (On) (ON) (0)  (0) 430 000 000 (M36) (M00)
041 003 189 190 191 000 000 (Y)  (Yn) (YN) (0)  (0) 469 000 000 (M46) (M00)
042 003 199 200 201 000 000 (L)  (Ln) (LN) (0)  (0) 575 000 000 (M56) (M00)
%Serie 8, BAM test chart order 2:26
043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 483 000 000 (M02) (M00)
044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 498 000 000 (M12) (M00)
045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 441 000 000 (M22) (M00)
046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 434 000 000 (M32) (M00)
047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 581 000 000 (M42) (M00)
048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 526 000 000 (M52) (M00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
049 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 505 000 000 (M61) (M62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
050 004 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 000 000 000 (M09) (M00)
051 004 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 000 000 000 (M19) (M00)
052 004 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 000 000 000 (M29) (M00)
053 004 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 000 000 000 (M39) (M00)
054 004 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 000 000 000 (M49) (M00)
055 004 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 000 000 000 (M59) (M00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
056 004 079 080 081 000 000 (W)  (Wn) (WN) (0)  (0) 000 000 000 (M61) (M00)
057 004 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 000 000 000 (M62) (M00)
] def %END R57MEL1i

%*************************************************************
/R58VIK1i [%BEG R58VIK1i top data VIK1_ELCD with 5 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV1 DV2 DV3 VIK_1 VIK_2
%Serie 1, BAM test chart order 1:25
%24x2+12x4+1x2+6x2+1x4=114 final data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 434 000 000 (V03) (V04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 452 000 000 (V13) (V14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 430 000 000 (V23) (V24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 431 000 000 (V33) (V34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 474 000 000 (V43) (V44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 480 000 000 (V53) (V54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 543 000 000 (V06) (V05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 602 000 000 (V16) (V15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 515 000 000 (V26) (V25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 520 000 000 (V36) (V35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 487 000 000 (V46) (V45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 514 000 000 (V56) (V55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 451 000 000 (V01) (V02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 622 000 000 (V11) (V12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 457 000 000 (V21) (V22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 464 000 000 (V31) (V32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 346 000 000 (V41) (V42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 499 000 000 (V51) (V52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 506 000 000 (V09) (V19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 375 000 000 (V29) (V39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 517 000 000 (V49) (V59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 517 000 000 (V09) (V59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 509 000 000 (V49) (V39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 396 000 000 (V29) (V19)
%Serie 5, BAM test chart order 2:26
025 005 089 090 091 092 093 (W)  (Wc) (CW) (Cw) (C) 206 428 643 (V03) (V00)
026 005 099 100 101 102 103 (W)  (Wv) (VW) (Vw) (V) 236 474 695 (V13) (V00)
027 005 109 110 111 112 113 (W)  (Wm) (MW) (Mw) (M) 231 469 690 (V23) (V00)
028 005 119 120 121 122 123 (W)  (Wo) (OW) (Ow) (O) 224 452 678 (V33) (V00)
029 005 129 130 131 132 133 (W)  (Wy) (YW) (Yw) (Y) 176 488 732 (V43) (V00)
030 005 139 140 141 142 143 (W)  (Wl) (LW) (Lw) (L) 232 471 698 (V53) (V00)
%Serie 6, BAM test chart order 2:26
%031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 375 428 643 (V04) (V00)
%032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 420 474 695 (V14) (V00)
%033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 416 469 690 (V24) (V00)
%034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 412 452 678 (V34) (V00)
%035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 476 488 732 (V44) (V00)
%036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 429 471 698 (V54) (V00)
%Serie 7, BAM test chart order 2:26
031 003 149 150 151 152 153 (C)  (Cn) (CN) (Nc) (N) 268 502 748 (V06) (V00)
032 003 159 160 161 162 163 (V)  (Vn) (VN) (Nv) (N) 267 530 796 (V16) (V00)
033 003 169 170 171 172 173 (M)  (Mn) (MN) (Nm) (N) 268 500 723 (V26) (V00)
034 003 179 180 181 182 183 (O)  (On) (ON) (No) (N) 262 490 719 (V36) (V00)
035 003 189 190 191 192 193 (Y)  (Yn) (YN) (Ny) (N) 248 492 705 (V46) (V00)
036 003 199 200 201 202 203 (L)  (Ln) (LN) (Nl) (N) 258 500 722 (V56) (V00)
%Serie 8, BAM test chart order 2:26
%043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 493 502 748 (V02) (V00)
%044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 565 530 796 (V12) (V00)
%045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 445 500 723 (V22) (V00)
%046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 449 490 719 (V32) (V00)
%047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 419 492 705 (V42) (V00)
%048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 443 500 722 (V52) (V00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
037 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 477 000 000 (V61) (V62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
038 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 462 000 000 (V09) (V00)
039 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 554 000 000 (V19) (V00)
040 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 565 000 000 (V29) (V00)
041 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 460 000 000 (V39) (V00)
042 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 438 000 000 (V49) (V00)
043 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 525 000 000 (V59) (V00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
044 005 079 080 081 082 083 (W)  (Wn) (WN) (Nw) (N) 230 484 713 (V61) (V00)
%057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 444 484 713 (V62) (V00)
] def %END R58VIK1i

%*************************************************************************
/R58KIT1i [%BEG R58KIT1i top data KIT1_ELCD with 5 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV1 DV2 DV3 KIT_1 KIT_2
%Serie 1, BAM test chart order 1:25
%24x2+12x4+1x2+6x2+1x4=114 final data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 523 000 000 (K03) (K04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 454 000 000 (K13) (K14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 450 000 000 (K23) (K24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 400 000 000 (K33) (K34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 429 000 000 (K43) (K44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 501 000 000 (K53) (K54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 541 000 000 (K06) (K05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 497 000 000 (K16) (K15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 526 000 000 (K26) (K25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 529 000 000 (K36) (K35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 452 000 000 (K46) (K45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 438 000 000 (K56) (K55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 454 000 000 (K01) (K02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 714 000 000 (K11) (K12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 435 000 000 (K21) (K22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 479 000 000 (K31) (K32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 304 000 000 (K41) (K42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 505 000 000 (K51) (K52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 479 000 000 (K09) (K19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 329 000 000 (K29) (K39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 604 000 000 (K49) (K59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 587 000 000 (K09) (K59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 552 000 000 (K49) (K39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 347 000 000 (K29) (K19)
%Serie 5, BAM test chart order 2:26
025 005 089 090 091 092 093 (W)  (Wc) (CW) (Cw) (C) 220 455 664 (K03) (K00)
026 005 099 100 101 102 103 (W)  (Wv) (VW) (Vw) (V) 232 444 659 (K13) (K00)
027 005 109 110 111 112 113 (W)  (Wm) (MW) (Mw) (M) 255 473 708 (K23) (K00)
028 005 119 120 121 122 123 (W)  (Wo) (OW) (Ow) (O) 226 447 689 (K33) (K00)
029 005 129 130 131 132 133 (W)  (Wy) (YW) (Yw) (Y) 235 460 718 (K43) (K00)
030 005 139 140 141 142 143 (W)  (Wl) (LW) (Lw) (L) 251 463 695 (K53) (K00)
%Serie 6, BAM test chart order 2:26
%031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 383 455 664 (K04) (K00)
%032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 386 444 659 (K14) (K00)
%033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 445 473 708 (K24) (K00)
%034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 437 447 689 (K34) (K00)
%035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 477 460 718 (K44) (K00)
%036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 432 463 695 (K54) (K00)
%Serie 7, BAM test chart order 2:26
031 005 149 150 151 152 153 (C)  (Cn) (CN) (Nc) (N) 285 511 763 (K06) (K00)
032 005 159 160 161 162 163 (V)  (Vn) (VN) (Nv) (N) 217 482 785 (K16) (K00)
033 005 169 170 171 172 173 (M)  (Mn) (MN) (Nm) (N) 291 521 714 (K26) (K00)
034 005 179 180 181 182 183 (O)  (On) (ON) (No) (N) 284 482 720 (K36) (K00)
035 005 189 190 191 192 193 (Y)  (Yn) (YN) (Ny) (N) 273 491 679 (K46) (K00)
036 005 199 200 201 202 203 (L)  (Ln) (LN) (Nl) (N) 270 460 735 (K56) (K00)
%Serie 8, BAM test chart order 2:26
%043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 515 511 763 (K02) (K00)
%044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 584 482 785 (K12) (K00)
%045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 402 521 714 (K22) (K00)
%046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 459 482 720 (K32) (K00)
%047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 369 491 679 (K42) (K00)
%048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 509 460 735 (K52) (K00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
037 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 244 000 000 (K61) (K62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
038 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 476 000 000 (K09) (K00)
039 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 526 000 000 (K19) (K00)
040 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 607 000 000 (K29) (K00)
041 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 500 000 000 (K39) (K00)
042 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 525 000 000 (K49) (K00)
043 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 552 000 000 (K59) (K00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
044 005 079 080 081 082 083 (W)  (Wn) (WN) (Nw) (N) 244 461 711 (K61) (K00)
%057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 463 461 711 (K62) (K00)
] def %END R58KIT1i

%**************************************************************************
/R58KIT2i [%BEG R58KIT2i top data KIT2_ELCD with 5 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15  16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV1 DV2 DV3 KIT_1 KIT_2
%Serie 1, BAM test chart order 1:25
%24x2+12x4+1x2+6x2+1x4=114 final data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 494 000 000 (K03) (K04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 441 000 000 (K13) (K14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 464 000 000 (K23) (K24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 464 000 000 (K33) (K34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 491 000 000 (K43) (K44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 473 000 000 (K53) (K54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 488 000 000 (K06) (K05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 497 000 000 (K16) (K15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 535 000 000 (K26) (K25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 502 000 000 (K36) (K35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 467 000 000 (K46) (K45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 429 000 000 (K56) (K55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 458 000 000 (K01) (K02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 720 000 000 (K11) (K12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 429 000 000 (K21) (K22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 502 000 000 (K31) (K32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 341 000 000 (K41) (K42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 508 000 000 (K51) (K52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 505 000 000 (K09) (K19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 329 000 000 (K29) (K39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 585 000 000 (K49) (K59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 557 000 000 (K09) (K59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 511 000 000 (K49) (K39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 373 000 000 (K29) (K19)
%Serie 5, BAM test chart order 2:26
025 005 089 090 091 092 093 (W)  (Wc) (CW) (Cw) (C) 223 476 685 (K03) (K00)
026 005 099 100 101 102 103 (W)  (Wv) (VW) (Vw) (V) 208 470 714 (K13) (K00)
027 005 109 110 111 112 113 (W)  (Wm) (MW) (Mw) (M) 223 473 691 (K23) (K00)
028 005 119 120 121 122 123 (W)  (Wo) (OW) (Ow) (O) 244 470 688 (K33) (K00)
029 005 129 130 131 132 133 (W)  (Wy) (YW) (Yw) (Y) 241 508 811 (K43) (K00)
030 005 139 140 141 142 143 (W)  (Wl) (LW) (Lw) (L) 217 451 697 (K53) (K00)
%Serie 6, BAM test chart order 2:26
%031 003 091 092 093 000 000 (CW) (Cw) (C)  (0)  (0) 398 476 685 (K04) (K00)
%032 003 101 102 103 000 000 (VW) (Vw) (V)  (0)  (0) 460 470 714 (K14) (K00)
%033 003 111 112 113 000 000 (MW) (Mw) (M)  (0)  (0) 413 473 691 (K24) (K00)
%034 003 121 122 123 000 000 (OW) (Ow) (O)  (0)  (0) 411 470 688 (K34) (K00)
%035 003 131 132 133 000 000 (YW) (Yw) (Y)  (0)  (0) 615 508 811 (K44) (K00)
%036 003 141 142 143 000 000 (LW) (Lw) (L)  (0)  (0) 448 451 697 (K54) (K00)
%Serie 7, BAM test chart order 2:26
031 005 149 150 151 152 153 (C)  (Cn) (CN) (Nc) (N) 276 505 758 (K06) (K00)
032 005 159 160 161 162 163 (V)  (Vn) (VN) (Nv) (N) 170 492 833 (K16) (K00)
033 005 169 170 171 172 173 (M)  (Mn) (MN) (Nm) (N) 282 500 732 (K26) (K00)
034 005 179 180 181 182 183 (O)  (On) (ON) (No) (N) 282 482 710 (K36) (K00)
035 005 189 190 191 192 193 (Y)  (Yn) (YN) (Ny) (N) 299 500 702 (K46) (K00)
036 005 199 200 201 202 203 (L)  (Ln) (LN) (Nl) (N) 272 451 704 (K56) (K00)
%Serie 8, BAM test chart order 2:26
%043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 511 505 758 (K02) (K00)
%044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 671 492 833 (K12) (K00)
%045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 463 500 732 (K22) (K00)
%046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 440 482 710 (K32) (K00)
%047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 403 500 702 (K42) (K00)
%048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 460 451 704 (K52) (K00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
037 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 464 000 000 (K61) (K62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
038 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 511 000 000 (K09) (K00)
039 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 541 000 000 (K19) (K00)
040 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 594 000 000 (K29) (K00)
041 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 470 000 000 (K39) (K00)
042 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 528 000 000 (K49) (K00)
043 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 570 000 000 (K59) (K00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
044 005 079 080 081 082 083 (W)  (Wn) (WN) (Nw) (N) 223 464 737 (K61) (K00)
%057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 509 223 464 737 (K62) (K00)
] def %END R58KIT2i

%***************************************************************************
/R58MEL1i [%BEG R58MEL1i top data MEL1_ELCD with 5 step relative data
%0  1   2   3   4   5   6   7    8    9    10   11  12  13  14  15    16
%N  S   N1  N2  N3  N4  N5  NA1  NA2  NA3  NA4  NA5 DV1 DV2 DV3 MEL_1 MEL_2
%Serie 1, BAM test chart order 1:25
%24x2+12x4+1x2=max 98 final data= use 96 final data
001 003 001 002 003 000 000 (W)  (CW) (C)  (0)  (0) 505 000 000 (M03) (M04)
002 003 007 008 009 000 000 (W)  (VW) (V)  (0)  (0) 526 000 000 (M13) (M14)
003 003 013 014 015 000 000 (W)  (MW) (M)  (0)  (0) 507 000 000 (M23) (M24)
004 003 019 020 021 000 000 (W)  (OW) (O)  (0)  (0) 465 000 000 (M33) (M34)
005 003 025 026 027 000 000 (W)  (YW) (Y)  (0)  (0) 564 000 000 (M43) (M44)
006 003 031 032 033 000 000 (W)  (LW) (L)  (0)  (0) 511 000 000 (M53) (M54)
%Serie 2, BAM test chart order 1:25
007 003 037 038 039 000 000 (C)  (CN) (N)  (0)  (0) 561 000 000 (M06) (M05)
008 003 043 044 045 000 000 (V)  (VN) (N)  (0)  (0) 515 000 000 (M16) (M15)
009 003 049 050 051 000 000 (M)  (MN) (N)  (0)  (0) 512 000 000 (M26) (M25)
010 003 055 056 057 000 000 (O)  (ON) (N)  (0)  (0) 519 000 000 (M36) (M35)
011 003 061 062 063 000 000 (Y)  (YN) (N)  (0)  (0) 532 000 000 (M46) (M45)
012 003 067 068 069 000 000 (L)  (LN) (N)  (0)  (0) 511 000 000 (M56) (M55)
%Serie 3, BAM test chart order 3:27
013 003 209 210 211 000 000 (W)  (C)  (N)  (0)  (0) 449 000 000 (M01) (M02)
014 003 215 216 217 000 000 (W)  (V)  (N)  (0)  (0) 591 000 000 (M11) (M12)
015 003 221 222 223 000 000 (W)  (M)  (N)  (0)  (0) 434 000 000 (M21) (M22)
016 003 227 228 229 000 000 (W)  (O)  (N)  (0)  (0) 475 000 000 (M31) (M32)
017 003 233 234 235 000 000 (W)  (Y)  (N)  (0)  (0) 368 000 000 (M41) (M42)
018 003 239 240 241 000 000 (W)  (L)  (N)  (0)  (0) 443 000 000 (M51) (M52)
%Serie 4, BAM test chart order 3:27
019 003 245 246 247 000 000 (C)  (V)  (M)  (0)  (0) 510 000 000 (M09) (M19)
020 003 251 252 253 000 000 (M)  (O)  (Y)  (0)  (0) 344 000 000 (M29) (M39)
021 003 257 258 259 000 000 (Y)  (L)  (C)  (0)  (0) 492 000 000 (M49) (M59)
022 003 263 264 265 000 000 (V)  (C)  (L)  (0)  (0) 464 000 000 (M09) (M59)
023 003 269 270 271 000 000 (L)  (Y)  (O)  (0)  (0) 474 000 000 (M49) (M39)
024 003 275 276 277 000 000 (O)  (M)  (V)  (0)  (0) 559 000 000 (M29) (M19)
%Serie 5, BAM test chart order 2:26
025 005 089 090 091 092 093 (W)  (Wc) (CW) (Cw) (C) 254 505 785 (M03) (M00)
026 005 099 100 101 102 103 (W)  (Wv) (VW) (Vw) (V) 272 526 746 (M13) (M00)
027 005 109 110 111 112 113 (W)  (Wm) (MW) (Mw) (M) 250 507 790 (M23) (M00)
028 005 119 120 121 122 123 (W)  (Wo) (OW) (Ow) (O) 220 465 769 (M33) (M00)
029 005 129 130 131 132 133 (W)  (Wy) (YW) (Yw) (Y) 288 564 785 (M43) (M00)
030 005 139 140 141 142 143 (W)  (Wl) (LW) (Lw) (L) 262 511 774 (M53) (M00)
%Serie 6, BAM test chart order 2:26
%031 003 091 092 093 000 000 (CW) (Cw) (C) (0)  (0) 574 000 000 (M04) (M00)
%032 003 101 102 103 000 000 (VW) (Vw) (V) (0)  (0) 465 000 000 (M14) (M00)
%033 003 111 112 113 000 000 (MW) (Mw) (M) (0)  (0) 574 000 000 (M24) (M00)
%034 003 121 122 123 000 000 (OW) (Ow) (O) (0)  (0) 569 000 000 (M34) (M00)
%035 003 131 132 133 000 000 (YW) (Yw) (Y) (0)  (0) 506 000 000 (M44) (M00)
%036 003 141 142 143 000 000 (LW) (Lw) (L) (0)  (0) 537 000 000 (M54) (M00)
%Serie 7, BAM test chart order 2:26
031 005 149 150 151 152 153 (C)  (Cn) (CN) (Nc) (N) 316 561 773 (M06) (M00)
032 005 159 160 161 162 163 (V)  (Vn) (VN) (Nv) (N) 304 515 757 (M16) (M00)
033 005 169 170 171 172 173 (M)  (Mn) (MN) (Nm) (N) 218 512 727 (M26) (M00)
034 005 179 180 181 182 183 (O)  (On) (ON) (No) (N) 223 519 728 (M36) (M00)
035 005 189 190 191 192 193 (Y)  (Yn) (YN) (Ny) (N) 250 532 804 (M46) (M00)
036 005 199 200 201 202 203 (L)  (Ln) (LN) (Nl) (N) 293 511 768 (M56) (M00)
%Serie 8, BAM test chart order 2:26
%043 003 151 152 153 000 000 (CN) (Nc) (N)  (0)  (0) 483 000 000 (M02) (M00)
%044 003 161 162 163 000 000 (VN) (Nv) (N)  (0)  (0) 498 000 000 (M12) (M00)
%045 003 171 172 173 000 000 (MN) (Nm) (N)  (0)  (0) 441 000 000 (M22) (M00)
%046 003 181 182 183 000 000 (ON) (No) (N)  (0)  (0) 434 000 000 (M32) (M00)
%047 003 191 192 193 000 000 (YN) (Ny) (N)  (0)  (0) 581 000 000 (M42) (M00)
%048 003 201 202 203 000 000 (LN) (Nl) (N)  (0)  (0) 526 000 000 (M52) (M00)
%Serie 2N, BAM test chart order 1:25, 1 triplet
037 003 073 074 075 000 000 (W)  (WN) (N)  (0)  (0) 505 000 000 (M61) (M62)
%Serie 9, BAM test chart order 3:27, 3 x 5 step series-> 3 x 2 triplets
%dummy of VIK experiments
038 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 462 000 000 (V09) (V00)
039 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 554 000 000 (V19) (V00)
040 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 565 000 000 (V29) (V00)
041 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 460 000 000 (V39) (V00)
042 003 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 438 000 000 (V49) (V00)
043 003 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 525 000 000 (V59) (V00)
%no experiment of Melgosa, no used
%038 003 281 282 283 000 000 (C)  (CV) (V)  (0)  (0) 000 510 000 (M09) (M00)
%039 003 283 284 285 000 000 (V)  (MV) (M)  (0)  (0) 000 490 000 (M19) (M00)
%040 003 291 292 293 000 000 (M)  (MO) (O)  (0)  (0) 000 344 000 (M29) (M00)
%041 003 293 294 295 000 000 (O)  (YO) (Y)  (0)  (0) 000 656 000 (M39) (M00)
%042 004 301 302 303 000 000 (Y)  (YL) (L)  (0)  (0) 000 492 000 (M49) (M00)
%043 004 303 304 305 000 000 (L)  (CL) (C)  (0)  (0) 000 508 000 (M59) (M00)
%Serie 2N, BAM test chart order 1:25, 1 x 5 step series-> 1 x 2 triplets
%dummy of VIK experiments
044 005 079 080 081 082 083 (W)  (Wn) (WN) (Nw) (N) 230 484 713 (V61) (V00)
%057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 444 484 713 (V62) (V00)
%no experiment of Melgosa, no used
%044 005 079 080 081 082 083 (W)  (Wn) (WN) (Nw) (N) 000 505 000 (M61) (M00)
%057 003 081 082 083 000 000 (WN) (Nw) (N)  (0)  (0) 000 000 000 (M62) (M00)
] def %END R58MEL1i

%*************************************************************
/D114NAMi 200 array def
0 1 113 {/i exch def %i=0,113
         D114NAMi i (0) put
        } for %i=0,113

%112 pairs: 12 triplets = 24 pairs (page 1)
%           12 triplets = 24 pairs (page 3)
%           06 triplets = 12 pairs (page 3)
%           9 5 step series (page 2) = 36 pairs
%           01 triplet (W-Z-N) = 2 pairs
%           3 5 step series (page 2) = 12 pairs
%           01 5 step series (W-H-Z-D-N) = 4 pairs
%           total 114 pairs
%           
/D116NAMi [%BEG D114NAMi
%page 1: 12 triplets
(CW_W) (CW-C) (VW-W) (VW-V) (MW-W) (MW-M) %6 triplets, each 6 pairs
(OW_W) (OW-O) (YW-W) (YW-Y) (LW-W) (LW-L)

(CN-C) (CN-N) (VN-V) (VN-N) (MN-M) (MN-N) %6 triplets, each 6 pairs
(ON-O) (ON-N) (YN-Y) (YN-N) (LN-L) (LN-N)

%page 3: 12 triplets
(C-W) (C-N)  (V-W) (V-N)  (M-W) (W-N) %6 triplets, each 6 pairs
(O-W) (O-N)  (Y-W) (Y-N)  (L-W) (L-N)

(V-C) (V-M)  (O-M) (O-Y)  (L-Y) (L-C) %6 triplets, each 6 pairs
(C-V) (C-L)  (Y-L) (Y-O)  (M-O) (M-V)

%page 2: 12 x 5 step series: each 5 step series
%page 2: 12 x 4 pairs = 48 pairs
(W-Wc) (Wc-CW) (CW-Cw) (Cw-C) %01 each 4 pairs
(W-Wv) (Wv-VW) (VW-Vw) (Vw-V) %02
(W-Wm) (Wm-MW) (MW-Mw) (Mw-M) %03
(W-Wo) (Wo-OW) (OW-Ow) (Ow-O) %04
(W-Wy) (Wy-YW) (YW-Yw) (Yw-Y) %05
(W-Wl) (Wl-LW) (LW-Lw) (Lw-L) %06

(C-Cn) (Cn-CN) (CN-Nc) (Nc-N) %07
(V-Vn) (Vn-VN) (VN-Nv) (Nv-N) %08
(M-Mn) (Mn-MN) (MN-Nm) (Nm-N) %09
(O-On) (On-ON) (ON-No) (No-N) %10
(Y-Yn) (Yn-YN) (YN-Ny) (Ny-N) %11
(L-Ln) (Ln-LN) (LN-Nl) (Nl-N) %12

(Z-W)  (Z-N)                  %triplet, 2 pairs

%page 3: 6 triplets, each 2 pairs
%5 step series C-CV-V-MV-M, only two triplets evaluations
(CV-C) (CV-V) %01 each 2 pairs
(VM-V) (VM-M) %02
%5 step series M-MO-O-YO-Y, only two triplets evaluations
(MO-M) (MO-O) %03
(YO-O) (YO-Y) %04
%5 step series Y-YL-L_CL_C, only two triplets evaluations
(YL-Y) (YL-L) %05
(CL-L) (CL-C) %06

(H-W)  (H-Z)   (D-Z)   (D-N)  %5 step series, 4 pairs
( ) % more default
] def %END D114NAMi

%***************************************************************
/VIK_VIS1_Ei 1500 array def %max 100x15, real 70x12
%VIK (2007), Test chart 1, mean of 14 observers, Table4_1.TXT
/VIK_VIS1_Ei
[%YE060-7T.TXT
%YE060-7N, , Colour difference experiments ELCD_E, VA_EE069=VIK_ADJACENT_EE
%no i1 i2
%       VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1  COD2   COD3
%0  1 2 3     4     5   6   7   8   9      10     11
%page 25: triplets
 0  1 1 0.433 0.046 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25 0.434 0.046) %
 1  2 1 0.452 0.074 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 0.452 0.075) %
 2  3 1 0.429 0.065 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25 0.430 0.066) %
 3  4 1 0.430 0.082 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25 0.431 0.082) %
 4  5 1 0.473 0.108 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 0.474 0.109) %
 5  6 1 0.480 0.071 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25 0.480 0.072) %
 6  7 1 0.542 0.081 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25 0.543 0.082) %
 7  8 1 0.602 0.097 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25 0.602 0.098) %
 8  9 1 0.515 0.080 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25 0.515 0.080) %
 9 10 1 0.520 0.070 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25 0.520 0.071) %
10 11 1 0.487 0.088 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25 0.487 0.088) %
11 12 1 0.513 0.082 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25 0.514 0.083) %
%page 27: triplets
12 13 1 0.451 0.058 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27 0.451 0.?) %
13 14 1 0.622 0.045 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27 0.622 0.?) %
14 15 1 0.457 0.062 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27 0.457 0.?) %
15 16 1 0.464 0.077 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27 0.464 0.?) %
16 17 1 0.346 0.101 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27 0.347 0.?) %
17 18 1 0.499 0.060 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27 0.499 0.?) %
18 19 1 0.506 0.083 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27 0.499 0.?) %
19 20 1 0.375 0.111 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27 0.375 0.?) %
20 21 1 0.517 0.056 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27 0.518 0.?) %
21 22 1 0.517 0.088 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27 0.518 0.?) %
22 23 1 0.509 0.087 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27 0.509 0.?) %
23 24 1 0.396 0.126 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27 0.397 0.?) %
%page 26: 5-step series
24 25 1 0.206 0.042 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26 0.207 0.042) %
25 25 2 0.0 0.0 0.428 0.048 0.0 0.0 (W-WC) (WC-C) (2:26 0.428 0.048) %
26 25 3 0.0 0.0 0.0 0.0 0.643 0.064 (W-Cw) (Cw-C) (3:26 0.643 0.064) %
27 26 1 0.236 0.046 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26 0.236 0.047) %
28 26 2 0.0 0.0 0.474 0.056 0.0 0.0 (W-WV) (WV-V) (2:26 0.474 0.057) %
29 26 3 0.0 0.0 0.0 0.0 0.695 0.051 (W-Vw) (Vw-V) (3:26 0.697 0.053) %
30 27 1 0.231 0.041 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26 0.231 0.042) %
31 27 2 0.0 0.0 0.469 0.049 0.0 0.0 (W-WM) (WM-M) (2:26 0.469 0.049) %
32 27 3 0.0 0.0 0.0 0.0 0.690 0.065 (W-Mw) (Mw-M) (3:26 0.690 0.066) %
33 28 1 0.223 0.049 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26 0.224 0.049) %
34 28 2 0.0 0.0 0.452 0.049 0.0 0.0 (W-WO) (WO-O) (2:26 0.453 0.049) %
35 28 3 0.0 0.0 0.0 0.0 0.678 0.070 (W-Ow) (Ow-O) (3:26 0.679 0.070) %
36 29 1 0.175 0.042 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26 0.176 0.043) %
37 29 2 0.0 0.0 0.488 0.053 0.0 0.0 (W-WY) (WY-Y) (2:26 0.489 0.053) %
38 29 3 0.0 0.0 0.0 0.0 0.732 0.086 (W-Yw) (Yw-Y) (3:26 0.732 0.086) %
39 30 1 0.232 0.062 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26 0.232 0.062) %
40 30 2 0.0 0.0 0.471 0.061 0.0 0.0 (W-WL) (WL-L) (2:26 0.471 0.061) %
41 30 3 0.0 0.0 0.0 0.0 0.698 0.069 (W-Lw) (Lw-L) (3:26 0.699 0.070) %
42 31 1 0.268 0.055 0.0 0.0 0.0 0.0 (C-Cn) (Cn-N) (1:26 0.268 0.055) %
43 31 2 0.0 0.0 0.502 0.062 0.0 0.0 (C-CN) (CN-N) (2:26 0.502 0.062) %
44 31 3 0.0 0.0 0.0 0.0 0.748 0.056 (C-Nc) (Nc-N) (3:26 0.749 0.056) %
45 32 1 0.267 0.070 0.0 0.0 0.0 0.0 (V-Vn) (Vn-N) (1:26 0.268 0.070) %
46 32 2 0.0 0.0 0.530 0.063 0.0 0.0 (V-VN) (VN-N) (2:26 0.531 0.063) %
47 32 3 0.0 0.0 0.0 0.0 0.796 0.050 (V-Nv) (Nv-N) (3:26 0.796 0.050) %
48 33 1 0.268 0.041 0.0 0.0 0.0 0.0 (M-Mn) (Mn-N) (1:26 0.269 0.042) %
49 33 2 0.0 0.0 0.500 0.040 0.0 0.0 (M-MN) (MN-N) (2:26 0.501 0.041) %
50 33 3 0.0 0.0 0.0 0.0 0.723 0.056 (M-Nm) (Nm-N) (3:26 0.724 0.057) %
51 34 1 0.262 0.063 0.0 0.0 0.0 0.0 (O-On) (On-N) (1:26 0.262 0.063) %
52 34 2 0.0 0.0 0.490 0.035 0.0 0.0 (O-ON) (ON-N) (2:26 0.491 0.036) %
53 34 3 0.0 0.0 0.0 0.0 0.719 0.052 (O-No) (No-N) (3:26 0.719 0.053) %
54 35 1 0.248 0.060 0.0 0.0 0.0 0.0 (Y-Yn) (Yn-N) (1:26 0.248 0.061) %
55 35 2 0.0 0.0 0.492 0.063 0.0 0.0 (Y-YN) (YN-N) (2:26 0.492 0.063) %
56 35 3 0.0 0.0 0.0 0.0 0.705 0.066 (Y-Ny) (Ny-N) (3:26 0.705 0.066) %
57 36 1 0.258 0.053 0.0 0.0 0.0 0.0 (L-Ln) (Ln-N) (1:26 0.258 0.053) %
58 36 2 0.0 0.0 0.500 0.040 0.0 0.0 (L-LN) (LN-N) (2:26 0.501 0.041) %
59 36 3 0.0 0.0 0.0 0.0 0.722 0.054 (L-Nl) (Nl-N) (3:26 0.723 0.054) %
%page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations
60 37 1 0.462 0.087 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27 0.462 0.?) %
61 38 1 0.554 0.072 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27 0.554 0.?) %
%page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations
62 39 1 0.565 0.138 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27 0.565 0.?) %
63 40 1 0.460 0.085 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27 0.460 0.?) %
%page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations
64 41 1 0.438 0.074 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27 0.439 0.?) %
65 42 1 0.525 0.108 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27 0.525 0.?) %
%page 25: triplet W-N
66 43 1 0.477 0.046 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25 0.478 0.046) %
%page 25: 5-step grey top x 13%W-N
67 44 1 0.230 0.051 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25 0.230 0.051) %
68 44 2 0.0 0.0 0.483 0.047 0.0 0.0 (W-WN) (WN-N) (1:25 0.477 0.038) %
69 44 3 0.0 0.0 0.0 0.0 0.713 0.042 (W-Nw) (Nw-N) (1:25 0.714 0.042) %
] def VIK_VIS1_Ei

%******************************************************************************
/KIT_VIS1_Ei 1500 array def %max 100x15, real 70x12
%Kittelmann (2005), Test chart 1, 17 observers, 32 fields, D-Work, Table4_1.TXT
/KIT_VIS1_Ei
[%YE070-7T.TXT
%YE070-7N, Colour difference experiments ELCD_E, KA_EE069=KIT_ADJACENT_EE
%no i1 i2
%       VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1  COD2   COD3
%0 1 2 3     4     5   6   7   8   9      10     11
%page 25: triplets
0 1 1 0.523 0.115 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25) %
1 2 1 0.454 0.11 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25) %
2 3 1 0.45 0.112 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25) %
3 4 1 0.4 0.084 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25) %
4 5 1 0.429 0.143 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25) %
5 6 1 0.501 0.136 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25) %

6 7 1 0.541 0.137 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25) %
7 8 1 0.497 0.189 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25) %
8 9 1 0.526 0.129 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25) %
9 10 1 0.529 0.131 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25) %
10 11 1 0.452 0.13 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25) %
11 12 1 0.438 0.14 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25) %
%page 27: triplets
12 13 1 0.454 0.12 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27) %
13 14 1 0.714 0.074 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27) %
14 15 1 0.435 0.098 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27) %
15 16 1 0.479 0.112 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27) %
16 17 1 0.304 0.098 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27) %
17 18 1 0.505 0.093 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27) %

18 19 1 0.479 0.097 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27) %
19 20 1 0.329 0.128 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27) %
20 21 1 0.604 0.094 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27) %
21 22 1 0.587 0.128 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27) %
22 23 1 0.552 0.089 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27) %
23 24 1 0.347 0.131 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27) %
%page 26: 5-step series
24 25 1 0.22 0.038 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26) %
25 25 2 0.0 0.0 0.455 0.09 0.0 0.0 (W-WC) (WC-C) (2:26) %
26 25 3 0.0 0.0 0.0 0.0 0.664 0.095 (W-Cw) (Cw-C) (3:26) %
27 26 1 0.232 0.059 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26) %
28 26 2 0.0 0.0 0.444 0.07 0.0 0.0 (W-WV) (WV-V) (2:26) %
29 26 3 0.0 0.0 0.0 0.0 0.659 0.076 (W-Vw) (Vw-V) (3:26) %
30 27 1 0.255 0.063 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26) %
31 27 2 0.0 0.0 0.473 0.085 0.0 0.0 (W-WM) (WM-M) (2:26) %
32 27 3 0.0 0.0 0.0 0.0 0.708 0.086 (W-Mw) (Mw-M) (3:26) %
33 28 1 0.226 0.062 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26) %
34 28 2 0.0 0.0 0.447 0.089 0.0 0.0 (W-WO) (WO-O) (2:26) %
35 28 3 0.0 0.0 0.0 0.0 0.689 0.089 (W-Ow) (Ow-O) (3:26) %
36 29 1 0.235 0.081 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26) %
37 29 2 0.0 0.0 0.46 0.089 0.0 0.0 (W-WY) (WY-Y) (2:26) %
38 29 3 0.0 0.0 0.0 0.0 0.718 0.108 (W-Yw) (Yw-Y) (3:26) %
39 30 1 0.251 0.078 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26) %
40 30 2 0.0 0.0 0.463 0.066 0.0 0.0 (W-WL) (WL-L) (2:26) %
41 30 3 0.0 0.0 0.0 0.0 0.695 0.096 (W-Lw) (Lw-L) (3:26) %
42 31 1 0.285 0.081 0.0 0.0 0.0 0.0 (C-Cn) (Cn-N) (1:26) %
43 31 2 0.0 0.0 0.511 0.063 0.0 0.0 (C-CN) (CN-N) (2:26) %
44 31 3 0.0 0.0 0.0 0.0 0.763 0.064 (C-Nc) (Nc-N) (3:26) %
45 32 1 0.217 0.109 0.0 0.0 0.0 0.0 (V-Vn) (Vn-N) (1:26) %
46 32 2 0.0 0.0 0.482 0.096 0.0 0.0 (V-VN) (VN-N) (2:26) %
47 32 3 0.0 0.0 0.0 0.0 0.785 0.08 (V-Nv) (Nv-N) (3:26) %
48 33 1 0.291 0.075 0.0 0.0 0.0 0.0 (M-Mn) (Mn-N) (1:26) %
49 33 2 0.0 0.0 0.521 0.09 0.0 0.0 (M-MN) (MN-N) (2:26) %
50 33 3 0.0 0.0 0.0 0.0 0.714 0.096 (M-Nm) (Nm-N) (3:26) %
51 34 1 0.284 0.096 0.0 0.0 0.0 0.0 (O-On) (On-N) (1:26) %
52 34 2 0.0 0.0 0.482 0.096 0.0 0.0 (O-ON) (ON-N) (2:26) %
53 34 3 0.0 0.0 0.0 0.0 0.72 0.109 (O-No) (No-N) (3:26) %
54 35 1 0.273 0.097 0.0 0.0 0.0 0.0 (Y-Yn) (Yn-N) (1:26) %
55 35 2 0.0 0.0 0.491 0.116 0.0 0.0 (Y-YN) (YN-N) (2:26) %
56 35 3 0.0 0.0 0.0 0.0 0.679 0.128 (Y-Ny) (Ny-N) (3:26) %
57 36 1 0.27 0.082 0.0 0.0 0.0 0.0 (L-Ln) (Ln-N) (1:26) %
58 36 2 0.0 0.0 0.46 0.067 0.0 0.0 (L-LN) (LN-N) (2:26) %
59 36 3 0.0 0.0 0.0 0.0 0.735 0.068 (L-Nl) (Nl-N) (3:26) %
%page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations
60 37 1 0.476 0.105 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27) %
61 38 1 0.526 0.089 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27) %
%page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations
62 39 1 0.607 0.205 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27) %
63 40 1 0.5 0.102 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27) %
%page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations
64 41 1 0.525 0.143 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27) %
65 42 1 0.552 0.127 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27) %
%page 25: triplet W-N
66 43 1 0.45 0.078 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25) %

67 44 1 0.244 0.048 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25) %
68 44 2 0.0 0.0 0.461 0.047 0.0 0.0 (W-WN) (WN-N) (1:25) %
69 44 3 0.0 0.0 0.0 0.0 0.711 0.071 (W-Nw) (Nw-N) (1:25) %
] def KIT_VIS1_Ei

%******************************************************************************
/KIT_VIS2_Ei 1500 array def %max 100x15, real 70x12
%Kittelmann (2005), Test chart 1, 17 observers, 32 fields, D-Work, Table4_1.TXT
/KIT_VIS2_Ei
[%XG480-7T.TXT
%XG480-7N, Colour difference experiments ELCD_E, KS_EE069=KIT_SEPARATE_EE
%no i1 i2
%       VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1  COD2   COD3
%0 1 2 3    4     5   6   7   8   9      10     11
%page 25: triplets
0 1 1 0.494 0.101 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25) %
1 2 1 0.441 0.159 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25) %
2 3 1 0.464 0.103 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25) %
3 4 1 0.464 0.108 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25) %
4 5 1 0.491 0.18 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25) %
5 6 1 0.473 0.128 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25) %

6 7 1 0.488 0.149 0.0 0.0 0.0 0.0 (C-CN) (CN-N) (1:25) %
7 8 1 0.497 0.185 0.0 0.0 0.0 0.0 (V-VN) (VN-N) (1:25) %
8 9 1 0.535 0.119 0.0 0.0 0.0 0.0 (M-MN) (MN-N) (1:25) %
9 10 1 0.502 0.1 0.0 0.0 0.0 0.0 (O-ON) (ON-N) (1:25) %
10 11 1 0.467 0.125 0.0 0.0 0.0 0.0 (Y-YN) (YN-N) (1:25) %
11 12 1 0.429 0.117 0.0 0.0 0.0 0.0 (L-LN) (LN-N) (1:25) %
%page 27: triplets
12 13 1 0.458 0.114 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27) %
13 14 1 0.72 0.074 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27) %
14 15 1 0.429 0.098 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27) %
15 16 1 0.502 0.118 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27) %
16 17 1 0.341 0.125 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27) %
17 18 1 0.508 0.091 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27) %
18 19 1 0.505 0.08 0.0 0.0 0.0 0.0 (C-V) (V-M) (1:27) %

19 20 1 0.329 0.126 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27) %
20 21 1 0.585 0.087 0.0 0.0 0.0 0.0 (Y-L) (L-C) (1:27) %
21 22 1 0.557 0.137 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27) %
22 23 1 0.511 0.135 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27) %
23 24 1 0.373 0.158 0.0 0.0 0.0 0.0 (O-M) (M-V) (1:27) %
%page 26: 5-step series
24 25 1 0.223 0.062 0.0 0.0 0.0 0.0 (W-Wc) (Wc-C) (1:26) %
25 25 2 0.0 0.0 0.476 0.092 0.0 0.0 (W-CW) (CW-C) (2:26) %
26 25 3 0.0 0.0 0.0 0.0 0.685 0.106 (W-Cw) (Cw-C) (3:26) %
27 26 1 0.208 0.064 0.0 0.0 0.0 0.0 (W-Wv) (Wv-V) (1:26) %
28 26 2 0.0 0.0 0.47 0.087 0.0 0.0 (W-VW) (VW-V) (2:26) %
29 26 3 0.0 0.0 0.0 0.0 0.714 0.098 (W-Vw) (Vw-V) (3:26) %
30 27 1 0.223 0.059 0.0 0.0 0.0 0.0 (W-Wm) (Wm-M) (1:26) %
31 27 2 0.0 0.0 0.473 0.054 0.0 0.0 (W-MW) (MW-M) (2:26) %
32 27 3 0.0 0.0 0.0 0.0 0.691 0.064 (W-Mw) (Mw-M) (3:26) %
33 28 1 0.244 0.061 0.0 0.0 0.0 0.0 (W-Wo) (Wo-O) (1:26) %
34 28 2 0.0 0.0 0.47 0.064 0.0 0.0 (W-OW) (OW-O) (2:26) %
35 28 3 0.0 0.0 0.0 0.0 0.688 0.063 (W-Ow) (Ow-O) (3:26) %
36 29 1 0.241 0.087 0.0 0.0 0.0 0.0 (W-Wy) (Wy-Y) (1:26) %
37 29 2 0.0 0.0 0.508 0.101 0.0 0.0 (W-YW) (YW-Y) (2:26) %
38 29 3 0.0 0.0 0.0 0.0 0.811 0.093 (W-Yw) (Yw-Y) (3:26) %
39 30 1 0.217 0.048 0.0 0.0 0.0 0.0 (W-Wl) (Wl-L) (1:26) %
40 30 2 0.0 0.0 0.451 0.082 0.0 0.0 (W-LW) (LW-L) (2:26) %
41 30 3 0.0 0.0 0.0 0.0 0.697 0.089 (W-Lw) (Lw-L) (3:26) %
42 31 1 0.276 0.1 0.0 0.0 0.0 0.0 (C-Cw) (Cw-N) (1:26) %
43 31 2 0.0 0.0 0.505 0.085 0.0 0.0 (C-CN) (CN-N) (2:26) %
44 31 3 0.0 0.0 0.0 0.0 0.758 0.059 (C-Nc) (Nc-N) (3:26) %
45 32 1 0.17 0.072 0.0 0.0 0.0 0.0 (V-Vw) (Vw-N) (1:26) %
46 32 2 0.0 0.0 0.492 0.116 0.0 0.0 (V-VN) (VN-N) (2:26) %
47 32 3 0.0 0.0 0.0 0.0 0.833 0.056 (V-Nv) (Nv-N) (2:26) %
48 33 1 0.282 0.099 0.0 0.0 0.0 0.0 (M-Mw) (Mw-N) (1:26) %
49 33 2 0.0 0.0 0.5 0.117 0.0 0.0 (M-MN) (MN-N) (2:26) %
50 33 3 0.0 0.0 0.0 0.0 0.732 0.112 (M-Nm) (Nm-N) (3:26) %
51 34 1 0.282 0.089 0.0 0.0 0.0 0.0 (O-Ow) (Ow-N) (1:26) %
52 34 2 0.0 0.0 0.482 0.102 0.0 0.0 (O-ON) (ON-N) (2:26) %
53 34 3 0.0 0.0 0.0 0.0 0.71 0.116 (O-No) (No-N) (3:26) %
54 35 1 0.299 0.09 0.0 0.0 0.0 0.0 (Y-Yw) (Yw-N) (1:26) %
55 35 2 0.0 0.0 0.5 0.122 0.0 0.0 (Y-YN) (YN-N) (2:26) %
56 35 3 0.0 0.0 0.0 0.0 0.702 0.118 (Y-Ny) (Ny-N) (3:26) %
57 36 1 0.272 0.102 0.0 0.0 0.0 0.0 (L-Lw) (Lw-N) (1:26) %
58 36 2 0.0 0.0 0.451 0.105 0.0 0.0 (L-LN) (LN-N) (2:26) %
59 36 3 0.0 0.0 0.0 0.0 0.704 0.11 (L-Nl) (Nl-N) (3:26) %
%page 27: 5-step series C-CV-V-MV-M, only two triplet evaluations
60 37 1 0.511 0.109 0.0 0.0 0.0 0.0 (C-CV) (CV-V) (1:27) %
61 38 1 0.541 0.131 0.0 0.0 0.0 0.0 (V-VM) (VM-M) (1:27) %
%page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations
62 39 1 0.594 0.175 0.0 0.0 0.0 0.0 (M-MO) (MO-O) (1:27) %
63 40 1 0.47 0.108 0.0 0.0 0.0 0.0 (O-YO) (YO-Y) (1:27) %
%page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations
64 41 1 0.528 0.131 0.0 0.0 0.0 0.0 (Y-YL) (YL-L) (1:27) %
65 42 1 0.57 0.147 0.0 0.0 0.0 0.0 (L-CL) (CL-C) (1:27) %
%page 25: triplet W-N
66 43 1 0.464 0.09 0.0 0.0 0.0 0.0 (W-WN) (WN-N) (1:25) %

67 44 1 0.223 0.051 0.0 0.0 0.0 0.0 (W-Wn) (Wn-N) (1:25) %
68 44 2 0.0 0.0 0.464 0.085 0.0 0.0 (W-WN) (WN-N) (2:25) %
69 44 3 0.0 0.0 0.0 0.0 0.737 0.093 (W-Nw) (Nw-N) (3:25) %

] def KIT_VIS2_Ei

%******************************************************************************
/MEL_VIS1_Ei 1500 array def %max 100x15, real 70x12
%49 series x 4 of Melgosa, already mean values
/MEL_VIS1_Ei
[%XG480-7T.TXT
%XG480-7N, Colour difference experiments ELCD_E, MA_EE049=MEL_ADJACENT_EE
%no i1 i2
%       VIS1 VID1 VIS2 VID2 VIS3 VID3 COD1  COD2   COD3
%0 1 2 3    4     5   6   7   8   9      10     11
%page 25
0 1 1 0.505 0.105 0.0 0.0 0.0 0.0 (W-CW) (CW-C) (1:25 5.06 1.08 S1-1) %
1 2 1 0.526 0.120 0.0 0.0 0.0 0.0 (W-VW) (VW-V) (1:25 5.27 1.24 S1-2) %
2 3 1 0.507 0.131 0.0 0.0 0.0 0.0 (W-MW) (MW-M) (1:25 5.08 1.35 S1-3) %
3 4 1 0.465 0.095 0.0 0.0 0.0 0.0 (W-OW) (OW-O) (1:25 4.65 0.98 S1-4) %
4 5 1 0.564 0.154 0.0 0.0 0.0 0.0 (W-YW) (YW-Y) (1:25 5.65 1.60 S1-5) %
5 6 1 0.511 0.096 0.0 0.0 0.0 0.0 (W-LW) (LW-L) (1:25 5.12 0.99 S1-6) %

6 7 1 0.561 0.114 0.0 0.0 0.0 0.0 (N-CN) (CN-C) (1:25 5.62 1.20 S2-1) %
7 8 1 0.515 0.157 0.0 0.0 0.0 0.0 (N-VN) (VN-V) (1:25 5.15 1.62 S2-2) %
8 9 1 0.512 0.109 0.0 0.0 0.0 0.0 (N-MN) (MN-M) (1:25 5.13 1.13 S2-3) %
9 10 1 0.519 0.119 0.0 0.0 0.0 0.0 (N-ON) (ON-O) (1:25 5.20 1.22 S2-4) %
10 11 1 0.532 0.116 0.0 0.0 0.0 0.0 (N-YN) (YN-Y) (1:25 5.33 1.20 S2-5) %
11 12 1 0.511 0.122 0.0 0.0 0.0 0.0 (N-LN) (LN-L) (1:25 5.12 1.27 S2-6) %
%page 27
12 13 1 0.449 0.119 0.0 0.0 0.0 0.0 (W-C) (C-N) (1:27 5.51 1.23 S3-1) %
13 14 1 0.591 0.12 0.0 0.0 0.0 0.0 (W-V) (V-N) (1:27 4.09 1.24 S3-2) %
14 15 1 0.434 0.121 0.0 0.0 0.0 0.0 (W-M) (M-N) (1:27 5.67 1.25 S3-3) %
15 16 1 0.475 0.117 0.0 0.0 0.0 0.0 (W-O) (O-N) (1:27 5.25 1.24 S3-4) %
16 17 1 0.368 0.108 0.0 0.0 0.0 0.0 (W-Y) (Y-N) (1:27 6.33 1.11 S3-5) %
17 18 1 0.443 0.111 0.0 0.0 0.0 0.0 (W-L) (L-N) (1:27 5.58 1.15 S3-6) %

%page 26: only triplets of 5-step series
24 25 1 0.502 0.097 0.0 0.0 0.0 0.0 (CW-Wc)(Wc-W) (1:26 4.98 1.00 S5-1) %
25 26 1 0.517 0.108 0.0 0.0 0.0 0.0 (VW-Wv)(Wv-W) (1:26 4.83 1.12 S5-2) %
26 27 1 0.494 0.101 0.0 0.0 0.0 0.0 (MW-Wm)(Wm-W) (1:26 5.06 1.04 S5-3) %
27 28 1 0.474 0.099 0.0 0.0 0.0 0.0 (OW-Wo)(Wo-W) (1:26 5.25 1.03 S5-4) %
28 29 1 0.51 0.113 0.0 0.0 0.0 0.0 (YW-Wy)(Wy-W) (1:26 4.89 1.16 S5-5) %
29 30 1 0.512 0.108 0.0 0.0 0.0 0.0 (LW-Wl)(Wl-W) (1:26 4.88 1.12 S5-6) %

30 31 1 0.574 0.074 0.0 0.0 0.0 0.0 (CW-Cw)(Cw-C) (1:26 4.25 0.76 S6-1) %
31 32 1 0.465 0.154 0.0 0.0 0.0 0.0 (VW-Vw)(Vw-V) (1:26 5.34 1.59 S6-2) %
32 33 1 0.574 0.065 0.0 0.0 0.0 0.0 (MW-Mw)(Mw-M) (1:26 4.26 0.68 S6-3) %
33 34 1 0.569 0.083 0.0 0.0 0.0 0.0 (OW-Ow)(Ow-O) (1:26 4.31 0.86 S6-4) %
34 35 1 0.506 0.08 0.0 0.0 0.0 0.0 (YW-Yw)(Yw-Y) (1:26 4.93 0.83 S6-5) %
35 36 1 0.537 0.106 0.0 0.0 0.0 0.0 (LW-Lw)(Lw-L) (1:26 4.63 1.10 S6-6) %

36 37 1 0.562 0.077 0.0 0.0 0.0 0.0 (CN-Cn)(Cn-C) (1:26 5.63 0.79 S7-1) %
37 38 1 0.59 0.085 0.0 0.0 0.0 0.0 (VN-Vn)(Vn-V) (1:26 5.91 0.88 S7-2) %
38 39 1 0.426 0.08 0.0 0.0 0.0 0.0 (M-Mn) (Mn-MN)(1:26 5.73 0.82 S7-3) %
39 40 1 0.43 0.086 0.0 0.0 0.0 0.0 (O-On) (On-ON)(1:26 5.69 0.88 S7-4) %
40 41 1 0.469 0.13 0.0 0.0 0.0 0.0 (YN-Yn)(Yn-Y) (1:26 4.70 1.34 S7-5) %
41 42 1 0.575 0.083 0.0 0.0 0.0 0.0 (LN-Ln)(Ln-L) (1:26 5.76 0.86 S7-6) %

42 43 1 0.483 0.112 0.0 0.0 0.0 0.0 (CN-Nc)(Nc-N) (1:26 5.17 1.15 S8-1) %
43 44 1 0.498 0.158 0.0 0.0 0.0 0.0 (VN-Nv)(Nv-N) (1:26 5.02 1.63 S8-2) %
44 45 1 0.441 0.115 0.0 0.0 0.0 0.0 (MN-Nm)(Nm-N) (1:26 5.58 1.19 S8-3) %
45 46 1 0.434 0.104 0.0 0.0 0.0 0.0 (ON-No)(No-N) (1:26 5.65 1.07 S8-4) %
46 47 1 0.581 0.094 0.0 0.0 0.0 0.0 (N-Ny) (Ny-YN)(1:26 5.82 0.97 S8-5) %
47 48 1 0.526 0.128 0.0 0.0 0.0 0.0 (N-Nl) (Nl-LN)(1:26 5.27 1.32 S8-6) %

%page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations
18 19 1 0.51 0.119 0.0 0.0 0.0 0.0 (M-V) (V-C) (1:27 4.90 1.23 S4-1) %
19 20 1 0.344 0.098 0.0 0.0 0.0 0.0 (M-O) (O-Y) (1:27 6.57 1.01 S4-2) %
%page 27: 5 step series M-MO-O-YO-Y, only two triplet evaluations
20 21 1 0.492 0.084 0.0 0.0 0.0 0.0 (C-L) (L-Y) (1:27 5.08 0.86 S4-3) %
21 22 1 0.464 0.1 0.0 0.0 0.0 0.0 (V-C) (C-L) (1:27 5.35 1.03 S4-4) %
%page 27: 5 step series Y-YL-L_CL_C, only two triplet evaluations
22 23 1 0.474 0.078 0.0 0.0 0.0 0.0 (L-Y) (Y-O) (1:27 5.26 0.81 S4-5) %
23 24 1 0.559 0.141 0.0 0.0 0.0 0.0 (V-M) (M-O) (1:27 4.41 1.45 S4-6) %

%page 25: triplet W-N
48 49 1 0.505 0.056 0.0 0.0 0.0 0.0 (N-NW) (NW-W) (1:27 5.06 0.58 S2-7) %
] def MEL_VIS1_Ei

%*********************************************************
%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 3 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 3 def} ifelse
/xchart5f where {pop /xchart5 xchart5f def}
                {/xchart5 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetaMD pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

%see Kittelmann DWORK, page 9
/XWD6502  95.05 def
/YWD6502 100.00 def
/ZWD6502 108.90 def

/XW XWD6502 def
/YW YWD6502 def
/ZW ZWD6502 def

/FL 0.000001 def
/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/CIEL*0i 310 array def
/CIEa*0i 310 array def
/CIEb*0i 310 array def

/X0i 310 array def
/Y0i 310 array def
/Z0i 310 array def

%calculate XYZ-values for 310 colours

0 1 309 {/i exch def %i=0,309
         /i10 i 10 mul def
         CIEL*0i i LAB_KIi i10 1 add get put
         CIEa*0i i LAB_KIi i10 2 add get put
         CIEb*0i i LAB_KIi i10 3 add get put
         /X* {CIEL*0i i get 16 add 116 div
              CIEa*0i i get 500 div add} bind def
         /Y* {CIEL*0i i get 16 add 116 div} bind def
         /Z* {CIEL*0i i get 16 add 116 div
              CIEb*0i i get 200 div sub} bind def
         X0i i X* DecodeXYZ* XW mul put
         Y0i i Y* DecodeXYZ* YW mul put
         Z0i i Z* DecodeXYZ* ZW mul put
        } for %i=0,309

%*************************************************************

/IMR 043 def %(max IMR=043; IMR=37=without series C-V- and W-Wn-WN-Nw-N
/IM 056 def %(max IM=056; IM=46=without series C-V- and W-Wn-WN-Nw-
/IM0 113 def %(max IM=057)*2-1 = 057 X 2-1

%XK41
%xchart3 2 le {/IM 43 def} if %VA, KA, KS
%xchart3 3 eq {/IM 48 def} if %MA

0 1 IM0 {/i exch def %i=0,IM0
         /i10 i 10 mul def
         0 1 9 {/j exch def %j=0,9
                Wdata1 i10 j add 1. put
                Wdata2 i10 j add 1. put
               } for %j=0,9
        } for %i=0,IM0


/R57xSERi 2000 array def
0 1 1999 {/i exch def
          R57xSERi i 1 put
         } for

/ioutn 1 def %0/1 with 3 step data and without/with 5-step data
ioutn 0 eq {%ioutn=0
0 1 IMR {/ii exch def %ii=0,IMR
         /i17 ii 17 mul def
         0 1 16 {/j exch def %j=0,16
                 xchart3 0 eq {R57xSERi i17 j add
                               R57VIK1i i17 j add get put} if
                 xchart3 1 eq {R57xSERi i17 j add
                               R57KIT1i i17 j add get put} if
                 xchart3 2 eq {R57xSERi i17 j add
                               R57KIT2i i17 j add get put} if
                 xchart3 3 eq {R57xSERi i17 j add
                               R57MEL1i i17 j add get put} if
                } for %j=0,16
        } for %ii=0,IMR
} if %ioutn=0

ioutn 1 eq {%ioutn=1
0 1 IMR {/ii exch def %ii=0,IMR
         /i17 ii 17 mul def
         0 1 16 {/j exch def %j=0,16
                 xchart3 0 eq {R57xSERi i17 j add
                               R58VIK1i i17 j add get put} if
                 xchart3 1 eq {R57xSERi i17 j add
                               R58KIT1i i17 j add get put} if
                 xchart3 2 eq {R57xSERi i17 j add
                               R58KIT2i i17 j add get put} if
                 xchart3 3 eq {R57xSERi i17 j add
                               R58MEL1i i17 j add get put} if
                } for %j=0,16
       } for %ii=0,IMR
} if %ioutn=1

/D57xSERi 2000 array def

%xchart4=0 and 1: calculation for CIELAB and CIEDE2000

0 1 IM {/ii exch def %ii=0,IM
         /i16 ii 16 mul def
         0 1 15 {/j exch def %j=0,15
                 xchart4 2 eq {D57xSERi i16 j add
                               D57SERWi i16 j add get put} if
                 xchart4 3 eq {D57xSERi i16 j add
                               D57SERVi i16 j add get put} if
                } for %j=0,15
        } for %ii=0,IM

/DV*1 200 array def
/DV*2 200 array def

0 1 IM {/ii exch def %ii=0,IM
         /i16 ii 16 mul def
         DV*1 ii 1. put %default
         DV*2 ii 1. put
        } for %ii=0,IM

xchart4 2 ge {%xchart4>=2 (only for WANG and VIK)
0 1 IM {/ii exch def %ii=0,IM
         /D57xSER12 D57xSERi i16 12 add get def
         /D57xSER13 D57xSERi i16 13 add get def
          DV*1 ii D57xSER12 put
          DV*2 ii D57xSER13 put
         xchart4 2 eq {%xchart4=2 %corection for WANG only
                       D57xSER12 0 ne {%D57xSER12#0
                       DV*1 ii D57xSER12 42.62 div
                       1. 1.1322 div exp 10 mul put
                                      } if %D57xSER12#0
                       D57xSER13 0 ne {%D57xSER13#0
                       DV*2 ii D57xSER13 42.62 div
                       1. 1.1322 div exp 10 mul put
                                      } if %D57xSER13#0
                      } if %xchart4=2 %corection for WANG only
        } for %ii=0,IM
} if %xchart4>=2 (only for WANG and VIK)

%calculation order   in D57xSERi based on comparison data
%           of CIELAB, CIEDE2000, WANG and VIK (xchart4=0,1,2,3)
%relative data order in R57xSERi equal to order in D57xSERi
%                                of VIK1, KIT1, KIT2, MEL1 (xchart3=0,1,2,3)

%Series XK41..01..XK48: ioutn=1
%       XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL
%       XK45..01..XK48: VIK_ELCD  (xchart3=0,1,2,3, xchart4=3) REL

%Series XK51..01..XK58: ioutn=0
%       XK51..01..XK54: CIELAB    (xchart3=0,1,2,3, xchart4=0)
%       XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1)

%Series XK61..01..XK68: ioutn=0
%       XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C
%       XK65..01..XK68: VIK-ELCD  (xchart3=0,1,2,3, xchart4=3) Pair C

/ix -1 def

0 1 IM {/ii exch def %ii=0,IM
        /i17 ii 17 mul def

/S  R57xSERi i17 1 add get def

S 3 eq {%S=3        
/N1 R57xSERi i17 2 add get 1 sub def %Nx-count STARTs at "1"
/N2 R57xSERi i17 3 add get 1 sub def
/N3 R57xSERi i17 4 add get 1 sub def

/X10 X0i N1 get def
/Y10 Y0i N1 get def
/Z10 Z0i N1 get def

/X20 X0i N2 get def
/Y20 Y0i N2 get def
/Z20 Z0i N2 get def

/X30 X0i N3 get def
/Y30 Y0i N3 get def
/Z30 Z0i N3 get def

0 1 1 {/i exch def %i=0,1
       i 0 eq {%i=0,1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X10 def
               /Y1 Y10 def
               /Z1 Z10 def
              } if %i=0
       i 1 eq {%i=1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X30 def
               /Y1 Y30 def
               /Z1 Z30 def
              } if %i=1

proc_coldiff

} for %i=0,1

xchart4 0 eq {%xchart4=0 %CIELAB
              /DLAB21 d_CIELABi 0 get def
              /DLAB32 d_CIELABi 1 get def
             } if %xchart4=0

xchart4 1 eq {%xchart4=1 %CIEDE2000
              /DLAB21 d_C00LCHi 0 get def
              /DLAB32 d_C00LCHi 1 get def
             } if %xchart4=1

xchart4 2 ge {%xchart4>=2 %WANG and VIK
              /DLAB21 DV*1 ii get def
              /DLAB32 DV*2 ii get def
             } if %xchart4>=2

/SUM3 DLAB21 DLAB32 add def

/DREL321 DLAB21 SUM3 FL add div def
/DREL332 DLAB32 SUM3 FL add div def

/ii17 ii 17 mul def
/VREL321 R57xSERi ii17 12 add get 0.001 mul def
/VREL332 1 VREL321 sub def

/ix ix 1 add def

/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X10 put} if
        j 7 eq {Wdata1 ix10 7 add Y10 put} if
        j 8 eq {Wdata1 ix10 8 add Z10 put} if
        j 9 eq {Wdata1 ix10 9 add VREL321 SUM3 mul put
                Wdata2 ix10 0 add SUM3             put
                Wdata2 ix10 1 add DLAB21           put
                Wdata2 ix10 2 add DREL321          put
                Wdata2 ix10 3 add VREL321          put
                Wdata2 ix10 4 add 1 DREL321 sub    put
                Wdata2 ix10 5 add 1 VREL321 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (3x)  put
               } if
       } for %j=0,9

%STOP2

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X30 put} if
        j 7 eq {Wdata1 ix10 7 add Y30 put} if
        j 8 eq {Wdata1 ix10 8 add Z30 put} if
        j 9 eq {Wdata1 ix10 9 add VREL332 SUM3 mul put
                Wdata2 ix10 0 add SUM3             put
                Wdata2 ix10 1 add DLAB32           put
                Wdata2 ix10 2 add DREL332          put
                Wdata2 ix10 3 add VREL332          put
                Wdata2 ix10 4 add 1 DREL332 sub    put
                Wdata2 ix10 5 add 1 VREL332 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (3y)  put
               } if
       } for %j=0,9
%STOP3
} if %S=3

S 4 eq {%S=4
/N1 R57xSERi i17 2 add get 1 sub def %Nx-count starts at "1"
/N2 R57xSERi i17 3 add get 1 sub def
/N3 R57xSERi i17 4 add get 1 sub def

/X10 X0i N1 get def
/Y10 Y0i N1 get def
/Z10 Z0i N1 get def

/X20 X0i N2 get def
/Y20 Y0i N2 get def
/Z20 Z0i N2 get def

/X30 X0i N3 get def
/Y30 Y0i N3 get def
/Z30 Z0i N3 get def

0 1 1 {/i exch def %i=0,1
       i 0 eq {%i=0,1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X10 def
               /Y1 Y10 def
               /Z1 Z10 def
              } if %i=0
       i 1 eq {%i=1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X30 def
               /Y1 Y30 def
               /Z1 Z30 def
              } if %i=1
%requires "i" for input and output
proc_coldiff

} for %i=0,1

xchart4 0 eq {%xchart4=0
              /DLAB21 d_CIELABi 0 get def
              /DLAB32 d_CIELABi 1 get def
              /SUM4 DLAB21 DLAB32 add def
              /DREL421 DLAB21 SUM4 FL add div def
              /DREL432 DLAB32 SUM4 FL add div def
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
              /DLAB21 d_C00LCHi 0 get def
              /DLAB32 d_C00LCHi 1 get def
              /SUM4 DLAB21 DLAB32 add def
              /DREL421 DLAB21 SUM4 FL add div def
              /DREL432 DLAB32 SUM4 FL add div def
             } if %xchart4=1

xchart4 2 ge {%xchart4>=2
              /SUM4 DV*1 ii get def %include 5-step series
              /DLAB21 SUM4 VREL421 mul def
              /DLAB32 SUM4 VREL432 mul def
              /DREL421 DLAB21 SUM4 FL add div def %default
              /DREL432 DLAB32 SUM4 FL add div def
             } if %xchart4>=2

/VREL421   VIM1i ii get     def
/VREL432 1 VIM1i ii get sub def

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X10 put} if
        j 7 eq {Wdata1 ix10 7 add Y10 put} if
        j 8 eq {Wdata1 ix10 8 add Z10 put} if
        j 9 eq {Wdata1 ix10 9 add VREL421 SUM4 mul put
                Wdata2 ix10 0 add SUM4             put
                Wdata2 ix10 1 add DLAB21           put
                Wdata2 ix10 2 add DREL421          put
                Wdata2 ix10 3 add VREL421          put
                Wdata2 ix10 4 add 1 DREL421 sub    put
                Wdata2 ix10 5 add 1 VREL421 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (4x)  put
               } if
       } for %j=0,9

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X30 put} if
        j 7 eq {Wdata1 ix10 7 add Y30 put} if
        j 8 eq {Wdata1 ix10 8 add Z30 put} if
        j 9 eq {Wdata1 ix10 9 add VREL432 SUM4 mul put
                Wdata2 ix10 0 add SUM4             put
                Wdata2 ix10 1 add DLAB32           put
                Wdata2 ix10 2 add DREL432          put
                Wdata2 ix10 3 add VREL432          put
                Wdata2 ix10 4 add 1 DREL432 sub    put
                Wdata2 ix10 5 add 1 VREL432 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (4y)  put
               } if
       } for %j=0,9

       } if %S=4
S 5 eq {%S=5
/N1 R57xSERi i17 2 add get 1 sub def %Nx-count starts at "1"
/N2 R57xSERi i17 3 add get 1 sub def
/N3 R57xSERi i17 4 add get 1 sub def
/N4 R57xSERi i17 5 add get 1 sub def
/N5 R57xSERi i17 6 add get 1 sub def

/X10 X0i N1 get def
/Y10 Y0i N1 get def
/Z10 Z0i N1 get def

/X20 X0i N2 get def
/Y20 Y0i N2 get def
/Z20 Z0i N2 get def

/X30 X0i N3 get def
/Y30 Y0i N3 get def
/Z30 Z0i N3 get def

/X40 X0i N4 get def
/Y40 Y0i N4 get def
/Z40 Z0i N4 get def

/X50 X0i N5 get def
/Y50 Y0i N5 get def
/Z50 Z0i N5 get def

0 1 3 {/i exch def %i=0,3
       i 0 eq {%i=0,1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X10 def
               /Y1 Y10 def
               /Z1 Z10 def
              } if %i=0
       i 1 eq {%i=1
               /X0 X20 def
               /Y0 Y20 def
               /Z0 Z20 def
               /X1 X30 def
               /Y1 Y30 def
               /Z1 Z30 def
              } if %i=1
       i 2 eq {%i=2
               /X0 X40 def
               /Y0 Y40 def
               /Z0 Z40 def
               /X1 X30 def
               /Y1 Y30 def
               /Z1 Z30 def
              } if %i=2
       i 3 eq {%i=3
               /X0 X40 def
               /Y0 Y40 def
               /Z0 Z40 def
               /X1 X50 def
               /Y1 Y50 def
               /Z1 Z50 def
              } if %i=3

%requires "i" for input and output
proc_coldiff

} for %i=0,3

/ii17 ii 17 mul def
/VREL521 R57xSERi ii17 12 add get 0.001 mul
         0.0 sub def
/VREL532 R57xSERi ii17 13 add get 0.001 mul
         R57xSERi ii17 12 add get 0.001 mul sub def
/VREL543 R57xSERi ii17 14 add get 0.001 mul
         R57xSERi ii17 13 add get 0.001 mul sub def
/VREL554 1.0
         R57xSERi ii17 14 add get 0.001 mul sub def

xchart4 0 eq {%xchart4=0
              /DLAB21 d_CIELABi 0 get def
              /DLAB32 d_CIELABi 1 get def
              /DLAB43 d_CIELABi 2 get def
              /DLAB54 d_CIELABi 3 get def
              /SUM5 DLAB21 DLAB32 add DLAB43 add DLAB54 add def
              /DREL521 DLAB21 SUM5 FL add div def
              /DREL532 DLAB32 SUM5 FL add div def
              /DREL543 DLAB43 SUM5 FL add div def
              /DREL554 DLAB54 SUM5 FL add div def
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
              /DLAB21 d_C00LCHi 0 get def
              /DLAB32 d_C00LCHi 1 get def
              /DLAB43 d_C00LCHi 2 get def
              /DLAB54 d_C00LCHi 3 get def
              /SUM5 DLAB21 DLAB32 add DLAB43 add DLAB54 add def
              /DREL521 DLAB21 SUM5 FL add div def
              /DREL532 DLAB32 SUM5 FL add div def
              /DREL543 DLAB43 SUM5 FL add div def
              /DREL554 DLAB54 SUM5 FL add div def
             } if %xchart4=1

xchart4 2 ge {%xchart4>=2
              /SUM5 DV*1 ii get def %include 5-step series
              /DLAB21 SUM5 VREL521 mul def
              /DLAB32 SUM5 VREL532 mul def
              /DLAB43 SUM5 VREL543 mul def
              /DLAB54 SUM5 VREL554 mul def
              /DREL521 DLAB21 SUM5 FL add div def %default
              /DREL532 DLAB32 SUM5 FL add div def
              /DREL543 DLAB43 SUM5 FL add div def
              /DREL554 DLAB54 SUM5 FL add div def
             } if %xchart4=2


%/VREL521 VIM1i ii get 0            sub def
%/VREL532 VIM2i ii get VIM1i ii get sub def
%/VREL543 VIM3i ii get VIM2i ii get sub def
%/VREL554 1            VIM3i ii get sub def

%compare
%/ii17 ii 17 mul def
%/VREL321 R57xSERi ii17 12 add get 0.001 mul def
%/VREL332 1 VREL321 sub def

/ix ix 1 add def

/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X10 put} if
        j 7 eq {Wdata1 ix10 7 add Y10 put} if
        j 8 eq {Wdata1 ix10 8 add Z10 put} if
        j 9 eq {Wdata1 ix10 9 add VREL521 SUM5 mul put
                Wdata2 ix10 0 add SUM5             put
                Wdata2 ix10 1 add DLAB21           put
                Wdata2 ix10 2 add DREL521          put
                Wdata2 ix10 3 add VREL521          put
                Wdata2 ix10 4 add 1 DREL521 sub    put
                Wdata2 ix10 5 add 1 VREL521 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (5w)  put
               } if
       } for %j=0,9

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X20 put} if
        j 4 eq {Wdata1 ix10 4 add Y20 put} if
        j 5 eq {Wdata1 ix10 5 add Z20 put} if
        j 6 eq {Wdata1 ix10 6 add X30 put} if
        j 7 eq {Wdata1 ix10 7 add Y30 put} if
        j 8 eq {Wdata1 ix10 8 add Z30 put} if
        j 9 eq {Wdata1 ix10 9 add VREL532 SUM5 mul put
                Wdata2 ix10 0 add SUM5             put
                Wdata2 ix10 1 add DLAB32           put
                Wdata2 ix10 2 add DREL532          put
                Wdata2 ix10 3 add VREL532          put
                Wdata2 ix10 4 add 1 DREL532 sub    put
                Wdata2 ix10 5 add 1 VREL532 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (5x)  put
               } if
       } for %j=0,9

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X40 put} if
        j 4 eq {Wdata1 ix10 4 add Y40 put} if
        j 5 eq {Wdata1 ix10 5 add Z40 put} if
        j 6 eq {Wdata1 ix10 6 add X30 put} if
        j 7 eq {Wdata1 ix10 7 add Y30 put} if
        j 8 eq {Wdata1 ix10 8 add Z30 put} if
        j 9 eq {Wdata1 ix10 9 add VREL543 SUM5 mul put
                Wdata2 ix10 0 add SUM5             put
                Wdata2 ix10 1 add DLAB43           put
                Wdata2 ix10 2 add DREL543          put
                Wdata2 ix10 3 add VREL543          put
                Wdata2 ix10 4 add 1 DREL543 sub    put
                Wdata2 ix10 5 add 1 VREL543 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (5y)  put
               } if
       } for %j=0,9

/ix ix 1 add def
/ix10 ix 10 mul def
0 1 09 {/j exch def %j=0,9
        j 0 eq {Wdata1 ix10 0 add XW put} if
        j 1 eq {Wdata1 ix10 1 add YW put} if
        j 2 eq {Wdata1 ix10 2 add ZW put} if
        j 3 eq {Wdata1 ix10 3 add X40 put} if
        j 4 eq {Wdata1 ix10 4 add Y40 put} if
        j 5 eq {Wdata1 ix10 5 add Z40 put} if
        j 6 eq {Wdata1 ix10 6 add X50 put} if
        j 7 eq {Wdata1 ix10 7 add Y50 put} if
        j 8 eq {Wdata1 ix10 8 add Z50 put} if
        j 9 eq {Wdata1 ix10 9 add VREL554 SUM5 mul put
                Wdata2 ix10 0 add SUM5             put
                Wdata2 ix10 1 add DLAB54           put
                Wdata2 ix10 2 add DREL554          put
                Wdata2 ix10 3 add VREL554          put
                Wdata2 ix10 4 add 1 DREL554 sub    put
                Wdata2 ix10 5 add 1 VREL554 sub    put
%                Wdata2 ix10 6 add D114NAMi ix get  put
                Wdata2 ix10 6 add (5z)  put
               } if
       } for %j=0,9

       } if %S=5

%STOP3a
       } for %ii=0,IM

%STOP4

/xp0 0050 def
/xp1 6650 def
/xdel 620 def
/xdel0 650 def
/xdel1 550 def
/xdela 29 array def
/xdela
 %0   %1   %2   %3   %4   %5   %6   %7   %8   %9  %XYZS, XYZ0, XYZ1, DY
[0000 0650 1300 1950 2600 3250 3900 4550 5200 5850
 %10   %11   %12    %13    %14    %15    %16
%DE*ab DS*ab DE*abr DE*DVr DE*abm DE*DVm NR
 6500  7000  7500   8000   8500   9000   9500
 %17   %18   %19    %20    %21
 %L*0  a*0   b*0    C*ab   hab
 10200 10500 10850  11200  11550
 %22    %23    %24    %25   %26   %27   %28
 %L*1   a*1    b*1    C*ab  hab   CODE  (%)
11900  12200  12550  12900 13250 13600 14200] def
/ydel 160 def

%***************************************************************
%%STOP1
/xchart xchart1 def %
/xc0d 02 def
/xc2d 02 def
/xc4d 02 def
/xcal xc0d 1 add 2 mul
%      xc2d 1 add 2 mul add
%      xc4d 1 add 2 mul add
      1 sub def

/xchartl xchart def

/iXYZLAB 0 def

%0 1 xc0d {/xchart exch def %xchart=0,xc0d

/iXYZLAB 0 def

/xc1a 00 def
/xc1e xc0d def

/xc2a xc1e 1 add def
/xc2e xc2a xc0d add def

/xc3a xc2e 1 add def
/xc3e xc3a xc2d add def

/xc4a xc3e 1 add def
/xc4e xc4a xc2d add def

/xc5a xc4e 1 add def
/xc5e xc5a xc4d add def

/xc6a xc5e 1 add def
/xc6e xc6a xc4d add def

xchart xc1e le                  {/iXYZLAB 0 def /xchartl xchart def} if

xchart xc2a ge
xchart xc2e le and {/iXYZLAB 1 def /xchartl xchart xc2a sub def} if

xchart xc3a ge
xchart xc3e le and {/iXYZLAB 2 def /xchartl xchart xc3a sub def} if

xchart xc4a ge
xchart xc4e le and {/iXYZLAB 3 def /xchartl xchart xc4a sub def} if

xchart xc5a ge
xchart xc5e le and {/iXYZLAB 4 def /xchartl xchart xc5a sub def} if

xchart xc6a ge
xchart xc6e le and {/iXYZLAB 5 def /xchartl xchart xc6a sub def} if

%**********************************************************
%iXYZLAB 00-05: %00=XYZa, 01=LABa, 02=XYZ2 03=LAB2 04=XYZ2 05=LAB2

/textXYZ 29 array def

xchart4 0 eq {%xchart4=0
/textXYZ
[(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*ab)
(dS*ab) (dE*ab)
(dE*abr) (dE*DVr) (dE*abm) (dE*DVm) ( no.)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
             } if %xchart4=0

xchart4 1 eq {%xchart4=1
/textXYZ
[(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*00)
(dS*00) (dE*00)
(dE*00r) (dE*DVr) (dE*00m) (dE*DVm) ( no.)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
             } if %xchart4=1

xchart4 2 eq {%xchart4=2
/textXYZ
[(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*DV)
(dS*DV) (dE*DV)
(dE*DVr) (dE*DVr) (dE*DVm) (dE*DVm) ( no.)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
             } if %xchart4=2

xchart4 3 eq {%xchart4=3
/textXYZ
[(%Xn) (Yn) (Zn) (X0) (Y0) (Z0) (X1) (Y1) (Z1) (DV*DV)
(dS*DV) (dE*DV)
(dE*DVr) (dE*DVr) (dE*DVm) (dE*DVm) ( no.) 
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
             } if %xchart3=3

/textLAB 29 array def
/textLAB
[(%L*0) (a*0) (b*0) (C*ab0) (hab0) 
 (L*1) (a*1) (b*1) (C*ab1) (hab1) (DV) (dE*ab)
 (dE*94) (dE*CM) (dE*00) (dE*85) (NR)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
 
/textXYZ2 29 array def
/textXYZ2
[(%Xn2) (Yn2) (Zn2) (X02) (Y02) (Z02) (X12) (Y12) (Z12) (DV2)
 (dE*ab) (dE*76)
 (dE*94) (dE*CM) (dE*00) (dE*85) (NR)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def

/textLAB2 29 array def
/textLAB2
[(%L*02) (a*02) (b*02) (C*ab02) (hab02) 
 (L*12) (a*12) (b*12) (C*ab12) (hab12) (DV2) (dE*ab)
 (dE*94) (dE*CM) (dE*00) (dE*85) (NR)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def
 
/textXYZ4 29 array def
/textXYZ4
[(%Xn4) (Yn4) (Zn4) (X04) (Y04) (Z04) (X14) (Y14) (Z14) (DV4)
 (dE*ab) (dE*76)
 (dE*94) (dE*CM) (dE*00) (dE*85) (NR)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def

/textLAB4 29 array def
/textLAB4
[(%L*04) (a*04) (b*04) (C*ab04) (hab04) 
 (L*14) (a*14) (b*14) (C*ab14) (hab14) (DV4) (dE*ab)
( L*0) ( a*0) ( b*0) ( C*0) ( h0)
( L*1) ( a*1) ( b*1) ( C*1) ( h1) (  CODE) (%)] def

%**********************************************************
%calculated data: CIELAB01ai, 2800 x 10 dat = 28000
/WXYZR01Vai 28000 array def %CIEXYZ
/CIELAB01ai 28000 array def %CIELAB
/C00LAB01ai 28000 array def %CIE DE2000
/d_CIELABai  2800 array def
/d_CIELCHai  2800 array def
/d_C94LABai  2800 array def %CIE94
/d_C94LCHai  2800 array def
/d_CMCLABai  2800 array def %CMC
/d_CMCLCHai  2800 array def
/d_C00LABai  2800 array def %CIE DE2000
/d_C00LCHai  2800 array def
/d_C85LABai  2800 array def %LABJND 1985
/d_C85LCHai  2800 array def

/WXYZR01V2i 28000 array def %CIEXYZ
/CIELAB012i 28000 array def %CIELAB
/C00LAB012i 28000 array def %CIE DE2000
/d_CIELAB2i  2800 array def
/d_CIELCH2i  2800 array def
/d_C94LAB2i  2800 array def %CIE94
/d_C94LCH2i  2800 array def
/d_CMCLAB2i  2800 array def %CMC
/d_CMCLCH2i  2800 array def
/d_C00LAB2i  2800 array def %CIE DE2000
/d_C00LCH2i  2800 array def
/d_C85LAB2i  2800 array def %LABJND 1985
/d_C85LCH2i  2800 array def

/WXYZR01V4i 28000 array def %CIEXYZ
/CIELAB014i 28000 array def %CIELAB
/C00LAB014i 28000 array def %CIE DE2000
/d_CIELAB4i  2800 array def
/d_CIELCH4i  2800 array def
/d_C94LAB4i  2800 array def %CIE94
/d_C94LCH4i  2800 array def
/d_CMCLAB4i  2800 array def %CMC
/d_CMCLCH4i  2800 array def
/d_C00LAB4i  2800 array def %CIE DE2000
/d_C00LCH4i  2800 array def
/d_C85LAB4i  2800 array def %LABJND 1985
/d_C85LCH4i  2800 array def

/iai -1 def %count d_CIELAB all
/i2i -1 def %count d_CIELAB<=2
/i4i -1 def %count d_C00LAB<=2

/dVsuma 0 def
/dVsum2 0 def
/dVsum4 0 def

/d_CIELABmina 2800 def
/d_CIELABmaxa 0 def
/d_CIELABsuma 0 def
/d_CIELABVsuma 0 def

/d_CIELCHmina 2800 def
/d_CIELCHmaxa 0 def
/d_CIELCHsuma 0 def
/d_CIELCHVsuma 0 def
/d_C94LCHmina 2800 def
/d_C94LCHmaxa 0 def
/d_C94LCHsuma 0 def
/d_C94LCHVsuma 0 def
/d_CMCLCHmina 2800 def
/d_CMCLCHmaxa 0 def
/d_CMCLCHsuma 0 def
/d_CMCLCHVsuma 0 def
/d_C00LCHmina 2800 def
/d_C00LCHmaxa 0 def
/d_C00LCHsuma 0 def
/d_C00LCHVsuma 0 def
/d_C85LCHmina 2800 def
/d_C85LCHmaxa 0 def
/d_C85LCHsuma 0 def
/d_C85LCHVsuma 0 def

/d_CIELABmin2 2800 def
/d_CIELABmax2 0 def
/d_CIELABsum2 0 def
/d_CIELABVsum2 0 def

/d_CIELCHmin2 2800 def
/d_CIELCHmax2 0 def
/d_CIELCHsum2 0 def
/d_CIELCHVsum2 0 def
/d_C94LCHmin2 2800 def
/d_C94LCHmax2 0 def
/d_C94LCHsum2 0 def
/d_C94LCHVsum2 0 def
/d_CMCLCHmin2 2800 def
/d_CMCLCHmax2 0 def
/d_CMCLCHsum2 0 def
/d_CMCLCHVsum2 0 def
/d_C00LCHmin2 2800 def
/d_C00LCHmax2 0 def
/d_C00LCHsum2 0 def
/d_C00LCHVsum2 0 def
/d_C85LCHmin2 2800 def
/d_C85LCHmax2 0 def
/d_C85LCHsum2 0 def
/d_C85LCHVsum2 0 def

/d_CIELABmin4 2800 def
/d_CIELABmax4 0 def
/d_CIELABsum4 0 def
/d_CIELABVsum4 0 def

/d_CIELCHmin4 2800 def
/d_CIELCHmax4 0 def
/d_CIELCHsum4 0 def
/d_CIELCHVsum4 0 def
/d_C94LCHmin4 2800 def
/d_C94LCHmax4 0 def
/d_C94LCHsum4 0 def
/d_C94LCHVsum4 0 def
/d_CMCLCHmin4 2800 def
/d_CMCLCHmax4 0 def
/d_CMCLCHsum4 0 def
/d_CMCLCHVsum4 0 def
/d_C00LCHmin4 2800 def
/d_C00LCHmax4 0 def
/d_C00LCHsum4 0 def
/d_C00LCHVsum4 0 def
/d_C85LCHmin4 2800 def
/d_C85LCHmax4 0 def
/d_C85LCHsum4 0 def
/d_C85LCHVsum4 0 def

/iimp 98 def
%/iimp 78 def
/iim iimp 1 sub def

0 1 iim {/i exch def %i=0,iim
         /i10 i 10 mul def
0 1 9   {/j exch def %j=0,9
         Wdata0 i10 j add  Wdata1 i10 j add get 1.000 mul  put
        } for %j=0,9
        } for %i=0,iim

/iimax iim 50 idiv def %=1 for iimp=100
/iimm1 iimax 1 sub def
/iimp1 iimax 1 add def

0 1 iimax {/ii exch def %ii=0,iimax

/i1 50 ii mul def
/i2 i1 49 add def

ii iimax eq {/i2 iim def} if

i1 1 i2 {/i exch def %i=i1,i2

/i10 i 10 mul def

/XW Wdata0 i10 0 add get def
/YW Wdata0 i10 1 add get def
/ZW Wdata0 i10 2 add get def

/X0 Wdata0 i10 3 add get def
/Y0 Wdata0 i10 4 add get def
/Z0 Wdata0 i10 5 add get def

/X1 Wdata0 i10 6 add get def
/Y1 Wdata0 i10 7 add get def
/Z1 Wdata0 i10 8 add get def

proc_coldiff

/d_CIELAB d_CIELABi i get def
/d_CIELCH d_CIELCHi i get def
/d_C94LCH d_C94LCHi i get def
/d_CMCLCH d_CMCLCHi i get def
/d_C00LCH d_C00LCHi i get def
/d_C85LCH d_C85LCHi i get def

CIELAB01ai i10 0 add CIEL*0   put
CIELAB01ai i10 1 add CIEa*0   put
CIELAB01ai i10 2 add CIEb*0   put
CIELAB01ai i10 3 add CIEC*ab0 put
CIELAB01ai i10 4 add CIEhab0  put
CIELAB01ai i10 5 add CIEL*1   put
CIELAB01ai i10 6 add CIEa*1   put
CIELAB01ai i10 7 add CIEb*1   put
CIELAB01ai i10 8 add CIEC*ab1 put
CIELAB01ai i10 9 add CIEhab1  put

C00LAB01ai i10 0 add CIEL*0   put
C00LAB01ai i10 1 add CIEa*0   put
C00LAB01ai i10 2 add CIEb*0   put
C00LAB01ai i10 3 add CIEC*ab0 put
C00LAB01ai i10 4 add CIEhab0  put
C00LAB01ai i10 5 add CIEL*1   put
C00LAB01ai i10 6 add CIEa*1   put
C00LAB01ai i10 7 add CIEb*1   put
C00LAB01ai i10 8 add CIEC*ab1 put
C00LAB01ai i10 9 add CIEhab1  put

d_CIELABai i d_CIELAB put

d_CIELCHai i d_CIELCH put
d_C94LCHai i d_C94LCH put
d_CMCLCHai i d_CMCLCH put
d_C00LCHai i d_C00LCH put
d_C85LCHai i d_C85LCH put
%STOP31b
%always
/iai iai 1 add def
d_CIELAB d_CIELABmina lt {/d_CIELABmina d_CIELAB def} if
d_CIELAB d_CIELABmaxa gt {/d_CIELABmaxa d_CIELAB def} if
/d_CIELABsuma d_CIELABsuma d_CIELAB add def

d_CIELCH d_CIELCHmina lt {/d_CIELCHmina d_CIELCH def} if
d_CIELCH d_CIELCHmaxa gt {/d_CIELCHmaxa d_CIELCH def} if
/d_CIELCHsuma d_CIELCHsuma d_CIELCH add def

d_C94LCH d_C94LCHmina lt {/d_C94LCHmina d_C94LCH def} if
d_C94LCH d_C94LCHmaxa gt {/d_C94LCHmaxa d_C94LCH def} if
/d_C94LCHsuma d_C94LCHsuma d_C94LCH add def

d_CMCLCH d_CMCLCHmina lt {/d_CMCLCHmina d_CMCLCH def} if
d_CMCLCH d_CMCLCHmaxa gt {/d_CMCLCHmaxa d_CMCLCH def} if
/d_CMCLCHsuma d_CMCLCHsuma d_CMCLCH add def

d_C00LCH d_C00LCHmina lt {/d_C00LCHmina d_C00LCH def} if
d_C00LCH d_C00LCHmaxa gt {/d_C00LCHmaxa d_C00LCH def} if
/d_C00LCHsuma d_C00LCHsuma d_C00LCH add def

d_C85LCH d_C85LCHmina lt {/d_C85LCHmina d_C85LCH def} if
d_C85LCH d_C85LCHmaxa gt {/d_C85LCHmaxa d_C85LCH def} if
/d_C85LCHsuma d_C85LCHsuma d_C85LCH add def

/dVsuma dVsuma Wdata0 i10 9 add get add def

%save data in array
0 1 09 {/j exch def %j=0,09
WXYZR01Vai i10 j add Wdata0 i10 j add get put
} for %j=0,09

%STOP5
d_CIELAB 2 le {%d_CIELAB<=2

/i2i i2i 1 add def
/i2i10 i2i 10 mul def
CIELAB012i i2i10 0 add CIEL*0   put
CIELAB012i i2i10 1 add CIEa*0   put
CIELAB012i i2i10 2 add CIEb*0   put
CIELAB012i i2i10 3 add CIEC*ab0 put
CIELAB012i i2i10 4 add CIEhab0  put
CIELAB012i i2i10 5 add CIEL*1   put
CIELAB012i i2i10 6 add CIEa*1   put
CIELAB012i i2i10 7 add CIEb*1   put
CIELAB012i i2i10 8 add CIEC*ab1 put
CIELAB012i i2i10 9 add CIEhab1  put

d_CIELAB2i i2i d_CIELABai i get put

d_CIELCH2i i2i d_CIELCH put
d_C94LCH2i i2i d_C94LCH put
d_CMCLCH2i i2i d_CMCLCH put
d_C00LCH2i i2i d_C00LCH put
d_C85LCH2i i2i d_C85LCH put

%always
d_CIELAB d_CIELABmin2 lt {/d_CIELABmin2 d_CIELAB def} if
d_CIELAB d_CIELABmax2 gt {/d_CIELABmax2 d_CIELAB def} if
/d_CIELABsum2 d_CIELABsum2 d_CIELAB add def

d_CIELCH d_CIELCHmin2 lt {/d_CIELCHmin2 d_CIELCH def} if
d_CIELCH d_CIELCHmax2 gt {/d_CIELCHmax2 d_CIELCH def} if
/d_CIELCHsum2 d_CIELCHsum2 d_CIELCH add def

d_C94LCH d_C94LCHmin2 lt {/d_C94LCHmin2 d_C94LCH def} if
d_C94LCH d_C94LCHmax2 gt {/d_C94LCHmax2 d_C94LCH def} if
/d_C94LCHsum2 d_C94LCHsum2 d_C94LCH add def

d_CMCLCH d_CMCLCHmin2 lt {/d_CMCLCHmin2 d_CMCLCH def} if
d_CMCLCH d_CMCLCHmax2 gt {/d_CMCLCHmax2 d_CMCLCH def} if
/d_CMCLCHsum2 d_CMCLCHsum2 d_CMCLCH add def

d_C00LCH d_C00LCHmin2 lt {/d_C00LCHmin2 d_C00LCH def} if
d_C00LCH d_C00LCHmax2 gt {/d_C00LCHmax2 d_C00LCH def} if
/d_C00LCHsum2 d_C00LCHsum2 d_C00LCH add def

d_C85LCH d_C85LCHmin2 lt {/d_C85LCHmin2 d_C85LCH def} if
d_C85LCH d_C85LCHmax2 gt {/d_C85LCHmax2 d_C85LCH def} if
/d_C85LCHsum2 d_C85LCHsum2 d_C85LCH add def

/dVsum2 dVsum2 Wdata0 i10 9 add get add def

%save data in array
0 1 09 {/j exch def %j=0,09
WXYZR01V2i i10 j add Wdata0 i10 j add get put
} for %j=0,09

} if %d_CIELAB<=2

d_C00LCH 2 le {%d_C00LCH<=2

/i4i i4i 1 add def
/i4i10 i4i 10 mul def
CIELAB014i i4i10 0 add CIEL*0   put
CIELAB014i i4i10 1 add CIEa*0   put
CIELAB014i i4i10 2 add CIEb*0   put
CIELAB014i i4i10 3 add CIEC*ab0 put
CIELAB014i i4i10 4 add CIEhab0  put
CIELAB014i i4i10 5 add CIEL*1   put
CIELAB014i i4i10 6 add CIEa*1   put
CIELAB014i i4i10 7 add CIEb*1   put
CIELAB014i i4i10 8 add CIEC*ab1 put
CIELAB014i i4i10 9 add CIEhab1  put

d_CIELAB4i i4i d_CIELABai i get put

d_CIELCH4i i4i d_CIELCH put
d_C94LCH4i i4i d_C94LCH put
d_CMCLCH4i i4i d_CMCLCH put
d_C00LCH4i i4i d_C00LCH put
d_C85LCH4i i4i d_C85LCH put

%always
d_CIELAB d_CIELABmin4 lt {/d_CIELABmin4 d_CIELAB def} if
d_CIELAB d_CIELABmax4 gt {/d_CIELABmax4 d_CIELAB def} if
/d_CIELABsum4 d_CIELABsum4 d_CIELAB add def

d_CIELCH d_CIELCHmin4 lt {/d_CIELCHmin4 d_CIELCH def} if
d_CIELCH d_CIELCHmax4 gt {/d_CIELCHmax4 d_CIELCH def} if
/d_CIELCHsum4 d_CIELCHsum4 d_CIELCH add def

d_C94LCH d_C94LCHmin4 lt {/d_C94LCHmin4 d_C94LCH def} if
d_C94LCH d_C94LCHmax4 gt {/d_C94LCHmax4 d_C94LCH def} if
/d_C94LCHsum4 d_C94LCHsum4 d_C94LCH add def

d_CMCLCH d_CMCLCHmin4 lt {/d_CMCLCHmin4 d_CMCLCH def} if
d_CMCLCH d_CMCLCHmax4 gt {/d_CMCLCHmax4 d_CMCLCH def} if
/d_CMCLCHsum4 d_CMCLCHsum4 d_CMCLCH add def

d_C00LCH d_C00LCHmin4 lt {/d_C00LCHmin4 d_C00LCH def} if
d_C00LCH d_C00LCHmax4 gt {/d_C00LCHmax4 d_C00LCH def} if
/d_C00LCHsum4 d_C00LCHsum4 d_C00LCH add def

d_C85LCH d_C85LCHmin4 lt {/d_C85LCHmin4 d_C85LCH def} if
d_C85LCH d_C85LCHmax4 gt {/d_C85LCHmax4 d_C85LCH def} if
/d_C85LCHsum4 d_C85LCHsum4 d_C85LCH add def

/dVsum4 dVsum4 Wdata0 i10 9 add get add def

%save data in array
0 1 09 {/j exch def %j=0,09
WXYZR01V4i i10 j add Wdata0 i10 j add get put
} for %j=0,09

} if %d_C00LCH<=2

%STOP5a

} for %i=i1,i2

%STOP5b

} for %ii=0,iimax

%STOP6

%**************************************************
iXYZLAB 0 ge iXYZLAB 1 le and {/iim iai def
                               /iimax iim 50 idiv def} if
iXYZLAB 2 ge iXYZLAB 3 le and {/iim i2i def
                               /iimax i2i 50 idiv def} if
iXYZLAB 4 ge iXYZLAB 5 le and {/iim i4i def
                               /iimax i4i 50 idiv def} if

/ii xchartl def

/iimaxP1 iimax 1 add def

gsave

5 /Times-ISOL1 FS
75 85 moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-L) show pmetam cvishow

%STOP

5 /Times-ISOL1 FS
700 85 moveto
(XG480-7N) show
(_) show iXYZLAB cvishow (_) show ii cvishow
(, xchart3=) show xchart3 cvishow
(, xchart4=) show xchart4 cvishow

72 90 translate

/yhoe 8500 def
0.0176 MM 0.02 MM scale

/xwidth 14400 def
15 setlinewidth
0.0 0.0 0.0 0.0 setcmyk_olvcolor
0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto
closepath stroke

CBSK
xp0 yhoe ydel 0.9 mul sub moveto

/ioutk 0 def %ioutk=0
ioutk 0 eq {/ik 28 def} {/ik 09 def} ifelse

iXYZLAB 0 eq iXYZLAB 2 eq or iXYZLAB 4 eq or {%iXYZLAB=0,2,4
0 1 ik {/k exch def %k=0,ik
xp0 xdela k get add yhoe ydel 0.9 mul sub moveto
iXYZLAB 0 eq {textXYZ k get show} if
iXYZLAB 2 eq {textXYZ2 k get show} if
iXYZLAB 4 eq {textXYZ4 k get show} if
} for %k=0,ik
} if %iXYZLAB=0,2,4

iXYZLAB 1 eq iXYZLAB 3 eq or iXYZLAB 5 eq  or {%iXYZLAB=1,3,5
0 1 ik {/k exch def %k=0,ik
xp0 xdela k get add yhoe ydel 0.9 mul sub moveto
iXYZLAB 1 eq {textLAB k get show} if
iXYZLAB 3 eq {textLAB2 k get show} if
iXYZLAB 5 eq {textLAB4 k get show} if
} for %k=0,ik
} if %iXYZLAB=1,3,5

xp0 yhoe ydel 1.9 mul sub moveto

ioutk 0 eq {%ioutk=0
iXYZLAB 0 eq 
{(%1000*(CIEXYZ & DV) for all colours (a) of experiment, ) show} if
iXYZLAB 1 eq
{(%CIELAB data for all colour (a) of experiment, ) show} if
iXYZLAB 2 eq
{(%1000*(CIEXYZ & DV) of experiment with CIELAB dE*ab<=2, ) show} if
iXYZLAB 3 eq
{(%CIELAB data for colours (2) of experiment with CIELAB dE*ab<=2, ) show} if
iXYZLAB 4 eq
{(%1000*(CIEXYZ & DV) of experiment with CIE DE2000 dE*<=2, ) show} if
iXYZLAB 5 eq
{(%CIELAB data for colours (4) of experiment with CIE DE2000 dE*<=2, ) show} if
} if %ioutk=0

(iimp=) show iimp cvishow (, colour difference pairs ) show

%Series XK41..01..XK48: ioutn=1
%       XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL
%       XK45..01..XK48: VIK_ELCD  (xchart3=0,1,2,3, xchart4=3) REL

%Series XK51..01..XK58: ioutn=0
%       XK51..01..XK54: CIELAB    (xchart3=0,1,2,3, xchart4=0)
%       XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1)

%Series XK61..01..XK68: ioutn=0
%       XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C
%       XK65..01..XK68: VIK-ELCD  (xchart3=0,1,2,3, xchart4=3) Pair C

%xchart3=0,1,2,3=VA, KA, KS, MA

/iouts 0 def %output without/with scale data
ioutn 0 eq {%ioutn=0
xchart4 0 eq {%xchart4=0
              xchart3 0 eq {(VA_EC098=VIK_ADJACENT_EC) show
                            /inr000 51000001 def} if
              xchart3 1 eq {(KA_EC098=KIT_ADJACENT_EC) show
                            /inr000 52000001 def} if
              xchart3 2 eq {(KS_EC098=KIT_SEPARATE_EC) show
                            /inr000 53000001 def} if
              xchart3 3 eq {(MA_EC098=MEL_ADJACENT_EC) show
                            /inr000 54000001 def} if
             } if %xchart4=0
xchart4 1 eq {%xchart4=1
              xchart3 0 eq {(VA_ED098=VIK_ADJACENT_ED) show
                            /inr000 55000001 def} if
              xchart3 1 eq {(KA_ED098=KIT_ADJACENT_ED) show
                            /inr000 56000001 def} if
              xchart3 2 eq {(KS_ED098=KIT_SEPARATE_ED) show
                            /inr000 57000001 def} if
              xchart3 3 eq {(MA_ED098=MEL_ADJACENT_ED) show
                            /inr000 58000001 def} if
             } if %xchart3=1
xchart4 2 eq {%xchart4=2
              xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show
                            /inr000 61000001 def} if
              xchart3 1 eq {(KA_EW098=KIT_ADJACENT_EW) show
                            /inr000 62000001 def} if
              xchart3 2 eq {(KS_EW098=KIT_SEPARATE_EW) show
                            /inr000 63000001 def} if
              xchart3 3 eq {(MA_EW098=MEL_ADJACENT_EW) show
                            /inr000 64000001 def} if
             } if %xchart4=2
xchart4 3 eq {%xchart4=3
              xchart3 0 eq {(VA_EV098=VIK_ADJACENT_EV) show
                            /inr000 65000001 def} if
              xchart3 1 eq {(KA_EV098=KIT_ADJACENT_EV) show
                            /inr000 66000001 def} if
              xchart3 2 eq {(KS_EV098=KIT_SEPARATE_EV) show
                            /inr000 67000001 def} if
              xchart3 3 eq {(MA_EV098=MEL_ADJACENT_EV) show
                            /inr000 68000001 def} if
             } if %xchart4=2
} if %ioutn=0

ioutn 1 eq {%ioutn=1
xchart4 2 eq {%xchart4=2
              xchart3 0 eq {(Va_EW098=VIK_ADJACENT_EW) show
                            /inr000 41000001 def} if
              xchart3 1 eq {(Ka_EW098=KIT_ADJACENT_EW) show
                            /inr000 42000001 def} if
              xchart3 2 eq {(Ks_EW098=KIT_SEPARATE_EW) show
                            /inr000 43000001 def} if
              xchart3 3 eq {(Ma_EW098=MEL_ADJACENT_EW) show
                            /inr000 44000001 def} if
             } if %xchart4=2
xchart4 3 eq {%xchart4=3
              xchart3 0 eq {(Va_EV098=VIK_ADJACENT_EV) show
                            /inr000 45000001 def} if
              xchart3 1 eq {(Ka_EV098=KIT_ADJACENT_EV) show
                            /inr000 46000001 def} if
              xchart3 2 eq {(Ks_EV098=KIT_SEPARATE_EV) show
                            /inr000 47000001 def} if
              xchart3 3 eq {(Ma_EV098=MEL_ADJACENT_EV) show
                            /inr000 48000001 def} if
             } if %xchart4=3
} if %ioutn=1
(, ioutn=) show ioutn cvishow
(, iouts=) show iouts cvishow
( % ) show

ii iimaxP1 lt {%ii<iimaxP1

CSK
/i1 50 ii mul def
/i2 i1 49 add def

ii iimax eq {/i2 iim def} if

i1 1 i2 {/i exch def %i=i1,i2
/i10 i 10 mul def
/yhot yhoe ydel 1 mul sub def

%output of data
/i10 i 10 mul def
0 1 08 {/j exch def %j=0,08
xp0 xdela j get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {WXYZR01Vai i10 j add get cvi36show} if
iXYZLAB 1 eq {CIELAB01ai i10 j add get 
              j 4 ne {cvsshow2}{cvsshow1} ifelse
             } if %hab0
iXYZLAB 2 eq {WXYZR01V2i i10 j add get cvi36show} if
iXYZLAB 3 eq {CIELAB012i i10 j add get 
              j 4 ne {cvsshow2}{cvsshow1} ifelse
             } if %hab0
iXYZLAB 4 eq {WXYZR01V4i i10 j add get cvi36show} if
iXYZLAB 5 eq {CIELAB014i i10 j add get cvsshow2
              j 4 ne {cvsshow2}{cvsshow1} ifelse
             } if %hab0
} for %j=0,08

xp0 xdela 9 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {WXYZR01Vai i10 9 add get cvi36show} if %ANGLE
iXYZLAB 1 eq {CIELAB01ai i10 9 add get cvsshow1 } if
iXYZLAB 2 eq {WXYZR01V2i i10 9 add get cvi36show} if %ANGLE
iXYZLAB 3 eq {CIELAB012i i10 9 add get cvsshow1 } if
iXYZLAB 4 eq {WXYZR01V4i i10 9 add get cvi36show} if %ANGLE
iXYZLAB 5 eq {CIELAB014i i10 9 add get cvsshow1 } if

ioutk 0 eq {%ioutk=0
xp0 xdela 10 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 0 add get cvi24show} if
iXYZLAB 1 eq {WXYZR01Vai i10 9 add get cvsshow2} if
iXYZLAB 2 eq {d_CIELAB2i i get cvi24show} if
iXYZLAB 3 eq {WXYZR01V2i i10 9 add get cvsshow2} if
iXYZLAB 4 eq {d_CIELAB4i i get cvi24show} if
iXYZLAB 5 eq {WXYZR01V4i i10 9 add get cvsshow2} if

xp0 xdela 11 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 1 add get cvi24show} if
iXYZLAB 1 eq {d_CIELABai i get cvsshow2} if
iXYZLAB 2 eq {d_CIELCH2i i get cvi24show} if
iXYZLAB 3 eq {d_CIELAB2i i get cvsshow2} if
iXYZLAB 4 eq {d_CIELCH4i i get cvi24show} if
iXYZLAB 5 eq {d_CIELAB4i i get cvsshow2} if

xp0 xdela 12 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 2 add get cvsshow3} if
iXYZLAB 1 eq {d_C94LCHai i get cvsshow2} if
iXYZLAB 2 eq {d_C94LCH2i i get cvi24show} if
iXYZLAB 3 eq {d_C94LCH2i i get cvsshow2} if
iXYZLAB 4 eq {d_C94LCH4i i get cvi24show} if
iXYZLAB 5 eq {d_C94LCH4i i get cvsshow2} if

xp0 xdela 13 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 3 add get cvsshow3} if
iXYZLAB 1 eq {d_CMCLCHai i get cvsshow2} if
iXYZLAB 2 eq {d_CMCLCH2i i get cvi24show} if
iXYZLAB 3 eq {d_CMCLCH2i i get cvsshow2} if
iXYZLAB 4 eq {d_CMCLCH4i i get cvi24show} if
iXYZLAB 5 eq {d_CMCLCH4i i get cvsshow2} if

xp0 xdela 14 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 4 add get cvsshow3} if
iXYZLAB 1 eq {d_C00LCHai i get cvsshow2} if
iXYZLAB 2 eq {d_C00LCH2i i get cvi24show} if
iXYZLAB 3 eq {d_C00LCH2i i get cvsshow2} if
iXYZLAB 4 eq {d_C00LCH4i i get cvi24show} if
iXYZLAB 5 eq {d_C00LCH4i i get cvsshow2} if

xp0 xdela 15 get add yhot ydel i i1 sub 2 add mul sub moveto
iXYZLAB 0 eq {Wdata2 i10 5 add get cvsshow3} if
iXYZLAB 1 eq {d_C85LCHai i get cvsshow1} if
iXYZLAB 2 eq {d_C85LCH2i i get cvi24show} if
iXYZLAB 3 eq {d_C85LCH2i i get cvsshow1} if
iXYZLAB 4 eq {d_C85LCH4i i get cvi24show} if
iXYZLAB 5 eq {d_C85LCH4i i get cvsshow1} if

xp0 xdela 16 get add yhot ydel i i1 sub 2 add mul sub moveto
inr000 i add cvishow

iouts 0 eq {%iout=0
xp0 xdela 17 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 0 add get cvi02xshow
xp0 xdela 18 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 1 add get cvi03xshow
xp0 xdela 19 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 2 add get cvi03xshow
xp0 xdela 20 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 3 add get cvi03xshow
xp0 xdela 21 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 4 add get cvi03xshow

xp0 xdela 22 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 5 add get cvi02xshow
xp0 xdela 23 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 6 add get cvi03xshow
xp0 xdela 24 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 7 add get cvi03xshow
xp0 xdela 25 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 8 add get cvi03xshow
xp0 xdela 26 get add yhot ydel i i1 sub 2 add mul sub moveto
CIELAB01ai i10 9 add get cvi03xshow
} if %iouts=0

iouts 1 eq {%iout=1
/xsh 080 def
%i i 2 idiv 2 mul eq {%i even only
xp0 xdela 17 get add xsh 0.2 mul add yhot ydel i i1 sub 2 add mul sub moveto
VISCi i 2 idiv get 0 eq {CIELAB01ai i10 0 add get cvi02xshow}
                        {VISAi i 2 idiv get 1000 mul cvishow} ifelse
xp0 xdela 18 get add xsh 1.1 mul add yhot ydel i i1 sub 2 add mul sub moveto
VISCi i 2 idiv get 0 eq {CIELAB01ai i10 1 add get cvi03xshow}
                        {VISBi i 2 idiv get 1000 mul cvishow} ifelse
xp0 xdela 19 get add xsh 2.0 mul add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 2 add get cvi03xshow
VIM3i i 2 idiv get cvsshow2
xp0 xdela 20 get add xsh 2.8 mul add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 3 add get cvi03xshow
CTE1i i 2 idiv get show
xp0 xdela 21 get add xsh 3.6 mul add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 4 add get cvi03xshow
CTE2i i 2 idiv get show

xp0 xdela 22 get add xsh 4.4 mul add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 5 add get cvi02xshow
CTE3i i 2 idiv get show
%xp0 xdela 23 get add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 6 add get cvi03xshow
%xp0 xdela 24 get add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 7 add get cvi03xshow
%xp0 xdela 25 get add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 8 add get cvi03xshow
%xp0 xdela 26 get add yhot ydel i i1 sub 2 add mul sub moveto
%CIELAB01ai i10 9 add get cvi03xshow

%} if %i even only
} if %iouts=1

/iD217 i 2 idiv 17 mul def
xp0 xdela 27 get add yhot ydel i i1 sub 2 add mul sub moveto
( \050) show
i i 2 idiv 2 mul eq {%i even only
i 79 lt {%i<79
R57xSERi iD217 8 add get show (-) show
R57xSERi iD217 7 add get show 
%Wdata2 i10 6 add get show
        } if %i<79
} if %i even only
i i 2 idiv 2 mul ne {%i uneven only
i 79 lt {%i<79
R57xSERi iD217 8 add get show (-) show
R57xSERi iD217 9 add get show
%Wdata2 i10 6 add get show
        } if %i<79
} if %i uneven only
(\051) show

xp0 xdela 28 get add yhot ydel i i1 sub 2 add mul sub moveto
(%) show

} if %ioutk=0

ioutk 1 eq {%ioutk=1
xp0 xdela 10 get add yhot ydel i i1 sub 2 add mul sub moveto
(%) show inr000 i add cvishow

/iD217 i 2 idiv 17 mul def
xp0 xdela 11 get add yhot ydel i i1 sub 2 add mul sub moveto
( \050) show
i i 2 idiv 2 mul eq {%i even only
i 79 lt {%i<79
R57xSERi iD217 8 add get show (-) show
R57xSERi iD217 7 add get show
%Wdata2 i10 6 add get show
        } if %i<79
} if %i even only
i i 2 idiv 2 mul ne {%i uneven only
i 79 lt {%i<79
R57xSERi iD217 8 add get show (-) show
R57xSERi iD217 9 add get show
%Wdata2 i10 6 add get show
        } if %i<79
} if %i uneven only
(\051 % ) show

} if %ioutk=1

%*******************************************

} for %i=i1,i2

} if %ii<iimaxP1

ii iimaxP1 eq { %ii=iimaxP1
/yhot yhoe ydel 1 mul sub def

100 yhot ydel 2 mul sub moveto
(Minimum, maximum and average colour difference value) show
100 yhot ydel 3 mul sub moveto
(STRESS constant F and STRESS value S) show

iXYZLAB 0 eq iXYZLAB 1 eq or {%iXYZLAB=0,1
/iim iai def

/d_CIELABavea d_CIELABsuma iai 1 add div def
100 yhot ydel 4 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CIELABmina = ) show d_CIELABmina cvsshow2
(, d_CIELABmaxa = ) show d_CIELABmaxa cvsshow2
(, d_CIELABavea = ) show d_CIELABavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELABai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELABai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CIELAB_Fa = ) show FSa cvsshow2
(, CIELAB_STRESSa = ) show SSa cvsshow2

%***********************************************
%CIELCH
/d_CIELCHavea d_CIELCHsuma iai 1 add div def
100 yhot ydel 07 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CIELCHmina = ) show d_CIELCHmina cvsshow2
(, d_CIELCHmaxa = ) show d_CIELCHmaxa cvsshow2
(, d_CIELCHavea = ) show d_CIELCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CIELCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 8.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CIELCHFa = ) show FSa cvsshow2
(, CIELCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C94LCH
/d_C94LCHavea d_C94LCHsuma iai 1 add div def
100 yhot ydel 10 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C94LCHmina = ) show d_C94LCHmina cvsshow2
(, d_C94LCHmaxa = ) show d_C94LCHmaxa cvsshow2
(, d_C94LCHavea = ) show d_C94LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C94LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C94LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C94LCHFa = ) show FSa cvsshow2
(, C94LCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%CMCLCH
/d_CMCLCHavea d_CMCLCHsuma iai 1 add div def
100 yhot ydel 13 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_CMCLCHmina = ) show d_CMCLCHmina cvsshow2
(, d_CMCLCHmaxa = ) show d_CMCLCHmaxa cvsshow2
(, d_CMCLCHavea = ) show d_CMCLCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CMCLCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_CMCLCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, CMCLCHFa = ) show FSa cvsshow2
(, CMCLCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C00LCH
/d_C00LCHavea d_C00LCHsuma iai 1 add div def
100 yhot ydel 16 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C00LCHmina = ) show d_C00LCHmina cvsshow2
(, d_C00LCHmaxa = ) show d_C00LCHmaxa cvsshow2
(, d_C00LCHavea = ) show d_C00LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C00LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C00LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C00LCHFa = ) show FSa cvsshow2
(, C00LCHSTRESSa = ) show SSa cvsshow2

%***********************************************
%C85LCH
/d_C85LCHavea d_C85LCHsuma iai 1 add div def
100 yhot ydel 19 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, d_C85LCHmina = ) show d_C85LCHmina cvsshow2
(, d_C85LCHmaxa = ) show d_C85LCHmaxa cvsshow2
(, d_C85LCHavea = ) show d_C85LCHavea cvsshow2

/dEaiVai 0 def
/dVaiVai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C85LCHai i get def
         /dEaiVai dEaiVai dEai dVai mul add def
         /dVaiVai dVaiVai dVai dVai mul add def
        } for %i=0,iim
/FSa dEaiVai dVaiVai div def

/dEaiMFVai2 0 def
/dEaiEai 0 def
0 1 iim {/i exch def %i=0,iim
         /dVai WXYZR01Vai i 10 mul 09 add get def
         /dEai d_C85LCHai i get def
         /dEaiMFVai2 dEaiMFVai2 dEai FSa dVai mul sub dup mul add def
         /dEaiEai dEaiEai dEai dEai mul add def
        } for %i=0,iim
/SSa dEaiMFVai2 dEaiEai div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(iai+1 = ) show iai 1 add cvishow
(, C85LCHFa = ) show FSa cvsshow2
(, C85LCHSTRESSa = ) show SSa cvsshow2

} if %iXYZLAB=0,1

%***********************************************
iXYZLAB 2 eq iXYZLAB 3 eq or {%iXYZLAB=2,3
/iim i2i def

/d_CIELABave2 d_CIELABsum2 i2i 1 add div def
100 yhot ydel 4 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CIELABmin2 = ) show d_CIELABmin2 cvsshow2
(, d_CIELABmax2 = ) show d_CIELABmax2 cvsshow2
(, d_CIELABave2 = ) show d_CIELABave2 cvsshow2

%STOPa
/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELAB2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def
%STOP
/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELAB2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CIELABF2 = ) show FS2 cvsshow2
(, CIELABSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%CIELCH
/d_CIELCHave2 d_CIELCHsum2 i2i 1 add div def
100 yhot ydel 07 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CIELCHmin2 = ) show d_CIELCHmin2 cvsshow2
(, d_CIELCHmax2 = ) show d_CIELCHmax2 cvsshow2
(, d_CIELCHave2 = ) show d_CIELCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def
%STOPa2
/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CIELCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 08.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CIELCHF2 = ) show FS2 cvsshow2
(, CIELCHSTRESS2 = ) show SS2 cvsshow2

%STOPb
%***********************************************
%C94LCH
/d_C94LCHave2 d_C94LCHsum2 i2i 1 add div def
100 yhot ydel 10 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C94LCHmin2 = ) show d_C94LCHmin2 cvsshow2
(, d_C94LCHmax2 = ) show d_C94LCHmax2 cvsshow2
(, d_C94LCHave2 = ) show d_C94LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C94LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C94LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C94LCHF2 = ) show FS2 cvsshow2
(, C94LCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%CMCLCH
/d_CMCLCHave2 d_CMCLCHsum2 i2i 1 add div def
100 yhot ydel 13 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_CMCLCHmin2 = ) show d_CMCLCHmin2 cvsshow2
(, d_CMCLCHmax2 = ) show d_CMCLCHmax2 cvsshow2
(, d_CMCLCHave2 = ) show d_CMCLCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CMCLCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_CMCLCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, CMCLCHF2 = ) show FS2 cvsshow2
(, CMCLCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%C00LCH
/d_C00LCHave2 d_C00LCHsum2 i2i 1 add div def
100 yhot ydel 16 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C00LCHmin2 = ) show d_C00LCHmin2 cvsshow2
(, d_C00LCHmax2 = ) show d_C00LCHmax2 cvsshow2
(, d_C00LCHave2 = ) show d_C00LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C00LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C00LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C00LCHF2 = ) show FS2 cvsshow2
(, C00LCHSTRESS2 = ) show SS2 cvsshow2

%***********************************************
%C85LCH
/d_C85LCHave2 d_C85LCHsum2 i2i 1 add div def
100 yhot ydel 19 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, d_C85LCHmin2 = ) show d_C85LCHmin2 cvsshow2
(, d_C85LCHmax2 = ) show d_C85LCHmax2 cvsshow2
(, d_C85LCHave2 = ) show d_C85LCHave2 cvsshow2

/dE2iV2i 0 def
/dV2iV2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C85LCH2i i get def
         /dE2iV2i dE2iV2i dE2i dV2i mul add def
         /dV2iV2i dV2iV2i dV2i dV2i mul add def
        } for %i=0,iim
/FS2 dE2iV2i dV2iV2i div def

/dE2iMFV2i2 0 def
/dE2iE2i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV2i WXYZR01V2i i 10 mul 09 add get def
         /dE2i d_C85LCH2i i get def
         /dE2iMFV2i2 dE2iMFV2i2 dE2i FS2 dV2i mul sub dup mul add def
         /dE2iE2i dE2iE2i dE2i dE2i mul add def
        } for %i=0,iim
/SS2 dE2iMFV2i2 dE2iE2i div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(i2i+1 = ) show i2i 1 add cvishow
(, C85LCHF2 = ) show FS2 cvsshow2
(, C85LCHSTRESS2 = ) show SS2 cvsshow2

} if %iXYZLAB=2,3

%***********************************************
iXYZLAB 4 eq iXYZLAB 5 eq or {%iXYZLAB=4,5
/iim i4i def

/d_CIELABave4 d_CIELABsum4 i4i 1 add div def
100 yhot ydel 4 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CIELABmin4 = ) show d_CIELABmin4 cvsshow2
(, d_CIELABmax4 = ) show d_CIELABmax4 cvsshow2
(, d_CIELABave4 = ) show d_CIELABave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELAB4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELAB4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 5.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CIELABF4 = ) show FS4 cvsshow2
(, CIELABSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%CIELCH
/d_CIELCHave4 d_CIELCHsum4 i4i 1 add div def
100 yhot ydel 07 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CIELCHmin4 = ) show d_CIELCHmin4 cvsshow2
(, d_CIELCHmax4 = ) show d_CIELCHmax4 cvsshow2
(, d_CIELCHave4 = ) show d_CIELCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def
%STOPa2
/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CIELCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 08.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CIELCHF4 = ) show FS4 cvsshow2
(, CIELCHSTRESS4 = ) show SS4 cvsshow2

%STOPb
%***********************************************
%C94LCH
/d_C94LCHave4 d_C94LCHsum4 i4i 1 add div def
100 yhot ydel 10 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C94LCHmin4 = ) show d_C94LCHmin4 cvsshow2
(, d_C94LCHmax4 = ) show d_C94LCHmax4 cvsshow2
(, d_C94LCHave4 = ) show d_C94LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C94LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C94LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 11.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C94LCHF4 = ) show FS4 cvsshow2
(, C94LCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%CMCLCH
/d_CMCLCHave4 d_CMCLCHsum4 i4i 1 add div def
100 yhot ydel 13 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_CMCLCHmin4 = ) show d_CMCLCHmin4 cvsshow2
(, d_CMCLCHmax4 = ) show d_CMCLCHmax4 cvsshow2
(, d_CMCLCHave4 = ) show d_CMCLCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CMCLCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_CMCLCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 14.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, CMCLCHF4 = ) show FS4 cvsshow2
(, CMCLCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%C00LCH
/d_C00LCHave4 d_C00LCHsum4 i4i 1 add div def
100 yhot ydel 16 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C00LCHmin4 = ) show d_C00LCHmin4 cvsshow2
(, d_C00LCHmax4 = ) show d_C00LCHmax4 cvsshow2
(, d_C00LCHave4 = ) show d_C00LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C00LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C00LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 17.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C00LCHF4 = ) show FS4 cvsshow2
(, C00LCHSTRESS4 = ) show SS4 cvsshow2

%***********************************************
%C85LCH
/d_C85LCHave4 d_C85LCHsum4 i4i 1 add div def
100 yhot ydel 19 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, d_C85LCHmin4 = ) show d_C85LCHmin4 cvsshow2
(, d_C85LCHmax4 = ) show d_C85LCHmax4 cvsshow2
(, d_C85LCHave4 = ) show d_C85LCHave4 cvsshow2

/dE4iV4i 0 def
/dV4iV4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C85LCH4i i get def
         /dE4iV4i dE4iV4i dE4i dV4i mul add def
         /dV4iV4i dV4iV4i dV4i dV4i mul add def
        } for %i=0,iim
/FS4 dE4iV4i dV4iV4i div def

/dE4iMFV4i2 0 def
/dE4iE4i 0 def
0 1 iim {/i exch def %i=0,iim
         /dV4i WXYZR01V4i i 10 mul 09 add get def
         /dE4i d_C85LCH4i i get def
         /dE4iMFV4i2 dE4iMFV4i2 dE4i FS4 dV4i mul sub dup mul add def
         /dE4iE4i dE4iE4i dE4i dE4i mul add def
        } for %i=0,iim
/SS4 dE4iMFV4i2 dE4iE4i div 0.000001 add sqrt 100 mul def

100 yhot ydel 20.2 mul sub moveto
(i4i+1 = ) show i4i 1 add cvishow
(, C85LCHF4 = ) show FS4 cvsshow2
(, C85LCHSTRESS4 = ) show SS4 cvsshow2

} if %iXYZLAB=4,5

} if %ii=iimaxP1

showpage
grestore

%} for %xchart=0,xc0d


%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto
( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409
%!PS-Adobe-3.0 EPSF-3.0 XG480-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG480-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 08 MM sub 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 XG481-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439
%!PS-Adobe-3.0 EPSF-3.0 XG481-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 08 MM sub 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 XG481-3,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-3,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459
%!PS-Adobe-3.0 EPSF-3.0 XG481-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 08 MM sub 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 XG481-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479
%!PS-Adobe-3.0 EPSF-3.0 XG481-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 08 MM sub 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 XG481-7,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-7,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 XG481-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (XG481-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101
%%BoundingBox: 0 0 598 845

%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanind1 01 def /lanind2 01 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 2 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES 0 def
/i*ptrsc 0 def

gsave

0 setgray

1.0 1.0  scale

0.0 MM 0.0 MM translate

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

/x [000 296 296 000  002 294 294 002  005 291 291 005 %speziell
    006 290 290 006  008 288 288 008 ] def
/y [000 000 210 210  002 002 208 208  005 005 205 205 %speziell
    006 006 204 204  008 008 202 202 ] def
/d [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
    054 011 -54 -11  052 009 -52 -09 ] def

colorm 0 eq deintp 0 eq and {/Txx (d) def  /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if

xchart 1 ge {%xchart>=1

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto
lanind cvishow (-) show
colorm cvishow
deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
colsep cvishow (-F) show pmetam cvishow

} if %xchart>=1

/xt 1 def
xchart 1 eq {/xt 1 def} if

xt 0 eq {%xt=0,1 ifelse

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 110 MM add y i0 get MM 1 MM sub moveto
(http://130.149.60.45/~farbmetrik/XG48/XG48) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF  & ) show
(http://130.149.60.45/~farbmetrik/XG48/XG48) show
colorm cvishow deintp cvishow
colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT  & ) show
(http://130.149.60.45/~farbmetrik/XG48/XG48.HTM) show

} %xt=0

{ %xt=1
/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0

         j0 0 eq {tzccmy0* setcmykcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmcmy0* setcmykcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzycmy0* setcmykcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzocmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzlcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzvcmy0* setcmykcolor} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def

0 1 3 {/ij exch def %ij=0,3

 ij 0 eq {/ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
 ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
 ij 2 eq {/ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
 ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if

i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
              j 16 eq {tzan j get dup dup 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              tzan j get dup dup 0 setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=0,2

i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
              j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub dup dup setrgbcolor %N
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=1,3

i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
  [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace

 j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
          tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 iy0 s s  rec fill
             } if %i*ptrsc=4,5

i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
              j 16 eq {0 0 0 tzan j get setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              0 0 0 tzan j get setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {1 tzan j get sub setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub setgray
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=7

      } for %ij=0,3

        } for %j=16,20

0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

0 setgray
12 /Times-ISOL1 FS
61 MM 13.5 MM  moveto
(TUB\255Pr\374fvorlage XG48; ) showde                           %0XG48X-Y 0000#
(TUB\255test chart XG48; ) showen                               %1XG48X-Y 0000#
(gr\341fico TUB\255XG48; ) showes                               %2XG48X-Y 0000#
(TUB\255test graphique XG48; ) showfr                           %3XG48X-Y 0000#
(grafico TUB\255XG48; ) showit                                  %4XG48X-Y 0000#
(TUB\255test chart XG48; ) showjp                               %5XG48X-Y 0000#

(Farbabst\344nde und -Formeln) showde                           %0XG48X-Y 0200#
(Colour differences and formulae) showea                        %1XG48X-Y 0200#

61 MM 09.5 MM  moveto
12 /TimesI-ISOL1 FS
/ioutn 1 def


%Series XK41..01..XK48: ioutn=1
%       XK41..01..XK44: WANG_ELCD (xchart3=0,1,2,3, xchart4=2) REL
%       XK45..01..XK48: VIK_ELCD  (xchart3=0,1,2,3, xchart4=3) REL

%Series XK51..01..XK58: ioutn=0
%       XK51..01..XK54: CIELAB    (xchart3=0,1,2,3, xchart4=0)
%       XK55..01..XK58: CIEDE2000 (xchart3=0,1,2,3, xchart4=1)

%Series XK61..01..XK68: ioutn=0
%       XK61..01..XK64: WANG-ELCD (xchart3=0,1,2,3, xchart4=2) Pair C
%       XK65..01..XK68: VIK-ELCD  (xchart3=0,1,2,3, xchart4=3) Pair C

%xchart3=0,1,2,3=VA, KA, KS, MA

ioutn 0 eq {%ioutn=0
xchart4 0 eq {%xchart4=0, XK51..XK54
              xchart3 0 eq {(VA_EC098=VIK_ADJACENT_EC) show} if
              xchart3 1 eq {(KA_EC098=KIT_ADJACENT_EC) show} if
              xchart3 2 eq {(KS_EC098=KIT_SEPARATE_EC) show} if
              xchart3 3 eq {(MA_EC098=MEL_ADJACENT_EC) show} if
             } if %xchart4=0
xchart4 1 eq {%xchart4=1, XK55..XK58
              xchart3 0 eq {(VA_ED098=VIK_ADJACENT_ED) show} if
              xchart3 1 eq {(KA_ED098=KIT_ADJACENT_ED) show} if
              xchart3 2 eq {(KS_ED098=KIT_SEPARATE_ED) show} if
              xchart3 3 eq {(MA_ED098=MEL_ADJACENT_ED) show} if
             } if %xchart4=1
xchart4 2 eq {%xchart4=2, XK61..XK64
              xchart3 0 eq {(VA_EW098=VIK_ADJACENT_EW) show} if
              xchart3 1 eq {(KA_EW098=KIT_ADJACENT_EW) show} if
              xchart3 2 eq {(KS_EW098=KIT_SEPARATE_EW) show} if
              xchart3 3 eq {(MA_EW096=MEL_ADJACENT_EW) show} if
             } if %xchart4=2
xchart4 3 eq {%xchart4=3, XK65..XK68
              xchart3 0 eq {(VA_EV098=VIK_ADJACENT_EW) show} if
              xchart3 1 eq {(KA_EV098=KIT_ADJACENT_EW) show} if
              xchart3 2 eq {(KS_EV098=KIT_SEPARATE_EW) show} if
              xchart3 3 eq {(MA_EV096=MEL_ADJACENT_EW) show} if
             } if %xchart4=3
} if %ioutn=0
ioutn 1 eq {%ioutn=1
xchart4 2 eq {%xchart4=2, XK41..XK44
              xchart3 0 eq {(Va_EW098=VIK_ADJACENT_EW) show} if
              xchart3 1 eq {(Ka_EW098=KIT_ADJACENT_EW) show} if
              xchart3 2 eq {(Ks_EW098=KIT_SEPARATE_EW) show} if
              xchart3 3 eq {(Ma_EW098=MEL_ADJACENT_EW) show} if
             } if %xchart4=2
xchart4 3 eq {%xchart4=3, XK45..XK48
              xchart3 0 eq {(Va_EV098=VIK_ADJACENT_EV) show} if
              xchart3 1 eq {(Ka_EV098=KIT_ADJACENT_EV) show} if
              xchart3 2 eq {(Ks_EV098=KIT_SEPARATE_EV) show} if
              xchart3 3 eq {(Ma_EV098=MEL_ADJACENT_EV) show} if
             } if %xchart4=3
} if %ioutn=1

12 /Times-ISOL1 FS
(, Farbdifferenz\255Experimente) showde                         %0XG48X-Y 0200#
(, colour difference experiments) showea                        %0XG48X-Y 0200#

/xc1a 00 def
/xc1e xc0d def
/xc2a xc1e 1 add def
/xc2e xc2a xc0d add def

/xc3a xc2e 1 add def
/xc3e xc3a xc2d add def
/xc4a xc3e 1 add def
/xc4e xc4a xc2d add def

/xc5a xc4e 1 add def
/xc5e xc5a xc4d add def
/xc6a xc5e 1 add def
/xc6e xc5a xc4d add def

%xchart xc1a ge xchart xc2e le and
%{(, alle Farben von ) showde
% (, all colours of ) showen
% iimp cvishow
%} if

%xchart xc3a ge xchart xc4e le and
%{(, xxx? Farben von ) showde
% (, xxx? colours of ) showen
% iimp cvishow (, ) show
%12 /Symbol FS (D) show
%12 /TimesI-ISOL1 FS (E*) show 10 /Times-ISOL1 FS
%0 -2 rmoveto (CIELAB) show 0 2 rmoveto
%12 /Times-ISOL1 FS (<=2) show} if

%xchart xc5a ge xchart xc6e le and
%{(, xxx? Farben von ) showde
% (, xxx? colours of ) showen
% iimp cvishow (, ) show
%12 /Symbol FS (D) show
%12 /TimesI-ISOL1 FS (E*) show 10 /Times-ISOL1 FS
%0 -2 rmoveto (DE2000) show 0 2 rmoveto
%12 /Times-ISOL1 FS (<=2) show} if

%xchart 1 ge {%xchart>=1
%12 /Times-ISOL1 FS
%(, 3D=) show colorm cvishow
%(, de=) show deintp cvishow

%12 /TimesI-ISOL1 FS
%xchart5f 0 eq {(, sRGB) show} if
%xchart5f 1 eq {(, cmyk) show} if
%xchart5f 2 eq {(, cmy0)  show} if
%xchart5f 3 eq {(, cmyk) show} if
%colorm 1 eq {(*) show} if
%} if %xchart>=1

12 /Times-ISOL1 FS
165 MM 13 MM moveto
(Eingabe: ) showde                                              %0XG48X-Y 0500#
(input: ) showen                                                %1XG48X-Y 0500#
(entrada: ) showes                                              %2XG48X-Y 0500#
(entr\351e: ) showfr                                            %3XG48X-Y 0500#
(immettere: ) showit                                            %4XG48X-Y 0500#
(input: ) showjp                                                %5XG48X-Y 0500#
12 /TimesI-ISOL1 FS
(w/rgb/cmyk -> (w/rgb/cmyk)) show
%xchart xchart3 lt {(w/rgb/cmyk) show
%                  } if
%xchart xchart3 ge {%xchart>=xchart3
%                   (rgb) show
%                  } if %xchart>=xchart3

%10 /Times-ISOL1 FS
%0 -2 rmoveto Txx show 0 2 rmoveto
%12 /Times-ISOL1 FS

/idat 0 def
idat 1 eq {%idat=1
12 /Times-ISOL1 FS
165 MM 9 MM moveto
(Ausgabe: ) showde                                              %0XG48X-Y 0600#
(output: ) showen                                               %1XG48X-Y 0600#
(salida: ) showes                                               %2XG48X-Y 0600#
(sortie: ) showfr                                               %3XG48X-Y 0600#
(uscita: ) showit                                               %4XG48X-Y 0600#
(output: ) showjp                                               %5XG48X-Y 0600#

%colorm=0,1!
12 /Times-ISOL1 FS
xchart 0 eq {%xchart=0,#0
             12 /Times-ISOL1 FS
(keine \304nderung) showde                                      %0XG48X-Y 0700#
(no change) showen                                              %1XG48X-Y 0700#
(ning\372n cambio) showes                                       %2XG48X-Y 0700#
(aucun changement) showfr                                       %3XG48X-Y 0700#
(nessun cambiamento) showit                                     %4XG48X-Y 0700#
(no change compared) showjp                                     %5XG48X-Y 0700#
            }%xchart=0

            {%xchart#0
             12 /Times-ISOL1 FS
             colorm 0 eq {%colorm=0
(Transfer nach ) showde                                         %0XG48X-Y 0800#
(transfer to ) showen                                           %1XG48X-Y 0800#
(transfiera a ) showes                                          %2XG48X-Y 0800#
(transf\351rer \340 ) showfr                                    %3XG48X-Y 0800#
(trasferire a ) showit                                          %4XG48X-Y 0800#
(transfer to ) showjp                                           %5XG48X-Y 0800#
                         }%colorm=0
                         {%colorm=1
(3D\255Linearisierung ) showde                                  %0XG48X-Y 0900#
(3D\255linearization to ) showen                                %1XG48X-Y 0900#
(3D\255linealizaci\363n a ) showes                              %2XG48X-Y 0900#
(linearisation 3D selon ) showfr                                %3XG48X-Y 0900#
(3D\255linearizzazione a ) showit                               %4XG48X-Y 0900#
(3D\255linearization to ) showjp                                %5XG48X-Y 0900#
                         } ifelse %colorm=1
12 /TimesI-ISOL1 FS
xchart5f 0 eq {(rgb)  show} if
xchart5f 1 eq {(cmyk) show} if
xchart5f 2 eq {(cmy0) show} if
xchart5f 3 eq {(cmyk) show} if
colorm 1 eq {(*) show} if
10 /Times-ISOL1 FS
0 -2 rmoveto Txx show 0 2 rmoveto
12 /Times-ISOL1 FS
} ifelse %xchart=0,#0
} if %idat=1

%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

 62 MM 198.5 MM  moveto
(http://130.149.60.45/~farbmetrik/XG48/XG48L) show
(0) show
LSC$ show LEX$ show

%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde                                       %0XG48X-Y 1000#
(start output) showen                                           %1XG48X-Y 1000#
(comience salida) showes                                        %2XG48X-Y 1000#
(sortie de production) showfr                                   %3XG48X-Y 1000#
(cominciare l'uscita) showit                                    %4XG48X-Y 1000#
(start output) showjp                                           %5XG48X-Y 1000#
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde                                       %0XG48X-Y 1100#
(start output) showen                                           %1XG48X-Y 1100#
(comience salida) showes                                        %2XG48X-Y 1100#
(sortie de production) showfr                                   %3XG48X-Y 1100#
(cominciare l'uscita) showit                                    %4XG48X-Y 1100#
(start output) showjp                                           %5XG48X-Y 1100#
           } if
xchart 1 ge {%xchart>=1
colorm 0 eq {%colorm=0,1
(Transfer Ausgabe) showde                                       %0XG48X-Y 1200#
(transfer output) showen                                        %1XG48X-Y 1200#
(salida de transferencia) showes                                %2XG48X-Y 1200#
(sortie de transfert) showfr                                    %3XG48X-Y 1200#
(uscita di trasferimento) showit                                %4XG48X-Y 1200#
(transfer output) showjp                                        %5XG48X-Y 1200#
            }%colorm=0
            {%colorm=1
(3D\255Linearisierung) showde                                   %0XG48X-Y 1300#
(3D\255linearization) showen                                    %1XG48X-Y 1300#
(3D\255linealizaci\363n) showes                                 %2XG48X-Y 1300#
(linearisation 3D) showfr                                       %3XG48X-Y 1300#
(3D\255linearizzzazione) showit                                 %4XG48X-Y 1300#
(3D\255linearization) showjp                                    %5XG48X-Y 1300#
            } ifelse %colorm=0,1
            } if %xchart>=1

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine 3D\255Linearisierung (OL) ) showde                    %0XG48X-Y 1400#
(N: no 3D\255linearization (OL) ) showen                        %1XG48X-Y 1400#
(N: ninguna 3D\255linealizaci\363n (OL) ) showes                %2XG48X-Y 1400#
(N: aucun linearisation 3D (OL) ) showfr                        %3XG48X-Y 1400#
(N: nessun 3D\255linearizzazione (OL) ) showit                  %4XG48X-Y 1400#
(N: no 3D\255linearization (OL) ) showjp                        %5XG48X-Y 1400#

(in Datei (F) oder PS\255Startup (S)) showde                    %0XG48X-Y 1500#
(in file (F) or PS\255startup (S)) showen                       %1XG48X-Y 1500#
(en archivo (F) o PS\255startup (S)) showes                     %2XG48X-Y 1500#
(dans fichier (F) ou PS\255startup (S)) showfr                  %3XG48X-Y 1500#
(nel file (F) o PS\255startup (S)) showit                       %4XG48X-Y 1500#
(in file (F) or PS\255startup (S)) showjp                       %5XG48X-Y 1500#
           }
           {LSC$ show (: ) show
(3D\255Linearisierung) showde                                   %0XG48X-Y 1600#
(3D\255linearization) showen                                    %1XG48X-Y 1600#
(3D\255linealizaci\363n) showes                                 %2XG48X-Y 1600#
(linearisation 3D) showfr                                       %3XG48X-Y 1600#
(3D\255linearizzzazione) showit                                 %4XG48X-Y 1600#
(3D\255linearization) showjp                                    %5XG48X-Y 1600#
( XG48/XG48L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in Datei (F)) showde                                          %0XG48X-Y 1700#
( in file (F)) showen                                           %1XG48X-Y 1700#
( en archivo (F)) showes                                        %2XG48X-Y 1700#
( dans fichier (F)) showfr                                      %3XG48X-Y 1700#
( nel file (F)) showit                                          %4XG48X-Y 1700#
( in file (F)) showjp                                           %5XG48X-Y 1700#
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde                    %0XG48X-Y 1800#
( in Distiller Startup (S) Directory) showen                    %1XG48X-Y 1800#
( en el Distiller Startup (S) Directory) showes                 %2XG48X-Y 1800#
( dans le Distiller Startup (S) Directory) showfr               %3XG48X-Y 1800#
( nel Distiller Startup (S) Directory) showit                   %4XG48X-Y 1800#
( in Distiller Startup (S) Directory) showjp                    %5XG48X-Y 1800#
           } if
LSC$ (D) eq {
( in PS\255Device (D)) showde                                   %0XG48X-Y 1900#
( in PS\255device (D)) showen                                   %1XG48X-Y 1900#
( en el PS\255device (D)) showes                                %2XG48X-Y 1900#
( dans l'appareil PS (D)) showfr                                %3XG48X-Y 1900#
( nel PS\255dispositivo (D)) showit                             %4XG48X-Y 1900#
( in PS\255Device (D)) showjp                                   %5XG48X-Y 1900#
           } if
LSC$ (T) eq {
( im Distiller Startup (S) Directory) showde                    %0XG48X-Y 2000#
( in Distiller Startup (S) Directory) showen                    %1XG48X-Y 2000#
( en el Distiller Startup (S) Directory) showes                 %2XG48X-Y 2000#
( dans le Distiller Startup (S) Directory) showfr               %3XG48X-Y 2000#
( nel Distiller Startup (S) Directory) showit                   %4XG48X-Y 2000#
( in Distiller Startup (S) Directory) showjp                    %5XG48X-Y 2000#
           } if
LSC$ (E) eq {
( in PS\255Device (D)) showde                                   %0XG48X-Y 2100#
( in PS\255device (D)) showen                                   %1XG48X-Y 2100#
( en el PS\255device (D)) showes                                %2XG48X-Y 2100#
( dans appareil PS (D)) showfr                                  %3XG48X-Y 2100#
( nel PS\255dispositivo (D)) showit                             %4XG48X-Y 2100#
( in PS\255Device (D)) showjp                                   %5XG48X-Y 2100#
           } if
%0 setgray %end white and unvisible

(, Seite ) showde                                               %0XG48X-Y 2200#
(, page ) showen                                                %1XG48X-Y 2200#
(, p\341gina ) showes                                           %2XG48X-Y 2200#
(, page ) showfr                                                %3XG48X-Y 2200#
(, pagina ) showit                                              %4XG48X-Y 2200#
(, page ) showjp                                                %5XG48X-Y 2200#
xchart 1 add cvishow (/) show
xchartm cvishow

 16 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien: ) showde                            %0XG48X-Y 2300#
(see similar files: ) showen                                    %1XG48X-Y 2300#
(vea archivos semejantes: ) showes                              %2XG48X-Y 2300#
(voir des fichiers similaires: ) showfr                         %3XG48X-Y 2300#
(vedere dei file simili: ) showit                               %4XG48X-Y 2300#
(see similar files: ) showjp                                    %5XG48X-Y 2300#
(http://130.149.60.45/~farbmetrik/XG48/XG48.HTM) show
%(0) show
%LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde                               %0XG48X-Y 2400#
(technical information: ) showen                                %1XG48X-Y 2400#
(informaci\363n t\351cnica: ) showes                            %2XG48X-Y 2400#
(informations techniques: ) showfr                              %3XG48X-Y 2400#
(informazioni tecniche: ) showit                                %4XG48X-Y 2400#
(technical information: ) showjp                                %5XG48X-Y 2400#
(http://www.ps.bam.de) show
( oder ) showde                                                 %0XG48X-Y 2500#
( or ) showen                                                   %1XG48X-Y 2500#
( o ) showes                                                    %2XG48X-Y 2500#
( ou ) showfr                                                   %3XG48X-Y 2500#
( o ) showit                                                    %4XG48X-Y 2500#
( or ) showjp                                                   %5XG48X-Y 2500#
(http://130.149.60.45/~farbmetrik) show
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20140801\255XG48/XG48L) showde           %0XG48X-Y 2600#
(TUB registration: 20140801\255XG48/XG48L) showen               %1XG48X-Y 2600#
(TUB matr\355cula: 20140801\255XG48/XG48L) showes               %2XG48X-Y 2600#
(TUB enregistrement: 20140801\255XG48/XG48L) showfr             %3XG48X-Y 2600#
(TUB iscrizione: 20140801\255XG48/XG48L) showit                 %4XG48X-Y 2600#
(TUB registration: 20140801\255XG48/XG48L) showjp               %5XG48X-Y 2600#
(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde                           %0XG48X-Y 2700#
(TUB material: code=rha4ta) showen                              %1XG48X-Y 2700#
(TUB material: code=rha4ta) showes                              %2XG48X-Y 2700#
(TUB mat\351riel: code=rha4ta) showfr                           %3XG48X-Y 2700#
(TUB materiale: code=rha4ta) showit                             %4XG48X-Y 2700#
(TUB material: code=rha4ta) showjp                              %5XG48X-Y 2700#
90 rotate

277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def

( Anwendung f\374r Messung ) showde                             %0XG48X-Y 2800#
( application for measurement ) showen                          %1XG48X-Y 2800#
( aplicaci\363n para la medida ) showes                         %2XG48X-Y 2800#
( application pour la mesure ) showfr                           %3XG48X-Y 2800#
( la domanda per la misura ) showit                             %4XG48X-Y 2800#
( application for measurement ) showjp                          %5XG48X-Y 2800#

xchart5f 0 eq {%xchart5f=0
(von Display- oder Drucker-Ausgabe) showde                      %0XG48X-Y 2900#
(of display or printer output) showen                           %1XG48X-Y 2900#
(de display output) showes                                      %2XG48X-Y 2900#
(de sortie sur \350cran) showfr                                 %3XG48X-Y 2900#
(di stampa di display) showit                                   %4XG48X-Y 2900#
(of display output) showjp                                      %5XG48X-Y 2900#
} if %xchart5f=0

xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2
(von Offsetdruck\255Ausgabe) showde                             %0XG48X-Y 3000#
(of offset print output) showen                                 %1XG48X-Y 3000#
(salida en la impressi\363n offset) showes                      %2XG48X-Y 3000#
(des sorties sur offset) showfr                                 %3XG48X-Y 3000#
(uscita nella stampa di offset) showit                          %4XG48X-Y 3000#
(of offset print output) showjp                                 %5XG48X-Y 3000#
} if %xchart5f=1,2

xchart5f 3 eq {%xchart5f=3
(von Laserdrucker\255Ausgabe) showde                            %0XG48X-Y 3100#
(of laser printer output) showen                                %1XG48X-Y 3100#
(salida de impresora l\341ser) showes                           %2XG48X-Y 3100#
(des sorties sur imprimante laser) showfr                       %3XG48X-Y 3100#
(di uscita della stampante laser) showit                        %4XG48X-Y 3100#
(of laser printer output) showjp                                %5XG48X-Y 3100#
} if %xchart5f=3

xchart 1 ge {%xchart>=1
xchart5f 0 eq {%xchart5f=0
(, keine Separation) showde                                     %0XG48X-Y 3200#
(, no separation) showen                                        %1XG48X-Y 3200#
(, ninguna separaci\363n) showes                                %2XG48X-Y 3200#
(, aucune s\351paration) showfr                                 %3XG48X-Y 3200#
(, nessuna separazione) showit                                  %4XG48X-Y 3200#
(, no separation) showjp                                        %5XG48X-Y 3200#
} if %chart5f=0

xchart5f 1 ge {%xchart5f>=1
(, Separation) showde                                           %0XG48X-Y 3300#
(, separation) showen                                           %1XG48X-Y 3300#
(, separaci\363n) showes                                        %2XG48X-Y 3300#
(, s\351paration) showfr                                        %3XG48X-Y 3300#
(, separazione) showit                                          %4XG48X-Y 3300#
(, separation) showjp                                           %5XG48X-Y 3300#
xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if
xchart5f 2 eq                  {(cmy0)  show} if
colorm 1 eq {(*) show} if
colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show
} if %xchart5f>=1

            } if %xchart>=1

IMES 1 eq LSC$ (N) ne and { %IMES=1
             (, Yr=) show Yre cvsshow1 (, XYZ) show
          } if %IMES=1
90 rotate

/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

%/xlu1 013 MM def /ylu1 010 MM def
%/xro1 283 MM def /yro1 200 MM def
%/xlo1 013 MM def /ylo1 200 MM def
%/xru1 283 MM def /yru1 010 MM def

%xlu1 4 MM sub ylu1 moveto  8 MM 0 rlineto stroke
%xlu1 ylu1 4 MM sub moveto 0  8 MM rlineto stroke
%xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
%xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke

%xru1 4 MM sub yru1 moveto  8 MM 0 rlineto stroke
%xru1 yru1 4 MM sub moveto 0  8 MM rlineto stroke
%xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
%xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke
} ifelse %xt=1

grestore
gsave

%**********************************************************

%%Trailer

%%EndDocument
EndEPSF grestore gsave

showpage
grestore

%} for %colsepf=0,1

%} for %pchartf=0,0

} for %xchartf=0,53

%} for %xcolorf=3,3

%} for %deintpf=0,1

%} for %colormf=0,1

%} for %lanindf=0,0

%%Trailer