%!PS-Adobe-3.0 EPSF-3.0 eee01-3n
%%BoundingBox: 70 83 420 335

%START PDFDE011.EPS
/pdfmark13 where {pop} {userdict /pdfmark13 /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/eee0/eee0.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 pdfmark13
[ /View [ /FitB ]
/DOCVIEW pdfmark13
%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 2 def

gsave

5 /Times-ISOL1 FS
72 85 moveto
(eee01-3n) 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 0 def %0=white W, 1=grey U
/iref 2 def %0:1,8, 1:3,6, 2:7,2, 3:14,4

 0 ywidth 340 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  18.00 def %Y= 2,5
/L0arwx  96.00 def %Y=90,0
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
             } if %xchartl=0

xchartl 1 eq {%xchartl=1
/L0arnx 22.31 def % 3,6
/L0arwx 96.00 def %90,0
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
             } if %xchartl=1

xchartl 2 eq {%xchartl=2
/L0arnx  14.4 def %  1,8
/L0arwx 125.1 def %180,0
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
             } if %xchartl=2

xchartl 3 eq {%xchartl=3
/L0arnx   8.13 def %  0,9
/L0arwx 161.78 def %360,0
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def
             } if %xchartl=3

iref 0 eq {/Yxref  1.8 def} if
iref 1 eq {/Yxref  3.6 def} if
iref 2 eq {/Yxref  7.2 def} if
iref 3 eq {/Yxref 14.4 def} if

/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 cvishow %special instead 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

%**********************************************************
iref 0 eq {%iref=0, 1,8, 0-03

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,120) (0,246) (0,375) (0,502)
        (0,628) (0,753) (0,877) (1,000)] def
/Ytdii [(-0,000) ( 0,005) ( 0,004) ( 0,000) (-0,002)
        (-0,003) (-0,003) (-0,002) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.09 def
               } if %xchartl=2

            } if %for iref=0

%**********************************************************
iref 1 eq {%iref=1, 3,6, 0-07

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,119) (0,245) (0,374) (0,503)
        (0,629) (0,755) (0,878) (1,000)] def
/Ytdii [(-0,000) ( 0,006) ( 0,005) ( 0,001) (-0,003)
        (-0,004) (-0,005) (-0,003) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.15 def
               } if %xchartl=2

            } if %for iref=1

%***************************************************
iref 2 eq {%iref=7,2, 1-13

xchartl 2 eq {%xchartl=2
/Ytrei [(0,001) (0,119) (0,243) (0,373) (0,503)
        (0,631) (0,757) (0,880) (1,000)] def
/Ytdii [(-0,000) ( 0,006) ( 0,007) ( 0,002) (-0,003)
        (-0,006) (-0,007) (-0,005) ( 0,000)] def
/yterr (0,0002) def
/Gammax 1.25 def
               } if %xchartl=2

            } if %for iref=2

%************************************************************
iref 3 eq {%iref=3, 14,4, 1-17

xchartl 2 eq {%xchartl=2
/Ytrei [(0,001) (0,122) (0,242) (0,371) (0,502)
        (0,631) (0,758) (0,881) (1,000)] def
/Ytdii [(-0,001) ( 0,003) ( 0,008) ( 0,004) (-0,002)
        (-0,006) (-0,008) (-0,006) ( 0,000)] def
/yterr (0,0002) def
/Gammax 1.37 def
               } if %xchartl=2

            } if %for iref=3

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

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
xchartl 1 le {/ypos1 0300 100 yscale mul add def} if
xchartl 2 ge {/ypos1 0300 075 yscale mul add def} if

/ytext 5 array def
xchartl 1 le {/ytext [(    0) (  25) (  50) (  75) (100)] def} if
xchartl 2 ge {/ytext [(    0) (  50) (100)  (150)  (   )] def} if
/TBGshift 100 def
/TVGshift 060 def

%****************************************************************
/xpos  0900 def
%Titeltext at y=8270
/ypos2 7900 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 0350 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 700 translate

/x300 300 def
xpos0 x300 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

xchartl 1 le {/ix 4 def}{/ix 3 def} ifelse
0 1 ix {/i exch def %i=0,ix
        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,ix

100%
/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
(100) show
0 setgray

/xdd  800 def
/xpo1 xpos def

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

xchartl 1 le {/yd1 030 50 sub def} if
xchartl 2 eq {/yd1 0350 def} if
xchartl 3 eq {/yd1 -700 def} if

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

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
tfb SM (D) show TBM (L*ta) show tfn

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
        xchartl 1 le {/ypos L0axi i get yscale mul def} if
        xchartl 2 eq {/ypos L0axi i get L0axi 0 get sub 0.5 mul
                            yscale mul  800 add 300 sub def} if
        xchartl 3 eq {/ypos L0axi i get L0axi 0 get sub 0.5 mul
                            yscale mul  600 add 300 sub def} if

        L0axi i get 96.0 div setgray

        xchartl 1 le {%xchartl<=1
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc
                      i 08 lt {fill} {0 setgray stroke} ifelse
                     } if %xchartl<=1

        xchartl 2 ge {%xchartl=2
                      i 6 le {%i<=6
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc fill
                      i 6 eq {0 setgray
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc stroke
                             } if %i=6
                             } if %i<=6

                      i 7 ge {%i>=7
                      1 0 0 setrgbcolor
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc stroke
                             } if %i>=7
                     } if %xchartl=2

        xchartl 3 ge {%xchartl=3
                      i 5 le {%i<=5
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc fill
                      i 5 eq {0 setgray
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc stroke
                             } if %i=5
                             } if %i<=5

                      i 6 ge {%i>=6
                      1 0 0 setrgbcolor
                      xpos dcirc add ypos ypos0 add dcirc 0 360 arc stroke
                             } if %i>=6
                     } if %xchartl=3
        0 setgray
       } for %i=0,8

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

xchartl 2 ge {%xchartl>=2
%for 100% y=300+(2  x25x70)=300+050x70=300+3500=3800
%for 050% y=300+(1  x25x70)=300+025x70=300+1750=2050
%for 150% y=300+(3  x25x70)=300+075x70=300+5250=5550
TBM
tfn
xpos0 100 sub x300 25 yscale mul add moveto 200 0 rlineto stroke
xpos0 600 sub x300 25 yscale mul add TBGshift sub moveto
(  50) show
xpos0 100 sub x300 75 yscale mul add moveto 200 0 rlineto stroke
xpos0 600 sub x300 75 yscale mul add TBGshift sub moveto
(150) show
0 setgray
              } if %xchartl>=2

/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

TK
0 1 08 {/i exch def %i=0,08
        xchartl 1 le {/ypos L0axi i get yscale mul def} if
        xchartl 2 eq {/ypos L0axi i get L0axi 0 get sub 0.5 mul
                            yscale mul  800 add 300 sub def} if
        xchartl 3 eq {/ypos L0axi i get L0axi 0 get sub 0.5 mul
                            yscale mul  600 add 300 sub def} if
        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
        xpo1 xdd 6 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
        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
xpo1 xdd 0 mul add ypos1 yd1 sub 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 ypos1 yd1 sub 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 ypos1 yd1 sub 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 ypos1 yd1 sub 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 ypos1 yd1 sub 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 700 neg translate

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

2900 450 100 sub moveto
TBM ((i=1,2,...,9)) show
tfn

/x0n 3000 def
/y0n 0450 100 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