%!PS-Adobe-3.0 EPSF-3.0 JE531-3N %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /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://130.149.60.45/~farbmetrik/JE53/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark12 [ /View [ /FitB ] /DOCVIEW pdfmark12 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /TS {170 /Times-ISOL1 FS} bind def /TK {220 /Times-ISOL1 FS} bind def /TM {240 /Times-ISOL1 FS} bind def /TG {300 /Times-ISOL1 FS} bind def /TIS {170 /TimesI-ISOL1 FS} bind def /TIK {220 /TimesI-ISOL1 FS} bind def /TIM {240 /TimesI-ISOL1 FS} bind def /TIG {300 /TimesI-ISOL1 FS} bind def /TBS {170 /TimesB-ISOL1 FS} bind def /TBK {220 /TimesB-ISOL1 FS} bind def /TBM {240 /TimesB-ISOL1 FS} bind def /TBG {300 /TimesB-ISOL1 FS} bind def /TBIS {170 /TimesBI-ISOL1 FS} bind def /TBIK {220 /TimesBI-ISOL1 FS} bind def /TBIM {240 /TimesBI-ISOL1 FS} bind def /TBIG {300 /TimesBI-ISOL1 FS} bind def /SS {170 /Symbol FS} bind def /SK {220 /Symbol FS} bind def /SM {240 /Symbol FS} bind def /SG {300 /Symbol FS} bind def %%EndProlog gsave /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse 5 /Times-ISOL1 FS 200 85 moveto (JE531-3) show 72 90 translate /yhoe 4000 def /xwide 5333 def 15 setlinewidth 0.01 MM dup scale 0.0 0.0 0.0 0.5 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmykcolor 0 0 moveto xwide 0 rlineto 0 yhoe rlineto xwide neg 0 rlineto closepath stroke 1 setgray 0020 3800 moveto TBM (Colorimetric data ) showen (Farbmetrische Daten ) showde SM (l) show TBIM (*) show TBK -30 -60 rmoveto (d) show 30 60 rmoveto TBIM (, ncu*) show TBM ( of device SRS00) showen ( des Ger\344tes SRS00) showde 1 setgray xwide 0.5 mul 50 sub yhoe 0.48 mul translate /la 30 def /x0r 1000 la cos mul def /y0r 1000 la sin mul def /la 90 def /x0j 1000 la cos mul def /y0j 1000 la sin mul def /la 135 def /x135 1000 la cos mul def /y135 1000 la sin mul def /la 150 def /x0g 1000 la cos mul def /y0g 1000 la sin mul def /la 210 def /x0c 1000 la cos mul def /y0c 1000 la sin mul def /la 225 def /x225 1000 la cos mul def /y225 1000 la sin mul def /la 248 def /x248 1000 la cos mul def /y248 1000 la sin mul def /la 270 def /x0b 1000 la cos mul def /y0b 1000 la sin mul def /la 315 def /x315 1000 la cos mul def /y315 1000 la sin mul def /la 330 def /x0m 1000 la cos mul def /y0m 1000 la sin mul def %circle 40 setlinewidth 0 0 moveto ( ) show 0 0 1000 0 360 arc stroke 1 setgray %x-axis 40 setlinewidth 0 0 moveto 1650 0 rlineto stroke 1650 100 sub -50 moveto 100 50 rlineto -100 50 rlineto closepath stroke 1750 -50 moveto SM (l) show TBIM (*) show newpath 20 setlinewidth 0 0 1800 345 355 arc stroke newpath 0 0 moveto ( ) show /la 345 def /x01 1800 la cos mul def /y01 1800 la sin mul def x01 y01 moveto -010 150 rlineto stroke x01 y01 moveto 070 130 rlineto stroke 40 setlinewidth %y-axis 0 1000 moveto 0 0650 rlineto stroke -50 1650 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath stroke -350 1500 moveto SM (l) show TBIM (*) show newpath 20 setlinewidth 0 0 1600 105 115 arc stroke newpath 0 0 moveto ( ) show /la 105 def /x01 1600 la cos mul def /y01 1600 la sin mul def x01 y01 moveto -120 10 rlineto stroke x01 y01 moveto -100 -75 rlineto stroke 40 setlinewidth %elementary hue device /tf450 {0.5 0.0 1.0 setrgbcolor} bind def %b27R 0.5 1.0 0.0 /tf475 {0.0 0.2 1.0 setrgbcolor} bind def %B 1.0 0.8 0.0 /tf500 {0.0 1.0 0.5 setrgbcolor} bind def %G 1.0 0.0 0.5 /tf538 {0.0 1.0 0.0 setrgbcolor} bind def %j48g 0.0 1.0 0.0 /tf550 {0.6 1.0 0.0 setrgbcolor} bind def %j33g 0.4 0.0 1.0 /tf563 {0.8 1.0 0.0 setrgbcolor} bind def %j17g 0.2 0.0 1.0 /tf575 {1.0 1.0 0.0 setrgbcolor} bind def %J 0.0 1.0 0.0 /tf650 {1.0 0.0 0.0 setrgbcolor} bind def %R 0.0 1.0 1.0 tf575 [60] 0 setdash 0 0 moveto x0j y0j lineto stroke [] 0 setdash %x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill x0j 100 add y0j 300 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,J) show 0 50 rmoveto TBK ( = 575 nm) show tf550 0 0 moveto x135 y135 lineto stroke x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill 1 setgray %x135 075 add 1900 sub y135 400 add moveto %TBIK (tch*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,38) show x135 075 add 1900 sub y135 150 add moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,j33g) show 0 50 rmoveto tf550 TBK ( = 550 nm) show 1 setgray x135 075 add 1900 sub y135 100 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show tf550 (j33g) show tf500 0 0 moveto x225 y225 lineto stroke x225 y225 moveto ( ) show x225 y225 90 0 360 arc fill 1 setgray %x225 075 add 1900 sub y225 050 add moveto %TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,63) show x225 075 add 1900 sub y225 200 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,G) show 0 50 rmoveto tf500 TBK ( = 500 nm) show 1 setgray x225 075 add 1900 sub y225 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show tf500 (g00b) show tf475 [60] 0 setdash 0 0 moveto x0b y0b lineto stroke [] 0 setdash %x0b y0b moveto ( ) show x0b y0b 60 0 360 arc fill x0b 100 add 700 sub y0b 450 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,B) show 0 50 rmoveto TBK ( = 475 nm) show tf450 0 0 moveto x315 y315 lineto stroke x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill 1 setgray %x315 175 add y315 050 add moveto %TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show x315 175 add y315 200 sub moveto SK (l) show TBIK (*) show TBS -30 -50 rmoveto (d,b27r) show 0 50 rmoveto tf450 TBK ( = 450 nm) show 1 setgray x315 175 add y315 450 sub moveto TBIK (ncu*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show tf450 (b27r) show newpath 1 0 0 setrgbcolor 0 0 300 135 315 arc stroke /la 225 def /xla1 300 la cos mul def /yla1 300 la sin mul def /xla2 400 la cos mul def /yla2 400 la sin mul def xla1 yla1 moveto xla2 yla2 lineto stroke showpage grestore %%Trailer