%!PS-Adobe-3.0 EPSF-3.0 eek81-7n
%%BoundingBox: 70 83 420 335

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

/TBM0a  {-20 -60 rmoveto TBK (0a) 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

/kTUB 40 5 log div def
/TECODY_L* {/YYu Y Yu div def
            /L* YYu log kTUB mul def
           } bind def

/TECODL*_Y {/FYYu L* kTUB div def
            /YYu 10 FYYu exp def
            /Y YYu Yu mul def
           } bind def

/SECODY_L* {/YYu Y Yu div def
/aSE 1.00 def
/bSE 1.00 def
/eSE 2.718282 def
/betaSE 66.30 def %to get L*SE to +/-40 for Y=3,6 and 90 

/xrSE YYu log def
/L* bSE betaSE mul eSE xrSE exp  
                   eSE xrSE neg exp sub mul
                   eSE xrSE exp
                   eSE xrSE neg exp add     div def
} bind def
%inverse SECODL*_Y not known

%*****************************************************
%%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

/iref 3 def

gsave

%iYnor %0:W, 1:U
%iber  %Y range 0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54
%ispa  %0:CIELAB, 1:TUBJND1 2:TUBJND2

/Yu 18 def
/Yn 100 def

%iYnor default=0, 0:white, 1:grey U
/iYnor 0 def %0:white, 1:grey U

%iber default=0, %Y range 0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54
/iber 4 def %0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54

%ispa default=0, 0:CIELAB, 1:TUBJND1, 2:TUBJND2
/ispa 0 def %0:CIELAB, 1:TUBJND1, 2:TUBJND2

%iref default=0, 0:3,6, 1:1,8, 2:0,9 3:90, 108, 126, 180, 54 (for iber=0 to 4) 
/iref 3 def %0:3,6, 1:1,8, 2:0,9 3:90, 108, 126, 180, 54 (for iber=0 to 4)

iref 0 eq {/Yxref 3.6 def} if
iref 1 eq {/Yxref 1.8 def} if
iref 2 eq {/Yxref 0.9 def} if
iref 3 eq iber 0 eq and {/Yxref 090 def} if
iref 3 eq iber 1 eq and {/Yxref 108 def} if
iref 3 eq iber 2 eq and {/Yxref 126 def} if
iref 3 eq iber 3 eq and {/Yxref 180 def} if
iref 3 eq iber 4 eq and {/Yxref 054 def} if

5 /Times-ISOL1 FS
72 85 moveto
(eek81-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

 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

%i      0     1     2      3     4
/YNti [(3,6) (3,0) (2,57) (1,8) (6,0)] def
/YNi  [ 3.6   3.0   2.57   1.8   6.0 ] def
/YWti [(90)  (108) (126)  (180) (54) ] def
/YWi  [ 90    108   126    180   54  ] def

/YNta YNti iber get def
/YNa  YNi  iber get def
/YWta YWti iber get def
/YWa  YWi  iber get def

/Yn 100 def
/Yu  18 def

%example /Y Ytaxi i get def TECODY_L* Ltaxi i L* put

ispa 0 eq {/Y YNa def DECODY_L* /L0arnx L* def
           /Y YWa def DECODY_L* /L0arwx L* def} if
ispa 1 eq {/Y YNa def TECODY_L* /L0arnx L* def
           /Y YWa def TECODY_L* /L0arwx L* def} if
ispa 2 eq {/Y YNa def SECODY_L* /L0arnx L* def
           /Y YWa def SECODY_L* /L0arwx L* def} if

/Y0arnx YNa def
/Y0arwx YWa def

/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
/scaleY 0.75 def iber 3 eq {/scaleY 0.60 def} if
/yscale 69 scaleY mul 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
        ispa 0 eq {DECODL*_Y} if
        ispa 1 eq {TECODL*_Y} if
        ispa 2 eq {SECODL*_Y} if %not known
        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 
        ispa 0 eq {DECODY_L*} if
        ispa 1 eq {TECODY_L*} if
        ispa 2 eq {SECODY_L*} if
        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 10 array def
/Ytdii 10 array def
%625*LINDA08_.DAT********************************************************
iref 0 eq {%iref=0 %03_15, 25_37, 47_59, 69_81, delta=12 
 /1DGam08_03   1.0814 def
 /alpha08_03   0.0000 def
 /linda08_03 [%BEG linda08_03
   1.0000   0.0000 %  9   1.0000   1.0000 F,DELT, %I,V1,V2
   0.8750   0.0004 %  8   0.8650   0.8750 F,DELT, %I,V1,V2
   0.7500   0.0004 %  7   0.7320   0.7500 F,DELT, %I,V1,V2
   0.6250   0.0012 %  6   0.6000   0.6250 F,DELT, %I,V1,V2
   0.5000   0.0012 %  5   0.4710   0.5000 F,DELT, %I,V1,V2
   0.3750   0.0008 %  4   0.3450   0.3750 F,DELT, %I,V1,V2
   0.2500  -0.0011 %  3   0.2240   0.2500 F,DELT, %I,V1,V2
   0.1250  -0.0030 %  2   0.1080   0.1250 F,DELT, %I,V1,V2
   0.0001  -0.0001 %  1   0.0001   0.0001 F,DELT, %I,V1,V2
 ] def %END linda08_03
0 1 8 {/i exch def %i=0,8
       Ytrei i linda08_03 i 2 mul       get put 
       Ytdii i linda08_03 i 2 mul 1 add get put
      } for %i=0,8
/Gammax 1DGam08_03 def
/alpha  alpha08_03 def
               } if %iref=0

iref 1 eq {%iref=1
 /1DGam08_07   1.0447 def
 /alpha08_07   0.0000 def
 /linda08_07 [%BEG linda_07
   1.0000   0.0000 %  9   1.0000   1.0000 F,DELT, %I,V1,V2
   0.8750  -0.0003 %  8   0.8700   0.8750 F,DELT, %I,V1,V2
   0.7500   0.0002 %  7   0.7400   0.7500 F,DELT, %I,V1,V2
   0.6250   0.0007 %  6   0.6110   0.6250 F,DELT, %I,V1,V2
   0.5000   0.0004 %  5   0.4840   0.5000 F,DELT, %I,V1,V2
   0.3750   0.0005 %  4   0.3580   0.3750 F,DELT, %I,V1,V2
   0.2500  -0.0004 %  3   0.2350   0.2500 F,DELT, %I,V1,V2
   0.1250  -0.0014 %  2   0.1150   0.1250 F,DELT, %I,V1,V2
   0.0001   0.0000 %  1   0.0001   0.0001 F,DELT, %I,V1,V2
 ] def %END linda08_07
0 1 8 {/i exch def %i=0,8
       Ytrei i linda08_07 i 2 mul       get put
       Ytdii i linda08_07 i 2 mul 1 add get put
      } for %i=0,8
/Gammax 1DGam08_07 def
/alpha  alpha08_07 def
               } if %iref=1

iref 2 eq {%iref=2
 /1DGam08_13   1.0229 def
 /alpha08_13   0.0000 def
 /linda08_13 [%BEG linda08_13
   1.0000   0.0000 %  9   1.0000   1.0000 F,DELT, %I,V1,V2
   0.8750   0.0002 %  8   0.8720   0.8750 F,DELT, %I,V1,V2
   0.7500  -0.0002 %  7   0.7450   0.7500 F,DELT, %I,V1,V2
   0.6250   0.0000 %  6   0.6180   0.6250 F,DELT, %I,V1,V2
   0.5000   0.0008 %  5   0.4910   0.5000 F,DELT, %I,V1,V2
   0.3750   0.0003 %  4   0.3660   0.3750 F,DELT, %I,V1,V2
   0.2500  -0.0002 %  3   0.2420   0.2500 F,DELT, %I,V1,V2
   0.1250  -0.0011 %  2   0.1200   0.1250 F,DELT, %I,V1,V2
   0.0001   0.0000 %  1   0.0001   0.0001 F,DELT, %I,V1,V2
 ] def %END linda08_13
0 1 8 {/i exch def %i=0,8
       Ytrei i linda08_13 i 2 mul       get put
       Ytdii i linda08_13 i 2 mul 1 add get put
      } for %i=0,8
/Gammax 1DGam08_13 def
/alpha  alpha08_13 def
               } if %iref=2

iref 3 eq {%iref=3
 /1DGam08_17   1.3762 def
 /alpha08_17   0.0008 def
 /linda08_17 [%BEG linda08_17
   1.0000   0.0000 %  9   1.0000   1.0000 F,DELT, %I,V1,V2
   0.8750   0.0061 %  8   0.8240   0.8750 F,DELT, %I,V1,V2
   0.7500   0.0103 %  7   0.6600   0.7500 F,DELT, %I,V1,V2
   0.6250   0.0106 %  6   0.5110   0.6250 F,DELT, %I,V1,V2
   0.5000   0.0073 %  5   0.3770   0.5000 F,DELT, %I,V1,V2
   0.3750   0.0008 %  4   0.2580   0.3750 F,DELT, %I,V1,V2
   0.2500  -0.0097 %  3   0.1560   0.2500 F,DELT, %I,V1,V2
   0.1250  -0.0202 %  2   0.0700   0.1250 F,DELT, %I,V1,V2
   0.0001  -0.0012 %  1   0.0001   0.0001 F,DELT, %I,V1,V2
 ] def %END linda08_17
0 1 8 {/i exch def %i=0,8
       Ytrei i linda08_17 i 2 mul       get put
       Ytdii i linda08_17 i 2 mul 1 add get put
      } for %i=0,8
/Gammax 1DGam08_17 def
/alpha  alpha08_17 def
               } if %iref=3

%714*********************************************************

%for scale test
%0 1 0 setrgbcolor
%100 0000 moveto 200 0 rlineto stroke 300 0000 moveto (0) show
%1 0 0 setrgbcolor
%100 1000 moveto 200 0 rlineto stroke 300 1000 moveto (1) show
%100 2000 moveto 200 0 rlineto stroke 300 2000 moveto (2) show
%100 3000 moveto 200 0 rlineto stroke 300 3000 moveto (3) show
%100 4000 moveto 200 0 rlineto stroke 300 4000 moveto (4) show
0 setgray

ispa 0 eq iber 0 eq and {/ypl -200 def} if
ispa 0 eq iber 1 eq and {/ypl -500 def} if
ispa 0 eq iber 2 eq and {/ypl -650 def} if
ispa 0 eq iber 3 eq and {/ypl -500 def} if
ispa 0 eq iber 4 eq and {/ypl -500 def} if
ispa 1 ge {/ypl 2500 def} if

0 0300 ypl sub neg translate

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
/ypos1 0300 100 yscale mul add def
/TVGshift 060 def

600 6000 100 add moveto 200 0 rlineto stroke
600 3600 moveto 200 0 rlineto stroke
600 1200 100 sub moveto 200 0 rlineto stroke

/ydels 1250 def
ispa 0 eq {/y0sc  1100 def} if
ispa 1 eq {/y0sc -1500 def} if
ispa 2 eq {/y0sc -1500 def} if
700 y0sc moveto 0 5000 300 add rlineto stroke

% 0      1     2      3     4     5
ispa 0 eq               {/ytext       
[(    0)(  25)(  50) (  75)(100)] def} if
ispa 0 eq iber 3 eq and {/ytext 
[(    0)(  30)(  60) (  90)(120)] def} if
ispa 1 ge               {/ytext
[(-50)  (-25) (    0)(  25)(  50)] def} if

0 1 4 {/i exch def %i=0,4
       600 1100 i ydels mul add moveto 200 0 rlineto stroke
       100 1100 i ydels mul add 100 sub moveto ytext i get show
      } for %i=0,4

700 080 sub y0sc 5100 add moveto 080 200 rlineto 080 -200 rlineto stroke

0 0300 ypl sub translate

%STOP
%****************************************************************
/xpos 0900 def
%Titeltext at y=8270
/ypos2 7950 50 sub 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 075 sub moveto
TIM (L*) show TMtaN
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  0400 translate

%text output regularity index
tfb

/yposr 6750 def

%/ypos3 ypos1 yd1 sub 100 sub def
%xpo1 xdd 0 mul add ypos3 TVGshift sub 1350 add moveto TBM
%100 ypos3 TVGshift sub 1350 add moveto TBM

100 yposr 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

100 yposr 300 sub moveto TBM
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

ispa 0 eq {%CIELAB
           TBIM (L*) show TBK 10 -50 rmoveto (CIELAB) show 0 50 rmoveto 
           TBM ( = 116 [) show
           TBIM (Y/Y) show TBK 0 -50 rmoveto (n) show 0 50 rmoveto
           TBM (]) show TBK 0 80 rmoveto (1/3) show 0 -80 rmoveto
           TBM ( - 16) show
           TBM ( with ) showen
               ( mit ) showde
           TBIM (Y) show
           TBM ( >= 0,882, ) show
           TBIM (Y) show TBK 0 -50 rmoveto (n) show 0 50 rmoveto
           TBM (=100) show
          } if %CIELAB

ispa 1 eq {%TUBJND1
           TBIM (L*) show TBK 10 -50 rmoveto (TUBJND1) show 0 50 rmoveto
           TBM ( = 40 / log(5) [ log \050 ) show
           TBIM (Y/Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto
           TBM (\051 ]) show
           TBM ( with ) showen
               ( mit ) showde
           TBIM (Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto
           TBM (=18) show
          } if %TUBJND1

ispa 2 eq {%TUBJND2
           TBIM (L*) show TBK 10 -50 rmoveto (TUBJND2) show 0 50 rmoveto
           TBM ( = 66,3 [) show 
           TBM (e) show TBIK 0 80 rmoveto (x) show 
                        TBK 0 -40 rmoveto (r) show 0 -40 rmoveto
           TBM ( - ) show
           TBM (e) show TBIK 0 80 rmoveto (-x) show
                        TBK 0 -40 rmoveto (r) show 0 -40 rmoveto
           TBM (] / [) show
           TBM (e) show TBIK 0 80 rmoveto (x) show
                        TBK 0 -40 rmoveto (r) show 0 -40 rmoveto
           TBM ( + ) show
           TBM (e) show TBIK 0 80 rmoveto (-x) show
                        TBK 0 -40 rmoveto (r) show 0 -40 rmoveto
           TBM (]=66,3 tanh\050) show
           TBIM (x) show TBK 0 -40 rmoveto (r) show 0 40 rmoveto
           TBM (\051,  ) show 
           
           TBIM (x) show TBK 0 -50 rmoveto (r) show 0 50 rmoveto
           TBM (=) show
           TBIM (Y/Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto
          } if %TUBJND2

%*****************************************
/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 {%iregu=2
                   L*xai i Ltlxi i get put
                  } if %iregu=2
      } for %i=0,8

%***************************************************
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

/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

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

/xdd  800 def
/xpo1 xpos def

/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

/iregu 0 def
proz_regu_index

xpo1 xdd 1 mul add yposr 600 sub 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 yposr 600 sub 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 yposr 600 sub 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

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

/yd1 -90 def

/yposr1 yposr 950 sub def

100 yposr1 moveto
TBIM (L*) show TBK
10 -40 rmoveto
ispa 0 eq {(CIELAB) show} if
ispa 1 eq {(TUBJND1) show} if
ispa 2 eq {(TUBJND2) show} if
0 40 rmoveto

TBM
xpo1 xdd 1 mul add yposr1 moveto
(intended output) showen
(angestrebte Ausgabe) showde

xpo1 xdd 5 mul add yposr1 moveto
(real output) showen
(reale Ausgabe) showde

xpo1 xdd 10.7 mul add yposr1 moveto
(linearized output) showen
(linearisierte Ausgabe) showde

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

[50 50] 0 setdash
xpo1 xdd 4.8 mul add yposr1 300 sub 150 add moveto
0 6600 neg rlineto stroke newpath
[ ] 0 setdash
xpo1 xdd 5 mul add yposr1 300 sub moveto TBM (L*ta) show

xpo1 xdd 5.9 mul add yposr1 300 sub moveto TBM
SM (D) show TBM (L*ta) show

xpo1 xdd 7 mul add yposr1 300 sub moveto TBM (L*tr) show
xpo1 xdd 8 mul add yposr1 300 sub moveto TBM (Yta) show
xpo1 xdd 9.2 mul add 300 sub
                   yposr1 300 sub moveto TBM ((L*tr)) show TBMe

xpo1 xdd 10.7 mul add yposr1 300 sub moveto TBM (L*la) show
xpo1 xdd 11.7 mul add yposr1 300 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 ypl add def
        L0rxi i get 
        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

/x00 700 def
/y00 L0axi i get yscale mul def

%1 0 0 setrgbcolor %for test cero point
%x00 y00 moveto 500 0 rlineto stroke
%x00 y00 moveto 0 500 rlineto stroke
0 setgray

0 1 08 {/i exch def %i=0,08
        /ypos L0axi i get yscale mul ypl add def
        i 1 ge {/ypox L0axi i 1 sub get L0axi i get L0axi i 1 sub get sub
                0.5 mul add yscale mul ypl add 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
        iref 3 eq and {1 0 0 setrgbcolor} if
        Ltaxi i get cvsshow1r
        0 setgray
      
        i 1 ge {%i>=1
        i 2 le iref 3 eq and {1 0 0 setrgbcolor} if
        xpo1 xdd 6 mul add ypox ypos0 add 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
        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 ypox ypos0 add
        TVGshift sub moveto
        tfb
        Ltlxi i get Ltlxi i 1 sub get sub cvsshow1r
        0 setgray
               } if %i>=1

       } for %i=0,08


0  0400 neg translate

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

2900 400 180 sub moveto
TBM ((i=1,2,...,8)) 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