%!PS-Adobe-3.0 EPSF-3.0 SF690-4N
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark04 where {pop} {userdict /pdfmark04 /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 pdfmark04
[ /View [ /FitB ]
/DOCVIEW pdfmark04
%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
/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-4) 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
%TBIM ( tch*, ) show
SM (l) show TBIM (*) show
TBK -30 -60 rmoveto (d) show 30 60 rmoveto
TBIM (, ncu*) show %TBK -30 -60 rmoveto (r) show 30 60 rmoveto
TBM ( of device SRS00) showea ( des Ger\344tes SRS00) showde

1 setgray
xwide 0.5 mul 150 add 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 45 def %R=Gc
/x045 1000  la cos mul def /y045 1000  la sin mul def

/la 56 def %R=Gc
/x056 1000  la cos mul def /y056 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 180 def
/x180 1000  la cos mul def /y180 1000  la sin mul def

/la 225 def
/x225 1000  la cos mul def /y225 1000  la sin mul def

/la 236 def %C'=Rc
/x236 1000  la cos mul def /y236 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

/x0w 0 def
/y0w 0 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 0 moveto 0 1650 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

1 1 0 setrgbcolor %Y=J
x0w y0w moveto x0j y0j lineto stroke
x0j y0j moveto ( ) show x0j y0j 90 0 360 arc fill
1 setgray
x0j 150 add y0j 550 add moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,J) show 
0 50 rmoveto 1 1 0 setrgbcolor TBK ( = 575 nm) show 1 setgray
x0j 150 add y0j 300 add moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0 1 ) show
1.0 1 0.0 setrgbcolor (j00g) show

0.8 1 0.0 setrgbcolor %J33G
x0w y0w moveto x135 y135 lineto stroke
x135 y135 moveto ( ) show x135 y135 60 0 360 arc fill
1 setgray
%x135 075 add 1900 sub y135 600 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 350 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
x135 075 add 1900 sub y135 100 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
x0w y0w moveto x180 y180 lineto stroke
x180 y180 moveto ( ) show x180 y180 60 0 360 arc fill
1 setgray
%x180 025 sub 1750 sub y180 200 add moveto
%TBIK (tch*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0,5 1 0,50) show
x180 025 sub 1750 sub y180 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
x180 025 sub 1750 sub y180 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 %G
[60] 0 setdash
0 0 moveto x225 y225 lineto stroke
[] 0 setdash
x225 y225 moveto ( ) show x225 y225 90 0 360 arc fill
1 setgray
%x225 075 add 1900 sub y225 000 add moveto
%TBIK (tch*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0,5 1 0,63) show
x225 075 add 1700 sub y225 000 sub moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,G) show
0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 500 nm) show 1 setgray
x225 075 add 1700 sub y225 250 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show
0 1 0.5 setrgbcolor (g00b) show

0 0.2 1 setrgbcolor %B
x0w y0w moveto x0b y0b lineto stroke
x0b y0b moveto ( ) show x0b y0b 90 0 360 arc fill
1 setgray
%x0b 100 add 700 sub y0b 250 sub moveto
%TBIK (tch*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0,5 1 0,75) show
x0b 700 add 700 sub y0b 500 sub moveto
SK (l) show TBIK (*) show
TBS -30 -50 rmoveto (d,B) show
0 50 rmoveto 0 0.2 1 setrgbcolor TBK ( = 475 nm) show 1 setgray
x0b 700 add 700 sub y0b 750 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 1 ) show
0 0.2 1 setrgbcolor (b00r) show

0.5 0 1 setrgbcolor %b27R
x0w y0w moveto x315 y315 lineto stroke
x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill
1 setgray
%x315 000 add y315 000 add moveto
%TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show
x315 000 add y315 250 sub moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,b27r) show
0 50 rmoveto 0.5 0 1 setrgbcolor TBK ( = 450 nm) show 1 setgray
x315 000 add y315 500 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0 1 ) show
0.5 0 1 setrgbcolor (b27r) show

1 0 0 setrgbcolor %M=Gc
[60] 0 setdash
0 0 moveto x056 y056 lineto stroke
[] 0 setdash
x056 y056 moveto ( ) show x056 y056 90 0 360 arc fill
%10 setlinewidth 0 setgray
%x056 y056 moveto ( ) show newpath x056 y056 60 0 360 arc stroke
40 setlinewidth 1 setgray
x056 300 add y056 100 add moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,R) show 
0 50 rmoveto 1 0 0 setrgbcolor TBK ( = 494c nm) show 1 setgray
x056 300 add y056 150 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 1 0 ) show
1 0 0 setrgbcolor (r00j) show

0 1 0.7 setrgbcolor %C''
[60] 0 setdash
0 0 moveto x236 y236 lineto stroke
[] 0 setdash
0 1 0.7 setrgbcolor %C''
x236 y236 moveto ( ) show x236 y236 60 0 360 arc fill
1 setgray
x236 1200 sub y236 350 sub moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,C'') show 
0 50 rmoveto 0 1 0.7 setrgbcolor TBK ( = 494 nm) show 1 setgray
x236 1200 sub y236 600 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (d) show 0 50 rmoveto TBK ( = 0 1 ) show
0 1 0.7 setrgbcolor (g25b) show

%mixture r00j-g25b
40 setlinewidth
1 0 0 setrgbcolor
x056 y056 moveto x0w y0w lineto stroke

0 1 0.5 setrgbcolor
x225 y225 moveto x0w y0w lineto stroke

1 setgray
x0w y0w moveto ( ) show newpath
x0w y0w 90 0 360 arc fill

showpage
grestore

%%Trailer