%!PS-Adobe-3.0 EPSF-3.0 SF690-8N
%%BoundingBox: 70 83 226 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: http://130.149.60.45/~farbmetrik/SF69/)
  /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:2013090112000)
  /ModDate (D:2013090112000)
/DOCINFO pdfmark08
[ /View [ /FitB ]
/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

/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
/showea {1 lanind le {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 3 def /lanind2 3 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
    (SF690-8) 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 ) showea (Farbmetrische Daten ) showde
SM (l) show %TBIM (*) show
TBK -00 -60 rmoveto (d) show 30 60 rmoveto
TBIM (, ncu*) show %TBK -30 -60 rmoveto (r) show 30 60 rmoveto
TBM ( of device NRS18) showea ( des Ger\344tes NRS18) showde

xwide 0.5 mul 50 add yhoe 0.48 mul translate

/la 00 def %M'=Gc
/x000 1000  la cos mul def /y000 1000  la sin mul def

/la 30 def
/x0r 1000  la cos mul def /y0r 1000  la sin mul def

/la 30 def
/x030 1000  la cos mul def /y030 1000  la sin mul def

/la 45 def %R=C'c
/x045 1000  la cos mul def /y045 1000  la sin mul def

/la 68 def
/x068 1000  la cos mul def /y068 1000  la sin mul def

/la 90 def %J=Bc
/x0j 1000  la cos mul def /y0j 1000  la sin mul def

/la 110 def %j33g
/x110 1000  la cos mul def /y110 1000  la sin mul def

/la 120 def %j33g
/x120 1000  la cos mul def /y120 1000  la sin mul def

/la 130 def
/x130 1000  la cos mul def /y130 1000  la sin mul def

/la 135 def
/x135 1000  la cos mul def /y135 1000  la sin mul def

/la 150 def %j66g
/x150 1000  la cos mul def /y150 1000  la sin mul def

/la 180 def %G
/x180 1000  la cos mul def /y180 1000  la sin mul def

/la 210 def
/x0c 1000  la cos mul def /y0c 1000  la sin mul def

/la 210 def
/x210 1000  la cos mul def /y210 1000  la sin mul def

/la 225 def %C'
/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 %B
/x0b 1000  la cos mul def /y0b 1000  la sin mul def

/la 290 def 
/x290 1000  la cos mul def /y290 1000  la sin mul def

/la 300 def %b33r
/x300 1000  la cos mul def /y300 1000  la sin mul def

/la 310 def
/x310 1000  la cos mul def /y310 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

/la 330 def
/x330 1000  la cos mul def /y330 1000  la sin mul def

/idshow  {TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBK} def
/iReshow {TBS -30 -50 rmoveto (Re) show 0 50 rmoveto TBK} def
/iYeshow {TBS -30 -50 rmoveto (Ye) show 0 50 rmoveto TBK} def
/iGeshow {TBS -30 -50 rmoveto (Ge) show 0 50 rmoveto TBK} def
/iBeshow {TBS -30 -50 rmoveto (Be) show 0 50 rmoveto TBK} def
/iCshow  {TBS -30 -50 rmoveto (C) show 0 50 rmoveto TBK} def
/iMshow  {TBS -30 -50 rmoveto (M) show 0 50 rmoveto TBK} def

/idReshow0 {TBS 00 -50 rmoveto (d,Re) show 0 50 rmoveto TBK} def
/idYeshow0 {TBS 00 -50 rmoveto (d,Ye) show 0 50 rmoveto TBK} def
/idGeshow0 {TBS 00 -50 rmoveto (d,Ge) show 0 50 rmoveto TBK} def
/idBeshow0 {TBS 00 -50 rmoveto (d,Be) show 0 50 rmoveto TBK} def
/idCshow0  {TBS 00 -50 rmoveto (d,C) show 0 50 rmoveto TBK} def
/idMshow0  {TBS 00 -50 rmoveto (d,M) show 0 50 rmoveto TBK} def

%mixture j33gÐg00b
40 setlinewidth
%20 setlinewidth
%[60] 0 setdash
1 setgray
%x0r y0r moveto x0j y0j lineto x0g y0g lineto
%x0c y0c lineto x0b y0b lineto x0m y0m lineto x0r y0r lineto stroke
%[] 0 setdash
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
1800 -50 moveto TBIM (A) show
TBS 00 -60 rmoveto (RGe) show 0 60 rmoveto

%y-axis
0 0 moveto 0 1650 rlineto stroke
-50 1650 100 sub moveto 50  100 rlineto
                        50 -100 rlineto closepath stroke
-550 1500 moveto TBIM (B) show
TBS 00 -60 rmoveto (YBe) show 0 60 rmoveto

%elementary hue device

%0.7 0 1 setrgbcolor %c,j66g
%0 0 moveto x310 y310 lineto stroke
%x310 y310 moveto ( ) show x310 y310 60 0 360 arc fill
%10 setlinewidth 0 setgray
%x310 y310 moveto ( ) show newpath x310 y310 60 0 360 arc stroke
%40 setlinewidth 1 setgray
%x310 150 add y310 100 sub moveto
%SK (l) show TBIK (*) show 
%TBS -30 -50 rmoveto (c,j66g) show 
%0 50 rmoveto 0.7 1 0 setrgbcolor TBK ( = 525c nm) show 1 setgray

1 0 1 setrgbcolor %M'=Gc
0 0 moveto x315 y315 lineto stroke
x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill
10 setlinewidth 0 setgray
x315 y315 moveto ( ) show newpath x315 y315 60 0 360 arc stroke
40 setlinewidth 1 setgray
%x315 150 add y315 350 sub moveto
%TBIK (tce*) show iMshow TBK ( = 0,5 1 0,88) show
x315 150 add y315 400 sub moveto
SK (l) show %TBIK (*) show 
idMshow0 
1 0 1 setrgbcolor TBK ( = 520c nm) show 1 setgray
x315 150 add y315 650 sub moveto TBIK (ncu*) show
iMshow TBK ( = 0 1 ) show
1 0 1 setrgbcolor (b45r) show

1 0 0 setrgbcolor %R=C'
0 0 moveto x000 y000 lineto stroke
x000 y000 moveto ( ) show x000 y000 90 0 360 arc fill
10 setlinewidth 0 setgray
x000 y000 moveto ( ) show newpath x000 y000 90 0 360 arc stroke
40 setlinewidth 1 setgray
%x000 000 add y000 150 sub moveto
%TBIK (tce*) show iReshow ( = 0,5 1 0,00) show
x000 000 add y000 400 sub moveto
SK (l) show %TBIK (*) show 
idReshow0
1 0 0 setrgbcolor SK ( \263) show TBK ( 620 nm) show 1 setgray
x000 000 add y000 650 sub moveto TBIK (ncu*) show
iReshow ( = 0 1 ) show
1 0 0 setrgbcolor (r00y) show

1 1 0 setrgbcolor %Ye
0 0 moveto x0j y0j lineto stroke
x0j y0j moveto ( ) show x0j y0j 90 0 360 arc fill
10 setlinewidth 0 setgray
x0j y0j moveto ( ) show newpath x0j y0j 90 0 360 arc stroke
40 setlinewidth
1 setgray
%x0j 100 add y0j 550 add moveto
%TBIK (tce*) show iYeshow ( = 0,5 1 0,25) show
x0j 100 add y0j 300 add moveto
SK (l) show %TBIK (*) show 
idYeshow0
1 1 0 setrgbcolor TBK ( = 570 nm) show
0 0 1 setrgbcolor TBK ( = 470c nm) show 1 setgray
x0j 100 add y0j 050 add moveto TBIK (ncu*) show
TBS iYeshow ( = 0 1 ) show
1 1 0 setrgbcolor (y00g) show

%0.8 1 0.0 setrgbcolor %J33G
%0 0 moveto x110 y110 lineto stroke
%x110 y110 moveto ( ) show x110 y110 60 0 360 arc fill
%1 setgray
%x110 075 add 1700 sub y110 700 add moveto
%TBIK (tce*) show TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0,5 1 0,31) show
%x110 075 add 1700 sub y110 650 add moveto
%SK (l) show TBIK (*) show 
%TBS -30 -50 rmoveto (d,j33g) show 
%0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray
%x110 075 add 1700 sub y110 400 add moveto TBIK (ncu*) show
%TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show
%0.8 1 0.0 setrgbcolor (j33g) show

%0.5 1 0.0 setrgbcolor %J66G
%0 0 moveto x130 y130 lineto stroke
%x130 y130 moveto ( ) show x130 y130 60 0 360 arc fill
%1 setgray
%x130 075 add 1800 sub y130 200 add moveto
%TBIK (tce*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0,5 1 0,36) show
%x130 075 add 1800 sub y130 200 add moveto
%SK (l) show TBIK (*) show 
%TBS -30 -50 rmoveto (d,j66g) show
%0 50 rmoveto 0.5 1 0.0 setrgbcolor TBK ( = 525 nm) show 1 setgray
%x130 075 add 1800 sub y130 050 sub moveto TBIK (ncu*) show
%TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0 1 ) show
%0.5 1 0.0 setrgbcolor (j66g) show

0 1 0.5 setrgbcolor %Ge
0 0 moveto x180 y180 lineto stroke
x180 y180 moveto ( ) show x180 y180 90 0 360 arc fill
10 setlinewidth 0 setgray
x180 y180 moveto ( ) show newpath x180 y180 90 0 360 arc stroke
40 setlinewidth
1 setgray
%x180 075 add 1700 sub y180 250 add moveto
%TBIK (tce*) show iGeshow TBK ( = 0,5 1 0,50) show
x180 025 add 1700 sub y180 000 sub moveto
SK (l) show %TBIK (*) show 
idGeshow0
0 1 0.5 setrgbcolor TBK ( = 520 nm) show 1 setgray
x180 025 add 1700 sub y180 250 sub moveto TBIK (ncu*) show
iGeshow ( = 0 1 ) show
0 1 0.5 setrgbcolor (g00b) show

0 0.8 1 setrgbcolor %C'
0 0 moveto x225 y225 lineto stroke
x225 y225 moveto ( ) show x225 y225 60 0 360 arc fill
10 setlinewidth 0 setgray
x225 y225 moveto ( ) show newpath x225 y225 60 0 360 arc stroke
40 setlinewidth
1 setgray
%x225 100 add 1800 sub y225 050 add moveto
%TBIK (tce*) show TBS -30 -50 rmoveto (C') show 0 50 rmoveto TBK ( = 0,5 1 0,63) show
x225 100 add 1800 sub y225 200 sub moveto
SK (l) show %TBIK (*) show
idCshow0
0 0.8 1 setrgbcolor TBK ( = 495 nm) show 1 setgray
x225 100 add 1800 sub y225 450 sub moveto TBIK (ncu*) show
iCshow ( = 0 1 ) show
0 0.8 1 setrgbcolor (g50b) show

0 0.2 1 setrgbcolor %B
0 0 moveto x0b y0b lineto stroke
x0b y0b moveto ( ) show x0b y0b 90 0 360 arc fill
10 setlinewidth 0 setgray
x0b y0b moveto ( ) show newpath x0b y0b 90 0 360 arc stroke
40 setlinewidth
1 setgray
%x0b 100 add 900 sub y0b 250 sub moveto
%TBIK (tce*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,5 1 0,75) show
x0b 100 add 900 sub y0b 500 sub moveto
SK (l) show %TBIK (*) show
idBeshow0
0 0.2 1 setrgbcolor TBK ( = 470 nm) show 1 setgray
x0b 100 add 900 sub y0b 750 sub moveto TBIK (ncu*) show
iBeshow ( = 0 1 ) show
0 0.2 1 setrgbcolor (b00r) show

%0.6 0 1 setrgbcolor %b27r
%0 0 moveto x290 y290 lineto stroke
%x290 y290 moveto ( ) show x290 y290 60 0 360 arc fill
%1 setgray
%x290 000 add y290 250 sub moveto
%TBIK (tce*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,83) show
%x290 000 add y290 500 sub moveto
%SK (l) show TBIK (*) show 
%TBS -30 -50 rmoveto (d,b27r) show
%0 50 rmoveto 0.6 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray
%x290 000 add y290 750 sub moveto TBIK (ncu*) show
%TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show
%0.6 0 1 setrgbcolor (b27r) show

showpage
grestore

%%Trailer