%!PS-Adobe-3.0 EPSF-3.0 DGE11-1N D4:[RR.B9F]B9181-1N.eps 1.4.98/210501 %%BoundingBox: 70 80 403 206 % compare K. Richter: Computergrafik und Farbmetrik: % Farbsysteme, PostScript, geraeteunabhaengige CIE-Farben % VDE-Verlag, Berlin, 1996, ISBN 3-8007-1775-1 mit CD-ROM, % Book with 500 figures in the formats PS and PDF on CD-ROM, % For free download with 288 pages, 2,6MB, A5, in German, see % http://color.li.tu-berlin.de/BUA4BF.PDF % or K. Richter: Colour, Colour Vision, and Elementary Colours % and Colour Information Technology, % in six languages: EN, GE ,FR ,ES, IT, NO, see 76 pages % http://standards.iso.org/iso/9241/306/ed-2/ES15.PDF /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} 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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-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 /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-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 /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-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 /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /08RN {08 /Times-Roman FS} bind def /08RI {08 /Times-Italic FS} bind def /08RB {08 /Times-Bold FS} bind def /08RBI {08 /Times-BoldItalic FS} bind def /08TN {08 /Times-ISOL1 FS} bind def /08TI {08 /TimesI-ISOL1 FS} bind def /08TB {08 /TimesB-ISOL1 FS} bind def /08TBI {08 /TimesBI-ISOL1 FS} bind def /10RN {10 /Times-Roman FS} bind def /10RI {10 /Times-Italic FS} bind def /10RB {10 /Times-Bold FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def /12RN {12 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /12TBI {12 /TimesBI-ISOL1 FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /tyo {1.0 0.0 0.0} bind def %reproduction colours /tyl {0.0 1.0 0.0} bind def /tyv {0.0 0.0 1.0} bind def /tyc {0.0 1.0 1.0} bind def /tym {1.0 0.0 1.0} bind def /tyy {1.0 1.0 0.0} bind def /tyn {0.00} bind def %grey scale /tyd {0.25} bind def /tyz {0.50} bind def /tyh {0.75} bind def /tyw {1.00} bind def /tro {tyo setrgbcolor} bind def /trl {tyl setrgbcolor} bind def /trv {tyv setrgbcolor} bind def /trc {tyc setrgbcolor} bind def /trm {tym setrgbcolor} bind def /try {tyy setrgbcolor} bind def /twn {tyn setgray} bind def /twd {tyd setgray} bind def /twz {tyz setgray} bind def /twh {tyh setgray} bind def /tww {tyw setgray} bind def /twan [0.000 0.067 0.132 0.200 0.267 0.333 0.400 0.467 0.533 0.600 0.667 0.733 0.800 0.867 0.933 1.000 0.000 0.250 0.500 0.750 1.000] def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showea {1 lanind le {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def /lanindm lanindmf def} if /lanind lanind1 def %no loops %******************************************************************* %%EndProlog gsave 8 /Times-ISOL1 FS 72 83 moveto (DGE11-1, ) show %!2 (wrpos:B9181-1N.eps) show (Bild ) showde (Picture ) showen (Fig. ) showes (Fig. ) showfr (Fig. ) showit (Figur ) showjp (D4: ) show 8 /Times-ISOL1 FS (16 visuell gleichabst\344ndige Stufen der Farbreihen ) showde (16 visual equidistant steps of colour series ) showen (16 parliers visuelles \351quidistantes des s\351ries de couleurs) showfr (16 pasos visuales equidistantes de series de colores) showes (16 gradini vicivi equidistanti di serie di colori) showit 8 /TimesI-ISOL1 FS ( W-O, W-L, W-V) show 8 /Times-ISOL1 FS ( und ) showde (, and ) showen ( y ) showes ( et ) showfr ( i ) showit ( og ) showjp 8 /TimesI-ISOL1 FS (W-N) show 8 /Times-ISOL1 FS 72 90 translate 0.01 MM dup scale 20 setlinewidth /tzo3 48 array def /tzl3 48 array def /tzv3 48 array def /tzn3 48 array def 0 1 15 {/nfar exch def /nfar3 nfar 3 mul def tzo3 nfar3 0.0 put tzo3 nfar3 1 add twan nfar get put tzo3 nfar3 2 add twan nfar get put tzl3 nfar3 twan nfar get put tzl3 nfar3 1 add 0.0 put tzl3 nfar3 2 add twan nfar get put tzv3 nfar3 twan nfar get put tzv3 nfar3 1 add twan nfar get put tzv3 nfar3 2 add 0.0 put tzn3 nfar3 twan nfar get put tzn3 nfar3 1 add twan nfar get put tzn3 nfar3 2 add twan nfar get put } for tww 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath fill %twn, see at end %20 setlinewidth %0 0 moveto 11200 0 rlineto 0 4000 rlineto % -11200 0 rlineto closepath stroke /yab -850 def /yat 3950 def 000 yat translate /n* [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)] def /tef [(O) (L) (V) (N)] def twn 40 setlinewidth 1 1 15 {/j exch def %j=1,15 /ix0 j 700 mul def /iy0 yat neg def ix0 iy0 moveto 000 4000 rlineto 000 4000 neg rlineto closepath stroke } for %j=1,15 20 setlinewidth /ixd 700 def /iyd 700 def /x167 ixd 16 mul def 1 1 1 setrgbcolor 0 1 3 {/ncol exch def %ncol=0,3 0 yab ncol 1 add mul moveto x167 0 rlineto 0 iyd rlineto x167 neg 0 rlineto closepath fill } for %ncol=0,3 0 1 3 {/ncol exch def %ncol=0,3 for O, L, V, N 0 ncol eq {/tza3 tzo3 def} if 1 ncol eq {/tza3 tzl3 def} if 2 ncol eq {/tza3 tzv3 def} if 3 ncol eq {/tza3 tzn3 def} if /ixd 700 def /iyd 700 def %ixd,iyd 0 1 15 {/j exch def %j=0,15 /j3 j 3 mul def /ix0 j 700 mul def /iy0 yab ncol 1 add mul def 1 tza3 j3 get sub 1 tza3 j3 1 add get sub 1 tza3 j3 2 add get sub setrgbcolor ix0 iy0 moveto ixd 000 rlineto 000 iyd rlineto ixd neg 000 rlineto closepath fill } for %j=0,15 twn TBIG 11270 yab ncol 1 add mul 100 add moveto tef ncol get show twn TBM ncol 3 eq { %N 0 1 15 {/j exch def /ix0 250 j 700 mul add def /iy0 yab ncol 1 add mul 350 sub def ix0 iy0 moveto n* j get show } for %j } if %N } for %ncol=0,3 for O, L, V, N 000 yat neg translate 20 setlinewidth twn 0 0 moveto 11200 0 rlineto 0 4000 rlineto -11200 0 rlineto closepath stroke grestore showpage %%Trailer