%!PS-Adobe-3.0 EPSF-3.0 JG511-5N
%%BoundingBox: 70 83 226 206

%START PDFDE011.EPS
/pdfmark15 where {pop} {userdict /pdfmark15 /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/JG51/)
  /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 pdfmark15
[ /View [ /FitB ]
/DOCVIEW pdfmark15
%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 {150 /Times-ISOL1 FS} bind def
/TK {200 /Times-ISOL1 FS} bind def
/TM {250 /Times-ISOL1 FS} bind def
/TG {300 /Times-ISOL1 FS} bind def

/TIS {150 /TimesI-ISOL1 FS} bind def
/TIK {200 /TimesI-ISOL1 FS} bind def
/TIM {250 /TimesI-ISOL1 FS} bind def
/TIG {300 /TimesI-ISOL1 FS} bind def
 
/TBS {150 /TimesB-ISOL1 FS} bind def
/TBK {200 /TimesB-ISOL1 FS} bind def
/TBM {250 /TimesB-ISOL1 FS} bind def
/TBG {300 /TimesB-ISOL1 FS} bind def

/TBIS {150 /TimesBI-ISOL1 FS} bind def
/TBIK {200 /TimesBI-ISOL1 FS} bind def
/TBIM {250 /TimesBI-ISOL1 FS} bind def
/TBIG {300 /TimesBI-ISOL1 FS} bind def

/SS {150 /Symbol FS} bind def
/SK {200 /Symbol FS} bind def
/SM {250 /Sysbol 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 0 def /lanind2 0 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
    (JG511-5) 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
%0050 3800 moveto
%TBM (CIELAB ) showen (CIELAB\255) showde
%TBIM (\050 a*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto
%TBIM (, b*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto
%TBM (\051) show
%TBM ( chroma) showen (\255Buntheit) showde

0020 3800 moveto
TBK (Colorimetric data) showen (Farbmetrische Daten) showde
TBIK ( tch*, ) show SK (l) show TBIK (*) show
TBS -30 -60 rmoveto (d) show 30 60 rmoveto
TBIK (, ncu*) show %TBS -30 -60 rmoveto (r) show 30 60 rmoveto
TBK ( of device NRS18) showen ( des Ger\344tes NRS18) showde

%050 850 moveto
%1 setgray
%TBK (example for) showen
%    (Beispiel f\374r) showde
%050 600 moveto
%TBK (colour notation:) showen
%    (Farbkennzeichnung:) showde

%1 0 0 setrgbcolor
%050 350 moveto
%TBIK (ncu*) show TBK ( = 0,25  0,50  r25j) show
%050 100 moveto
%TBIK (rgb*) show TBS -30 -60 rmoveto (3) show 0 60 rmoveto
%TBK ( = 0,75  0,25  0,25) show

1 setgray
xwide 0.5 mul 50 add yhoe 0.5 mul translate

%20 setlinewidth
%1000 0 moveto ( ) show
%0 0 1000 0 360 arc stroke
%newpath
%0 0 moveto ( ) show


/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 112.5 def
/x113 1000  la cos mul def /y113 1000  la sin mul def

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

/la 157.5 def
/x158 1000  la cos mul def /y158 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 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

%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 2200 0 rlineto stroke
2200 100 sub -50 moveto 100 50 rlineto
                       -100 50 rlineto closepath stroke
2300 -50 moveto TBIM (a*) show
%TBK -30 -60 rmoveto (r) 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
-350 1500 moveto TBIM (b*) show
%TBK -30 -60 rmoveto (r) show 0 60 rmoveto

%elementary hue device

1 1 0 setrgbcolor %Y=J
0 0 moveto x0j y0j lineto stroke
%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

0.8 1 0.0 setrgbcolor %j17g
0 0 moveto x113 y113 lineto stroke
x113 y113 moveto ( ) show x113 y113 60 0 360 arc fill
1 setgray
x113 075 add 1900 sub y113 650 add moveto
TBIK (tch*) show TBS -30 -50 rmoveto (j17g) show 0 50 rmoveto TBK ( = 0,5 1 0,32) show
x113 075 add 1900 sub y113 400 add moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,j17g) show
0 50 rmoveto 0.8 1 0.0 setrgbcolor TBK ( = 563 nm) show 1 setgray
x113 075 add 1900 sub y113 150 add moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (j17g) show 0 50 rmoveto TBK ( = 0 1 ) show
0.8 1 0.0 setrgbcolor (j17g) show

0.4 1 0.0 setrgbcolor %j33g
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 100 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 sub moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,j33g) show
0 50 rmoveto 0.4 1 0.0 setrgbcolor TBK ( = 550 nm) show 1 setgray
x135 075 add 1900 sub y135 400 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (j33g) show 0 50 rmoveto TBK ( = 0 1 ) show
0.4 1 0.0 setrgbcolor (j33g) show

0 1 0.5 setrgbcolor %j48g
0 0 moveto x158 y158 lineto stroke
x158 y158 moveto ( ) show x158 y158 60 0 360 arc fill
1 setgray
x158 075 add 1850 sub y158 350 sub moveto
TBIK (tch*) show TBS -30 -50 rmoveto (j48g) show 0 50 rmoveto TBK ( = 0,5 1 0,45) show
x158 075 add 1850 sub y158 600 sub moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,j48g) show
0 50 rmoveto 0 1 0.5 setrgbcolor TBK ( = 538 nm) show 1 setgray
x158 075 add 1850 sub y158 850 sub moveto TBIK (ncu*) show
TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 1 ) show
0 1 0.5 setrgbcolor (j48g) show

0 0.2 1 setrgbcolor %B
0 0 moveto x0b y0b lineto stroke
%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

0.5 0 1 setrgbcolor %b27R
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 0.5 0 1 setrgbcolor 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
0.5 0 1 setrgbcolor (b27r) show


showpage
grestore

%%Trailer