%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fem8/fem8l00XX.PS 20240301 %%BoundingBox: 07 04 414 292 /pdfmark where {pop} {userdict /pdfmark /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/fem8/fem8.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:2024030112000) /ModDate (D:20240301112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10e00na.ps6 %line 20****************************************************** %BEG fem8/OUTLIN10.PS Emty 20210418 %END fem8/OUTLIN10.PS Emty 20210418 %BEG fem8/OUTLIN1X.PS 20210418 %EMPTY %END fem8/OUTLIN1X.PS 20210418 %BEG fem8/OUTLIN1Y2.PS Emty 20210418 %END fem8/OUTLIN1Y2.PS Emty 20210418 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /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 % !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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /tfb {0 0.5 1 setrgbcolor} bind def /A4quer {598 0 translate 90 rotate} def /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 %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(g) (e) (s) (f) (i) (j) (m)] def /SC$ [(n) (f) (s) (d) (t) (e) (c)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.txt /.ps) (b.bmp /.ps) (g.gif /.ps) (h.htm /.ps) (i.htm /.ps) (j.jpe /.ps) (p.pdf /.ps) (t.tif /.ps)] def /EY$ [(1.dat) (b.dat) (g.dat) (h.dat) (i.dat) (j.dat) (p.dat) (t.dat)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /lanindmf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* %/setgray {sfgray} bind def %/setrgbcolor {sfrgbcolor} bind def %/setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 %11 %12 %13 %14 %15 %16 %17 %18 %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave /SHSl 2 def /SHAl 2 def BeginEPSF 28 SHSl sub MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 fem80-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 fem80-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 fem80-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/fem8/fem8.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 0 def %0:CIEXYX, 1:CIELAB, 2:TUBLAB /K 0 def %normalization 0: 0,9000, 1:1,000, 2: 1,800, 3: 3,600 /LTV 0 def %0: sRGB, 1: WCG /YWfak 0.9 def %reduction of YW=100 to YW=90 K 0 eq {/Yfak 1.000 def} if K 1 eq {/Yfak 1.000 def} if K 2 eq {/Yfak 2.000 def} if K 3 eq {/Yfak 4.000 def} if /XW 95.05 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWD0 XW def /YWD0 YW def /ZWD0 ZW def /XWP1 XWD0 2 mul def /YWP1 YWD0 2 mul def /ZWP1 ZWD0 2 mul def /XWP2 XWD0 4 mul def /YWP2 YWD0 4 mul def /ZWP2 ZWD0 4 mul def 72 85 moveto 5 /Times-Roman FS (fem80-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 4900 def %10300 def %LAB* /S9 6140 def %11600 def /S10 7400 def %12900 def /S11 8650 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 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: ) showde (CIE data: ) showen (Datos CIE: ) showes TBM (donn\351es CIE: ) showfr TBG (Dati CIE: ) showit (CIE data: ) showjp TBIG (Y) show K 1 le {(W) jshowTG (D0) jshowTM TBG (=) show YWD0 cvishow} if K 2 eq {(W) jshowTG (P1) jshowTM TBG (=) show YWP1 cvishow} if K 3 eq {(W) jshowTG (P2) jshowTM TBG (=) show YWP2 cvishow} if 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,D0) jshowTG TBM (=) show YWD0 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 (D0) jshowTM S1 yu3 yz 1 mul sub moveto TBIM (M) show (D0) jshowTM S1 yu3 yz 2 mul sub moveto TBIM (Y) show (D0) jshowTM S2 135 add yu3 yz 0 mul sub moveto TBM (Cyan ) showde (Cyan ) showen (Cian ) showes (Cyan ) showfr (Ciano ) showit (Cyan ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p p\051) show} if S2 135 add yu3 yz 1 mul sub moveto TBM (Magenta ) showde (Magenta ) showen (Magenta ) showes (magenta ) showfr (Magenta ) showit (Magenta ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 p\051) show} if S2 135 add yu3 yz 2 mul sub moveto TBM (Gelb ) showde (Yellow ) showen (Amarillo ) showes (jaune ) showfr (Giallo ) showit (Gul ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p p 0\051) show} if 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 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /XD0 XW 0.025 mul def /YD0 YW 0.025 mul def /ZD0 ZW 0.025 mul 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add atan def /Xnref XWD0 def /Ynref YWD0 def /Znref ZWD0 def proz_XYZ_Lab* /L*WD0 L*ref def /a*WD0 a*ref def /b*WD0 b*ref def /C*WD0 a*WD0 dup mul b*WD0 dup mul add sqrt def /habWD0 b*WD0 a*WD0 0.0001 add atan def /Xnref XWP1 def /Ynref YWP1 def /Znref ZWP1 def proz_XYZ_Lab* /L*WP1 L*ref def /a*WP1 a*ref def /b*WP1 b*ref def /C*WP1 a*WP1 dup mul b*WP1 dup mul add sqrt def /habWP1 b*WP1 a*WP1 0.0001 add atan def /Xnref XWP2 def /Ynref YWP2 def /Znref ZWP2 def proz_XYZ_Lab* /L*WP2 L*ref def /a*WP2 a*ref def /b*WP2 b*ref def /C*WP2 a*WP2 dup mul b*WP2 dup mul add sqrt def /habWP2 b*WP2 a*WP2 0.0001 add atan def /XND0 XWD0 0.025 mul def /YND0 YWD0 0.025 mul def /ZND0 ZWD0 0.025 mul def /Xnref XND0 def /Ynref YND0 def /Znref ZND0 def proz_XYZ_Lab* /L*ND0 L*ref def /a*ND0 a*ref def /b*ND0 b*ref def /C*ND0 a*ND0 dup mul b*ND0 dup mul add sqrt def /habND0 b*ND0 a*ND0 0.0001 add atan def /XNP1 XWD0 0.018 mul def /YNP1 YWD0 0.018 mul def /ZNP1 ZWD0 0.018 mul def /Xnref XNP1 def /Ynref YNP1 def /Znref ZNP1 def proz_XYZ_Lab* /L*NP1 L*ref def /a*NP1 a*ref def /b*NP1 b*ref def /C*NP1 a*NP1 dup mul b*NP1 dup mul add sqrt def /habNP1 b*NP1 a*NP1 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 TBG (CIELAB\255Daten ) showde (CIELAB data ) showen (Datos CIELAB ) showes TBM (Donn\351es CIELAB ) showfr TBG (dati CIELAB ) showit (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 YWD0 cvishow ( f\374r ) showde ( for ) showen (para ) showes (pour ) showfr (per ) showit (for ) showjp TBM (W) show (D0) jshowTM TBM (; ) show TBIM (L*) show (d) jshowTM TBM (=) show L*ND0 0.4 add cvishow ( f\374r ) showde ( for ) showen ( para ) showes ( pour ) showfr ( per ) showit ( for ) showjp TBM (N) show (d0) jshowTM 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 YWD0 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 (D0) jshowTM S1 yu1 yz 1 mul sub moveto TBIM (G) show (D0) jshowTM S1 yu1 yz 2 mul sub moveto TBIM (B) show (D0) jshowTM S2 135 add yu1 yz 0 mul sub moveto TBM (Rot ) showde (Red ) showen (Rojo ) showes (rouge ) showfr (Rosso ) showit (R\370d ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 0\051) show} if S2 135 add yu1 yz 1 mul sub moveto TBM (Gr\374n ) showde (Green ) showen (Verde ) showes (vert ) showfr (Verde ) showit (Gr\370nn ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p 0\051) show} if S2 135 add yu1 yz 2 mul sub moveto TBM (Blau ) showde (Blue ) showen (Azul ) showes (bleu ) showfr (Blu ) showit (Bl\345 ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 0 p\051) show} if 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 K 2 eq {%K=2 TBIM (W) show (P1) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP1 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP1 100 div cvsshow2g } if %K=2 S1 y11 moveto K 3 eq {%K=3 TBIM (W) show (P2) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP2 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP2 100 div cvsshow2g } if %K=3 S1 yu0 moveto TBIM (W) show (D0) jshowTM TBM ( ) show S2 80 add yu0 moveto TBM (Wei\337 ) showde (White ) showen TBM YWD0 cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 1 1\051) show S1 yn0 moveto TBIM (N) show (d0) jshowTM TBM ( ) show S2 80 add yn0 moveto TBM (Schwarz ) showde (Black ) showen TBM (2,5 ) show TM (\050) show TIM (rbg=rgb*=) show TM (0 0 0\051) show S1 y00 moveto TBIM (N) show (p1) jshowTM TBM ( ) show S2 80 add y00 moveto TBM (Schwarz ) showde (Black ) showen TBM (1,8 ) show TM (\050) show TIM (rgb*=) show TM (q q q\051) show TBK ( q=) show L*NP1 L*ND0 sub 100 div cvsshow2g TM xchart4 0 eq {%xchart4=0 K 2 eq {%K=2 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWP1 cvsshow2g S6 y11 moveto YWP1 cvsshow2g S7 y11 moveto ZWP1 cvsshow2g } if %K=2 K 3 eq {%K=3 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWP2 cvsshow2g S6 y11 moveto YWP2 cvsshow2g S7 y11 moveto ZWP2 cvsshow2g } if %K=3 S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XWD0 cvsshow2g S6 yu0 moveto YWD0 cvsshow2g S7 yu0 moveto ZWD0 cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XND0 cvsshow2g S6 yn0 moveto YND0 cvsshow2g S7 yn0 moveto ZND0 cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XNP1 cvsshow2g S6 y00 moveto YNP1 cvsshow2g S7 y00 moveto ZNP1 cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 K 2 eq {%K=2 S8 y11 0 yd mul add moveto L*WP1 cvsshow2g S9 y11 0 yd mul add moveto a*WP1 cvsshow2g S10 y11 0 yd mul add moveto b*WP1 cvsshow2g S11 y11 0 yd mul add moveto C*WP1 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP1 cvishow } if %K=2 K 3 eq {%K=3 S8 y11 0 yd mul add moveto L*WP2 cvsshow2g S9 y11 0 yd mul add moveto a*WP2 cvsshow2g S10 y11 0 yd mul add moveto b*WP2 cvsshow2g S11 y11 0 yd mul add moveto C*WP2 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP2 cvishow } if %K=3 S8 yu0 0 yd mul add moveto L*WD0 cvsshow2g S9 yu0 0 yd mul add moveto a*WD0 cvsshow2g S10 yu0 0 yd mul add moveto b*WD0 cvsshow2g S11 yu0 0 yd mul add moveto C*WD0 cvsshow2g S12 yu0 0 yd mul add moveto (0,00) show %habWD0 cvishow S8 yn0 0 yd mul add moveto L*ND0 cvsshow2g S9 yn0 0 yd mul add moveto a*ND0 cvsshow2g S10 yn0 0 yd mul add moveto b*ND0 cvsshow2g S11 yn0 0 yd mul add moveto C*ND0 cvsshow2g S12 yn0 0 yd mul add moveto (0,00) show %hABND0 cvishow S8 y00 0 yd mul add moveto L*NP1 cvsshow2g S9 y00 0 yd mul add moveto a*NP1 cvsshow2g S10 y00 0 yd mul add moveto b*NP1 cvsshow2g S11 y00 0 yd mul add moveto C*NP1 cvsshow2g S12 y00 0 yd mul add moveto (0,00) show %hABNP1 cvishow } 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 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 fem80-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 fem80-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 fem80-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 fem80-7n %%BoundingBox: 70 82 410 320 %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: farbe.li.tu-berlin.de/fem8/fem8.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:2024030112000) /ModDate (D:2024030112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %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 %0:CIEXYX, 1:CIELAB, 2:TUBLAB /K 1 def %normalization 0: 0,9000, 1:1,000, 2: 1,800, 3: 3,600 /LTV 0 def %0: sRGB, 1: WCG /YWfak 0.9 def %reduction of YW=100 to YW=90 K 0 eq {/Yfak 1.000 def} if K 1 eq {/Yfak 1.000 def} if K 2 eq {/Yfak 2.000 def} if K 3 eq {/Yfak 4.000 def} if /XW 95.05 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWD0 XW def /YWD0 YW def /ZWD0 ZW def /XWP1 XWD0 2 mul def /YWP1 YWD0 2 mul def /ZWP1 ZWD0 2 mul def /XWP2 XWD0 4 mul def /YWP2 YWD0 4 mul def /ZWP2 ZWD0 4 mul def 72 85 moveto 5 /Times-Roman FS (fem80-7n) 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 4900 def %10300 def %LAB* /S9 6140 def %11600 def /S10 7400 def %12900 def /S11 8650 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 S1 yu5 yz 0 mul sub moveto RBG (Fernseh\255Grundfarbe 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: ) showde (CIE data: ) showen (Datos CIE: ) showes TBM (donn\351es CIE: ) showfr TBG (Dati CIE: ) showit (CIE data: ) showjp TBIG (Y) show K 1 le {(W) jshowTG (D0) jshowTM TBG (=) show YWD0 cvishow} if K 2 eq {(W) jshowTG (P1) jshowTM TBG (=) show YWP1 cvishow} if K 3 eq {(W) jshowTG (P2) jshowTM TBG (=) show YWP2 cvishow} if 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 YWD0 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 (D0) jshowTM S1 yu3 yz 1 mul sub moveto TBIM (M) show (D0) jshowTM S1 yu3 yz 2 mul sub moveto TBIM (Y) show (D0) jshowTM S2 135 add yu3 yz 0 mul sub moveto TBM (Cyan ) showde (Cyan ) showen (Cian ) showes (Cyan ) showfr (Ciano ) showit (Cyan ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (0 1 1\051) show} {TIM (rgb*=) show TM (0 p p\051) show} ifelse S2 135 add yu3 yz 1 mul sub moveto TBM (Magenta ) showde (Magenta ) showen (Magenta ) showes (magenta ) showfr (Magenta ) showit (Magenta ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (1 0 1\051) show} {TIM (rgb*=) show TM (p 0 p\051) show} ifelse S2 135 add yu3 yz 2 mul sub moveto TBM (Gelb ) showde (Yellow ) showen (Amarillo ) showes (jaune ) showfr (Giallo ) showit (Gul ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (1 1 0\051) show} {TIM (rgb*=) show TM (p p 0\051) show} ifelse 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 /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /XD0 XW 0.025 mul def /YD0 YW 0.025 mul def /ZD0 ZW 0.025 mul 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add atan def /Xnref XWD0 def /Ynref YWD0 def /Znref ZWD0 def proz_XYZ_Lab* /L*WD0 L*ref def /a*WD0 a*ref def /b*WD0 b*ref def /C*WD0 a*WD0 dup mul b*WD0 dup mul add sqrt def /habWD0 b*WD0 a*WD0 0.0001 add atan def /Xnref XWP1 def /Ynref YWP1 def /Znref ZWP1 def proz_XYZ_Lab* /L*WP1 L*ref def /a*WP1 a*ref def /b*WP1 b*ref def /C*WP1 a*WP1 dup mul b*WP1 dup mul add sqrt def /habWP1 b*WP1 a*WP1 0.0001 add atan def /Xnref XWP2 def /Ynref YWP2 def /Znref ZWP2 def proz_XYZ_Lab* /L*WP2 L*ref def /a*WP2 a*ref def /b*WP2 b*ref def /C*WP2 a*WP2 dup mul b*WP2 dup mul add sqrt def /habWP2 b*WP2 a*WP2 0.0001 add atan def /XND0 XWD0 0.025 mul def /YND0 YWD0 0.025 mul def /ZND0 ZWD0 0.025 mul def /Xnref XND0 def /Ynref YND0 def /Znref ZND0 def proz_XYZ_Lab* /L*ND0 L*ref def /a*ND0 a*ref def /b*ND0 b*ref def /C*ND0 a*ND0 dup mul b*ND0 dup mul add sqrt def /habND0 b*ND0 a*ND0 0.0001 add atan def /XNP1 XWD0 0.018 mul def /YNP1 YWD0 0.018 mul def /ZNP1 ZWD0 0.018 mul def /Xnref XNP1 def /Ynref YNP1 def /Znref ZNP1 def proz_XYZ_Lab* /L*NP1 L*ref def /a*NP1 a*ref def /b*NP1 b*ref def /C*NP1 a*NP1 dup mul b*NP1 dup mul add sqrt def /habNP1 b*NP1 a*NP1 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 TBG (CIELAB\255Daten ) showde (CIELAB data ) showen (Datos CIELAB ) showes TBM (Donn\351es CIELAB ) showfr TBG (dati CIELAB ) showit (CIELAB data ) showjp TBIG (L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050Y) show (d,D0) jshowTG TBM (=90) show ( 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 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 YWD0 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 (=) show YWD0 cvishow %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 (D0) jshowTM S1 yu1 yz 1 mul sub moveto TBIM (G) show (D0) jshowTM S1 yu1 yz 2 mul sub moveto TBIM (B) show (D0) jshowTM S2 135 add yu1 yz 0 mul sub moveto TBM (Rot ) showde (Red ) showen (Rojo ) showes (rouge ) showfr (Rosso ) showit (R\370d ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (1 0 0\051) show} {TIM (rgb*=) show TM (p 0 0\051) show} ifelse S2 135 add yu1 yz 1 mul sub moveto TBM (Gr\374n ) showde (Green ) showen (Verde ) showes (vert ) showfr (Verde ) showit (Gr\370nn ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (0 1 0\051) show} {TIM (rgb*=) show TM (0 p 0\051) show} ifelse S2 135 add yu1 yz 2 mul sub moveto TBM (Blau ) showde (Blue ) showen (Azul ) showes (bleu ) showfr (Blu ) showit (Bl\345 ) showjp TBM YWD0 cvishow TM ( \050) show xchart4 1 le {TIM (rgb=rgb*=) show TM (0 0 1\051) show} {TIM (rgb*=) show TM (0 0 p\051) show} ifelse 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 xchart4 0 eq {%xchart4=0 CIEXYZ S1 y11 moveto K 2 eq {%K=2 TBIM (W) show (P1) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP1 cvishow TM ( \050) show TIM (rgb=) show TM (1 1 1\051) show TBK ( p=) show L*WP1 100 div cvsshow2g } if %K=2 S1 y11 moveto K 3 eq {%K=3 TBIM (W) show (P2) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP2 cvishow TM ( \050) show TIM (rgb=) show TM (1 1 1\051) show TBK ( p=) show L*WP2 100 div cvsshow2g } if %K=3 } if %xchart4=0 xchart4 1 eq {%xchart4=1 CIELAB S1 y11 moveto K 1 eq K 2 eq or {%K=1,2 TBIM (W) show (P1) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP1 cvishow TM ( \050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP1 100 div cvsshow2g } if %K=1,2 S1 y11 moveto K 3 eq {%K=3 TBIM (W) show (P2) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM L*WP2 cvishow TM ( \050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP2 100 div cvsshow2g } if %K=3 } if %xchart4=1 S1 yu0 moveto TBIM (W) show (D0) jshowTM TBM ( ) show S2 80 add yu0 moveto TBM (Wei\337 ) showde (White ) showen TBM YWD0 cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 1 1\051) show S1 yn0 moveto TBIM (N) show (d0) jshowTM TBM ( ) show S2 80 add yn0 moveto TBM (Schwarz ) showde (Black ) showen TBM (2,5 ) show TM (\050) show TIM (rbg=rgb*=) show TM (0 0 0\051) show S1 y00 moveto TBIM (N) show (p1) jshowTM TBM ( ) show S2 80 add y00 moveto TBM (Schwarz ) showde (Black ) showen TBM (1,8 ) show TM (\050) show TIM (rgb*=) show TM (q q q\051) show TBK ( q=) show L*NP1 L*ND0 sub 100 div cvsshow2g TM xchart4 0 eq {%xchart4=0 K 2 eq {%K=2 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWP1 cvsshow2g S6 y11 moveto YWP1 cvsshow2g S7 y11 moveto ZWP1 cvsshow2g } if %K=2 K 3 eq {%K=3 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWP2 cvsshow2g S6 y11 moveto YWP2 cvsshow2g S7 y11 moveto ZWP2 cvsshow2g } if %K=3 S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XWD0 cvsshow2g S6 yu0 moveto YWD0 cvsshow2g S7 yu0 moveto ZWD0 cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XND0 cvsshow2g S6 yn0 moveto YND0 cvsshow2g S7 yn0 moveto ZND0 cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XNP1 cvsshow2g S6 y00 moveto YNP1 cvsshow2g S7 y00 moveto ZNP1 cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 K 1 eq K 2 eq or {%K=1,2 S8 y11 0 yd mul add moveto L*WP1 cvsshow2g S9 y11 0 yd mul add moveto a*WP1 cvsshow2g S10 y11 0 yd mul add moveto b*WP1 cvsshow2g S11 y11 0 yd mul add moveto C*WP1 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP1 cvishow } if %K=1,2 K 3 eq {%K=3 S8 y11 0 yd mul add moveto L*WP2 cvsshow2g S9 y11 0 yd mul add moveto a*WP2 cvsshow2g S10 y11 0 yd mul add moveto b*WP2 cvsshow2g S11 y11 0 yd mul add moveto C*WP2 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP2 cvishow } if %K=3 S8 yu0 0 yd mul add moveto L*WD0 cvsshow2g S9 yu0 0 yd mul add moveto a*WD0 cvsshow2g S10 yu0 0 yd mul add moveto b*WD0 cvsshow2g S11 yu0 0 yd mul add moveto C*WD0 cvsshow2g S12 yu0 0 yd mul add moveto (0,00) show %habWD0 cvishow S8 yn0 0 yd mul add moveto L*ND0 cvsshow2g S9 yn0 0 yd mul add moveto a*ND0 cvsshow2g S10 yn0 0 yd mul add moveto b*ND0 cvsshow2g S11 yn0 0 yd mul add moveto C*ND0 cvsshow2g S12 yn0 0 yd mul add moveto (0,00) show %hABND0 cvishow S8 y00 0 yd mul add moveto L*NP1 cvsshow2g S9 y00 0 yd mul add moveto a*NP1 cvsshow2g S10 y00 0 yd mul add moveto b*NP1 cvsshow2g S11 y00 0 yd mul add moveto C*NP1 cvsshow2g S12 y00 0 yd mul add moveto (0,00) show %hABNP1 cvishow } 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 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 fem80-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem80-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave /SHSr 2 MM def /SHAr 2 MM def BeginEPSF 161 MM 06 MM sub SHSr sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 fem81-1N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 fem81-2N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 fem81-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/fem8/fem8.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:2024030112000) /ModDate (D:2024030112000) /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 %0:CIEXYX, 1:CIELAB, 2:TUBLAB /K 2 def %normalization 0: 0,9000, 1:1,000, 2: 1,800, 3: 3,600 /LTV 0 def %0: sRGB, 1: WCG /YWfak 0.9 def %reduction of YW=100 to YW=90 K 0 eq {/Yfak 1.000 def} if K 1 eq {/Yfak 1.000 def} if K 2 eq {/Yfak 2.000 def} if K 3 eq {/Yfak 4.000 def} if /XW 95.05 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWD0 XW def /YWD0 YW def /ZWD0 ZW def /XWP1 XWD0 2 mul def /YWP1 YWD0 2 mul def /ZWP1 ZWD0 2 mul def /XWP2 XWD0 4 mul def /YWP2 YWD0 4 mul def /ZWP2 ZWD0 4 mul def 72 85 moveto 5 /Times-Roman FS (fem81-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 4900 def %10300 def %LAB* /S9 6140 def %11600 def /S10 7400 def %12900 def /S11 8650 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 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: ) showde (CIE data: ) showen (Datos CIE: ) showes TBM (donn\351es CIE: ) showfr TBG (Dati CIE: ) showit (CIE data: ) showjp TBIG (Y) show K 1 le {(W) jshowTG (D0) jshowTM TBG (=) show YWD0 cvishow} if K 2 eq {(W) jshowTG (P1) jshowTM TBG (=) show YWP1 cvishow} if K 3 eq {(W) jshowTG (P2) jshowTM TBG (=) show YWP2 cvishow} if 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 YWD0 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 (P1) jshowTM S1 yu3 yz 1 mul sub moveto TBIM (M) show (P1) jshowTM S1 yu3 yz 2 mul sub moveto TBIM (Y) show (P1) jshowTM S2 135 add yu3 yz 0 mul sub moveto TBM (Cyan ) showde (Cyan ) showen (Cian ) showes (Cyan ) showfr (Ciano ) showit (Cyan ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p p\051) show} if S2 135 add yu3 yz 1 mul sub moveto TBM (Magenta ) showde (Magenta ) showen (Magenta ) showes (magenta ) showfr (Magenta ) showit (Magenta ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 p\051) show} if S2 135 add yu3 yz 2 mul sub moveto TBM (Gelb ) showde (Yellow ) showen (Amarillo ) showes (jaune ) showfr (Giallo ) showit (Gul ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p p 0\051) show} if 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 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /XD0 XW 0.025 mul def /YD0 YW 0.025 mul def /ZD0 ZW 0.025 mul 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add atan def /Xnref XWD0 def /Ynref YWD0 def /Znref ZWD0 def proz_XYZ_Lab* /L*WD0 L*ref def /a*WD0 a*ref def /b*WD0 b*ref def /C*WD0 a*WD0 dup mul b*WD0 dup mul add sqrt def /habWD0 b*WD0 a*WD0 0.0001 add atan def /Xnref XWP1 def /Ynref YWP1 def /Znref ZWP1 def proz_XYZ_Lab* /L*WP1 L*ref def /a*WP1 a*ref def /b*WP1 b*ref def /C*WP1 a*WP1 dup mul b*WP1 dup mul add sqrt def /habWP1 b*WP1 a*WP1 0.0001 add atan def /Xnref XWP2 def /Ynref YWP2 def /Znref ZWP2 def proz_XYZ_Lab* /L*WP2 L*ref def /a*WP2 a*ref def /b*WP2 b*ref def /C*WP2 a*WP2 dup mul b*WP2 dup mul add sqrt def /habWP2 b*WP2 a*WP2 0.0001 add atan def /XND0 XWD0 0.025 mul def /YND0 YWD0 0.025 mul def /ZND0 ZWD0 0.025 mul def /Xnref XND0 def /Ynref YND0 def /Znref ZND0 def proz_XYZ_Lab* /L*ND0 L*ref def /a*ND0 a*ref def /b*ND0 b*ref def /C*ND0 a*ND0 dup mul b*ND0 dup mul add sqrt def /habND0 b*ND0 a*ND0 0.0001 add atan def /XNP1 XWD0 0.018 mul def /YNP1 YWD0 0.018 mul def /ZNP1 ZWD0 0.018 mul def /Xnref XNP1 def /Ynref YNP1 def /Znref ZNP1 def proz_XYZ_Lab* /L*NP1 L*ref def /a*NP1 a*ref def /b*NP1 b*ref def /C*NP1 a*NP1 dup mul b*NP1 dup mul add sqrt def /habNP1 b*NP1 a*NP1 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 TBG (CIELAB\255Daten ) showde (CIELAB data ) showen (Datos CIELAB ) showes TBM (Donn\351es CIELAB ) showfr TBG (dati CIELAB ) showit (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,P1) jshowTM TBM (=180) show ( 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 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 YWD0 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 (P1) jshowTM S1 yu1 yz 1 mul sub moveto TBIM (G) show (P1) jshowTM S1 yu1 yz 2 mul sub moveto TBIM (B) show (P1) jshowTM S2 135 add yu1 yz 0 mul sub moveto TBM (Rot ) showde (Red ) showen (Rojo ) showes (rouge ) showfr (Rosso ) showit (R\370d ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 0\051) show} if S2 135 add yu1 yz 1 mul sub moveto TBM (Gr\374n ) showde (Green ) showen (Verde ) showes (vert ) showfr (Verde ) showit (Gr\370nn ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p 0\051) show} if S2 135 add yu1 yz 2 mul sub moveto TBM (Blau ) showde (Blue ) showen (Azul ) showes (bleu ) showfr (Blu ) showit (Bl\345 ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 0 p\051) show} if 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 K 2 eq {%K=2 TBIM (W) show (P1) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP1 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP1 100 div cvsshow2g } if %K=2 S1 y11 moveto K 3 eq {%K=3 TBIM (W) show (P2) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP2 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP2 100 div cvsshow2g } if %K=3 S1 yu0 moveto TBIM (W) show (D0) jshowTM TBM ( ) show S2 80 add yu0 moveto TBM (Wei\337 ) showde (White ) showen TBM YWD0 cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 1 1\051) show S1 yn0 moveto TBIM (N) show (d0) jshowTM TBM ( ) show S2 80 add yn0 moveto TBM (Schwarz ) showde (Black ) showen TBM (2,5 ) show TM (\050) show TIM (rbg=rgb*=) show TM (0 0 0\051) show S1 y00 moveto TBIM (N) show (p1) jshowTM TBM ( ) show S2 80 add y00 moveto TBM (Schwarz ) showde (Black ) showen TBM (1,8 ) show TM (\050) show TIM (rgb*=) show TM (q q q\051) show TBK ( q=) show L*NP1 L*ND0 sub 100 div cvsshow2g TM xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWD0 cvsshow2g S6 y11 moveto YWD0 cvsshow2g S7 y11 moveto ZWD0 cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XWP1 cvsshow2g S6 yu0 moveto YWP1 cvsshow2g S7 yu0 moveto ZWP1 cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XND0 cvsshow2g S6 yn0 moveto YND0 cvsshow2g S7 yn0 moveto ZND0 cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XNP1 cvsshow2g S6 y00 moveto YNP1 cvsshow2g S7 y00 moveto ZNP1 cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 K 2 eq {%K=2 S8 y11 0 yd mul add moveto L*WP1 cvsshow2g S9 y11 0 yd mul add moveto a*WP1 cvsshow2g S10 y11 0 yd mul add moveto b*WP1 cvsshow2g S11 y11 0 yd mul add moveto C*WP1 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP1 cvishow } if %K=2 K 3 eq {%K=3 S8 y11 0 yd mul add moveto L*WP2 cvsshow2g S9 y11 0 yd mul add moveto a*WP2 cvsshow2g S10 y11 0 yd mul add moveto b*WP2 cvsshow2g S11 y11 0 yd mul add moveto C*WP2 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP2 cvishow } if %K=3 S8 yu0 0 yd mul add moveto L*WD0 cvsshow2g S9 yu0 0 yd mul add moveto a*WD0 cvsshow2g S10 yu0 0 yd mul add moveto b*WD0 cvsshow2g S11 yu0 0 yd mul add moveto C*WD0 cvsshow2g S12 yu0 0 yd mul add moveto (0,00) show %habWD0 cvishow S8 yn0 0 yd mul add moveto L*ND0 cvsshow2g S9 yn0 0 yd mul add moveto a*ND0 cvsshow2g S10 yn0 0 yd mul add moveto b*ND0 cvsshow2g S11 yn0 0 yd mul add moveto C*ND0 cvsshow2g S12 yn0 0 yd mul add moveto (0,00) show %hABND0 cvishow S8 y00 0 yd mul add moveto L*NP1 cvsshow2g S9 y00 0 yd mul add moveto a*NP1 cvsshow2g S10 y00 0 yd mul add moveto b*NP1 cvsshow2g S11 y00 0 yd mul add moveto C*NP1 cvsshow2g S12 y00 0 yd mul add moveto (0,00) show %hABNP1 cvishow } 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 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 fem81-4N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-4N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 fem81-5N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-5N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 fem81-6N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-6N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 fem81-7n %%BoundingBox: 70 82 410 320 %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: farbe.li.tu-berlin.de/fem8/fem8.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:2024030112000) /ModDate (D:2024030112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %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 %0:CIEXYX, 1:CIELAB, 2:TUBLAB /K 3 def %normalization 0: 0,9000, 1:1,000, 2: 1,800, 3: 3,600 /LTV 0 def %0: sRGB, 1: WCG /YWfak 0.9 def %reduction of YW=100 to YW=90 K 0 eq {/Yfak 1.000 def} if K 1 eq {/Yfak 1.000 def} if K 2 eq {/Yfak 2.000 def} if K 3 eq {/Yfak 4.000 def} if /XW 95.05 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWD0 XW def /YWD0 YW def /ZWD0 ZW def /XWP1 XWD0 2 mul def /YWP1 YWD0 2 mul def /ZWP1 ZWD0 2 mul def /XWP2 XWD0 4 mul def /YWP2 YWD0 4 mul def /ZWP2 ZWD0 4 mul def 72 85 moveto 5 /Times-Roman FS (fem81-7n) 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 4900 def %10300 def %LAB* /S9 6140 def %11600 def /S10 7400 def %12900 def /S11 8650 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 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: ) showde (CIE data: ) showen (Datos CIE: ) showes TBM (donn\351es CIE: ) showfr TBG (Dati CIE: ) showit (CIE data: ) showjp TBIG (Y) show K 0 eq {(W) jshowTG (D0) jshowTM TBG (=) show YWD0 cvishow} if K 1 eq {(W) jshowTG (P1) jshowTM TBG (=) show YWP1 cvishow} if K 2 eq {(W) jshowTG (P1) jshowTM TBG (=) show YWP1 cvishow} if K 3 eq {(W) jshowTG (P2) jshowTM TBG (=) show YWP2 cvishow} if 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 YWD0 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 (P2) jshowTM S1 yu3 yz 1 mul sub moveto TBIM (M) show (P2) jshowTM S1 yu3 yz 2 mul sub moveto TBIM (Y) show (P2) jshowTM S2 35 add yu3 yz 0 mul sub moveto TBM (Cyan ) showde (Cyan ) showen (Cian ) showes (Cyan ) showfr (Ciano ) showit (Cyan ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p p\051) show} if S2 35 add yu3 yz 1 mul sub moveto TBM (Magenta ) showde (Magenta ) showen (Magenta ) showes (magenta ) showfr (Magenta ) showit (Magenta ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 p\051) show} if S2 35 add yu3 yz 2 mul sub moveto TBM (Gelb ) showde (Yellow ) showen (Amarillo ) showes (jaune ) showfr (Giallo ) showit (Gul ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p p 0\051) show} if 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 YWfak mul def /YW 100.00 YWfak mul def /ZW 108.90 YWfak mul def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /XD0 XW 0.025 mul def /YD0 YW 0.025 mul def /ZD0 ZW 0.025 mul 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add atan def /Xnref XWD0 def /Ynref YWD0 def /Znref ZWD0 def proz_XYZ_Lab* /L*WD0 L*ref def /a*WD0 a*ref def /b*WD0 b*ref def /C*WD0 a*WD0 dup mul b*WD0 dup mul add sqrt def /habWD0 b*WD0 a*WD0 0.0001 add atan def /Xnref XWP1 def /Ynref YWP1 def /Znref ZWP1 def proz_XYZ_Lab* /L*WP1 L*ref def /a*WP1 a*ref def /b*WP1 b*ref def /C*WP1 a*WP1 dup mul b*WP1 dup mul add sqrt def /habWP1 b*WP1 a*WP1 0.0001 add atan def /Xnref XWP2 def /Ynref YWP2 def /Znref ZWP2 def proz_XYZ_Lab* /L*WP2 L*ref def /a*WP2 a*ref def /b*WP2 b*ref def /C*WP2 a*WP2 dup mul b*WP2 dup mul add sqrt def /habWP2 b*WP2 a*WP2 0.0001 add atan def /XND0 XWD0 0.025 mul def /YND0 YWD0 0.025 mul def /ZND0 ZWD0 0.025 mul def /Xnref XND0 def /Ynref YND0 def /Znref ZND0 def proz_XYZ_Lab* /L*ND0 L*ref def /a*ND0 a*ref def /b*ND0 b*ref def /C*ND0 a*ND0 dup mul b*ND0 dup mul add sqrt def /habND0 b*ND0 a*ND0 0.0001 add atan def /XNP1 XWD0 0.018 mul def /YNP1 YWD0 0.018 mul def /ZNP1 ZWD0 0.018 mul def /Xnref XNP1 def /Ynref YNP1 def /Znref ZNP1 def proz_XYZ_Lab* /L*NP1 L*ref def /a*NP1 a*ref def /b*NP1 b*ref def /C*NP1 a*NP1 dup mul b*NP1 dup mul add sqrt def /habNP1 b*NP1 a*NP1 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 0.0001 add 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 TBG (CIELAB\255Daten ) showde (CIELAB data ) showen (Datos CIELAB ) showes TBM (Donn\351es CIELAB ) showfr TBG (dati CIELAB ) showit (CIELAB data ) showjp TBIG (L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050Y) show (d,P2) jshowTG TBM (=360) show ( 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 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 YWD0 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 (P2) jshowTM S1 yu1 yz 1 mul sub moveto TBIM (G) show (P2) jshowTM S1 yu1 yz 2 mul sub moveto TBIM (B) show (P2) jshowTM S2 135 add yu1 yz 0 mul sub moveto TBM (Rot ) showde (Red ) showen (Rojo ) showes (rouge ) showfr (Rosso ) showit (R\370d ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (1 0 0\051) show} if K 1 ge {TIM (rgb*=) show TM (p 0 0\051) show} if S2 135 add yu1 yz 1 mul sub moveto TBM (Gr\374n ) showde (Green ) showen (Verde ) showes (vert ) showfr (Verde ) showit (Gr\370nn ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 1 0\051) show} if K 1 ge {TIM (rgb*=) show TM (0 p 0\051) show} if S2 135 add yu1 yz 2 mul sub moveto TBM (Blau ) showde (Blue ) showen (Azul ) showes (bleu ) showfr (Blu ) showit (Bl\345 ) showjp TBM YWD0 Yfak mul cvishow TM ( \050) show K 0 eq {TIM (rgb=rgb*=) show TM (0 0 1\051) show} if K 1 ge {TIM (rgb*=) show TM (0 0 p\051) show} if 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 K 2 eq {%K=2 TBIM (W) show (P1) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP1 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP1 100 div cvsshow2g } if %K=2 S1 y11 moveto K 3 eq {%K=3 TBIM (W) show (P2) jshowTM TBM ( ) show S2 80 add y11 moveto TBM (Wei\337 ) showde (White ) showen TBM YWP2 cvishow TM (\050) show TIM (rgb*=) show TM (p p p\051) show TBK ( p=) show L*WP2 100 div cvsshow2g } if %K=3 S1 yu0 moveto TBIM (W) show (D0) jshowTM TBM ( ) show S2 80 add yu0 moveto TBM (Wei\337 ) showde (White ) showen TBM YWD0 cvishow TM ( \050) show TIM (rgb=rgb*=) show TM (1 1 1\051) show S1 yn0 moveto TBIM (N) show (d0) jshowTM TBM ( ) show S2 80 add yn0 moveto TBM (Schwarz ) showde (Black ) showen TBM (2,5 ) show TM (\050) show TIM (rbg=rgb*=) show TM (0 0 0\051) show S1 y00 moveto TBIM (N) show (p1) jshowTM TBM ( ) show S2 80 add y00 moveto TBM (Schwarz ) showde (Black ) showen TBM (1,8 ) show TM (\050) show TIM (rgb*=) show TM (q q q\051) show TBK ( q=) show L*NP1 L*ND0 sub 100 div cvsshow2g TM xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XWD0 cvsshow2g S6 y11 moveto YWD0 cvsshow2g S7 y11 moveto ZWD0 cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XWP1 cvsshow2g S6 yu0 moveto YWP1 cvsshow2g S7 yu0 moveto ZWP1 cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XND0 cvsshow2g S6 yn0 moveto YND0 cvsshow2g S7 yn0 moveto ZND0 cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XNP1 cvsshow2g S6 y00 moveto YNP1 cvsshow2g S7 y00 moveto ZNP1 cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 K 2 eq {%K=2 S8 y11 0 yd mul add moveto L*WP1 cvsshow2g S9 y11 0 yd mul add moveto a*WP1 cvsshow2g S10 y11 0 yd mul add moveto b*WP1 cvsshow2g S11 y11 0 yd mul add moveto C*WP1 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP1 cvishow } if %K=2 K 3 eq {%K=3 S8 y11 0 yd mul add moveto L*WP2 cvsshow2g S9 y11 0 yd mul add moveto a*WP2 cvsshow2g S10 y11 0 yd mul add moveto b*WP2 cvsshow2g S11 y11 0 yd mul add moveto C*WP2 cvsshow2g S12 y11 0 yd mul add moveto (0,00) show %hABWP2 cvishow } if %K=3 S8 yu0 0 yd mul add moveto L*WD0 cvsshow2g S9 yu0 0 yd mul add moveto a*WD0 cvsshow2g S10 yu0 0 yd mul add moveto b*WD0 cvsshow2g S11 yu0 0 yd mul add moveto C*WD0 cvsshow2g S12 yu0 0 yd mul add moveto (0,00) show %habWD0 cvishow S8 yn0 0 yd mul add moveto L*ND0 cvsshow2g S9 yn0 0 yd mul add moveto a*ND0 cvsshow2g S10 yn0 0 yd mul add moveto b*ND0 cvsshow2g S11 yn0 0 yd mul add moveto C*ND0 cvsshow2g S12 yn0 0 yd mul add moveto (0,00) show %hABND0 cvishow S8 y00 0 yd mul add moveto L*NP1 cvsshow2g S9 y00 0 yd mul add moveto a*NP1 cvsshow2g S10 y00 0 yd mul add moveto b*NP1 cvsshow2g S11 y00 0 yd mul add moveto C*NP1 cvsshow2g S12 y00 0 yd mul add moveto (0,00) show %hABNP1 cvishow } 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 %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 fem81-8N %%BoundingBox: 70 85 246 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave /ioutx 0 def ioutx 1 eq {%ioutx=1 4 /Times-Roman FS 72 86 moveto (fem81-8N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 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 } if %ioutx=1 grestore showpage %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /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 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] 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 xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def /xmo xlo xro xlo sub 0.5 mul add def /ymo yro 1 MM sub def xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def /12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def %special /10TIN_10 {10TIN 0 -2 rmoveto xcolor 1 eq {(10) show} if 0 2 rmoveto} def /10TINK10 {10TIN 0 -2 rmoveto xcolor 1 eq {(,10) show} if 0 2 rmoveto} def /TELi0 8 array def /TELi1 8 array def /TELi 8 array def /TELi0 [(P65) (P60) (P55) (P50) (P45) (P40) (P35) (P30)] def %7 illumin. /TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /xchart8 0 def %xchart8=0: Pxx, xchart8=1: Dxx 0 1 7 {/i exch def %i=0,7 xchart8 0 eq {%xchart8=0 TELi i TELi0 i get put }%xchart8=0 {%xchart8=1 TELi i TELi1 i get put } ifelse %xchart8=1 } for %i=0,7 0 setgray 12TIN 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage fem8; ) showde (TUB\255test chart fem8; ) showen (gr\341fico TUB\255fem8; ) showes (TUB\255test graphique fem8; ) showfr (grafico TUB\255fem8; ) showit (TUB\255test chart fem8; ) showjp /xchart40 0 def %0: CIEXYZ, 1:CIELAB /xchart41 0 def %0:Y=090, 1:Y=180, 2:Y=360 /xchart42 0 def %0: sRGB, 1:WCGa xchart42 0 eq {%xchart42=0 (Displaysystem sRGB nach ) showde (Display system sRGB according to ) showen (IEC 61966\2552\2551) show ( \0501,8<=) show 12TII ( Y ) show 12TIN (<=360\051) show } if %xchart42=0 xchart42 1 eq {%xchart42=1 (Displaysystem WCGa nach ) showde (Display system WCGa according to ) showen (ISO 22028\2555) showde ( \0501,8<=) show 12TII ( Y ) show 12TIN (<=360\051) show } if %xchart42=1 12TIN 61 MM 09.5 MM moveto %allways (CIE\255Daten von 3 Grund\255 und Mischfarben, ) showde (CIE data of 3 basic and 3 mixture colours, ) showea 12TIN (CIEXYZ) show 12TIN ( & CIELAB ) show 12TII (, Y) show 10TIN 0 -2 rmoveto (WD0/P1/P2) show 0 2 rmoveto 12TIN (=) show (90, 180, 360) show 62 MM 198.5 MM moveto 12RN tfb (http://farbe.li.tu-berlin.de/fem8/fem8l) show 12TN (0) show % LSC$ show LEX$ show tfn (; only vector graphic VG) showen (; nur Vektorgrafik VG) showde %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde (start output) showen (comience salida) showes (sortie de production) showfr (cominciare l'uscita) showit (start output) showjp } if 62 MM 194 MM moveto (Siehe separate Bilder dieser Seite: ) showde (see separate images of this page: ) showen (vea archivos semejantes: ) showes (voir des fichiers similaires: ) showfr (vedere dei file simili: ) showit (see similar files: ) showjp 12RN tfb (http://farbe.li.tu-berlin.de/fem8/fem8.htm) show tfn 12TN 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien der ganzen Serie: ) showde (see similar files of the whole serie: ) showen (vea archivos semejantes: ) showes (voir des fichiers similaires de serie: ) showfr (vedere dei file simili: ) showit (see similar files: ) showjp 12RN tfb (http://farbe.li.tu-berlin.de/fems.htm) show tfn 12TN 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (technical information: ) showen (informaci\363n t\351cnica: ) showes (informations techniques: ) showfr (informazioni tecniche: ) showit (technical information: ) showjp 12RN tfb (http://farbe.li.tu-berlin.de) show tfn 12TN ( oder ) showde ( or ) showen ( o ) showes ( ou ) showfr ( o ) showit ( or ) showjp 12RN tfb (http://color.li.tu-berlin.de) show tfn 12TN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20240301\255fem8/fem8l) showde (TUB registration: 20240301\255fem8/fem8l) showen (TUB matr\355cula: 20240301\255fem8/fem8l) showes (TUB enregistrement: 20240301\255fem8/fem8l) showfr (TUB iscrizione: 20240301\255fem8/fem8l) showit (TUB registration: 20240301\255fem8/fem8l) showjp (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde (TUB material: code=rha4ta) showen (TUB material: code=rha4ta) showes (TUB mat\351riel: code=rha4ta) showfr (TUB materiale: code=rha4ta) showit (TUB material: code=rha4ta) showjp 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung ) showde ( application for evaluation and measurement ) showen ( aplicaci\363n para la medida ) showes ( application pour la mesure ) showfr ( la domanda per la misura ) showit ( application for measurement ) showjp (von Display\255 oder Druck\255Ausgabe) showde (of display or print output) showen (de display output) showes (de sortie sur \350cran) showfr (di stampa di display) showit (of display output) showjp 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,0 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer