%!PS-Adobe-3.0 EPSF-3.0 DGQ50-3N
%%BoundingBox: 70 83 420 335

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/AE81/AE81.HTM)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2022110112000)
  /ModDate (D:20221101112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I

/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Times-ISOL1 exch definefont pop

/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesI-ISOL1 exch definefont pop

/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesB-ISOL1 exch definefont pop

/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/TimesBI-ISOL1 exch definefont pop

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

/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

/TBM1N {-20 -60 rmoveto TBK (1N) show 0 60 rmoveto TBM} bind def
/TBM1U {-20 -60 rmoveto TBK (1U) show 0 60 rmoveto TBM} bind def
/TBM1W {-20 -60 rmoveto TBK (1W) show 0 60 rmoveto TBM} bind def
/TBM1Y {-20 -60 rmoveto TBK (1Y) show 0 60 rmoveto TBM} bind def
/TBM1i {-20 -60 rmoveto TBK (1i) show 0 60 rmoveto TBM} bind def
/TBM15 {-20 -60 rmoveto TBK (15) 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

/TBM1aN {-20 -60 rmoveto TBK (1aN) show 0 60 rmoveto TBM} bind def
/TBM1aU {-20 -60 rmoveto TBK (1aU) show 0 60 rmoveto TBM} bind def
/TBM1aW {-20 -60 rmoveto TBK (1aW) show 0 60 rmoveto TBM} bind def
/TBM1aY {-20 -60 rmoveto TBK (1aY) show 0 60 rmoveto TBM} bind def
/TBM1ai {-20 -60 rmoveto TBK (1ai) show 0 60 rmoveto TBM} bind def
/TBM15a {-20 -60 rmoveto TBK (15a) 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

/TM1aN {-20 -60 rmoveto TK (1aN) show 0 60 rmoveto TM} bind def
/TM1aU {-20 -60 rmoveto TK (1aU) show 0 60 rmoveto TM} bind def
/TM1aW {-20 -60 rmoveto TK (1aW) show 0 60 rmoveto TM} bind def
/TM1aY {-20 -60 rmoveto TK (1aY) 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 0 def /lanind2 0 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colorMD colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 3 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetaMD pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output

gsave
/xchart xchart1 def

/xchartl 0 def

gsave

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

 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

/L1a0i 9 array def
%/L1a1i 9 array def
%/L1a2i 9 array def
%/L1a3i 9 array def
/L1axi 9 array def

/L1r0i 9 array def
%/L1r1i 9 array def
%/L1r2i 9 array def
%/L1r3i 9 array def
/L1rxi 9 array def

/Y1a0i 9 array def
%/Y1a1i 9 array def
%/Y1a2i 9 array def
%/Y1a3i 9 array def
/Y1axi 9 array def

/Y1r0i 9 array def
%/Y1r1i 9 array def
%/Y1r2i 9 array def
%/Y1r3i 9 array def
/Y1rxi 9 array def


/Lta0i 9 array def
%/Lta1i 9 array def
%/Lta2i 9 array def
%/Lta3i 9 array def
/Ltaxi 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

/L1arnx  22.40 def %Y=  3,6
/L1arwx 125.10 def %Y=180,0
/L* L1arnx def DECODL*_Y /Y1arnx Y def
/L* L1arwx def DECODL*_Y /Y1arwx Y def
             } if %xchartl=0


xchartl 1 eq {%xchartl=1
/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

/L1arnx  22.40 def %Y=  3,6
/L1arwx 161.78 def %Y=360,0
/L* L1arnx def DECODL*_Y /Y1arnx Y def
/L* L1arwx def DECODL*_Y /Y1arwx Y def
             } if %xchartl=1


xchartl 2 eq {%xchartl=2
/L0arnx  22.40 def %Y= 3,6
/L0arwx  96.00 def %Y=90,0
/L* L0arnx def DECODL*_Y /Y0arnx Y def
/L* L0arwx def DECODL*_Y /Y0arwx Y def

/L1arnx  22.40 def %Y=  3,6
/L1arwx 125.11 def %Y=180,0
/L* L1arnx def DECODL*_Y /Y1arnx Y def
/L* L1arwx def DECODL*_Y /Y1arwx Y def
             } if %xchartl=2


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

/L1arnx  22.40 def %Y=  3,6
/L1arwx 161.78 def %Y=360,0
/L* L1arnx def DECODL*_Y /Y1arnx Y def
/L* L1arwx def DECODL*_Y /Y1arwx Y def
             } if %xchartl=3

iref 0 eq {/Yxref  0.0 def} if
iref 1 eq {/Yxref  0.0 def} if
iref 2 eq {/Yxref  0.0 def} if
iref 3 eq {/Yxref  0.0 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

/Da*1x L1arwx L1arnx sub 8 div def
0 1 08 {/i exch def
        L1axi i L1arnx Da*1x i mul add put
        L1rxi i L1axi i get L1arnx sub
                L1arwx      L1arnx sub div put
        /L* L1axi i get def DECODL*_Y
        Y1axi i Y put
        Y1rxi i Y1axi i get Y1arnx sub
                Y1arwx      Y1arnx sub div put
       } for

%**************************************************
%Titeltext
 50 8220 50 add 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
SM (D) show TBIM (L*) show TBM (: ) show 
L0arnx cvsshow1r (_) show L0arwx cvsshow1r 
TBM
( und ) showde
( and ) showen
( y ) showes
( et ) showfr
( e ) showit
( og ) showjp
SM (D) show TBIM (L*) show TBM (: ) show
L1arnx cvsshow1r (_) show L1arwx cvsshow1r

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
           %for Yxref=0,4

xchartl 0 eq {%xchartl=0
/Ytrei [(0,000) (0,032) (0,083) (0,156) (0,255)
        (0,386) (0,551) (0,754) (1,000)] def
/Ytdii [(-0,000) (-0,000) ( 0,000) (-0,000) ( 0,001)
        (-0,000) ( 0,00-) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.04 def
               } if %xchartl=0

xchartl 1 eq {%xchartl=1
/Ytrei [(0,001) (0,032) (0,081) (0,155) (0,255)
        (0,386) (0,553) (0,755) (1,000)] def
/Ytdii [(-0,000) ( 0,000) ( 0,002) ( 0,001) ( 0,001)
        (-0,000) (-0,002) (-0,002) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.12 def
               } if %xchartl=1

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,038) (0,093) (0,171) (0,273)
        (0,404) (0,567) (0,765) (1,000)] def
/Ytdii [(-0,000) ( 0,000) ( 0,001) ( 0,000) ( 0,000)
        (-0,000) (-0,001) (-0,001) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.09 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,037) (0,091) (0,169) (0,272)
        (0,404) (0,569) (0,766) (1,000)] def
/Ytdii [(-0,000) ( 0,001) ( 0,003) ( 0,002) ( 0,000)
        (-0,000) (-0,003) (-0,002) ( 0,000)] def
/yterr (0,0002) def
/Gammax 1.17 def
               } if %xchartl=3

            } if %for iref=0

%**********************************************************
iref 1 eq {%iref=1 Dummy
           %for Yxref=90
xchartl 0 eq {%xchartl=0
/Ytrei [(0,010) (0,148) (0,255) (0,370) (0,491)
        (0,617) (0,746) (0,873) (1,000)] def
/Ytdii [(-0,010) (-0,023) (-0,005) ( 0,005) ( 0,010)
        ( 0,008) ( 0,004) ( 0,002) ( 0,000)] def
/yterr (0,0009) def
/Gammax 2.00 def
               } if %xchartl=0

xchartl 1 eq {%xchartl=1
/Ytrei [(0,005) (0,148) (0,259) (0,372) (0,490)
        (0,614) (0,742) (0,871) (1,000)] def
/Ytdii [(-0,005) (-0,023) (-0,009) ( 0,003) ( 0,010)
        ( 0,011) ( 0,008) ( 0,004) ( 0,000)] def
/yterr (0,0010) def
/Gammax 1.75 def
               } if %xchartl=1

xchartl 2 eq {%xchartl=2
/Ytrei [(0,001) (0,148) (0,262) (0,375) (0,492)
        (0,612) (0,737) (0,866) (1,000)] def
/Ytdii [(-0,001) (-0,022) (-0,012) (-0,000) ( 0,008)
        ( 0,013) ( 0,013) ( 0,009) ( 0,000)] def
/yterr (0,0012) def
/Gammax 1.37 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,133) (0,256) (0,376) (0,497)
        (0,620) (0,744) (0,870) (1,000)] def
/Ytdii [(-0,000) (-0,008) (-0,006) (-0,001) ( 0,003)
        ( 0,005) ( 0,006) ( 0,005) ( 0,000)] def
/yterr (0,0002) def
/Gammax 1.10 def
               } if %xchartl=3
            } if %for iref=1

%***************************************************
iref 2 eq {%iref=2 Dummy
           %for Yxref=0,4
xchartl 0 eq {%xchartl=0
/Ytrei [(0,000) (0,123) (0,248) (0,375) (0,501)
        (0,626) (0,752) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,002) ( 0,002) ( 0,000) (-0,001)
        (-0,001) (-0,002) (-0,001) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.05 def
               } if %xchartl=0

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

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,126) (0,250) (0,375) (0,500)
        (0,625) (0,750) (0,875) (1,000)] def
/Ytdii [(-0,000) (-0,001) ( 0,000) ( 0,000) (-0,000)
        (-0,000) (-0,000) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.01 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,125) (0,250) (0,375) (0,500)
        (0,625) (0,750) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,000) (-0,000) (-0,000) (-0,000)
        ( 0,000) ( 0,000) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.00 def
               } if %xchartl=3
            } if %for iref=2

%************************************************************
iref 3 eq {%iref=3 Dummy
           %for Yxref=0,4
xchartl 0 eq {%xchartl=0
/Ytrei [(0,000) (0,123) (0,248) (0,375) (0,501)
        (0,626) (0,752) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,002) ( 0,002) ( 0,000) (-0,001)
        (-0,001) (-0,002) (-0,001) ( 0,000)] def
/yterr (0,0001) def
/Gammax 1.05 def
               } if %xchartl=0

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

xchartl 2 eq {%xchartl=2
/Ytrei [(0,000) (0,126) (0,250) (0,375) (0,500)
        (0,625) (0,750) (0,875) (1,000)] def
/Ytdii [(-0,000) (-0,001) ( 0,000) ( 0,000) (-0,000)
        (-0,000) (-0,000) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.01 def
               } if %xchartl=2

xchartl 3 eq {%xchartl=3
/Ytrei [(0,000) (0,125) (0,250) (0,375) (0,500)
        (0,625) (0,750) (0,875) (1,000)] def
/Ytdii [(-0,000) ( 0,000) (-0,000) (-0,000) (-0,000)
        ( 0,000) ( 0,000) (-0,000) ( 0,000)] def
/yterr (0,0000) def
/Gammax 1.00 def
               } if %xchartl=3
            } if %for iref=3

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

/xpos0 0700 def
/ypos0 0300 def
/xpos1 0700 def
xchartl 4 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 4 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

0 -100 translate

/x300 300 def
xpos0 x300 moveto xpos1 ypos1 350 add lineto stroke
xpos1 ypos1 350 add moveto -100 -250 rlineto stroke
xpos1 ypos1 350 add moveto  100 -250 rlineto stroke
xpos1 500 sub ypos1 350 add 150 sub 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
(  50) show
0 setgray

%****************************************************************
/xpos 0900 def
xchartl 3 le {xpos 0000 add 700 sub ypos1 0580 add 0250 add moveto} if
%xchartl 1 eq {xpos 0000 add 000 sub ypos1 0580 add 0050 add moveto} if
%xchartl 2 eq {xpos 0000 add 700 sub ypos1 0580 add 1550 add moveto} if
%xchartl 3 eq {xpos 0000 add 700 sub ypos1 0580 add 1650 add moveto} if

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

%****************************************
xchartl 3 le {xpos 0000 add 700 sub ypos1 0250 add 0250 add moveto} if
%xchartl 1 eq {xpos 0000 add 000 sub ypos1 0250 add 0050 add moveto} if
%xchartl 2 eq {xpos 0000 add 700 sub ypos1 0250 add 1550 add moveto} if
%xchartl 3 eq {xpos 0000 add 700 sub ypos1 0250 add 1650 add moveto} if

TIM (L*) show TM1aN
TM (=) show L1axi 0 get cvsshow1r (, ) show
TIM (L*) show TM1aU
TM (=) show L1axi 4 get cvsshow1r (, ) show
TIM (L*) show TM1aW
TM (=) show L1axi 8 get cvsshow1r (, ) show
TIM (Y) show TM1aN
TM (=) show Y1axi 0 get cvsshow1r (, ) show
TIM (Y) show TM1aU
TM (=) show Y1axi 4 get cvsshow1r (, ) show
TIM (Y) show TM1aW
TM (=) show Y1axi 8 get cvsshow1r (, ) show
TIM (C) show TM1aY
TM (=) show
TIM (Y) show TM1aW TM (:) show
TIM (Y) show TM1aN TM (=) show
Y1axi 8 get
Y1axi 0 get div cvsshow1r

/xdd  800 def
/xpo1 xpos def

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

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

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

xpo1 xdd 5 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*1a) show
xpo1 xdd 6 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (L*1r) show
xpo1 xdd 7 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y1a) show
xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y1r) 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*1a) 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*1r) show
%xpo1 xdd 8 mul add ypos1 yd1 sub TVGshift sub moveto TBM  (Y1a) show

xpo1 xdd 9.2 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM (Y1r) show TBMe
xpo1 xdd 11.0 mul add 300 sub
                   ypos1 yd1 sub TVGshift sub moveto TBM ((Y1r)) show TBMe
(-Y0r) show

TK
0 1 8 {/i exch def %i=0,8
        newpath
        xchartl 4 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 4 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
%0 0 1 setrgbcolor
%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

TK
0 1 08 {/i exch def %i=0,08
        xchartl 4 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
        L1axi i get cvsshow1r
        xpo1 xdd 6 mul add ypos ypos0 add TVGshift sub moveto
        L1rxi i get cvsshow3r
        xpo1 xdd 7 mul add ypos ypos0 add TVGshift sub moveto
        Y1axi i get cvsshow1r
        xpo1 xdd 8 mul add ypos ypos0 add TVGshift sub moveto
        Y1rxi 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 
%        xchartl 1 le {350 sub} if
%        xchartl 2 eq {150 sub} if
%        xchartl 3 eq {250 sub} if 
%        TVGshift sub moveto
%        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
        xpo1 xdd 11.8 mul add ypos ypos0 add TVGshift sub moveto
        Ytdii i get show
        i 0 eq {-800 -500 rmoveto SK (S) show TK (=0,0001) show} if

       } for %i=0,08

0 -100 neg translate

%************************************************
1200 1100 moveto
TM
xchartl 1 le {(semi\glossy: ISO 9241\255306) showen
              (teilgl\344nzend: ISO 9241\255306) showde} if
xchartl 2 ge {(matte surface colours) showen
              (matte K\366rperfarben) showde} if

1200 0800 moveto
TM (range: ) showen (Bereich: ) showde
xchartl 1 le {(2,5 <= ) show} if
xchartl 2 ge {(3,6 <= ) show} if
TIM (Y) show
TM ( <= 90) show

%***********************************************
4900 1100 moveto
TM
(extrapolated surface colours) showen
(extrapolierte K\366rperfarben) showde

4900 0800 moveto
TM (range: ) showen (Bereich: ) showde
xchartl 0 eq
xchartl 2 eq or {(3,6 <= ) show}
                {(3,6 <= ) show} ifelse
TIM (Y) show
TM
xchartl 0 eq
xchartl 2 eq or {( <= 180) show}
                {( <= 360) show} ifelse

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

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

4900 400 180 sub 100 add moveto
SM (D) show TBIM (L*) show TBMta TBM (=) show
L1axi 8 get L1axi 7 get sub cvsshow1r %round

6900 400 180 sub 100 add moveto
TBM ((i=1,2,...,9)) show

%/x0n 3000 def
%/y0n 0450 180 sub 100 add 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