%!PS-Adobe-3.0 EPSF-3.0 eea10-7n, eef10-7n
%%BoundingBox: 70 83 420 335

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: http://farbe.li.tu-berlin.de/eea1/eea1.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2023070112000)
 /ModDate (D:20230701112000)
/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

/RV {150 /Times-Roman FS} bind def
/RS {190 /Times-Roman FS} bind def
/RK {240 /Times-Roman FS} bind def
/RM {290 /Times-Roman FS} bind def
/RG {340 /Times-Roman FS} bind def

/RIV {150 /Times-Italic FS} bind def
/RIS {190 /Times-Italic FS} bind def
/RIK {240 /Times-Italic FS} bind def
/RIM {290 /Times-Italic FS} bind def
/RIG {340 /Times-Italic FS} bind def

/RBV {150 /Times-Bold FS} bind def
/RBS {190 /Times-Bold FS} bind def
/RBK {240 /Times-Bold FS} bind def
/RBM {290 /Times-Bold FS} bind def
/RBG {340 /Times-Bold FS} bind def

/RBIV {150 /Times-BoldItalic FS} bind def
/RBIS {190 /Times-BoldItalic FS} bind def
/RBIK {240 /Times-BoldItalic FS} bind def
/RBIM {290 /Times-BoldItalic FS} bind def
/RBIG {340 /Times-BoldItalic FS} bind def

/TV {150 /Times-ISOL1 FS} bind def
/TS {190 /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

/TIV {150 /TimesI-ISOL1 FS} bind def
/TIS {190 /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

/TBV {150 /TimesB-ISOL1 FS} bind def
/TBS {190 /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

/TBIV {150 /TimesBI-ISOL1 FS} bind def
/TBIS {190 /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

/TBSN {-20 -60 rmoveto TBV (N) show 0 60 rmoveto TBS} bind def
/TBSU {-20 -60 rmoveto TBV (U) show 0 60 rmoveto TBS} bind def
/TBSW {-20 -60 rmoveto TBV (W) show 0 60 rmoveto TBS} bind def
/TBSY {-20 -60 rmoveto TBV (Y) show 0 60 rmoveto TBS} bind def

/TBMN {-20 -60 rmoveto TBK (N) show 0 60 rmoveto TBM} bind def
/TBMU {-20 -60 rmoveto TBK (U) show 0 60 rmoveto TBM} bind def
/TBMW {-20 -60 rmoveto TBK (W) show 0 60 rmoveto TBM} bind def
/TBMY {-20 -60 rmoveto TBK (Y) show 0 60 rmoveto TBM} bind def

/TBM0N {-20 -60 rmoveto TBK (0N) show 0 60 rmoveto TBM} bind def
/TBM0U {-20 -60 rmoveto TBK (0U) show 0 60 rmoveto TBM} bind def
/TBM0W {-20 -60 rmoveto TBK (0W) show 0 60 rmoveto TBM} bind def
/TBM0Y {-20 -60 rmoveto TBK (0Y) show 0 60 rmoveto TBM} bind def
/TBM0i {-20 -60 rmoveto TBK (0i) show 0 60 rmoveto TBM} bind def
/TBM05 {-20 -60 rmoveto TBK (05) show 0 60 rmoveto TBM} bind def

/TBMtN {-20 -60 rmoveto TBK (tN) show 0 60 rmoveto TBM} bind def
/TBMtU {-20 -60 rmoveto TBK (tU) show 0 60 rmoveto TBM} bind def
/TBMtW {-20 -60 rmoveto TBK (tW) show 0 60 rmoveto TBM} bind def
/TBMtY {-20 -60 rmoveto TBK (tY) show 0 60 rmoveto TBM} bind def

/TBMta {-20 -60 rmoveto TBK (ta) show 0 60 rmoveto TBM} bind def
/TBMi  {-20 -60 rmoveto TBK (i)  show 0 60 rmoveto TBM} bind def
/TBMref {-20 -60 rmoveto TBK (ref)  show 0 60 rmoveto TBM} bind def
/TBM0ref {-20 -60 rmoveto TBK (0ref)  show 0 60 rmoveto TBM} bind def
/TBM1ref {-20 -60 rmoveto TBK (1ref)  show 0 60 rmoveto TBM} bind def
/TBM2ref {-20 -60 rmoveto TBK (2ref)  show 0 60 rmoveto TBM} bind def

/TBM0aN {-20 -60 rmoveto TBK (0aN) show 0 60 rmoveto TBM} bind def
/TBM0aU {-20 -60 rmoveto TBK (0aU) show 0 60 rmoveto TBM} bind def
/TBM0aW {-20 -60 rmoveto TBK (0aW) show 0 60 rmoveto TBM} bind def
/TBM0aY {-20 -60 rmoveto TBK (0aY) show 0 60 rmoveto TBM} bind def
/TBM0ai {-20 -60 rmoveto TBK (0ai) show 0 60 rmoveto TBM} bind def
/TBM05a {-20 -60 rmoveto TBK (05a) show 0 60 rmoveto TBM} bind def

/TBMtaN {-20 -60 rmoveto TBK (taN) show 0 60 rmoveto TBM} bind def
/TBMtaU {-20 -60 rmoveto TBK (taU) show 0 60 rmoveto TBM} bind def
/TBMtaW {-20 -60 rmoveto TBK (taW) show 0 60 rmoveto TBM} bind def
/TBMtaY {-20 -60 rmoveto TBK (taY) show 0 60 rmoveto TBM} bind def
/TBMtaiU {-20 -60 rmoveto TBK (taiU) show 0 60 rmoveto TBM} bind def
/TBMtaiW {-20 -60 rmoveto TBK (taiW) show 0 60 rmoveto TBM} bind def

/TBMta {-20 -60 rmoveto TBK (ta) show 0 60 rmoveto TBM} bind def
/TBMai  {-20 -60 rmoveto TBK (ai)  show 0 60 rmoveto TBM} bind def

/TSN {-20 -60 rmoveto TV (N) show 0 60 rmoveto TS} bind def
/TSU {-20 -60 rmoveto TV (U) show 0 60 rmoveto TS} bind def
/TSW {-20 -60 rmoveto TV (W) show 0 60 rmoveto TS} bind def
/TSY {-20 -60 rmoveto TV (Y) show 0 60 rmoveto TS} bind def

/TMN {-20 -60 rmoveto TK (N) show 0 60 rmoveto TM} bind def
/TMU {-20 -60 rmoveto TK (U) show 0 60 rmoveto TM} bind def
/TMW {-20 -60 rmoveto TK (W) show 0 60 rmoveto TM} bind def
/TMY {-20 -60 rmoveto TK (Y) show 0 60 rmoveto TM} bind def

/TM0N {-20 -60 rmoveto TK (0N) show 0 60 rmoveto TM} bind def
/TM0U {-20 -60 rmoveto TK (0U) show 0 60 rmoveto TM} bind def
/TM0W {-20 -60 rmoveto TK (0W) show 0 60 rmoveto TM} bind def
/TM0Y {-20 -60 rmoveto TK (0Y) show 0 60 rmoveto TM} bind def

/TMtN {-20 -60 rmoveto TK (tN) show 0 60 rmoveto TM} bind def
/TMtU {-20 -60 rmoveto TK (tU) show 0 60 rmoveto TM} bind def
/TMtW {-20 -60 rmoveto TK (tW) show 0 60 rmoveto TM} bind def
/TMtY {-20 -60 rmoveto TK (tY) show 0 60 rmoveto TM} bind def

/TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def
/TMi  {-20 -60 rmoveto TK (i)  show 0 60 rmoveto TM} bind def

/TM0aN {-20 -60 rmoveto TK (0aN) show 0 60 rmoveto TM} bind def
/TM0aU {-20 -60 rmoveto TK (0aU) show 0 60 rmoveto TM} bind def
/TM0aW {-20 -60 rmoveto TK (0aW) show 0 60 rmoveto TM} bind def
/TM0aY {-20 -60 rmoveto TK (0aY) show 0 60 rmoveto TM} bind def

/TMtaN {-20 -60 rmoveto TK (taN) show 0 60 rmoveto TM} bind def
/TMtaU {-20 -60 rmoveto TK (taU) show 0 60 rmoveto TM} bind def
/TMtaW {-20 -60 rmoveto TK (taW) show 0 60 rmoveto TM} bind def
/TMtaY {-20 -60 rmoveto TK (taY) show 0 60 rmoveto TM} bind def

/TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def
/TMi  {-20 -60 rmoveto TK (ai)  show 0 60 rmoveto TM} bind def

/SV {150 /Symbol FS} bind def
/SS {190 /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
/circ %x, y radius
  {dcirc 0 360 arc } 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

/colarcfi %x y c m y k
  {setcmyk_olvcolor circ fill} bind def

/colarcst %x y width heigth c m y k
  {setcmyk_olvcolor circ stroke} bind def

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

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

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

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

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

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

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

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

/cvishow {cvi 10 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 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

/cvishowr {0.4 add cvi 10 string cvs show} def
/cvsshow1r {0.04 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.004 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0004 add 1000 mul cvi 0.001 mul 7 string cvs show} def

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

/DECODY_L* {/YYn Y Yn div def
            /YYnE3 YYn 0.3333 exp def
            /DE 24 116 div def
            /DE3 DE 3 exp def
            
            YYn DE3 gt {/FYYn YYnE3 def}
                       {/FYYn 841 108 div YYn mul 16 116 div add def} ifelse
            /L* FYYn 116 mul 16 sub def
           } bind def

/DECODL*_Y {/FYYn L* 16 add 116 div def
            /DE 24 116 div def
            L* 8 gt {/Y FYYn 3 exp Yn mul def}
                    {/Y FYYn 16 116 div sub
                        108 841 div mul Yn mul def
                    } ifelse
           } bind 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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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 1 def /lanind2 1 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

gsave
/xchart xchart1 def

/xchartl 1 def

gsave

5 /Times-ISOL1 FS
72 85 moveto
(eea10-7n, eef10-7n) show

72 90 translate

/xwidth 12200 def
/ywidth  8500 def
0.01 MM dup scale

15 setlinewidth
1 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath fill
0 setgray
0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto
closepath stroke

%normalisation grey or white
/iYnor 1 def %0=white W, 1=grey U

 0 ywidth 320 sub  moveto 12200 0 rlineto stroke

/ydel 300 def

/L0a0i 9 array def
%/L0a1i 9 array def
%/L0a2i 9 array def
%/L0a3i 9 array def
/L0axi 9 array def

/L0r0i 9 array def
%/L0r1i 9 array def
%/L0r2i 9 array def
%/L0r3i 9 array def
/L0rxi 9 array def

/Y0a0i 9 array def
%/Y0a1i 9 array def
%/Y0a2i 9 array def
%/Y0a3i 9 array def
/Y0axi 9 array def

/Y0r0i 9 array def
%/Y0r1i 9 array def
%/Y0r2i 9 array def
%/Y0r3i 9 array def
/Y0rxi 9 array def

/Lta0i 9 array def
%/Lta1i 9 array def
%/Lta2i 9 array def
%/Lta3i 9 array def
/Ltaxi 9 array def

/Ltl0i 9 array def
%/Ltl1i 9 array def
%/Ltl2i 9 array def
%/Ltl3i 9 array def
/Ltlxi 9 array def

/Ltr0i 9 array def
%/Ltr1i 9 array def
%/Ltr2i 9 array def
%/Ltr3i 9 array def
/Ltrxi 9 array def

/Yta0i 9 array def
%/Yta1i 9 array def
%/Yta2i 9 array def
%/Yta3i 9 array def
/Ytaxi 9 array def

/Ytr0i 9 array def
%/Ytr1i 9 array def
%/Ytr2i 9 array def
%/Ytr3i 9 array def
/Ytrxi 9 array def

/Da*0i 9 array def
%/Da*1i 9 array def
%/Da*2i 9 array def
%/Da*3i 9 array def
/Da*xi 9 array def

/Yn 100 def

xchartl 0 eq {%xchartl=0
/L0arnx 22.31 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 0.4 def
             } if %xchartl=0

xchartl 1 eq {%xchartl=1
/L0arnx 22.31 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 90 def
             } if %xchartl=1

xchartl 2 eq {%xchartl=2
/L0arnx 22.31 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 1.8 def
             } if %xchartl=2

xchartl 3 eq {%xchartl=3
/L0arnx 22.31 def
/L0arwx 96.0 def
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
/Yxref 3.6 def
             } if %xchartl=3

/s 350 def
/xdels 2000 def %s=series
/xdelc    s def %c=color=s
/xdel2    s 2 mul def
/ydel  0800 def
/dcirc s 0.50 mul def
/dcir2 dcirc 0.5 mul def
/tcirc s 0.60 mul def
/yscale 69 def

/Da*0x L0arwx L0arnx sub 8 div def
0 1 08 {/i exch def
        L0axi i L0arnx Da*0x i mul add put
        L0rxi i L0axi i get L0arnx sub
                L0arwx      L0arnx sub div put
        /L* L0axi i get def DECODL*_Y
        Y0axi i Y put
        Y0rxi i Y0axi i get Y0arnx sub
                Y0arwx      Y0arnx sub div put
       } for

iYnor 0 eq {%iYnor=0 W
            /Yfak Y0axi 8 get Y0axi 8 get Yxref add div def
           }
           {%iYnor=1 U
            /Yfak Y0axi 4 get Y0axi 4 get Yxref add div def
           } ifelse

0 1 08 {/i exch def
        Ytaxi i Y0axi i get Yxref add Yfak mul put
        /Y Ytaxi i get def DECODY_L* Ltaxi i L* put
        } for

0 1 08 {/i exch def
        Ytrxi i Ytaxi i get Ytaxi 0 get sub
                Ytaxi 8 get Ytaxi 0 get sub div put
        Ltrxi i Ltaxi i get Ltaxi 0 get sub
                Ltaxi 8 get Ltaxi 0 get sub div put
        } for

%**************************************************
%Titeltext
 50 8270 moveto
TBM
(9stufige Grauskalierung zwischen ) showde
(Equal 9 step grey scaling between ) showen
(9 pasos di gri con escala equal entre ) showes
(Les 9 plages d'\351chelle de gris entre ) showfr
(9 fasi di grigio con uguale la scalatura fra ) showit
(9 trinn av gr\345 med samme skalering mellom ) showjp
TBIM (L*) show TBM0aN TBM (=) show L0arnx cvsshow1
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
TBIM (L*) show TBM0aW TBM (=) show L0arwx cvsshow1

TBM
(, ) showde
(, ) showen
TBIM (Y) show TBM0ref
TBM (=) show Yxref cvsshow1
iYnor 0 eq {%W-Normalisation
            (, normalisation: white ) showen
            (, Normierung: Wei\337 ) showde
            TBIM (W) show TBM
           } if

iYnor 1 eq {%G-Normalisation
            (, normalisation: grey ) showen
            (, Normierung: Grau ) showde
            TBIM (U) show TBM
           } if

/Ytrei 9 array def
/Ytdii 9 array def

xchartl 0 eq {%xchartl=0
/Ytrei [(0,000) (0,125) (0,249) (0,375) (0,500)
        (0,625) (0,750) (0,874) (1,000)] def
/Ytdii [(-0,000) (-0,000) ( 0,000) (-0,000) ( 0,000)
        ( 0,000) (-0,001) ( 0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.02 def
               } if %xchartl=0

xchartl 1 eq {%xchartl=1
/Ytrei [(0,000) (0,149) (0,260) (0,373) (0,491)
        (0,614) (0,740) (0,869) (1,000)] def
/Ytdii [(-0,003) (-0,023) (-0,010) ( 0,002) ( 0,009)
        ( 0,011) ( 0,010) ( 0,005) ( 0,000)] def
/yterr (0,0010) def
/Gammax 1.60 def
               } if %xchartl=1

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,125) (0,249) (0,374) (0,500)
        (0,626) (0,751) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,000) ( 0,001) ( 0,001) (-0,000)
        (-0,001) (-0,001) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.07 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,125) (0,248) (0,374) (0,500)
        (0,626) (0,752) (0,876) (1,000)] def
/Ytdii [(-0,000) (-0,000) ( 0,002) ( 0,001) (-0,000)
        (-0,001) (-0,002) (-0,001) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.12 def
               } if %xchartl=3

0 1100 neg translate

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/ytext 5 array def
/ytext [(    0) (  25) (  50) (  75) (100)] def
/TBGshift 100 def
/TVGshift 060 def


/x300 300 def
%xpos0 x300 moveto xpos1 ypos1 500 add lineto stroke
xpos0 x300 1000 add moveto xpos1 ypos1 500 add lineto stroke
xpos1 ypos1 500 add moveto -100 -250 rlineto stroke
xpos1 ypos1 500 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 300 add moveto TBIM (L*) show TBM

1 1 4 {/i exch def %i=0,4
       xpos0 100 sub x300 i 25 mul yscale mul add moveto 200 0 rlineto stroke
       xpos0 600 sub x300 i 25 mul yscale mul add TBGshift sub moveto
       ytext i get show
      } for %i=0,4

50%
/i 2 def
1 0 0 setrgbcolor
xpos0 100 sub x300 i 25 mul yscale mul add moveto 200 0 rlineto stroke
xpos0 600 sub x300 i 25 mul yscale mul add TBGshift sub moveto
(  50) show
0 setgray

0 1100 translate

%****************************************************************
/xpos 0900 def
%Titeltext at y=8270
/ypos2 7950 def
100 ypos2 moveto
TIM (L*) show TM0aN
TM (=) show L0axi 0 get cvsshow1r (, ) show
TIM (L*) show TM0aU
TM (=) show L0axi 4 get cvsshow1r (, ) show
TIM (L*) show TM0aW
TM (=) show L0axi 8 get cvsshow1r (, ) show
TIM (Y) show TM0aN
TM (=) show Y0axi 0 get cvsshow1r (, ) show
TIM (Y) show TM0aU
TM (=) show Y0axi 4 get cvsshow1r (, ) show
TIM (Y) show TM0aW
TM (=) show Y0axi 8 get cvsshow1r (, ) show
TIM (C) show TM0aY
TM (=) show
TIM (Y) show TM0aW TM (:) show
TIM (Y) show TM0aN TM (=) show
Y0axi 8 get
Y0axi 0 get div cvsshow1r

%****************************************
100 ypos2 0300 sub moveto
TIM (L*) show TMtN
TM (=) show Ltaxi 0 get cvsshow1r (, ) show
TIM (L*) show TMtaU
TM (=) show Ltaxi 4 get cvsshow1r (, ) show
TIM (L*) show TMtaW
TM (=) show Ltaxi 8 get cvsshow1r (, ) show
TIM (Y) show TMtaN
TM (=) show Ytaxi 0 get cvsshow1r (, ) show
TIM (Y) show TMtaU
TM (=) show Ytaxi 4 get cvsshow1r (, ) show
TIM (Y) show TMtaW
TM (=) show Ytaxi 8 get cvsshow1r (, ) show

TIM (C) show TMtaY TM (=) show
TIM (Y) show TMtaW TM (:) show
TIM (Y) show TMtaN TM (=) show
Ytaxi 8 get
Ytaxi 0 get div cvsshow1r

0 -1100 translate

/xdd  800 def
/xpo1 xpos def

/TBMe {-00 80 rmoveto TBK (1/) show Gammax cvsshow2r 
        0 -80 rmoveto TBM} bind def

/yd1 030 50 sub def
xpo1 xdd 1 mul add ypos1 yd1 sub TVGshift sub 300 add moveto TBM
(intended output) showen
(angestrebte Ausgabe) showde

xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub 300 add moveto TBM
(real output) showen
(reale Ausgabe) showde

xpo1 xdd 10.7 mul add ypos1 yd1 sub TVGshift sub 300 add moveto TBM
(linearized output) showen
(linearisierte Ausgabe) showde

/yd1 030 50 sub def
xpo1 xdd 0 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (n0. i) show
xpo1 xdd 1 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*0a) show
xpo1 xdd 2 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*0r) show
xpo1 xdd 3 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y0a) show
xpo1 xdd 4 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y0r) show

[50 50] 0 setdash
xpo1 xdd 4.8 mul add ypos1 yd1 sub 150 add TVGshift sub moveto
0 6600 neg rlineto stroke newpath
[ ] 0 setdash
xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*ta) show
xpo1 xdd 5.9 mul add ypos1 yd1 sub TVGshift sub moveto
SM (D) show TBM (L*ta) show

xpo1 xdd 7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*tr) show
xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Yta) show
xpo1 xdd 9.2 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((L*tr)) show TBMe
xpo1 xdd 10.7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*la) show
xpo1 xdd 11.9 mul add ypos1 yd1 sub TVGshift sub moveto
tfb SM (D) show TBM (L*la) show tfn

TK
0 1 8 {/i exch def %i=0,8
        newpath
        /ypos L0axi i get yscale mul def
        L0axi i get 96.0 div setgray
        xpos dcirc add ypos ypos0 add dcirc 0 360 arc
        i 08 lt {fill} {0 setgray stroke} ifelse
        0 setgray
       } for %i=0,8

/1DGammax 1 Gammax div def
0 1 08 {/i exch def %i=0,08
        Ltlxi i Ltaxi 0 get
                Ltaxi 8 get Ltaxi 0 get sub
                Ltrxi i get 1DGammax exp mul
                add put
       } for %i=0,08

0 1 08 {/i exch def %i=0,08
        /ypos L0axi i get yscale mul 50 add def
        xpo1 xdd 0.5 mul add ypos ypos0 add TVGshift sub moveto
        i 1 add cvishowr
        xpo1 xdd 1 mul add ypos ypos0 add TVGshift sub moveto
        L0axi i get cvsshow1r
        xpo1 xdd 2 mul add ypos ypos0 add TVGshift sub moveto
        L0rxi i get cvsshow3r
        xpo1 xdd 3 mul add ypos ypos0 add TVGshift sub moveto
        Y0axi i get cvsshow1r
        xpo1 xdd 4 mul add ypos ypos0 add TVGshift sub moveto
        Y0rxi i get cvsshow3r

        xpo1 xdd 5 mul add ypos ypos0 add TVGshift sub moveto
        i 2 le
        xchartl 1 eq and {1 0 0 setrgbcolor} if
        Ltaxi i get cvsshow1r
        0 setgray
      
        i 1 ge {%i>=1
        i 2 le
        xchartl 1 eq and {1 0 0 setrgbcolor} if
        xpo1 xdd 6 mul add ypos ypos0 add 350 sub TVGshift sub moveto
        tfb
        Ltaxi i get Ltaxi i 1 sub get sub cvsshow1r
        0 setgray
               } if %i>=1

        xpo1 xdd 7 mul add ypos ypos0 add TVGshift sub moveto
        Ltrxi i get cvsshow3r
        xpo1 xdd 8 mul add ypos ypos0 add TVGshift sub moveto
        Ytaxi i get cvsshow1r

        xpo1 xdd 9.2 mul add ypos ypos0 add TVGshift sub moveto
%        Ytrei i get show
        Ltrxi i get 1DGammax exp cvsshow3r

        xpo1 xdd 10.7 mul add ypos ypos0 add TVGshift sub moveto
        Ltlxi i get cvsshow1r

        i 1 ge {%i>=1
        xpo1 xdd 11.9 mul add ypos ypos0 add
        xchartl 1 le {350 sub} if
        xchartl 2 eq {150 sub} if
        xchartl 3 eq {250 sub} if
        TVGshift sub moveto
        tfb
        Ltlxi i get Ltlxi i 1 sub get sub cvsshow1r
        0 setgray
               } if %i>=1

       } for %i=0,08


%text output regularity index
tfb
/ypos3 ypos1 yd1 sub 100 sub def
xpo1 xdd 0 mul add ypos3 TVGshift sub 1350 add moveto TBM
(regularity index according to ISO/IEC 15775:2022, ) showen
(Annex G for 5 and 9 steps) showen
(Regularit\344tsindex nach ISO/IEC 15775:2022, ) showde
(Anhang G f\374r 5 und 9 Stufen) showde

xpo1 xdd 0 mul add ypos3 TVGshift sub 1050 add moveto
TBIM (g*) show TBM ( = 100 [) show 
SM (D) show TBIM (L*) show TBK 0 -30 rmoveto (min) show 0 30 rmoveto
TBM ( ] / [ ) show
SM (D) show TBIM (L*) show TBK 0 -30 rmoveto (max) show 0 30 rmoveto
TBM ( ]) show


%*****************************************
/proz_regu_index {%BEG proz_regu_index
%assumption  available
/L*xai 9 array def %L0a0i, Lta0i, Ltl0i
/delki 9 array def

0 1 8 {/i exch def %i=0,8
       iregu 0 eq {%iregu=0
                   L*xai i L0axi i get put
                  } if %iregu=0
       iregu 1 eq {%iregu=1
                   L*xai i Ltaxi i get put
                  } if %iregu=1
       iregu 2 eq {%xchartl=2
                   L*xai i Ltlxi i get put
                  } if %iregu=2
      } for %i=0,8

%STOP1
%***************************************************
0 2 6 {/i exch def %i=0,2,6
       delki i L*xai i 2 add get L*xai i get sub abs put
      } for %i=0,2,6

%STOP2

/MIN 999 def
/MAX 001 def
0 2 6 {/i exch def %i=0,2,6
       delki i get MIN lt {/MIN delki i get def} if
       delki i get MAX gt {/MAX delki i get def} if  
      } for %i=0,2,6

/r5 MIN MAX div 100 mul def

%***************************************************
0 1 7 {/i exch def %i=0,1,7
       delki i L*xai i 1 add get L*xai i get sub abs put
      } for %i=0,1,7

/MIN 999 def
/MAX 001 def
0 1 7 {/i exch def %i=0,1,7
       delki i get MIN lt {/MIN delki i get def} if
       delki i get MAX gt {/MAX delki i get def} if
      } for %i=0,1,7

/r9 MIN MAX div 100 mul def

} bind def %END proz_regu_index

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

/iregu 0 def
proz_regu_index
xpo1 xdd 1 mul add ypos3 TVGshift sub 700 add moveto
TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto
TBM (= ) show r5 cvishow (,  ) show
TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto
TBM (= ) show r9 cvishow

/iregu 1 def
proz_regu_index
xpo1 xdd 5 mul add ypos3 TVGshift sub 700 add moveto
TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto
TBM (= ) show r5 cvishow (,  ) show
TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto
TBM (= ) show r9 cvishow

/iregu 2 def
proz_regu_index
xpo1 xdd 10.7 mul add ypos3 TVGshift sub 700 add moveto
TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto
TBM (= ) show r5 cvishow (,  ) show
TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto
TBM (= ) show r9 cvishow

tfn

0 -1100 neg translate

tfb
0900 400 180 sub moveto
SM (D) show TBIM (L*) show TBMta TBM (=) show
L0axi 8 get L0axi 7 get sub cvsshow1r %round

2900 400 180 sub moveto
TBM ((i=1,2,...,9)) show

/x0n 3000 def
/y0n 0450 180 sub def
x0n 1900 add y0n moveto
TBM
(normalisation: ) showen
(Normierung: ) showde
TBIM (Y) show
iYnor 0 eq {TBMtaiW} {TBMtaiU} ifelse
TBK (=) show
TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse
100 050 rmoveto 1300 0 rlineto stroke

iYnor 0 eq {/x1n 5300 def} {/x1n 5200 def} ifelse
x0n x1n add y0n 130 add moveto
TBIM (Y) show TBM0ai TBM (+) show
TBIM (Y) show TBM0ref
x0n x1n add 50 sub y0n 170 sub moveto
TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse
TBM (+) show TBIM (Y) show TBM0ref

showpage
grestore

%%Trailer