%!PS-Adobe-3.0 EPSF-3.0 VG081-5A
%%BoundingBox: 70 85 226 206

%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://130.149.60.45/~farbmetrik/TE01/)
  /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, colour vision)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2014010112000)
  /ModDate (D:2014010112000)
/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

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

/TS {160 /Times-ISOL1 FS} bind def
/TL {200 /Times-ISOL1 FS} bind def
/TK {240 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {340 /Times-ISOL1 FS} bind def

/TIL {200 /TimesI-ISOL1 FS} bind def
/TIK {240 /TimesI-ISOL1 FS} bind def
/TIM {290 /TimesI-ISOL1 FS} bind def
/TIG {340 /TimesI-ISOL1 FS} bind def

/TBL {200 /TimesB-ISOL1 FS} bind def
/TBK {240 /TimesB-ISOL1 FS} bind def
/TBM {290 /TimesB-ISOL1 FS} bind def
/TBG {340 /TimesB-ISOL1 FS} bind def

/TBIL {200 /TimesBI-ISOL1 FS} bind def
/TBIK {240 /TimesBI-ISOL1 FS} bind def
/TBIM {290 /TimesBI-ISOL1 FS} bind def
/TBIG {340 /TimesBI-ISOL1 FS} bind def

/SL {200 /Symbol FS} bind def
/SK {240 /Symbol FS} bind def
/SM {290 /Symbol FS} bind def
/SG {340 /Symbol FS} 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

/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

/IXYZX 12600 array def %min 600*21=12600
/IXYZX [%BEG IXYZX
%AC00_AUSW3_5285.FOR, E/A: AC00_AUSW3_5285.DAT/.TXT/A.TXT
%AC00_ALL00_5285.DAT, CIE1_63_UE91_99-7T.TXT, threshold & difference data with min and max at the end
%5285 Data: Richter(330), Kittelmann(392), Avramopoulos(132), Witt(418), RIT_DuPont(312), Leeds(307), BFD.01(2776), CIELAB(309), CIEDE2000(309)%
%UE930-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT
%%XS     YS      ZS      X0      Y0      Z0      X1      Y1      Z1      DV      dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no.       Code       L*   a*   b* %  DL  DC
%CIEXYZ*1000 data for all colours (a), iim=330, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1 %
   94937  100000   46142  272171  286340  132630  283691  298460  138243    1000  2291  2291  1034  2291  2291  2291 13110000 (149008AV) 149    0    0 % 2292   6
   94937  100000   46142  178005  187271   86742  185853  195528   90567    1000  2071  2071   992  2071  2071  2071 13110001 (127008AV) 127    0    0 % 2071   6
   94937  100000   46142  108349  113990   52799  113311  119210   55216    1000  1822  1822   945  1822  1822  1822 13110002 (105008AV) 105    0    0 % 1822   5
   94937  100000   46142   72382   76150   35271   75385   79310   36735    1000  1445  1445   807  1445  1445  1445 13110003 (90008_AV)  90    0    0 % 1445   4
   94937  100000   46142   49917   52516   24324   52320   55044   25495    1000  1478  1478   889  1478  1478  1478 13110004 (78008_AV)  78    0    0 % 1478   4
   94937  100000   46142   36407   38302   17741   37904   39877   18470    1000  1139  1139   734  1139  1139  1139 13110005 (68008_AV)  68    0    0 % 1139   2
   94937  100000   46142   26828   28224   13073   28073   29535   13680    1000  1160  1160   804  1160  1160  1160 13110006 (60008_AV)  60    0    0 % 1160   3
   94937  100000   46142   19953   20991    9723   20881   21968   10175    1000  1053  1053   787  1053  1053  1053 13110007 (53008_AV)  53    0    0 % 1053   1
   94937  100000   46142   15127   15915    7371   15783   16604    7691    1000   894   894   722   894   894   894 13110008 (47008_AV)  47    0    0 %  894  10
   94937  100000   46142   11215   11799    5465   11748   12360    5725    1000   887   887   784   887   887   887 13110009 (41008_AV)  41    0    0 %  887   3
   94937  100000   46142    8138    8562    3965    8533    8977    4158    1000   812   812   797   812   812   812 13110010 (35008_AV)  35    0    0 %  812  10
   94937  100000   46142   10679   11235    5204   10992   11564    5356    1000   540   540   485   540   540   540 13110011 (40008_AV)  40    0    0 %  541   3
   94937  100000   46142    6982    7345    3402    7205    7580    3511    1000   512   512   530   512   512   512 13110012 (33008_AV)  33    0    0 %  512   4
   94937  100000   46142    4248    4470    2070    4396    4625    2142    1000   469   469   589   469   469   469 13110013 (25008_AV)  25    0    0 %  470  11
   94937  100000   46142    2823    2970    1376    2940    3093    1432    1000   488   488   737   488   488   488 13110014 (20008_AV)  20    0    0 %  488  13
   94937  100000   46142    1947    2049     949    2040    2146     994    1000   492   492   962   492   491   491 13110015 (16008_AV)  16    0    0 %  492  20
   94937  100000   46142    1410    1483     687    1486    1564     724    1000   508   508   993   508   508   507 13110016 (13008_AV)  13    0    0 %  507  29
   94937  100000   46142    1040    1095     507    1099    1156     535    1000   468   468   915   468   468   467 13110017 (10008_AV)  10    0    0 %  467  37
 %I,K= 5285   18
] def %END IXYZX

/IXYZ0 12600 array def %min 600x21 will be defined later from IXYZX

/IXYZ1 357 array def %min 21x17
/IXYZ1 [%BEG IXYZ1
%UE980-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT
%%XS     YS      ZS      X0      Y0      Z0      X1      Y1      Z1      DV      dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no.       Code       L*   a*   b* %
%CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*LCH=\Delta E*CIELAB=CIELCH=1 %
 0095040 0100000 0108880 0001070 0001126 0001226 0001199 0001262 0001373 0001000 01001 01001 01001 01959 00630 00852 18110000 (10009_WN)  10    0    0 %
 0095040 0100000 0108880 0001813 0001908 0002078 0001996 0002100 0002286 0001000 01001 01001 01001 01960 00662 01004 18110001 (15009_WN)  15    0    0 %
 0095040 0100000 0108880 0002840 0002989 0003254 0003085 0003246 0003534 0001000 01001 01001 01001 01507 00697 01099 18110002 (20009_WN)  20    0    0 %
 0095040 0100000 0108880 0004196 0004415 0004807 0004512 0004747 0005168 0001000 01001 01001 01001 01264 00735 01143 18110003 (25002_WN)  25    0    0 %
 0095040 0100000 0108880 0005926 0006235 0006789 0006322 0006652 0007243 0001000 01001 01001 01001 01101 00779 01149 18110004 (30002_WN)  30    0    0 %
 0095040 0100000 0108880 0008076 0008498 0009253 0008562 0009009 0009809 0001000 01001 01001 01001 00985 00829 01130 18110005 (35002_WN)  35    0    0 %
 0095040 0100000 0108880 0010692 0011250 0012250 0011277 0011865 0012919 0001000 01001 01001 01001 00897 00886 01096 18110006 (40002_WN)  40    0    0 %
 0095040 0100000 0108880 0013820 0014541 0015833 0014512 0015269 0016625 0001000 01000 01000 01000 00830 00955 01055 18110007 (45002_WN)  45    0    0 %
 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 18110008 (50002_WN)  50    0    0 %
 0095040 0100000 0108880 0021792 0022929 0024966 0022727 0023913 0026036 0001000 01000 01000 01000 00731 00940 00965 18110009 (55002_WN)  55    0    0 %
 0095040 0100000 0108880 0026728 0028123 0030620 0027798 0029249 0031846 0001000 01000 01000 01000 00694 00873 00920 18110010 (60002_WN)  60    0    0 %
 0095040 0100000 0108880 0032358 0034047 0037070 0033572 0035324 0038461 0001000 01000 01000 01000 00662 00817 00878 18110011 (65002_WN)  65    0    0 %
 0095040 0100000 0108880 0038728 0040749 0044367 0040096 0042188 0045934 0001000 01000 01000 01000 00636 00769 00838 18110012 (70002_WN)  70    0    0 %
 0095040 0100000 0108880 0045883 0048278 0052565 0047413 0049888 0054318 0001000 01000 01000 01000 00612 00726 00800 18110013 (75002_WN)  75    0    0 %
 0095040 0100000 0108880 0053869 0056681 0061714 0055571 0058472 0063664 0001000 01000 01000 01000 00592 00688 00765 18110014 (80002_WN)  80    0    0 %
 0095040 0100000 0108880 0062733 0066007 0071868 0064615 0067988 0074025 0001000 01000 01000 01000 00574 00654 00732 18110015 (85002_WN)  85    0    0 %
 0095040 0100000 0108880 0072518 0076303 0083079 0074591 0078484 0085453 0001000 01000 01000 01000 00558 00623 00702 18110016 (90002_WN)  90    0    0 %
] def %END IXYZ1

/IXYZ2 357 array def %min 21x17
/IXYZ2 [%BEG IXYZ2
%UE990-7T.TXT; output of ..-7R.PS with MACPS2PDF -> PS2ACII ON ME17GL 141121: ..-7R.log -> .TXT
%%XS     YS      ZS      X0      Y0      Z0      X1      Y1      Z1      DV      dE*ab dE*CH dE*94 dE*CM dE*00 dE*85 no.       Code       L*   a*   b* %
%CIEXYZ*1000 data for all colours (a), iim=309, Color difference data for \Delta E*C00=\Delta E*CIEDE2000=1 %
 0095040 0100000 0108880 0001070 0001126 0001226 0001275 0001341 0001460 0001000 01554 01554 01554 03042 00981 01338 19110000 (10009_WN)  10    0    0 %
 0095040 0100000 0108880 0001813 0001908 0002078 0002089 0002198 0002393 0001000 01489 01489 01489 02914 00987 01501 19110001 (15009_WN)  15    0    0 %
 0095040 0100000 0108880 0002840 0002989 0003254 0003191 0003357 0003655 0001000 01420 01420 01420 02137 00990 01562 19110002 (20009_WN)  20    0    0 %
 0095040 0100000 0108880 0004196 0004415 0004807 0004625 0004866 0005298 0001000 01349 01349 01349 01703 00993 01541 19110003 (25002_WN)  25    0    0 %
 0095040 0100000 0108880 0005926 0006235 0006789 0006434 0006770 0007371 0001000 01277 01277 01277 01404 00995 01465 19110004 (30002_WN)  30    0    0 %
 0095040 0100000 0108880 0008076 0008498 0009253 0008662 0009114 0009923 0001000 01202 01202 01202 01183 00997 01357 19110005 (35002_WN)  35    0    0 %
 0095040 0100000 0108880 0010692 0011250 0012250 0011351 0011943 0013004 0001000 01126 01126 01126 01010 00998 01233 19110006 (40002_WN)  40    0    0 %
 0095040 0100000 0108880 0013820 0014541 0015833 0014544 0015303 0016662 0001000 01046 01046 01046 00868 00999 01103 19110007 (45002_WN)  45    0    0 %
 0095040 0100000 0108880 0017505 0018418 0020054 0018313 0019269 0020980 0001000 01000 01000 01000 00775 00999 01010 19110008 (50002_WN)  50    0    0 %
 0095040 0100000 0108880 0021792 0022929 0024966 0022786 0023975 0026104 0001000 01063 01063 01063 00777 00998 01025 19110009 (55002_WN)  55    0    0 %
 0095040 0100000 0108880 0026728 0028123 0030620 0027952 0029411 0032023 0001000 01142 01142 01142 00793 00997 01051 19110010 (60002_WN)  60    0    0 %
 0095040 0100000 0108880 0032358 0034047 0037070 0033843 0035609 0038771 0001000 01220 01220 01220 00808 00995 01070 19110011 (65002_WN)  65    0    0 %
 0095040 0100000 0108880 0038728 0040749 0044367 0040506 0042620 0046404 0001000 01296 01296 01296 00824 00994 01084 19110012 (70002_WN)  70    0    0 %
 0095040 0100000 0108880 0045883 0048278 0052565 0047989 0050493 0054977 0001000 01371 01371 01371 00839 00993 01095 19110013 (75002_WN)  75    0    0 %
 0095040 0100000 0108880 0053869 0056681 0061714 0056341 0059281 0064545 0001000 01446 01446 01446 00856 00993 01104 19110014 (80002_WN)  80    0    0 %
 0095040 0100000 0108880 0062733 0066007 0071868 0065609 0069033 0075163 0001000 01520 01520 01520 00873 00992 01111 19110015 (85002_WN)  85    0    0 %
 0095040 0100000 0108880 0072518 0076303 0083079 0075842 0079800 0086886 0001000 01594 01594 01594 00890 00991 01116 19110016 (90002_WN)  90    0    0 %
] def %END IXYZ2

%%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 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 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

5 /Times-ISOL1 FS
/cvishow {cvi 6 string cvs show} def
%75 85 moveto
%lanind cvishow (-) show
%colorm cvishow
%deintp cvishow
%xcolor cvishow
%xchart cvishow
%pchart cvishow
%colsep cvishow (-L) show pmetam cvishow

gsave
%XCHA01.PS END

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

5 /Times-ISOL1 FS
%175 85 moveto (VG081-7A) show
%xchart 0 eq {(R) show}
%            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate
0.01 MM dup scale
30 setlinewidth

20 setlinewidth
%0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

%0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

  /xchartl 12 def
%0 1 15 {/xchartl   exch def %xchartl=0,15
gsave

%  xchartl   0 eq {  100 13000 translate} if
%  xchartl   1 eq { 6100 13000 translate} if
%  xchartl   2 eq {  100 08750 translate} if
%  xchartl   3 eq { 6100 08750 translate} if

%  xchartl   4 eq {  100  4500 translate} if
%  xchartl   5 eq { 6100  4500 translate} if
%  xchartl   6 eq {  100  0250 translate} if
%  xchartl   7 eq { 6100  0250 translate} if

%  xchartl   8 eq {13500 13000 translate} if
%  xchartl   9 eq {19500 13000 translate} if
%  xchartl   10 eq {13500 08750 translate} if
%  xchartl   11 eq {19500 08750 translate} if

%  xchartl   12 eq {13500  4500 translate} if
%  xchartl   13 eq {19500  4500 translate} if
%  xchartl   14 eq {13500  0250 translate} if
%  xchartl   15 eq {19500  0250 translate} if

150 /Times-ISOL1 FS
0 setgray
300 -150 moveto
xchartl 7 le {(VG081-) show}
             {(VG081-) show} ifelse
xchartl 0 ge xchartl   7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl  15 le and {xchartl 7 sub cvishow} if
(A) show %A
(_) show xchart 1 add cvishow

/xwidth 5400 def
/ywidth 4000 def
0.0 0.0 0.0 0.5 setcmykcolor
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill

0 setlinewidth
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto
           xwidth neg 0 rlineto closepath clip
20 setlinewidth

0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black

/ishowz {0 -50 rmoveto TBK (z) show 0 50 rmoveto TBM} def
/ishowg {0 -50 rmoveto TBK (g) show 0 50 rmoveto TBM} def
/ishoww {0 -50 rmoveto TBK (w) show 0 50 rmoveto TBM} def
/ishowp {0 -50 rmoveto TBK (p) show 0 50 rmoveto TBM} def
/ishown {0 -50 rmoveto TBK (n) show 0 50 rmoveto TBM} def
/ishowu {0 -50 rmoveto TBK (u) show 0 50 rmoveto TBM} def
/ishownu {0 -50 rmoveto TBK (nu) show 0 50 rmoveto TBM} def

/ILLX 16 def
/ILLP ILLX 1 add def
/ILLM ILLX 1 sub def
/ILLA ILLX 2 idiv def %A=Average
/JLLX 03 def /ILLYA 25 def %average CIELAB and CIEDE2000

/rgbJLL 4 array def
%/rgbJLL [{1 1 0 setrgbcolor} {0 1 0 setrgbcolor}
%         {0 0 1 setrgbcolor} {1 1 1 setrgbcolor}] def
%xchart=0: R
/rgbJLL [{1 0 0 setrgbcolor} {0 1 0 setrgbcolor}
         {0 0 1 setrgbcolor} {1 1 1 setrgbcolor}] def

/rgbJLL4 5 array def
%/rgbJLL4 [{1 1 1 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor}
%/rgbJLL4 [{1 1 0 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor}
%          {1 0 0 setrgbcolor} {0 1 0 setrgbcolor}] def
%xchart=0: R
/rgbJLL4 [{1 0 0 setrgbcolor} {1 1 0 setrgbcolor} {0 0 1 setrgbcolor}
          {1 0 0 setrgbcolor} {0 1 0 setrgbcolor}] def

20 setlinewidth
050 3725 moveto TBIM tfw

xchartl 00 eq
xchartl 08 eq or {%xchartl=00,08
TBM (log ) show SM (D) show 20 0 rmoveto
TBIM (Y  ) show TBM
(CIE tristimulus value) showen
(CIE\255Normfarbwert\255) showde
/xt0 1050 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (difference) showen %(threshold) showen
TBM (Differenz) showde %(schwelle) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=00,08

xchartl 01 eq
xchartl 09 eq or {%xchartl=01,09
TBM (log \050) show TBIM (Y/) show SM (D) show
TBIM (Y\051  ) show TBM
(CIE tristimulus value) showen
(CIE\255Normfarbwert\255) showde
/xt0 1450 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (contrast sensitivity) showen %( threshold) showen
TBM (Kontrast\255Empfindlichkeit) showde %(sschwelle) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=1

xchartl 02 eq
xchartl 10 eq or {%xchartl=02,10
TBM (log \050) show SM (D) show TBIM (Y/Y\051  ) show TBM
(CIE tristimulus value) showen
(CIE\255Normfarbwert) showde
/xt0 1450 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (relative difference) showen %( threshold) showen
TBM (relative Differenz) showde %(schwelle) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=02,10

xchartl 03 eq
xchartl 11 eq or {%xchartl=03,11
TBIM (\050Y/) show SM (D) show
TBIM (Y\051  ) show TBM
(CIE tristimulus value) showen
(CIE\255Normfarbwert) showde
/xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (contrast sensitivity) showen %( threshold) showen
TBM (Kontrast\255Empfindlichkeit) showde %(s\255Schwelle) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=03,11

xchartl 04 eq
xchartl 12 eq or {%xchartl=04,12
TBM (\050) show TBIM (L*/L*) show ishowu TBM (\051  ) show 
(CIELAB ligthness) showen
(CIELAB Helligkeit) showde
/xt0 1250 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (relative normalized data) showen
    (relative normierte Daten) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=04,12

xchartl 05 eq
xchartl 13 eq or {%xchartl=05,13
TBM (log \050) show TBIM (L*/L*) show ishowu TBM (\051  ) show
(CIELAB ligthness) showen
(CIELAB Helligkeit) showde
/xt0 1650 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
TBM (relative normalized data) showen
    (relative normierte Daten) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=05,13

xchartl 06 eq 
xchartl 14 eq or {%xchartl=6,14
TBM (log [\050) show TBIM (Y/) show SM (D) show
TBIM (Y) show (\051 / \050) show
TBIM (Y) show ishowu TBM (/) show SM (D) show
TBIM (Y) show ishowu TBM (\051]  ) show
(CIE tristimulus) showen
(CIE\255Normfarbwert) showde
/xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
(value, relative sensitivity) showen
(relative Empfindlichkeit) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=6,14

xchartl 07 eq 
xchartl 15 eq or {%xchartl=07,15
TBM (log [\050) show SM (D) show
TBIM (Y) show TBM (/) show
TBIM (Y) show ishowu TBM (\051 / \050) show SM (D) show
TBIM (Y) show TBM (/) show
TBIM (Y) show ishowu TBM (\051]  ) show
(CIE tristimulus) showen
(CIE\255Normfarbwert) showde
/xt0 1000 def /xt1 0750 def /yt0 3475 def /ytd 250 def
xt0 yt0 0 ytd mul sub moveto
(value, relative contrast) showen
(relativer Kontrast) showde
xt0 yt0 1 ytd mul sub moveto
TBM (adaptation time) showen
    (Darbietungszeit) showde
TBIM ( t) show ishowp TBM (>=25s) show
             } if %xchartl=07,15

TBK
xchartl 04 ne
xchartl 05 ne and
xchartl 12 ne and
xchartl 13 ne and {%xchart#4,5 and 12,13
xt1 yt0 2.2 ytd mul sub moveto
rgbJLL4 xchart get exec

(Exp. AV, ) show
SK
(D) show
TBIK
(Y) show
TBK
(*10, ) show
xchart 0 eq {(18 achromatic) show} if
xchart 1 eq {(Yellow) show} if
xchart 2 eq {(Blue) show} if
xchart 3 eq {(Red) show} if
xchart 4 eq {(Green) show} if

xt1 yt0 3.1 ytd mul sub moveto
rgbJLL 2 get exec (CIEDE2000) show
                 } if %xchart#4,5 and 12,13
xt1 yt0 4.0 ytd mul sub moveto
rgbJLL 1 get exec (CIELAB) show

tfw
550 400 translate

50 setlinewidth
 0 0 moveto  4500 0 rlineto  stroke
 0 0 moveto  0 3000 rlineto  stroke

30 setlinewidth
[100] 0 setdash
/YYL 0.001 def
/YFL 0.000001 def
/Y000 600 array def
/Y100 600 array def
/YD00 600 array def

/IM 17 def
0 1 IM {/i exch def %i=0,IM
        /i210 i 21 mul def
0 1 20 {/j exch def %j=0,21
         IXYZ0 i210 j add IXYZX i210 j add get put
       } for %j=0,20
       } for %i=0,IM

%definition of Y000 k=17..51, no definition of Y000 k=0..16
1 1 02 {/j exch def %j=0,02 delta_Y for formulas: CUI, CIELAB, CIEDE2000
0 1 16 {/i exch def %i=0,16
        /k j 17 mul i add def
        /i21 i 21 mul def
        Y000 k j 1 eq {IXYZ1} if
               j 2 eq {IXYZ2} if
               i21 4 add get 0.001 mul put
        Y100 k j 1 eq {IXYZ1} if
               j 2 eq {IXYZ2} if
               i21 7 add get 0.001 mul put
        YD00 k Y000 k get Y100 k get sub abs put
} for %i=0,16
} for %j=0,02

%definition of Y000 k=52,52+IM
3 1 03 {/j exch def %j=3,3 experimental data
0 1 IM {/i exch def %i=0,16
        /k j 17 mul i add def
        /i21 i 21 mul def
        Y000 k IXYZ0 i21 4 add get 0.001 mul put
        Y100 k IXYZ0 i21 7 add get 0.001 mul put
        /VISD IXYZ0 i21 9 add get 0.001 mul def
        YD00 k Y000 k get Y100 k get sub abs VISD div 10. mul put
} for %i=0,IM
} for %j=1,3

/eshowM1 {-00 100 rmoveto TBL (-1) show 0 -100 rmoveto} bind def
/eshow0 {-00 100 rmoveto TBL (0) show 0 -100 rmoveto} bind def
/eshow1 {-00 100 rmoveto TBL (1) show 0 -100 rmoveto} bind def
/eshow2 {-00 100 rmoveto TBL (2) show 0 -100 rmoveto} bind def
/eshow3 {-00 100 rmoveto TBL (3) show 0 -100 rmoveto} bind def
/eshow4 {-00 100 rmoveto TBL (4) show 0 -100 rmoveto} bind def
/eshow5 {-00 100 rmoveto TBL (5) show 0 -100 rmoveto} bind def

/x0 4000 def
/x1 4350 def
/y0 2200 def
/y1 2100 def
/yd  300 def

x0 y0 350 add moveto (L) TBIM tfw show ishowu
                     TBM (=) show rgbJLL 2 get exec 
                     (L) TBIM show ishowg tfw 

x0 y0 moveto TBK ([cd/m) show eshow2 TBK (]) show
[ ] 0 setdash

x0 y0 0700 sub moveto rgbJLL 2 get exec
                      (Y) TBIK show ishowu
                      TBK (=18) show tfw
x0 y0 1050 sub moveto rgbJLL 2 get exec
                      (L*) TBIK show -100 -30 rmoveto ishowu
                      0 30 rmoveto TBK (=50) show tfw

50 setlinewidth
1 setgray %W
x1 y1 yd 1 mul sub moveto TBK (60) show %eshow1
rgbJLL 2 get exec %B
x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke
[100 ] 0 setdash
rgbJLL 3 get exec %W
x0 y0 yd 1 mul sub moveto 300 0 rlineto stroke
tfw
[ ] 0 setdash

50 setlinewidth
3870 150 moveto (x) TBIM tfw show
                20 0 rmoveto
                (=) TBM tfw show 20 0 rmoveto
                (log) TBM tfw show 30 0 rmoveto
                TBIM (Y) show 
2250 xchartl 7 ge {100 add} if 150 moveto rgbJLL 2 get exec
                (u) TBIM show
                20 0 rmoveto
                (=) TBM show 20 0 rmoveto
                (log) TBM show 30 0 rmoveto
                TBIM (Y) show
                00 -60 rmoveto TBK (u) show 0 60 rmoveto tfw

/cvishow {cvi 10 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

/DELTL0 600 array def
/DELTL1 600 array def
/DELTL2 600 array def
/DELTL3 600 array def
/DELTL4 600 array def
/XGRAPH 600 array def
/YGRAPH 600 array def

TK
%Scale: 1 log = 500 units
/Fx0x 500 def
/Fy0x 500 def

/XDAT0 600 array def
/XDAT1 600 array def
/XDAT2 600 array def
/XDAT3 600 array def
/XDAT4 600 array def
/XDAT5 600 array def
/XDAT6 600 array def
/XDAT7 600 array def

%*********************************************************************
/ALOG_DL {%BEG ALOG_DL, xchartl=0,08
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         DELTL0 ILLY YD00 ILLY get abs log put
         DELTL0 ILLY get 4.3 gt {DELTL0 ILLY 4.3 put} if
         DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY YD00 ILLY get put
         XDAT4 ILLY YD00 ILLY get abs log put
 
         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_DL, xchartl=0,08

%*********************************************************************
/ALOG_L_DL {%BEG ALOG_L_DL, xchartl=1,09
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -1 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -0.5 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         DELTL0 ILLY Y000 ILLY get YD00 ILLY get div log put
         DELTL0 ILLY get 6.3 gt {DELTL0 ILLY 6.3 put} if
         DELTL0 ILLY get -1 le {DELTL0 ILLY -1 put} if
         YGRAPH ILLY DELTL0 ILLY get put

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put
         XDAT4 ILLY Y000 ILLY get YD00 ILLY get div log put

         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_L_DL, xchartl=1,09

%*********************************************************************
/ALOG_DL_L {%BEG ALOG_DL_L, xchartl=2,10
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -4 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -2 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         DELTL0 ILLY YD00 ILLY get Y000 ILLY get div log put
         DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if
         YGRAPH ILLY DELTL0 ILLY get put

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY YD00 ILLY get Y000 ILLY get div put
         XDAT4 ILLY YD00 ILLY get Y000 ILLY get div log put

         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_DL_L, xchartl=2,10

%*************************************************************
/ALIN_L_DL {%BEG ALLIN_L_DL, xchartl=3,11
/Fx03 500 def
/Fy03 050 def
xchartl 7 le {/Fx Fx03 def /Fy Fy03 def /Flog 0 def}
             {/Fx Fx03 2 mul def /Fy Fy03 1 mul def /Flog 0 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         DELTL0 ILLY Y000 ILLY get YD00 ILLY get div put
         DELTL0 ILLY get 60 ge {DELTL0 ILLY 60 put} if

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY Y000 ILLY get YD00 ILLY get div put
         XDAT4 ILLY Y000 ILLY get YD00 ILLY get div abs log put
 
         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALIN_L_DL, xchartl=3,11

%*********************************************************************
/ALIN_T* {%BEG ALIN_T*, xchart=4,12
/Fx04 500. def
/Fy04  25. def
xchartl 7 le {/Fx Fx04 def /Fy Fy04 def /Flog 0 def}
             {/Fx Fx04 2 mul def /Fy Fy04 1 mul def /Flog 0 def} ifelse
1 1 1 {/JLL exch def %JLL=1,JLLX %only CIELAB
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         DELTL0 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub put
         DELTL0 ILLY get 0 le {DELTL0 ILLY FYY put} if

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub put
         XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub log put
 
         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALIN_T*, xchartl=4,12

%*********************************************************************
/ALOG_T* {%BEG ALOG_T*, xchartl=5,13
/Fx05 500. def
/Fy05 Fy0x def
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse
1 1 1 {/JLL exch def %JLL=1,JLLX %JLL=1,JLLX %only CIELAB
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put

         DELTL0 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub 50 div log put
         DELTL0 ILLY get -2 le {DELTL0 ILLY -2 put} if


         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub 50 div put
         XDAT4 ILLY Y000 ILLY get 100. div 0.3333 exp 116. mul
                    16. sub 50 div log put
 

         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_T*, xchartl=5,13

%*********************************************************************
/ALOG_L_DLn {%BEG ALOG_L_DLn, xchartl=6,14
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
          /ILLU ILLA JLL 17 mul add def
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put
         /DELTLx Y000 ILLY get YD00 ILLY get div def
         /DELTLu Y000 ILLU get YD00 ILLU get div def

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY DELTLx put
         XDAT4 ILLY DELTLx DELTLu div abs put

         DELTL0 ILLY DELTLx DELTLu YFL add div abs log put
         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_L_DLn, xchartl=6,14

%*********************************************************************
/ALOG_DL_Ln {%BEG ALOG_DL_Ln, xchartl=7,15
xchartl 7 le {/Fx Fx0x def /Fy Fy0x def /Flog -3 def}
             {/Fx Fx0x 2 mul def /Fy Fy0x 2 mul def /Flog -1.5 def} ifelse
1 1 JLLX {/JLL exch def %JLL=1,JLLX
          rgbJLL JLL get exec
          JLL 3 eq {%JLL=3
                    rgbJLL4 xchart get exec
                    /ILLX IM def
                   } if %JLL=3
          newpath
          /ILLU ILLA JLL 17 mul add def
0 1 ILLX {/ILL exch def %ILL=0,ILLX
         /ILLY ILL JLL ILLP mul add def
         XGRAPH ILLY Y000 ILLY get log put

         /DELTLx YD00 ILLY get Y000 ILLY get div def
         /DELTLu YD00 ILLU get Y000 ILLU get div def
         DELTL0 ILLY DELTLx DELTLu YFL add div abs log put
         DELTL0 ILLY get -3 le {DELTL0 ILLY -3 put} if

         XDAT0 ILLY XGRAPH ILLY get put
         XDAT1 ILLY Y000 ILLY get put
         XDAT2 ILLY YD00 ILLY get put
         XDAT3 ILLY DELTLx put
         XDAT4 ILLY DELTLu DELTLx div abs put
 
         YGRAPH ILLY DELTL0 ILLY get put
         XGRAPH ILLY get Fx mul
         YGRAPH ILLY get Fy mul
         JLL 3 eq {%JLL=3,#3
                   40 0 360 arc fill
                  }%JLL=3
                  {%JLL#3
         ILL 0 eq {moveto} if
         ILL 01 ge
         ILL ILLM le and {lineto} if
         ILL ILLX eq {lineto stroke} if
                  } ifelse %JLL#3
        } for %ILL=0,ILLX
        } for %JLL=1,JLLX
%vertical lines of surround blue-green
       0 0 1 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [100] 0 setdash
       0 1 0 setrgbcolor
       XGRAPH ILLYA get Fx mul
       YGRAPH ILLYA get Fy mul moveto
       XGRAPH ILLYA get Fx mul
       Flog Fy mul lineto stroke
       [ ] 0 setdash
} def %END ALOG_DL_Ln, xchartl=7,15

%*********************************************************************
TBK
%!x-axis: 1/2 log-unit = 500 scale units, similar for many figures
/tx0x [(-3) (-2) (-1) (  0) (  1) (  2) (  3) (  4) (  5)] def
/tx1x [(-1) (  ) (  0) (   ) (  1) (   ) (  2) (   ) (   3)] def
0 1 8 {/i exch def
       /ixt { -180 i 0500 mul add} def
       /ixl {  000 i 0500 mul add} def
        ixt -350 moveto 
        xchartl 7 le {tx0x i get exec show}
                     {tx1x i get exec show} ifelse
        ixl 75 moveto 0 -150 rlineto stroke } for

xchartl 0 eq {%xchartl=0 ALOG_DL
/ty00 [(-3) (-2) (-1) (  0) (  1) (  2) (  3) (  4) (  5)] def
%!y-Achse: 1 log-Einheiten = 500 scale units
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 0 eq {ty00 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 1000  0000 moveto 2000 2000 rlineto stroke
 3000  0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show
 1000  0000 moveto 2000 1322 rlineto stroke
 3000  0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show
[ ] 0 setdash

 1500  1500 translate %new cero point at xr=0
ALOG_DL
-1500 -1500 translate %new cero point at xr=0
} if %xchartl=0 ALOG_DL

xchartl 1 eq {%xchartl=1 ALOG_L_DL
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty01 [(-1) (  0) (  1) (  2) (  3) (  4) (  5) (  ) (  )] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 1 eq {ty01 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 0500 moveto 3000 0 rlineto stroke
 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show
 0000 0000 moveto 3000 1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1500 0500 translate %new cero point at xr=0
ALOG_L_DL
-0500 -0500 translate %new cero point at xr=0
} if %xchartl=1 ALOG_L_DL

xchartl 2 eq {%xchartl=2 ALOG_DL_L
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty02 [(-4) (-3) (-2) (-1) (  0) (  1) (  2) (  3) (  4) (  5)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 2 eq {ty02 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 2000 moveto 3000 0 rlineto stroke
 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show
 0000 2000 moveto 3000 -1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show
[ ] 0 setdash

 1500 2000 translate %new cero point at xr=0
ALOG_DL_L
-1500 -2000 translate %new cero point at xr=0
} if %xchartl=2 ALOG_DL_L

xchartl 3 eq {%xchartl=3 ALIN_L_DL
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty03 [(  0) (10) (20) (30) (40) (50) (60) (70)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 3 eq {ty03 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

%[100 ] 0 setdash
% 0000 1250 moveto 3000 0 rlineto stroke
% 3000 0050 add 1250 0050 sub moveto TBIM (m) show TBM (=0) show
%[ ] 0 setdash

 1500 000 translate %new cero point at xr=0
ALIN_L_DL
-1500 -000 translate %new cero point at xr=0
} if %xchartl=3 ALIN_L_DL

xchartl 4 eq {%xchartl=4 ALIN_T*
%!y-axis: 1 log-unit = 40 scale units, different for most figures
/ty04 [(  0) (20) (40) (60) (80) (100) (120) (140)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 4 eq {ty04 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1250 moveto 3000 0 rlineto stroke
 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show
[ ] 0 setdash

1500 000 translate %new cero point at xr=0
ALIN_T*
-1500 -000 translate %new cero point at xr=0
} if %xchartl=4 ALIN_T*

xchartl 5 eq {%xchartl=5 ALOG_T*
%!y-axis: 1 log-unit = 50 scale units, different for most figures
/ty05 [(-,6) (-,4) (-,2) (  0) (0,2) (0,4) (0,6) (0,8)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 5 eq {ty05 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show
 0000 1000 moveto 3000 1000 rlineto stroke
 3000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1500 1500 translate %new cero point at xr=0
ALOG_T*
-1500 -1500 translate %new cero point at xr=0
} if %xchartl=5 ALOG_T*

xchartl 6 eq {%xchartl=6 ALOG_L_DLn
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty06 [(-3) (-2) (-1) (  0) (  1) (  2) (  3)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 6 eq {ty06 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show
 0000 0000 moveto 3000 1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1500  1500 translate %new cero point at xr=0
ALOG_L_DLn
-1500 -1500 translate %new cero point at xr=0
} if %xchartl=6 ALOG_L_DLn

xchartl 7 eq {%xchartl=7 ALOG_DL_Ln
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty07 [(-3) (-2) (-1) (  0) (  1) (  2) (  3)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 7 eq {ty07 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show
 0000 1500 moveto 3000 -1000 rlineto stroke
 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show
[ ] 0 setdash

 1500  1500 translate %new cero point at xr=0
ALOG_DL_Ln
-1500 -1500 translate %new cero point at xr=0
} if %xchartl=7 ALOG_DL_Ln

xchartl 8 eq {%xchartl=8 ALOG_DL
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty8 [     (  ) (-1) (  ) (  0) (  ) (  1) (  ) (  2) (  )] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 08 eq {ty8 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 1000  0000 moveto 2000 2000 rlineto stroke
 3000  0050 add 2000 100 sub moveto TBIK (m) show TBK (=1) show
 1000  0000 moveto 2000 1322 rlineto stroke
 3000  0050 add 1322 100 sub moveto TBIK (m) show TBK (=2/3) show
[ ] 0 setdash

 1000 1500 translate %new cero point at xr=0
ALOG_DL
-1000 -1500 translate %new cero point at xr=0
} if %xchartl=8 ALOG_DL

xchartl 9 eq {%xchartl=9 ALOG_L_DL
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty09 [               (  ) (  0) (  ) (  1) (  ) (  2) (  ) (  3) (  )] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 09 eq {ty09 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 0500 moveto 3000 0 rlineto stroke
 3000 0050 add 0500 moveto TBIK (m) show TBK (=0) show
 0000 0000 moveto 3000 1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1000 0500 translate %new cero point at xr=0
ALOG_L_DL
-1000 -0500 translate %new cero point at xr=0
} if %xchartl=9 ALOG_L_DL

xchartl 10 eq {%xchartl=10 ALOG_DL_L
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty10 [(-2) (  ) (-1) (  ) (  0) (  ) (  1) (  ) (  2)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 10 eq {ty10 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 2000 moveto 3000 0 rlineto stroke
 3000 0050 add 2000 moveto TBIK (m) show TBK (=0) show
 0000 2000 moveto 3000 -1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=-1/3) show
[ ] 0 setdash

 1000 2000 translate %new cero point at xr=0
ALOG_DL_L
-1000 -2000 translate %new cero point at xr=0
} if %xchartl=10 ALOG_DL_L

xchartl 11 eq {%xchartl=11 ALIN_L_DL
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty11 [(  0) (10) (20) (30) (40) (50) (60) (70)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 11 eq {ty11 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

%[100 ] 0 setdash
% 0000 0000 moveto 3000 0 rlineto stroke
% 3000 0000 moveto TBIM (m) show TBM (=0) show
%[ ] 0 setdash

 1000 000 translate %new cero point at xr=0
ALIN_L_DL
-1000 -000 translate %new cero point at xr=0
} if %xchartl=11 ALIN_L_DL

xchartl 12 eq {%xchartl=12 ALIN_T*
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty12 [(  0) (20) (40) (60) (80) (100) (120) (140)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 12 eq {ty12 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1250 moveto 3000 0 rlineto stroke
 3000 0050 add 1250 0050 sub moveto TBIK (m) show TBK (=0) show
[ ] 0 setdash

 1000 000 translate %new cero point at xr=0
ALIN_T*
-1000 -000 translate %new cero point at xr=0
} if %xchartl=12 ALIN_T*

xchartl 13 eq {%xchartl=13 ALOG_T*
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty13 [(-,6) (-,4) (-,2) (  0) (0,2) (0,4) (0,6) (0,8)] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 13 eq {ty13 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show
 0000 1000 moveto 3000 1000 rlineto stroke
 3000 0050 add 2000 0050 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1000  1500 translate %new cero point at xr=0
ALOG_T*
-1000 -1500 translate %new cero point at xr=0
} if %xchartl=13 ALOG_T*

xchartl 14 eq {%xchartl=14 ALOG_L_DLn
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty14 [(  ) (-1) (  ) (  0) (  ) (  1) (  )] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 14 eq {ty14 i get exec show} if
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 moveto TBIK (m) show TBK (=0) show
 0000 0000 moveto 3000 1000 rlineto stroke
 3000 0050 add 1000 100 sub moveto TBIK (m) show TBK (=1/3) show
[ ] 0 setdash

 1000  1500 translate %new cero point at xr=0
ALOG_L_DLn
-1000 -1500 translate %new cero point at xr=0
} if %xchartl=14 ALOG_L_DLn

xchartl 15 eq {%xchartl=15 ALOG_DL_Ln
%!y-axis: 1 log-unit = 500 scale units, different for most figures
/ty15 [(  ) (-1) (  ) (  0) (  ) (  1) (  ) ] def
0 1 6 {/i exch def
       /iyt {-100 i 0500 mul add} def
       /iyl { 000 i 0500 mul add} def
        -450 iyt moveto 
        xchartl 15 eq {ty15 i get exec show} if 
        -75 iyl moveto 150 0 rlineto stroke } for

[100 ] 0 setdash
 0000 1500 moveto 3000 0 rlineto stroke
 3000 0050 add 1500 0050 sub moveto TBIK (m) show TBK (=0) show
 0000 1500 moveto 3000 -1000 rlineto stroke
 3000 0050 add 0500 0050 sub moveto TBIK (m) show TBK (=-1/3) show
[ ] 0 setdash

 1000  1500 translate %new cero point at xr=0
ALOG_DL_Ln
-1000 -1500 translate %new cero point at xr=0
} if %xchartl=15 ALOG_DL_Ln

/iout 0 def
iout 1 eq {%iout=1
TS
000 2700 moveto
xchartl 0 eq {(ALOG_DL) show} if
xchartl 1 eq {(ALOG_DL_L) show} if
xchartl 2 eq {(ALOG_L_DL) show} if
xchartl 3 eq {(ALIN_L_DL) show} if
xchartl 4 eq {(ALIN_T*) show} if
xchartl 5 eq {(ALOG_T*) show} if
xchartl 6 eq {(ALOG_DL_Ln) show} if
xchartl 7 eq {(ALOG_L_DLn) show} if

xchartl 08 eq {(ALOG_DL) show} if
xchartl 09 eq {(ALOG_DL_L) show} if
xchartl 10 eq {(ALOG_L_DL) show} if
xchartl 11 eq {(ALIN_L_DL) show} if
xchartl 12 eq {(ALIN_T*) show} if
xchartl 13 eq {(ALOG_T*) show} if
xchartl 14 eq {(ALOG_DL_Ln) show} if
xchartl 15 eq {(ALOG_L_DLn) show} if

/ILL1 17 def
/ILL2 32 def
ILL1 1 ILL2 {/ILL exch def %for example 17..32
             /ILX ILL ILL1 sub def %allways 0..16
             0500 2500 ILX 140 mul sub moveto ILL cvishow
             1000 2500 ILX 140 mul sub moveto XDAT0 ILLY get cvsshow2
             1600 2500 ILX 140 mul sub moveto XDAT1 ILLY get cvsshow3
             2200 2500 ILX 140 mul sub moveto XDAT2 ILLY get cvsshow3
             2800 2500 ILX 140 mul sub moveto XDAT3 ILLY get cvsshow3
             3400 2500 ILX 140 mul sub moveto XDAT4 ILLY get cvsshow3
             ILLX 8 eq {(*) show} if
        } for
} if %iout=1

550 neg 400 neg translate

%special space for 'xm03'PROZ0.COM 2x before/after xchartl
%  xchartl    0 eq {  100 neg 13000 neg translate} if
%  xchartl    1 eq { 6100 neg 13000 neg translate} if
%  xchartl    2 eq {  100 neg 08750 neg translate} if
%  xchartl    3 eq { 6100 neg 08750 neg translate} if

%  xchartl    4 eq {  100 neg  4500 neg translate} if
%  xchartl    5 eq { 6100 neg  4500 neg translate} if
%  xchartl    6 eq {  100 neg  0250 neg translate} if
%  xchartl    7 eq { 6100 neg  0250 neg translate} if

%  xchartl    8 eq {13500 neg 13000 neg translate} if
%  xchartl    9 eq {19500 neg 13000 neg translate} if
%  xchartl   10 eq {13500 neg 08750 neg translate} if
%  xchartl   11 eq {19500 neg 08750 neg translate} if

%  xchartl   12 eq {13500 neg  4500 neg translate} if
%  xchartl   13 eq {19500 neg  4500 neg translate} if
%  xchartl   14 eq {13500 neg  0250 neg translate} if
%  xchartl   15 eq {19500 neg  0250 neg translate} if

grestore
%} for %xchartl=0,15

showpage
grestore

} for %xchart=0,0
             
%%Trailer