%!PS-Adobe-3.0 EPSF-3.0 eec21-3n
%%BoundingBox: 70 82 410 320

%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: farbe.li.tu-berlin.de/eec2/eec2.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:2023080112000)
 /ModDate (D:2023080112000)
/DOCINFO pdfmark13
[ /View [ /Fit ]
/DOCVIEW pdfmark13
%END  PDFDE011

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

/languagelevel where {pop languagelevel} {1} ifelse
                     /PSL12 exch def
/dictende {counttomark 2 idiv dup dict begin {def}
           repeat pop currentdict end} bind def

/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
%font0309C.ps***********************************************
%only T*K, T*M, T*G, and jshowTG, jshowTM with T*M and T*K
/RS {200 /Times-Roman FS} bind def
/RK {250 /Times-Roman FS} bind def
/RM {300 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIS {200 /Times-Italic FS} bind def
/RIK {250 /Times-Italic FS} bind def
/RIM {300 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBS {200 /Times-Bold FS} bind def
/RBK {250 /Times-Bold FS} bind def
/RBM {300 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIS {200 /Times-BoldItalic FS} bind def
/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {300 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIS {200 /TimesI-ISOL1 FS} bind def
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBS {200 /TimesB-ISOL1 FS} bind def
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIS {200 /TimesBI-ISOL1 FS} bind def
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/SS {200 /Symbol FS} bind def
/SK {250 /Symbol FS} bind def
/SM {300 /Symbol FS} bind def
/SG {350 /Symbol FS} bind def

/eshowTK  {TS  -00  100 rmoveto
           show 00 -100 rmoveto TK} def

/ishowTK  {TS  -00 -50 rmoveto
           show 00  50 rmoveto TK} def
/jshowTK  {TBS -00 -50 rmoveto
           show 00  50 rmoveto TBK} def

/ishowTM  {TK  -00 -60 rmoveto
           show 00  60 rmoveto TM} def
/jshowTM  {TBK -00 -60 rmoveto
           show 00  60 rmoveto TBM} def

/ishowTG  {TM  -00 -70 rmoveto
           show 00  70 rmoveto TG} def
/jshowTG  {TBM -00 -70 rmoveto
           show 00  70 rmoveto TBG} def
%font0309C.ps***********************************************

/cvishow {cvi 6 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
/cvsshow1g {/nxx exch def                              %example nxx=99.1/99.0
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 10 mul cvi /nxi exch def              %nxi=991/990
             nxi 10 idiv /nxa exch def                 %nxa=99
             nxi nxa 10 mul sub /nxb exch def          %nxb=1/0
             nxa cvishow (,) show                      %nxa=99
             nxb cvishow                               %nxb=1/0
           } def
/cvsshow2g {/nxx exch def                              %example nxx=99.12/99,02/99,00
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 100 mul cvi /nxi exch def             %nxi=9912/9902/00
             nxi 100 idiv /nxa exch def                %nxa=99
             nxi nxa 100 mul sub /nxb exch def         %nxb=12/02/00
             nxa cvishow (,) show                      %nxb=99,
             nxb 10 ge {nxb cvishow} if                %nxb=12
             nxb  1 ge
             nxb  9 le and {(0) show nxb cvishow} if   %nxb=02
             nxb  0 eq {(00) show} if                  %nxb=00
           } def
/cvsshow3g {/nxx exch def                              %example nxx=99.123/99.012/99.001/99.000
             nxx 0 lt {(-) show /nxx nxx abs def} if
             nxx 1000 mul cvi /nxi exch def            %nxi=99123/99012/99001/99000
             nxi 1000 idiv /nxa exch def               %nxa=99
             nxi nxa 1000 mul sub /nxb exch def        %nxb=123/012/001/000
             nxa cvishow (,) show                      %nxb=99,
             nxb 100 ge {nxb cvishow} if               %nxb=123/012/001/000
             nxb  10 ge
             nxb  99 le and {(0) show nxb cvishow} if  %nxb=012
             nxb   1 ge
             nxb   9 le and {(00) show nxb cvishow} if %nxb=001
             nxb   0 eq {(000) show} if                %nxb=000
           } def


%%EndProlog
gsave

/lantex [(G) (E) (S) (N) (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 0 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 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 1 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} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%lanindL2 END

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (N) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (P.PS./PDF) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (P.DAT) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse

/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def

/TEn {350 /Times-ISOL1 FS tedef} bind def
/TEk {350 /TimesI-ISOL1 FS tedef} bind def
/TEb {350 /TimesB-ISOL1 FS tedef} bind def
/TEj {350 /TimesBI-ISOL1 FS tedef} bind def
/TEs {350 /Symbol FS tedef} bind def

/REn {350 /Times-Roman FS tedef} bind def
/REk {350 /Times-Italic FS tedef} bind def
/REb {350 /Times-Bold FS tedef} bind def
/REj {350 /Times-BoldItalic FS tedef} bind def

/xchart4 1 def

72 85 moveto
5 /Times-Roman FS
(eec21-3n) show
5 /Times-ISOL1 FS

72 90 translate

/ytit 550 def 
/yhoe 7850 def
/yhoet yhoe ytit sub def
/xwide 10800 def

0.0110 MM 0.0110 MM scale

15 setlinewidth
1.0 setgray
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath fill
0.0 setgray
 
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath stroke
 
/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
 
/TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def
/TEAde {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showde} for} bind def
/TEAea {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showea} for} bind def

/yd -400 def %y-Zeilenabstand
%Spalten
/S1 100 def
/S2 600 def

/S3 4700 def %xyXYZ
/S4 5800 def
/S5 6900 def
/S6 8100 def
/S7 9300 def

/S8  4700 def %10300 def %LAB*
/S9  6000 def %11600 def
/S10 7300 def %12900 def
/S11 8600 def %14200 def
/S12 9900 def %15500 def

/S13 4700 def %16500 def %lab
/S14 5900 def %17700 def
/S15 7200 def %19000 def
/S16 8500 def %20300 def
/S17 9800 def %21600 def

/yz 400 def
/y00  100 def
/yn0  500 def
/yu0  900 def
/y11 1300 def
/y1P 1700 def
/yu1 {y11 400 add yz 4 mul add} bind def
/yu2 {yu1  50 add yz 1 mul add} bind def
/yu3 {yu2 200 add yz 3 mul add} bind def
/yu4 {yu3  50 add yz 1 mul add} bind def
/yu5 {yu4 200 add yz 3 mul add} bind def
/yu6 {yu5 100 add yz 1 mul add} bind def

/yhoey yhoet 900 sub def

xchart4 0 eq {%xchart4=0
 S3 100 sub yhoet moveto 0 yhoet neg rlineto stroke
 S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S5 100 sub yhoet moveto 0 yhoet neg rlineto stroke
 S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S7 100 sub yhoey moveto 0 yhoey neg rlineto stroke
} if %xchart4=0

xchart4 1 eq {%xchart4=1
 S8 100 sub yhoet moveto 0 yhoet neg rlineto stroke
 S9 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S10 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S11 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S12 100 sub yhoey moveto 0 yhoey neg rlineto stroke
} if %xchart4=1

xchart4 2 eq {%xchart4=2
S13 100 sub yhoet moveto 0 yhoet neg rlineto stroke
S14 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S15 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S16 100 sub yhoey moveto 0 yhoey neg rlineto stroke
S17 100 sub yhoey moveto 0 yhoey neg rlineto stroke
} if %xchart4=2

%Titeltext

%calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System
%xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE

/K 1 def %normalization 0: 1,000, 1: 0,900, 2: 5,000
/LTV 0 def %0: sRGB, 1: WCG

K 0 eq {/Yfak 1.000 def} if
K 1 eq {/Yfak 0.900 def} if
K 2 eq {/Yfak 4.500 def} if

 S1 yu5 yz 0 mul sub moveto
RBG
(Fernseh-Grundfarbe oder) showde
TBG
(Basic television colour or) showen
(Basic o mezla color de la) showes
TBM
(Couleurs de t\351l\351vision de base) showfr
TBG
(Basic o miscela il colore) showit
(Grundnleggende tv farger) showjp

 S1 yu5 yz 1 mul sub moveto
TBG
(\255Mischfarbe f\374r D65) showde
TBG
(mixture colour for D65) showen
(television para D65) showes
TBM
(ou couleur de m\351lange pour les) showfr
TBG
(del televisore per D65) showit
(eller blanding farger for D65) showjp

 S1 yu5 yz 2 mul sub moveto
TBG
(CIE\255Daten f\374r Wei\337) showde
(CIE data for White ) showen
(Datos CIE para) showes
TBM
(donn\351es D65 CIE pour) showfr
TBG
(Dati CIE per) showit
(CIE data for) showjp

lanind 1 le {TBIG ( Y) show (W) jshowTG TBG}
            {TBIM ( Y) show (W) jshowTM TBM} ifelse
(=) show 100 Yfak mul cvishow

xchart4 0 eq {%xchart4=0
 S3 yu5 yd 0 mul add moveto
RBG
(Normfarb-) showde
TBG
(chromaticity) showen
(cromaticidad) showes
TBM
(chromaticit\351) showfr
TBG
(Cromaticit\340) showit
(Kromatisitet) showjp

 S3 yu5 yd 1 mul add moveto
(wertanteile) showde
( ) showen


 S3 yu5 800 sub moveto TBIG (    x) show (d) jshowTG 
 S4 yu5 800 sub moveto TBIG (    y) show (d) jshowTG
 
 S5 yu5 yd 0 mul add moveto
TBG
(Normfarbwerte) showde
(tristimulus values) showen
(Valores triest\355mulo) showes
TBM
lanind 2 eq {
0 160 rmoveto
(composantes) showfr
 S5 yu5 yd 0 mul add moveto
0 -130 rmoveto
(trichromatiques) showfr
            } if
TBG
(Valori tristimuli) showit
(Tristimulus verdier) showjp

 S5 yu5 400 sub moveto
TBIM
(\050Y) show
(d) jshowTG
TBM
(=) show 100 Yfak mul cvishow
( f\374r Wei\337 D65\051) showde
( for White D65\051) showen
(para el blanco D65\051) showes
(pour le blanc D65\051) showfr
(per il bianco D65\051) showit
(for hvit D65\051) showjp


 S5 yu5 800 sub moveto TBIG (   X) show (d) jshowTG
 S6 yu5 800 sub moveto TBIG (   Y) show (d) jshowTG
 S7 yu5 800 sub moveto TBIG (   Z) show (d) jshowTG
} if %xchart4=0

0.0 0.0 0.0 0.0 setcmykcolor
0 yu4 100 sub moveto xwide 0 rlineto 0 500 rlineto
                     xwide neg 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmykcolor 
0 yu4 100 sub moveto xwide 0 rlineto 0 500 rlineto
                     xwide neg 0 rlineto closepath stroke

S1 yu4 moveto
TIM
(Drei additive Mischfarben nach) showde
(three additive mixture colours of) showen
(tres colores por mezcla additiva:) showes
(m\351lange additive de trois couleurs:) showfr
(tre colori da miscela di additivo:) showit
(tre farger ved additiv blanding:) showjp

TIM
%( Normfernsehfarben nach) showde
%( television colours according to) showen
%( colores televisi\363n est\341ndar seg372n) showes
%( couleurs de t\351l\351vision conform\351ment \340 la Recommendation) showfr
%( standard di televisione colori secondo) showit
%( standard tv farger i henhold til) showjp

RIM
LTV 0 eq {%LTV=0
lanind 2 ne {( ITU-R BT.709.3) show}
            {( UIT-R BT.709.3) show} ifelse
TIM
(, sRGB, IEC 61966-2-1) show
} if %LTV

LTV 1 eq {%LTV=1
lanind 2 ne {( ITU-R BT.2020-2) show}
            {( UIT-R BT.2020-2) show} ifelse
TIM
(,WCGa, Wide Colour Gamut) show
} if %LTV

S1 yu3 yz 0 mul sub moveto
TBIM (C) show (d) jshowTM

S1 yu3 yz 1 mul sub moveto
TBIM (M) show (d) jshowTM

S1 yu3 yz 2 mul sub moveto
TBIM (Y) show (d) jshowTM

S2 35 add yu3 yz 0 mul sub moveto
TBM
(Cyan ) showde
(Cyan ) showen
(Cian ) showes
(Cyan ) showfr
(Ciano ) showit
(Cyan ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (0 1 1\051) show

S2 35 add yu3 yz 1 mul sub moveto
TBM
(Magenta ) showde
(Magenta ) showen
(Magenta ) showes
(magenta ) showfr
(Magenta ) showit
(Magenta ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 0 1\051) show

S2 35 add yu3 yz 2 mul sub moveto
TBM
(Gelb ) showde
(Yellow ) showen
(Amarillo ) showes
(jaune ) showfr
(Giallo ) showit
(Gul ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 1 0\051) show

LTV 0 eq {%LTV=0
%ITU-R BT.709-3
/xanR 0.640 def
/yanR 0.330 def
/xanG 0.300 def
/yanG 0.600 def
/xanB 0.150 def
/yanB 0.060 def
/xanD 0.3127 def
/yanD 0.3290 def

/lR 0.2126 def
/lG 0.7152 def
/lB 0.0722 def
} if %LTV=0

LTV 1 eq {%LTV=1
%ITU-R BT.2020-2
/xanR 0.708 def
/yanR 0.292 def
/xanG 0.170 def
/yanG 0.797 def
/xanB 0.131 def
/yanB 0.046 def
/xanD 0.3127 def
/yanD 0.3290 def

/lR 0.2627 def
/lG 0.6780 def
/lB 0.0593 def
} if %LTV=1

/XW 95.05 def
/YW 100.00 def
/ZW 108.90 def

/XWr YW XW div def
/YWr 1 def
/ZWr YW ZW div def

/proz_XYZ_Lab* {%BEG proz_XYZ_Lab*
/XQ Xnref  95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                      {XQ 0.33333333 exp} ifelse
       YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse
       ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                      {ZQ 0.33333333 exp} ifelse sub 200 mul def
} bind def %END proz_XYZ_Lab*

/SR 100. yanR div lR mul def
/SG 100. yanG div lG mul def
/SB 100. yanB div lB mul def
/SD 100. yanD div 1  mul def

/XR xanR SR mul Yfak mul def
/XG xanG SG mul Yfak mul def
/XB xanB SB mul Yfak mul def
/XD xanD SD mul Yfak mul def

/YR yanR SR mul Yfak mul def
/YG yanG SG mul Yfak mul def
/YB yanB SB mul Yfak mul def
/YD yanD SD mul Yfak mul def

/ZR 1 xanR sub yanR sub SR mul Yfak mul def
/ZG 1 xanG sub yanG sub SG mul Yfak mul def
/ZB 1 xanB sub yanB sub SB mul Yfak mul def
/ZD 1 xanD sub yanD sub SD mul Yfak mul def

/XC XG XB add def
/YC YG YB add def
/ZC ZG ZB add def
/SC XC YC add ZC add def

/XM XB XR add def
/YM YB YR add def
/ZM ZB ZR add def
/SM XM YM add ZM add def

/XY XR XG add def
/YY YR YG add def
/ZY ZR ZG add def
/SY XY YY add ZY add def

/xanC XC SC div def
/yanC YC SC div def

/xanM XM SM div def
/yanM YM SM div def

/xanY XY SY div def
/yanY YY SY div def

/Xnref XR def
/Ynref YR def
/Znref ZR def
proz_XYZ_Lab*
/L*R L*ref def
/a*R a*ref def
/b*R b*ref def
/C*R a*R dup mul b*R dup mul add sqrt def
/habR b*R a*R atan def

/Xnref XG def
/Ynref YG def
/Znref ZG def
proz_XYZ_Lab*
/L*G L*ref def
/a*G a*ref def
/b*G b*ref def
/C*G a*G dup mul b*G dup mul add sqrt def
/habG b*G a*G atan def

/Xnref XB def
/Ynref YB def
/Znref ZB def
proz_XYZ_Lab*
/L*B L*ref def
/a*B a*ref def
/b*B b*ref def
/C*B a*B dup mul b*B dup mul add sqrt def
/habB b*B a*B atan def

/Xnref XC def
/Ynref YC def
/Znref ZC def
proz_XYZ_Lab*
/L*C L*ref def
/a*C a*ref def
/b*C b*ref def
/C*C a*C dup mul b*C dup mul add sqrt def
/habC b*C a*C atan def

/Xnref XM def
/Ynref YM def
/Znref ZM def
proz_XYZ_Lab*
/L*M L*ref def
/a*M a*ref def
/b*M b*ref def
/C*M a*M dup mul b*M dup mul add sqrt def
/habM b*M a*M atan def

/Xnref XY def
/Ynref YY def
/Znref ZY def
proz_XYZ_Lab*
/L*Y L*ref def
/a*Y a*ref def
/b*Y b*ref def
/C*Y a*Y dup mul b*Y dup mul add sqrt def
/habY b*Y a*Y atan def

/Xnref XW Yfak mul def
/Ynref YW Yfak mul def
/Znref ZW Yfak mul def
proz_XYZ_Lab*
/L*W L*ref def
%/a*W a*ref def
%/b*W b*ref def
%/C*W a*W dup mul b*W dup mul add sqrt def
%/habW b*W a*W atan def

/AR XR XWr mul YR YWr mul sub def
/BR YR YWr mul ZR ZWr mul sub 0.4 mul def
/CR AR dup mul BR dup mul add sqrt def
/hABR BR AR atan def

/AG XG XWr mul YG YWr mul sub def
/BG YG YWr mul ZG ZWr mul sub 0.4 mul def
/CG AG dup mul BG dup mul add sqrt def
/hABG BG AG atan def

/AB XB XWr mul YB YWr mul sub def
/BB YB YWr mul ZB ZWr mul sub 0.4 mul def
/CB AB dup mul BB dup mul add sqrt def
/hABB BB AB atan def

/AC XC XWr mul YC YWr mul sub def
/BC YC YWr mul ZC ZWr mul sub 0.4 mul def
/CC AC dup mul BC dup mul add sqrt def
/hABC BC AC atan def

/AM XM XWr mul YM YWr mul sub def
/BM YM YWr mul ZM ZWr mul sub 0.4 mul def
/CM AM dup mul BM dup mul add sqrt def
/hABM BM AM atan def

/AY XY XWr mul YY YWr mul sub def
/BY YY YWr mul ZY ZWr mul sub 0.4 mul def
/CY AY dup mul BY dup mul add sqrt def
/hABY BY AY atan def

%LAB2
%(X/Y)an(R/G/B/C/M/Y/D) are known
/kXANC 0.110 def
/kBC   0.800 def
/A20   1.000 def
/B20  -0.400 def
/CSK   2.500 def

/zanD 1. xanD sub yanD sub def
/A20D xanD kXANC sub yanD div A20 mul def
/B20D zanD           yanD div B20 mul def

/zanR 1. xanR sub yanR sub def
/A20R  xanR kXANC sub yanR div A20 mul def
/B20R  zanR           yanR div B20 mul def
/A2R   A20R A20D sub CSK mul YR mul         def
/B2R   B20R B20D sub CSK mul YR mul kBC mul def
/CAB2R A2R dup mul B2R dup mul add 0.0001 add sqrt def
/hAB2R B2R A2R atan def

/zanG 1. xanG sub yanG sub def
/A20G  xanG kXANC sub yanG div A20 mul def
/B20G  zanG           yanG div B20 mul def
/A2G   A20G A20D sub CSK mul YG mul         def
/B2G   B20G B20D sub CSK mul YG mul kBC mul def
/CAB2G A2G dup mul B2G dup mul add 0.0001 add sqrt def
/hAB2G B2G A2G atan def

/zanB 1. xanB sub yanB sub def
/A20B  xanB kXANC sub yanB div A20 mul def
/B20B  zanB           yanB div B20 mul def
/A2B   A20B A20D sub CSK mul YB mul         def
/B2B   B20B B20D sub CSK mul YB mul kBC mul def
/CAB2B A2B dup mul B2B dup mul add 0.0001 add sqrt def
/hAB2B B2B A2B atan def

/zanC 1. xanC sub yanC sub def
/A20C  xanC kXANC sub yanC div A20 mul def
/B20C  zanC           yanC div B20 mul def
/A2C   A20C A20D sub CSK mul YC mul         def
/B2C   B20C B20D sub CSK mul YC mul kBC mul def
/CAB2C A2C dup mul B2C dup mul add 0.0001 add sqrt def
/hAB2C B2C A2C atan def

/zanM 1. xanM sub yanM sub def
/A20M  xanM kXANC sub yanM div A20 mul def
/B20M  zanM           yanM div B20 mul def
/A2M   A20M A20D sub CSK mul YM mul         def
/B2M   B20M B20D sub CSK mul YM mul kBC mul def
/CAB2M A2M dup mul B2M dup mul add 0.0001 add sqrt def
/hAB2M B2M A2M atan def

/zanY 1. xanY sub yanY sub def
/A20Y  xanY kXANC sub yanY div A20 mul def
/B20Y  zanY           yanY div B20 mul def
/A2Y   A20Y A20D sub CSK mul YY mul         def
/B2Y   B20Y B20D sub CSK mul YY mul kBC mul def
/CAB2Y A2Y dup mul B2Y dup mul add 0.0001 add sqrt def
/hAB2Y B2Y A2Y atan def

/str 20 string def

TM
xchart4 0 eq {%xchart4=0
S3 yu3 0 yd mul add moveto xanC cvsshow3g
S3 yu3 1 yd mul add moveto xanM cvsshow3g
S3 yu3 2 yd mul add moveto xanY cvsshow3g

S4 yu3 0 yd mul add moveto yanC cvsshow3g
S4 yu3 1 yd mul add moveto yanM cvsshow3g
S4 yu3 2 yd mul add moveto yanY cvsshow3g

S5 yu3 0 yd mul add moveto XC cvsshow2g 
S5 yu3 1 yd mul add moveto XM cvsshow2g
S5 yu3 2 yd mul add moveto XY cvsshow2g

S6 yu3 0 yd mul add moveto YC cvsshow2g
S6 yu3 1 yd mul add moveto YM cvsshow2g
S6 yu3 2 yd mul add moveto YY cvsshow2g

S7 yu3 0 yd mul add moveto ZC cvsshow2g
S7 yu3 1 yd mul add moveto ZM cvsshow2g
S7 yu3 2 yd mul add moveto ZY cvsshow2g
} if %xchart4=0

xchart4 1 eq {%xchart4=1
S8 yu3 0 yd mul add moveto L*C cvsshow2g 
S8 yu3 1 yd mul add moveto L*M cvsshow2g
S8 yu3 2 yd mul add moveto L*Y cvsshow2g

S9 yu3 0 yd mul add moveto a*C cvsshow2g
S9 yu3 1 yd mul add moveto a*M cvsshow2g
S9 yu3 2 yd mul add moveto a*Y cvsshow2g

S10 yu3 0 yd mul add moveto b*C cvsshow2g
S10 yu3 1 yd mul add moveto b*M cvsshow2g
S10 yu3 2 yd mul add moveto b*Y cvsshow2g

S11 yu3 0 yd mul add moveto C*C cvsshow2g
S11 yu3 1 yd mul add moveto C*M cvsshow2g
S11 yu3 2 yd mul add moveto C*Y cvsshow2g

S12 yu3 0 yd mul add moveto hABC cvishow
S12 yu3 1 yd mul add moveto hABM cvishow
S12 yu3 2 yd mul add moveto hABY cvishow
} if %xchart4=1

xchart4 2 eq {%xchart4=2
S13 yu3 0 yd mul add moveto YC cvsshow2g 
S13 yu3 1 yd mul add moveto YM cvsshow2g
S13 yu3 2 yd mul add moveto YY cvsshow2g

S14 yu3 0 yd mul add moveto A2C cvsshow2g
S14 yu3 1 yd mul add moveto A2M cvsshow2g
S14 yu3 2 yd mul add moveto A2Y cvsshow2g

S15 yu3 0 yd mul add moveto B2C cvsshow2g
S15 yu3 1 yd mul add moveto B2M cvsshow2g
S15 yu3 2 yd mul add moveto B2Y cvsshow2g

S16 yu3 0 yd mul add moveto CAB2C cvsshow2g
S16 yu3 1 yd mul add moveto CAB2M cvsshow2g
S16 yu3 2 yd mul add moveto CAB2Y cvsshow2g

S17 yu3 0 yd mul add moveto hAB2C cvishow
S17 yu3 1 yd mul add moveto hAB2M cvishow
S17 yu3 2 yd mul add moveto hAB2Y cvishow
} if %xchart4=2

xchart4 1 eq {%xchart4=1
 S8 yu5 moveto
RBG
(Norm-CIELAB-Daten) showde
TBG
(Standard CIELAB data) showen
(Datos CIELAB est\341ndar) showes
TBM
(Donn\351es normalis\351es CIELAB) showfr
TBG
(Standard dati CIELAB) showit
(Standard CIELAB data) showjp
TBIG ( L*a*b*C*) show (ab) jshowTG
TBIG
(h) show (ab) jshowTG

 S8 yu5 400 sub moveto
TBIM
(\050L*) show
(d) jshowTM
TBM
(=) show 100 Yfak mul cvishow
( f\374r Wei\337; ) showde
( for white; ) showen
(para el blanco; ) showes
(pour le blanc; ) showfr
(per il bianco; ) showit
(for hvit; ) showjp
TBIM
(L*) show
(d) jshowTM
TBM
K 0 eq {(=0,0 ) show} if
K 1 eq {(=18,0 ) show} if
K 2 eq {(=18,0 ) show} if
(f\374r Schwarz\051) showde
(for black\051) showen
(para el negro\051) showes
(pour le noir\051) showfr
(per il nero\051) showit
(for svart\051) showjp

 S8 yu5 800 sub moveto TBIG (   L*) show (d) jshowTG
 S9 yu5 800 sub moveto TBIG (   a*) show (d) jshowTG
 S10 yu5 800 sub moveto TBIG (   b*) show (d) jshowTG
 S11 yu5 800 sub moveto TBIG ( C*) show (ab,d) jshowTG 
 S12 yu5 800 sub moveto TBIG (h) show (ab,d) jshowTG
} if %xchart4=1 

xchart4 2 eq {%xchart4=2
 S13 yu5 moveto
TBG
(Normdaten ) showde
(Standard data ) showea
TBIG (YA) show (2) jshowTG 
TBIG  (B) show (2) jshowTG
TBIG  (C) show (AB2) jshowTG
TBIG  (h) show (AB2) jshowTG
TBIG (, B) show (c) jshowTG
TBG (=0,8) show

TBG
(Datos YABCh est\341ndar) showes
TBM
(Donn\351es normalis\351es YABCh) showfr
TBG
(Standard dati YABCh) showit
(Standard YABCh data) showjp

 S13 yu5 400 sub moveto
TBIM
(\050Y) show
(d) jshowTM
TBM
(=) show 100 Yfak mul cvishow
( f\374r Wei\337; ) showde
( for white; ) showen
(para el blanco; ) showes
(pour le blanc; ) showfr
(per il bianco; ) showit
(for hvit; ) showjp
TBIM
(Y) show
(d) jshowTM
TBM
K 0 eq {(=0,0 ) show}
       {(=2,5 ) show} ifelse
(f\374r Schwarz\051) showde
(for black\051) showen
(para el negro\051) showes
(pour le noir\051) showfr
(per il nero\051) showit
(for svart\051) showjp

 S13 yu5 800 sub moveto TBIG (   Y) show (d) jshowTG
 S14 yu5 800 sub moveto TBIG (   A) show (2d) jshowTG
 S15 yu5 800 sub moveto TBIG (   B) show (2d) jshowTG
 S16 100 sub yu5 800 sub moveto TBIG ( C) show (AB2,d) jshowTG 
 S17 050 sub yu5 800 sub moveto TBIG (h) show (AB2,d) jshowTG
} if %xchart4=2
 
0.0 0.0 0.0 0.0 setcmykcolor
0 yu2 100 sub moveto xwide 0 rlineto 0 500 rlineto
                     xwide neg 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
0 yu2 100 sub moveto xwide 0 rlineto 0 500 rlineto
                     xwide neg 0 rlineto closepath stroke
                   
S1 yu2 moveto
TIM
(Drei additive Basisfarben nach) showde
(three additive basic colours of) showen
(tres colores basicos de la mezcla additiva:) showes
(m\351lange additive de trois couleurs de base:) showfr
(tre colori de base per da miscela di additivo:) showit
(tre grunnleggede farger for additiv blanding:) showjp

%TIM
%( Normfernsehfarben nach) showde
%( television colours according to) showen
%( colores televisi\363n est\341ndar seg372n) showes
%( couleurs de t\351l\351vision conform\351ment \340 la Recommendation) showfr
%( standard di televisione colori secondo) showit
%( standard tv farger i henhold til) showjp

RIM
LTV 0 eq {%LTV=0
lanind 2 ne {( ITU-R BT.709.3) show}
            {( UIT-R BT.709.3) show} ifelse
TIM
(, sRGB, IEC 61966-2-1) show
} if %LTV

LTV 1 eq {%LTV=1
lanind 2 ne {( ITU-R BT.2020-2) show}
            {( UIT-R BT.2020-2) show} ifelse
TIM
(, WCGa, Wide Colour Gamut) show
} if %LTV

S1 yu1 yz 0 mul sub moveto
TBIM (R) show (d) jshowTM

S1 yu1 yz 1 mul sub moveto
TBIM (G) show (d) jshowTM

S1 yu1 yz 2 mul sub moveto
TBIM (B) show (d) jshowTM

S2 35 add yu1 yz 0 mul sub moveto
TBM
(Rot ) showde
(Red ) showen
(Rojo ) showes
(rouge ) showfr
(Rosso ) showit
(R\370d ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 0 0\051) show

S2 35 add yu1 yz 1 mul sub moveto
TBM
(Gr\374n ) showde
(Green ) showen
(Verde ) showes
(vert ) showfr
(Verde ) showit
(Gr\370nn ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (0 1 0\051) show

S2 35 add yu1 yz 2 mul sub moveto
TBM
(Blau ) showde
(Blue ) showen
(Azul ) showes
(bleu ) showfr
(Blu ) showit
(Bl\345 ) showjp
TBM 100 Yfak mul cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (0 0 1\051) show

TM
xchart4 0 eq {%xchart4=0
S3 yu1 0 yd mul add moveto xanR cvsshow3g
S3 yu1 1 yd mul add moveto xanG cvsshow3g
S3 yu1 2 yd mul add moveto xanB cvsshow3g

S4 yu1 0 yd mul add moveto yanR cvsshow3g
S4 yu1 1 yd mul add moveto yanG cvsshow3g
S4 yu1 2 yd mul add moveto yanB cvsshow3g

S5 yu1 0 yd mul add moveto XR cvsshow2g 
S5 yu1 1 yd mul add moveto XG cvsshow2g
S5 yu1 2 yd mul add moveto XB cvsshow2g

S6 yu1 0 yd mul add moveto YR cvsshow2g
S6 yu1 1 yd mul add moveto YG cvsshow2g
S6 yu1 2 yd mul add moveto YB cvsshow2g

S7 yu1 0 yd mul add moveto ZR cvsshow2g
S7 yu1 1 yd mul add moveto ZG cvsshow2g
S7 yu1 2 yd mul add moveto ZB cvsshow2g
} if %xchart4=0

xchart4 1 eq {%xchart4=1
S8 yu1 0 yd mul add moveto L*R cvsshow2g 
S8 yu1 1 yd mul add moveto L*G cvsshow2g
S8 yu1 2 yd mul add moveto L*B cvsshow2g

S9 yu1 0 yd mul add moveto a*R cvsshow2g
S9 yu1 1 yd mul add moveto a*G cvsshow2g
S9 yu1 2 yd mul add moveto a*B cvsshow2g

S10 yu1 0 yd mul add moveto b*R cvsshow2g
S10 yu1 1 yd mul add moveto b*G cvsshow2g
S10 yu1 2 yd mul add moveto b*B cvsshow2g

S11 yu1 0 yd mul add moveto C*R cvsshow2g
S11 yu1 1 yd mul add moveto C*G cvsshow2g
S11 yu1 2 yd mul add moveto C*B cvsshow2g

S12 yu1 0 yd mul add moveto hABR cvishow
S12 yu1 1 yd mul add moveto hABG cvishow
S12 yu1 2 yd mul add moveto hABB cvishow
} if %xchart4=1

xchart4 2 eq {%xchart4=2
S13 yu1 0 yd mul add moveto YR cvsshow2g
S13 yu1 1 yd mul add moveto YG cvsshow2g
S13 yu1 2 yd mul add moveto YB cvsshow2g

S14 yu1 0 yd mul add moveto A2R cvsshow2g
S14 yu1 1 yd mul add moveto A2G cvsshow2g
S14 yu1 2 yd mul add moveto A2B cvsshow2g

S15 yu1 0 yd mul add moveto B2R cvsshow2g
S15 yu1 1 yd mul add moveto B2G cvsshow2g
S15 yu1 2 yd mul add moveto B2B cvsshow2g

S16 yu1 0 yd mul add moveto CAB2R cvsshow2g
S16 yu1 1 yd mul add moveto CAB2G cvsshow2g
S16 yu1 2 yd mul add moveto CAB2B cvsshow2g

S17 yu1 0 yd mul add moveto hAB2R cvishow
S17 yu1 1 yd mul add moveto hAB2G cvishow
S17 yu1 2 yd mul add moveto hAB2B cvishow
} if %xchart4=2
  
0.0 0.0 0.0 0.0 setcmykcolor
0 y1P 100 sub moveto xwide 0 rlineto 0 700 rlineto
                     xwide neg 0 rlineto closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
0 y1P 100 sub moveto xwide 0 rlineto 0 700 rlineto
                     xwide neg 0 rlineto closepath stroke
                   
S1 y1P 00 add moveto
TIM
(Unbunte Farben mit unterschiedlicher Normierung: ) showde
(achromatic colours with different normalization: ) showen
(colores acrom\341ticos: ) showes
(couleurs achromatiques: ) showfr
(colori acromatici: ) showit
(akromatisk farger: ) showjp


/iout 0 def
iout 1 eq {%iout=1

S3 y1P 300 add moveto
TIM
(a) show (20) ishowTK
TM
( = 1,0; ) show

TIM
(b) show (20) ishowTK
TM
( = -0,4; ) show

TIM
(x) show (c) ishowTK
TM
( = 0,110;  ) show

TIM
(B) show (c) ishowTK
TM
( = 0,8;  ) show


TIM
(A) show (2d) ishowTK
TM
(=2,5[) show
TIM
(a) show (2d) ishowTK
TM
(-) show
TIM
(a) show (2n) ishowTK
TM
(]) show
TIM
(Y) show (d) ishowTK
TM
(;    ) show

TIM
(B) show (2d) ishowTK
TM
(=2,5) show TIM (B) show (c) ishowTK 
TM
([) show
TIM
(b) show (2d) ishowTK
TM
(-) show
TIM
(b) show (2n) ishowTK
TM
(]) show
TIM
(Y) show (d) ishowTK
TM
(;) show


S3 y1P 00 add moveto
TIM
(a) show (n) ishowTK
TM
(=) show
TIM
(x) show (W) ishowTK
TM
(/) show
TIM
(y) show (W) ishowTK
TM
(;    ) show

TIM
(b) show (n) ishowTK
TM
(=-0,4[) show
TIM
(z) show (W) ishowTK
TM
(/) show
TIM
(y) show (W) ishowTK
TM
(];     ) show

TIM
(a) show (d) ishowTK
TM
(=) show
TIM
(x) show (d) ishowTK
TM
(/) show
TIM
(y) show (d) ishowTK
TM
(;    ) show

TIM
(b) show (d) ishowTK
TM
(=-0,4[) show
TIM
(z) show (d) ishowTK
TM
(/) show
TIM
(y) show (d) ishowTK
TM
(];  ) show

TIM
(z) show (d) ishowTK
TM
( = 1 - ) show
TIM
(x) show (d) ishowTK
TM
( - ) show
TIM
(y) show (d) ishowTK
} if %iout=1

xchart4 2 eq {%xchart4=2

S13 100 sub y1P 300 add moveto
TIM
(C) show (AB2,d) ishowTK
TM
( = [) show
TIM
(A) show (2d) ishowTK
(2) eshowTK
TM
( + ) show
TIM
(B) show (2d) ishowTK
(2) eshowTK
TM
(]) show
(1/2) eshowTK
TM
(;   ) show

TIM
(h) show (AB2,d) ishowTK
TM
( = atan[) show
TIM
(B) show (2d) ishowTK
TM
( / ) show
TIM
(A) show (2d) ishowTK
TM
(]) show


S15 y1P 00 add moveto
TM
(vergleiche ) showde
(compare ) showen
(CIE 230:2019) show

} if %xchart4=2

S1 y11 moveto 
TBIM (W) show (0) jshowTM TBM ( ) show
S2 35 add y11 moveto
TBM
(Wei\337 ) showde
(White ) showen
((blanco monitor, 100%)) showes
((moniteur blanc, 100%)) showfr
((monitor bianco, 100%)) showit
((hvit skjerm, 100%)) showjp
TBM 100 Yfak mul cvishow TM ( \050) show
TIM (rgb=rgb*=) show TM (1 1 1\051) show

S1 yu0 moveto
TBIM (W) show (1) jshowTM TBM ( ) show
S2 35 add yu0 moveto
TBM
(Wei\337 ) showde
(White ) showen
((blanco monitor, 90,0%)) showes
((moniteur blanc, 90,0%)) showfr
((monitor bianco, 90,0%)) showit
((hvit skjerm, 90,0%)) showjp
TBM (90 ) show TM (\050) show TIM (rgb=rgb*=) show TM (1 1 1\051) show

S1 yn0 moveto
TBIM (N) show (1) jshowTM TBM ( ) show
S2 35 add yn0 moveto
TBM
(Schwarz ) showde
(Black ) showen
((monitor negro, 2,5%)) showes
((moniteur noir, 2,5%)) showfr
((monitor nero, 2,5%)) showit
((svart skjerm, 2,5%)) showjp
TBM (2,5 ) show TM (\050) show TIM (rgb=rgb*=) show TM (0 0 0\051) show

S1 y00 moveto
TBIM (N) show (0) jshowTM TBM ( ) show
S2 35 add y00 moveto
TBM
(Schwarz ) showde
(Black ) showen
((monitor negro, 0,00%)) showes
((moniteur noir, 0,00%)) showfr
((monitor nero, 0,00%)) showit
((svart skjerm, 0,00%)) showjp
TBM (0 ) show TM (\050) show TIM (rgb=rgb*=) show TM (0 0 0\051) show

TM
xchart4 0 eq {%xchart4=0
S3 y11 moveto xanD cvsshow3g
S4 y11 moveto yanD cvsshow3g
S5 y11 moveto XW Yfak mul cvsshow2g
S6 y11 moveto YW Yfak mul cvsshow2g
S7 y11 moveto ZW Yfak mul cvsshow2g

S3 yu0 moveto xanD cvsshow3g
S4 yu0 moveto yanD cvsshow3g
S5 yu0 moveto XW 0.9 mul cvsshow2g
S6 yu0 moveto YW 0.9 mul cvsshow2g
S7 yu0 moveto ZW 0.9 mul cvsshow2g

S3 yn0 moveto xanD cvsshow3g
S4 yn0 moveto yanD cvsshow3g
S5 yn0 moveto XW 0.025 mul cvsshow2g
S6 yn0 moveto YW 0.025 mul cvsshow2g
S7 yn0 moveto ZW 0.025 mul cvsshow2g

S3 y00 moveto xanD cvsshow3g
S4 y00 moveto yanD cvsshow3g
S5 y00 moveto XW 0.0 mul cvsshow2g
S6 y00 moveto YW 0.0 mul cvsshow2g
S7 y00 moveto ZW 0.0 mul cvsshow2g  
} if %xchart4=0

xchart4 1 eq {%xchart4=1
%W0
S8  y11 moveto L*W cvsshow2g %(100,00) show
S9  y11 moveto (    0,00) show
S10 y11 moveto (    0,00) show
S11 y11 moveto (    0,00) show
S12 y11 moveto (    0) show

%W1
S8  yu0 moveto (  95,40) show
S9  yu0 moveto (    0,00) show
S10 yu0 moveto (    0,00) show
S11 yu0 moveto (    0,00) show
S12 yu0 moveto (    0) show

%N1
S8  yn0 moveto (  18,00) show
S9  yn0 moveto (    0,00) show
S10 yn0 moveto (    0,00) show
S11 yn0 moveto (    0,00) show
S12 yn0 moveto (    0) show

%N0
S8  y00 moveto (    0,00) show
S9  y00 moveto (    0,00) show
S10 y00 moveto (    0,00) show
S11 y00 moveto (    0,00) show
S12 y00 moveto (    0) show

} if %xchart4=1

xchart4 2 eq {%xchart4=2
S13 y11 moveto (100,00) show
S14 y11 moveto (    0,00) show
S15 y11 moveto (    0,00) show
S16 y11 moveto (    0,00) show
S17 y11 moveto (    0) show

S13 yu0 moveto (  90,00) show
S14 yu0 moveto (    0,00) show
S15 yu0 moveto (    0,00) show
S16 yu0 moveto (    0,00) show
S17 yu0 moveto (    0) show

S13 yn0 moveto (    3,60) show
S14 yn0 moveto (    0,00) show
S15 yn0 moveto (    0,00) show
S16 yn0 moveto (    0,00) show
S17 yn0 moveto (    0) show

S13 y00 moveto (    0,00) show
S14 y00 moveto (    0,00) show
S15 y00 moveto (    0,00) show
S16 y00 moveto (    0,00) show
S17 y00 moveto (    0) show
} if %xchart4=2

showpage
grestore

%%Trailer