%!PS-Adobe-3.0 EPSF-3.0 eev00-2N %%BoundingBox: 70 85 246 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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/eev0/eev0.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 pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %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 (eev00-2n) show 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwidth 6100 def /ywidth 4000 def 0.5 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