%!PS-Adobe-3.0 EPSF-3.0 eew40-7n_60 %%BoundingBox: 70 85 421 335 %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/eew4/eew4.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %line 20****************************************************** /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 /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 {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 /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 % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 0 def %0:left page, 1:right page /pchartl 4 def %0:top page, 4:down page %not used 72 90 translate 0.010 MM dup scale 40 setlinewidth /ymax1 08550 def /xmax1 12250 def %2x6000+250 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(eew40-) show} {(eew41-) show} ifelse pchartl 0 eq {(3n) show} {(7n) show} ifelse grestore gsave %00 %01 %02 /SHSl 00.0 def /SHAl 02.8 def /STSl 13.0 def /STAl 14.5 def BeginEPSF 28 SHSl sub MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %!PS-Adobe-3.0 EPSF-3.0 eew40-5a env00-1n %%BoundingBox: 70 85 246 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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/eew4/eew4.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 {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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 5 /Times-Roman FS 72 85 moveto (eew40-5a env00-1n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6000 def /ywidth 4000 def 0.7 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /fakt 20 def /a2 1.00 def /b2 -0.4 def TBS 100 3800 moveto (TUB colourimetry with normalization to ) showen (TUB\255Farbmetrik mit Normierung auf ) showde TBIS (Y) show TBS (=90, ) show TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = 25 : 1) show %SS (\245) show 100 3600 moveto TS (Equations for Yellow (J), Blue (B), White (W), Grey (U), Black (N):) showen (Gleichungen f\374r Gelb (J), Blau (B), Weiss (W), Grau (U), Schwarz (N):) showde 100 3400 moveto TBS (Tristimulus value ) showen (Hellbezugswert ) showde 100 3200 moveto TBIS (Y) show TBL 0 -50 rmoveto (J) show 0 50 rmoveto TBS ( + ) show TBIS (Y) show TBL 0 -50 rmoveto (B) show 0 50 rmoveto TBS ( = 66 + 24 = 90 ) show TS ([1]) show 100 2950 moveto (Chromatic value ) showen (Buntwert ) showde 100 2750 moveto TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS (| = ) show TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS (| = 60 ) show TS ([2]) show 100 2500 moveto (Contrast ) showen (Kontrast ) showde 100 2300 moveto TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = ) show TBS (90 : 3,6 ) show 100 2050 moveto TBS ( = 25 : 1 ) show TS ([3]) show 100 1800 moveto (Chromaticity difference ) showen (Farbartdifferenz ) showde 100 1600 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (J) show 0 50 rmoveto TS ( [4]) show 100 1350 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (B) show 0 50 rmoveto TS ( [5]) show newpath /xt0 3700 def /yt0 0500 def xt0 yt0 translate TBS %red cylinder CAB=60 1 0 0 setrgbcolor [100] 0 setdash 060 fakt mul 090 fakt mul moveto 060 fakt mul 000 fakt mul lineto stroke -60 fakt mul 090 fakt mul moveto -60 fakt mul 000 fakt mul lineto stroke 062 fakt mul 092 fakt mul moveto (60) show -58 fakt mul 082 fakt mul moveto (-60) show [ ] 0 setdash 0 setgray %axis and scales 1 setgray -1200 0 moveto 3000 0 rlineto stroke 0 -400 moveto 0 3000 rlineto stroke 1800 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill -50 2600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-50) ( ) ( 50)] def /yt10x [(0) ( ) (100)] def 1 setgray 0 1 2 {/i exch def %i=0,2 x-axis -1000 i 1000 mul add -75 moveto 0 150 rlineto stroke -1200 i 1000 mul add -300 moveto TBS xt10x i get show i 2 eq {-1000 i 1000 mul add 700 add 0 moveto -200 200 rmoveto TBIK (C) show 00 -50 rmoveto TBS (AB,2) show 0 50 rmoveto } if } for %i=0,2 0 1 2 {/i exch def %i=0,2 y-axis -75 0000 i 1000 mul add moveto 150 0 rlineto stroke 0100 i 1000 mul 200 sub i 1 eq {100 add} if i 2 eq {200 add} if moveto TBS yt10x i get show i 2 eq {0 0200 i 1000 mul add moveto 100 150 rmoveto TBIK (Y) show } if } for %i=0,2 newpath TBS 1 setgray 0 3.6 fakt mul 90 0 360 arc fill %N newpath 02 fakt mul 52 fakt mul moveto (50) show newpath 1 setgray 0 90.0 fakt mul 90 0 360 arc fill %W 0 setgray 0 90.0 fakt mul 90 0 360 arc stroke %W newpath 06 fakt mul 88 fakt mul moveto (90) show newpath 02 fakt mul 37 fakt mul moveto (46,8) show newpath 06 fakt mul 02 fakt mul moveto (3,6) show /YNot (3,6) def /CAB2Wo 0 fakt mul def /YWo 90.0 fakt mul def /CAB2No 0 fakt mul def /YNo 3.6 fakt mul def /CAB2Jo 60 fakt mul def /YJo 66 fakt mul def /CAB2Bo -60 fakt mul def /YBo 24 fakt mul def 15 setlinewidth [100] 0 setdash CAB2Jo YJo moveto CAB2Bo YBo lineto stroke [ ] 0 setdash CAB2No YNo moveto CAB2Jo YJo lineto CAB2Wo YWo lineto CAB2Bo YBo lineto CAB2No YNo lineto stroke 20 setlinewidth %No newpath 0 setgray CAB2No YNo 90 0 360 arc fill 1 setgray newpath CAB2No YNo 90 0 360 arc stroke %Jo newpath 1 1 0 setrgbcolor CAB2Jo YJo 90 0 360 arc fill 0 setgray newpath CAB2Jo YJo 90 0 360 arc stroke %Wo newpath 1 setgray CAB2Wo YWo 90 0 360 arc fill 0 setgray newpath CAB2Wo YWo 90 0 360 arc stroke %Bo newpath 0 0 1 setrgbcolor CAB2Bo YBo 90 0 360 arc fill 1 setgray newpath CAB2Bo YBo 90 0 360 arc stroke 0 setgray CAB2Jo 150 sub YJo 100 add moveto (J) show CAB2Bo 050 add YBo 250 sub moveto (B) show CAB2Wo 300 sub YWo 050 sub moveto (W) show CAB2No 200 sub YNo 100 add moveto (N) show 0 setgray CAB2Jo 100 add YJo 100 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Jo 150 add YJo 150 sub moveto (=(60, 66)) show CAB2Bo 990 sub YBo 050 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Bo 990 sub YBo 200 sub moveto (=(-60, 24)) show newpath %0 46.8 fakt mul 50 0 360 arc fill 0 45 fakt mul 50 0 360 arc fill xt0 neg yt0 neg translate grestore showpage %%Trailer %line 239 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 STSl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %!PS-Adobe-3.0 EPSF-3.0 eew40-6a env00-2n %%BoundingBox: 70 85 246 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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/eew4/eew4.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 {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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 5 /Times-Roman FS 72 86 moveto (eew40-6a env00-2n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6000 def /ywidth 4000 def 0.7 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /fakt 20 def /a2 1.00 def /b2 -0.4 def TBS 100 3800 moveto (CIE colourimetry with normalization to ) showen (CIE\255Farbmetrik mit Normierung auf ) showde TBIS (Y) show TBS (=100, ) show TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = ) show SS (\245) show 100 3600 moveto TS (Equations for Yellow (J), Blue (B), White (W), Grey (U), Black (N):) showen (Gleichungen f\374r Gelb (J), Blau (B), Wei\338 (W), Grau (U), Schwarz (N):) showde 100 3400 moveto TBS (Tristimulus value ) showen (Hellbezugswert ) showde 100 3200 moveto TBIS (Y) show TBL 0 -50 rmoveto (J) show 0 50 rmoveto TBS ( + ) show TBIS (Y) show TBL 0 -50 rmoveto (B) show 0 50 rmoveto TBS ( = 72 + 28 = 100 ) show TS ([1]) show 100 2950 moveto (Chromatic value ) showen (Buntwert ) showde 100 2750 moveto TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS (| = ) show TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS (| = 66 ) show TS ([2]) show 100 2500 moveto (Contrast ) showen (Kontrast ) showde 100 2300 moveto TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = ) show TBS (100 : 0 ) show SS (\245) show TS ( [3]) show 100 2000 moveto (Chromaticity difference ) showen (Farbartdifferenz ) showde 100 1800 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,J) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (J) show 0 50 rmoveto TS ( [4]) show 100 1550 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,B) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (B) show 0 50 rmoveto TS ( [5]) show newpath /xt0 3700 def /yt0 0500 def xt0 yt0 translate TBS %red cylinder CAB=60 1 0 0 setrgbcolor [100] 0 setdash 066 fakt mul 090 fakt mul moveto 066 fakt mul 000 fakt mul lineto stroke -66 fakt mul 090 fakt mul moveto -66 fakt mul 000 fakt mul lineto stroke 064 fakt mul 092 fakt mul moveto (66) show -60 fakt mul 082 fakt mul moveto (-66) show [ ] 0 setdash 0 setgray %axis and scales 1 setgray -1200 0 moveto 3000 0 rlineto stroke 0 -400 moveto 0 3000 rlineto stroke 1800 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill -50 2600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-50) ( ) ( 50)] def /yt10x [(0) ( ) (100)] def 1 setgray 0 1 2 {/i exch def %i=0,2 x-axis -1000 i 1000 mul add -75 moveto 0 150 rlineto stroke -1200 i 1000 mul add -300 moveto TBS xt10x i get show i 2 eq {-1000 i 1000 mul add 700 add 0 moveto -200 200 rmoveto TBIK (C) show 00 -50 rmoveto TBS (AB,2) show 0 50 rmoveto } if } for %i=0,2 0 1 2 {/i exch def %i=0,2 y-axis -75 0000 i 1000 mul add moveto 150 0 rlineto stroke % 0100 i 1000 mul 200 sub i 1 eq {100 add} if % i 2 eq {200 add} if moveto % TBS yt10x i get show i 2 eq {0 0200 i 1000 mul add moveto 100 150 rmoveto TBIK (Y) show } if } for %i=0,2 newpath TBS 1 setgray 0 0 fakt mul 90 0 360 arc fill %N %newpath %02 fakt mul 52 fakt mul moveto (50) show newpath 1 setgray 0 100 fakt mul 90 0 360 arc fill %W 0 setgray 0 100 fakt mul 90 0 360 arc stroke %W newpath 06 fakt mul 98 fakt mul moveto (100) show newpath 04 fakt mul 45 fakt mul moveto (50) show newpath 08 fakt mul 02 fakt mul moveto (0) show /YNot (0,0) def /CAB2Wo 0 fakt mul def /YWo 100 fakt mul def /CAB2No 0 fakt mul def /YNo 0 fakt mul def /CAB2Uo 0 fakt mul def /YUo 50 fakt mul def /CAB2Jo 67 fakt mul def /YJo 72 fakt mul def /CAB2Bo -67 fakt mul def /YBo 28 fakt mul def 15 setlinewidth [100] 0 setdash CAB2Jo YJo moveto CAB2Bo YBo lineto stroke [ ] 0 setdash CAB2No YNo moveto CAB2Jo YJo lineto CAB2Wo YWo lineto CAB2Bo YBo lineto CAB2No YNo lineto stroke 20 setlinewidth %No newpath 0 setgray CAB2No YNo 90 0 360 arc fill 1 setgray newpath CAB2No YNo 90 0 360 arc stroke %Jo newpath 1 1 0 setrgbcolor CAB2Jo YJo 90 0 360 arc fill 0 setgray newpath CAB2Jo YJo 90 0 360 arc stroke %Wo newpath 1 setgray CAB2Wo YWo 90 0 360 arc fill 0 setgray newpath CAB2Wo YWo 90 0 360 arc stroke %Bo newpath 0 0 1 setrgbcolor CAB2Bo YBo 90 0 360 arc fill 1 setgray newpath CAB2Bo YBo 90 0 360 arc stroke 0 setgray CAB2Jo 150 sub YJo 100 add moveto (J) show CAB2Bo 050 add YBo 250 sub moveto (B) show CAB2Wo 300 sub YWo 050 sub moveto (W) show CAB2No 200 sub YNo 100 add moveto (N) show CAB2Uo 300 sub YUo 050 add moveto (U) show 0 setgray CAB2Jo 100 add YJo 100 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Jo 150 add YJo 150 sub moveto (=(66, 72)) show CAB2Bo 990 sub YBo 050 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Bo 990 sub YBo 200 sub moveto (=(-66, 28)) show newpath %0 46.8 fakt mul 50 0 360 arc fill 0 50 fakt mul 50 0 360 arc fill xt0 neg yt0 neg translate grestore showpage %%Trailer %line 249 %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 020 STAl add MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %!PS-Adobe-3.0 EPSF-3.0 eew40-5a env00-3n %%BoundingBox: 70 85 246 206 %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/eew4/eew4.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO 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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 {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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 5 /Times-Roman FS 72 85 moveto (eew40-5a env00-3n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6000 def /ywidth 4000 def 0.7 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /fakt 20 def /a2 1.00 def /b2 -0.4 def TBS 100 3800 moveto (TUB colourimetry with normalization to ) showen (TUB\255Farbmetrik mit Normierung auf ) showde TBIS (Y) show TBS (=90, ) show TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = 25 : 1) show %SS (\245) show 100 3600 moveto TS (Equations for Green (G), Magenta (M), White (W), Grey (U), Black (N):) showen (Gleichungen f\374r Gr\374n (G), Magenta (M), Wei\338 (W), Grau (U), Schwarz (N):) showde 100 3400 moveto TBS (Tristimulus value ) showen (Hellbezugswert ) showde 100 3200 moveto TBIS (Y) show TBL 0 -50 rmoveto (G) show 0 50 rmoveto TBS ( + ) show TBIS (Y) show TBL 0 -50 rmoveto (M) show 0 50 rmoveto TBS ( = 54 + 36 = 90 ) show TS ([1]) show 100 2950 moveto (Chromatic value ) showen (Buntwert ) showde 100 2750 moveto TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,G) show 0 50 rmoveto TBS (| = ) show TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,M) show 0 50 rmoveto TBS (| = 60 ) show TS ([2]) show 100 2500 moveto (Contrast ) showen (Kontrast ) showde 100 2300 moveto TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = ) show TBS (90 : 3,6 ) show 100 2050 moveto TBS ( = 25 : 1 ) show TS ([3]) show 100 0800 moveto (Chromaticity difference ) showen (Farbartdifferenz ) showde 100 0600 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,G) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,G) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (G) show 0 50 rmoveto TS ( [4]) show 100 0400 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,M) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,M) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (M) show 0 50 rmoveto TS ( [5]) show newpath /xt0 3700 def /yt0 0500 def xt0 yt0 translate TBS %red cylinder CAB=60 1 0 0 setrgbcolor [100] 0 setdash 060 fakt mul 090 fakt mul moveto 060 fakt mul 000 fakt mul lineto stroke -60 fakt mul 090 fakt mul moveto -60 fakt mul 000 fakt mul lineto stroke 062 fakt mul 092 fakt mul moveto (60) show -58 fakt mul 082 fakt mul moveto (-60) show [ ] 0 setdash 0 setgray %axis and scales 1 setgray -1200 0 moveto 3000 0 rlineto stroke 0 -400 moveto 0 3000 rlineto stroke 1800 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill -50 2600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-50) ( ) ( 50)] def /yt10x [(0) ( ) (100)] def 1 setgray 0 1 2 {/i exch def %i=0,2 x-axis -1000 i 1000 mul add -75 moveto 0 150 rlineto stroke -1200 i 1000 mul add -300 moveto TBS xt10x i get show i 2 eq {-1000 i 1000 mul add 700 add 0 moveto -200 200 rmoveto TBIK (C) show 00 -50 rmoveto TBS (AB,2) show 0 50 rmoveto } if } for %i=0,2 0 1 2 {/i exch def %i=0,2 y-axis -75 0000 i 1000 mul add moveto 150 0 rlineto stroke 0100 i 1000 mul 200 sub i 1 eq {100 add} if i 2 eq {200 add} if moveto TBS yt10x i get show i 2 eq {0 0200 i 1000 mul add moveto 100 150 rmoveto TBIK (Y) show } if } for %i=0,2 newpath TBS 1 setgray 0 3.6 fakt mul 90 0 360 arc fill %N newpath 02 fakt mul 52 fakt mul moveto (50) show newpath 1 setgray 0 90.0 fakt mul 90 0 360 arc fill %W 0 setgray 0 90.0 fakt mul 90 0 360 arc stroke %W newpath 06 fakt mul 88 fakt mul moveto (90) show newpath 02 fakt mul 35 fakt mul moveto (46,8) show newpath 08 fakt mul 02 fakt mul moveto (3,6) show /YNot (3,6) def /CAB2Wo 0 fakt mul def /YWo 90.0 fakt mul def /CAB2No 0 fakt mul def /YNo 3.6 fakt mul def /CAB2Go -60 fakt mul def /YGo 54 fakt mul def /CAB2Mo 60 fakt mul def /YMo 36 fakt mul def 15 setlinewidth [100] 0 setdash CAB2Go YGo moveto CAB2Mo YMo lineto stroke [ ] 0 setdash CAB2No YNo moveto CAB2Go YGo lineto CAB2Wo YWo lineto CAB2Mo YMo lineto CAB2No YNo lineto stroke 20 setlinewidth %No newpath 0 setgray CAB2No YNo 90 0 360 arc fill 1 setgray newpath CAB2No YNo 90 0 360 arc stroke %Go newpath 0 1 0 setrgbcolor CAB2Go YGo 90 0 360 arc fill 0 setgray newpath CAB2Go YGo 90 0 360 arc stroke %Wo newpath 1 setgray CAB2Wo YWo 90 0 360 arc fill 0 setgray newpath CAB2Wo YWo 90 0 360 arc stroke %Mo newpath 1 0 1 setrgbcolor CAB2Mo YMo 90 0 360 arc fill 1 setgray newpath CAB2Mo YMo 90 0 360 arc stroke 0 setgray CAB2Go 050 add YGo 150 add moveto (G) show CAB2Mo 250 sub YMo 300 sub moveto (M) show CAB2Wo 300 sub YWo 050 sub moveto (W) show CAB2No 300 sub YNo 050 sub moveto (N) show 0 setgray CAB2Mo 100 add YMo 100 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Mo 150 add YMo 150 sub moveto (=(60, 54)) show CAB2Go 990 sub YGo 050 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Go 990 sub YGo 200 sub moveto (=(-60, 36)) show newpath %0 46.8 fakt mul 50 0 360 arc fill 0 45 fakt mul 50 0 360 arc fill xt0 neg yt0 neg translate grestore showpage %%Trailer %line 259 %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 STAl add 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 %!PS-Adobe-3.0 EPSF-3.0 eew40-8a env00-4n %%BoundingBox: 70 85 246 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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/eew4/eew4.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2023080112000) /ModDate (D:2023080112000) /DOCINFO pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 {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 /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /lanind lanind1 def 5 /Times-Roman FS 72 85 moveto (eew40-8a env00-4n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6000 def /ywidth 4000 def 0.7 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /fakt 20 def /a2 1.00 def /b2 -0.4 def TBS 100 3800 moveto (TUB colourimetry with normalization to ) showen (TUB\255Farbmetrik mit Normierung auf ) showde TBIS (Y) show TBS (=90, ) show TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = 25 : 1) show %SS (\245) show 100 3600 moveto TS (Equations for Cyan (C), Rot (R), White (W), Grey (U), Black (N):) showen (Gleichungen f\374r Cyan (C), Rot (R), Wei\338 (W), Grau (U), Schwarz (N):) showde 100 3400 moveto TBS (Tristimulus value ) showen (Hellbezugswert ) showde 2700 3400 moveto TBIS (Ostwald) show TBS ( and antagonistic (a) colour) showen (\255 und antagonistische (a) Farbe) showde 100 3200 moveto TBIS (Y) show TBL 0 -50 rmoveto (C) show 0 50 rmoveto TBS ( + ) show TBIS (Y) show TBL 0 -50 rmoveto (R) show 0 50 rmoveto TBS ( = 48 + 42 = 90 ) show TS ([1]) show 2700 3200 moveto TBIS (Y) show TBL 0 -50 rmoveto (o) show 0 50 rmoveto TBS ( + ) show TBIS (Y) show TBL 0 -50 rmoveto (a) show 0 50 rmoveto TBS ( = (47+X) + (47-X) = 90 ) show TS ([1a]) show 100 2950 moveto (Chromatic value ) showen (Buntwert ) showde 100 2750 moveto TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,C) show 0 50 rmoveto TBS (| = ) show TBS (|) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,R) show 0 50 rmoveto TBS (| = 60 ) show TS ([2]) show 100 2500 moveto (Contrast ) showen (Kontrast ) showde 100 2300 moveto TBIS (C) show TBS (=) show TBIS (Y) show TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS ( : ) show TBIS (Y) show TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS ( = ) show TBS (90 : 3,6 ) show 100 2050 moveto TBS ( = 25 : 1 ) show TS ([3]) show 100 0800 moveto (Chromaticity difference ) showen (Farbartdifferenz ) showde 100 0600 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,C) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,C) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (C) show 0 50 rmoveto TS ( [4]) show 100 0400 moveto TBIS (c) show TBL 0 -50 rmoveto (AB,2,R) show 0 50 rmoveto TBS (=) show TBIS (C) show TBL 0 -50 rmoveto (AB,2,R) show 0 50 rmoveto TBS ( / ) show TBIS (Y) show TBL 0 -50 rmoveto (R) show 0 50 rmoveto TS ( [5]) show newpath /xt0 3700 def /yt0 0500 def xt0 yt0 translate TBS %red cylinder CAB=60 1 0 0 setrgbcolor [100] 0 setdash 060 fakt mul 090 fakt mul moveto 060 fakt mul 000 fakt mul lineto stroke -60 fakt mul 090 fakt mul moveto -60 fakt mul 000 fakt mul lineto stroke 062 fakt mul 092 fakt mul moveto (60) show -58 fakt mul 082 fakt mul moveto (-60) show [ ] 0 setdash 0 setgray %green cylinder CAB=30 0 1 0 setrgbcolor [100] 0 setdash 030 fakt mul 090 fakt mul moveto 030 fakt mul 000 fakt mul lineto stroke -30 fakt mul 090 fakt mul moveto -30 fakt mul 000 fakt mul lineto stroke 032 fakt mul 092 fakt mul moveto (30) show -28 fakt mul 082 fakt mul moveto (-30) show [ ] 0 setdash 0 setgray %axis and scales 1 setgray -1200 0 moveto 3000 0 rlineto stroke 0 -400 moveto 0 3000 rlineto stroke 1800 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill -50 2600 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-50) ( ) ( 50)] def /yt10x [(0) ( ) (100)] def 1 setgray 0 1 2 {/i exch def %i=0,2 x-axis -1000 i 1000 mul add -75 moveto 0 150 rlineto stroke -1200 i 1000 mul add -300 moveto TBS xt10x i get show i 2 eq {-1000 i 1000 mul add 700 add 0 moveto -200 200 rmoveto TBIK (C) show 00 -50 rmoveto TBS (AB,2) show 0 50 rmoveto } if } for %i=0,2 0 1 2 {/i exch def %i=0,2 y-axis -75 0000 i 1000 mul add moveto 150 0 rlineto stroke 0100 i 1000 mul 200 sub i 1 eq {100 add} if i 2 eq {200 add} if moveto TBS yt10x i get show i 2 eq {0 0200 i 1000 mul add moveto 100 150 rmoveto TBIK (Y) show } if } for %i=0,2 newpath TBS 1 setgray 0 3.6 fakt mul 90 0 360 arc fill %N newpath 02 fakt mul 52 fakt mul moveto (50) show newpath 1 setgray 0 90.0 fakt mul 90 0 360 arc fill %W 0 setgray 0 90.0 fakt mul 90 0 360 arc stroke %W newpath 06 fakt mul 88 fakt mul moveto (90) show newpath 02 fakt mul 35 fakt mul moveto (46,8) show newpath 08 fakt mul 02 fakt mul moveto (3,6) show /YNot (3,6) def /CAB2Wo 0 fakt mul def /YWo 90.0 fakt mul def /CAB2No 0 fakt mul def /YNo 3.6 fakt mul def /CAB2Co -60 fakt mul def /YCo 48 fakt mul def /CAB2Ro 60 fakt mul def /YRo 42 fakt mul def 15 setlinewidth [100] 0 setdash CAB2Co YCo moveto CAB2Ro YRo lineto stroke [ ] 0 setdash CAB2No YNo moveto CAB2Co YCo lineto CAB2Wo YWo lineto CAB2Ro YRo lineto CAB2No YNo lineto stroke 20 setlinewidth %No newpath 0 setgray CAB2No YNo 90 0 360 arc fill 1 setgray newpath CAB2No YNo 90 0 360 arc stroke %Go newpath 0 1 1 setrgbcolor CAB2Co YCo 90 0 360 arc fill 0 setgray newpath CAB2Co YCo 90 0 360 arc stroke %Wo newpath 1 setgray CAB2Wo YWo 90 0 360 arc fill 0 setgray newpath CAB2Wo YWo 90 0 360 arc stroke %Mo newpath 1 0 1 setrgbcolor CAB2Ro YRo 90 0 360 arc fill 1 setgray newpath CAB2Ro YRo 90 0 360 arc stroke 0 setgray CAB2Co 050 add YCo 150 add moveto (C) show CAB2Ro 250 sub YRo 300 sub moveto (R) show CAB2Wo 300 sub YWo 050 sub moveto (W) show CAB2No 300 sub YNo 050 sub moveto (N) show 0 setgray CAB2Ro 100 add YRo 100 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Ro 150 add YRo 150 sub moveto (=(60, 42)) show CAB2Co 990 sub YCo 050 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Co 990 sub YCo 200 sub moveto (=(-60, 48)) show newpath %0 46.8 fakt mul 50 0 360 arc fill 0 45 fakt mul 50 0 360 arc fill %Ro2 /CAB2Ro2 30 fakt mul def /YRo2 66 fakt mul def 0 1 0 setrgbcolor CAB2No YNo moveto CAB2Ro2 YRo2 lineto stroke newpath 1 0.5 1 setrgbcolor CAB2Ro2 YRo2 90 0 360 arc fill 0 setgray newpath CAB2Ro2 YRo2 90 0 360 arc stroke 0 setgray CAB2Ro2 100 add YRo2 150 add moveto TBS (\050C) show TBL 0 -50 rmoveto (AB,2) show 0 50 rmoveto TBS (, Y\051) show CAB2Ro2 150 add YRo2 100 sub moveto (=(30, 66)) show xt0 neg yt0 neg translate grestore showpage %%Trailer %line 269 %%EndDocument EndEPSF grestore gsave showpage grestore %%Trailer