%!PS-Adobe-3.0 EPSF-3.0 JG520-7
%%BoundingBox: 70 83 405 336
 
%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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 pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%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-7 ) show

%lanind 1 eq {(Elementary and intermediate colours of) show} if
%lanind 0 eq {(Elementar\255 und Mittelfarben von) show} if
%8 /TimesI-ISOL1 FS
%( Miescher) show
%8 /Times-ISOL1 FS
%lanind 1 eq {(, Munsell notation and dominant wavelength) show} if
%lanind 0 eq {(, Munsell\255Daten und bunttongleiche Wellenl\344nge) show} if

72 90 translate
 
/yhoe  8500 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 7600  moveto xhoe 0 rlineto closepath stroke
 0 6400  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 -350 def %y-Zeilenabstand
/yd2 -700 def
%Spalten
/S1 0050 def
/S2  1500 def
/S21 2800 def
/S22 4100 def
/S23 5400 def
/S3  6700 def
/S4  9400 def

/yhom yhoe 900 sub def
/yhom2 yhoe 1400 sub def
 S2 100 sub yhom moveto 0 yhom neg rlineto closepath stroke
 S21 100 sub yhom2 moveto 0 yhom2 neg rlineto closepath stroke
 S22 100 sub yhom2 moveto 0 yhom2 neg rlineto closepath stroke
 S23 100 sub yhom2 moveto 0 yhom2 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.5 mul sub} bind def
/yu3 {yu0 yz 7.1 mul sub} bind def

0 setgray
 S1 yu1 yd 2 TEb
(Elementary)
(and intermediate colours) TEAxe
(Elementarfarben)
(und Mittelfarben) TEAxg

 S3 yu1 yd 2 TEb
(Munsell Notation (Value 5)) 
(and dominant wavelength) TEAxe
(Munsell\255Bezeichnung (Value 5))
(bunttongleiche Wellenl\344nge) TEAxg

 S1 yu2 yd 1 TEb
(Hue)
TEAxe
(Buntton)
TEAxg

 S2 yu2 yd 1 TEb
(Observer) TEAxe
(Beobachter) TEAxg

/yu2m yu2 yd 1.2 mul add def
S2 100 add yu2m yd 1 TEb
(K.R.)
TEA

S21 100 add yu2m yd 1 TEb
(G.W.)
TEA

S22 100 add yu2m yd 1 TEb
(A.V.)
TEA

S23 100 add yu2m yd 1 TEb
(K.M.)
TEA

 S3 yu2 yd 3 TEb
(mean Munsell value)
(and dominant)
(wavelength) TEAxe
(Munsell\255Mittelwert)
(und bunttongleiche)
(Wellenl\344nge) TEAxg

 S4 yu2 yd 3 TEb
(correction for)
(Bezold\255Br\374cke)
(effect) TEAxe
(Korrektur)
(Bezold\255Br\374cke)
(Effekt) TEAxg

/ydx yd 2.3 mul def
 S1 yu3 175 sub ydx 8 TEn
(Red R)
(R50J)
(Yellow J)
(J50G)
(Green G)
(G50B)
(Blue B)
(B50R)
 TEAxe
(Rot R)
(R50J)
(Gelb J)
(J50G)
(Gr\374n G)
(G50B)
(Blau B)
(B50R)
 TEAxg
 
 S2 200 add yu3 ydx 8 TEn
(6.5R)
(3.75YR)
(7.5Y)
(10GY)
(6.0G)
(7.5BG)
(5.6PB)
(7.5P)
 TEA

 S2 200 add yu3 300 sub ydx 8 TEn
(700)
(592)
(575)
(542)
(502.5)
(488.5)
(472)
(558c)
TEA

 S21 200 add yu3 ydx 8 TEn
(5.8R)
(4.2YR)
(8.5Y)
(8.75GY)
(5.0G)
(8.75BG)
(5.0PB)
(7.5P)
 TEA

 S21 200 add yu3 300 sub ydx 8 TEn
(494c)
(591)
(574)
(550)
(504)
(487.5)
(474.5)
(558c)
 TEA

 S22 200 add yu3 ydx 8 TEn
(6.0R)
(3.5YR)
(10.0Y)
(9.0GY)
(6.0G)
(8.0BG)
(5.1PB)
(7.0P)
 TEA

 S22 200 add yu3 300 sub ydx 8 TEn
(494c)
(593)
(572)
(548)
(502.5)
(488)
(474)
(560c)
 TEA

 S23 200 add yu3 ydx 8 TEn
(5.8R)
(3.7YR)
(10.0Y)
(0.5G)
(6.7G)
(10.0BG)
(5.0PB)
(7.5P)
 TEA

 S23 200 add yu3 300 sub ydx 8 TEn
(494c)
(592)
(572)
(536)
(501.5)
(486.5)
(474.5)
(558c)
 TEA

 S3 200 add yu3 ydx 8 TEn
(6.0R)
(3.7YR)
(8.5Y)
(9.5GY)
(5.9G)
(8.5BG)
(5.3PB)
(7.4P)
 TEA

 S3 200 add yu3 300 sub ydx 8 TEn
(494c)
(592\2611)
(574\2612)
(544\2618)
(503\2612)
(488\2612)
(474\2612)
(559c\2611)
TEA

 S4 200 add yu3 175 sub ydx 8 TEn
(494c)
(590\2612)
(572\2612)
(542\26110)
(503\2612)
(489\2612)
(472\2612)
(559c\2611)
TEA

 S4 1100 add yu3 ydx 1 TEn
(700)
TEA

 S4 1100 add yu3 300 sub ydx 1 TEn
(495c)
TEA

1 1 7 {/i exch def
       0 6400 i ydx mul add  moveto xhoe 0 rlineto closepath stroke
      } for

showpage
grestore
} for %output showpage
%%Trailer