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

%START PDFDE011.EPS
/pdfmark18 where {pop} {userdict /pdfmark18 /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 pdfmark18
[ /View [ /FitB ]
/DOCVIEW pdfmark18
%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-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
%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
(, ) show SK (l) show TBIK (*) show
TBS -30 -60 rmoveto (c) 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

/la 00 def %c,j66g
/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 45 def %M'=Gc
/x045 1000  la cos mul def /y045 1000  la sin mul def

/la 68 def %R=C'c
/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 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 248 def %C'=Rc
/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

%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 0 0 setrgbcolor %R
0 0 moveto x045 y045 lineto stroke
x045 y045 moveto ( ) show x045 y045 90 0 360 arc fill
%10 setlinewidth 0 setgray
%x045 y045 moveto ( ) show newpath x045 y045 60 0 360 arc stroke
40 setlinewidth
1 setgray
x045 100 add y045 150 add moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (d,R) show 
0 50 rmoveto 1 0 0 setrgbcolor TBK ( = 600 nm) show 1 setgray
1 setgray
x045 100 add y045 050 sub moveto
SK (l) show TBIK (*) show
TBS -30 -50 rmoveto (c,R) show
0 50 rmoveto 0 1 0 setrgbcolor TBK ( = 500c nm) show 1 setgray

1 1 0 setrgbcolor %Y=J
0 0 moveto x0j y0j lineto stroke
x0j y0j moveto ( ) show x0j y0j 90 0 360 arc fill
1 setgray
x0j 100 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 100 add y0j 350 add moveto
SK (l) show TBIK (*) show 
TBS -30 -50 rmoveto (c,J) show 0 50 rmoveto
0 0 1 setrgbcolor TBK ( = 475c nm) show
1 setgray

0.8 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 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
0 0 moveto x180 y180 lineto stroke
x180 y180 moveto ( ) show x180 y180 60 0 360 arc fill
1 setgray
x180 075 add 1750 sub y180 450 add moveto
TBIK (tch*) show TBS -30 -50 rmoveto (j66g) show 0 50 rmoveto TBK ( = 0,5 1 0,50) show
x180 075 add 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 075 add 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
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 250 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 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 1900 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
0 0 moveto x0b y0b lineto stroke
x0b y0b moveto ( ) show x0b y0b 90 0 360 arc fill
1 setgray
x0b 100 add 300 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 100 add 300 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 100 add 300 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
0 0 moveto x315 y315 lineto stroke
x315 y315 moveto ( ) show x315 y315 60 0 360 arc fill
1 setgray
x315 242 add y315 250 add moveto
TBIK (tch*) show TBS -30 -50 rmoveto (b27r) show 0 50 rmoveto TBK ( = 0,5 1 0,87) show
x315 242 add y315 000 add 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 242 add y315 250 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