%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/egn1/egn10-8a %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /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/egn1/egn1.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:2023030112000) /ModDate (D:20230301112000) /DOCINFO pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %END PDFDE011 /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 /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfp {1 0 0.5 setrgbcolor} bind def /tft {0 1 0.5 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tFbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} 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 /colrecfi %x y width heigth r g b {setrgbcolor rec fill} bind def /colrecst %x y width heigth r g b {setrgbcolor rec stroke} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def /bshow1o {tfo TBG show tfw} bind def /bshow1l {tfl TBG show tfw} bind def /bshow1v {tfv TBG show tfw} bind def /bshow1c {tfc TBG show tfw} bind def /bshow1m {tfm TBG show tfw} bind def /bshow1y {tfy TBG show tfw} bind def /bshow1n {tfn TBG show tfw} bind def /bshow1w {tfw TBG show} bind def /bkshow1o {tfo TBIG show tfw} bind def /bkshow1l {tfl TBIG show tfw} bind def /bkshow1v {tfv TBIG show tfw} bind def /bkshow1c {tfc TBIG show tfw} bind def /bkshow1m {tfm TBIG show tfw} bind def /bkshow1y {tfy TBIG show tfw} bind def /bkshow1n {tfn TBIG show tfw} bind def /bkshow1w {tfw TBIG show} bind def /bshow2o {tfo TBM show tfw} bind def /bshow2l {tfl TBM show tfw} bind def /bshow2v {tfv TBM show tfw} bind def /bshow2c {tfc TBM show tfw} bind def /bshow2m {tfm TBM show tfw} bind def /bshow2y {tfy TBM show tfw} bind def /bshow2n {tfn TBM show tfw} bind def /bshow2w {tfw TBM show} bind def /bkshow2o {tfo TBIM show tfw} bind def /bkshow2l {tfl TBIM show tfw} bind def /bkshow2v {tfv TBIM show tfw} bind def /bkshow2c {tfc TBIM show tfw} bind def /bkshow2m {tfm TBIM show tfw} bind def /bkshow2y {tfy TBIM show tfw} bind def /bkshow2n {tfn TBIM show tfw} bind def /bkshow2w {tfw TBIM show} bind def /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 10 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 10 string cvs show} def %xchartl 0 1 2 3 4 5 6 7 /Fnamb1 [(T) (B) (N) (N) (T) (T) (T) (T) ] def /Fnamb2 [(P) (Y) (W) (W) (P) (P) (P) (P) ] def /Fname1 [(T) (B) (N) (N) (0,3)(0,3)(0,3)(0,3)] def /Fnamem [(D65)(D65)(D65)(D65)(1,0)(1,0)(1,0)(1,0)] def /Fname2 [(P) (Y) (W) (W) (2,1)(2,1)(2,1)(2,1)] def /rgbcolors_TP %RGB 11 Testfarben Nr. 0 bis 10 [{0.0 1.0 0.5} {0.1 0.9 0.5} {0.2 0.8 0.5} {0.3 0.7 0.5} {0.4 0.6 0.5} {0.5 0.5 0.5} {0.6 0.4 0.5} {0.7 0.3 0.5} {0.8 0.2 0.5} {0.9 0.1 0.5} {1.0 0.0 0.5} ] def /rgbcolors_BY %RGB 11 Testfarben Nr. 0 bis 10 [{0.0 0.0 1.0} {0.1 0.1 0.9} {0.2 0.2 0.8} {0.3 0.3 0.7} {0.4 0.4 0.6} {0.5 0.5 0.5} {0.6 0.6 0.4} {0.7 0.7 0.3} {0.8 0.8 0.2} {0.9 0.9 0.1} {1.0 1.0 0.0} ] def /rgbcolors_NW %RGB 11 Testfarben Nr. 0 bis 10 [{0.0 0.0 0.0} {0.1 0.1 0.1} {0.2 0.2 0.2} {0.3 0.3 0.3} {0.4 0.4 0.4} {0.5 0.5 0.5} {0.6 0.6 0.6} {0.7 0.7 0.7} {0.8 0.8 0.8} {0.9 0.9 0.9} {1.0 1.0 1.0} ] def /epp {TBM 0 60 rmoveto (+) show 0 -60 rmoveto} def /epm {TBM 0 60 rmoveto (-) show 0 -60 rmoveto} def %%EndProlog gsave %lanindL2 START 20000505 /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 /showes {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave 72 90 translate 0.01 MM dup scale /xbtex0 0 def xbtex0 1 eq {%xbtex0=1 0 setgray 20 setlinewidth 0 0 11225 08600 1.0 1.0 1.0 colrecfi %area white grey 0 0 11225 08600 0.0 0.0 0.0 colrecst %frame black 150 /Times-ISOL1 FS 100 -150 moveto (egn10-8a) show } if %xbtex0=1 /xchartl 7 def %4 1 07 {/xchartl exch def %xchartl=4,07 gsave % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 5700 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 5700 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 100 -150 moveto (egn10-) show xchartl 1 add cvishow (A) show %R /xwidth 5400 def /ywidth 4000 def 25 setlinewidth 0.5 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 0 0 xwidth ywidth 0.0 0.0 0.0 colrecst %frame black %************************************************************** %BEG for xchartl=0 to 7 /ix0 500 def /iy0 500 def tfw TBG 050 3725 moveto xchartl 4 le {%xchartl<=4 (gleichabst\344ndige Farbstufung) showde %08210-2 1 (equally spaced colours) showen %18210-2 1 (Colores en espacios equidistantes) showes %28210-2 1 (equally spaced colours) showfr %38210-2 1 (equally spaced colours) showit %48210-2 1 (equally spaced colours) showjp %58210-2 1 } if %xchartl<=3 xchartl 5 eq xchartl 6 eq or {%xchartl=5,6 SG (D) show 20 0 rmoveto TBIG (a) show TBG ( / \050relative chroma ) showen ( / \050relative Buntheit ) showde TBIG (C*) show -30 -60 rmoveto TBM (r) show 0 60 rmoveto TBG (\051) show } if /epp {TBM 0 60 rmoveto (+) show 0 -60 rmoveto} def /epm {TBM 0 60 rmoveto (-) show 0 -60 rmoveto} def xchartl 7 eq {%xchartl=7 TBG (relative sensitivity ) showen (relative Empfindlichkeit ) showde TBIG (R) show epp TBIG (, R) show epm TBIG (, G) show epp TBIG (, G) show epm } if %xchartl=7 xchartl 7 eq {%xchartl=7 %graphic visual processes tfo /ix1 ix0 def /ixm ix0 1760 add def /ix2 ix0 4400 add def /iym iy0 1200 add def /iy01 iym 0600 sub def /iy02 iym 0600 add def /iy11 iym 0900 add def /iy12 iym 0900 sub def tfo ix0 iy01 moveto ixm iym lineto ix2 iy11 lineto stroke tfw ix0 450 sub iy01 100 sub moveto (P) show epm ix2 050 add iy11 100 sub moveto (P) show epp tfl ix0 iy02 moveto ixm iym lineto ix2 iy12 lineto stroke tfw ix0 450 sub iy02 100 sub moveto (T) show epp ix2 050 add iy12 020 sub moveto (T) show epm tfw } if %xchartl=7 30 setlinewidth ix0 60 sub iy0 moveto 4460 0 rlineto stroke ix0 iy0 60 sub moveto 0 3060 rlineto stroke ix0 60 sub iy0 xchartl 3 le {1500}{1200} ifelse add moveto 120 0 rlineto stroke ix0 60 sub iy0 3000 add moveto 120 0 rlineto stroke ix0 xchartl 3 le {2200} {1760} ifelse add iy0 60 sub moveto 0 120 rlineto stroke xchartl 3 eq {ix0 2050 add iy0 100 add moveto tfy (50%) show tfw} if xchartl 4 eq xchartl 5 eq or {ix0 1600 add iy0 100 add moveto tfy (40%) show tfw} if xchartl 7 eq {ix0 1600 add iy0 400 add moveto tfy (40%) show tfw} if ix0 4400 add iy0 60 sub moveto 0 120 rlineto stroke ix0 370 sub iy0 000 add 120 sub moveto (0) show ix0 300 sub iy0 xchartl 3 le {1500}{1200} ifelse add 120 sub moveto (5) show xchartl 3 eq {ix0 100 add iy0 1500 add 120 sub moveto tfy (50%) show tfw} if xchartl 4 eq {ix0 100 add iy0 1200 add 120 sub moveto tfy (40%) show tfw} if ix0 420 sub iy0 3000 add 120 sub moveto (10) show TBG ix0 120 sub iy0 390 sub moveto Fname1 xchartl get show xchartl 3 le {ix0 2200 add 220 sub iy0 390 sub moveto} if xchartl 4 ge {ix0 4400 0.4 mul add 220 sub iy0 390 sub moveto} if Fnamem xchartl get show ix0 4400 add 120 sub iy0 390 sub moveto Fname2 xchartl get show newpath xchartl 3 le {%xchartl<=3 % 0 1 2 3 4 5 6 7 8 9 10 /ixdi [0000 0440 0880 1320 1760 2200 2640 3080 3520 3960 4400] def /iydi [0000 0300 0600 0900 1200 1500 1800 2100 2400 2700 3000] def } if %xchartl<=3 xchartl 4 eq {%xchartl=4 %delta 352 & 528, 300 & 360 /ixdi [0000 0352 0704 1056 1408 1760 2288 2816 3344 3872 4400] def /iydi [0000 0240 0480 0720 0960 1200 1560 1920 2280 2640 3000] def } if %xchartl=4 xchartl 5 eq {%xchartl=5 %delta 352 & 528, 300 & 360 /ixdi [0000 0352 0704 1056 1408 1760 2288 2816 3344 3872 4400] def /iydi [1200 1200 1200 1200 1200 1200 1200 1200 1200 1200 1200] def } if %xchartl=5 xchartl 6 eq {%xchartl=6 /ixdi [0000 0352 0704 1056 1408 1760 2288 2816 3344 3872 4400] def /iydi [1500 1300 1100 0900 0700 0500 0700 0900 1100 1300 1500] def } if %xchartl=6 xchartl 7 eq {%xchartl=7 /ixdi [0000 0352 0704 1056 1408 1760 2288 2816 3344 3872 4400] def /iydi [0150 0150 0150 0150 0150 0150 0150 0150 0150 0150 0150] def } if %xchartl=7 tfp newpath ix0 iy0 moveto 0 1 10 {/i exch def xchartl 0 eq {rgbcolors_TP i get exec setrgbcolor} if xchartl 1 eq {rgbcolors_BY i get exec setrgbcolor} if xchartl 2 eq xchartl 3 eq or {rgbcolors_NW i get exec setrgbcolor} if xchartl 4 ge {rgbcolors_TP i get exec setrgbcolor} if ix0 ixdi i get add iy0 iydi i get add 130 0 360 arc fill newpath } for %schleife i newpath tfw 0660 2250 moveto 1320 0 rlineto 0 1320 rlineto -1320 0 rlineto closepath fill tfn %N 0660 2250 moveto 1320 0 rlineto 0 1320 rlineto -1320 0 rlineto closepath stroke tfz %Z 0825 2420 moveto 0990 0 rlineto 0 0990 rlineto -0990 0 rlineto closepath fill 30 setlinewidth newpath tfw %W 1320 2900 132 0 360 arc stroke /i 5 def newpath ix0 ixdi i get add iy0 iydi i get add 130 0 360 arc stroke 900 2450 moveto tfy (0 ... 10) show tfw TBIG 0860 2800 moveto Fnamb1 xchartl get show 1550 2800 moveto Fnamb2 xchartl get show TBG 0990 3250 moveto newpath /i 0 def xchartl 0 eq {rgbcolors_TP i get exec setrgbcolor} if xchartl 1 eq {rgbcolors_BY i get exec setrgbcolor} if xchartl 2 eq xchartl 3 eq or {rgbcolors_NW i get exec setrgbcolor} if xchartl 4 ge {rgbcolors_TP i get exec setrgbcolor} if 0990 3250 130 0 360 arc fill 1660 3250 moveto newpath /i 10 def xchartl 0 eq {rgbcolors_TP i get exec setrgbcolor} if xchartl 1 eq {rgbcolors_BY i get exec setrgbcolor} if xchartl 2 eq xchartl 3 eq or {rgbcolors_NW i get exec setrgbcolor} if xchartl 4 ge {rgbcolors_TP i get exec setrgbcolor} if 1660 3250 130 0 360 arc fill ix0 3200 add iy0 1700 add xchartl 7 eq {400 sub} if moveto TBG tfy xchartl 5 le {%xchartl<=5 (Stufung) showde %08210-2 2 (scaling) showen %18210-2 2 (Crece) showes %28210-2 2 (scaling) showfr %38210-2 2 (scaling) showit %48210-2 2 (scaling) showjp %58210-2 2 } if %xchartl<=5 xchartl 6 ge {%xchartl>=6 (Schwellen) showde (thresholds) showen (thresholds) showes (thresholds) showfr (thresholds) showit (thresholds) showjp } if %xchartl>=6 xchartl 5 eq {ix0 100 add iy0 0600 add moveto tfy SG (D) show 20 0 rmoveto TBIG (a) show TBG ( = chromaticity difference) showen ( = Farbartdifferenz) showde tfw } if %xchartl=5 xchartl 6 eq {%xchartl=6 ix0 50 add iy0 100 add moveto tfy SG (D) show 20 0 rmoveto TBIG (a) show TBG ( = chromaticity difference) showen ( = Farbartdifferenz) showde tfw } if %xchartl=6 xchartl 6 ge {%xchartl>=6 ix0 1550 add iy0 2800 add moveto tfy TBG (relative chroma:) showen (relative Buntheit:) showde ix0 1700 add iy0 2450 add moveto tfw TBIG (C*) show 0 -60 rmoveto tft TBM (T) show 0 60 rmoveto tfw ( = 1,0) show ix0 1700 add iy0 2100 add moveto TBIG (C*) show 0 -60 rmoveto tfp TBM (P) show 0 60 rmoveto tfw ( = 1,5) show tfw } if %xchartl>=6 xchartl 4 ge {%xchartl>=4 tfw ix0 3200 add iy0 350 sub moveto TBIG (a = x/y) show xchartl 6 le {%xchartl<=6 %no space at BEG tfw ix0 3000 add iy0 100 add moveto TBG xchartl 5 le {(chromaticity) showen} if ( Farbart) showde } if %xchartl<=6 } if %xchartl>=4 %END for xchartl=0 to 7 %************************************************************** % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 5700 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 5700 neg 0250 neg translate} if grestore %} for %xchartl=4,07 showpage grestore %%Trailer