%!PS-Adobe-3.0 EPSF-3.0 BGM11-7N %%BoundingBox: 70 85 421 577 %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: farbe.li.tu-berlin.de/BGM1/BGM1.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2022030112000) /ModDate (D:2022030112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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 /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-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-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 /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %********************************************************* %********************************************************* /proz_paramV {%proz_paramV %paramV not used for xchart4=0,1 %paramV used for xchart4=2 to 7 xchart4 2 eq xchart4 3 eq or {/yparam 0850 def} {/yparam 3850 def} ifelse /x0p 4600 def /y0d 200 def x0p yparam 0 y0d mul sub moveto TBL (Parameter:) show x0p yparam 1 y0d mul sub moveto TBIL (Y) show xcol10_BL TBL ( & Name) show x0p yparam y0d 2 mul sub moveto TBL (Illuminant ) showea (Lichtart ) showde TELi xchartl get show x0p yparam y0d 3 mul sub moveto TBIL (Y) show TBV 0 -60 rmoveto (W) show 0 60 rmoveto xcol10KBV TBL (=) show ynorW1 100 mul cvishow0 TBIL (, Y) show TBV 0 -60 rmoveto (N) show 0 60 rmoveto xcol10KBV TBL (=) show ynorN1 100 mul cvishow0 /index2_7 {%index2_7 xchart4 2 eq xchart4 3 eq or xchart4 7 eq or {0 -50 rmoveto TBV (2) show 0 50 rmoveto xcol10KBV } if xchart4 4 eq {0 -50 rmoveto TBV () show 0 50 rmoveto xcol10_BV } if xchart4 5 eq xchart4 6 eq or {0 -50 rmoveto TBV (1) show 0 50 rmoveto xcol10KBV } if } bind def %index2_7 /index2_7n {%index2_7n xchart4 2 eq xchart4 3 eq or xchart4 7 eq or {0 -50 rmoveto TBV (2,n) show 0 50 rmoveto xcol10KBV } if xchart4 4 eq {0 -50 rmoveto TBV (n) show 0 50 rmoveto xcol10_BV } if xchart4 5 eq xchart4 6 eq or {0 -50 rmoveto TBV (1,n) show 0 50 rmoveto xcol10KBV } if } bind def %index2_7n /x0p 0050 def /y0p 3850 def /y0d 200 def x0p y0p y0d 0 mul sub moveto TBIL (XYZ) show 0 -50 rmoveto TBV (W) show 0 50 rmoveto xcol10KBV TBL (=) show XW cvsshow2 (, ) show YW cvsshow2 (, ) show ZW cvsshow2 x0p y0p y0d 1 mul sub moveto TBIL (A) show index2_7 TBL ( = 2,5 \050) show TBIL (a) show index2_7 TBL ( - ) show TBIL (a) show index2_7n TBL (\051 ) show TBIL (Y) show xcol10_BV x0p y0p y0d 2 mul sub moveto TBIL (B) show index2_7 TBL ( = 2,5 ) show TBIL (B) show 0 -50 rmoveto TBV (c) show 0 50 rmoveto TBL ( \050) show TBIL (b) show index2_7 TBL ( - ) show TBIL (b) show index2_7n TBL (\051 ) show TBIL (Y) show xcol10_BV x0p y0p y0d 3 mul sub moveto TBIL (a) show index2_7 TBL ( = ) show TBIL (a) show 0 -50 rmoveto TBV (20) show 0 50 rmoveto TBL ( [ ) show TBIL (\050 x) show xcol10_BV TBL ( - ) show TBIL (x) show 0 -50 rmoveto TBV (c) show 0 50 rmoveto TBIL ( \051 / y) show xcol10_BV TBL (]) show x0p y0p y0d 4 mul sub moveto TBIL (b) show index2_7 TBL ( = ) show TBIL (b) show 0 -50 rmoveto TBV (20) show 0 50 rmoveto TBL ( [) show TBIL ( z) show xcol10_BV TBIL ( / y) show xcol10_BV TBL (]) show x0p y0p y0d 5 mul sub moveto TBIL (a) show 0 -50 rmoveto TBV (20) show 0 50 rmoveto TBL ( = 1, ) show TBIL (b) show 0 -50 rmoveto TBV (20) show 0 50 rmoveto TBL ( = -0,4) show x0p y0p y0d 6 mul sub moveto TBIL (x) show 0 -50 rmoveto TBV (c) show 0 50 rmoveto TBL ( = ) show xct show (, ) show TBIL (B) show 0 -50 rmoveto TBV (c) show 0 50 rmoveto TBL ( = ) show Bct show x0p y0p y0d 7 mul sub moveto TBIL (C) show TBV 0 -50 rmoveto (AB) show 0 50 rmoveto index2_7 TBL (=[) show TBIL (A) show index2_7 TBV -20 60 rmoveto (2) show 0 -60 rmoveto TBL (+) show TBIL (B) show index2_7 TBV -20 60 rmoveto (2) show 0 -60 rmoveto TBL (]) show TBV 0 60 rmoveto (1/2) show 0 -60 rmoveto %********************************************** /y0p y0p y0d 8 mul sub def /y0d 220 def 0 setgray x0p y0p y0d 0 mul sub moveto TBL (6 ) show TBIL (Ostwald) show TBL (\255Farben (o)) showde %0BGM11-7 02581 ( colours (o)) showen %1BGM11-7 02581 ( colores (o)) showes %2BGM11-7 02581 ( couleurs (o)) showfr %3BGM11-7 02581 ( colori (o)) showit %4BGM11-7 02581 ( colours (o)) showjp %5BGM11-7 02581 x0p y0p y0d 1 mul sub moveto (von maximalem (m)) showde %0BGM11-7 03581 (of maximum (m)) showen %1BGM11-7 03581 (de m\341ximo (m)) showes %2BGM11-7 03581 (de la maximum (m)) showfr %3BGM11-7 03581 (di massimo (m)) showit %4BGM11-7 03581 (of maximum (m)) showjp %5BGM11-7 03581 TBIL ( C) show TBV 0 -60 rmoveto (AB) show 0 60 rmoveto xcol10KBV TBL ( in) showen xchart4 3 ge {( im) showde} if x0p y0p y0d 2 mul sub moveto xchart4 0 eq xchart4 1 eq or {%xchart4=0,1 TBL (in der Normfarbtafel) showde %0BGM11-7 04581 (chromaticity diagram) showen %1BGM11-7 04581 (en el diagrama de chromaticidad) showes %2BGM11-7 04581 (dans le diagramme de chromaticit\351) showfr %3BGM11-7 04581 (nel diagramma di cromaticit\340) showit %4BGM11-7 04581 (the chromaticity diagram) showjp %5BGM11-7 04581 TBL ( \050) show TBIL (x) show xcol10_BV TBIL (, y) show xcol10_BV TBL (\051) show } if %xchart4=0,1 xchart4 2 eq xchart4 3 eq or {%xchart4=2,3 TBL (linearen Farbenraum ) showde %0BGM11-7 06581 (linear colour space ) showea %1BGM11-7 06581 TBL (\050) show TBIL (C) show TBV 0 -50 rmoveto (AB,2) show 0 50 rmoveto xcol10KBV TBIL (, Y) show xcol10_BV TBL (\051) show } if %xchart4=2,3 xchart4 4 eq xchart4 5 eq or {%xchart4=4,5 TBL (Buntwertdiagramm) showde %0BGM11-7 08581 (chromatic value diagram) showen %1BGM11-7 08581 (en el diagrama valor crom\341tico) showes %2BGM11-7 08581 (dans la valeur chromatique le diagramme) showfr %3BGM11-7 08581 (nel diagramma di valore cromatico) showit %4BGM11-7 08581 (chromatic value diagram) showjp %5BGM11-7 08581 TBL ( \050) show TBIL (A) show xcol10_BV TBL (, ) show TBIL (B) show xcol10_BV TBL (\051) show } if %xchart4=4,5 xchart4 6 eq {%xchart4=6 TBL (Buntwertdiagram) showde %0BGM11-7 10581 (chromatic value diagram) showen %1BGM11-7 10581 (en el diagrama croma) showes %2BGM11-7 10581 (dans le diagramme de chroma) showfr %3BGM11-7 10581 (nel diagramma di chroma) showit %4BGM11-7 10581 (chromactic value diagram) showjp %5BGM11-7 10581 TBL ( \050) show TBIL (A) show 0 -50 rmoveto TBV (1) show 0 50 rmoveto xcol10KBV TBL (, ) show TBIL (B) show 0 -50 rmoveto TBV (1) show 0 50 rmoveto xcol10KBV TBL (\051) show } if %xchart4=6 xchart4 7 eq {%xchart4=7 TBL (Buntwertdiagram) showde %0BGM11-7 11581 (chromatic value diagram) showen %1BGM11-7 11581 (en el diagrama croma) showes %2BGM11-7 11581 (dans le diagramme de chroma) showfr %3BGM11-7 11581 (nel diagramma di chroma) showit %4BGM11-7 11581 (chromatic value diagram) showjp %5BGM11-7 11581 TBL ( \050) show TBIL (A) show 0 -50 rmoveto TBV (2) show 0 50 rmoveto xcol10KBV TBL (, ) show TBIL (B) show 0 -50 rmoveto TBV (2) show 0 50 rmoveto xcol10KBV TBL (\051) show } if %xchart4=7 x0p y0p y0d 3 mul sub moveto TBL (Illumin. ) showea (Lichtart ) showde TELi xchartl get show TBIL (, Y) show TBV 0 -60 rmoveto (W) show 0 60 rmoveto xcol10KBV TBL (=) show ynorW1 100 mul cvishow0 TBIL (, Y) show TBV 0 -60 rmoveto (N) show 0 60 rmoveto xcol10KBV TBL (=) show ynorN1 100 mul cvishow0 } bind def %proz_paramV %************************************************************* /proz_table {%proz_table /ydt 150 def %output text RYGCBMd and WNd %output header TBV xti 0 get 050 sub ytax ydt add moveto (Name) show xti 1 get 100 add ytax ydt add moveto ( Range) showen (Bereich) showde xti 2 get 100 add ytax ydt add moveto TBIV (X) show TBWd xcol10KBW xti 3 get 100 add ytax ydt add moveto TBIV (Y) show TBWd xcol10KBW xti 4 get 100 add ytax ydt add moveto TBIV (Z) show TBWd xcol10KBW xti 5 get 050 add ytax ydt add moveto TBIV (x) show TBWd xcol10KBW xti 6 get 050 add ytax ydt add moveto TBIV (y) show TBWd xcol10KBW xti 7 get ytax ydt add moveto SV (l) show TBWd xti 8 get ytax ydt add moveto SV (l) show TBWc %output data 0 1 8 {/jp exch def %jp=0,8 %6 RYGCBM + 3 WZN TV /ytaxa ytax ydt jp mul sub def xti 0 get ytaxa moveto TBV colnamei jp get show TBW 0 -50 rmoveto (d) show 0 50 rmoveto TV xti 1 get ytaxa moveto jp 0 eq {DOW1j 0 get 0.5 add cvishow0 (_775) show} if %rounded R jp 1 eq {DOW1j 1 get 0.5 add cvishow0 (_775) show} if %rounded Y jp 2 eq {DOW1j 1 get 0.5 add cvishow0 (_) show %rounded B DOW1j 0 get 0.5 add cvishow0 } if %+roundet R jp 3 eq {(380_) show DOW1j 0 get 0.5 add cvishow0} if %rounded C jp 4 eq {(380_) show DOW1j 1 get 0.5 add cvishow0} if %rounded B jp 5 eq {DOW1j 0 get 0.5 add cvishow0 (_) show %rounded R DOW1j 1 get 0.5 add cvishow0 } if %+rounded B jp 6 eq {(380_775) show} if jp 7 eq {(380_775) show} if jp 8 eq {(380_775) show} if xti 2 get ytaxa moveto colXi jp get cvsshow2 xti 3 get ytaxa moveto colYi jp get cvsshow2 xti 4 get ytaxa moveto colZi jp get cvsshow2 /SUM colXi jp get colYi jp get add colZi jp get add 0.0001 add def colXAi jp colXi jp get SUM div put colYAi jp colYi jp get SUM div put colZAi jp colZi jp get SUM div put xti 5 get ytaxa moveto colXAi jp get cvsshow4 xti 6 get ytaxa moveto colYAi jp get cvsshow4 jp 6 eq {xti 7 get ytaxa moveto ( ) show ynorW1 100 mul cvishow0 (%) show TV} if jp 7 eq {xti 7 get ytaxa moveto ( ) show ynorN1 100 mul cvishow0 (%) show TV} if jp 8 eq {xti 7 get ytaxa moveto ( ) show ynorZ1 100 mul cvishow0 (%) show TV} if jp 5 le {%jp<=5 RYGCBM /jp2 jp 2 add def %DOW(1/2)j started at jp=2 xti 7 get ytaxa moveto DOW1j jp2 get cvishow DOW1jc jp2 get show xti 8 get ytaxa moveto DOW2j jp2 get cvishow DOW2jc jp2 get show } if %jp<=5 RYGCBM } for %jp=0,8 } bind def %proz_table %**************************************************************************** /proz_axis_scales4_7 {%proz_axis_scales4_7 %axis and scales 0 setgray -1600 0 moveto 3350 0 rlineto stroke 0 -1880 moveto 0 3600 rlineto stroke 1750 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto closepath fill 0 50 sub 1750 100 sub moveto 50 100 rlineto 50 -100 rlineto closepath fill /xt10x 5 array def /yt10x 5 array def /xt10x [(-100) ( ) ( ) ( ) ( 100)] def /yt10x [(-100) () ( ) ( ) ( 100)] def 0 setgray 0 1 4 {/i exch def %i=0,4 x-axis -1600 i 800 mul add -75 moveto 0 150 rlineto stroke -1800 i 800 mul add -250 moveto TBL xt10x i get show i 4 eq {-1600 i 800 mul add 0 moveto xchart4 4 eq { %xchart4=4 -200 150 rmoveto TBIS (A) show xcol10_BL } if %xchart4=4 xchart4 5 eq xchart4 6 eq or { %xchart4=5,6 -300 150 rmoveto TBIS (A) show 00 -50 rmoveto TBL (1) show 0 50 rmoveto xcol10KBL } if %xchart4=5,6 xchart4 7 eq { %xchart4=7 -300 150 rmoveto TBIS (A) show 00 -50 rmoveto TBL (2) show 0 50 rmoveto xcol10KBL } if %xchart4=7 } if } for %i=0,4 0 1 4 {/i exch def %i=0,4 y-axis -75 -1600 i 800 mul add moveto 150 0 rlineto stroke -450 -1650 i 800 mul add 000 sub moveto TBL yt10x i get show i 4 eq {0 -1650 i 800 mul add moveto xchart4 4 eq { %xchart4=4 150 050 rmoveto TBIS (B) show xcol10_BL } if %xchart4=4 xchart4 5 eq xchart4 6 eq or { %xchart4=5,6 150 050 rmoveto TBIS (B) show -20 -50 rmoveto TBL (1) show 0 50 rmoveto xcol10KBL } if %xchart4=5,6 xchart4 7 eq { %xchart4=7 150 050 rmoveto TBIS (B) show -20 -50 rmoveto TBL (2) show 0 50 rmoveto xcol10KBL } if %xchart4=7 } if } for %i=0,4 newpath 0 0 100 0 360 arc stroke -350 -200 moveto TBL TELi xchartl get show } bind def %proz_axis_scales4_7 %*********************************************************** /proz_chromaticity_lines {%BEG proz_chromaticity_lines %available %XEi, YEi, ZEi, XAEi, YAEi, ZAEi, 0..79 for 380 to 775nm for illuminant E %XSi, YSi, ZSi, XASi, YASi, ZASi, 0..79 for 380 to 775nm for illuminant (P/D)xx /DOW 82 array def %special for (x,y) diagrams /DOWZ 17 array def /F02EZ 51 array def %purple data /F10EZ 51 array def %TRISTIMULUS VALUES FOR PURPLE COLORS from 'dmyy'KRPROG.FOR %FOR 02- AND 10-DEGREE-OBSERVER, ILLUMINANT E 0 1 79 {/i exch def %i=0,79 = 380_775 DOW i 380 i 5 mul add put } for %i=0,79 /DOWZ %17 data [700 -495 -500 -505 -510 -515 -520 -525 -530 -535 -540 -545 -550 -555 -560 -565 400] def /F02EZ %3x17 data 700 ... 400 [.01136 .01141 .01158 .01169 .01176 .01182 .01187 .01191 .01195 .01199 .01204 .01210 .01219 .01232 .01254 .01300 .01431 .00410 .00404 .00383 .00369 .00359 .00352 .00346 .00342 .00337 .00331 .00325 .00317 .00306 .00289 .00262 .00205 .00040 .00000 .00118 .00507 .00754 .00930 .01064 .01167 .01256 .01346 .01445 .01562 .01709 .01910 .02210 .02718 .03765 .06785] def /F10EZ %3x17 data 700 ... 400 [.00958 .01015 .01037 .01053 .01065 .01075 .01085 .01096 .01108 .01122 .01139 .01163 .01201 .01268 .01416 .02078 .01911 .00372 .00361 .00357 .00355 .00352 .00351 .00349 .00347 .00345 .00342 .00339 .00335 .00328 .00316 .00289 .00170 .00200 .00000 .00517 .00718 .00858 .00972 .01063 .01150 .01245 .01354 .01478 .01635 .01856 .02194 .02795 .04136 .10106 .08601] def %*************************************************** /XEZi 17 array def %to be defined /YEZi 17 array def /ZEZi 17 array def /XAEZi 17 array def /YAEZi 17 array def /ZAEZi 17 array def /YKSUM 0 def %for E00 0 1 79 {/i exch def %i=0,1,79 /YKSUM YKSUM F_CIEi 80 i add get add def } for %i=0,1,79 0 1 16 {/i exch def %i=0,16 %for illuminant E: S(lamdda=100) XEZi i xcolorl 0 eq {F02EZ} {F10EZ} ifelse 00 i add get YKSUM div 100 mul put YEZi i xcolorl 0 eq {F02EZ} {F10EZ} ifelse 17 i add get YKSUM div 100 mul put ZEZi i xcolorl 0 eq {F02EZ} {F10EZ} ifelse 34 i add get YKSUM div 100 mul put /SUM XEZi i get YEZi i get add ZEZi i get add 0.0001 add def XAEZi i XEZi i get SUM div put YAEZi i YEZi i get SUM div put ZAEZi i ZEZi i get SUM div put } for %i=0,16 /xtrans8 600 def /ytrans8 400 def xtrans8 ytrans8 translate %for scala and graphic 0 0 moveto 4300 0 rlineto stroke 0 0 moveto 0 3500 rlineto stroke %arrows 4300 100 sub 50 moveto 100 -50 rlineto -100 -50 rlineto stroke -50 3400 moveto 50 100 rlineto 50 -100 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten TBS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -100 -300 moveto (0,0) show 700 -300 moveto (0,2) show 1500 -300 moveto (0,4) show 2300 -300 moveto (0,6) show 3100 -300 moveto (0,8) show 3900 -300 moveto (1,0) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -450 -80 moveto (0,0) show -450 720 moveto (0,2) show -450 1520 moveto (0,4) show -450 2320 moveto (0,6) show -450 3120 moveto (0,8) show TBIS 4300 -250 moveto (x) show xcol10_BL -350 3400 moveto (y) show xcol10_BL TBS 2200 150 moveto xcolorl 0 eq {(CIE 1931) show} if xcolorl 1 eq {(CIE 1964) show} if %3950 100 moveto (P) show newpath /fakt 4000 def 4 1 64 {/i exch def %i=4,64 %400..700 XASi i get fakt mul YASi i get fakt mul i 05 eq {moveto} if i 06 ge i 63 le and {lineto} if i 64 eq {lineto closepath stroke} if } for %i=4,64 /xytshift 320 array def %min 4x65 /xytshift [ 0 000 000 (380) %0 0 000 000 (385) %1 0 000 000 (390) %2 0 000 000 (395) %3 1 -170 -170 (400) %4 0 000 000 (405) %5 0 000 000 (410) %6 0 000 000 (415) %7 0 000 000 (420) %8 0 000 000 (425) %9 0 000 000 (430) %10 0 000 000 (435) %11 0 000 000 (440) %12 0 000 000 (445) %13 1 -300 -050 (450) %14 S 0 000 000 (455) %15 0 000 000 (460) %16 1 -300 -030 (465) %17 0 000 000 ( ) %18 1 -300 -030 (475) %19 1 -300 -030 (480) %20 1 -300 -030 (485) %21 1 -330 -050 (490) %22 1 -270 000 (495) %23 M=S 1 -300 -050 (500) %24 1 -300 -050 (505) %25 1 -330 -050 (510) %26 L=S 1 000 000 ( ) %27 1 -100 070 (520) %28 1 060 000 (525) %29 1 000 000 ( ) %30 1 060 000 (535) %31 1 000 000 ( ) %32 M 1 000 000 ( ) %33 1 050 030 (550) %34 1 000 000 ( ) %35 1 050 030 (560) %36 1 000 000 ( ) %37 1 000 060 (570) %38 L 1 000 000 ( ) %39 1 050 030 (580) %40 1 050 050 ( ) %41 1 050 030 (590) %42 1 050 050 ( ) %43 1 050 060 (600) %44 0 000 000 ( ) %45 1 050 080 (610) %46 0 000 000 ( ) %47 1 050 050 (620) %48 0 000 000 ( ) %49 0 000 000 (630) %50 0 000 000 ( ) %51 1 050 030 (640) %52 0 000 000 (645) %53 0 000 000 (650) %54 0 000 000 (655) %55 0 000 000 (660) %56 0 000 000 (665) %57 0 000 000 (670) %58 0 000 000 (675) %59 0 000 000 (680) %60 0 000 000 (685) %61 0 000 000 (690) %62 0 000 000 (695) %63 1 100 -50 (700) %64 ] def %coorection for 510nm, 10 degree %actual: 1 -170 -170 (400) %4 %actual: 1 -050 -050 (510) %26 xcolorl 1 eq {/ix 4 4 mul 1 add def xytshift ix -200 put xytshift ix 1 add -220 put /ix 26 4 mul 1 add def xytshift ix -140 put xytshift ix 1 add 070 put } if 4 1 64 {/i exch def %i=4,1,64 /i40 i 4 mul def xytshift i40 get 1 eq {%xytshift=1 0 0 0 0 setcmykcolor XASi i get fakt mul YASi i get fakt mul 30 0 360 arc fill %400,425,...,700 0 0 0 1 setcmykcolor XASi i get fakt mul YASi i get fakt mul 30 0 360 arc stroke %400,425,...,700 } if %xytshift=1 } for %i=4,1,64 TBIL 4 1 64 {/i exch def %i=4,1,64 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshift i40 get 1 eq {%xytshift=1 XASi i get fakt mul xytshift i41 get add YASi i get fakt mul xytshift i42 get add moveto xytshift i43 get show } if %xytshift=1 } for %i=4,1,64 newpath /xytshiftZ 320 array def %min 4x65 /xytshiftZ [ 0 100 -50 (700) %0 see normal 1 050 -100 (495c,E) %1 1 050 -120 (500c,E) %2 0 050 -100 (505c,E) %3 0 100 -60 (510c,E) %4 0 050 -100 (515c,E) %5 0 050 -100 (520c,E) %6 1 050 -100 (525c,E) %7 0 050 -100 (530c,E) %8 0 050 -100 (535c,E) %9 0 050 -100 (540c,E) %10 0 050 -100 (545c,E) %11 1 050 -100 (550c,E) %12 0 050 -100 (555c,E) %13 0 050 -100 (560c,E) %14 S 0 050 -100 (565c,E) %15 0 -100 -150 (400) %16 see normal ] def 0 1 16 {/i exch def %i=5,5,60 /i40 i 4 mul def xytshiftZ i40 get 1 eq {%xytshiftZ=1 0 0 0 0 setcmykcolor XAEZi i get fakt mul YAEZi i get fakt mul 30 0 360 arc fill %400,405,...,700 0 0 0 1 setcmykcolor XAEZi i get fakt mul YAEZi i get fakt mul 30 0 360 arc stroke %400,405,...,700 } if %xytshiftZ=1 } for %i=0,1,16 TBIL 0 1 16 {/i exch def %i=0,16 /i40 i 4 mul def /i41 i40 1 add def /i42 i40 2 add def /i43 i40 3 add def xytshiftZ i40 get 1 eq {%xytshiftZ=1 XAEZi i get fakt mul xytshiftZ i41 get add YAEZi i get fakt mul xytshiftZ i42 get add moveto xytshiftZ i43 get show } if %xytshiftZ=1 } for %i=0,16 newpath xtrans8 neg ytrans8 neg translate %for scala and grafic } bind def %END proz_chromaticity_lines %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 /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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def}