%!PS-Adobe-3.0 EPSF-3.0 JG520-1
%%BoundingBox: 70 85 405 206
 
%START PDFDE011.EPS
/pdfmark01 where {pop} {userdict /pdfmark01 /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/JG52/)
  /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 pdfmark01
[ /View [ /FitB ]
/DOCVIEW pdfmark01
%END  PDFDE011
 
% !Exchange Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/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
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%%EndProlog
gsave
%LANINDL2 START  20061001

/nshow {380 /Times-I FS  show} bind def
/kshow {380 /Times-Italic-I FS  show} bind def
/bshow {380 /Times-Bold-I FS  show} bind def
/jshow {380 /Times-BoldItalic-I FS show} bind def

/nshow2 {320 /Times-I FS  show} bind def
/kshow2 {320 /Times-Italic-I FS  show} bind def
/bshow2 {320 /Times-Bold-I FS  show} bind def
/jshow2 {320 /Times-BoldItalic-I FS show} bind def

/nshow {TM  show} bind def
/kshow {TIM show} bind def
/bshow {TBM show} bind def
/jshow {TBIM show} bind def

/nshow2 {TK show} bind def
/kshow2 {TIK show} bind def
/bshow2 {TBK show} bind def
/jshow2 {TBIK show} bind def

/lanind 0 def
/lantex [(DG) (DE) (IG) (IE)] def    
/nshowdg {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowde {1 lanind eq {nshow} {pop} ifelse} bind def
/nshowig {2 lanind eq {nshow} {pop} ifelse} bind def
/nshowie {3 lanind eq {nshow} {pop} ifelse} bind def
/nshowxg {0 lanind eq 2 lanind eq or {nshow} {pop} ifelse} bind def
/nshowxe {1 lanind eq 3 lanind eq or {nshow} {pop} ifelse} bind def

/kshowdg {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowde {1 lanind eq {kshow} {pop} ifelse} bind def
/kshowig {2 lanind eq {kshow} {pop} ifelse} bind def
/kshowie {3 lanind eq {kshow} {pop} ifelse} bind def
/kshowxg {0 lanind eq 2 lanind eq or {kshow} {pop} ifelse} bind def
/kshowxe {1 lanind eq 3 lanind eq or {kshow} {pop} ifelse} bind def

/bshowdg {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowde {1 lanind eq {bshow} {pop} ifelse} bind def
/bshowig {2 lanind eq {bshow} {pop} ifelse} bind def
/bshowie {3 lanind eq {bshow} {pop} ifelse} bind def
/bshowxg {0 lanind eq 2 lanind eq or {bshow} {pop} ifelse} bind def
/bshowxe {1 lanind eq 3 lanind eq or {bshow} {pop} ifelse} bind def

/jshowdg {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowde {1 lanind eq {jshow} {pop} ifelse} bind def
/jshowig {2 lanind eq {jshow} {pop} ifelse} bind def
/jshowie {3 lanind eq {jshow} {pop} ifelse} bind def
/jshowxg {0 lanind eq 2 lanind eq or {jshow} {pop} ifelse} bind def
/jshowxe {1 lanind eq 3 lanind eq or {jshow} {pop} ifelse} bind def

/showdg {0 lanind eq {show} {pop} ifelse} bind def
/showde {1 lanind eq {show} {pop} ifelse} bind def
/showig {2 lanind eq {show} {pop} ifelse} bind def
/showie {3 lanind eq {show} {pop} ifelse} bind def
/showxg {0 lanind eq 2 lanind eq or {show} {pop} ifelse} bind def
/showxe {1 lanind eq 3 lanind eq or {show} {pop} ifelse} bind def

/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave 
 
5 /Times-ISOL1 FS
380 85 moveto
    ( JG520-1 ) show

%lanind 1 eq {(Elementary and intermediate colours of) show} if
%lanind 0 eq {(Elementar- und Mittelfarben von) show} if
%8 /TimesI-ISOL1 FS
%( Miescher) show
%8 /Times-ISOL1 FS
%lanind 1 eq {( and CIE XYZ and xy) show} if
%lanind 0 eq {( und CIE XYZ und xy) show} if

72 90 translate
 
/yhoe  4000 def
/xhoe 11700 def

0.01 MM 0.01 MM scale

15 setlinewidth
0.0 0.0 0.0 1.0 setcmykcolor
 0 0  moveto xhoe 0 rlineto 0 yhoe rlineto xhoe neg 0 rlineto
closepath stroke
 0 3200  moveto xhoe 0 rlineto closepath stroke
 0 2700  moveto xhoe 0 rlineto closepath stroke
 
/tedef {/anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def
 
/TEn {TM tedef} bind def
/TEk {TIM tedef} bind def
/TEb {TBM tedef} bind def
/TEj {TBIM tedef} bind def
 
/TEA {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto show} for} bind def

/TEAde {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showde} for} bind def
/TEAdg {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showdg} for} bind def
/TEAie {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showie} for} bind def
/TEAig {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showig} for} bind def
/TEAxe {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showxe} for} bind def
/TEAxg {anz 1 sub -1 0 {ydt mul y0t add x0t exch moveto showxg} for} bind def

/yd -300 def %y-Zeilenabstand
%Spalten
/S1 0050 def
/S2 2750 def
/S3 6400 def
/S4 9700 def

/yhom yhoe 800 sub def
 S2 100 sub yhom moveto 0 yhom neg rlineto closepath stroke
 S3 100 sub yhoe moveto 0 yhoe neg rlineto closepath stroke
 S4 100 sub yhom moveto 0 yhom neg rlineto closepath stroke

/yz 350 def
/yu0 yhoe def
/yu1 {yu0 yz 1.0 mul sub} bind def
/yu2 {yu0 yz 3.3 mul sub} bind def
/yu3 {yu0 yz 4.7 mul sub} bind def

0 setgray
 S1 yu1 yd 2 TEb
(Four elementary colours)
(and four intermediate colours) TEAxe
(Vier Elementarfarben)
(und vier Mittelfarben) TEAxg

 S3 yu1 yd 2 TEb
(CIE tristimulues values and chromaticity) 
(for illuminant C and 2 degree observer) TEAxe
(CIE Normfarbwerte und \255wertanteile)
(f\374r Lichtart C und 2\255Grad\255Beobachter) TEAxg

 S1 yu2 yd 1 TEb
(Hue circle)
TEAxe
(Bunttonkreis)
TEAxg

 S2 yu2 yd 1 TEb
(Miescher/Munsell hue)
TEAxe
(Miescher/Munsell Buntton)
TEAxg

 S3 yu2 yd 1 TEj
(   X) TEA
0 -50 rmoveto TBK (c) show 0 50 rmoveto
500 0 rmoveto TBIM (Y) show
0 -50 rmoveto TBK (c) show 0 50 rmoveto
500 0 rmoveto TBIM (Z) show
0 -50 rmoveto TBK (c) show 0 50 rmoveto

 S4 yu2 yd 1 TEj
(   x) TEA
0 -50 rmoveto TBK (c) show 0 50 rmoveto
700 0 rmoveto TBIM (y) show
0 -50 rmoveto TBK (c) show 0 50 rmoveto


 S1 yu3 yd 8 TEn
(Elementary Red R)
(red yellow R50J)
(Elementary Yellow J)
(yellow green J50G)
(Green G)
(green blue G50B)
(Blue B)
(blue red B50R)
 TEAxe
 
(Elementarrot R)
(rotgelb R50J)
(Elementargelb J)
(gelbgr\374n J50G)
(Elementargr\374n G)
(gr\374nblau G50B)
(Elementarblau B)
(blaurot B50R)
 TEAxg
 
 S2 200 add yu3 yd 8 TEn
(08/6.0R-V5)
(05/3.7YR-V5)
(02/8.5Y-V5)
(23/9.5GY-V5)
(20/5.9G-V5)
(17/8.5BG-V5)
(14/5.3PB-V5)
(11/7.4P-V5)
 TEA

 S3 yu3 yd 8 TEn
(32,53  18,11    5,32)
(60,31  45,44    5,55)
(70,52  77,82  10,18)
(25,23  45,15  14,00)
(  8,51  20,24  16,28)
(  8,83  14,56  31,55)
(11,92    9,35  48,79)
(16,15    8,47  30,90)
 TEA

 S4 yu3 yd 8 TEn
(0,5813  0,3236)
(0,5419  0,4083)
(0,4449  0,4909)
(0,2990  0,5351)
(0,1890  0,4495)
(0,1607  0,2650)
(0,1701  0,1335)
(0,2909  0,1526)
 TEA

showpage
grestore
} for %output showpage
%%Trailer