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

%START PDFDE011.EPS
/pdfmark11 where {pop} {userdict /pdfmark11 /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 pdfmark11
[ /View [ /FitB ]
/DOCVIEW pdfmark11
%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-1) 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

0005 3800 moveto
TBK (Colorimetric data) showen (Farbmetrische Daten) showde
TBIK ( TCH*, RGB*) show TBS -30 -60 rmoveto (3) 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 sub yhoe 0.5 mul translate

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

%axis
40 setlinewidth
1 setgray
0 0 moveto 2300 0 rlineto stroke
0 0 moveto 0 1650 rlineto stroke

/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 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 270 def
/x0b 1000  la cos mul def /y0b 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

1 setgray
2300 100 sub -50 moveto 100 50 rlineto
                       -100 50 rlineto closepath stroke
2400 000 moveto TBIM (a*) show
%TBK -30 -60 rmoveto (r) show 0 60 rmoveto
-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.2 setrgbcolor %O=R
0 0 moveto x0r y0r lineto stroke
x0r y0r moveto ( ) show x0r y0r 60 0 360 arc fill
1 setgray
x0r 175 add y0r 300 add moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 57 77 30) show
x0r 175 add y0r 050 add moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,R) show 0 50 rmoveto TBK ( = 77 0 0) show
x0r 175 add y0r 200 sub moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (R) show 0 50 rmoveto TBK ( = 0 77 ) show
1 0 0.2 setrgbcolor (r00j) show

1 1 0 setrgbcolor %Y=J
0 0 moveto x0j y0j lineto stroke
x0j y0j moveto ( ) show x0j y0j 60 0 360 arc fill
1 setgray
x0j 100 add y0j 550 add moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 57 77 90) show
x0j 100 add y0j 300 add moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,J) show 0 50 rmoveto TBK ( = 77 77 0) show
x0j 100 add y0j 050 add moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (J) show 0 50 rmoveto TBK ( = 0 77 ) show
1 1 0 setrgbcolor (j00g) show


0 1 0.2 setrgbcolor %L=G
0 0 moveto x0g y0g lineto stroke
x0g y0g moveto ( ) show x0g y0g 60 0 360 arc fill
1 setgray
x0g 075 add 1800 sub y0g 300 add moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 57 77 150) show
x0g 075 add 1800 sub y0g 050 add moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,G) show 0 50 rmoveto TBK ( = 0 77 0) show
x0g 075 add 1800 sub y0g 200 sub moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (G) show 0 50 rmoveto TBK ( = 0 77 ) show
0 1 0.2 setrgbcolor (g00b) show

0 1 1 setrgbcolor %C
0 0 moveto x0c y0c lineto stroke
x0c y0c moveto ( ) show x0c y0c 60 0 360 arc fill
1 setgray
x0c 075 add 1800 sub y0c 050 add moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 57 77 210) show
x0c 075 add 1800 sub y0c 200 sub moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,C) show 0 50 rmoveto TBK ( = 0 77 77) show
x0c 075 add 1800 sub y0c 450 sub moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (C) show 0 50 rmoveto TBK ( = 0 77 ) show
0 1 1 setrgbcolor (g45b) 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
1 setgray
x0b 000 add 700 sub y0b 200 sub moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 57 77 270) show
x0b 000 add 700 sub y0b 450 sub moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,B) show 0 50 rmoveto TBK ( = 0 0 77) show
x0b 000 add 700 sub y0b 700 sub moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (B) show 0 50 rmoveto TBK ( = 0 77 ) show
0 0.2 1 setrgbcolor (b00r) show

1 0 1 setrgbcolor %M
0 0 moveto x0m y0m lineto stroke
x0m y0m moveto ( ) show x0m y0m 60 0 360 arc fill
1 setgray
x0m 175 add y0m 050 add moveto
TBIK (TCH*) show TBS -30 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 57 77 330) show
x0m 175 add y0m 200 sub moveto
TBIK (RGB*) show TBS -30 -50 rmoveto (3,M) show 0 50 rmoveto TBK ( = 77 0 77) show
x0m 175 add y0m 450 sub moveto TBIK (NCu*) show 
TBS -10 -50 rmoveto (M) show 0 50 rmoveto TBK ( = 0 77 ) show
1 0 1 setrgbcolor (b45r) show


showpage
grestore

%%Trailer