%!PS-Adobe-3.0 EPSF-3.0 EE00/Y10E00NA.PS6.PS 20190501 %%BoundingBox: 00 00 414 292 /pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://farbe.li.tu-berlin.de/EE00/EE00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019050112000) /ModDate (D:20190501112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark /sfgray {setgray} bind def %Early Frame File (f) definition /sfrgbcolor {setrgbcolor} bind def /sfcmykcolor {setcmykcolor} bind def %line 20****************************************************** %BEG EE00/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %Early Binding: needed for colour separation %/sgcmykcolor {setcmykcolor} bind def %/sggray {setgray} bind def %/sgrgbcolor {setrgbcolor} bind def %FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00 /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray %/ISIN*ioG 0 def %default input for Offset Reflective System (ORS18/FRS09) %/ISOU*ioG 0 def %default output dto. /ISIN*ioG 1 def %input for Television Luminous System (TLS00) /ISOU*ioG 1 def %output dto. %/ISIN*ioG 2 def %input for Device Reflective measurement system (FRS09) %/ISOU*ioG 2 def %output dto. %/ISIN*ioG 3 def %input for Television Luminous Reflection System (TLS18) %/ISOU*ioG 3 def %output dto. %/ISIN*ioG 4 def %input for Natural Luminous System (NLS00) %/ISOU*ioG 4 def %output dto. %/ISIN*ioG 5 def %input for Natural Reflective System (NRS11) %/ISOU*ioG 5 def %output dto. %/ISIN*ioG 6 def %input for Standard Reflective System (CIE18) %/ISOU*ioG 6 def %output dto. %/ISIN*ioG 7 def %input for Standard Reflective System (TLS70) %/ISOU*ioG 7 def %output dto. /iLAB 0 def %/colormg 0 def %END EE00/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301 %BEG EE00/OUTLIN1X.PS 20110801 %EMPTY %END EE00/OUTLIN1X.PS 20110801 %BEG EE00/OUTLIN1Y2.PS Emty 20101101 %END EE00/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 0.5 0.5 scale /pgsave save def %%EndPageSetup /SS$ [(G) (E) (S) (F) (I) (J) (M)] def /SC$ [(N) (F) (S) (D) (T) (E) (C)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(1.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS) (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def %******************************************************************* /lanind1f 01 def /lanind2f 01 def /laninddf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def %2/10 degree observer /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def %1 illuminants /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def %3f:0/1=M/O 5f:1/2=M,M&T /pchart1f 03 def /pchart2f 03 def /pchartdf 01 def %=3 for sRGB, Lr=0 /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 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 %/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 /xchart5 xchart5f 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 BeginEPSF 28 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 EE000-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 (EE000-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 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 EE000-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 (EE000-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 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 http://farbe.li.tu-berlin.de/EE00/EE000-3N 20230801 %%BoundingBox: 70 82 405 332 %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/EE00/EE00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 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 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth 0 0 11600 08550 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 08550 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EE000-3N) show } if %xbtex0=1 %/xchartl 3 def 0 1 3 {/xchartl exch def %xchartl=0,3 20 setlinewidth xchartl 0 eq { 100 4500 translate} if xchartl 1 eq { 6100 4500 translate} if xchartl 2 eq { 100 0250 translate} if xchartl 3 eq { 6100 0250 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray TV 100 -120 moveto (EE000-) show xchartl 1 add cvishow (A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** %***************************************************************** xchartl 0 eq {%xchartl=0 /ty00i [(process) (process) (process) (document) (ISO stage) (CIE stage)] def /ty01i [(name) (owner) (members) (created) (& vote rule) (& vote rule)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def % 0 1 2 3 4 5 /ixi [0030 1000 1650 2600 3600 4500 5400] def % 0 1 2 3 4 5 /ty02i [(NWIP) (CB) (TCMs) (NWI) (10) (1)] def /ty03i [() () (CIE:DD) () (2/3) (2/3)] def /iy02i [0 0 0 1 1 1] def /iy03i [0 0 0 1 1 1] def /ty04i [(assign) (CB) (BA+TCC) (WG/TC) (20) (3)] def /ty05i [(of WG/TC) () () (assinged) (-) (-)] def /iy04i [0 0 0 2 2 2] def /iy05i [0 0 0 2 2 2] def /ty06i [(development) (TCC) (TCC+TCMs) (WD) (30) (5)] def /ty07i [(WD & Ballot) () () (of TCMs) (2/3) (U)] def /iy06i [0 0 0 1 2 3] def /iy07i [0 0 0 1 1 3] def /ty08i [(development) (TCC) (ISO:+TCMs) (CD) (40) (7)] def /ty09i [(CD & Ballot) () (CIE:+DD+DE) () (2/3) (2/3,U?)] def /iy08i [0 0 0 1 2 3] def /iy09i [0 0 0 1 1 3] def /ty10i [(development) (CB) (TCC+TCMs) (ISO/DIS) (50) (9)] def /ty11i [(DIS/ED & B.) () (+CB) (CIE/ED) (2/3) (2/3)] def /iy10i [0 0 0 2 2 1] def /iy11i [0 0 0 1 1 1] def /ty12i [(development) (CB) (TCC+TCMs) (ISO/FDIS) (60) (11)] def /ty13i [(FDIS/AD &B.) () (+CD) (CIE/AD) (Y/N+C) (Y/N+C)] def /iy12i [0 0 0 2 2 1] def /iy13i [0 0 0 1 1 1] def /ty14i [(publica\255) (CB) (TCC) (ISO/TR) (70) (12)] def /ty15i [(tion of TR) () () (CIE/TR) (-) (-)] def /iy14i [0 0 0 2 2 2] def /iy15i [0 0 0 2 2 2] def %************************************************************************** /dy00i [(Prozess\255) (Prozess\255) (Process\255) (Dokument) (ISO\255Stufe &) (CIE\255Stufe &)] def /dy01i [(name) (eigner) (mitglied) (erzeugt) (Wahlregel) (Wahlregel)] def % 0 1 2 3 4 5 /dy02i [(NWIP) (CB) (TCMs) (NWI) (10) (1)] def /dy03i [() () (CIE:DD) () (2/3) (2/3)] def /dy04i [(Erzeugung) (CB) (BA+TCC) (WG/TC) (20) (3)] def /dy05i [(von WG/TC) () () (zugeordnet) (-) (-)] def /dy06i [(Entwicklung) (TCC) (TCC+TCMs) (WD) (30) (5)] def /dy07i [(WD & Ballot) () () (of TCMs) (2/3) (U)] def /dy08i [(Entwicklung) (TCC) (ISO:+TCMs) (CD) (40) (7)] def /dy09i [(CD & Ballot) () (CIE:+DD+DE) () (2/3) (2/3,U?)] def /dy10i [(Entwicklung) (CB) (TCC+TCMs) (ISO/DIS) (50) (9)] def /dy11i [(DIS/ED & B.) () (+CB) (CIE/ED) (2/3) (2/3)] def /dy12i [(Entwicklung) (CB) (TCC+TCMs) (ISO/FDIS) (60) (11)] def /dy13i [(FDIS/AD &B.) () (+CD) (CIE/AD) (Y/N+C) (Y/N+C)] def /dy14i [(Publika\255) (CB) (TCC) (ISO/TR) (70) (12)] def /dy15i [(tion von TR) () () (CIE/TR) (-) (-)] def /iyd 170 def /ixs 030 def /iyi 16 array def 0 1 7 {/i exch def %i=0,7 iyi i 2 mul 0 add 3600 i 380 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub put } for %i=0,7 0 setgray 50 yhoe 150 sub moveto TBL (Entwicklung eines Technischen Berichtes: Vergleich zwischen ISO und CIE) showde (Development of a Technical Report: Comparison between ISO and CIE) showea %0 yhoe 0250 sub moveto xwidth 0 rlineto stroke %0 yhoe 3250 sub moveto xwidth 0 rlineto stroke 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea ixi 1 get iyi 00 get moveto ty00i 1 get showea ixi 2 get iyi 00 get moveto ty00i 2 get showea ixi 3 get iyi 00 get moveto ty00i 3 get showea ixi 4 get iyi 00 get moveto ty00i 4 get showea ixi 5 get iyi 00 get moveto ty00i 5 get showea ixi 0 get iyi 01 get moveto ty01i 0 get showea ixi 1 get iyi 01 get moveto ty01i 1 get showea ixi 2 get iyi 01 get moveto ty01i 2 get showea ixi 3 get iyi 01 get moveto ty01i 3 get showea ixi 4 get iyi 01 get moveto ty01i 4 get showea ixi 5 get iyi 01 get moveto ty01i 5 get showea ixi 0 get iyi 00 get moveto dy00i 0 get showde ixi 1 get iyi 00 get moveto dy00i 1 get showde ixi 2 get iyi 00 get moveto dy00i 2 get showde ixi 3 get iyi 00 get moveto dy00i 3 get showde ixi 4 get iyi 00 get moveto dy00i 4 get showde ixi 5 get iyi 00 get moveto dy00i 5 get showde ixi 0 get iyi 01 get moveto dy01i 0 get showde ixi 1 get iyi 01 get moveto dy01i 1 get showde ixi 2 get iyi 01 get moveto dy01i 2 get showde ixi 3 get iyi 01 get moveto dy01i 3 get showde ixi 4 get iyi 01 get moveto dy01i 4 get showde ixi 5 get iyi 01 get moveto dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 02 get moveto ty02i 0 get showea ixi 1 get iyi 02 get moveto ty02i 1 get showea ixi 2 get iyi 02 get moveto ty02i 2 get showea ixi 3 get iyi 02 get moveto ty02i 3 get showea ixi 4 get iyi 02 get moveto ty02i 4 get showea ixi 5 get iyi 02 get moveto ty02i 5 get showea ixi 0 get iyi 03 get moveto ty03i 0 get showea ixi 1 get iyi 03 get moveto ty03i 1 get showea ixi 2 get iyi 03 get moveto ty03i 2 get showea ixi 3 get iyi 03 get moveto ty03i 3 get showea ixi 4 get iyi 03 get moveto ty03i 4 get showea ixi 5 get iyi 03 get moveto ty03i 5 get showea ixi 0 get iyi 02 get moveto dy02i 0 get showde ixi 1 get iyi 02 get moveto dy02i 1 get showde ixi 2 get iyi 02 get moveto dy02i 2 get showde ixi 3 get iyi 02 get moveto dy02i 3 get showde ixi 4 get iyi 02 get moveto dy02i 4 get showde ixi 5 get iyi 02 get moveto dy02i 5 get showde ixi 0 get iyi 03 get moveto dy03i 0 get showde ixi 1 get iyi 03 get moveto dy03i 1 get showde ixi 2 get iyi 03 get moveto dy03i 2 get showde ixi 3 get iyi 03 get moveto dy03i 3 get showde ixi 4 get iyi 03 get moveto dy03i 4 get showde ixi 5 get iyi 03 get moveto dy03i 5 get showde 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 04 get moveto ty04i 0 get showea ixi 1 get iyi 04 get moveto ty04i 1 get showea ixi 2 get iyi 04 get moveto ty04i 2 get showea ixi 3 get iyi 04 get moveto ty04i 3 get showea ixi 4 get iyi 04 get moveto ty04i 4 get showea ixi 5 get iyi 04 get moveto ty04i 5 get showea ixi 0 get iyi 05 get moveto ty05i 0 get showea ixi 1 get iyi 05 get moveto ty05i 1 get showea ixi 2 get iyi 05 get moveto ty05i 2 get showea ixi 3 get iyi 05 get moveto ty05i 3 get showea ixi 4 get iyi 05 get moveto ty05i 4 get showea ixi 5 get iyi 05 get moveto ty05i 5 get showea ixi 0 get iyi 04 get moveto dy04i 0 get showde ixi 1 get iyi 04 get moveto dy04i 1 get showde ixi 2 get iyi 04 get moveto dy04i 2 get showde ixi 3 get iyi 04 get moveto dy04i 3 get showde ixi 4 get iyi 04 get moveto dy04i 4 get showde ixi 5 get iyi 04 get moveto dy04i 5 get showde ixi 0 get iyi 05 get moveto dy05i 0 get showde ixi 1 get iyi 05 get moveto dy05i 1 get showde ixi 2 get iyi 05 get moveto dy05i 2 get showde ixi 3 get iyi 05 get moveto dy05i 3 get showde ixi 4 get iyi 05 get moveto dy05i 4 get showde ixi 5 get iyi 05 get moveto dy05i 5 get showde 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 06 get moveto ty06i 0 get showea ixi 1 get iyi 06 get moveto ty06i 1 get showea ixi 2 get iyi 06 get moveto ty06i 2 get showea ixi 3 get iyi 06 get moveto ty06i 3 get showea ixi 4 get iyi 06 get moveto ty06i 4 get showea ixi 5 get iyi 06 get moveto ty06i 5 get showea ixi 0 get iyi 07 get moveto ty07i 0 get showea ixi 1 get iyi 07 get moveto ty07i 1 get showea ixi 2 get iyi 07 get moveto ty07i 2 get showea ixi 3 get iyi 07 get moveto ty07i 3 get showea ixi 4 get iyi 07 get moveto ty07i 4 get showea ixi 5 get iyi 07 get moveto ty07i 5 get showea ixi 0 get iyi 06 get moveto dy06i 0 get showde ixi 1 get iyi 06 get moveto dy06i 1 get showde ixi 2 get iyi 06 get moveto dy06i 2 get showde ixi 3 get iyi 06 get moveto dy06i 3 get showde ixi 4 get iyi 06 get moveto dy06i 4 get showde ixi 5 get iyi 06 get moveto dy06i 5 get showde ixi 0 get iyi 07 get moveto dy07i 0 get showde ixi 1 get iyi 07 get moveto dy07i 1 get showde ixi 2 get iyi 07 get moveto dy07i 2 get showde ixi 3 get iyi 07 get moveto dy07i 3 get showde ixi 4 get iyi 07 get moveto dy07i 4 get showde ixi 5 get iyi 07 get moveto dy07i 5 get showde 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 08 get moveto ty08i 0 get showea ixi 1 get iyi 08 get moveto ty08i 1 get showea ixi 2 get iyi 08 get moveto ty08i 2 get showea ixi 3 get iyi 08 get moveto ty08i 3 get showea ixi 4 get iyi 08 get moveto ty08i 4 get showea ixi 5 get iyi 08 get moveto ty08i 5 get showea ixi 0 get iyi 09 get moveto ty09i 0 get showea ixi 1 get iyi 09 get moveto ty09i 1 get showea ixi 2 get iyi 09 get moveto ty09i 2 get showea ixi 3 get iyi 09 get moveto ty09i 3 get showea ixi 4 get iyi 09 get moveto ty09i 4 get showea ixi 5 get iyi 09 get moveto ty09i 5 get showea ixi 0 get iyi 08 get moveto dy08i 0 get showde ixi 1 get iyi 08 get moveto dy08i 1 get showde ixi 2 get iyi 08 get moveto dy08i 2 get showde ixi 3 get iyi 08 get moveto dy08i 3 get showde ixi 4 get iyi 08 get moveto dy08i 4 get showde ixi 5 get iyi 08 get moveto dy08i 5 get showde ixi 0 get iyi 09 get moveto dy09i 0 get showde ixi 1 get iyi 09 get moveto dy09i 1 get showde ixi 2 get iyi 09 get moveto dy09i 2 get showde ixi 3 get iyi 09 get moveto dy09i 3 get showde ixi 4 get iyi 09 get moveto dy09i 4 get showde ixi 5 get iyi 09 get moveto dy09i 5 get showde 0 1 5 {/i exch def iy10i i get 0 eq {1 1 1 setrgbcolor} if iy10i i get 1 eq {1 1 0 setrgbcolor} if iy10i i get 2 eq {0 1 0 setrgbcolor} if iy10i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 10 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy11i i get 0 eq {1 1 1 setrgbcolor} if iy11i i get 1 eq {1 1 0 setrgbcolor} if iy11i i get 2 eq {0 1 0 setrgbcolor} if iy11i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 11 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 10 get moveto ty10i 0 get showea ixi 1 get iyi 10 get moveto ty10i 1 get showea ixi 2 get iyi 10 get moveto ty10i 2 get showea ixi 3 get iyi 10 get moveto ty10i 3 get showea ixi 4 get iyi 10 get moveto ty10i 4 get showea ixi 5 get iyi 10 get moveto ty10i 5 get showea ixi 0 get iyi 11 get moveto ty11i 0 get showea ixi 1 get iyi 11 get moveto ty11i 1 get showea ixi 2 get iyi 11 get moveto ty11i 2 get showea ixi 3 get iyi 11 get moveto ty11i 3 get showea ixi 4 get iyi 11 get moveto ty11i 4 get showea ixi 5 get iyi 11 get moveto ty11i 5 get showea ixi 0 get iyi 10 get moveto dy10i 0 get showde ixi 1 get iyi 10 get moveto dy10i 1 get showde ixi 2 get iyi 10 get moveto dy10i 2 get showde ixi 3 get iyi 10 get moveto dy10i 3 get showde ixi 4 get iyi 10 get moveto dy10i 4 get showde ixi 5 get iyi 10 get moveto dy10i 5 get showde ixi 0 get iyi 11 get moveto dy11i 0 get showde ixi 1 get iyi 11 get moveto dy11i 1 get showde ixi 2 get iyi 11 get moveto dy11i 2 get showde ixi 3 get iyi 11 get moveto dy11i 3 get showde ixi 4 get iyi 11 get moveto dy11i 4 get showde ixi 5 get iyi 11 get moveto dy11i 5 get showde 0 1 5 {/i exch def iy12i i get 0 eq {1 1 1 setrgbcolor} if iy12i i get 1 eq {1 1 0 setrgbcolor} if iy12i i get 2 eq {0 1 0 setrgbcolor} if iy12i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 12 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy13i i get 0 eq {1 1 1 setrgbcolor} if iy13i i get 1 eq {1 1 0 setrgbcolor} if iy13i i get 2 eq {0 1 0 setrgbcolor} if iy13i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 13 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 12 get moveto ty12i 0 get showea ixi 1 get iyi 12 get moveto ty12i 1 get showea ixi 2 get iyi 12 get moveto ty12i 2 get showea ixi 3 get iyi 12 get moveto ty12i 3 get showea ixi 4 get iyi 12 get moveto ty12i 4 get showea ixi 5 get iyi 12 get moveto ty12i 5 get showea ixi 0 get iyi 13 get moveto ty13i 0 get showea ixi 1 get iyi 13 get moveto ty13i 1 get showea ixi 2 get iyi 13 get moveto ty13i 2 get showea ixi 3 get iyi 13 get moveto ty13i 3 get showea ixi 4 get iyi 13 get moveto ty13i 4 get showea ixi 5 get iyi 13 get moveto ty13i 5 get showea ixi 0 get iyi 12 get moveto dy12i 0 get showde ixi 1 get iyi 12 get moveto dy12i 1 get showde ixi 2 get iyi 12 get moveto dy12i 2 get showde ixi 3 get iyi 12 get moveto dy12i 3 get showde ixi 4 get iyi 12 get moveto dy12i 4 get showde ixi 5 get iyi 12 get moveto dy12i 5 get showde ixi 0 get iyi 13 get moveto dy13i 0 get showde ixi 1 get iyi 13 get moveto dy13i 1 get showde ixi 2 get iyi 13 get moveto dy13i 2 get showde ixi 3 get iyi 13 get moveto dy13i 3 get showde ixi 4 get iyi 13 get moveto dy13i 4 get showde ixi 5 get iyi 13 get moveto dy13i 5 get showde 0 1 5 {/i exch def iy14i i get 0 eq {1 1 1 setrgbcolor} if iy14i i get 1 eq {1 1 0 setrgbcolor} if iy14i i get 2 eq {0 1 0 setrgbcolor} if iy14i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 14 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy15i i get 0 eq {1 1 1 setrgbcolor} if iy15i i get 1 eq {1 1 0 setrgbcolor} if iy15i i get 2 eq {0 1 0 setrgbcolor} if iy15i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 15 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray ixi 0 get iyi 14 get moveto ty14i 0 get showea ixi 1 get iyi 14 get moveto ty14i 1 get showea ixi 2 get iyi 14 get moveto ty14i 2 get showea ixi 3 get iyi 14 get moveto ty14i 3 get showea ixi 4 get iyi 14 get moveto ty14i 4 get showea ixi 5 get iyi 14 get moveto ty14i 5 get showea ixi 0 get iyi 15 get moveto ty15i 0 get showea ixi 1 get iyi 15 get moveto ty15i 1 get showea ixi 2 get iyi 15 get moveto ty15i 2 get showea ixi 3 get iyi 15 get moveto ty15i 3 get showea ixi 4 get iyi 15 get moveto ty15i 4 get showea ixi 5 get iyi 15 get moveto ty15i 5 get showea ixi 0 get iyi 14 get moveto dy14i 0 get showde ixi 1 get iyi 14 get moveto dy14i 1 get showde ixi 2 get iyi 14 get moveto dy14i 2 get showde ixi 3 get iyi 14 get moveto dy14i 3 get showde ixi 4 get iyi 14 get moveto dy14i 4 get showde ixi 5 get iyi 14 get moveto dy14i 5 get showde ixi 0 get iyi 15 get moveto dy15i 0 get showde ixi 1 get iyi 15 get moveto dy15i 1 get showde ixi 2 get iyi 15 get moveto dy15i 2 get showde ixi 3 get iyi 15 get moveto dy15i 3 get showde ixi 4 get iyi 15 get moveto dy15i 4 get showde ixi 5 get iyi 15 get moveto dy15i 5 get showde 20 setlinewidth /lupt 4000 250 sub def /llot iyi 15 get 050 sub def /ldit lupt llot sub def 0 lupt moveto 5400 0 rlineto stroke %line upper table 0 llot moveto 5400 0 rlineto stroke %line lower table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 15 {/i exch def %i=1,15,2 0 iyi i get 40 sub moveto 5400 0 rlineto stroke } for %i=1,15,2 TBV ixi 0 get iyi 15 get 200 sub moveto (Abreviations: ) showea TV (TR Technical Report, ) showea (TR Technischer Bericht, ) showde (TC(C, M) Technical Committee Convener (Chair) or Member,) showea (TC(C, M) Technischer Komiteevorsitzender oder Mitglied, ) showde (U einstimmige Wahl) showde ixi 0 get iyi 15 get 350 sub moveto (WD/CD Working or Committe Draft, ) showea (WD/CD Arbeits\255 oder Komitee\255Draft, ) showde (DIS/ED and FDIS/AD Enquiry or Approval Draft, ) showea (DIS/ED und FDIS/AD Enquiry oder Approval Draft, ) showde (U Unanimous vote) showea ixi 0 get iyi 15 get 500 sub moveto (CB ISO or CIE Central Buero, ) showea (CB ISO oder CIE Central B\374ro, ) showde (BA CIE Board of Administration, ) showea (BA CIE Board of Administration, ) showde (DD/DE CIE Division Director/Editor. ) showea (DD/DE CIE Division Direktor/Editor. ) showde /iyix iyi 15 get 700 sub def /ixd 350 def /ix00 ixi 0 get def /ix01 ix00 ixd add def ix00 iyix moveto 0 1 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke 0 setgray ix01 iyix moveto ( seen by public (to buy)) showea ( \366ffentlich (zu kaufen)) showde /ix00 1900 def /ix01 ix00 ixd add def ix00 iyix moveto 1 1 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke ix01 iyix moveto ( seen by parent committee ) showea ( sichtbar f\374r Eltern\255Komitee) showde /ix00 3700 def /ix01 ix00 ixd add def ix00 iyix moveto 1 0 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke 0 setgray ix01 iyix moveto ( seen only by committee) showea ( sichtbar nur von Komitee) showde /yhoe 4000 def /xwidth 5400 def 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1 %STOP2 0 setgray 50 yhoe 150 sub moveto TBL (Technical problems to write standard documents in the field of ) showea (Technische Probleme zum Schreiben von Normdokumenten im Bereich ) showde (colour vision) showea 50 yhoe 300 sub moveto (and image technology.) showea (Farbensehen und Bildtechnologie.) showde 0 yhoe 0400 sub moveto xwidth 0 rlineto stroke /iyd 150 def /ix0 50 def /iy0 yhoe 550 sub def TBL ix0 iy0 iyd 0 mul sub moveto (Problem: ) showea TL (For example the standard organisations ISO, CEN, DIN, and CIE use) showea (Zum Beispiel die Normorganisationen ISO, CEN, DIN und CIE benutzen) showde ix0 iy0 iyd 1 mul sub moveto TBIL (anticopy software. ) showea (Anticopy\255Software. ) showde TL (This software is ) showea (Diese Software ist ) showde TBIL (incompatible ) showea (incompatibel ) showde TL (with the EPS vector graphic) showea (mit der EPS\255Vektorgrafik) showde ix0 iy0 iyd 2 mul sub moveto TL (of the software ) showea (der Software ) showde TIL (Adobe Illustrator. ) show TL (However, this image software is used ) showea (Jedoch wird diese Bildsoftware seit 20 Jahren in) showde ix0 iy0 iyd 3 mul sub moveto TL (since 20 years in standard documents. ) showea (Normdokumenten benutzt. ) showde (How to revise these ISO documents?) showea (Wie sollen diese ISO\255Dokumente \374berarbeitet werden?) showde ix0 iy0 iyd 4.5 mul sub moveto TL (Some existing problems for ) showea (Probleme f\374r ) showde TBL (visibility, readability, resolution, and colour ) showea (Erkennbarkeit, Lesbarkeit, Aufl\366sung und Farbe sind gelistet. ) showde TL (are) showea ix0 iy0 iyd 5.5 mul sub moveto (listed. A solution shall maintain the former ) showea (Eine L\366sung soll die fr\374here hohe ) showde (high quality of ISO standards. If the ) showea (Qualit\344t der ISO\255Normen erhalten. Wenn ) showde ix0 iy0 iyd 6.5 mul sub moveto TBIL (anticopy software ) showea (Anticopysoftware ) showde TL (is necessary then it shall be ) showea (notwendig, dann soll sie ) showde TBIL (compatible ) showea (kompatibel ) showde TL (with EPS vector graphic.) showea (mit EPS\255Vektorgrafik sein.) showde /iy0 yhoe 1750 sub def ix0 iy0 iyd 0 mul sub moveto TL (Many problems show the PDF document N1581 of ) showea (Viele Probleme zeigt das PDF\255Dokument N1581 von ) showde (ISO TC159/SC4/WG2) show ix0 iy0 iyd 1 mul sub moveto TIL (Visual Display Requirements. ) show TL (Many colours of three 16 step colour scales between) showea (Viele Farben der 3 16stufigen Farbreihen zwischen) showde ix0 iy0 iyd 2 mul sub moveto TL (white and RGB disappear on page 36. ) showea (Wei\337 und RGB verschwinden auf Seite 36. ) showde (The Word document with EPS graphic) showea (Das Word\255Dokument mit EPS\255Grafik) showde ix0 iy0 iyd 3 mul sub moveto TL (shows all colours as intended.) showea (zeigt alle Farben wie angestrebt.) showde ix0 iy0 iyd 4.3 mul sub moveto TBL (Solution 1: ) showea (L\366sung 1: ) showde TL (The vector graphic files are transfered to pixel graphic files ) showea (Die Vektorgrafikdateien werden in Pixelgrafikdateien umgewandelt ) showde ix0 iy0 iyd 5.3 mul sub moveto TL (and are included in the Word file. ) showea (und werden in die Word\255Datei eingef\374gt. ) showde /iy0 yhoe 2700 sub def ix0 iy0 iyd 0 mul sub moveto TBL (Disadvantages: ) showea (Nachteile: ) showde ix0 iy0 iyd 1 mul sub moveto TL (1. The test results of ISO standards for ) showea (1. Die Testergebnisse von Normen ) showde TBIL (Visibility, readability and resolution ) showea (Sichtbarkeit, Lesbarkeit und Aufl\366sung ) showde TL (are ) showea (sind ) showde ix0 150 add iy0 iyd 2 mul sub moveto TL (determined by the pixel software ) showea (durch Pixelsoftware bestimmt ) showde (and not by the colour vision properties of users. ) showea (und nicht durch visuelle Benutzer\255Eigenschaften. ) showde ix0 iy0 iyd 3 mul sub moveto TL (2. For example the word file size of ISO 9241\255306 ) showea (2. Zum Beispiel die Word\255Dateigr\366\337e von ISO 9241\255306 ) showde (increases from 3 to 60 MB.) showea (w\344chst von 3 auf 60 MB.) showde ix0 150 add iy0 iyd 4 mul sub moveto (This is not accepted by the email servers ) showea (Dies wird nicht von Emailservern der ) showde (of standard organisations.) showea (Normungsorganisationen akzeptiert.) showde /iy0 yhoe 3500 sub def ix0 iy0 iyd 0 mul sub moveto TBL (Solution 2: ) showea (L\366sung 2: ) showde TL (ISO 9241\255306:2018 is published in pixel graphic ) showea (\050low quality\051. ) showea (ISO 9241\255306:2018 ist in Pixelgrafik publiziert ) showde (\050niedere Qualit\344t\051) showde ix0 iy0 iyd 1 mul sub moveto TL (ISO\255test charts in vector graphic are for download from the ) showea (ISO\255Pr\374fvorlagen in Vektorgrafik sind herunterladbar vom ) showde TBIL (ISO Standard Mainte\255) show ix0 iy0 iyd 2 mul sub moveto TBIL (nance Portal. ) show TL (Therefore the test quality of ) showea (Daher wird die Pr\374fqualit\344t von ) showde (ISO 9241\255306:2009 ) show (remains, see) showea (erhalten, siehe) showde ix0 iy0 iyd 3 mul sub moveto 0 0 1 setrgbcolor RL (http://standards.iso.org/iso/9241/306/ed-2/index.html) show 0 setgray /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2 %STOP1 /ix0 30 def 0 setgray ix0 yhoe 150 sub moveto TBL (Technical Problems to write standard documents in the field of ) showea (Technische Probleme zum Schreiben von Normdokumenten im Bereich ) showde (colour vision) showea (Farbe) showde ix0 yhoe 300 sub moveto (and image technology ) showea (und Bildtechnologie ) showde %TV ((compare ISO-TC42-WG18_N7433 and ISO-TC159-SC4-WG2_N1581)) showea %((vergleiche ISO-TC42-WG18_N7433 und ISO-TC159-SC4-WG2_N1581)) showde 20 setlinewidth 0 yhoe 0370 sub moveto xwidth 0 rlineto stroke /iyd 150 def /iy0 yhoe 550 sub def TBL ix0 iy0 iyd 0 mul sub moveto (Problem: ) show TL (For example the standard organisations ISO, CEN, DIN, and CIE use) showea (Die Normungsorganisatioen ISO, CEN, DIN und CIE benutzen) showde ix0 iy0 iyd 1 mul sub moveto TBIL (anticopy software. ) showea (Anticopy\255Software. ) showde TL (This software is ) showea (Diese Software ist ) showde TBIL (incompatible ) showea (incompatibel ) showde TL (with the EPS\255vector graphic) showea (mit der EPS\255Vektorgrafik) showde ix0 iy0 iyd 2 mul sub moveto TL (of the software ) showea (der Software ) showde TIL (Adobe Illustrator. ) show TL (However, this image software is used ) showea (Jedoch wird diese Bildsoftware seit 20 Jahren ) showde ix0 iy0 iyd 3 mul sub moveto TL (since 20 years in standard documents. ) showea (in Normdokumenten benutzt. ) showde (How to revise these ISO documents?) showea (Wie soll man die ISO\255Dokumente \374berarbeiten?) showde ix0 iy0 iyd 4.3 mul sub moveto /ty00i [(ISO) (graphic) (file size) (anticopy) (possible mag\255) (remarks)] def /ty01i [(document) (software) (Word PDF) (software) (nification) (quality)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def % 0 1 2 3 4 5 /ixi [0030 1100 1800 2700 3500 4500 5400] def % 0 1 2 3 4 5 /ty02i [(ISO/DIS 9241)(vector) (2MB 4MB) (No) (16x) (very high)] def /ty03i [(\255306:2017)(graphic)() () () (quality)] def /iy02i [0 2 2 2 2 2] def /iy03i [0 2 2 2 2 2] def /ty04i [(option used) (vector) (2MB 4MB) (Yes) (16x) (colours)] def /ty05i [(in secreteriat) (graphic)() () () (disapear 1\051)] def /iy04i [0 2 2 3 2 3] def /iy05i [0 2 2 3 2 3] def /ty06i [(ISO IS 9241) (pixel) (60MB 15MB) (Yes) (1x) (very low)] def /ty07i [(\255306:2018)(graphic)() () () (quality 2\051)] def /iy06i [0 3 3 3 3 3] def /iy07i [0 3 3 3 3 3] def /ty08i [(DIN print 9241)(pixel) (- -) (Yes) (1x) (not ac\255)] def /ty09i [(\255306:2018)(graphic)() () () (ceptable 3\051)] def /iy08i [0 3 3 3 3 3] def /iy09i [0 3 3 3 3 3] def %************************************************************************** /dy00i [(ISO\255) (Grafik\255) (Dateigr\366\337e) (Anticopy\255) (m\366gliche Ver\255) (Bemerkung)] def /dy01i [(Dokument) (software) (Word PDF) (Software) (gr\366\337erung) (Qualit\344t)] def % 0 1 2 3 4 5 /dy02i [(ISO/DIS 9241)(Vektor\255) (2MB 4MB) (Nein) (16x) (sehr hohe)] def /dy03i [(\255306:2017)(Grafik)() () () (Qualit\344t)] def /dy04i [(Option benutzt) (Vektor\255) (2MB 4MB) (Ja) (16x) (Farben ver\255)] def /dy05i [(im Sekreteriat) (Grafik)() () () (schwinden 1\051)] def /dy06i [(ISO 9241) (Pixel\255) (60MB 15MB) (Ja) (1x) (sehr niedrige)] def /dy07i [(\255306:2018)(Grafik)() () () (Qualit\344t 2\051)] def /dy08i [(DIN ISO 9241) (Pixel\255) (- -) (Ja) (-) (nicht akzep\255)] def /dy09i [(\255306 Druck)(Grafik)() () () (tierbar 3\051)] def /iyd 170 def /ixs 030 def /iyi 18 array def 0 1 7 {/i exch def %i=0,7 iyi i 2 mul 0 add 2350 i 380 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub put } for %i=0,7 /yhoe 2900 def 0 setgray ix0 yhoe 100 sub moveto TBL (Table 1: ) showea (Development of the ISO standard ISO 9241\255306:2018. Quality) showea (Tabelle 1: ) showde (Entwicklung eines ISO standards ISO 9241\255306:2018. Qualit\344t) showde ix0 yhoe 250 sub moveto TBL (with vector or pixel graphic, ) showea (mit Vector\255 oder Pixelgrafik ) showde (and without or with anticopy software.) showea (und ohne oder mit Anticopy\255Software.) showde 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde 20 setlinewidth /lupt 2490 def /llot 0600 def /ldit lupt llot sub def 0 lupt moveto 5400 0 rlineto stroke %line upper table 0 llot moveto 5400 0 rlineto stroke %line lower table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 40 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 /yhoe 4000 def /iy0 yhoe 3600 sub def ix0 iy0 iyd 0 mul sub moveto TL (1\051 ) show (about 30% of the colours disapear; 2\051 the output is defined ) showea (ungef\344hr 30% der Farben verschwinden; 2\051 die Ausgabe ist durch ) showde (by the software,) showea (die Software) showde ix0 iy0 iyd 1 mul sub moveto TL ( and not by the vision properties of users.) showea ( definiert und nicht durch visuelle Eigenschaften der Benutzer.) showde ix0 iy0 iyd 2 mul sub moveto TL (3\051 4 of 16 grey steps are not distinguishable. ) showea (3\051 4 von 16 Graustufen sind nicht unterscheidbar. ) showde (The minimum requirement is failed.) showea (Minimalforderung wird verfehlt.) showde /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3 /ix0 30 def 0 setgray ix0 yhoe 170 sub moveto TBL (References and access to archive\255web sites with navigation ) showea (Literaturhinweise und Zugriff zu Archive\255Webseiten mit Navigation ) showde /iyd 0150 def /iy0 3700 def ix0 iy0 iyd 0 mul sub moveto TBL (Basic References) showea (Basisliteratur) showde ix0 iy0 iyd 1 mul sub moveto TL ([1] CIE Toolkit for Technical Work, ) show (see ) showea (siehe ) showde ix0 iy0 iyd 2 mul sub moveto 0 0 1 setrgbcolor RL (http://www.cie.co.at/technical-work/technical-resources ) show 0 setgray ix0 iy0 iyd 3 mul sub moveto TL ([2] ISO What delegates and experts need to know ) show ix0 iy0 iyd 4 mul sub moveto 0 0 1 setrgbcolor RL (https://www.iso.org/publication/PUB100037.pdf) show 0 setgray ix0 iy0 iyd 5 mul sub moveto TL ([3] ISO How to write standards ) show ix0 iy0 iyd 6 mul sub moveto 0 0 1 setrgbcolor RL (https://www.iso.org/iso/how-to-write-standards.pdf) show 0 setgray ix0 iy0 iyd 7 mul sub moveto TL ([4] ) showea TIL (K. Richter, 2016, ) show TL (How to find public Web Pages with broken links ) show ix0 iy0 iyd 8 mul sub moveto 0 0 1 setrgbcolor RL (http://farbe.tu-berlin.de/WBM_find_PFs_16.pdf) show 0 setgray /iy0 iy0 1400 sub def ix0 iy0 iyd 0 mul sub moveto TBL (WBM access to public CIE documents until 2017) showea (WBM\255Zugriff auf \336ffentliche CIE\255Dokumente bis 2017) showde ix0 iy0 iyd 1 mul sub moveto 0 setgray TL (Navigate for Reports of ) showea (Navigiere zu Berichten von ) showde (CIE D1: Meeting (MR), Activity (AR)) show ix0 iy0 iyd 2 mul sub moveto 0 0 1 setrgbcolor RL (http://web.archive.org/web/20170624033105/http://div1.cie.co.at/?i_ca_id=544) show 0 setgray ix0 iy0 iyd 3.3 mul sub moveto 0 setgray TL (Navigate for Reports of ) showea (Navigiere zu Berichten von ) showde TL (Meeting (MR), Activity (AR), Reportership (RR)) show ix0 iy0 iyd 4.3 mul sub moveto 0 0 1 setrgbcolor RL (http://web.archive.org/web/20160406200138/http://div1.cie.co.at/?i_ca_id=544) show 0 setgray ix0 iy0 iyd 5.6 mul sub moveto 0 setgray TL (List of more than 300 CIE documents: ) showea (Liste von mehr als 300 CIE\255Dokumnten: ) showde ix0 iy0 iyd 6.6 mul sub moveto 0 0 1 setrgbcolor RL (http://web.archive.org/web/*/http://files.cie.co.at/*) show 0 setgray /iy0 iy0 1200 sub def ix0 iy0 iyd 0 mul sub moveto 0 setgray TBL (WBM and direct access to public BAM documents until 2010) showea (WBM\255 und direkter Zugriff auf \336ffentliche ) showde (BAM\255Dokumente bis 2010) showde ix0 iy0 iyd 1 mul sub moveto 0 0 1 setrgbcolor RL (http://web.archive.org/web/20061116034852/http://www.ps.bam.de/index.html) show 0 setgray ix0 iy0 iyd 2 mul sub moveto 0 setgray TBL (Most content of this BAM web site has been transfered in 2018 to:) showea (Der meiste Inhalt dieser BAM\255Webseite wurde in 2018 kopiert nach:) showde ix0 iy0 iyd 3 mul sub moveto 0 0 1 setrgbcolor RL (http://farbe.li.tu-berlin.de/A/indexAE.html ) showea (http://farbe.li.tu-berlin.de/A/indexAG.html ) showde 0 setgray /iy0 iy0 0700 sub def ix0 iy0 iyd 0 mul sub moveto TBL (WBM access to public ISO/IEC JTC1/SC28 documents until 2006) showea (WBM\255Zugriff auf \336ffentliche ISO/IEC JTC1/SC28\255Dokumente bis 2006) showde ix0 iy0 iyd 1 mul sub moveto 0 0 1 setrgbcolor RL (http://web.archive.org/web/*/http://www.jbmia.or.jp/sc28/sc28docs/j28n*) show ix0 iy0 iyd 2 mul sub moveto (http://web.archive.org/web/*/http://www.actech.com.br/sc28/*) show 0 setgray } if %xchartl=3 %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 4500 neg translate} if xchartl 1 eq { 6100 neg 4500 neg translate} if xchartl 2 eq { 100 neg 0250 neg translate} if xchartl 3 eq { 6100 neg 0250 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,3 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 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 EE000-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 (EE000-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 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 EE000-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 (EE000-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 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 EE000-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 (EE000-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 MM xt 0 eq {16 MM sub} if 20 MM xt 0 eq {12 MM sub} if 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 http://farbe.li.tu-berlin.de/EE00/EE000-7N 20230801 %%BoundingBox: 70 82 405 332 %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/EE00/EE00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 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 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth 0 0 11600 08550 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 08550 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EE000-7N) show } if %xbtex0=1 %/xchartl 3 def 4 1 7 {/xchartl exch def %xchartl=4,7 20 setlinewidth xchartl 0 eq { 100 4500 translate} if xchartl 1 eq { 6100 4500 translate} if xchartl 2 eq { 100 0250 translate} if xchartl 3 eq { 6100 0250 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray TV 100 -120 moveto (EE000-) show xchartl 1 add cvishow (A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %**************************************************** %ALL: 4,5,6,7 0 setgray /ix0 30 def ix0 yhoe 150 sub moveto TBL (Zugriff von ISO\255TC42\255Mitgliedern auf Arbeitsdokumente von ) showde (Access of ISO\255TC42 members to working documents of ) showea (CIE Division 1) showde (CIE Division 1) showea 20 setlinewidth 0 yhoe 0220 sub moveto xwidth 0 rlineto stroke /iyd 150 def /iy0 yhoe 370 sub def %3630 TL ix0 iy0 iyd 0 mul sub moveto (CIE D1 ) show TIL (Vision and Colour ) show TL (erzeugt 3 weitere Dokumentarten verglichen mit ISO:) showde (produces 3 more document types compared to ISO:) showea ix0 iy0 iyd 1 mul sub moveto TL (CIE\255D1\255Berichte: ) showde (CIE D1 Reports: ) showea TBL (Anual (AR), Meeting (MR)) show TL ( und ) showde (, and ) showea TBL (Reportership (RR).) show ix0 iy0 iyd 2.1 mul sub moveto TL (Es gibt Anforderungen von ISO\255Gremien an die CIE ) showde (There were requests of ISO committes to the CIE ) showea (f\374r eine farbmetrische Hilfe.)showde (for a colorimetric support.) showea ix0 iy0 iyd 3.1 mul sub moveto TL (In some cases a CIE TC was created to solve this ISO problem ) showea (In einigen F\344llen wurde ein TC gegr\374ndet um das ) showde (with a document) showea (ISO\255Problem mit einem) showde ix0 iy0 iyd 4.1 mul sub moveto (exchanche until the final publication. ) showea (Domumentaustausch zu l\366sen. ) showde (An example is CIE 184 (indoor daylight).) showea (Ein Beispiel ist CIE 184 (indoor daylight).) showde ix0 iy0 iyd 5.2 mul sub moveto TL (In other cases the CIE nominates a Reportership Reporter to ) showea (In anderen F\344llen hat die CIE einen Reportership\255Reporter ) showde (write a (public) RR. ) showea (f\374r einen RR nominiert. ) showde ix0 iy0 iyd 6.2 mul sub moveto (Many Reporters liked this job because the copyright remained by the ) showea (author.) showea (Viele Reporter liebten diesen Job weil das Copyright beim Autor ) showde (blieb.) showde /ty00i [(CIE document) (until) (since) (copy\255) (public access to)] def /ty01i [(created) (2017) (2018) (rigth) (CIE documents)] def /iy00i [0 0 0 0 0] def /iy01i [0 0 0 0 0] def % 0 1 2 3 4 /ixi [0030 1600 2700 3700 4200 5400]def % 0 1 2 3 4 /ty02i [(CIE D1 Anual Meeting) (public) (internal) (CIE) (until 2017, see)] def /ty03i [(Report D1MR) (CIE Website)(D1 members)() (WBM archive [1])] def /iy02i [0 2 3 0 2] def /iy03i [0 2 3 0 2] def /ty04i [(CIE D1 Anual Activity)(public) (internal) (CIE) (until 2017, see)] def /ty05i [(Report D1AR) (CIE Website)(D1 members)() (WBM archive [1])] def /iy04i [0 2 3 0 2]def /iy05i [0 2 3 0 2]def /ty06i [(CIE D1 Reportership) (public) (internal) (Author) (until 2017, see)] def /ty07i [(Report D1RR) (CIE Website)(D1 members)() (WBM archive [1])] def /iy06i [0 2 3 0 2] def /iy07i [0 2 3 0 2] def /ty08i [(CIE D1 WD/CD/ED/AD) (internal TC/)(internal TC/) (CIE) (until 2015, limi\255)] def /ty09i [(WD/CD TC internal) (D1 members) (D1 members) () (ted TC42 access)] def /iy08i [0 3 3 0 1] def /iy09i [3 3 3 0 1] def /ty10i [(CIE D1 TR or IS) (public, see) (public, see) (CIE) (TC42 members:)] def /ty11i [(D1TR, D1IS) (CIE shop) (CIE shop) () (buy in CIE shop)] def /iy10i [0 2 2 0 2] def /iy11i [0 2 2 0 2] def /dy00i [(CIE\255Dokumente) (bis) (seit) (Copy\255) (\366ffentlich zu)] def /dy01i [(erzeugt) (2017) (2018) (rigth) (CIE\255Dokumente)] def %************************************************************************ % 0 1 2 3 4 /dy02i [(CIE D1 Anual Meeting) (\366ffentlich) (intern) (CIE) (bis 2017, siehe)] def /dy03i [(Report D1MR) (CIE\255Webseite)(D1\255Mitglieder)() (WBM\255Archive [1])] def /dy04i [(CIE D1 Anual Actividy)(\366ffentlich) (intern) (CIE) (bis 2017, siehe)] def /dy05i [(Report D1AR) (CIE\255Webseite)(D1\255Mitglieder)() (WBM\255Archive [1])] def /dy06i [(CIE D1 Reportership) (\366ffentlich) (intern) (Autor) (bis 2017, siehe)] def /dy07i [(Report D1RR) (CIE\255Webseite)(D1\255Mitglieder)() (WBM\255Archive [1])] def /dy08i [(CIE D1 WD/CD/ED/AD) (intern TC/)(intern TC/) (CIE) (bis 2015, Teil\255)] def /dy09i [(WD/CD TC intern) (D1\255Mitglieder) (D1\255Mitglieder) () (TC42\255Zugriff)] def /dy10i [(CIE D1 TR oder IS) (\366ffentlich) (\366ffentlich) (CIE) (TC42\255Mitglieder:)] def /dy11i [(D1TR, D1IS) (CIE\255Laden) (CIE\255Laden) () (CIE\255Laden\255Kauf)] def /iyd 170 def /ixs 030 def /iyi 22 array def 0 1 7 {/i exch def %i=0,7 iyi i 2 mul 0 add 2350 i 380 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub put } for %i=0,7 /yhoe 2500 def 0 setgray ix0 yhoe 050 add moveto %2600 TBL (Table 1: ) showea (Tabelle 1: ) showde (Access of TC42 members to CIE Liaison documents?) showea (Zugriff von TC42\255Mitgliedern auf CIE\255Liaison\255Dokumente?) showde 0 1 4 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea ixi 1 get iyi 00 get moveto ty00i 1 get showea ixi 2 get iyi 00 get moveto ty00i 2 get showea ixi 3 get iyi 00 get moveto ty00i 3 get showea ixi 4 get iyi 00 get moveto ty00i 4 get showea ixi 0 get iyi 01 get moveto ty01i 0 get showea ixi 1 get iyi 01 get moveto ty01i 1 get showea ixi 2 get iyi 01 get moveto ty01i 2 get showea ixi 3 get iyi 01 get moveto ty01i 3 get showea ixi 4 get iyi 01 get moveto ty01i 4 get showea ixi 0 get iyi 00 get moveto dy00i 0 get showde ixi 1 get iyi 00 get moveto dy00i 1 get showde ixi 2 get iyi 00 get moveto dy00i 2 get showde ixi 3 get iyi 00 get moveto dy00i 3 get showde ixi 4 get iyi 00 get moveto dy00i 4 get showde ixi 0 get iyi 01 get moveto dy01i 0 get showde ixi 1 get iyi 01 get moveto dy01i 1 get showde ixi 2 get iyi 01 get moveto dy01i 2 get showde ixi 3 get iyi 01 get moveto dy01i 3 get showde ixi 4 get iyi 01 get moveto dy01i 4 get showde 0 1 4 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 02 get moveto ty02i 0 get showea ixi 1 get iyi 02 get moveto ty02i 1 get showea ixi 2 get iyi 02 get moveto ty02i 2 get showea ixi 3 get iyi 02 get moveto ty02i 3 get showea ixi 4 get iyi 02 get moveto ty02i 4 get showea ixi 0 get iyi 03 get moveto ty03i 0 get showea ixi 1 get iyi 03 get moveto ty03i 1 get showea ixi 2 get iyi 03 get moveto ty03i 2 get showea ixi 3 get iyi 03 get moveto ty03i 3 get showea ixi 4 get iyi 03 get moveto ty03i 4 get showea ixi 0 get iyi 02 get moveto dy02i 0 get showde ixi 1 get iyi 02 get moveto dy02i 1 get showde ixi 2 get iyi 02 get moveto dy02i 2 get showde ixi 3 get iyi 02 get moveto dy02i 3 get showde ixi 4 get iyi 02 get moveto dy02i 4 get showde ixi 0 get iyi 03 get moveto dy03i 0 get showde ixi 1 get iyi 03 get moveto dy03i 1 get showde ixi 2 get iyi 03 get moveto dy03i 2 get showde ixi 3 get iyi 03 get moveto dy03i 3 get showde ixi 4 get iyi 03 get moveto dy03i 4 get showde 0 1 4 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea ixi 1 get iyi 04 get moveto ty04i 1 get showea ixi 2 get iyi 04 get moveto ty04i 2 get showea ixi 3 get iyi 04 get moveto ty04i 3 get showea ixi 4 get iyi 04 get moveto ty04i 4 get showea ixi 0 get iyi 05 get moveto ty05i 0 get showea ixi 1 get iyi 05 get moveto ty05i 1 get showea ixi 2 get iyi 05 get moveto ty05i 2 get showea ixi 3 get iyi 05 get moveto ty05i 3 get showea ixi 4 get iyi 05 get moveto ty05i 4 get showea ixi 0 get iyi 04 get moveto dy04i 0 get showde ixi 1 get iyi 04 get moveto dy04i 1 get showde ixi 2 get iyi 04 get moveto dy04i 2 get showde ixi 3 get iyi 04 get moveto dy04i 3 get showde ixi 4 get iyi 04 get moveto dy04i 4 get showde ixi 0 get iyi 05 get moveto dy05i 0 get showde ixi 1 get iyi 05 get moveto dy05i 1 get showde ixi 2 get iyi 05 get moveto dy05i 2 get showde ixi 3 get iyi 05 get moveto dy05i 3 get showde ixi 4 get iyi 05 get moveto dy05i 4 get showde 0 1 4 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea ixi 1 get iyi 06 get moveto ty06i 1 get showea ixi 2 get iyi 06 get moveto ty06i 2 get showea ixi 3 get iyi 06 get moveto ty06i 3 get showea ixi 4 get iyi 06 get moveto ty06i 4 get showea ixi 0 get iyi 07 get moveto ty07i 0 get showea ixi 1 get iyi 07 get moveto ty07i 1 get showea ixi 2 get iyi 07 get moveto ty07i 2 get showea ixi 3 get iyi 07 get moveto ty07i 3 get showea ixi 4 get iyi 07 get moveto ty07i 4 get showea ixi 0 get iyi 06 get moveto dy06i 0 get showde ixi 1 get iyi 06 get moveto dy06i 1 get showde ixi 2 get iyi 06 get moveto dy06i 2 get showde ixi 3 get iyi 06 get moveto dy06i 3 get showde ixi 4 get iyi 06 get moveto dy06i 4 get showde ixi 0 get iyi 07 get moveto dy07i 0 get showde ixi 1 get iyi 07 get moveto dy07i 1 get showde ixi 2 get iyi 07 get moveto dy07i 2 get showde ixi 3 get iyi 07 get moveto dy07i 3 get showde ixi 4 get iyi 07 get moveto dy07i 4 get showde 0 1 4 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea ixi 1 get iyi 08 get moveto ty08i 1 get showea ixi 2 get iyi 08 get moveto ty08i 2 get showea ixi 3 get iyi 08 get moveto ty08i 3 get showea ixi 4 get iyi 08 get moveto ty08i 4 get showea ixi 0 get iyi 09 get moveto ty09i 0 get showea ixi 1 get iyi 09 get moveto ty09i 1 get showea ixi 2 get iyi 09 get moveto ty09i 2 get showea ixi 3 get iyi 09 get moveto ty09i 3 get showea ixi 4 get iyi 09 get moveto ty09i 4 get showea ixi 0 get iyi 08 get moveto dy08i 0 get showde ixi 1 get iyi 08 get moveto dy08i 1 get showde ixi 2 get iyi 08 get moveto dy08i 2 get showde ixi 3 get iyi 08 get moveto dy08i 3 get showde ixi 4 get iyi 08 get moveto dy08i 4 get showde ixi 0 get iyi 09 get moveto dy09i 0 get showde ixi 1 get iyi 09 get moveto dy09i 1 get showde ixi 2 get iyi 09 get moveto dy09i 2 get showde ixi 3 get iyi 09 get moveto dy09i 3 get showde ixi 4 get iyi 09 get moveto dy09i 4 get showde 0 1 4 {/i exch def iy10i i get 0 eq {1 1 1 setrgbcolor} if iy10i i get 1 eq {1 1 0 setrgbcolor} if iy10i i get 2 eq {0 1 0 setrgbcolor} if iy10i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 10 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 4 {/i exch def iy11i i get 0 eq {1 1 1 setrgbcolor} if iy11i i get 1 eq {1 1 0 setrgbcolor} if iy11i i get 2 eq {0 1 0 setrgbcolor} if iy11i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 11 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 10 get moveto ty10i 0 get showea ixi 1 get iyi 10 get moveto ty10i 1 get showea ixi 2 get iyi 10 get moveto ty10i 2 get showea ixi 3 get iyi 10 get moveto ty10i 3 get showea ixi 4 get iyi 10 get moveto ty10i 4 get showea ixi 0 get iyi 11 get moveto ty11i 0 get showea ixi 1 get iyi 11 get moveto ty11i 1 get showea ixi 2 get iyi 11 get moveto ty11i 2 get showea ixi 3 get iyi 11 get moveto ty11i 3 get showea ixi 4 get iyi 11 get moveto ty11i 4 get showea ixi 0 get iyi 10 get moveto dy10i 0 get showde ixi 1 get iyi 10 get moveto dy10i 1 get showde ixi 2 get iyi 10 get moveto dy10i 2 get showde ixi 3 get iyi 10 get moveto dy10i 3 get showde ixi 4 get iyi 10 get moveto dy10i 4 get showde ixi 0 get iyi 11 get moveto dy11i 0 get showde ixi 1 get iyi 11 get moveto dy11i 1 get showde ixi 2 get iyi 11 get moveto dy11i 2 get showde ixi 3 get iyi 11 get moveto dy11i 3 get showde ixi 4 get iyi 11 get moveto dy11i 4 get showde 20 setlinewidth /lupt 2500 def /llot 0250 def /ldit lupt llot sub def 0 lupt moveto 5400 0 rlineto stroke %line upper table %0 llot moveto 5400 0 rlineto stroke %line lower table 1 1 4 {/i exch def %i=1,4 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,4 %horizontal lines 1 2 11 {/i exch def %i=1,11,2 0 iyi i get 40 sub moveto 5400 0 rlineto stroke } for %i=1,11,2 %/iyix iyi 15 get 700 sub def /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %ALL 4,5,6,7 %***************************************************************** xchartl 4 eq {%xchartl=4 /ioutr 0 def } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5 /ioutr 1 def } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6 /ioutr 2 def } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7 /ioutr 3 def } if %xchartl=7 ioutr 0 eq {%ioutr=0 /iyix 050 def /ixd 350 def /ix00 ixi 0 get def /ix01 ix00 ixd add def ix00 iyix moveto 0 1 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke ix01 iyix moveto ( seen by public (to buy)) showea ( \366ffentlich (zu kaufen)) showde /ix00 2000 def /ix01 ix00 ixd add def ix00 iyix moveto 1 1 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke ix00 300 add iyix moveto 1 0 0 setrgbcolor 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath fill 0 setgray ix00 300 add iyix moveto 300 0 rlineto 0 150 rlineto 300 neg 0 rlineto closepath stroke ix01 300 add iyix moveto ( limited or no access for TC42 members ) showea ( begrenzter oder kein Zugriff f\374r TC42 ) showde } if %ioutr=0 ioutr 1 eq { %ioutr=1 /iyix 050 def /ix00 ixi 0 get def ix00 iyix moveto /iyix 50 def 0 setgray TL ([1] see >300 documents: ) showea ([1] siehe >300 Dokumente: ) showde 0 0 1 setrgbcolor RL (http://web.archive.org/web/*/http://files.cie.co.at/*) show 0 setgray TL } if %ioutr=1 ioutr 2 eq { %ioutr=2 /iyix 050 def /ix00 ixi 0 get def ix00 iyix moveto /iyix 50 def 0 setgray RV ([1] navigate for ) showea ([1] navigieren f\374r ) showde (MR, AR, RR: ) show 0 0 1 setrgbcolor (http://web.archive.org/web/20160406200138/http://div1.cie.co.at/?i_ca_id=544) show 0 setgray TL } if %ioutr=2 ioutr 3 eq { %ioutr=3 /iyix 050 def /ix00 ixi 0 get def ix00 iyix moveto /iyix 50 def 0 setgray RV ([1] navigate for ) showea ([1] navigieren f\374r ) showde (MR, AR: ) show 0 0 1 setrgbcolor (http://web.archive.org/web/20170624033105/http://div1.cie.co.at/?i_ca_id=544) show 0 setgray TL } if %ioutr=3 /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 4500 neg translate} if xchartl 1 eq { 6100 neg 4500 neg translate} if xchartl 2 eq { 100 neg 0250 neg translate} if xchartl 3 eq { 6100 neg 0250 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=4,7 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 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 EE000-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 (EE000-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 BeginEPSF 161 MM 08 MM 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 EE001-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 (EE001-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 219 MM 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 EE001-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 (EE001-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 08 MM 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 http://farbe.li.tu-berlin.de/EE00/EE001-7R 20230801 %%BoundingBox: 70 82 405 332 %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/EE00/EE00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 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 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth 0 0 11600 08550 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 08550 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EE001-7R) show } if %xbtex0=1 %/xchartl 3 def 0 1 3 {/xchartl exch def %xchartl=0,3 20 setlinewidth xchartl 0 eq { 100 4500 translate} if xchartl 1 eq { 6100 4500 translate} if xchartl 2 eq { 100 0250 translate} if xchartl 3 eq { 6100 0250 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 6100 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 6100 0250 translate} if 0 setgray TV 100 -120 moveto (EE001-) show xchartl 1 add cvishow (A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** xchartl 0 eq {%xchartl=0 %STOP0 /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBIL (Weber\255Fechner) show TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde ( law in CIE 230:2019 for threshold colour differences of ) showea ix0 yhoe iyd 2 mul sub moveto TBL (surface colours ) showea (von K\366rperfarben ) showde 20 setlinewidth 0 yhoe iyd 2 mul sub 50 sub moveto 5400 0 rlineto stroke /yhod yhoe 500 sub def ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -30 -30 rmoveto TV (CIELAB) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 2 mul sub moveto TL (IEC 61966\2552\2551 uses a similar potential function ) showea (IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde TIL (L*) show -30 -30 rmoveto TV (IEC) show 0 30 rmoveto TIL ( = m ) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto TL (.) show ix0 yhod iyds 3.1 mul sub moveto TL (The ) showea (Das ) showde TIL (Weber\255Fechner) show TL (\255Gesetz ist \344quivalent zur Gleichung: ) showde ( law is equivalent to the equation: ) showea SL (D) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( = ) show TIL (c) show 20 0 rmoveto TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 5100 yhod iyds 3.1 mul sub moveto TL ([1]) show 0 setgray TL ix0 yhod iyds 4.2 mul sub moveto TIL (Integration ) show TL (leads to the logarithmic equation: ) showea (f\374hrt zur logarithmischen Gleichung: ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=k) show 30 0 rmoveto TL (log\050) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (\051.) show 5100 yhod iyds 4.2 mul sub moveto TL ([2]) show ix0 yhod iyds 5.3 mul sub moveto TIL (Derivation ) showea (Ableitung ) showde TL (leads for ) showea (f\374hrt f\374r ) showde SL (D) show TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=1 ) show TL (to the linear equation: ) showea (zur linearen Gleichung: ) showde TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (/) show SL (D) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=k=57.) show 5100 yhod iyds 5.3 mul sub moveto TL ([3]) show ix0 yhod iyds 6.4 mul sub moveto TL (For ) showea (f\374r ) showde TBIL (Adjacent ) showea (aneinandergrenzende ) showde TL (colours in offices the standard contrast range is ) showea (Farben im B\374ro ist der Normkontrastbereich ) showde TBL (25:1) show TL (=90:3,6) show (.) showea %************************************************************** /ty00i [(Colour) (Tritimulus)(office) (relative) (CIE) (relative)] def /ty01i [((matte))(value) (luminance) (luminance) (lightness) (lightness)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def %/ty02i [((contrast))(Y) (L) (L) (L*CIELAB) (L*r)]def %/ty03i [((25:1=90:3,6))()([cd/m]) (=L/Lz) (L*1/2,4) (=k*log(Lr))]def /ty02i [((contrast)) (Y) (L) () () ()] def /ty03i [((25:1=90:3,6))()() () () ()] def /iy02i [0 0 0 4 0 4] def /iy03i [0 0 4 4 0 4] def % 0 1 2 3 4 5 /ixi [0030 1000 1800 2800 3800 4600 5400] def % 0 1 2 3 4 5 /ty04i [(White W) (90) (142) (5) (94) (40)] def %/ty05i[((paper)) (=18*5)(=28,2*5) () (=50+44) (=k*log(5))] def /ty05i [((paper)) (=18*5)(=28,2*5) () (=50+44) ()] def /iy04i [0 0 0 0 0 0] def /iy05i [0 0 0 0 0 0] def /ty06i [(Grey Z) (18) (28,2) (1) (50) (0)] def %/ty07i[((paper))() () () () (=k*log(1))] def /ty07i [((paper))() () () () ()] def /iy06i [0 0 0 0 0 0] def /iy07i [0 0 0 0 0 0] def /ty08i [(Black N)(3,6) (5,6) (0,2) (18) (-40)] def %/ty09i[((paper))(=18/5) (28,2/5) () (50-32) (=k*log(0,2))] def /ty09i [((paper))(=18/5) (28,2/5) () (50-32) ()] def /iy08i [0 0 0 0 0 0] def /iy09i [0 0 0 0 0 0] def %************************************************************************** /dy00i [(Farbe) (Norm\255) (B\374ro\255) (relative) (CIE) (relative)] def /dy01i [((matt)) (farbwert) (Leuchtdichte) (Leuchtdichte) (Helligkeit) (Helligkeit)] def %/dy02i [() (Y) (L) (Lr) (L*CIELAB) (Lr*)]def %/dy03i [() () ([cd/m2]) (=L/Lz) (=Lr1/2,4) (=k*log(Lr))]def /dy02i [((Kontrast)) (Y) (L) () () ()] def /dy03i [((25:1=90:3,6))() () () () ()] def % 0 1 2 3 4 5 /dy04i [(Wei\337 W) (90) (142) (5) (94) (40)] def %/dy05i[((Papier)) (=18*5) (=28,2*5) () () (=k*log(5))] def /dy05i [((Papier)) (=18*5) (=28,2*5) () () ()] def /dy06i [(Grau Z) (18) (28,2) (1) (50) (0)] def %/dy07i[((Papier)) () () () () (=k*log(1))] def /dy07i [((Papier)) () () () () ()] def /dy08i [(Schwarz N) (3,6) (5,6) (0,2) (18) (-40)] def %/dy09i[(Papier) (=18/5) (28,2/5) () () (=k*log(0,2))] def /dy09i [(Papier) (=18/5) (28,2/5) () () ()] def %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 def /iyi 20 array def 0 1 9 {/i exch def %i=0,9 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put } for %i=0,9 /yhod iytab 300 add def 0 setgray ix0 yhod 050 sub moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (CIE tristimulus value ) showea (Normfarbwert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightnesses ) showea ( und Helligkeiten ) showde TBIL (L* ) show 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBIL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde %Lr ixi 3 get iyi 02 get moveto %1 0 0 setrgbcolor TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto %L* ixi 4 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto %L*r ixi 5 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (r) show 0 30 rmoveto 0 setgray TBL ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (Z) show 0 30 rmoveto %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (\176) show TBIL (m L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto %=k log(Lr) ixi 5 get iyi 03 get moveto TBIL (=k) show 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto TBL (\051) show 0 setgray 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 05 get moveto TIL (=k) show 20 0 rmoveto TL (log(5)) show 0 setgray 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde %=k log(1) %1 0 0 setrgbcolor ixi 5 get iyi 07 get moveto TIL (=k) show 20 0 rmoveto TL (log(1)) show 0 setgray 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 09 get moveto TIL (=k) show 20 0 rmoveto TL (log(0,2)) show 0 setgray 20 setlinewidth /lupt iytab iyd add 40 sub 20 add def /llot iytab iyd 9 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto 5400 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 60 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 ix0 0070 moveto TL (For the lightness range between ) showea (Im Helligkeitsbereich zwischen ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=-40 and 40 the constant is: ) showea (=-40 und 40 ist die Konstante: ) showde TIL (k=) show TL (40/log(5)=57) show /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=0 %***************************************************************** xchartl 1 eq {%xchartl=1 %STOP2 /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBIL (Weber\255Fechner) show TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde ( law in CIE 230:2019 for threshold colour differences of ) showea ix0 yhoe iyd 2 mul sub moveto TBL (surface colours ) showea (von K\366rperfarben ) showde 20 setlinewidth 0 yhoe iyd 2 mul sub 50 sub moveto 5400 0 rlineto stroke /yhod yhoe 500 sub def ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (For local adaptation to ) showea TBIL (Adjacent ) showea TL (colours there is a ) showea (F\374r lokale Adaptation an ) showde TBIL (aneinandergrenzende ) showde TL (Farben ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (100:1.) show ix0 yhod iyds 2.2 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -30 -30 rmoveto TV (CIELAB) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 3.2 mul sub moveto TL (IEC 61966\2552\2551 uses a similar potential function ) showea (IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde TIL (L*) show -30 -30 rmoveto TV (IEC) show 0 30 rmoveto TIL ( = m ) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto TL (.) show ix0 yhod iyds 4.2 mul sub moveto TL (For ) showea TBIL (separate ) showea TL (colours on a grey surround there is a ) showea (F\374r ) showde TBIL (separate ) showde TL (Farben auf einem grauen Umfeld ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (25:1) show TL (=90:3,6.) show ix0 yhod iyds 5.4 mul sub moveto TIL (see K. Richter, 2006, ) showea (siehe K. Richter, 2006, ) showde TL (Relation of ) showea TIL (Weber ) show TL (and ) show TIL (Stevens ) show TL (law at achromatic threshold.) show ix0 yhod iyds 6.4 mul sub moveto 0 0 1 setrgbcolor RL (http://farbe.tu-berlin.de/A/BAMAT.PDF) show 0 setgray TL %************************************************************** /ty00i [(Colour) (Tritimulus)(office) (relative) (CIE) (relative)] def /ty01i [((matte))(value) (luminance) (luminance) (lightness) (lightness)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def %/ty02i [((contrast))(Y) (L) (L) (L*CIELAB) (L*r)]def %/ty03i [((25:1=90:3,6))()([cd/m]) (=L/Lz) (L*1/2,4) (=k*log(Lr))]def /ty02i [((contrast)) (Y) (L) () () ()] def /ty03i [((25:1=90:3,6))()() () () ()] def /iy02i [0 0 0 4 0 4] def /iy03i [0 0 4 4 0 4] def % 0 1 2 3 4 5 /ixi [0030 1000 1800 2800 3800 4600 5400] def % 0 1 2 3 4 5 /ty04i [(White W) (90) (142) (5) (94) (40)] def %/ty05i[((paper)) (=18*5)(=28,2*5) () (=50+44) (=k*log(5))] def /ty05i [((paper)) (=18*5)(=28,2*5) () (=50+44) ()] def /iy04i [0 0 0 0 0 0] def /iy05i [0 0 0 0 0 0] def /ty06i [(Grey Z) (18) (28,2) (1) (50) (0)] def %/ty07i[((paper))() () () () (=k*log(1))] def /ty07i [((paper))() () () () ()] def /iy06i [0 0 0 0 0 0] def /iy07i [0 0 0 0 0 0] def /ty08i [(Black N)(3,6) (5,6) (0,2) (18) (-40)] def %/ty09i[((paper))(=18/5) (28,2/5) () (50-32) (=k*log(0,2))] def /ty09i [((paper))(=18/5) (28,2/5) () (50-32) ()] def /iy08i [0 0 0 0 0 0] def /iy09i [0 0 0 0 0 0] def %************************************************************************** /dy00i [(Farbe) (Norm\255) (B\374ro\255) (relative) (CIE) (relative)] def /dy01i [((matt)) (farbwert) (Leuchtdichte) (Leuchtdichte) (Helligkeit) (Helligkeit)] def %/dy02i [() (Y) (L) (Lr) (L*CIELAB) (Lr*)]def %/dy03i [() () ([cd/m2]) (=L/Lz) (=Lr1/2,4) (=k*log(Lr))]def /dy02i [((Kontrast)) (Y) (L) () () ()] def /dy03i [((25:1=90:3,6))() () () () ()] def % 0 1 2 3 4 5 /dy04i [(Wei\337 W) (90) (142) (5) (94) (40)] def %/dy05i[((Papier)) (=18*5) (=28,2*5) () () (=k*log(5))] def /dy05i [((Papier)) (=18*5) (=28,2*5) () () ()] def /dy06i [(Grau Z) (18) (28,2) (1) (50) (0)] def %/dy07i[((Papier)) () () () () (=k*log(1))] def /dy07i [((Papier)) () () () () ()] def /dy08i [(Schwarz N) (3,6) (5,6) (0,2) (18) (-40)] def %/dy09i[(Papier) (=18/5) (28,2/5) () () (=k*log(0,2))] def /dy09i [(Papier) (=18/5) (28,2/5) () () ()] def %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 def /iyi 20 array def 0 1 9 {/i exch def %i=0,9 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put } for %i=0,9 /yhod iytab 300 add def 0 setgray ix0 yhod 050 sub moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (CIE tristimulus value ) showea (Normfarbwert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightnesses ) showea ( und Helligkeiten ) showde TBIL (L* ) show 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBIL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde %Lr ixi 3 get iyi 02 get moveto %1 0 0 setrgbcolor TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto %L* ixi 4 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto %L*r ixi 5 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (r) show 0 30 rmoveto 0 setgray TBL ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (Z) show 0 30 rmoveto %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (\176) show TBIL (m L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto %=k log(Lr) ixi 5 get iyi 03 get moveto TBIL (=k) show 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto TBL (\051) show 0 setgray 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 05 get moveto TIL (=k) show 20 0 rmoveto TL (log(5)) show 0 setgray 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde %=k log(1) %1 0 0 setrgbcolor ixi 5 get iyi 07 get moveto TIL (=k) show 20 0 rmoveto TL (log(1)) show 0 setgray 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 09 get moveto TIL (=k) show 20 0 rmoveto TL (log(0,2)) show 0 setgray 20 setlinewidth /lupt iytab iyd add 40 sub 20 add def /llot iytab iyd 9 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto 5400 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 60 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 ix0 0070 moveto TL (For the lightness range between ) showea (Im Helligkeitsbereich zwischen ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=-40 and 40 the constant is: ) showea (=-40 und 40 ist die Konstante: ) showde TIL (k=) show TL (40/log(5)=57) show /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=1 %***************************************************************** xchartl 2 eq {%xchartl=2 %STOP1 /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBIL (Weber\255Fechner) show TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde ( law in CIE 230:2019 for threshold colour differences of ) showea ix0 yhoe iyd 2 mul sub moveto TBL (surface colours ) showea (von K\366rperfarben ) showde 20 setlinewidth 0 yhoe iyd 2 mul sub 50 sub moveto 5400 0 rlineto stroke /yhod yhoe 500 sub def ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (For local adaptation to ) showea TBIL (Adjacent ) showea TL (colours there is a ) showea (F\374r lokale Adaptation an ) showde TBIL (aneinandergrenzende ) showde TL (Farben ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (100:1.) show ix0 yhod iyds 2.2 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -30 -30 rmoveto TV (CIELAB) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 3.2 mul sub moveto TL (IEC 61966\2552\2551 uses a similar potential function ) showea (IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde TIL (L*) show -30 -30 rmoveto TV (IEC) show 0 30 rmoveto TIL ( = m ) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto TL (.) show ix0 yhod iyds 4.2 mul sub moveto TL (For ) showea TBIL (separate ) showea TL (colours on a grey surround there is a ) showea (F\374r ) showde TBIL (separate ) showde TL (Farben auf einem grauen Umfeld ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (25:1) show TL (=90:3,6.) show ix0 yhod iyds 5.4 mul sub moveto TL (The ) showea (Das ) showde TIL (Weber\255Fechner) show TL (\255Gesetz ist \344quivalent zur Gleichung: ) showde ( law is equivalent to the equation: ) showea SL (D) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( = ) show TIL (c) show 20 0 rmoveto TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 5100 yhod iyds 5.4 mul sub moveto TL ([1]) show 0 setgray TL ix0 yhod iyds 6.4 mul sub moveto TIL (Integration ) show TL (leads to the logarithmic equation: ) showea (f\374hrt zur logarithmischen Gleichung: ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=k) show 30 0 rmoveto TL (log\050) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (\051.) show 5100 yhod iyds 6.4 mul sub moveto TL ([2]) show %************************************************************** /ty00i [(Colour) (Tritimulus)(office) (relative) (CIE) (relative)] def /ty01i [((matte))(value) (luminance) (luminance) (lightness) (lightness)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def %/ty02i [((contrast))(Y) (L) (L) (L*CIELAB) (L*r)]def %/ty03i [((25:1=90:3,6))()([cd/m]) (=L/Lz) (L*1/2,4) (=k*log(Lr))]def /ty02i [((contrast)) (Y) (L) () () ()] def /ty03i [((25:1=90:3,6))()() () () ()] def /iy02i [0 0 0 4 0 4] def /iy03i [0 0 4 4 0 4] def % 0 1 2 3 4 5 /ixi [0030 1000 1800 2800 3800 4600 5400] def % 0 1 2 3 4 5 /ty04i [(White W) (90) (142) (5) (94) (40)] def %/ty05i[((paper)) (=18*5)(=28,2*5) () (=50+44) (=k*log(5))] def /ty05i [((paper)) (=18*5)(=28,2*5) () (=50+44) ()] def /iy04i [0 0 0 0 0 0] def /iy05i [0 0 0 0 0 0] def /ty06i [(Grey Z) (18) (28,2) (1) (50) (0)] def %/ty07i[((paper))() () () () (=k*log(1))] def /ty07i [((paper))() () () () ()] def /iy06i [0 0 0 0 0 0] def /iy07i [0 0 0 0 0 0] def /ty08i [(Black N)(3,6) (5,6) (0,2) (18) (-40)] def %/ty09i[((paper))(=18/5) (28,2/5) () (50-32) (=k*log(0,2))] def /ty09i [((paper))(=18/5) (28,2/5) () (50-32) ()] def /iy08i [0 0 0 0 0 0] def /iy09i [0 0 0 0 0 0] def %************************************************************************** /dy00i [(Farbe) (Norm\255) (B\374ro\255) (relative) (CIE) (relative)] def /dy01i [((matt)) (farbwert) (Leuchtdichte) (Leuchtdichte) (Helligkeit) (Helligkeit)] def %/dy02i [() (Y) (L) (Lr) (L*CIELAB) (Lr*)]def %/dy03i [() () ([cd/m2]) (=L/Lz) (=Lr1/2,4) (=k*log(Lr))]def /dy02i [((Kontrast)) (Y) (L) () () ()] def /dy03i [((25:1=90:3,6))() () () () ()] def % 0 1 2 3 4 5 /dy04i [(Wei\337 W) (90) (142) (5) (94) (40)] def %/dy05i[((Papier)) (=18*5) (=28,2*5) () () (=k*log(5))] def /dy05i [((Papier)) (=18*5) (=28,2*5) () () ()] def /dy06i [(Grau Z) (18) (28,2) (1) (50) (0)] def %/dy07i[((Papier)) () () () () (=k*log(1))] def /dy07i [((Papier)) () () () () ()] def /dy08i [(Schwarz N) (3,6) (5,6) (0,2) (18) (-40)] def %/dy09i[(Papier) (=18/5) (28,2/5) () () (=k*log(0,2))] def /dy09i [(Papier) (=18/5) (28,2/5) () () ()] def %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 def /iyi 20 array def 0 1 9 {/i exch def %i=0,9 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put } for %i=0,9 /yhod iytab 300 add def 0 setgray ix0 yhod 050 sub moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (CIE tristimulus value ) showea (Normfarbwert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightnesses ) showea ( und Helligkeiten ) showde TBIL (L* ) show 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBIL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde %Lr ixi 3 get iyi 02 get moveto %1 0 0 setrgbcolor TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto %L* ixi 4 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto %L*r ixi 5 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (r) show 0 30 rmoveto 0 setgray TBL ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (Z) show 0 30 rmoveto %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (\176) show TBIL (m L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto %=k log(Lr) ixi 5 get iyi 03 get moveto TBIL (=k) show 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto TBL (\051) show 0 setgray 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 05 get moveto TIL (=k) show 20 0 rmoveto TL (log(5)) show 0 setgray 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde %=k log(1) %1 0 0 setrgbcolor ixi 5 get iyi 07 get moveto TIL (=k) show 20 0 rmoveto TL (log(1)) show 0 setgray 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 09 get moveto TIL (=k) show 20 0 rmoveto TL (log(0,2)) show 0 setgray 20 setlinewidth /lupt iytab iyd add 40 sub 20 add def /llot iytab iyd 9 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto 5400 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 60 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 ix0 0070 moveto TL (For the lightness range between ) showea (Im Helligkeitsbereich zwischen ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=-40 and 40 the constant is: ) showea (=-40 und 40 ist die Konstante: ) showde TIL (k=) show TL (40/log(5)=57) show /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=2 %***************************************************************** xchartl 3 eq {%xchartl=3 %STOP3 /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBIL (Weber\255Fechner) show TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde ( law in CIE 230:2019 for threshold colour differences of ) showea ix0 yhoe iyd 2 mul sub moveto TBL (surface colours ) showea (von K\366rperfarben ) showde 20 setlinewidth 0 yhoe iyd 2 mul sub 50 sub moveto 5400 0 rlineto stroke /yhod yhoe 500 sub def ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (For local adaptation to ) showea TBIL (Adjacent ) showea TL (colours there is a ) showea (F\374r lokale Adaptation an ) showde TBIL (aneinandergrenzende ) showde TL (Farben ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (100:1.) show ix0 yhod iyds 2.2 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -30 -30 rmoveto TV (CIELAB) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 3.2 mul sub moveto TL (IEC 61966\2552\2551 uses a similar potential function ) showea (IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde TIL (L*) show -30 -30 rmoveto TV (IEC) show 0 30 rmoveto TIL ( = m ) show TIL (L) show 0 -30 rmoveto TV (r) show 0 30 rmoveto 0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto TL (.) show ix0 yhod iyds 4.2 mul sub moveto TL (For ) showea TBIL (separate ) showea TL (colours on a grey surround there is a ) showea (F\374r ) showde TBIL (separate ) showde TL (Farben auf einem grauen Umfeld ist der ) showde TBIL (visible contrast ) showea (Kontrast ) showde TBL (25:1) show TL (=90:3,6.) show ix0 yhod iyds 5.4 mul sub moveto TL (Surface colours cover the ) showea (K\336rpefarben umfassen den ) showde TBIL (visible contrast 100:1. ) showea (visuellen Kontrast 100:1. ) showde TL (Negative film covers the) showea (Negativfilm umfasst den) showde ix0 yhod iyds 6.4 mul sub moveto TBIL (contrast 100000:1 ) show TL ((density 5:1). Film stores images from under to over exposure) showea ((Dichte 5:1). Film speichert Bilder von Unter\255 zu \374berbelichtung) showde 0 setgray TL %************************************************************** /ty00i [(Colour) (Tritimulus)(office) (relative) (CIE) (relative)] def /ty01i [((matte))(value) (luminance) (luminance) (lightness) (lightness)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def %/ty02i [((contrast))(Y) (L) (L) (L*CIELAB) (L*r)]def %/ty03i [((25:1=90:3,6))()([cd/m]) (=L/Lz) (L*1/2,4) (=k*log(Lr))]def /ty02i [((contrast)) (Y) (L) () () ()] def /ty03i [((25:1=90:3,6))()() () () ()] def /iy02i [0 0 0 4 0 4] def /iy03i [0 0 4 4 0 4] def % 0 1 2 3 4 5 /ixi [0030 1000 1800 2800 3800 4600 5400] def % 0 1 2 3 4 5 /ty04i [(White W) (90) (142) (5) (94) (40)] def %/ty05i[((paper)) (=18*5)(=28,2*5) () (=50+44) (=k*log(5))] def /ty05i [((paper)) (=18*5)(=28,2*5) () (=50+44) ()] def /iy04i [0 0 0 0 0 0] def /iy05i [0 0 0 0 0 0] def /ty06i [(Grey Z) (18) (28,2) (1) (50) (0)] def %/ty07i[((paper))() () () () (=k*log(1))] def /ty07i [((paper))() () () () ()] def /iy06i [0 0 0 0 0 0] def /iy07i [0 0 0 0 0 0] def /ty08i [(Black N)(3,6) (5,6) (0,2) (18) (-40)] def %/ty09i[((paper))(=18/5) (28,2/5) () (50-32) (=k*log(0,2))] def /ty09i [((paper))(=18/5) (28,2/5) () (50-32) ()] def /iy08i [0 0 0 0 0 0] def /iy09i [0 0 0 0 0 0] def %************************************************************************** /dy00i [(Farbe) (Norm\255) (B\374ro\255) (relative) (CIE) (relative)] def /dy01i [((matt)) (farbwert) (Leuchtdichte) (Leuchtdichte) (Helligkeit) (Helligkeit)] def %/dy02i [() (Y) (L) (Lr) (L*CIELAB) (Lr*)]def %/dy03i [() () ([cd/m2]) (=L/Lz) (=Lr1/2,4) (=k*log(Lr))]def /dy02i [((Kontrast)) (Y) (L) () () ()] def /dy03i [((25:1=90:3,6))() () () () ()] def % 0 1 2 3 4 5 /dy04i [(Wei\337 W) (90) (142) (5) (94) (40)] def %/dy05i[((Papier)) (=18*5) (=28,2*5) () () (=k*log(5))] def /dy05i [((Papier)) (=18*5) (=28,2*5) () () ()] def /dy06i [(Grau Z) (18) (28,2) (1) (50) (0)] def %/dy07i[((Papier)) () () () () (=k*log(1))] def /dy07i [((Papier)) () () () () ()] def /dy08i [(Schwarz N) (3,6) (5,6) (0,2) (18) (-40)] def %/dy09i[(Papier) (=18/5) (28,2/5) () () (=k*log(0,2))] def /dy09i [(Papier) (=18/5) (28,2/5) () () ()] def %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 def /iyi 20 array def 0 1 9 {/i exch def %i=0,9 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put } for %i=0,9 /yhod iytab 300 add def 0 setgray ix0 yhod 050 sub moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (CIE tristimulus value ) showea (Normfarbwert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightnesses ) showea ( und Helligkeiten ) showde TBIL (L* ) show 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBIL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde %Lr ixi 3 get iyi 02 get moveto %1 0 0 setrgbcolor TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto %L* ixi 4 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto %L*r ixi 5 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (r) show 0 30 rmoveto 0 setgray TBL ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (Z) show 0 30 rmoveto %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (\176) show TBIL (m L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto %=k log(Lr) ixi 5 get iyi 03 get moveto TBIL (=k) show 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto TBL (\051) show 0 setgray 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 05 get moveto TIL (=k) show 20 0 rmoveto TL (log(5)) show 0 setgray 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde %=k log(1) %1 0 0 setrgbcolor ixi 5 get iyi 07 get moveto TIL (=k) show 20 0 rmoveto TL (log(1)) show 0 setgray 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 09 get moveto TIL (=k) show 20 0 rmoveto TL (log(0,2)) show 0 setgray 20 setlinewidth /lupt iytab iyd add 40 sub 20 add def /llot iytab iyd 9 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto 5400 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 60 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 ix0 0070 moveto TL (For the lightness range between ) showea (Im Helligkeitsbereich zwischen ) showde TIL (L*) show 0 -30 rmoveto TV (r) show 0 30 rmoveto TL (=-40 and 40 the constant is: ) showea (=-40 und 40 ist die Konstante: ) showde TIL (k=) show TL (40/log(5)=57) show /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke } if %xchartl=3 %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 4500 neg translate} if xchartl 1 eq { 6100 neg 4500 neg translate} if xchartl 2 eq { 100 neg 0250 neg translate} if xchartl 3 eq { 6100 neg 0250 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 6100 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,3 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 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 EE001-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 (EE001-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 08 MM 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 EE001-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 (EE001-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 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 EE001-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 (EE001-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 08 MM 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 http://farbe.li.tu-berlin.de/EE00/EE001-7N 20230801 %%BoundingBox: 70 82 405 332 %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/EE00/EE00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:20230801112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 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 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth 0 0 11600 08550 0.0 0.0 0.0 0.0 colrecfi %area white grey 0 0 11600 08550 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray /xbtex0 1 def xbtex0 1 eq {%xbtex0=1 TL 100 -150 moveto (EE001-7N) show } if %xbtex0=1 %/xchart 3 def 4 1 7 {/xchartl exch def %xchartl=4,7 %gsave 20 setlinewidth xchartl 0 eq { 100 4500 translate} if xchartl 1 eq { 6100 4500 translate} if xchartl 2 eq { 100 0250 translate} if xchartl 3 eq { 6100 0250 translate} if xchartl 4 eq { 100 4500 translate} if xchartl 5 eq { 5850 4500 translate} if xchartl 6 eq { 100 0250 translate} if xchartl 7 eq { 5850 0250 translate} if 0 setgray TV 100 -120 moveto (EE001-) show xchartl 1 add cvishow (A) show %A 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5650 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** xchartl 4 eq {%xchartl=4 %STOP4 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0280 def /yhoe 3750 def %/TBL 0320 def 0 setgray TBK ix0 yhoe iyd 0 mul sub moveto (Colorimetric scan, display, and print for archiving ) showea (Farbmetrischer Scan, Display, Druck f\374r Archivie\255) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic International Standard) showea (rung entsprechend ergonomischer Internationaler) showde ix0 yhoe iyd 2 mul sub moveto (Norm ) showde (ISO 9241-306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde ix0 yhoe iyd 3 mul sub moveto TIS (Klaus Richter, Berlin University of Technology (TUB), Germany ) showea (Klaus Richter, Technische Universit\344t Berlin (TUB), Deutschland ) showde /yhod 2400 def /iyd 200 def ix0 yhod iyd 0 mul sub moveto TBL (Abstract) showea (Zusammenfassung) showde TL ix0 yhod iyd 1 mul sub moveto (ISO 9241-306:2018 ) show (shows colorimetric methods for output optimization of ) showea (zeigt farbmetrische Methoden zur Ausgabeoptimierung von ) showde ix0 yhod iyd 2 mul sub moveto (displays and projectors at work places. ) showea (Displays und Projektoren am Arbeitsplatz. ) showde (The optimization for equal spacing ) showea (Die Optimierung f\374r gleiche Stufung ) showde ix0 yhod iyd 3 mul sub moveto (of colour series, visibility and readability is intended. ) showea (von Farbserien, Erkennbarkeit und Lesbarkeit wird angestrebt. ) showde ix0 yhod iyd 4.5 mul sub moveto (There are input linearization methods for scanners and photography ) showea (Es gibt Eingabe\255Linearisierungsmethoden f\374r Scanner und Photographie ) showde (and output ) showea (und Ausgabe\255) showde ix0 yhod iyd 5.5 mul sub moveto (linearization methods for displays, printers, and offset print. ) showea (Linearisierungsmethoden f\374r Displays, Drucker und Offsetdruck. ) showde (By a start ) showea (Mit einer Start\255) showde ix0 yhod iyd 6.5 mul sub moveto (output of a digital ) showea (ausgabe einer digitalen ) showde (ISO\255test chart with 729 colours \0509x9x9 ) showea (ISO\255Pr\374fvorlage mit 729 Farben \0509x9x9 ) showde TIL (rgb* ) show TL (values\051 for ) showea (Werte\051 zum ) showde ix0 yhod iyd 7.5 mul sub moveto (example the loop "ISO standard file -> ISO print -> ) showea (Beispiel die Schleife "ISO\255Normdatei -> ISO\255Druck -> ) showde (ISO scan -> ISO file" is ) showea (ISO\255Scan -> ISO\255Datei" ist ) showde ix0 yhod iyd 8.5 mul sub moveto (closed and the ) showea (geschlossen und die ) showde TIL (rgb* ) show TL (colour data of the original ISO file are approximately ) showea (Farbdaten der Original\255ISO\255Datei sind angen\344hert ) showde ix0 yhod iyd 9.5 mul sub moveto (reproduced at the end of the loop. ) showea (am Ende der Schleife reproduziert. ) showde (For any hue there is a linear relation ) showea (F\374r jeden Buntton gibt es eine lineare Relation ) showde ix0 yhod iyd 10.5 mul sub moveto (in both directions between the ) showea (in beiden Richtungen zwischen ) showde TIL (rgb* ) show TL (and the CIELAB ) showea (und den CIELAB\255) showde TIL (LCh* ) show TL (data. The closed ) showea (daten. Die geschlossene ) showde ix0 yhod iyd 11.5 mul sub moveto (loop and the linear relations are important properties for archiving. ) showea (Schleife und die lineare Relation sind wichtige Eienschaften zur Archivierung. ) showde } if %xchartl=4 %***************************************************************** xchartl 5 eq {%xchartl=5 %STOP5 /ix0 0050 def /iy0 3200 def /ixd 0500 def /iyd 0300 def /yhoe 3750 def %/TBL 0320 def 0 setgray TBK ix0 yhoe iyd 0 mul sub moveto (Motivation and Problem) showea (Motivation und Problem) showde TK /yhod 3400 def ix0 yhod iyd 0 mul sub moveto (The ideal reproduction for archiving occurs, if the loop:) showea (Ideale Archivierungs\255Reproduktion, wenn Schleife:) showde ix0 yhod iyd 1.2 mul sub moveto (1. ISO\255standard file ->ISO print ->ISO scan ->ISO file) showea (1. ISO\255Datei ->ISO\255Druck ->ISO\255Scan ->ISO\255Datei) showde ix0 yhod iyd 2.2 mul sub moveto (is closed, and the ) showea (geschlossen ist und die ) showde TBIK (rgb*) show TK ( values in the ) showea (\255Werte in der ) showde ix0 yhod iyd 3.2 mul sub moveto TBIK (start and final file are equal.) showea (Start\255 und Enddatei gleich sind.) showde /yhod 2050 def ix0 yhod iyd 0 mul sub moveto TK (2. ISO\255standard print ->ISO scan ->ISO file ->ISO print) showea (2. ISO\255Druck ->ISO\255Scan ->ISO\255Datei ->ISO\255Druck) showde ix0 yhod iyd 1 mul sub moveto (is closed, and the ) showea (geschlossen ist und die ) showde TBIK (LCh* ) show TK (values in the ) showea (Werte im ) showde ix0 yhod iyd 2 mul sub moveto TBIK (start and final print are equal.) showea (Start\255 und Enddruck gleich sind.) showde /yhod 1000 def ix0 yhod iyd 0 mul sub moveto TBK (Both goals are approximately possible, if the output ) showea (Ziele sind angen\344hert m\366glich, wenn die Ausgabe\255) showde ix0 yhod iyd 1 mul sub moveto TBK (linearization method ) showea (Linearisierungsmethode ) showde TBIK (OLM_16 ) show TBK () showde (is applied, see ) showea (angewendet wird: ) showde ix0 yhod iyd 2.2 mul sub moveto 0 setgray TIL (Richter, 2016, ) show TL (Output linearization method OLM16 for displays, printers and offset:) show %(see) showea %(siehe) showde ix0 yhod iyd 2.9 mul sub moveto 0 0 1 setrgbcolor RL (http://farbe.li.tu-berlin.de/OUTLIN16_01.PDF) show 0 setgray TL ( (similar to CIE R8\25509:2015)) showea ( (\344hnlich zu CIE R8\25509:2015)) showde } if %xchartl=5 %***************************************************************** xchartl 6 eq {%xchartl=6 %STOP6 /ix0 0050 def /iy0 3250 def /ixd 0500 def /iyd 0150 def /yhoe 3820 def 0 setgray TBL ix0 yhoe iyd 0 mul sub moveto (Colorimetric workflow: ) showea (Farbmetrischer Workflow: ) showde (digital input -> printer -> analog output ) showea (digitale Eingabe -> Drucker -> analoge Ausgabe ) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic Standard ) showea (mit der ergonomischen Norm ) showde (ISO 9241\255306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde 0 yhoe iyd 2 mul sub 100 add moveto xwidth 0 rlineto stroke TL ix0 yhoe iyd 2.5 mul sub moveto (In this default case the printer driver has the relative gamma ) showea (In diesem voreingestellten Fall hat der Druckertreiber das relative gamma ) showde SL (g) show TL ( = 1,000.) show /yhod 3250 def /yhod1 yhod 150 sub def /ix00 ix0 def /ix01 0900 def /ix02 2000 def /ix03 2900 def /ix04 4000 def /ix05 4600 def /ix06 5200 def TL ix00 yhod moveto (relative) showea (relatives) showde ix01 yhod moveto (digital) showea (digitale) showde ix02 yhod moveto (printer) showea (Drucker\255) showde ix03 yhod moveto (relative) showea (relatives) showde ix04 yhod moveto (analog) showea (analoge) showde ix05 yhod moveto (output) showea (Ausgabe\255) showde ix06 yhod moveto (ISO) showea (ISO\255) showde ix00 yhod1 moveto (gamma) showea (gamma) showde ix01 yhod1 moveto (input) showea (Eingabe) showde ix02 yhod1 moveto (driver) showea (treiber) showde ix03 yhod1 moveto (gamma) showea (gamma) showde ix04 yhod1 moveto (output) showea (Ausgabe) showde ix05 yhod1 moveto (contrast) showea (kontrast) showde ix06 yhod1 moveto (output) showea (Aus\255) showde ix06 yhod1 150 sub moveto () showea (gabe) showde %large printer box (l=left) /ixpl 1400 def /iypl 50 def /ixwidth 2500 def /iywidth 3000 def ixpl iypl moveto ixwidth 0 rlineto 0 iywidth rlineto ixwidth neg 0 rlineto closepath stroke TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasent) showea (bevorzugte) showde TIL ix04 2300 moveto (output) showea (Ausgabe) showde ix04 0700 moveto (lighter) showea (hellere) showde ix04 0550 moveto (output) showea (Ausgabe) showde TL /yhod 2900 def /iyd 200 def /gnp 15 array def /gnp [(2,105) (1,818) (1,600) (1,428) (1,290) (1,176) (1,081) (1,000) (0,924) (0,849) (0,775) (0,700) (0,625) (0,550) (0,475)] def /gnc [(2,25:1) (4,5:1) (9:1) (18:1) (36:1) (72:1) (144:1) (288:1) (144:1) (72:1) (36:1) (18:1) (9:1) (4,5:1) (2,25:1)] def TL 0 1 14 {/i exch def %i=0,14 ix0 yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 500 add yhod iyd i mul sub 70 add moveto 300 0 rlineto stroke } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3300 add yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3200 add yhod iyd i mul sub 70 add moveto -300 0 rlineto stroke } for %i=0,14 %vertical left connection /ixlc ix0 0800 add def ixlc yhod iyd 00 mul sub 70 add moveto ixlc yhod iyd 14 mul sub 70 add lineto stroke %vertical right connection /ixrc ix0 2900 add def ixrc yhod iyd 00 mul sub 70 add moveto ixrc yhod iyd 14 mul sub 70 add lineto stroke %horizontal left to right connection /iyx yhod iyd 7 mul sub 70 add def ixlc iyx moveto ixrc iyx lineto stroke 0 1 0 setrgbcolor /iy00 yhod iyd 00 mul sub 70 add def /iy14 yhod iyd 14 mul sub 70 add def %left vertical green connection %ixlc iy14 moveto ixlc iyx lineto stroke %right vertical green connection %ixrc iyx moveto ixrc iy00 lineto stroke %left horizontal green connection ixlc 300 sub iyx moveto 300 0 rlineto stroke %right horizontal green connection ixrc iyx moveto 300 0 rlineto stroke %right outer horizontal green connection ixrc 1000 add iyx moveto 1500 0 rlineto stroke %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto stroke %ix0 500 add iy14 moveto ix04 500 sub 0 rlineto stroke %ix05 400 sub iy00 moveto 1000 0 rlineto stroke ixlc 200 sub iyx moveto -100 50 rlineto stroke ixlc 200 sub iyx moveto -100 -50 rlineto stroke ixlc 200 add iyx moveto -100 50 rlineto stroke ixlc 200 add iyx moveto -100 -50 rlineto stroke ixrc 100 sub iyx moveto -100 50 rlineto stroke ixrc 100 sub iyx moveto -100 -50 rlineto stroke ixrc 300 add iyx moveto -100 50 rlineto stroke ixrc 300 add iyx moveto -100 -50 rlineto stroke ixrc 1600 add iyx moveto -100 50 rlineto stroke ixrc 1600 add iyx moveto -100 -50 rlineto stroke 0 0 0 setrgbcolor %central box /ixle ixpl 50 add def /iyle yhod iyd 08 mul sub def /iyco iyd 3 mul def 1 1 1 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath fill 0 0 0 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath stroke ixle 50 add iyle iyd 2 mul add moveto (no change) showea (keine Gamma\255) showde ixle 50 add iyle iyd 1 mul add moveto (of gamma ) showea (\304nderung ) showde SL (g) show TL ix01 030 add yhod iyd 7 mul sub 150 sub moveto (1,000) show ix03 400 sub yhod iyd 7 mul sub 150 sub moveto (1,000) show ix05 yhod iyd 7 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 7 mul sub 150 sub moveto (YES) showea (JA) showde } if %xchartl=6 %***************************************************************** xchartl 7 eq {%xchartl=7 %STOP7 /ix0 0050 def /iy0 3250 def /ixd 0500 def /iyd 0150 def /yhoe 3820 def 0 setgray TBL ix0 yhoe iyd 0 mul sub moveto (Colorimetric workflow: ) showea (Farbmetrischer Workflow: ) showde (digital input -> printer -> analog output ) showea (digitale Eingabe -> Drucker -> analoge Ausgabe ) showde ix0 yhoe iyd 1 mul sub moveto (based on the ergonomic Standard ) showea (mit der ergonomischen Norm ) showde (ISO 9241\255306:2018 ) show (for work places ) showea (f\374r Arbeitspl\344tze) showde 0 yhoe iyd 2 mul sub 100 add moveto xwidth 0 rlineto stroke TL ix0 yhoe iyd 2.5 mul sub moveto (In this special case the printer driver has the relative gamma ) showea (In diesem speziellen Fall hat der Druckertreiber das relative gamma ) showde SL (g) show TL ( = 2,105.) show /yhod 3250 def /yhod1 yhod 150 sub def /ix00 ix0 def /ix01 0900 def /ix02 2000 def /ix03 2900 def /ix04 4000 def /ix05 4600 def /ix06 5200 def TL ix00 yhod moveto (relative) showea (relatives) showde ix01 yhod moveto (digital) showea (digitale) showde ix02 yhod moveto (printer) showea (Drucker\255) showde ix03 yhod moveto (relative) showea (relatives) showde ix04 yhod moveto (analog) showea (analoge) showde ix05 yhod moveto (output) showea (Ausgabe\255) showde ix06 yhod moveto (ISO) showea (ISO\255) showde ix00 yhod1 moveto (gamma) showea (gamma) showde ix01 yhod1 moveto (input) showea (Eingabe) showde ix02 yhod1 moveto (driver) showea (treiber) showde ix03 yhod1 moveto (gamma) showea (gamma) showde ix04 yhod1 moveto (output) showea (Ausgabe) showde ix05 yhod1 moveto (contrast) showea (kontrast) showde ix06 yhod1 moveto (output) showea (Aus\255) showde ix06 yhod1 150 sub moveto () showea (gabe) showde %large printer box (l=left) /ixpl 1400 def /iypl 50 def /ixwidth 2500 def /iywidth 3000 def ixpl iypl moveto ixwidth 0 rlineto 0 iywidth rlineto ixwidth neg 0 rlineto closepath stroke TIL ix04 2600 moveto (darker) showea (dunklere) showde TBIL ix04 2450 moveto (pleasent) showea (bevorzugte) showde TIL ix04 2300 moveto (output) showea (Ausgabe) showde ix04 0700 moveto (lighter) showea (hellere) showde ix04 0550 moveto (output) showea (Ausgabe) showde TL /yhod 2900 def /iyd 200 def /gnp 15 array def /gnp [(2,105) (1,818) (1,600) (1,428) (1,290) (1,176) (1,081) (1,000) (0,924) (0,849) (0,775) (0,700) (0,625) (0,550) (0,475)] def /gnc [(2,25:1) (4,5:1) (9:1) (18:1) (36:1) (72:1) (144:1) (288:1) (144:1) (72:1) (36:1) (18:1) (9:1) (4,5:1) (2,25:1)] def TL 0 1 14 {/i exch def %i=0,14 ix0 yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 500 add yhod iyd i mul sub 70 add moveto 300 0 rlineto stroke } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3300 add yhod iyd i mul sub moveto gnp i get show } for %i=0,14 0 1 14 {/i exch def %i=0,14 ix0 3200 add yhod iyd i mul sub 70 add moveto -300 0 rlineto stroke } for %i=0,14 %vertical left connection /ixlc ix0 0800 add def ixlc yhod iyd 00 mul sub 70 add moveto ixlc yhod iyd 14 mul sub 70 add lineto stroke %vertical right connection /ixrc ix0 2900 add def ixrc yhod iyd 00 mul sub 70 add moveto ixrc yhod iyd 14 mul sub 70 add lineto stroke %horizontal left to right connection /iyx yhod iyd 7 mul sub 70 add def ixlc iyx moveto ixrc iyx lineto stroke 0 1 0 setrgbcolor /iy00 yhod iyd 00 mul sub 70 add def /iy14 yhod iyd 14 mul sub 70 add def %left vertical green connection ixlc iy14 moveto ixlc iyx lineto stroke %right vertical green connection ixrc iyx moveto ixrc iy00 lineto stroke %left horizontal green connection ixlc 300 sub iy14 moveto 300 0 rlineto stroke %right horizontal green connection ixrc iy00 moveto 300 0 rlineto stroke %right outer horizontal green connection ixrc 1000 add iy00 moveto 1200 0 rlineto stroke %horixontal inner left to right connection ixlc iyx moveto ixrc iyx lineto stroke ixlc 200 sub iy14 moveto -100 50 rlineto stroke ixlc 200 sub iy14 moveto -100 -50 rlineto stroke ixlc 200 add iyx moveto -100 50 rlineto stroke ixlc 200 add iyx moveto -100 -50 rlineto stroke ixrc 100 sub iyx moveto -100 50 rlineto stroke ixrc 100 sub iyx moveto -100 -50 rlineto stroke ixrc 300 add iy00 moveto -100 50 rlineto stroke ixrc 300 add iy00 moveto -100 -50 rlineto stroke ixrc 1600 add iy00 moveto -100 50 rlineto stroke ixrc 1600 add iy00 moveto -100 -50 rlineto stroke 0 0 0 setrgbcolor %central box /ixle ixpl 50 add def /iyle yhod iyd 08 mul sub def /iyco iyd 3 mul def 1 1 1 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath fill 0 0 0 setrgbcolor ixle iyle moveto 1000 0 rlineto 0 iyco rlineto -1000 0 rlineto closepath stroke ixle 50 add iyle iyd 2 mul add moveto (change by) showea (\304nderung) showde ixle 50 add iyle iyd 1 mul add moveto (gamma ) showea (Gamma ) showde SL (g) show TL ( \176 2.) show ix01 030 add yhod iyd 7 mul sub 150 sub moveto (0,475) show ix03 400 sub yhod iyd 7 mul sub 150 sub moveto (2,105) show ix05 yhod iyd 0 mul sub 150 sub moveto (>288:1) show ix06 yhod iyd 0 mul sub 150 sub moveto (YES) showea (JA) showde } if %xchartl=7 %***************************************************************** grestore %end because of clip xchartl 0 eq { 100 neg 4500 neg translate} if xchartl 1 eq { 6100 neg 4500 neg translate} if xchartl 2 eq { 100 neg 0250 neg translate} if xchartl 3 eq { 6100 neg 0250 neg translate} if xchartl 4 eq { 100 neg 4500 neg translate} if xchartl 5 eq { 5850 neg 4500 neg translate} if xchartl 6 eq { 100 neg 0250 neg translate} if xchartl 7 eq { 5850 neg 0250 neg translate} if } for %xchartl=4,7 showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 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 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 EE001-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 (EE001-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 00 def /xcolor2 00 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 /xchart5f where {pop /xchart5 xchart5f def} {/xchart5 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 xchart3 lt {/Txx (-) def /Fxx (-) def} if xchart xchart3 ge {%xchart>=xchart3 /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>=xchart3 /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/EE00/EE00) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.PDF & ) show (http://130.149.60.45/~farbmetrik/EE00/EE00) show colorm cvishow deintp cvishow colorm 0 eq {(N) show} {(F) show} ifelse (P.TXT & ) show (http://130.149.60.45/~farbmetrik/EE00/EE00.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 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 %xchart3 0 def %with Munsell colours %xchart3 1 def %with Ostwald colours %xchart3 2 det %without any colour %steered: xchart3 2 def %diagram 0:Munsell colours, 1:Ostwald colours, 2:- %xchart5 0 def %without marc illuminant and text %xchart5 1 def %with marc illuminant %xchart5 2 def %with marc illuminant and text %steered: xchart5 2 def %0:-, 1:illuminant, 2:illuminant and text %xchart6 0 def %without chromaticity_lines %xchart6 1 def %with chromaticity_lines %xchart6 2 def %with chromaticity_lines and names /xchart6 2 def %0:-, 1:chromaticity_lines 2:chromaticity_lines & names %xchart7 0 def %Ostwald colours without Name or Y %xchart7 1 def %Ostwald colours with Name %xchart7 2 def %Ostwald colours with CIE Y /xchart7 2 def %0:-, 1:Name, 2:Y %xchartl with 0 1 2 3 4 5 6 7 %xchart8 0 def %0:Pxx (P60, P55, P50, P45, P40, P35, P30, P25) colours %xchart8 1 def %1:Dxx (D65, D50, P40, A00, E00, C00, P00, Q00) colours /xchart8 0 def %0:Pxx, 1:Dxx colours %xchart9 0 def %for Y10-7R.EPS -> Table XYZ, not used here %xchart9 1 def %for Y10-7R.EPS -> Table CAB, not used here %xchart9 2 def %for Y10-7R.EPS -> Table (a,b), not used here /xchart9 0 def %Table 0:(XYZ), 1:(CAB), 2(ab) %xchart10 0 def %for Y10E00NA.PS6.PS -> chromaticity coordinates (ai,bi) %xchart10 1 def %for Y10E00NA.PS6.PS -> chromatic values (Ai,Bi) %xchart10 2 def %for Y10E00NA.PS6.PS -> chroma (A*i,B*i) /xchart10 0 def %diagram 0:(ai,bi), 1:(Ai,Bi), 2:(A*i,B*i) /TELi 8 array def xchart8 0 eq {%xchart8=0 /TELi [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def }%xchart8=0 {%xchart8=1 /TELi [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def } ifelse %xchart8=1 /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 0 setgray 12TIN 61 MM 14 MM moveto (TUB\255Pr\374fvorlage EE00; ) showde %0EE00X-Y 0000# (TUB\255test chart EE00; ) showen %1EE00X-Y 0000# (gr\341fico TUB\255EE00; ) showes %2EE00X-Y 0000# (TUB\255test graphique EE00; ) showfr %3EE00X-Y 0000# (grafico TUB\255EE00; ) showit %4EE00X-Y 0000# (TUB\255test chart EE00; ) showjp %5EE00X-Y 0000# 12TIN (Basics for the development of ISO and CIE standard documents ) showea (Grundlagen zur Entwicklung von ISO und CIE Normdokumenten ) showde 12TIN xchart10 0 eq {%xchart10=0 % (von Buntwerten) showde % (of chromatic values) showea } if %xchart10=0 xchart10 1 eq {%xchart10=1 } if %xchart10=1 xchart10 2 eq {%xchart10=2 } if %xchart10=2 61 MM 09.5 MM moveto 12TIN (Access to data; links and basic references; ) showea (Zugriff zu Daten; Links und grundlegende Literatur; ) showde (Visual threshold and ) showea (Visuelle Schwellen und ) showde 12TII (Weber\255Fechner\255Gesetz) showde (Weber Fechner law) showea /iout 0 def iout 1 eq {%iout=1 180 MM 14 MM moveto (Eingabe: ) showde %0EE00X-Y 0500# (input: ) showen %1EE00X-Y 0500# (entrada: ) showes %2EE00X-Y 0500# (entr\351e: ) showfr %3EE00X-Y 0500# (immettere: ) showit %4EE00X-Y 0500# (input: ) showjp %5EE00X-Y 0500# 12TII (w/rgb/cmyk -> rgb) show xchart xchart3 lt {(w/rgb/cmyk) show } if xchart xchart3 ge {%xchart>=xchart3 (rgb) show } if %xchart>=xchart3 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN 12TIN 165 MM 9 MM moveto (Ausgabe: ) showde %0EE00X-Y 0600# (output: ) showen %1EE00X-Y 0600# (salida: ) showes %2EE00X-Y 0600# (sortie: ) showfr %3EE00X-Y 0600# (uscita: ) showit %4EE00X-Y 0600# (output: ) showjp %5EE00X-Y 0600# %colorm=0,1! xchart xchart3 lt {%xchart=xchart3 12TIN (keine \304nderung) showde %0EE00X-Y 0700# (no change) showen %1EE00X-Y 0700# (ning\372n cambio) showes %2EE00X-Y 0700# (aucun changement) showfr %3EE00X-Y 0700# (nessun cambiamento) showit %4EE00X-Y 0700# (no change compared) showjp %5EE00X-Y 0700# }%xchart=xchart3 12TIN colorm 0 eq {%colorm=0 (Transfer nach ) showde %0EE00X-Y 0800# (transfer to ) showen %1EE00X-Y 0800# (transfiera a ) showes %2EE00X-Y 0800# (transf\351rer \340 ) showfr %3EE00X-Y 0800# (trasferire a ) showit %4EE00X-Y 0800# (transfer to ) showjp %5EE00X-Y 0800# }%colorm=0 {%colorm=1 (3D\255Linearisierung ) showde %0EE00X-Y 0900# (3D\255linearization to ) showen %1EE00X-Y 0900# (3D\255linealizaci\363n a ) showes %2EE00X-Y 0900# (linearisation 3D selon ) showfr %3EE00X-Y 0900# (3D\255linearizzazione a ) showit %4EE00X-Y 0900# (3D\255linearization to ) showjp %5EE00X-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 10TIN 0 -2 rmoveto Txx show 0 2 rmoveto 12TIN } ifelse %xchart=xchart3 } if %iout=1 %0 setgray %end white and unvisible 62 MM 198.5 MM moveto 12TRN (http://farbe.li.tu-berlin.de/EE00/EE00) show 12TIN (L0) show LSC$ show LEX$ show iout 1 eq {%iout=1 %1 setgray %start white and unvisible (; ) show xchart xchart3 lt { (Start\255Ausgabe) showde %0EE00X-Y 1000# (start output) showen %1EE00X-Y 1000# (comience salida) showes %2EE00X-Y 1000# (sortie de production) showfr %3EE00X-Y 1000# (cominciare l'uscita) showit %4EE00X-Y 1000# (start output) showjp %5EE00X-Y 1000# } if LSC$ (C) eq { (Start\255Ausgabe) showde %0EE00X-Y 1100# (start output) showen %1EE00X-Y 1100# (comience salida) showes %2EE00X-Y 1100# (sortie de production) showfr %3EE00X-Y 1100# (cominciare l'uscita) showit %4EE00X-Y 1100# (start output) showjp %5EE00X-Y 1100# } if xchart xchart3 ge {%xchart>=xchart3 colorm 0 eq {%colorm=0,1 (Transfer Ausgabe) showde %0EE00X-Y 1200# (transfer output) showen %1EE00X-Y 1200# (salida de transferencia) showes %2EE00X-Y 1200# (sortie de transfert) showfr %3EE00X-Y 1200# (uscita di trasferimento) showit %4EE00X-Y 1200# (transfer output) showjp %5EE00X-Y 1200# }%colorm=0 {%colorm=1 (3D\255Linearisierung) showde %0EE00X-Y 1300# (3D\255linearization) showen %1EE00X-Y 1300# (3D\255linealizaci\363n) showes %2EE00X-Y 1300# (linearisation 3D) showfr %3EE00X-Y 1300# (3D\255linearizzzazione) showit %4EE00X-Y 1300# (3D\255linearization) showjp %5EE00X-Y 1300# } ifelse %colorm=0,1 } if %xchart>=xchart3 } if %iout=1 62 MM 194 MM moveto 12TIN LSC$ (N) eq LSC$ (C) eq or { (N: Keine 3D\255Linearisierung (OL) ) showde %0EE00X-Y 1400# (N: no 3D\255linearization (OL) ) showen %1EE00X-Y 1400# (N: ninguna 3D\255linealizaci\363n (OL) ) showes %2EE00X-Y 1400# (N: aucun linearisation 3D (OL) ) showfr %3EE00X-Y 1400# (N: nessun 3D\255linearizzazione (OL) ) showit %4EE00X-Y 1400# (N: no 3D\255linearization (OL) ) showjp %5EE00X-Y 1400# (in Datei (F) oder PS\255Startup (S)) showde %0EE00X-Y 1500# (in file (F) or PS\255startup (S)) showen %1EE00X-Y 1500# (en archivo (F) o PS\255startup (S)) showes %2EE00X-Y 1500# (dans fichier (F) ou PS\255startup (S)) showfr %3EE00X-Y 1500# (nel file (F) o PS\255startup (S)) showit %4EE00X-Y 1500# (in file (F) or PS\255startup (S)) showjp %5EE00X-Y 1500# } {LSC$ show (: ) show (3D\255Linearisierung) showde %0EE00X-Y 1600# (3D\255linearization) showen %1EE00X-Y 1600# (3D\255linealizaci\363n) showes %2EE00X-Y 1600# (linearisation 3D) showfr %3EE00X-Y 1600# (3D\255linearizzzazione) showit %4EE00X-Y 1600# (3D\255linearization) showjp %5EE00X-Y 1600# ( EE00/EE00L) show LSS$ show LSX$ show (0) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in Datei (F)) showde %0EE00X-Y 1700# ( in file (F)) showen %1EE00X-Y 1700# ( en archivo (F)) showes %2EE00X-Y 1700# ( dans fichier (F)) showfr %3EE00X-Y 1700# ( nel file (F)) showit %4EE00X-Y 1700# ( in file (F)) showjp %5EE00X-Y 1700# } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde %0EE00X-Y 1800# ( in Distiller Startup (S) Directory) showen %1EE00X-Y 1800# ( en el Distiller Startup (S) Directory) showes %2EE00X-Y 1800# ( dans le Distiller Startup (S) Directory) showfr %3EE00X-Y 1800# ( nel Distiller Startup (S) Directory) showit %4EE00X-Y 1800# ( in Distiller Startup (S) Directory) showjp %5EE00X-Y 1800# } if LSC$ (D) eq { ( in PS\255Device (D)) showde %0EE00X-Y 1900# ( in PS\255device (D)) showen %1EE00X-Y 1900# ( en el PS\255device (D)) showes %2EE00X-Y 1900# ( dans l'appareil PS (D)) showfr %3EE00X-Y 1900# ( nel PS\255dispositivo (D)) showit %4EE00X-Y 1900# ( in PS\255Device (D)) showjp %5EE00X-Y 1900# } if LSC$ (T) eq { ( im Distiller Startup (S) Directory) showde %0EE00X-Y 2000# ( in Distiller Startup (S) Directory) showen %1EE00X-Y 2000# ( en el Distiller Startup (S) Directory) showes %2EE00X-Y 2000# ( dans le Distiller Startup (S) Directory) showfr %3EE00X-Y 2000# ( nel Distiller Startup (S) Directory) showit %4EE00X-Y 2000# ( in Distiller Startup (S) Directory) showjp %5EE00X-Y 2000# } if LSC$ (E) eq { ( in PS\255Device (D)) showde %0EE00X-Y 2100# ( in PS\255device (D)) showen %1EE00X-Y 2100# ( en el PS\255device (D)) showes %2EE00X-Y 2100# ( dans appareil PS (D)) showfr %3EE00X-Y 2100# ( nel PS\255dispositivo (D)) showit %4EE00X-Y 2100# ( in PS\255Device (D)) showjp %5EE00X-Y 2100# } if %0 setgray %end white and unvisible (, Seite ) showde %0EE00X-Y 2200# (, page ) showen %1EE00X-Y 2200# (, p\341gina ) showes %2EE00X-Y 2200# (, page ) showfr %3EE00X-Y 2200# (, pagina ) showit %4EE00X-Y 2200# (, page ) showjp %5EE00X-Y 2200# xchart 1 add cvishow (/) show xchartm cvishow 16 MM 185 MM moveto 12TIN -90 rotate (Siehe \344hnliche Dateien: ) showde %0EE00X-Y 2300# (see similar files: ) showen %1EE00X-Y 2300# (vea archivos semejantes: ) showes %2EE00X-Y 2300# (voir des fichiers similaires: ) showfr %3EE00X-Y 2300# (vedere dei file simili: ) showit %4EE00X-Y 2300# (see similar files: ) showjp %5EE00X-Y 2300# 12TRN (http://farbe.li.tu-berlin.de/EE00/EE00.HTM) show 12TIN %(0) show %LSC$ show LEX$ show 90 rotate 12 MM 185 MM moveto 12TIN -90 rotate (Technische Information: ) showde %0EE00X-Y 2400# (technical information: ) showen %1EE00X-Y 2400# (informaci\363n t\351cnica: ) showes %2EE00X-Y 2400# (informations techniques: ) showfr %3EE00X-Y 2400# (informazioni tecniche: ) showit %4EE00X-Y 2400# (technical information: ) showjp %5EE00X-Y 2400# 12TRN (http://farbe.li.tu-berlin.de) show 12TIN ( oder ) showde %0EE00X-Y 2500# ( or ) showen %1EE00X-Y 2500# ( o ) showes %2EE00X-Y 2500# ( ou ) showfr %3EE00X-Y 2500# ( o ) showit %4EE00X-Y 2500# ( or ) showjp %5EE00X-Y 2500# 12TRN (http://130.149.60.45/~farbmetrik) show 12TIN 90 rotate 281 MM 185 MM moveto 12TIN -90 rotate (TUB\255Registrierung: 20190501\255EE00/EE00L) showde %0EE00X-Y 2600# (TUB registration: 20190501\255EE00/EE00L) showen %1EE00X-Y 2600# (TUB matr\355cula: 20190501\255EE00/EE00L) showes %2EE00X-Y 2600# (TUB enregistrement: 20190501\255EE00/EE00L) showfr %3EE00X-Y 2600# (TUB iscrizione: 20190501\255EE00/EE00L) showit %4EE00X-Y 2600# (TUB registration: 20190501\255EE00/EE00L) showjp %5EE00X-Y 2600# (0) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto 12TIN -90 rotate (TUB\255Material: Code=rha4ta) showde %0EE00X-Y 2700# (TUB material: code=rha4ta) showen %1EE00X-Y 2700# (TUB material: code=rha4ta) showes %2EE00X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3EE00X-Y 2700# (TUB materiale: code=rha4ta) showit %4EE00X-Y 2700# (TUB material: code=rha4ta) showjp %5EE00X-Y 2700# 90 rotate 277 MM 185 MM moveto 12TIN -90 rotate ( Anwendung f\374r Messung ) showde %0EE00X-Y 2800# ( application for measurement ) showen %1EE00X-Y 2800# ( aplicaci\363n para la medida ) showes %2EE00X-Y 2800# ( application pour la mesure ) showfr %3EE00X-Y 2800# ( la domanda per la misura ) showit %4EE00X-Y 2800# ( application for measurement ) showjp %5EE00X-Y 2800# xchart5f 0 eq {%xchart5f=0 (von Display\255Ausgabe) showde %0EE00X-Y 2900# (of display output) showen %1EE00X-Y 2900# (de display output) showes %2EE00X-Y 2900# (de sortie sur \350cran) showfr %3EE00X-Y 2900# (di stampa di display) showit %4EE00X-Y 2900# (of display output) showjp %5EE00X-Y 2900# } if %xchart5f=0 xchart5f 1 eq xchart5f 2 eq or {%xchart5f=1,2 (von Offsetdruck\255Ausgabe) showde %0EE00X-Y 3000# (of offset print output) showen %1EE00X-Y 3000# (salida en la impressi\363n offset) showes %2EE00X-Y 3000# (des sorties sur offset) showfr %3EE00X-Y 3000# (uscita nella stampa di offset) showit %4EE00X-Y 3000# (of offset print output) showjp %5EE00X-Y 3000# } if %xchart5f=1,2 xchart5f 3 eq {%xchart5f=3 (von Laserdrucker\255Ausgabe) showde %0EE00X-Y 3100# (of laser printer output) showen %1EE00X-Y 3100# (salida de impresora l\341ser) showes %2EE00X-Y 3100# (des sorties sur imprimante laser) showfr %3EE00X-Y 3100# (di uscita della stampante laser) showit %4EE00X-Y 3100# (of laser printer output) showjp %5EE00X-Y 3100# } if %xchart5f=3 iout 1 eq {%iout=1 xchart xchart3 ge {%xchart>=xchart3 xchart5f 0 eq {%xchart5f=0 (, keine Separation) showde %0EE00X-Y 3200# (, no separation) showen %1EE00X-Y 3200# (, ninguna separaci\363n) showes %2EE00X-Y 3200# (, aucune s\351paration) showfr %3EE00X-Y 3200# (, nessuna separazione) showit %4EE00X-Y 3200# (, no separation) showjp %5EE00X-Y 3200# } if %chart5f=0 xchart5f 1 ge {%xchart5f>=1 (, Separation) showde %0EE00X-Y 3300# (, separation) showen %1EE00X-Y 3300# (, separaci\363n) showes %2EE00X-Y 3300# (, s\351paration) showfr %3EE00X-Y 3300# (, separazione) showit %4EE00X-Y 3300# (, separation) showjp %5EE00X-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>=xchart3 } if %iout=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,7 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer