%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/BET7/BET7L00XX.PS 20220301 %%BoundingBox: 14 08 828 584 /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/BET7/BET7.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:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %Y10E00NA.PS6 %line 20****************************************************** %BEG BET7/OUTLIN10.PS Emty 20120301 %END BET7/OUTLIN10.PS Emty 20120301 %BEG BET7/OUTLIN1X.PS 20110801 %EMPTY %END BET7/OUTLIN1X.PS 20110801 %BEG BET7/OUTLIN1Y2.PS Emty 20101101 %END BET7/OUTLIN1Y2.PS Emty 20101101 /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 /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 1.0 1.0 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$ [(A.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$ [(A.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 /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 %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 BET70-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET70-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET70-3N %%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/BET7/BET7.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:2022030112000) /ModDate (D:2022030112000) /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 2 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 2 def 72 85 moveto 5 /Times-Roman FS (BET70-3N) show 5 /Times-ISOL1 FS 72 90 translate /ytit 550 def /yhoe 7850 def /yhoet yhoe ytit sub def /xwide 10800 def 0.0110 MM 0.0110 MM scale 15 setlinewidth 1.0 setgray 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 setgray 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /TEAde {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showde} for} bind def /TEAea {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showea} for} bind def /yd -400 def %y-Zeilenabstand %Spalten /S1 100 def /S2 600 def /S3 4700 def %xyXYZ /S4 5800 def /S5 6900 def /S6 8100 def /S7 9300 def /S8 4700 def %10300 def %LAB* /S9 6000 def %11600 def /S10 7300 def %12900 def /S11 8600 def %14200 def /S12 9900 def %15500 def /S13 4700 def %16500 def %lab /S14 5900 def %17700 def /S15 7200 def %19000 def /S16 8500 def %20300 def /S17 9800 def %21600 def /yz 400 def /y00 100 def /yn0 500 def /yu0 900 def /y11 1300 def /y1P 1700 def /yu1 {y11 400 add yz 4 mul add} bind def /yu2 {yu1 50 add yz 1 mul add} bind def /yu3 {yu2 200 add yz 3 mul add} bind def /yu4 {yu3 50 add yz 1 mul add} bind def /yu5 {yu4 200 add yz 3 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def /yhoey yhoet 900 sub def xchart4 0 eq {%xchart4=0 S3 100 sub yhoet moveto 0 yhoet neg rlineto stroke S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke S5 100 sub yhoet moveto 0 yhoet neg rlineto stroke S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke S7 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 100 sub yhoet moveto 0 yhoet neg rlineto stroke S9 100 sub yhoey moveto 0 yhoey neg rlineto stroke S10 100 sub yhoey moveto 0 yhoey neg rlineto stroke S11 100 sub yhoey moveto 0 yhoey neg rlineto stroke S12 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 100 sub yhoet moveto 0 yhoet neg rlineto stroke S14 100 sub yhoey moveto 0 yhoey neg rlineto stroke S15 100 sub yhoey moveto 0 yhoey neg rlineto stroke S16 100 sub yhoey moveto 0 yhoey neg rlineto stroke S17 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=2 %Titeltext %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /K 0 def %normalization 0: 1,000, 1: 0,886 /LTV 0 def %0: sRGB, 1: WCG K 0 eq {/Yfak 1.000 def} {/Yfak 0.886 def} ifelse 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 RBG (-Mischfarbe ) showde TBG (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 RBG (CIE-Daten ) showde TBG (f\374r) showde TBG (CIE data for) showen (Datos CIE para) showes TBM (donn\351es D65 CIE pour) showfr TBG (Dati CIE per) showit (CIE data for) showjp lanind 2 ne {TBIG ( Y) show (W) jshowTG TBG} {TBIM ( Y) show (W) jshowTM TBM} ifelse K 0 eq {(=100 ) show} {(=88,6) show} ifelse 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (C) show (d) ishowTG S1 yu3 yz 1 mul sub moveto TIG (M) show (d) ishowTG S1 yu3 yz 2 mul sub moveto TIG (Y) show (d) ishowTG S2 50 add yu3 yz 0 mul sub moveto TG (Cyan (Cyanblau)) showde (Cyan (Cyan blue)) showen (Cian (cian azul)) showes (Cyan (bleu Cyan)) showfr (Ciano (blu ciano)) showit (Cyan (Cyan bl\345)) showjp S2 50 add yu3 yz 1 mul sub moveto TG (Magenta (Magentarot)) showde (Magenta (magenta red)) showen (Magenta (rojo magenta)) showes (magenta (rouge magenta)) showfr (Magenta (rosso magenta)) showit (Magenta (magenta r\370d)) showjp S2 50 add yu3 yz 2 mul sub moveto TG (Gelb) showde (Yellow) showen (Amarillo) showes (jaune) showfr (Giallo) showit (Gul) showjp LTV 0 eq {%LTV=0 %ITU-R BT.709-3 /xanR 0.640 def /yanR 0.330 def /xanG 0.300 def /yanG 0.600 def /xanB 0.150 def /yanB 0.060 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2126 def /lG 0.7152 def /lB 0.0722 def } if %LTV=0 LTV 1 eq {%LTV=1 %ITU-R BT.2020-2 /xanR 0.708 def /yanR 0.292 def /xanG 0.170 def /yanG 0.797 def /xanB 0.131 def /yanB 0.046 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2627 def /lG 0.6780 def /lB 0.0593 def } if %LTV=1 /XW 95.05 def /YW 100.00 def /ZW 108.90 def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /proz_XYZ_Lab* {%BEG proz_XYZ_Lab* /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } bind def %END proz_XYZ_Lab* /SR 100. yanR div lR mul def /SG 100. yanG div lG mul def /SB 100. yanB div lB mul def /SD 100. yanD div 1 mul def /XR xanR SR mul Yfak mul def /XG xanG SG mul Yfak mul def /XB xanB SB mul Yfak mul def /XD xanD SD mul Yfak mul def /YR yanR SR mul Yfak mul def /YG yanG SG mul Yfak mul def /YB yanB SB mul Yfak mul def /YD yanD SD mul Yfak mul def /ZR 1 xanR sub yanR sub SR mul Yfak mul def /ZG 1 xanG sub yanG sub SG mul Yfak mul def /ZB 1 xanB sub yanB sub SB mul Yfak mul def /ZD 1 xanD sub yanD sub SD mul Yfak mul def /XC XG XB add def /YC YG YB add def /ZC ZG ZB add def /SC XC YC add ZC add def /XM XB XR add def /YM YB YR add def /ZM ZB ZR add def /SM XM YM add ZM add def /XY XR XG add def /YY YR YG add def /ZY ZR ZG add def /SY XY YY add ZY add def /xanC XC SC div def /yanC YC SC div def /xanM XM SM div def /yanM YM SM div def /xanY XY SY div def /yanY YY SY div def /Xnref XR def /Ynref YR def /Znref ZR def proz_XYZ_Lab* /L*R L*ref def /a*R a*ref def /b*R b*ref def /C*R a*R dup mul b*R dup mul add sqrt def /habR b*R a*R atan def /Xnref XG def /Ynref YG def /Znref ZG def proz_XYZ_Lab* /L*G L*ref def /a*G a*ref def /b*G b*ref def /C*G a*G dup mul b*G dup mul add sqrt def /habG b*G a*G atan def /Xnref XB def /Ynref YB def /Znref ZB def proz_XYZ_Lab* /L*B L*ref def /a*B a*ref def /b*B b*ref def /C*B a*B dup mul b*B dup mul add sqrt def /habB b*B a*B atan def /Xnref XC def /Ynref YC def /Znref ZC def proz_XYZ_Lab* /L*C L*ref def /a*C a*ref def /b*C b*ref def /C*C a*C dup mul b*C dup mul add sqrt def /habC b*C a*C atan def /Xnref XM def /Ynref YM def /Znref ZM def proz_XYZ_Lab* /L*M L*ref def /a*M a*ref def /b*M b*ref def /C*M a*M dup mul b*M dup mul add sqrt def /habM b*M a*M atan def /Xnref XY def /Ynref YY def /Znref ZY def proz_XYZ_Lab* /L*Y L*ref def /a*Y a*ref def /b*Y b*ref def /C*Y a*Y dup mul b*Y dup mul add sqrt def /habY b*Y a*Y atan def /AR XR XWr mul YR YWr mul sub def /BR YR YWr mul ZR ZWr mul sub 0.4 mul def /CR AR dup mul BR dup mul add sqrt def /hABR BR AR atan def /AG XG XWr mul YG YWr mul sub def /BG YG YWr mul ZG ZWr mul sub 0.4 mul def /CG AG dup mul BG dup mul add sqrt def /hABG BG AG atan def /AB XB XWr mul YB YWr mul sub def /BB YB YWr mul ZB ZWr mul sub 0.4 mul def /CB AB dup mul BB dup mul add sqrt def /hABB BB AB atan def /AC XC XWr mul YC YWr mul sub def /BC YC YWr mul ZC ZWr mul sub 0.4 mul def /CC AC dup mul BC dup mul add sqrt def /hABC BC AC atan def /AM XM XWr mul YM YWr mul sub def /BM YM YWr mul ZM ZWr mul sub 0.4 mul def /CM AM dup mul BM dup mul add sqrt def /hABM BM AM atan def /AY XY XWr mul YY YWr mul sub def /BY YY YWr mul ZY ZWr mul sub 0.4 mul def /CY AY dup mul BY dup mul add sqrt def /hABY BY AY atan def %LAB2 %(X/Y)an(R/G/B/C/M/Y/D) are known /kXANC 0.110 def /kBC 0.800 def /A20 1.000 def /B20 -0.400 def /CSK 2.500 def /zanD 1. xanD sub yanD sub def /A20D xanD kXANC sub yanD div A20 mul def /B20D zanD yanD div B20 mul def /zanR 1. xanR sub yanR sub def /A20R xanR kXANC sub yanR div A20 mul def /B20R zanR yanR div B20 mul def /A2R A20R A20D sub CSK mul YR mul def /B2R B20R B20D sub CSK mul YR mul kBC mul def /CAB2R A2R dup mul B2R dup mul add 0.0001 add sqrt def /hAB2R B2R A2R atan def /zanG 1. xanG sub yanG sub def /A20G xanG kXANC sub yanG div A20 mul def /B20G zanG yanG div B20 mul def /A2G A20G A20D sub CSK mul YG mul def /B2G B20G B20D sub CSK mul YG mul kBC mul def /CAB2G A2G dup mul B2G dup mul add 0.0001 add sqrt def /hAB2G B2G A2G atan def /zanB 1. xanB sub yanB sub def /A20B xanB kXANC sub yanB div A20 mul def /B20B zanB yanB div B20 mul def /A2B A20B A20D sub CSK mul YB mul def /B2B B20B B20D sub CSK mul YB mul kBC mul def /CAB2B A2B dup mul B2B dup mul add 0.0001 add sqrt def /hAB2B B2B A2B atan def /zanC 1. xanC sub yanC sub def /A20C xanC kXANC sub yanC div A20 mul def /B20C zanC yanC div B20 mul def /A2C A20C A20D sub CSK mul YC mul def /B2C B20C B20D sub CSK mul YC mul kBC mul def /CAB2C A2C dup mul B2C dup mul add 0.0001 add sqrt def /hAB2C B2C A2C atan def /zanM 1. xanM sub yanM sub def /A20M xanM kXANC sub yanM div A20 mul def /B20M zanM yanM div B20 mul def /A2M A20M A20D sub CSK mul YM mul def /B2M B20M B20D sub CSK mul YM mul kBC mul def /CAB2M A2M dup mul B2M dup mul add 0.0001 add sqrt def /hAB2M B2M A2M atan def /zanY 1. xanY sub yanY sub def /A20Y xanY kXANC sub yanY div A20 mul def /B20Y zanY yanY div B20 mul def /A2Y A20Y A20D sub CSK mul YY mul def /B2Y B20Y B20D sub CSK mul YY mul kBC mul def /CAB2Y A2Y dup mul B2Y dup mul add 0.0001 add sqrt def /hAB2Y B2Y A2Y atan def /str 20 string def xchart4 0 eq {%xchart4=0 S3 yu3 0 yd mul add moveto xanC cvsshow3g S3 yu3 1 yd mul add moveto xanM cvsshow3g S3 yu3 2 yd mul add moveto xanY cvsshow3g S4 yu3 0 yd mul add moveto yanC cvsshow3g S4 yu3 1 yd mul add moveto yanM cvsshow3g S4 yu3 2 yd mul add moveto yanY cvsshow3g S5 yu3 0 yd mul add moveto XC cvsshow2g S5 yu3 1 yd mul add moveto XM cvsshow2g S5 yu3 2 yd mul add moveto XY cvsshow2g S6 yu3 0 yd mul add moveto YC cvsshow2g S6 yu3 1 yd mul add moveto YM cvsshow2g S6 yu3 2 yd mul add moveto YY cvsshow2g S7 yu3 0 yd mul add moveto ZC cvsshow2g S7 yu3 1 yd mul add moveto ZM cvsshow2g S7 yu3 2 yd mul add moveto ZY cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 yu3 0 yd mul add moveto L*C cvsshow2g S8 yu3 1 yd mul add moveto L*M cvsshow2g S8 yu3 2 yd mul add moveto L*Y cvsshow2g S9 yu3 0 yd mul add moveto a*C cvsshow2g S9 yu3 1 yd mul add moveto a*M cvsshow2g S9 yu3 2 yd mul add moveto a*Y cvsshow2g S10 yu3 0 yd mul add moveto b*C cvsshow2g S10 yu3 1 yd mul add moveto b*M cvsshow2g S10 yu3 2 yd mul add moveto b*Y cvsshow2g S11 yu3 0 yd mul add moveto C*C cvsshow2g S11 yu3 1 yd mul add moveto C*M cvsshow2g S11 yu3 2 yd mul add moveto C*Y cvsshow2g S12 yu3 0 yd mul add moveto hABC cvishow S12 yu3 1 yd mul add moveto hABM cvishow S12 yu3 2 yd mul add moveto hABY cvishow } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 yu3 0 yd mul add moveto YC cvsshow2g S13 yu3 1 yd mul add moveto YM cvsshow2g S13 yu3 2 yd mul add moveto YY cvsshow2g S14 yu3 0 yd mul add moveto A2C cvsshow2g S14 yu3 1 yd mul add moveto A2M cvsshow2g S14 yu3 2 yd mul add moveto A2Y cvsshow2g S15 yu3 0 yd mul add moveto B2C cvsshow2g S15 yu3 1 yd mul add moveto B2M cvsshow2g S15 yu3 2 yd mul add moveto B2Y cvsshow2g S16 yu3 0 yd mul add moveto CAB2C cvsshow2g S16 yu3 1 yd mul add moveto CAB2M cvsshow2g S16 yu3 2 yd mul add moveto CAB2Y cvsshow2g S17 yu3 0 yd mul add moveto hAB2C cvishow S17 yu3 1 yd mul add moveto hAB2M cvishow S17 yu3 2 yd mul add moveto hAB2Y cvishow } if %xchart4=2 xchart4 1 eq {%xchart4=1 S8 yu5 moveto RBG (Norm-CIELAB-Daten) showde TBG (Standard CIELAB data) showen (Datos CIELAB est\341ndar) showes TBM (Donn\351es normalis\351es CIELAB) showfr TBG (Standard dati CIELAB) showit (Standard CIELAB data) showjp TBIG ( L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050L*) show (d) jshowTM TBM K 0 eq {(=100,0 ) show}{(=88,6 ) show} ifelse (f\374r Wei\337; ) showde (for white; ) showen (para el blanco; ) showes (pour le blanc; ) showfr (per il bianco; ) showit (for hvit; ) showjp TBIM (L*) show (d) jshowTM TBM K 0 eq {(=0,0 ) show} {(=18,0 ) 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 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 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (R) show (d) ishowTG S1 yu1 yz 1 mul sub moveto TIG (G) show (d) ishowTG S1 yu1 yz 2 mul sub moveto TIG (B) show (d) ishowTG S2 50 add yu1 yz 0 mul sub moveto TG (Rot (Orangerot)) showde (Red (orange red)) showen (Rojo (naranja rojo)) showes (rouge (rouge orange)) showfr (Rosso (rosso aranjo)) showit (R\370d (oransje r\370d)) showjp S2 50 add yu1 yz 1 mul sub moveto TG (Gr\374n (Laubgr\374n)) showde (Green (leaf green)) showen (Verde (verde hoja)) showes (vert (vert de chrome)) showfr (Verde (verde foglia)) showit (Gr\370nn (leaf green)) showjp S2 50 add yu1 yz 2 mul sub moveto TG (Blau (Violettblau)) showde (Blue (violet blue)) showen (Azul (azul violeta)) showes (bleu (bleu violet)) showfr (Blu (blu violetto)) showit (Bl\345 (lilla bl\345)) showjp 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 TIG (W0 ) show TG ((wei\337er Monitor, 100%)) showde ((white monitor, 100%)) showen ((blanco monitor, 100%)) showes ((moniteur blanc, 100%)) showfr ((monitor bianco, 100%)) showit ((hvit skjerm, 100%)) showjp S1 yu0 moveto TIG (W1 ) show TG ((wei\337er Monitor, 88,6%)) showde ((white monitor, 88,6%)) showen ((blanco monitor, 88,6%)) showes ((moniteur blanc, 88,6%)) showfr ((monitor bianco, 88,6%)) showit ((hvit skjerm, 88,6%)) showjp S1 yn0 moveto TIG (N1 ) show TG ((schwarzer Monitor, 2,5%)) showde ((black monitor, 2,5%)) showen ((monitor negro, 2,5%)) showes ((moniteur noir, 2,5%)) showfr ((monitor nero, 2,5%)) showit ((svart skjerm, 2,5%)) showjp S1 y00 moveto TIG (N0 ) show TG ((schwarzer Monitor, 0%)) showde ((black monitor, 0,00%)) showen ((monitor negro, 0,00%)) showes ((moniteur noir, 0,00%)) showfr ((monitor nero, 0,00%)) showit ((svart skjerm, 0,00%)) showjp xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XW cvsshow2g S6 y11 moveto YW cvsshow2g S7 y11 moveto ZW cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XW 0.886 mul cvsshow2g S6 yu0 moveto YW 0.886 mul cvsshow2g S7 yu0 moveto ZW 0.886 mul cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XW 0.025 mul cvsshow2g S6 yn0 moveto YW 0.025 mul cvsshow2g S7 yn0 moveto ZW 0.025 mul cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XW 0.0 mul cvsshow2g S6 y00 moveto YW 0.0 mul cvsshow2g S7 y00 moveto ZW 0.0 mul cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 %W0 S8 y11 moveto (100,00) show S9 y11 moveto ( 0,00) show S10 y11 moveto ( 0,00) show S11 y11 moveto ( 0,00) show S12 y11 moveto ( 0) show %W1 S8 yu0 moveto ( 95,40) show S9 yu0 moveto ( 0,00) show S10 yu0 moveto ( 0,00) show S11 yu0 moveto ( 0,00) show S12 yu0 moveto ( 0) show %N1 S8 yn0 moveto ( 18,00) show S9 yn0 moveto ( 0,00) show S10 yn0 moveto ( 0,00) show S11 yn0 moveto ( 0,00) show S12 yn0 moveto ( 0) show %N0 S8 y00 moveto ( 0,00) show S9 y00 moveto ( 0,00) show S10 y00 moveto ( 0,00) show S11 y00 moveto ( 0,00) show S12 y00 moveto ( 0) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 y11 moveto (100,00) show S14 y11 moveto ( 0,00) show S15 y11 moveto ( 0,00) show S16 y11 moveto ( 0,00) show S17 y11 moveto ( 0) show S13 yu0 moveto ( 88,60) 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 ( 2,50) 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 BET70-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET70-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET70-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET70-7N %%BoundingBox: 70 82 410 320 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/BET7/BET7.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:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 2 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 2 def 72 85 moveto 5 /Times-Roman FS (BET70-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 4700 def %10300 def %LAB* /S9 6000 def %11600 def /S10 7300 def %12900 def /S11 8600 def %14200 def /S12 9900 def %15500 def /S13 4700 def %16500 def %lab /S14 5900 def %17700 def /S15 7200 def %19000 def /S16 8500 def %20300 def /S17 9800 def %21600 def /yz 400 def /y00 100 def /yn0 500 def /yu0 900 def /y11 1300 def /y1P 1700 def /yu1 {y11 400 add yz 4 mul add} bind def /yu2 {yu1 50 add yz 1 mul add} bind def /yu3 {yu2 200 add yz 3 mul add} bind def /yu4 {yu3 50 add yz 1 mul add} bind def /yu5 {yu4 200 add yz 3 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def /yhoey yhoet 900 sub def xchart4 0 eq {%xchart4=0 S3 100 sub yhoet moveto 0 yhoet neg rlineto stroke S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke S5 100 sub yhoet moveto 0 yhoet neg rlineto stroke S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke S7 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 100 sub yhoet moveto 0 yhoet neg rlineto stroke S9 100 sub yhoey moveto 0 yhoey neg rlineto stroke S10 100 sub yhoey moveto 0 yhoey neg rlineto stroke S11 100 sub yhoey moveto 0 yhoey neg rlineto stroke S12 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 100 sub yhoet moveto 0 yhoet neg rlineto stroke S14 100 sub yhoey moveto 0 yhoey neg rlineto stroke S15 100 sub yhoey moveto 0 yhoey neg rlineto stroke S16 100 sub yhoey moveto 0 yhoey neg rlineto stroke S17 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=2 %Titeltext %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /K 0 def %normalization 0: 1,000, 1: 0,886 /LTV 1 def %0: sRGB, 1: WCG K 0 eq {/Yfak 1.000 def} {/Yfak 0.886 def} ifelse 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 RBG (-Mischfarbe ) showde TBG (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 RBG (CIE-Daten ) showde TBG (f\374r) showde TBG (CIE data for) showen (Datos CIE para) showes TBM (donn\351es D65 CIE pour) showfr TBG (Dati CIE per) showit (CIE data for) showjp lanind 2 ne {TBIG ( Y) show (W) jshowTG TBG} {TBIM ( Y) show (W) jshowTM TBM} ifelse K 0 eq {(=100 ) show} {(=88,6) show} ifelse 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (C) show (d) ishowTG S1 yu3 yz 1 mul sub moveto TIG (M) show (d) ishowTG S1 yu3 yz 2 mul sub moveto TIG (Y) show (d) ishowTG S2 50 add yu3 yz 0 mul sub moveto TG (Cyan (Cyanblau)) showde (Cyan (Cyan blue)) showen (Cian (cian azul)) showes (Cyan (bleu Cyan)) showfr (Ciano (blu ciano)) showit (Cyan (Cyan bl\345)) showjp S2 50 add yu3 yz 1 mul sub moveto TG (Magenta (Magentarot)) showde (Magenta (magenta red)) showen (Magenta (rojo magenta)) showes (magenta (rouge magenta)) showfr (Magenta (rosso magenta)) showit (Magenta (magenta r\370d)) showjp S2 50 add yu3 yz 2 mul sub moveto TG (Gelb) showde (Yellow) showen (Amarillo) showes (jaune) showfr (Giallo) showit (Gul) showjp LTV 0 eq {%LTV=0 %ITU-R BT.709-3 /xanR 0.640 def /yanR 0.330 def /xanG 0.300 def /yanG 0.600 def /xanB 0.150 def /yanB 0.060 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2126 def /lG 0.7152 def /lB 0.0722 def } if %LTV=0 LTV 1 eq {%LTV=1 %ITU-R BT.2020-2 /xanR 0.708 def /yanR 0.292 def /xanG 0.170 def /yanG 0.797 def /xanB 0.131 def /yanB 0.046 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2627 def /lG 0.6780 def /lB 0.0593 def } if %LTV=1 /XW 95.05 def /YW 100.00 def /ZW 108.90 def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /proz_XYZ_Lab* {%BEG proz_XYZ_Lab* /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } bind def %END proz_XYZ_Lab* /SR 100. yanR div lR mul def /SG 100. yanG div lG mul def /SB 100. yanB div lB mul def /SD 100. yanD div 1 mul def /XR xanR SR mul Yfak mul def /XG xanG SG mul Yfak mul def /XB xanB SB mul Yfak mul def /XD xanD SD mul Yfak mul def /YR yanR SR mul Yfak mul def /YG yanG SG mul Yfak mul def /YB yanB SB mul Yfak mul def /YD yanD SD mul Yfak mul def /ZR 1 xanR sub yanR sub SR mul Yfak mul def /ZG 1 xanG sub yanG sub SG mul Yfak mul def /ZB 1 xanB sub yanB sub SB mul Yfak mul def /ZD 1 xanD sub yanD sub SD mul Yfak mul def /XC XG XB add def /YC YG YB add def /ZC ZG ZB add def /SC XC YC add ZC add def /XM XB XR add def /YM YB YR add def /ZM ZB ZR add def /SM XM YM add ZM add def /XY XR XG add def /YY YR YG add def /ZY ZR ZG add def /SY XY YY add ZY add def /xanC XC SC div def /yanC YC SC div def /xanM XM SM div def /yanM YM SM div def /xanY XY SY div def /yanY YY SY div def /Xnref XR def /Ynref YR def /Znref ZR def proz_XYZ_Lab* /L*R L*ref def /a*R a*ref def /b*R b*ref def /C*R a*R dup mul b*R dup mul add sqrt def /habR b*R a*R atan def /Xnref XG def /Ynref YG def /Znref ZG def proz_XYZ_Lab* /L*G L*ref def /a*G a*ref def /b*G b*ref def /C*G a*G dup mul b*G dup mul add sqrt def /habG b*G a*G atan def /Xnref XB def /Ynref YB def /Znref ZB def proz_XYZ_Lab* /L*B L*ref def /a*B a*ref def /b*B b*ref def /C*B a*B dup mul b*B dup mul add sqrt def /habB b*B a*B atan def /Xnref XC def /Ynref YC def /Znref ZC def proz_XYZ_Lab* /L*C L*ref def /a*C a*ref def /b*C b*ref def /C*C a*C dup mul b*C dup mul add sqrt def /habC b*C a*C atan def /Xnref XM def /Ynref YM def /Znref ZM def proz_XYZ_Lab* /L*M L*ref def /a*M a*ref def /b*M b*ref def /C*M a*M dup mul b*M dup mul add sqrt def /habM b*M a*M atan def /Xnref XY def /Ynref YY def /Znref ZY def proz_XYZ_Lab* /L*Y L*ref def /a*Y a*ref def /b*Y b*ref def /C*Y a*Y dup mul b*Y dup mul add sqrt def /habY b*Y a*Y atan def /AR XR XWr mul YR YWr mul sub def /BR YR YWr mul ZR ZWr mul sub 0.4 mul def /CR AR dup mul BR dup mul add sqrt def /hABR BR AR atan def /AG XG XWr mul YG YWr mul sub def /BG YG YWr mul ZG ZWr mul sub 0.4 mul def /CG AG dup mul BG dup mul add sqrt def /hABG BG AG atan def /AB XB XWr mul YB YWr mul sub def /BB YB YWr mul ZB ZWr mul sub 0.4 mul def /CB AB dup mul BB dup mul add sqrt def /hABB BB AB atan def /AC XC XWr mul YC YWr mul sub def /BC YC YWr mul ZC ZWr mul sub 0.4 mul def /CC AC dup mul BC dup mul add sqrt def /hABC BC AC atan def /AM XM XWr mul YM YWr mul sub def /BM YM YWr mul ZM ZWr mul sub 0.4 mul def /CM AM dup mul BM dup mul add sqrt def /hABM BM AM atan def /AY XY XWr mul YY YWr mul sub def /BY YY YWr mul ZY ZWr mul sub 0.4 mul def /CY AY dup mul BY dup mul add sqrt def /hABY BY AY atan def %LAB2 %(X/Y)an(R/G/B/C/M/Y/D) are known /kXANC 0.110 def /kBC 0.800 def /A20 1.000 def /B20 -0.400 def /CSK 2.500 def /zanD 1. xanD sub yanD sub def /A20D xanD kXANC sub yanD div A20 mul def /B20D zanD yanD div B20 mul def /zanR 1. xanR sub yanR sub def /A20R xanR kXANC sub yanR div A20 mul def /B20R zanR yanR div B20 mul def /A2R A20R A20D sub CSK mul YR mul def /B2R B20R B20D sub CSK mul YR mul kBC mul def /CAB2R A2R dup mul B2R dup mul add 0.0001 add sqrt def /hAB2R B2R A2R atan def /zanG 1. xanG sub yanG sub def /A20G xanG kXANC sub yanG div A20 mul def /B20G zanG yanG div B20 mul def /A2G A20G A20D sub CSK mul YG mul def /B2G B20G B20D sub CSK mul YG mul kBC mul def /CAB2G A2G dup mul B2G dup mul add 0.0001 add sqrt def /hAB2G B2G A2G atan def /zanB 1. xanB sub yanB sub def /A20B xanB kXANC sub yanB div A20 mul def /B20B zanB yanB div B20 mul def /A2B A20B A20D sub CSK mul YB mul def /B2B B20B B20D sub CSK mul YB mul kBC mul def /CAB2B A2B dup mul B2B dup mul add 0.0001 add sqrt def /hAB2B B2B A2B atan def /zanC 1. xanC sub yanC sub def /A20C xanC kXANC sub yanC div A20 mul def /B20C zanC yanC div B20 mul def /A2C A20C A20D sub CSK mul YC mul def /B2C B20C B20D sub CSK mul YC mul kBC mul def /CAB2C A2C dup mul B2C dup mul add 0.0001 add sqrt def /hAB2C B2C A2C atan def /zanM 1. xanM sub yanM sub def /A20M xanM kXANC sub yanM div A20 mul def /B20M zanM yanM div B20 mul def /A2M A20M A20D sub CSK mul YM mul def /B2M B20M B20D sub CSK mul YM mul kBC mul def /CAB2M A2M dup mul B2M dup mul add 0.0001 add sqrt def /hAB2M B2M A2M atan def /zanY 1. xanY sub yanY sub def /A20Y xanY kXANC sub yanY div A20 mul def /B20Y zanY yanY div B20 mul def /A2Y A20Y A20D sub CSK mul YY mul def /B2Y B20Y B20D sub CSK mul YY mul kBC mul def /CAB2Y A2Y dup mul B2Y dup mul add 0.0001 add sqrt def /hAB2Y B2Y A2Y atan def /str 20 string def xchart4 0 eq {%xchart4=0 S3 yu3 0 yd mul add moveto xanC cvsshow3g S3 yu3 1 yd mul add moveto xanM cvsshow3g S3 yu3 2 yd mul add moveto xanY cvsshow3g S4 yu3 0 yd mul add moveto yanC cvsshow3g S4 yu3 1 yd mul add moveto yanM cvsshow3g S4 yu3 2 yd mul add moveto yanY cvsshow3g S5 yu3 0 yd mul add moveto XC cvsshow2g S5 yu3 1 yd mul add moveto XM cvsshow2g S5 yu3 2 yd mul add moveto XY cvsshow2g S6 yu3 0 yd mul add moveto YC cvsshow2g S6 yu3 1 yd mul add moveto YM cvsshow2g S6 yu3 2 yd mul add moveto YY cvsshow2g S7 yu3 0 yd mul add moveto ZC cvsshow2g S7 yu3 1 yd mul add moveto ZM cvsshow2g S7 yu3 2 yd mul add moveto ZY cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 yu3 0 yd mul add moveto L*C cvsshow2g S8 yu3 1 yd mul add moveto L*M cvsshow2g S8 yu3 2 yd mul add moveto L*Y cvsshow2g S9 yu3 0 yd mul add moveto a*C cvsshow2g S9 yu3 1 yd mul add moveto a*M cvsshow2g S9 yu3 2 yd mul add moveto a*Y cvsshow2g S10 yu3 0 yd mul add moveto b*C cvsshow2g S10 yu3 1 yd mul add moveto b*M cvsshow2g S10 yu3 2 yd mul add moveto b*Y cvsshow2g S11 yu3 0 yd mul add moveto C*C cvsshow2g S11 yu3 1 yd mul add moveto C*M cvsshow2g S11 yu3 2 yd mul add moveto C*Y cvsshow2g S12 yu3 0 yd mul add moveto hABC cvishow S12 yu3 1 yd mul add moveto hABM cvishow S12 yu3 2 yd mul add moveto hABY cvishow } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 yu3 0 yd mul add moveto YC cvsshow2g S13 yu3 1 yd mul add moveto YM cvsshow2g S13 yu3 2 yd mul add moveto YY cvsshow2g S14 yu3 0 yd mul add moveto A2C cvsshow2g S14 yu3 1 yd mul add moveto A2M cvsshow2g S14 yu3 2 yd mul add moveto A2Y cvsshow2g S15 yu3 0 yd mul add moveto B2C cvsshow2g S15 yu3 1 yd mul add moveto B2M cvsshow2g S15 yu3 2 yd mul add moveto B2Y cvsshow2g S16 yu3 0 yd mul add moveto CAB2C cvsshow2g S16 yu3 1 yd mul add moveto CAB2M cvsshow2g S16 yu3 2 yd mul add moveto CAB2Y cvsshow2g S17 yu3 0 yd mul add moveto hAB2C cvishow S17 yu3 1 yd mul add moveto hAB2M cvishow S17 yu3 2 yd mul add moveto hAB2Y cvishow } if %xchart4=2 xchart4 1 eq {%xchart4=1 S8 yu5 moveto RBG (Norm-CIELAB-Daten) showde TBG (Standard CIELAB data) showen (Datos CIELAB est\341ndar) showes TBM (Donn\351es normalis\351es CIELAB) showfr TBG (Standard dati CIELAB) showit (Standard CIELAB data) showjp TBIG ( L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050L*) show (d) jshowTM TBM K 0 eq {(=100,0 ) show}{(=88,6 ) show} ifelse (f\374r Wei\337; ) showde (for white; ) showen (para el blanco; ) showes (pour le blanc; ) showfr (per il bianco; ) showit (for hvit; ) showjp TBIM (L*) show (d) jshowTM TBM K 0 eq {(=0,0 ) show} {(=18,0 ) 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 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 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (R) show (d) ishowTG S1 yu1 yz 1 mul sub moveto TIG (G) show (d) ishowTG S1 yu1 yz 2 mul sub moveto TIG (B) show (d) ishowTG S2 50 add yu1 yz 0 mul sub moveto TG (Rot (Orangerot)) showde (Red (orange red)) showen (Rojo (naranja rojo)) showes (rouge (rouge orange)) showfr (Rosso (rosso aranjo)) showit (R\370d (oransje r\370d)) showjp S2 50 add yu1 yz 1 mul sub moveto TG (Gr\374n (Laubgr\374n)) showde (Green (leaf green)) showen (Verde (verde hoja)) showes (vert (vert de chrome)) showfr (Verde (verde foglia)) showit (Gr\370nn (leaf green)) showjp S2 50 add yu1 yz 2 mul sub moveto TG (Blau (Violettblau)) showde (Blue (violet blue)) showen (Azul (azul violeta)) showes (bleu (bleu violet)) showfr (Blu (blu violetto)) showit (Bl\345 (lilla bl\345)) showjp 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 TIG (W0 ) show TG ((wei\337er Monitor, 100%)) showde ((white monitor, 100%)) showen ((blanco monitor, 100%)) showes ((moniteur blanc, 100%)) showfr ((monitor bianco, 100%)) showit ((hvit skjerm, 100%)) showjp S1 yu0 moveto TIG (W1 ) show TG ((wei\337er Monitor, 88,6%)) showde ((white monitor, 88,6%)) showen ((blanco monitor, 88,6%)) showes ((moniteur blanc, 88,6%)) showfr ((monitor bianco, 88,6%)) showit ((hvit skjerm, 88,6%)) showjp S1 yn0 moveto TIG (N1 ) show TG ((schwarzer Monitor, 2,5%)) showde ((black monitor, 2,5%)) showen ((monitor negro, 2,5%)) showes ((moniteur noir, 2,5%)) showfr ((monitor nero, 2,5%)) showit ((svart skjerm, 2,5%)) showjp S1 y00 moveto TIG (N0 ) show TG ((schwarzer Monitor, 0%)) showde ((black monitor, 0,00%)) showen ((monitor negro, 0,00%)) showes ((moniteur noir, 0,00%)) showfr ((monitor nero, 0,00%)) showit ((svart skjerm, 0,00%)) showjp xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XW cvsshow2g S6 y11 moveto YW cvsshow2g S7 y11 moveto ZW cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XW 0.886 mul cvsshow2g S6 yu0 moveto YW 0.886 mul cvsshow2g S7 yu0 moveto ZW 0.886 mul cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XW 0.025 mul cvsshow2g S6 yn0 moveto YW 0.025 mul cvsshow2g S7 yn0 moveto ZW 0.025 mul cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XW 0.0 mul cvsshow2g S6 y00 moveto YW 0.0 mul cvsshow2g S7 y00 moveto ZW 0.0 mul cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 %W0 S8 y11 moveto (100,00) show S9 y11 moveto ( 0,00) show S10 y11 moveto ( 0,00) show S11 y11 moveto ( 0,00) show S12 y11 moveto ( 0) show %W1 S8 yu0 moveto ( 95,40) show S9 yu0 moveto ( 0,00) show S10 yu0 moveto ( 0,00) show S11 yu0 moveto ( 0,00) show S12 yu0 moveto ( 0) show %N1 S8 yn0 moveto ( 18,00) show S9 yn0 moveto ( 0,00) show S10 yn0 moveto ( 0,00) show S11 yn0 moveto ( 0,00) show S12 yn0 moveto ( 0) show %N0 S8 y00 moveto ( 0,00) show S9 y00 moveto ( 0,00) show S10 y00 moveto ( 0,00) show S11 y00 moveto ( 0,00) show S12 y00 moveto ( 0) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 y11 moveto (100,00) show S14 y11 moveto ( 0,00) show S15 y11 moveto ( 0,00) show S16 y11 moveto ( 0,00) show S17 y11 moveto ( 0) show S13 yu0 moveto ( 88,60) 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 ( 2,50) 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 BET70-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET70-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-1, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-1,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-2, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-2,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-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/BET7/BET7.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:2022030112000) /ModDate (D:2022030112000) /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 2 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 2 def 72 85 moveto 5 /Times-Roman FS (BET71-3N) show 5 /Times-ISOL1 FS 72 90 translate /ytit 550 def /yhoe 7850 def /yhoet yhoe ytit sub def /xwide 10800 def 0.0110 MM 0.0110 MM scale 15 setlinewidth 1.0 setgray 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath fill 0.0 setgray 0 0 moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto closepath stroke /tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def /TEAde {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showde} for} bind def /TEAea {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showea} for} bind def /yd -400 def %y-Zeilenabstand %Spalten /S1 100 def /S2 600 def /S3 4700 def %xyXYZ /S4 5800 def /S5 6900 def /S6 8100 def /S7 9300 def /S8 4700 def %10300 def %LAB* /S9 6000 def %11600 def /S10 7300 def %12900 def /S11 8600 def %14200 def /S12 9900 def %15500 def /S13 4700 def %16500 def %lab /S14 5900 def %17700 def /S15 7200 def %19000 def /S16 8500 def %20300 def /S17 9800 def %21600 def /yz 400 def /y00 100 def /yn0 500 def /yu0 900 def /y11 1300 def /y1P 1700 def /yu1 {y11 400 add yz 4 mul add} bind def /yu2 {yu1 50 add yz 1 mul add} bind def /yu3 {yu2 200 add yz 3 mul add} bind def /yu4 {yu3 50 add yz 1 mul add} bind def /yu5 {yu4 200 add yz 3 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def /yhoey yhoet 900 sub def xchart4 0 eq {%xchart4=0 S3 100 sub yhoet moveto 0 yhoet neg rlineto stroke S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke S5 100 sub yhoet moveto 0 yhoet neg rlineto stroke S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke S7 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 100 sub yhoet moveto 0 yhoet neg rlineto stroke S9 100 sub yhoey moveto 0 yhoey neg rlineto stroke S10 100 sub yhoey moveto 0 yhoey neg rlineto stroke S11 100 sub yhoey moveto 0 yhoey neg rlineto stroke S12 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 100 sub yhoet moveto 0 yhoet neg rlineto stroke S14 100 sub yhoey moveto 0 yhoey neg rlineto stroke S15 100 sub yhoey moveto 0 yhoey neg rlineto stroke S16 100 sub yhoey moveto 0 yhoey neg rlineto stroke S17 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=2 %Titeltext %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /K 1 def %normalization 0: 1,000, 1: 0,886 /LTV 0 def %0: sRGB, 1: WCG K 0 eq {/Yfak 1.000 def} {/Yfak 0.886 def} ifelse 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 RBG (-Mischfarbe ) showde TBG (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 RBG (CIE-Daten ) showde TBG (f\374r) showde TBG (CIE data for) showen (Datos CIE para) showes TBM (donn\351es D65 CIE pour) showfr TBG (Dati CIE per) showit (CIE data for) showjp lanind 2 ne {TBIG ( Y) show (W) jshowTG TBG} {TBIM ( Y) show (W) jshowTM TBM} ifelse K 0 eq {(=100 ) show} {(=88,6) show} ifelse 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (C) show (d) ishowTG S1 yu3 yz 1 mul sub moveto TIG (M) show (d) ishowTG S1 yu3 yz 2 mul sub moveto TIG (Y) show (d) ishowTG S2 50 add yu3 yz 0 mul sub moveto TG (Cyan (Cyanblau)) showde (Cyan (Cyan blue)) showen (Cian (cian azul)) showes (Cyan (bleu Cyan)) showfr (Ciano (blu ciano)) showit (Cyan (Cyan bl\345)) showjp S2 50 add yu3 yz 1 mul sub moveto TG (Magenta (Magentarot)) showde (Magenta (magenta red)) showen (Magenta (rojo magenta)) showes (magenta (rouge magenta)) showfr (Magenta (rosso magenta)) showit (Magenta (magenta r\370d)) showjp S2 50 add yu3 yz 2 mul sub moveto TG (Gelb) showde (Yellow) showen (Amarillo) showes (jaune) showfr (Giallo) showit (Gul) showjp LTV 0 eq {%LTV=0 %ITU-R BT.709-3 /xanR 0.640 def /yanR 0.330 def /xanG 0.300 def /yanG 0.600 def /xanB 0.150 def /yanB 0.060 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2126 def /lG 0.7152 def /lB 0.0722 def } if %LTV=0 LTV 1 eq {%LTV=1 %ITU-R BT.2020-2 /xanR 0.708 def /yanR 0.292 def /xanG 0.170 def /yanG 0.797 def /xanB 0.131 def /yanB 0.046 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2627 def /lG 0.6780 def /lB 0.0593 def } if %LTV=1 /XW 95.05 def /YW 100.00 def /ZW 108.90 def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /proz_XYZ_Lab* {%BEG proz_XYZ_Lab* /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } bind def %END proz_XYZ_Lab* /SR 100. yanR div lR mul def /SG 100. yanG div lG mul def /SB 100. yanB div lB mul def /SD 100. yanD div 1 mul def /XR xanR SR mul Yfak mul def /XG xanG SG mul Yfak mul def /XB xanB SB mul Yfak mul def /XD xanD SD mul Yfak mul def /YR yanR SR mul Yfak mul def /YG yanG SG mul Yfak mul def /YB yanB SB mul Yfak mul def /YD yanD SD mul Yfak mul def /ZR 1 xanR sub yanR sub SR mul Yfak mul def /ZG 1 xanG sub yanG sub SG mul Yfak mul def /ZB 1 xanB sub yanB sub SB mul Yfak mul def /ZD 1 xanD sub yanD sub SD mul Yfak mul def /XC XG XB add def /YC YG YB add def /ZC ZG ZB add def /SC XC YC add ZC add def /XM XB XR add def /YM YB YR add def /ZM ZB ZR add def /SM XM YM add ZM add def /XY XR XG add def /YY YR YG add def /ZY ZR ZG add def /SY XY YY add ZY add def /xanC XC SC div def /yanC YC SC div def /xanM XM SM div def /yanM YM SM div def /xanY XY SY div def /yanY YY SY div def /Xnref XR def /Ynref YR def /Znref ZR def proz_XYZ_Lab* /L*R L*ref def /a*R a*ref def /b*R b*ref def /C*R a*R dup mul b*R dup mul add sqrt def /habR b*R a*R atan def /Xnref XG def /Ynref YG def /Znref ZG def proz_XYZ_Lab* /L*G L*ref def /a*G a*ref def /b*G b*ref def /C*G a*G dup mul b*G dup mul add sqrt def /habG b*G a*G atan def /Xnref XB def /Ynref YB def /Znref ZB def proz_XYZ_Lab* /L*B L*ref def /a*B a*ref def /b*B b*ref def /C*B a*B dup mul b*B dup mul add sqrt def /habB b*B a*B atan def /Xnref XC def /Ynref YC def /Znref ZC def proz_XYZ_Lab* /L*C L*ref def /a*C a*ref def /b*C b*ref def /C*C a*C dup mul b*C dup mul add sqrt def /habC b*C a*C atan def /Xnref XM def /Ynref YM def /Znref ZM def proz_XYZ_Lab* /L*M L*ref def /a*M a*ref def /b*M b*ref def /C*M a*M dup mul b*M dup mul add sqrt def /habM b*M a*M atan def /Xnref XY def /Ynref YY def /Znref ZY def proz_XYZ_Lab* /L*Y L*ref def /a*Y a*ref def /b*Y b*ref def /C*Y a*Y dup mul b*Y dup mul add sqrt def /habY b*Y a*Y atan def /AR XR XWr mul YR YWr mul sub def /BR YR YWr mul ZR ZWr mul sub 0.4 mul def /CR AR dup mul BR dup mul add sqrt def /hABR BR AR atan def /AG XG XWr mul YG YWr mul sub def /BG YG YWr mul ZG ZWr mul sub 0.4 mul def /CG AG dup mul BG dup mul add sqrt def /hABG BG AG atan def /AB XB XWr mul YB YWr mul sub def /BB YB YWr mul ZB ZWr mul sub 0.4 mul def /CB AB dup mul BB dup mul add sqrt def /hABB BB AB atan def /AC XC XWr mul YC YWr mul sub def /BC YC YWr mul ZC ZWr mul sub 0.4 mul def /CC AC dup mul BC dup mul add sqrt def /hABC BC AC atan def /AM XM XWr mul YM YWr mul sub def /BM YM YWr mul ZM ZWr mul sub 0.4 mul def /CM AM dup mul BM dup mul add sqrt def /hABM BM AM atan def /AY XY XWr mul YY YWr mul sub def /BY YY YWr mul ZY ZWr mul sub 0.4 mul def /CY AY dup mul BY dup mul add sqrt def /hABY BY AY atan def %LAB2 %(X/Y)an(R/G/B/C/M/Y/D) are known /kXANC 0.110 def /kBC 0.800 def /A20 1.000 def /B20 -0.400 def /CSK 2.500 def /zanD 1. xanD sub yanD sub def /A20D xanD kXANC sub yanD div A20 mul def /B20D zanD yanD div B20 mul def /zanR 1. xanR sub yanR sub def /A20R xanR kXANC sub yanR div A20 mul def /B20R zanR yanR div B20 mul def /A2R A20R A20D sub CSK mul YR mul def /B2R B20R B20D sub CSK mul YR mul kBC mul def /CAB2R A2R dup mul B2R dup mul add 0.0001 add sqrt def /hAB2R B2R A2R atan def /zanG 1. xanG sub yanG sub def /A20G xanG kXANC sub yanG div A20 mul def /B20G zanG yanG div B20 mul def /A2G A20G A20D sub CSK mul YG mul def /B2G B20G B20D sub CSK mul YG mul kBC mul def /CAB2G A2G dup mul B2G dup mul add 0.0001 add sqrt def /hAB2G B2G A2G atan def /zanB 1. xanB sub yanB sub def /A20B xanB kXANC sub yanB div A20 mul def /B20B zanB yanB div B20 mul def /A2B A20B A20D sub CSK mul YB mul def /B2B B20B B20D sub CSK mul YB mul kBC mul def /CAB2B A2B dup mul B2B dup mul add 0.0001 add sqrt def /hAB2B B2B A2B atan def /zanC 1. xanC sub yanC sub def /A20C xanC kXANC sub yanC div A20 mul def /B20C zanC yanC div B20 mul def /A2C A20C A20D sub CSK mul YC mul def /B2C B20C B20D sub CSK mul YC mul kBC mul def /CAB2C A2C dup mul B2C dup mul add 0.0001 add sqrt def /hAB2C B2C A2C atan def /zanM 1. xanM sub yanM sub def /A20M xanM kXANC sub yanM div A20 mul def /B20M zanM yanM div B20 mul def /A2M A20M A20D sub CSK mul YM mul def /B2M B20M B20D sub CSK mul YM mul kBC mul def /CAB2M A2M dup mul B2M dup mul add 0.0001 add sqrt def /hAB2M B2M A2M atan def /zanY 1. xanY sub yanY sub def /A20Y xanY kXANC sub yanY div A20 mul def /B20Y zanY yanY div B20 mul def /A2Y A20Y A20D sub CSK mul YY mul def /B2Y B20Y B20D sub CSK mul YY mul kBC mul def /CAB2Y A2Y dup mul B2Y dup mul add 0.0001 add sqrt def /hAB2Y B2Y A2Y atan def /str 20 string def xchart4 0 eq {%xchart4=0 S3 yu3 0 yd mul add moveto xanC cvsshow3g S3 yu3 1 yd mul add moveto xanM cvsshow3g S3 yu3 2 yd mul add moveto xanY cvsshow3g S4 yu3 0 yd mul add moveto yanC cvsshow3g S4 yu3 1 yd mul add moveto yanM cvsshow3g S4 yu3 2 yd mul add moveto yanY cvsshow3g S5 yu3 0 yd mul add moveto XC cvsshow2g S5 yu3 1 yd mul add moveto XM cvsshow2g S5 yu3 2 yd mul add moveto XY cvsshow2g S6 yu3 0 yd mul add moveto YC cvsshow2g S6 yu3 1 yd mul add moveto YM cvsshow2g S6 yu3 2 yd mul add moveto YY cvsshow2g S7 yu3 0 yd mul add moveto ZC cvsshow2g S7 yu3 1 yd mul add moveto ZM cvsshow2g S7 yu3 2 yd mul add moveto ZY cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 yu3 0 yd mul add moveto L*C cvsshow2g S8 yu3 1 yd mul add moveto L*M cvsshow2g S8 yu3 2 yd mul add moveto L*Y cvsshow2g S9 yu3 0 yd mul add moveto a*C cvsshow2g S9 yu3 1 yd mul add moveto a*M cvsshow2g S9 yu3 2 yd mul add moveto a*Y cvsshow2g S10 yu3 0 yd mul add moveto b*C cvsshow2g S10 yu3 1 yd mul add moveto b*M cvsshow2g S10 yu3 2 yd mul add moveto b*Y cvsshow2g S11 yu3 0 yd mul add moveto C*C cvsshow2g S11 yu3 1 yd mul add moveto C*M cvsshow2g S11 yu3 2 yd mul add moveto C*Y cvsshow2g S12 yu3 0 yd mul add moveto hABC cvishow S12 yu3 1 yd mul add moveto hABM cvishow S12 yu3 2 yd mul add moveto hABY cvishow } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 yu3 0 yd mul add moveto YC cvsshow2g S13 yu3 1 yd mul add moveto YM cvsshow2g S13 yu3 2 yd mul add moveto YY cvsshow2g S14 yu3 0 yd mul add moveto A2C cvsshow2g S14 yu3 1 yd mul add moveto A2M cvsshow2g S14 yu3 2 yd mul add moveto A2Y cvsshow2g S15 yu3 0 yd mul add moveto B2C cvsshow2g S15 yu3 1 yd mul add moveto B2M cvsshow2g S15 yu3 2 yd mul add moveto B2Y cvsshow2g S16 yu3 0 yd mul add moveto CAB2C cvsshow2g S16 yu3 1 yd mul add moveto CAB2M cvsshow2g S16 yu3 2 yd mul add moveto CAB2Y cvsshow2g S17 yu3 0 yd mul add moveto hAB2C cvishow S17 yu3 1 yd mul add moveto hAB2M cvishow S17 yu3 2 yd mul add moveto hAB2Y cvishow } if %xchart4=2 xchart4 1 eq {%xchart4=1 S8 yu5 moveto RBG (Norm-CIELAB-Daten) showde TBG (Standard CIELAB data) showen (Datos CIELAB est\341ndar) showes TBM (Donn\351es normalis\351es CIELAB) showfr TBG (Standard dati CIELAB) showit (Standard CIELAB data) showjp TBIG ( L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050L*) show (d) jshowTM TBM K 0 eq {(=100,0 ) show}{(=88,6 ) show} ifelse (f\374r Wei\337; ) showde (for white; ) showen (para el blanco; ) showes (pour le blanc; ) showfr (per il bianco; ) showit (for hvit; ) showjp TBIM (L*) show (d) jshowTM TBM K 0 eq {(=0,0 ) show} {(=18,0 ) 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 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 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (R) show (d) ishowTG S1 yu1 yz 1 mul sub moveto TIG (G) show (d) ishowTG S1 yu1 yz 2 mul sub moveto TIG (B) show (d) ishowTG S2 50 add yu1 yz 0 mul sub moveto TG (Rot (Orangerot)) showde (Red (orange red)) showen (Rojo (naranja rojo)) showes (rouge (rouge orange)) showfr (Rosso (rosso aranjo)) showit (R\370d (oransje r\370d)) showjp S2 50 add yu1 yz 1 mul sub moveto TG (Gr\374n (Laubgr\374n)) showde (Green (leaf green)) showen (Verde (verde hoja)) showes (vert (vert de chrome)) showfr (Verde (verde foglia)) showit (Gr\370nn (leaf green)) showjp S2 50 add yu1 yz 2 mul sub moveto TG (Blau (Violettblau)) showde (Blue (violet blue)) showen (Azul (azul violeta)) showes (bleu (bleu violet)) showfr (Blu (blu violetto)) showit (Bl\345 (lilla bl\345)) showjp 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 TIG (W0 ) show TG ((wei\337er Monitor, 100%)) showde ((white monitor, 100%)) showen ((blanco monitor, 100%)) showes ((moniteur blanc, 100%)) showfr ((monitor bianco, 100%)) showit ((hvit skjerm, 100%)) showjp S1 yu0 moveto TIG (W1 ) show TG ((wei\337er Monitor, 88,6%)) showde ((white monitor, 88,6%)) showen ((blanco monitor, 88,6%)) showes ((moniteur blanc, 88,6%)) showfr ((monitor bianco, 88,6%)) showit ((hvit skjerm, 88,6%)) showjp S1 yn0 moveto TIG (N1 ) show TG ((schwarzer Monitor, 2,5%)) showde ((black monitor, 2,5%)) showen ((monitor negro, 2,5%)) showes ((moniteur noir, 2,5%)) showfr ((monitor nero, 2,5%)) showit ((svart skjerm, 2,5%)) showjp S1 y00 moveto TIG (N0 ) show TG ((schwarzer Monitor, 0%)) showde ((black monitor, 0,00%)) showen ((monitor negro, 0,00%)) showes ((moniteur noir, 0,00%)) showfr ((monitor nero, 0,00%)) showit ((svart skjerm, 0,00%)) showjp xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XW cvsshow2g S6 y11 moveto YW cvsshow2g S7 y11 moveto ZW cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XW 0.886 mul cvsshow2g S6 yu0 moveto YW 0.886 mul cvsshow2g S7 yu0 moveto ZW 0.886 mul cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XW 0.025 mul cvsshow2g S6 yn0 moveto YW 0.025 mul cvsshow2g S7 yn0 moveto ZW 0.025 mul cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XW 0.0 mul cvsshow2g S6 y00 moveto YW 0.0 mul cvsshow2g S7 y00 moveto ZW 0.0 mul cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 %W0 S8 y11 moveto (100,00) show S9 y11 moveto ( 0,00) show S10 y11 moveto ( 0,00) show S11 y11 moveto ( 0,00) show S12 y11 moveto ( 0) show %W1 S8 yu0 moveto ( 95,40) show S9 yu0 moveto ( 0,00) show S10 yu0 moveto ( 0,00) show S11 yu0 moveto ( 0,00) show S12 yu0 moveto ( 0) show %N1 S8 yn0 moveto ( 18,00) show S9 yn0 moveto ( 0,00) show S10 yn0 moveto ( 0,00) show S11 yn0 moveto ( 0,00) show S12 yn0 moveto ( 0) show %N0 S8 y00 moveto ( 0,00) show S9 y00 moveto ( 0,00) show S10 y00 moveto ( 0,00) show S11 y00 moveto ( 0,00) show S12 y00 moveto ( 0) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 y11 moveto (100,00) show S14 y11 moveto ( 0,00) show S15 y11 moveto ( 0,00) show S16 y11 moveto ( 0,00) show S17 y11 moveto ( 0) show S13 yu0 moveto ( 88,60) 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 ( 2,50) 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 BET71-4, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-4,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-5, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-5,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-6, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-6,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 BET71-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/BET7/BET7.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:2022030112000) /ModDate (D:2022030112000) /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 2 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 2 def 72 85 moveto 5 /Times-Roman FS (BET71-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 4700 def %10300 def %LAB* /S9 6000 def %11600 def /S10 7300 def %12900 def /S11 8600 def %14200 def /S12 9900 def %15500 def /S13 4700 def %16500 def %lab /S14 5900 def %17700 def /S15 7200 def %19000 def /S16 8500 def %20300 def /S17 9800 def %21600 def /yz 400 def /y00 100 def /yn0 500 def /yu0 900 def /y11 1300 def /y1P 1700 def /yu1 {y11 400 add yz 4 mul add} bind def /yu2 {yu1 50 add yz 1 mul add} bind def /yu3 {yu2 200 add yz 3 mul add} bind def /yu4 {yu3 50 add yz 1 mul add} bind def /yu5 {yu4 200 add yz 3 mul add} bind def /yu6 {yu5 100 add yz 1 mul add} bind def /yhoey yhoet 900 sub def xchart4 0 eq {%xchart4=0 S3 100 sub yhoet moveto 0 yhoet neg rlineto stroke S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke S5 100 sub yhoet moveto 0 yhoet neg rlineto stroke S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke S7 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 100 sub yhoet moveto 0 yhoet neg rlineto stroke S9 100 sub yhoey moveto 0 yhoey neg rlineto stroke S10 100 sub yhoey moveto 0 yhoey neg rlineto stroke S11 100 sub yhoey moveto 0 yhoey neg rlineto stroke S12 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 100 sub yhoet moveto 0 yhoet neg rlineto stroke S14 100 sub yhoey moveto 0 yhoey neg rlineto stroke S15 100 sub yhoey moveto 0 yhoey neg rlineto stroke S16 100 sub yhoey moveto 0 yhoey neg rlineto stroke S17 100 sub yhoey moveto 0 yhoey neg rlineto stroke } if %xchart4=2 %Titeltext %calculated by E6511-71.PS 20.6.2003 O=Offset, R/LS=Reflective or Luminous System %xx=00,18,27,33 correspond to L* data, RA=Reflective adapted, RC=Reflective CIE /K 1 def %normalization 0: 1,000, 1: 0,886 /LTV 1 def %0: sRGB, 1: WCG K 0 eq {/Yfak 1.000 def} {/Yfak 0.886 def} ifelse 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 RBG (-Mischfarbe ) showde TBG (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 RBG (CIE-Daten ) showde TBG (f\374r) showde TBG (CIE data for) showen (Datos CIE para) showes TBM (donn\351es D65 CIE pour) showfr TBG (Dati CIE per) showit (CIE data for) showjp lanind 2 ne {TBIG ( Y) show (W) jshowTG TBG} {TBIM ( Y) show (W) jshowTM TBM} ifelse K 0 eq {(=100 ) show} {(=88,6) show} ifelse 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (C) show (d) ishowTG S1 yu3 yz 1 mul sub moveto TIG (M) show (d) ishowTG S1 yu3 yz 2 mul sub moveto TIG (Y) show (d) ishowTG S2 50 add yu3 yz 0 mul sub moveto TG (Cyan (Cyanblau)) showde (Cyan (Cyan blue)) showen (Cian (cian azul)) showes (Cyan (bleu Cyan)) showfr (Ciano (blu ciano)) showit (Cyan (Cyan bl\345)) showjp S2 50 add yu3 yz 1 mul sub moveto TG (Magenta (Magentarot)) showde (Magenta (magenta red)) showen (Magenta (rojo magenta)) showes (magenta (rouge magenta)) showfr (Magenta (rosso magenta)) showit (Magenta (magenta r\370d)) showjp S2 50 add yu3 yz 2 mul sub moveto TG (Gelb) showde (Yellow) showen (Amarillo) showes (jaune) showfr (Giallo) showit (Gul) showjp LTV 0 eq {%LTV=0 %ITU-R BT.709-3 /xanR 0.640 def /yanR 0.330 def /xanG 0.300 def /yanG 0.600 def /xanB 0.150 def /yanB 0.060 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2126 def /lG 0.7152 def /lB 0.0722 def } if %LTV=0 LTV 1 eq {%LTV=1 %ITU-R BT.2020-2 /xanR 0.708 def /yanR 0.292 def /xanG 0.170 def /yanG 0.797 def /xanB 0.131 def /yanB 0.046 def /xanD 0.3127 def /yanD 0.3290 def /lR 0.2627 def /lG 0.6780 def /lB 0.0593 def } if %LTV=1 /XW 95.05 def /YW 100.00 def /ZW 108.90 def /XWr YW XW div def /YWr 1 def /ZWr YW ZW div def /proz_XYZ_Lab* {%BEG proz_XYZ_Lab* /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul def /b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul def } bind def %END proz_XYZ_Lab* /SR 100. yanR div lR mul def /SG 100. yanG div lG mul def /SB 100. yanB div lB mul def /SD 100. yanD div 1 mul def /XR xanR SR mul Yfak mul def /XG xanG SG mul Yfak mul def /XB xanB SB mul Yfak mul def /XD xanD SD mul Yfak mul def /YR yanR SR mul Yfak mul def /YG yanG SG mul Yfak mul def /YB yanB SB mul Yfak mul def /YD yanD SD mul Yfak mul def /ZR 1 xanR sub yanR sub SR mul Yfak mul def /ZG 1 xanG sub yanG sub SG mul Yfak mul def /ZB 1 xanB sub yanB sub SB mul Yfak mul def /ZD 1 xanD sub yanD sub SD mul Yfak mul def /XC XG XB add def /YC YG YB add def /ZC ZG ZB add def /SC XC YC add ZC add def /XM XB XR add def /YM YB YR add def /ZM ZB ZR add def /SM XM YM add ZM add def /XY XR XG add def /YY YR YG add def /ZY ZR ZG add def /SY XY YY add ZY add def /xanC XC SC div def /yanC YC SC div def /xanM XM SM div def /yanM YM SM div def /xanY XY SY div def /yanY YY SY div def /Xnref XR def /Ynref YR def /Znref ZR def proz_XYZ_Lab* /L*R L*ref def /a*R a*ref def /b*R b*ref def /C*R a*R dup mul b*R dup mul add sqrt def /habR b*R a*R atan def /Xnref XG def /Ynref YG def /Znref ZG def proz_XYZ_Lab* /L*G L*ref def /a*G a*ref def /b*G b*ref def /C*G a*G dup mul b*G dup mul add sqrt def /habG b*G a*G atan def /Xnref XB def /Ynref YB def /Znref ZB def proz_XYZ_Lab* /L*B L*ref def /a*B a*ref def /b*B b*ref def /C*B a*B dup mul b*B dup mul add sqrt def /habB b*B a*B atan def /Xnref XC def /Ynref YC def /Znref ZC def proz_XYZ_Lab* /L*C L*ref def /a*C a*ref def /b*C b*ref def /C*C a*C dup mul b*C dup mul add sqrt def /habC b*C a*C atan def /Xnref XM def /Ynref YM def /Znref ZM def proz_XYZ_Lab* /L*M L*ref def /a*M a*ref def /b*M b*ref def /C*M a*M dup mul b*M dup mul add sqrt def /habM b*M a*M atan def /Xnref XY def /Ynref YY def /Znref ZY def proz_XYZ_Lab* /L*Y L*ref def /a*Y a*ref def /b*Y b*ref def /C*Y a*Y dup mul b*Y dup mul add sqrt def /habY b*Y a*Y atan def /AR XR XWr mul YR YWr mul sub def /BR YR YWr mul ZR ZWr mul sub 0.4 mul def /CR AR dup mul BR dup mul add sqrt def /hABR BR AR atan def /AG XG XWr mul YG YWr mul sub def /BG YG YWr mul ZG ZWr mul sub 0.4 mul def /CG AG dup mul BG dup mul add sqrt def /hABG BG AG atan def /AB XB XWr mul YB YWr mul sub def /BB YB YWr mul ZB ZWr mul sub 0.4 mul def /CB AB dup mul BB dup mul add sqrt def /hABB BB AB atan def /AC XC XWr mul YC YWr mul sub def /BC YC YWr mul ZC ZWr mul sub 0.4 mul def /CC AC dup mul BC dup mul add sqrt def /hABC BC AC atan def /AM XM XWr mul YM YWr mul sub def /BM YM YWr mul ZM ZWr mul sub 0.4 mul def /CM AM dup mul BM dup mul add sqrt def /hABM BM AM atan def /AY XY XWr mul YY YWr mul sub def /BY YY YWr mul ZY ZWr mul sub 0.4 mul def /CY AY dup mul BY dup mul add sqrt def /hABY BY AY atan def %LAB2 %(X/Y)an(R/G/B/C/M/Y/D) are known /kXANC 0.110 def /kBC 0.800 def /A20 1.000 def /B20 -0.400 def /CSK 2.500 def /zanD 1. xanD sub yanD sub def /A20D xanD kXANC sub yanD div A20 mul def /B20D zanD yanD div B20 mul def /zanR 1. xanR sub yanR sub def /A20R xanR kXANC sub yanR div A20 mul def /B20R zanR yanR div B20 mul def /A2R A20R A20D sub CSK mul YR mul def /B2R B20R B20D sub CSK mul YR mul kBC mul def /CAB2R A2R dup mul B2R dup mul add 0.0001 add sqrt def /hAB2R B2R A2R atan def /zanG 1. xanG sub yanG sub def /A20G xanG kXANC sub yanG div A20 mul def /B20G zanG yanG div B20 mul def /A2G A20G A20D sub CSK mul YG mul def /B2G B20G B20D sub CSK mul YG mul kBC mul def /CAB2G A2G dup mul B2G dup mul add 0.0001 add sqrt def /hAB2G B2G A2G atan def /zanB 1. xanB sub yanB sub def /A20B xanB kXANC sub yanB div A20 mul def /B20B zanB yanB div B20 mul def /A2B A20B A20D sub CSK mul YB mul def /B2B B20B B20D sub CSK mul YB mul kBC mul def /CAB2B A2B dup mul B2B dup mul add 0.0001 add sqrt def /hAB2B B2B A2B atan def /zanC 1. xanC sub yanC sub def /A20C xanC kXANC sub yanC div A20 mul def /B20C zanC yanC div B20 mul def /A2C A20C A20D sub CSK mul YC mul def /B2C B20C B20D sub CSK mul YC mul kBC mul def /CAB2C A2C dup mul B2C dup mul add 0.0001 add sqrt def /hAB2C B2C A2C atan def /zanM 1. xanM sub yanM sub def /A20M xanM kXANC sub yanM div A20 mul def /B20M zanM yanM div B20 mul def /A2M A20M A20D sub CSK mul YM mul def /B2M B20M B20D sub CSK mul YM mul kBC mul def /CAB2M A2M dup mul B2M dup mul add 0.0001 add sqrt def /hAB2M B2M A2M atan def /zanY 1. xanY sub yanY sub def /A20Y xanY kXANC sub yanY div A20 mul def /B20Y zanY yanY div B20 mul def /A2Y A20Y A20D sub CSK mul YY mul def /B2Y B20Y B20D sub CSK mul YY mul kBC mul def /CAB2Y A2Y dup mul B2Y dup mul add 0.0001 add sqrt def /hAB2Y B2Y A2Y atan def /str 20 string def xchart4 0 eq {%xchart4=0 S3 yu3 0 yd mul add moveto xanC cvsshow3g S3 yu3 1 yd mul add moveto xanM cvsshow3g S3 yu3 2 yd mul add moveto xanY cvsshow3g S4 yu3 0 yd mul add moveto yanC cvsshow3g S4 yu3 1 yd mul add moveto yanM cvsshow3g S4 yu3 2 yd mul add moveto yanY cvsshow3g S5 yu3 0 yd mul add moveto XC cvsshow2g S5 yu3 1 yd mul add moveto XM cvsshow2g S5 yu3 2 yd mul add moveto XY cvsshow2g S6 yu3 0 yd mul add moveto YC cvsshow2g S6 yu3 1 yd mul add moveto YM cvsshow2g S6 yu3 2 yd mul add moveto YY cvsshow2g S7 yu3 0 yd mul add moveto ZC cvsshow2g S7 yu3 1 yd mul add moveto ZM cvsshow2g S7 yu3 2 yd mul add moveto ZY cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 S8 yu3 0 yd mul add moveto L*C cvsshow2g S8 yu3 1 yd mul add moveto L*M cvsshow2g S8 yu3 2 yd mul add moveto L*Y cvsshow2g S9 yu3 0 yd mul add moveto a*C cvsshow2g S9 yu3 1 yd mul add moveto a*M cvsshow2g S9 yu3 2 yd mul add moveto a*Y cvsshow2g S10 yu3 0 yd mul add moveto b*C cvsshow2g S10 yu3 1 yd mul add moveto b*M cvsshow2g S10 yu3 2 yd mul add moveto b*Y cvsshow2g S11 yu3 0 yd mul add moveto C*C cvsshow2g S11 yu3 1 yd mul add moveto C*M cvsshow2g S11 yu3 2 yd mul add moveto C*Y cvsshow2g S12 yu3 0 yd mul add moveto hABC cvishow S12 yu3 1 yd mul add moveto hABM cvishow S12 yu3 2 yd mul add moveto hABY cvishow } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 yu3 0 yd mul add moveto YC cvsshow2g S13 yu3 1 yd mul add moveto YM cvsshow2g S13 yu3 2 yd mul add moveto YY cvsshow2g S14 yu3 0 yd mul add moveto A2C cvsshow2g S14 yu3 1 yd mul add moveto A2M cvsshow2g S14 yu3 2 yd mul add moveto A2Y cvsshow2g S15 yu3 0 yd mul add moveto B2C cvsshow2g S15 yu3 1 yd mul add moveto B2M cvsshow2g S15 yu3 2 yd mul add moveto B2Y cvsshow2g S16 yu3 0 yd mul add moveto CAB2C cvsshow2g S16 yu3 1 yd mul add moveto CAB2M cvsshow2g S16 yu3 2 yd mul add moveto CAB2Y cvsshow2g S17 yu3 0 yd mul add moveto hAB2C cvishow S17 yu3 1 yd mul add moveto hAB2M cvishow S17 yu3 2 yd mul add moveto hAB2Y cvishow } if %xchart4=2 xchart4 1 eq {%xchart4=1 S8 yu5 moveto RBG (Norm-CIELAB-Daten) showde TBG (Standard CIELAB data) showen (Datos CIELAB est\341ndar) showes TBM (Donn\351es normalis\351es CIELAB) showfr TBG (Standard dati CIELAB) showit (Standard CIELAB data) showjp TBIG ( L*a*b*C*) show (ab) jshowTG TBIG (h) show (ab) jshowTG S8 yu5 400 sub moveto TBIM (\050L*) show (d) jshowTM TBM K 0 eq {(=100,0 ) show}{(=88,6 ) show} ifelse (f\374r Wei\337; ) showde (for white; ) showen (para el blanco; ) showes (pour le blanc; ) showfr (per il bianco; ) showit (for hvit; ) showjp TBIM (L*) show (d) jshowTM TBM K 0 eq {(=0,0 ) show} {(=18,0 ) 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 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 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 K 0 eq {(=100,0 ) show} {(=88,6 ) show} ifelse (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 TIG (R) show (d) ishowTG S1 yu1 yz 1 mul sub moveto TIG (G) show (d) ishowTG S1 yu1 yz 2 mul sub moveto TIG (B) show (d) ishowTG S2 50 add yu1 yz 0 mul sub moveto TG (Rot (Orangerot)) showde (Red (orange red)) showen (Rojo (naranja rojo)) showes (rouge (rouge orange)) showfr (Rosso (rosso aranjo)) showit (R\370d (oransje r\370d)) showjp S2 50 add yu1 yz 1 mul sub moveto TG (Gr\374n (Laubgr\374n)) showde (Green (leaf green)) showen (Verde (verde hoja)) showes (vert (vert de chrome)) showfr (Verde (verde foglia)) showit (Gr\370nn (leaf green)) showjp S2 50 add yu1 yz 2 mul sub moveto TG (Blau (Violettblau)) showde (Blue (violet blue)) showen (Azul (azul violeta)) showes (bleu (bleu violet)) showfr (Blu (blu violetto)) showit (Bl\345 (lilla bl\345)) showjp 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 TIG (W0 ) show TG ((wei\337er Monitor, 100%)) showde ((white monitor, 100%)) showen ((blanco monitor, 100%)) showes ((moniteur blanc, 100%)) showfr ((monitor bianco, 100%)) showit ((hvit skjerm, 100%)) showjp S1 yu0 moveto TIG (W1 ) show TG ((wei\337er Monitor, 88,6%)) showde ((white monitor, 88,6%)) showen ((blanco monitor, 88,6%)) showes ((moniteur blanc, 88,6%)) showfr ((monitor bianco, 88,6%)) showit ((hvit skjerm, 88,6%)) showjp S1 yn0 moveto TIG (N1 ) show TG ((schwarzer Monitor, 2,5%)) showde ((black monitor, 2,5%)) showen ((monitor negro, 2,5%)) showes ((moniteur noir, 2,5%)) showfr ((monitor nero, 2,5%)) showit ((svart skjerm, 2,5%)) showjp S1 y00 moveto TIG (N0 ) show TG ((schwarzer Monitor, 0%)) showde ((black monitor, 0,00%)) showen ((monitor negro, 0,00%)) showes ((moniteur noir, 0,00%)) showfr ((monitor nero, 0,00%)) showit ((svart skjerm, 0,00%)) showjp xchart4 0 eq {%xchart4=0 S3 y11 moveto xanD cvsshow3g S4 y11 moveto yanD cvsshow3g S5 y11 moveto XW cvsshow2g S6 y11 moveto YW cvsshow2g S7 y11 moveto ZW cvsshow2g S3 yu0 moveto xanD cvsshow3g S4 yu0 moveto yanD cvsshow3g S5 yu0 moveto XW 0.886 mul cvsshow2g S6 yu0 moveto YW 0.886 mul cvsshow2g S7 yu0 moveto ZW 0.886 mul cvsshow2g S3 yn0 moveto xanD cvsshow3g S4 yn0 moveto yanD cvsshow3g S5 yn0 moveto XW 0.025 mul cvsshow2g S6 yn0 moveto YW 0.025 mul cvsshow2g S7 yn0 moveto ZW 0.025 mul cvsshow2g S3 y00 moveto xanD cvsshow3g S4 y00 moveto yanD cvsshow3g S5 y00 moveto XW 0.0 mul cvsshow2g S6 y00 moveto YW 0.0 mul cvsshow2g S7 y00 moveto ZW 0.0 mul cvsshow2g } if %xchart4=0 xchart4 1 eq {%xchart4=1 %W0 S8 y11 moveto (100,00) show S9 y11 moveto ( 0,00) show S10 y11 moveto ( 0,00) show S11 y11 moveto ( 0,00) show S12 y11 moveto ( 0) show %W1 S8 yu0 moveto ( 95,40) show S9 yu0 moveto ( 0,00) show S10 yu0 moveto ( 0,00) show S11 yu0 moveto ( 0,00) show S12 yu0 moveto ( 0) show %N1 S8 yn0 moveto ( 18,00) show S9 yn0 moveto ( 0,00) show S10 yn0 moveto ( 0,00) show S11 yn0 moveto ( 0,00) show S12 yn0 moveto ( 0) show %N0 S8 y00 moveto ( 0,00) show S9 y00 moveto ( 0,00) show S10 y00 moveto ( 0,00) show S11 y00 moveto ( 0,00) show S12 y00 moveto ( 0) show } if %xchart4=1 xchart4 2 eq {%xchart4=2 S13 y11 moveto (100,00) show S14 y11 moveto ( 0,00) show S15 y11 moveto ( 0,00) show S16 y11 moveto ( 0,00) show S17 y11 moveto ( 0) show S13 yu0 moveto ( 88,60) 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 ( 2,50) 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 BET71-8, %%BoundingBox: 70 90 226 206 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave 8 /Times-Roman FS 72 83 moveto %!2 (BET71-8,) show 72 90 translate %! 0.01 MM 0.01 MM scale %! 15 setlinewidth %! 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto %! closepath stroke 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 /xt 1 def xchart 1 eq {/xt 1 def} if xt 0 eq {%xt=0,1 ifelse /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 110 MM add y i0 get MM 1 MM sub moveto (http://130.149.60.45/~farbmetrik/BET7/BET7) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/BET7/BET7) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/BET7/BET7.HTM) show } %xt=0 { %xt=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 %special /10TIN10 {10TIN 0 -3 rmoveto xcolor 1 eq {(10) show} if 0 3 rmoveto} def /10TINi10 {10TIN 0 -3 rmoveto (i) show xcolor 1 eq {(,10) show} if 0 3 rmoveto} def /TELi0 8 array def /TELi1 8 array def /TELi 8 array def /TELi0 [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin. /TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /xchart8 1 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 BET7; ) showde %0BET7X-Y 0000# (TUB\255test chart BET7; ) showen %1BET7X-Y 0000# (gr\341fico TUB\255BET7; ) showes %2BET7X-Y 0000# (TUB\255test graphique BET7; ) showfr %3BET7X-Y 0000# (grafico TUB\255BET7; ) showit %4BET7X-Y 0000# (TUB\255test chart BET7; ) showjp %5BET7X-Y 0000# /xchart41 0 def xchart41 0 eq {%xchart41=0 %F0,1 12TIN (Display\255Farbsysteme sRGB und WCGa) showde %0BET7X-Y 0100# (Display colour systems sRGB und WCGa) showea %ABET7X-Y 0100# } if %xchart41=0 /K 0 def /xchart42 2 def 61 MM 09.5 MM moveto 12TIN (CIE\255Daten von 3 Grund\255 und Mischfarben, ) showde %0BET7X-Y 0200# (CIE data of 3 basic and 3 mixture colours, ) showea %ABET7X-Y 0200# 12TIN xchart42 0 eq {%xchart42=0 12TIN (CIE) show 12TII (XYZxy) show } if %xchart42=0 xchart42 1 eq {%xchart42=1 12TIN (CIELAB ) show 12TII (L*a*b*C*) show 10TIN 0 -2 rmoveto (ab) show 0 2 rmoveto 12TII (h) show 10TIN 0 -2 rmoveto (ab) show 0 2 rmoveto } if %xchart42=1 xchart42 2 eq {%xchart42=2 12TIN (LABJND ) show 12TII (YABC) show 10TIN 0 -2 rmoveto (AB2) show 0 2 rmoveto 12TII (h) show 10TIN 0 -2 rmoveto (AB2) show 0 2 rmoveto } if %xchart42=2 12TII (, Y) show 10TIN 0 -2 rmoveto (W) show 0 2 rmoveto 12TIN (=100 (left) and 88,6 (right)) showen (=100 (links) & 88,6 (rechts)) showde xchart 1 ge {%xchart>=1 12TIN (, 3D=) show colorm cvishow (, de=) show deintp cvishow 12TII xchart5f 0 eq {(, sRGB) show} if xchart5f 1 eq {(, cmyk) show} if xchart5f 2 eq {(, cmy0) show} if xchart5f 3 eq {(, cmyk) show} if colorm 1 eq {(*) show} if } if %xchart>=1 12TIN 184 MM 13.5 MM moveto (Eingabe: ) showde %0BET7X-Y 0500# (input: ) showen %1BET7X-Y 0500# (entrada: ) showes %2BET7X-Y 0500# (entr\351e: ) showfr %3BET7X-Y 0500# (immettere: ) showit %4BET7X-Y 0500# (input: ) showjp %5BET7X-Y 0500# 12TII (rgb/cmy0) show xchart41 0 eq {( (No 1MR)) show} {(->rgb ) show ((1MR)) show} ifelse %xchart xchart3 lt {(w/rgb/cmyk) show % } if %xchart xchart3 ge {%xchart>=xchart3 % (rgb) show % } if %xchart>=xchart3 %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto %12TIN 12TIN %184 MM 9.5 MM moveto %(Ausgabe: ) showde %0BET7X-Y 0600# %(output: ) showen %1BET7X-Y 0600# %(salida: ) showes %2BET7X-Y 0600# %(sortie: ) showfr %3BET7X-Y 0600# %(uscita: ) showit %4BET7X-Y 0600# %(output: ) showjp %5BET7X-Y 0600# %colorm=0,1! %12TIN %xchart 0 eq {%xchart=0,#0 %xchart41 0 eq {12TIN % (no change) showen % (keine \304nderung) showde} % {12TIN % (change of gamma ) showen % (\304nderung Gamma ) showde % 12TII % (g) show % 10TIN % 0 -2 rmoveto (P) show 0 2 rmoveto} ifelse %12TIN %(rechts) showde %0BET7X-Y 0700# %(right) showea %1BET7X-Y 0700# %(ning\372n cambio) showes %2BET7X-Y 0700# %(aucun changement) showfr %3BET7X-Y 0700# %(nessun cambiamento) showit %4BET7X-Y 0700# %(no change compared) showjp %5BET7X-Y 0700# % }%xchart=0 % % {%xchart#0 % 12TIN % colorm 0 eq {%colorm=0 %(Transfer nach ) showde %0BET7X-Y 0800# %(transfer to ) showen %1BET7X-Y 0800# %(transfiera a ) showes %2BET7X-Y 0800# %(transf\351rer \340 ) showfr %3BET7X-Y 0800# %(trasferire a ) showit %4BET7X-Y 0800# %(transfer to ) showjp %5BET7X-Y 0800# % }%colorm=0 % {%colorm=1 %(3D\255Linearisierung ) showde %0BET7X-Y 0900# %(3D\255linearization to ) showen %1BET7X-Y 0900# %(3D\255linealizaci\363n a ) showes %2BET7X-Y 0900# %(linearisation 3D selon ) showfr %3BET7X-Y 0900# %(3D\255linearizzazione a ) showit %4BET7X-Y 0900# %(3D\255linearization to ) showjp %5BET7X-Y 0900# % } ifelse %colorm=1 %12TII %xchart5f 0 eq {(rgb) show} if %xchart5f 1 eq {(cmyk) show} if %xchart5f 2 eq {(cmy0) show} if %xchart5f 3 eq {(cmyk) show} if %colorm 1 eq {(*) show} if %10 /Times-ISOL1 FS %0 -2 rmoveto Txx show 0 2 rmoveto %12TIN %} ifelse %xchart=0,#0 %0 setgray %end white and unvisible 12TIN 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/BET7/BET7L) show 12TIN (0) show % LSC$ show LEX$ show xchart41 4 le {(; only vector graphic VG) showen (; nur Vektorgrafik VG) showde} if % {(; VG with ISO\255PG image) showen % (; VG mit ISO\255PG\255Bild) showde} ifelse %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0BET7X-Y 1000# (start output) showen %1BET7X-Y 1000# (comience salida) showes %2BET7X-Y 1000# (sortie de production) showfr %3BET7X-Y 1000# (cominciare l'uscita) showit %4BET7X-Y 1000# (start output) showjp %5BET7X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0BET7X-Y 1100# (start output) showen %1BET7X-Y 1100# (comience salida) showes %2BET7X-Y 1100# (sortie de production) showfr %3BET7X-Y 1100# (cominciare l'uscita) showit %4BET7X-Y 1100# (start output) showjp %5BET7X-Y 1100# } if xchart 1 ge {%xchart>=1 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0BET7X-Y 1200# (transfer output) showen %1BET7X-Y 1200# (salida de transferencia) showes %2BET7X-Y 1200# (sortie de transfert) showfr %3BET7X-Y 1200# (uscita di trasferimento) showit %4BET7X-Y 1200# (transfer output) showjp %5BET7X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0BET7X-Y 1300# (3D\255linearization) showen %1BET7X-Y 1300# (3D\255linealizaci\363n) showes %2BET7X-Y 1300# (linearisation 3D) showfr %3BET7X-Y 1300# (3D\255linearizzzazione) showit %4BET7X-Y 1300# (3D\255linearization) showjp %5BET7X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=1 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0BET7X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1BET7X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2BET7X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3BET7X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4BET7X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5BET7X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0BET7X-Y 1500# (in file (F) or PS\255startup (S)) showen %1BET7X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2BET7X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3BET7X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4BET7X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5BET7X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0BET7X-Y 1600# (3D\255linearization) showen %1BET7X-Y 1600# (3D\255linealizaci\363n) showes %2BET7X-Y 1600# (linearisation 3D) showfr %3BET7X-Y 1600# (3D\255linearizzzazione) showit %4BET7X-Y 1600# (3D\255linearization) showjp %5BET7X-Y 1600# ( BET7/BET7L) show LSS$ show LSX$ show (0) show % LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0BET7X-Y 1700# ( in file (F)) showen %1BET7X-Y 1700# ( en archivo (F)) showes %2BET7X-Y 1700# ( dans fichier (F)) showfr %3BET7X-Y 1700# ( nel file (F)) showit %4BET7X-Y 1700# ( in file (F)) showjp %5BET7X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0BET7X-Y 1800# ( in Distiller Startup (S) Directory) showen %1BET7X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2BET7X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3BET7X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4BET7X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5BET7X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0BET7X-Y 1900# ( in PS\255device (D)) showen %1BET7X-Y 1900# ( en el PS\255device (D)) showes %2BET7X-Y 1900# ( dans l'appareil PS (D)) showfr %3BET7X-Y 1900# ( nel PS\255dispositivo (D)) showit %4BET7X-Y 1900# ( in PS\255Device (D)) showjp %5BET7X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0BET7X-Y 2000# ( in Distiller Startup (S) Directory) showen %1BET7X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2BET7X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3BET7X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4BET7X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5BET7X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0BET7X-Y 2100# ( in PS\255device (D)) showen %1BET7X-Y 2100# ( en el PS\255device (D)) showes %2BET7X-Y 2100# ( dans appareil PS (D)) showfr %3BET7X-Y 2100# ( nel PS\255dispositivo (D)) showit %4BET7X-Y 2100# ( in PS\255Device (D)) showjp %5BET7X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0BET7X-Y 2200# (, page ) showen %1BET7X-Y 2200# (, p\341gina ) showes %2BET7X-Y 2200# (, page ) showfr %3BET7X-Y 2200# (, pagina ) showit %4BET7X-Y 2200# (, page ) showjp %5BET7X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde %0BET7X-Y 2300# (see similar files: ) showen %1BET7X-Y 2300# (vea archivos semejantes: ) showes %2BET7X-Y 2300# (voir des fichiers similaires: ) showfr %3BET7X-Y 2300# (vedere dei file simili: ) showit %4BET7X-Y 2300# (see similar files: ) showjp %5BET7X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/BET7/BET7.HTM) show 12TIN %(0) show % %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0BET7X-Y 2400# (technical information: ) showen %1BET7X-Y 2400# (informaci\363n t\351cnica: ) showes %2BET7X-Y 2400# (informations techniques: ) showfr %3BET7X-Y 2400# (informazioni tecniche: ) showit %4BET7X-Y 2400# (technical information: ) showjp %5BET7X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0BET7X-Y 2500# ( or ) showen %1BET7X-Y 2500# ( o ) showes %2BET7X-Y 2500# ( ou ) showfr %3BET7X-Y 2500# ( o ) showit %4BET7X-Y 2500# ( or ) showjp %5BET7X-Y 2500# 12TRN (http://color.li.tu-berlin.de) show 12TIN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20220301\255BET7/BET7L) showde %0BET7X-Y 2600# (TUB registration: 20220301\255BET7/BET7L) showen %1BET7X-Y 2600# (TUB matr\355cula: 20220301\255BET7/BET7L) showes %2BET7X-Y 2600# (TUB enregistrement: 20220301\255BET7/BET7L) showfr %3BET7X-Y 2600# (TUB iscrizione: 20220301\255BET7/BET7L) showit %4BET7X-Y 2600# (TUB registration: 20220301\255BET7/BET7L) showjp %5BET7X-Y 2600# (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0BET7X-Y 2700# (TUB material: code=rha4ta) showen %1BET7X-Y 2700# (TUB material: code=rha4ta) showes %2BET7X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3BET7X-Y 2700# (TUB materiale: code=rha4ta) showit %4BET7X-Y 2700# (TUB material: code=rha4ta) showjp %5BET7X-Y 2700# 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 %0BET7X-Y 2800# ( application for evaluation and measurement ) showen %1BET7X-Y 2800# ( aplicaci\363n para la medida ) showes %2BET7X-Y 2800# ( application pour la mesure ) showfr %3BET7X-Y 2800# ( la domanda per la misura ) showit %4BET7X-Y 2800# ( application for measurement ) showjp %5BET7X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display\255 oder Druck\255Ausgabe) showde %0BET7X-Y 2900# (of display or print output) showen %1BET7X-Y 2900# (de display output) showes %2BET7X-Y 2900# (de sortie sur \350cran) showfr %3BET7X-Y 2900# (di stampa di display) showit %4BET7X-Y 2900# (of display output) showjp %5BET7X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0BET7X-Y 3000# (of offset print output) showen %1BET7X-Y 3000# (salida en la impressi\363n offset) showes %2BET7X-Y 3000# (des sorties sur offset) showfr %3BET7X-Y 3000# (uscita nella stampa di offset) showit %4BET7X-Y 3000# (of offset print output) showjp %5BET7X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0BET7X-Y 3100# (of laser printer output) showen %1BET7X-Y 3100# (salida de impresora l\341ser) showes %2BET7X-Y 3100# (des sorties sur imprimante laser) showfr %3BET7X-Y 3100# (di uscita della stampante laser) showit %4BET7X-Y 3100# (of laser printer output) showjp %5BET7X-Y 3100# } if %xchart5f=3 xchart 1 ge {%xchart>=1 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0BET7X-Y 3200# (, no separation) showen %1BET7X-Y 3200# (, ninguna separaci\363n) showes %2BET7X-Y 3200# (, aucune s\351paration) showfr %3BET7X-Y 3200# (, nessuna separazione) showit %4BET7X-Y 3200# (, no separation) showjp %5BET7X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0BET7X-Y 3300# (, separation) showen %1BET7X-Y 3300# (, separaci\363n) showes %2BET7X-Y 3300# (, s\351paration) showfr %3BET7X-Y 3300# (, separazione) showit %4BET7X-Y 3300# (, separation) showjp %5BET7X-Y 3300# xchart5f 1 eq xchart5f 3 eq or {(cmyn6) show} if xchart5f 2 eq {(cmy0) show} if colorm 1 eq {(*) show} if colsep 0 eq {( (CMYK))}{( (CMY0))} ifelse show } if %xchart5f>=1 } if %xchart>=1 IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 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 %/xlu1 013 MM def /ylu1 010 MM def %/xro1 283 MM def /yro1 200 MM def %/xlo1 013 MM def /ylo1 200 MM def %/xru1 283 MM def /yru1 010 MM def %xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke %xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke %xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke %xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke %xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke %xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke %xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke %xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke } ifelse %xt=1 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