%!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