%!PS-Adobe-3.0 EPSF-3.0 UG691-3
%%BoundingBox: 70 83 392 335

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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/UE10/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@me.com)
  /CreationDate (D:2014010112000)
  /ModDate (D:2014010112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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 {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

/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 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def
/cvsshow4 {0.00005 add 10000 mul cvi 0.0001 mul 7 string cvs show} def

%from N017 FORTRAN-PROGRAM RICHDA04.FOR 2013_12_15
/BDY_OR 44 array def
/BDY_OR
[%C     BDY_00 JS=0
01 0.2498 0.2915 17.33
02 0.2686 0.3064 16.91
03 0.2878 0.3258 17.29
04 0.3012 0.3390 17.44
05 0.3142 0.3498 17.51
06 0.3232 0.3594 16.48
07 0.3611 0.3882 16.23
08 0.4047 0.4282 19.94
09 0.4336 0.4527 17.75
10 0.4624 0.4770 18.08
11 0.4838 0.4965 18.49
] def

/TDM_OR 44 array def
/TDM_OR
[%C     TDM_00 JS=4
 45 0.1204 0.3960 15.00
46 0.1819 0.3839 15.04
 47 0.2425 0.3728 15.75
48 0.2787 0.3655 16.80
49 0.3042 0.3605 17.28
 50 0.3211 0.3578 16.56
51 0.3808 0.3088 15.79
52 0.4325 0.2639 15.98
 53 0.4596 0.2390 17.00
54 0.4761 0.2231 17.15
 55 0.4848 0.2122 17.22
] def

/QPN_OR 88 array def
/QPN_OR
[%C     QPN_00 JS=6
67 0.3987 0.4175 197.5
68 0.3943 0.4155 120.3
69 0.3919 0.4140 74.34
70 0.3914 0.4136 49.81
71 0.3926 0.4140 34.40
72 0.3945 0.4140 24.67
73 0.3973 0.4153 17.74
74 0.4008 0.4166 12.87
75 0.4052 0.4185  9.19
76 0.4102 0.4204  6.62
77 0.4158 0.4226  4.68
%C     OPN_00 JS=7
78 0.3905 0.4137  5.12
79 0.3861 0.4114  3.17
80 0.3835 0.4094  1.94
81 0.3831 0.4090  1.28
82 0.3841 0.4096  0.88
83 0.3859 0.4107  0.63
84 0.3884 0.4123  0.46
85 0.3907 0.4143  0.30
86 0.3967 0.4144  0.24
87 0.4019 0.4167  0.17
88 0.4076 0.4192  0.12
] def

/BDY_BY 44 array def
/BDY_BY
[%     BDY_BY JS=0 JD=0
01 -.0011 -.0010  0.00
02 -.0015 -.0013  0.00
03 -.0014 -.0012  0.00
04 -.0014 -.0012  0.00
05 -.0015 -.0013  0.00
06 -.0015 -.0013  0.00
07 -.0024 -.0020  0.00
08 -.0021 -.0018  0.00
09 -.0027 -.0024  0.00
10 -.0031 -.0027  0.00
11 -.0038 -.0033  0.01
] def

/TDM_BY 44 array def
/TDM_BY
[%C     TDM_BY JS=4 JD=0
45 -.0012 -.0023  0.00
46 -.0015 -.0020  0.00
47 -.0014 -.0016  0.00
48 -.0015 -.0015  0.00
49 -.0016 -.0015  0.00
50 -.0016 -.0014  0.00
51 -.0020 -.0013  0.00
52 -.0023 -.0011  0.01
53 -.0023 -.0010  0.01
54 -.0025 -.0010  0.01
55 -.0027 -.0010  0.01
] def

/QPN_BY 88 array def
/QPN_BY
[%C     QPN_BY JS=6 JD=0
67 -.0017 -.0015  0.04
68 -.0016 -.0013  0.02
69 -.0016 -.0014  0.02
70 -.0016 -.0014  0.01
71 -.0018 -.0016  0.01
72 -.0018 -.0016  0.01
73 -.0021 -.0018  0.00
74 -.0024 -.0021  0.00
75 -.0029 -.0025  0.00
76 -.0036 -.0030  0.00
77 -.0043 -.0036  0.00
%C     OPN_BY JS=7 JD=0
78 -.0030 -.0026  0.00
79 -.0039 -.0034  0.00
80 -.0052 -.0045  0.00
81 -.0063 -.0054  0.00
82 -.0078 -.0067  0.00
83 -.0103 -.0089  0.00
84 -.0122 -.0105  0.00
85 -.0162 -.0140  0.00
86 -.0205 -.0175  0.00
87 -.0265 -.0226  0.00
88 -.0324 -.0275  0.00
] def

/BDY_TM 44 array def
/BDY_TM
[%C     BDY_TM JS=0 JD=4
01 -.0019 0.0008  0.01
02 -.0017 0.0008  0.01
03 -.0017 0.0009  0.01
04 -.0017 0.0009  0.01
05 -.0017 0.0010  0.01
06 -.0016 0.0010  0.00
07 -.0019 0.0013  0.01
08 -.0020 0.0017  0.01
09 -.0020 0.0020  0.01
10 -.0022 0.0025  0.01
11 -.0021 0.0026  0.01
] def

/TDM_TM 44 array def
/TDM_TM
[%C     TDM_TM JS=4 JD=4
45 -.0061 0.0030  0.01
46 -.0050 0.0026  0.01
47 -.0037 0.0021  0.01
48 -.0027 0.0015  0.01
49 -.0021 0.0013  0.01
50 -.0018 0.0011  0.01
51 -.0022 0.0013  0.01
52 -.0020 0.0011  0.01
53 -.0022 0.0011  0.01
54 -.0020 0.0010  0.01
55 -.0021 0.0010  0.02
] def

/QPN_TM 88 array def
/QPN_TM
[%C     QPN_TM JS=6 JD=4
67 -.0012 0.0010  0.05
68 -.0011 0.0010  0.03
69 -.0013 0.0011  0.02
70 -.0013 0.0011  0.01
71 -.0014 0.0012  0.01
72 -.0014 0.0012  0.01
73 -.0017 0.0014  0.01
74 -.0016 0.0013  0.00
75 -.0018 0.0016  0.00
76 -.0024 0.0021  0.00
77 -.0024 0.0021  0.00
%C     OPN_TM JS=7 JD=4
78 -.0022 0.0018  0.00
79 -.0028 0.0023  0.00
80 -.0038 0.0030  0.00
81 -.0047 0.0038  0.00
82 -.0057 0.0046  0.00
83 -.0075 0.0060  0.00
84 -.0092 0.0074  0.00
85 -.0136 0.0109  0.00
86 -.0171 0.0137  0.00
87 -.0203 0.0164  0.00
88 -.0288 0.0230  0.00
] def

/BDY_WN 44 array def
/BDY_WN
[%C     BDY_WN JS=0 JD=5
01 0.0002 0.0002  0.07
02 0.0001 0.0001  0.04
03 0.0001 0.0001  0.06
04 0.0001 0.0001  0.06
05 0.0000 0.0000  0.06
06 0.0000 0.0000  0.06
07 -.0001 -.0001  0.04
08 -.0003 -.0002  0.05
09 -.0005 -.0004  0.06
10 -.0006 -.0005  0.06
11 -.0007 -.0006  0.06
] def

/TDM_WN 44 array def
/TDM_WN
[%C     TDM_WN JS=4 JD=5
45 0.0011 -.0002  0.07
46 0.0004 -.0001  0.04
47 0.0004 -.0001  0.07
48 0.0002 0.0000  0.07
49 0.0001 0.0000  0.06
50 0.0000 0.0000  0.07
51 -.0001 0.0001  0.04
52 -.0003 0.0003  0.06
53 -.0004 0.0004  0.08
54 -.0005 0.0004  0.09
55 -.0005 0.0005  0.09
] def

/QPN_QN 88 array def
/QPN_QN
[%C     QPN_QN JS=6 JD=6
67 0.0000 0.0000  1.16
68 0.0000 0.0000  0.69
69 0.0000 0.0000  0.41
70 0.0000 0.0000  0.28
71 0.0000 0.0000  0.18
72 0.0000 0.0000  0.15
73 0.0000 0.0000  0.10
74 0.0000 0.0000  0.10
75 -.0001 0.0000  0.08
76 -.0001 0.0000  0.06
77 -.0002 -.0001  0.05
%C     OPN_ON JS=7 JD=7
78 0.0001 0.0001  0.07
79 0.0002 0.0001  0.05
80 0.0003 0.0001  0.04
81 0.0003 0.0002  0.03
82 0.0003 0.0002  0.02
83 0.0004 0.0002  0.02
84 0.0004 0.0002  0.02
85 0.0004 0.0002  0.02
86 0.0001 0.0002  0.02
87 -.0004 -.0001  0.02
88 -.0011 -.0001  0.02
] def

%%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
/xchart xchart1 def

5 /Times-ISOL1 FS
340 85 moveto
(UG691-3) show
xchart 0 eq {(N) show}
            {deintp colorm 2 mul add cvishow} ifelse

72 90 translate

/yhoe 8500 def
0.01 MM dup scale

15 setlinewidth
0.0 0.0 1.0 0.0 setcmyk_olvcolor
0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmyk_olvcolor
 0 0  moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto
closepath stroke
 
 0 yhoe 550 sub  moveto 11200 0 rlineto stroke
/yd 520 def %y-Zeilenabstand for font G
/ydg 600 def %yd for equation lines
/yd2 300 def %y-Zeilenabstand for font M
%Spalten
/S1 100 def
/S2 200 def

/S30 1400 def
/S31 2200 def
/S32 3000 def
/S33 3800 def

/S40 4700 def
/S41 5500 def
/S42 6300 def
/S43 7100 def

/S50 8000 def
/S51 8800 def
/S52 9600 def
/S53 10400 def

/S6 11000 def

/yu0 8100 def
/yu1 7600 def
/yu2 6500 def
/yu3 3000 def
/yu4 1300 def

0 yu1 320 add moveto 11200 0 rlineto stroke
0 yu2 320 add moveto 11200 0 rlineto stroke
0 yu3 320 add moveto 11200 0 rlineto stroke
0 yu4 320 add moveto 11200 0 rlineto stroke

S30 100 sub yhoe 550 sub moveto 0 yhoe 550 sub neg rlineto stroke
S40 100 sub yhoe 550 sub moveto 0 yhoe 550 sub neg rlineto stroke
S50 100 sub yhoe 550 sub moveto 0 yhoe 550 sub neg rlineto stroke

/hdel 1300 def
S31 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S32 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S33 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke

S41 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S42 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S43 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke

S51 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S52 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke
S53 100 sub yhoe hdel sub moveto 0 yhoe hdel sub neg rlineto stroke

%SERIES:
%BDY_OR, _BY, _TM, _WN 44 array def 
%TDY_OR, _BY, _TM, _WN 44 array def
%QPN_OR, _BY, _TM, _WN 88 array def


%Titeltext
TBG
 S1 yu0 yd 0 mul add moveto
(Farbdifferenzen: gerade unterscheibare Schwellen, ) showde
(Colour differences: just noticable colour thresholds, ) showea
TBIG
(siehe Richter (1985/87)) showde
(see Richter (1985/87)) showea

S1 yu1 yd2 0 mul sub moveto
TBM 
(Farb\255) showde
(Colour) showea
S1 yu1 yd2 1 mul sub moveto
(Serie) showde
(series) showea
S1 yu1 yd2 2 mul sub moveto
(Nummer) showde
(number) showea

/yd3 300 def

TM
S1 yu2 yd3 0 mul sub moveto
(WPN_01) show
S1 yu2 yd3 1 mul sub moveto
(WPN_02) show
S1 yu2 yd3 2 mul sub moveto
(WPN_03) show
S1 yu2 yd3 3 mul sub moveto
(WPN_04) show
S1 yu2 yd3 4 mul sub moveto
(WPN_05) show
S1 yu2 yd3 5 mul sub moveto
(WPN_06) show
S1 yu2 yd3 6 mul sub moveto
(WPN_07) show
S1 yu2 yd3 7 mul sub moveto
(WPN_08) show
S1 yu2 yd3 8 mul sub moveto
(WPN_09) show
S1 yu2 yd3 9 mul sub moveto
(WPN_10) show
S1 yu2 yd3 10 mul sub moveto
(WPN_11) show

TM
S1 yu3 yd3 0 mul sub moveto
(TDM_01) show
S1 yu3 yd3 1 mul sub moveto
(TDM_02) show
S1 yu3 yd3 2 mul sub moveto
(TDM_03) show
S1 yu3 yd3 3 mul sub moveto
(TDM_04) show
S1 yu3 yd3 4 mul sub moveto
(TDM_05) show

TM
S1 yu4 yd3 0 mul sub moveto
(BDY_01) show
S1 yu4 yd3 1 mul sub moveto
(BDY_02) show
S1 yu4 yd3 2 mul sub moveto
(BDY_03) show
S1 yu4 yd3 3 mul sub moveto
(BDY_04) show
S1 yu4 yd3 4 mul sub moveto
(BDY_05) show


TBM
S30 yu1 yd2 0 mul sub moveto
(Farbdifferenz) showde
(Colour difference) showea
S30 yu1 yd2 1 mul sub moveto
(ISO 11644-4 (CIELAB)) show
S30 yu1 yd2 2 mul sub moveto
(D) ss2 (L*) js2
S31 yu1 yd2 2 mul sub moveto
(D) ss2 (a*) js2
S32 yu1 yd2 2 mul sub moveto
(D) ss2 (b*) js2
S33 50 sub yu1 yd2 2 mul sub moveto
(D) ss2 (E*) js2 (ab) ib2

TBM
S40 yu1 yd2 0 mul sub moveto
(Farbdifferenz) showde
(Colour difference) showea
S40 yu1 yd2 1 mul sub moveto
(LABJND 1985) show
S40 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (L) ib2
S41 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (a) ib2
S42 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (b) ib2
S43 50 sub yu1 yd2 2 mul sub moveto
(D) ss2 (E*) js2 (ab) ib2

TBM
S50 yu1 yd2 0 mul sub moveto
(Farbdifferenz) showde
(Colour difference) showea
S50 yu1 yd2 1 mul sub moveto
(LABJND 1987) show
S50 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (L) ib2
S51 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (a) ib2
S52 yu1 yd2 2 mul sub moveto
(D) ss2 (T*) js2 (b) ib2
S53 50 sub yu1 yd2 2 mul sub moveto
(D) ss2 (E*) js2 (ab) ib2

%TBM
%S6 yu1 yd 0 mul sub moveto
%(Bemerkungen) showde
%(notes) showea
%(notas) showes
%(remarque) showfr
%(note) showit
%(notes) showjp


%text
%TM
%S6 yu2 300 3 mul sub moveto (P40) show
%S6 yu3 300 2 mul sub moveto (D65) show
%S6 yu4 300 2 mul sub moveto (D65) show

%data see Richter, BAM Research report, 1985
/s00 0.0170 def
/q00 0.0058 def
/t00 1.0000 def

/a0A 1.0000 def %surround A
/b0A 1.7000 def
/Y0A 1.0000 def

/a0D 1.0000 def %surround D65
/b0D 1.8000 def
/Y0D 1.5000 def

%/XD65W  95.04 def
%/YD65W 100.00 def
%/ZD65W 108.88 def

/xanP40 0.3973 def %projector P40
/yanP40 0.4153 def
/zanP40 1. xanP40 sub yanP40 sub def
zanP40 0 lt {/zanP40 0 def} if
/SUMP40 100. yanP40 div def
/XP40 xanP40 SUMP40 mul def
/YP40 100. def
/ZP40 zanP40 SUMP40 mul def

/xanD65 0.3211 def %D65
/yanD65 0.3578 def
/zanD65 1. xanD65 sub yanD65 sub def
zanD65 0 lt {/zanD65 0 def} if
/SUMD65 100. yanD65 div def
/XD65 xanD65 SUMD65 mul def
/YD65 100. def
/ZD65 zanD65 SUMD65 mul def

%data see Richter & Seim, CIE Venice, 1987
/A1 58 def
/A2 0.39 def
/A3 0.85 def
/A4 0.37 def
/A5 31 def
/A6 19 def
/A7 0.015 def

/Yn0 17.74 def

%/X* {LAB*Lt j get 16 add 116 div
%     LAB*at j get 500 div add} bind def
%/Y* {LAB*Lt j get 16 add 116 div} bind def
%/Z* {LAB*Lt j get 16 add 116 div
%     LAB*bt j get 200 div sub} bind def
%Xt j X* DecodeXYZ* XLWD65100 mul put
%Yt j Y* DecodeXYZ* YLWD65100 mul put
%Zt j Z* DecodeXYZ* ZLWD65100 mul put

/D13 1 3 div def
/D841_108 841 108 div def
/D16_116 16 116 div def
/D24_116 24 116 div 3 exp def
/a2D65 0.2191 def
/b2D65 -0.08376 def

%***************************************************
/dTWN1*87 10 array def
/dTWN1*87 [ 0.92 0.85 0.79 0.80 1.12 1.26 1.11 0.95 0.94 0.88 0.98] def

0 2 21 {/i exch def %i=0,2,21
/i4 i 4 mul def

/Y000 QPN_OR i4 3 add get def
/xan0 QPN_OR i4 1 add get def
/yan0 QPN_OR i4 2 add get def
/zan0 1. xan0 sub yan0 sub def
zan0 0 lt {/zan0 0 def} if
/SUM0 Y000 yan0 0.0001 add div def
/X000 xan0 SUM0 mul def
/Z000 zan0 SUM0 mul def

0 1 2 {/j exch def %j=0,j

j 0 eq {/dY00 QPN_QN i4 3 add get def
        /dxan QPN_QN i4 1 add get def
        /dyan QPN_QN i4 2 add get def
       } if
j 1 eq {/dY00 QPN_TM i4 3 add get def
        /dxan QPN_TM i4 1 add get def
        /dyan QPN_TM i4 2 add get def
       } if
j 2 eq {/dY00 QPN_BY i4 3 add get def
        /dxan QPN_BY i4 1 add get def
        /dyan QPN_BY i4 2 add get def
       } if

/Y001 Y000 dY00 0.5 mul add def
/xan1 xan0 dxan 0.5 mul add def
/yan1 yan0 dyan 0.5 mul add def
/zan1 1. xan1 sub yan1 sub def
zan1 0 lt {/zan1 0 def} if
/SUM1 Y001 yan1 0.0001 add div def
/X001 xan1 SUM1 mul def
/Z001 zan1 SUM1 mul def

/Y002 Y000 dY00 0.5 mul sub def
/xan2 xan0 dxan 0.5 mul sub def
/yan2 yan0 dyan 0.5 mul sub def
/zan2 1. xan2 sub yan2 sub def
zan2 0 lt {/zan2 0 def} if
/SUM2 Y002 yan2 0.0001 add div def
/X002 xan2 SUM2 mul def
/Z002 zan2 SUM2 mul def

%CIELAB
/XW XP40 def
/YW YP40 def
/ZW ZP40 def
/xanw xanP40 def
/yanw yanP40 def
/zanw zanP40 def

/X X001 def
/Y Y001 def
/Z Z001 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*1 116. FYYN mul 16. sub def
/a*1 500. FXXN FYYN sub mul def
/b*1 200. FYYN FZZN sub mul def
/C*ab1 a*1 dup mul
       b*1 dup mul add 0.0001 add sqrt def
/hab1 b*1 a*1 0.0001 add atan def

/X X002 def
/Y Y002 def
/Z Z002 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*2 116. FYYN mul 16. sub def
/a*2 500. FXXN FYYN sub mul def
/b*2 200. FYYN FZZN sub mul def
/C*ab2 a*2 dup mul
       b*2 dup mul add 0.0001 add sqrt def
/hab2 b*2 a*2 0.0001 add atan def

%special
/L*10 Y001 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/L*20 Y002 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/dL*0 L*20 L*10 sub abs def

/dL* L*2 L*1 sub abs def
/da* a*2 a*1 sub abs def
/db* b*2 b*1 sub abs def

%LABJND85
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

/daan2s aan22s aan12s sub abs def
/dban2s ban22s ban12s sub abs def

/FY0 1 s00 q00 Y000 mul add div def

/dT*L85 Y0A Y002 Y001 sub mul FY0 mul abs def
/dT*A85 Y0A a0A mul daan2s mul Y000 mul FY0 mul def
/dT*B85 Y0A b0A mul dban2s mul Y000 mul FY0 mul def


%LABJND87
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

%/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
%/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

%/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
%/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

%/daan2s aan22s aan12s sub abs def
%/dban2s ban22s ban12s sub abs def

/FY0 1 1 A2 Y000 mul add div def

/T*L1 A1 A7 div 1 A7 Y001 Yn0 sub abs mul FY0 mul add log mul def
/T*L2 A1 A7 div 1 A7 Y002 Yn0 sub abs mul FY0 mul add log mul def
/dT*L87 T*L2 T*L1 sub abs def

/T*A1 A5 A3 div 1 A3 aan1w abs mul Y000 mul FY0 mul add log mul def
/T*A2 A5 A3 div 1 A3 aan2w abs mul Y000 mul FY0 mul add log mul def
/dT*A87 T*A2 T*A1 sub abs def

/T*B1 A6 A4 div 1 A4 ban1w abs mul Y000 mul FY0 mul add log mul def
/T*B2 A6 A4 div 1 A4 ban2w abs mul Y000 mul FY0 mul add log mul def
/dT*B87 T*B2 T*B1 sub abs def

%/T*A1 A5 A3 div 1 A3 ban1w abs mul Y000 mul FY0 mul add log mul def
%/T*A2 A5 A3 div 1 A3 ban2w abs mul Y000 mul FY0 mul add log mul def
%/dT*A87 T*A2 T*A1 sub abs def

%/T*B1 A6 A4 div 1 A4 aan1w abs mul Y000 mul FY0 mul add log mul def
%/T*B2 A6 A4 div 1 A4 aan2w abs mul Y000 mul FY0 mul add log mul def
%/dT*B87 T*B2 T*B1 sub abs def

/dT*L87 dTWN1*87 i 2 idiv get def

TK
j 0 eq {S30 yu2 150 i mul sub moveto dL* cvsshow2
        S40 yu2 150 i mul sub moveto dT*L85 cvsshow2
        S50 yu2 150 i mul sub moveto dT*L87 cvsshow2
%        S33 yu2 150 i mul sub moveto dL*0 cvsshow2 %special
       } if
%j 1 eq {S31 yu2 150 i mul sub moveto da* cvsshow2
%        S41 yu2 150 i mul sub moveto dT*A85 cvsshow4
%        S51 yu2 150 i mul sub moveto dT*A87 cvsshow4
%       } if
%j 2 eq {S32 yu2 150 i mul sub moveto db* cvsshow2
%        S42 yu2 150 i mul sub moveto dT*B85 cvsshow4
%        S52 yu2 150 i mul sub moveto dT*B87 cvsshow4
%        } if

} for %j=1,2

} for %i=0,2,21

%*******************************************************
/dTWN2*87 5 array def
/dTWN2*87 [ 1.21 1.13 1.12 1.15 1.35] def

0 1 4 {/ii exch def %i=0,4
%TDM-X
ii 0 eq {/i 00 def} if
ii 1 eq {/i 02 def} if
ii 2 eq {/i 05 def} if
ii 3 eq {/i 08 def} if
ii 4 eq {/i 10 def} if

/i4 i 4 mul def

/Y000 TDM_OR i4 3 add get def
/xan0 TDM_OR i4 1 add get def
/yan0 TDM_OR i4 2 add get def

/zan0 1. xan0 sub yan0 sub def
zan0 0 lt {/zan0 0 def} if
/SUM0 Y000 yan0 0.0001 add div def
/X000 xan0 SUM0 mul def
/Z000 zan0 SUM0 mul def

0 1 2 {/j exch def %j=0,j

j 0 eq {/dY00 TDM_WN i4 3 add get def
        /dxan TDM_WN i4 1 add get def
        /dyan TDM_WN i4 2 add get def
       } if
j 1 eq {/dY00 TDM_TM i4 3 add get def
        /dxan TDM_TM i4 1 add get def
        /dyan TDM_TM i4 2 add get def
       } if
j 2 eq {/dY00 TDM_BY i4 3 add get def
        /dxan TDM_BY i4 1 add get def
        /dyan TDM_BY i4 2 add get def
       } if

/Y001 Y000 dY00 0.5 mul add def
/xan1 xan0 dxan 0.5 mul add def
/yan1 yan0 dyan 0.5 mul add def
/zan1 1. xan1 sub yan1 sub def
zan1 0 lt {/zan1 0 def} if
/SUM1 Y001 yan1 0.0001 add div def
/X001 xan1 SUM1 mul def
/Z001 zan1 SUM1 mul def

/Y002 Y000 dY00 0.5 mul sub def
/xan2 xan0 dxan 0.5 mul sub def
/yan2 yan0 dyan 0.5 mul sub def
/zan2 1. xan2 sub yan2 sub def
zan2 0 lt {/zan2 0 def} if
/SUM2 Y002 yan2 0.0001 add div def
/X002 xan2 SUM2 mul def
/Z002 zan2 SUM2 mul def

%CIELAB
/XW XD65 def
/YW YD65 def
/ZW ZD65 def
/xanw xanD65 def
/yanw yanD65 def
/zanw zanD65 def

/X X001 def
/Y Y001 def
/Z Z001 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*1 116. FYYN mul 16. sub def
/a*1 500. FXXN FYYN sub mul def
/b*1 200. FYYN FZZN sub mul def
/C*ab1 a*1 dup mul
       b*1 dup mul add 0.0001 add sqrt def
/hab1 b*1 a*1 0.0001 add atan def

/X X002 def
/Y Y002 def
/Z Z002 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*2 116. FYYN mul 16. sub def
/a*2 500. FXXN FYYN sub mul def
/b*2 200. FYYN FZZN sub mul def
/C*ab2 a*2 dup mul
       b*2 dup mul add 0.0001 add sqrt def
/hab2 b*2 a*2 0.0001 add atan def

%special
/L*10 Y001 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/L*20 Y002 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/dL*0 L*20 L*10 sub abs def

/dL* L*2 L*1 sub abs def
/da* a*2 a*1 sub abs def
/db* b*2 b*1 sub abs def

%LABJND85
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

/daan2s aan22s aan12s sub abs def
/dban2s ban22s ban12s sub abs def

/FY0 1 s00 q00 Y000 mul add div def

/dT*L85 Y0D Y002 Y001 sub mul FY0 mul abs def
/dT*A85 Y0D a0D mul daan2s mul Y000 mul FY0 mul def
/dT*B85 Y0D b0D mul dban2s mul Y000 mul FY0 mul def


%LABJND87
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

%/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
%/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

%/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
%/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

%/daan2s aan22s aan12s sub abs def
%/dban2s ban22s ban12s sub abs def

/FY0 1 1 A2 Y000 mul add div def

/T*L1 A1 A7 div 1 A7 Y001 Yn0 sub abs mul FY0 mul add log mul def
/T*L2 A1 A7 div 1 A7 Y002 Yn0 sub abs mul FY0 mul add log mul def
/dT*L87 T*L2 T*L1 sub abs def

/T*A1 A5 A3 div 1 A3 aan1w abs mul Y000 mul FY0 mul add log mul def
/T*A2 A5 A3 div 1 A3 aan2w abs mul Y000 mul FY0 mul add log mul def
/dT*A87 T*A2 T*A1 sub abs def

/T*B1 A6 A4 div 1 A4 ban1w abs mul Y000 mul FY0 mul add log mul def
/T*B2 A6 A4 div 1 A4 ban2w abs mul Y000 mul FY0 mul add log mul def
/dT*B87 T*B2 T*B1 sub abs def

/dT*L87 dTWN2*87 ii get def
TK
j 0 eq {S30 yu3 300 ii mul sub moveto dL* cvsshow2
        S40 yu3 300 ii mul sub moveto dT*L85 cvsshow2
        S50 yu3 300 ii mul sub moveto dT*L87 cvsshow2
%        S33 yu3 300 ii mul sub moveto dL*0 cvsshow2 %special
       } if
%j 1 eq {S31 yu3 300 ii mul sub moveto da* cvsshow2
%        S41 yu3 300 ii mul sub moveto dT*A85 cvsshow4
%        S51 yu3 300 ii mul sub moveto dT*A87 cvsshow4
%       } if
%j 2 eq {S32 yu3 300 ii mul sub moveto db* cvsshow2
%        S42 yu3 300 ii mul sub moveto dT*B85 cvsshow4
%        S52 yu3 300 ii mul sub moveto dT*B87 cvsshow4
%        } if

} for %j=1,2

} for %ii=0,4

%******************************************************************
/dTWN3*87 5 array def
/dTWN3*87 [ 1.02 0.84 0.94 0.82 0.84] def
%BDY-X
0 1 4 {/ii exch def %i=0,4
ii 0 eq {/i 00 def} if
ii 1 eq {/i 02 def} if
ii 2 eq {/i 05 def} if
ii 3 eq {/i 08 def} if
ii 4 eq {/i 10 def} if

/i4 i 4 mul def

/Y000 BDY_OR i4 3 add get def
/xan0 BDY_OR i4 1 add get def
/yan0 BDY_OR i4 2 add get def
/zan0 1. xan0 sub yan0 sub def
zan0 0 lt {/zan0 0 def} if
/SUM0 Y000 yan0 0.0001 add div def
/X000 xan0 SUM0 mul def
/Z000 zan0 SUM0 mul def

0 1 2 {/j exch def %j=0,j

j 0 eq {/dY00 BDY_WN i4 3 add get def
        /dxan BDY_WN i4 1 add get def
        /dyan BDY_WN i4 2 add get def
       } if
j 1 eq {/dY00 BDY_TM i4 3 add get def
        /dxan BDY_TM i4 1 add get def
        /dyan BDY_TM i4 2 add get def
       } if
j 2 eq {/dY00 BDY_BY i4 3 add get def
        /dxan BDY_BY i4 1 add get def
        /dyan BDY_BY i4 2 add get def
       } if

/Y001 Y000 dY00 0.5 mul add def
/xan1 xan0 dxan 0.5 mul add def
/yan1 yan0 dyan 0.5 mul add def
/zan1 1. xan1 sub yan1 sub def
zan1 0 lt {/zan1 0 def} if
/SUM1 Y001 yan1 0.0001 add div def
/X001 xan1 SUM1 mul def
/Z001 zan1 SUM1 mul def

/Y002 Y000 dY00 0.5 mul sub def
/xan2 xan0 dxan 0.5 mul sub def
/yan2 yan0 dyan 0.5 mul sub def
/zan2 1. xan2 sub yan2 sub def
zan2 0 lt {/zan2 0 def} if
/SUM2 Y002 yan2 0.0001 add div def
/X002 xan2 SUM2 mul def
/Z002 zan2 SUM2 mul def

%CIELAB
/XW XD65 def
/YW YD65 def
/ZW ZD65 def
/xanw xanD65 def
/yanw yanD65 def
/zanw zanD65 def

/X X001 def
/Y Y001 def
/Z Z001 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*1 116. FYYN mul 16. sub def
/a*1 500. FXXN FYYN sub mul def
/b*1 200. FYYN FZZN sub mul def
/C*ab1 a*1 dup mul
       b*1 dup mul add 0.0001 add sqrt def
/hab1 b*1 a*1 0.0001 add atan def

/X X002 def
/Y Y002 def
/Z Z002 def
X XW div D24_116 gt {/FXXN X XW div 0.0001 add D13 exp def}
                    {/FXXN D841_108 X XW div mul D16_116 add def} ifelse

Y YW div D24_116 gt {/FYYN Y YW div 0.0001 add D13 exp def}
                    {/FYYN D841_108 Y YW div mul D16_116 add def} ifelse

Z ZW div D24_116 gt {/FZZN Z ZW div 0.0001 add D13 exp def}
                    {/FZZN D841_108 Z YW div mul D16_116 add def} ifelse

/L*2 116. FYYN mul 16. sub def
/a*2 500. FXXN FYYN sub mul def
/b*2 200. FYYN FZZN sub mul def
/C*ab2 a*2 dup mul
       b*2 dup mul add 0.0001 add sqrt def
/hab2 b*2 a*2 0.0001 add atan def

%special
/L*10 Y001 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/L*20 Y002 100 div 0.0001 add 0.3333 exp 116 mul 16 sub def
/dL*0 L*20 L*10 sub abs def

/dL* L*2 L*1 sub abs def
/da* a*2 a*1 sub abs def
/db* b*2 b*1 sub abs def

%LABJND85
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

/daan2s aan22s aan12s sub abs def
/dban2s ban22s ban12s sub abs def

/FY0 1 s00 q00 Y000 mul add div def

/dT*L85 Y0D Y002 Y001 sub mul FY0 mul abs def
/dT*A85 Y0D a0D mul daan2s mul Y000 mul FY0 mul def
/dT*B85 Y0D b0D mul dban2s mul Y000 mul FY0 mul def


%LABJND87
/aanw xanw yanw div def
/banw -0.4 zanw yanw div mul def

/aan1 xan1 yan1 div def
/ban1 -0.4 zan1 yan1 div mul def
/aan1w aan1 aanw sub def
/ban1w ban1 banw sub def

%/aan12s aanw aan1w 1 aan1w abs 0.5 mul add div add def
%/ban12s banw ban1w 1 ban1w abs 0.5 mul add div add def

/aan2 xan2 yan2 div def
/ban2 -0.4 zan2 yan2 div mul def
/aan2w aan2 aanw sub def
/ban2w ban2 banw sub def

%/aan22s aanw aan2w 2 aan2w abs 0.5 mul add div add def
%/ban22s banw ban2w 2 ban2w abs 0.5 mul add div add def

%/daan2s aan22s aan12s sub abs def
%/dban2s ban22s ban12s sub abs def

/FY0 1 1 A2 Y000 mul add div def

/T*L1 A1 A7 div 1 A7 Y001 Yn0 sub abs mul FY0 mul add log mul def
/T*L2 A1 A7 div 1 A7 Y002 Yn0 sub abs mul FY0 mul add log mul def
/dT*L87 T*L2 T*L1 sub abs def

/T*A1 A5 A3 div 1 A3 aan1w abs mul Y000 mul FY0 mul add log mul def
/T*A2 A5 A3 div 1 A3 aan2w abs mul Y000 mul FY0 mul add log mul def
/dT*A87 T*A2 T*A1 sub abs def

/T*B1 A6 A4 div 1 A4 ban1w abs mul Y000 mul FY0 mul add log mul def
/T*B2 A6 A4 div 1 A4 ban2w abs mul Y000 mul FY0 mul add log mul def
/dT*B87 T*B2 T*B1 sub abs def

/dT*L87 dTWN2*87 ii get def
TK
j 0 eq {S30 yu4 300 ii mul sub moveto dL* cvsshow2
        S40 yu4 300 ii mul sub moveto dT*L85 cvsshow2
        S50 yu4 300 ii mul sub moveto dT*L87 cvsshow2
%        S33 yu4 300 ii mul sub moveto dL*0 cvsshow2 %special
       } if
%j 1 eq {S31 yu4 300 ii mul sub moveto da* cvsshow2
%        S41 yu4 300 ii mul sub moveto dT*A85 cvsshow4
%        S51 yu4 300 ii mul sub moveto dT*A87 cvsshow4
%       } if
%j 2 eq {S32 yu4 300 ii mul sub moveto db* cvsshow2
%        S42 yu4 300 ii mul sub moveto dT*B85 cvsshow4
%        S52 yu4 300 ii mul sub moveto dT*B87 cvsshow4
%        } if

} for %j=1,2

} for %ii=0,4
%*******************************************************
showpage
grestore

%%Trailer