%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG77/DG770-3A 20180901 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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/DG77/DG77.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2018090112000) /ModDate (D:20180901112000) /DOCINFO pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %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 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH 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 /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 {350 /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 {350 /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 {350 /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 {350 /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 {350 /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 {350 /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 {350 /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 {350 /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 {350 /Times-BoldItalic 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 /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /tfo {1 0 0 setrgbcolor} bind def /tfl {0 1 0 setrgbcolor} bind def /tfv {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 /tfn {0 0 0 setrgbcolor} bind def /tfw {1 1 1 setrgbcolor} bind def /tfu {0.5 0.5 0.5 setrgbcolor} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /isV {TV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /esV {TV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ibV {TBV 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ebV {TBV 0 50 rmoveto show 0 -50 rmoveto TL} bind def /ipV {TV 24 24 rmoveto (\267) show 24 -24 rmoveto TL} bind def /iyV {SV FS 0 -50 rmoveto show 0 50 rmoveto TL} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /sy {350 /Symbol FS show} bind def /is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show TM} bind def /ks2 {280 /TimesI-ISOL1 FS show TM} bind def /bs2 {280 /TimesB-ISOL1 FS show TM} bind def /js2 {280 /TimesBI-ISOL1 FS show TM} bind def /sy2 {280 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def %60% kleiner /ns6 {200 /Times-ISOL1 FS show TS} bind def /ks6 {200 /TimesI-ISOL1 FS show TS} bind def /bs6 {200 /TimesB-ISOL1 FS show TS} bind def /js6 {200 /TimesBI-ISOL1 FS show TS} bind def /ss6 {200 /Symbol FS show TS} bind def /is6 {160 /Times-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /es6 {160 /Times-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ib6 {160 /TimesB-ISOL1 FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /eb6 {160 /TimesB-ISOL1 FS 0 110 rmoveto show 0 -110 rmoveto TS} bind def /ip6 {160 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy6 {160 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def %80% kleiner /ns8 {160 /Times-ISOL1 FS show TS} bind def /ks8 {160 /TimesI-ISOL1 FS show TS} bind def /bs8 {160 /TimesB-ISOL1 FS show TS} bind def /js8 {160 /TimesBI-ISOL1 FS show TS} bind def /ss8 {160 /Symbol FS show TS} bind def /is8 {120 /Times-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /es8 {120 /Times-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ib8 {120 /TimesB-ISOL1 FS 0 -40 rmoveto show 0 40 rmoveto TS} bind def /eb8 {120 /TimesB-ISOL1 FS 0 90 rmoveto show 0 -90 rmoveto TS} bind def /ip8 {120 /Times-ISOL1 FS 24 24 rmoveto (\267) show 24 -24 rmoveto TS} bind def /iy8 {120 /Symbol FS 0 -50 rmoveto show 0 50 rmoveto TS} bind def /cvicvs {cvi 6 string cvs} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} def /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3x {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def /cvsshow4x {/nxx exch def %example nxx=99.1234/99.0123/99.0010/99.0001 nxx 0 lt {(-) show /nxx nxx abs def} {iplus 1 eq {(+) show} if} ifelse nxx 10000 mul cvi /nxi exch def %nxi=991234/990123/990010/990000 nxi 10000 idiv /nxa exch def %nxa=99 nxi nxa 10000 mul sub /nxb exch def %nxb=1234/0123/0010/0001 nxa cvishow (,) show %nxb=99, nxb 1000 ge {nxb cvishow} if %nxb=1234/0123/0010/0001 nxb 100 ge nxb 999 le and {(0) show nxb cvishow} if %nxb=012 nxb 10 ge nxb 99 le and {(00) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(000) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } 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 3 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 % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth %0 0 11600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 11600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz 0 setgray 150 /Times-ISOL1 FS 300 -150 moveto (DG770-3A) show /xchartl xchart def 2 1 2 {/xchartl exch def %xchartl=0,7 20 setlinewidth % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if 0 setgray 150 /Times-ISOL1 FS 4300 -150 moveto (DG770-) show xchartl 1 add cvishow (N) show 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** xchartl 0 eq xchartl 1 eq or xchartl 2 eq or xchartl 3 eq or {%xchartl=0,3 %STOP0 /xtrans0 3000 def /ytrans0 0400 def xtrans0 ytrans0 translate /ix0 050 xtrans0 sub def /iy0 3200 ytrans0 sub def /ixd 0500 def /iyd 0200 def /y1 yhoe ytrans0 sub 150 sub def 0 setgray ix0 y1 moveto TBL (Antagonistische Eigen\255 und Gegen\255Farbwerte ) showde (Antagonistic Eigen and Gegen colour values ) showea TBIL (E ) show TBL (und ) showde (and ) showea TBIL (G ) show TBL (in ) showea (im ) showde TBIL (linear ) showea (linearen ) showde TBL (colour space) showea (Farbenraum) showde ix0 y1 200 sub moveto TL (Farbk\388rper ) showde (colour space ) showea TL (\050) show TIL (C) show (AB) is8 TL (, ) show TIL (Y) show TL (\051, ) show (see Table 3, ) showea (siehe Tab. 3, ) showde tfv RL (http://farbe.li.tu-berlin.de/color/ES15.PDF) showea (http://farbe.li.tu-berlin.de/color/GS15.PDF) showde TL tfn /y2 y1 400 sub def ix0 y2 moveto TL (Eigen chromatic value ) showea (Eigen\255Buntwert ) showde TIL (E) show TL (=) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TIL (C) show (AB,E) is8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (p) show (ru,E) is8 20 0 rmoveto TIL (Y) show (E) is8 } if %xchartl=2,3 TL (=100) show TL (, and Eigen tristimulus value ) showea ( und Eigen\255Hellbezugswert ) showde TIL (Y) show (E) is8 TL (=90) show ix0 y2 iyd 1 mul sub moveto TL (Gegen chromatic value ) showea (Gegen\255Buntwert ) showde TIL (G) show TL (=-) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TIL (C) show (AB,E) is8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (p) show (ru,G) is8 20 0 rmoveto TIL (Y) show (G) is8 } if %xchartl=2,3 TL (=-100) show TL (, and Gegen tristimulus value ) showea ( und Gegen\255Hellbezugswert ) showde TIL (Y) show (G) is8 TL (=10) show ix0 y2 iyd 2 mul sub moveto TL (Eigen purity: ) showea (Eigen\255Farbart: ) showde TIL (p) show (ru,E) is8 TL (=) show TIL (C) show (AB,E) is8 TL (/) show TIL (Y) show (E) is8 TL (=100/90=1,1) show ix0 y2 iyd 3 mul sub moveto TL (Gegen purity: ) showea (Gegen\255Farbart: ) showde TIL (p) show (ru,G) is8 TL (=-) show TIL (C) show (AB,E) is8 TL (/) show TIL (Y) show (G) is8 TL (=-100/10=-10) show %x-scale % 0 1 2 3 4 /txw [(-100) ( -50) ( 0) ( 50) ( 100)] def /tyw [( ) (25) (50) (75)] def TL %!x-Achse: 100 S-Einheiten = 1000 Skalen-Einheiten 0 1 4 {/i exch def %i=0,4 /ixt {-2200 i 1000 mul add} def /ixl {-2000 i 1000 mul add} def ixt -200 moveto txw i get exec show ixl 40 moveto 0 -080 rlineto stroke } for %i=0,4 2200 -200 moveto TBIL (E) show -2400 -200 moveto TBIL (G) show TL %!y-Achse: 100 S-Einheiten = 0500 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /iyt {-50 i 0500 mul add} def /iyl {000 i 0500 mul add} def -250 iyt moveto tyw i get show -40 iyl moveto 080 0 rlineto stroke } for %i=0,3 30 setlinewidth 0 setgray /fakt 20 def %x-axis -105 fakt mul 000 fakt mul moveto 0215 fakt mul 0000 fakt mul rlineto stroke 110 fakt mul 000 fakt mul moveto -004 fakt mul -002 fakt mul rlineto 000 fakt mul 004 fakt mul rlineto closepath stroke -148 fakt mul 002 fakt mul moveto TBIL (G) show TL (=-) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TIL (C) show (AB,E) is8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (p) show (ru,G) is8 20 0 rmoveto TIL (Y) show (G) is8 } if %xchartl=2,3 TL (=-100) show 065 fakt mul 005 fakt mul moveto TBIL (E) show TL (=) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TIL (C) show (AB,E) is8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (p) show (ru,E) is8 20 0 rmoveto TIL (Y) show (E) is8 } if %xchartl=2,3 TL (=100) show %y-axis 0 000 fakt mul moveto 0000 fakt mul 0110 fakt mul rlineto stroke 0 110 fakt mul moveto -002 fakt mul -004 fakt mul rlineto 004 fakt mul 000 fakt mul rlineto closepath stroke %E_border white /E_CabYw 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabYw i2 0 add 000 i 10 mul add put E_CabYw i2 1 add 100 i 01 mul sub put } for %i=0,10 %E_border black /E_CabYn 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabYn i2 0 add 000 i 10 mul add put E_CabYn i2 1 add 000 i 09 mul add put } for %i=0,10 %E_equal chroma90 /E_CabY90 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY90 i2 0 add 000 i 10 mul add put E_CabY90 i2 1 add 090 put } for %i=0,10 %E_equal chroma45 /E_CabY45 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY45 i2 0 add 000 i 05 mul add put E_CabY45 i2 1 add 045 put } for %i=0,10 %E_equal chroma09 /E_CabY09 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY09 i2 0 add 000 i 01 mul add put E_CabY09 i2 1 add 009 put } for %i=0,10 %G_border white /G_CabYw 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabYw i2 0 add 000 i 10 mul sub put G_CabYw i2 1 add 100 i 09 mul sub put } for %i=0,10 %G_border black /G_CabYn 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabYn i2 0 add 100 neg i 10 mul add put G_CabYn i2 1 add 010 i 01 mul sub put } for %i=0,10 %G_equal chroma /G_CabY10 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY10 i2 0 add 100 neg i 10 mul add put G_CabY10 i2 1 add 010 put } for %i=0,10 %G_equal chroma55 /G_CabY55 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY55 i2 0 add 050 neg i 05 mul add put G_CabY55 i2 1 add 055 put } for %i=0,10 %G_equal chroma91 /G_CabY91 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY91 i2 0 add 010 neg i 01 mul add put G_CabY91 i2 1 add 091 put } for %i=0,10 005 fakt mul 105 fakt mul moveto TBIL (Y) show 0 1 9 {/j exch def %j=0,9 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def tfn j 0 eq {/xposi E_CabYw i2 get def /yposi E_CabYw i2 1 add get def} if j 1 eq {/xposi E_CabYn i2 get def /yposi E_CabYn i2 1 add get def} if j 2 eq {/xposi G_CabYw i2 get def /yposi G_CabYw i2 1 add get def} if j 3 eq {/xposi G_CabYn i2 get def /yposi G_CabYn i2 1 add get def} if j 4 eq {tfo /xposi E_CabY90 i2 get def /yposi E_CabY90 i2 1 add get def} if j 5 eq {tfo /xposi E_CabY45 i2 get def /yposi E_CabY45 i2 1 add get def} if j 6 eq {tfo /xposi E_CabY09 i2 get def /yposi E_CabY09 i2 1 add get def} if j 7 eq {tfl /xposi G_CabY10 i2 get def /yposi G_CabY10 i2 1 add get def} if j 8 eq {tfl /xposi G_CabY55 i2 get def /yposi G_CabY55 i2 1 add get def} if j 9 eq {tfl /xposi G_CabY91 i2 get def /yposi G_CabY91 i2 1 add get def} if i 00 eq {xposi fakt mul yposi fakt mul moveto} if i 01 ge {xposi fakt mul yposi fakt mul lineto} if i 10 eq {stroke} if } for %i=0,10 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def j 0 eq {/xposi E_CabYw i2 get def /yposi E_CabYw i2 1 add get def} if j 1 eq {/xposi E_CabYn i2 get def /yposi E_CabYn i2 1 add get def} if j 2 eq {/xposi G_CabYw i2 get def /yposi G_CabYw i2 1 add get def} if j 3 eq {/xposi G_CabYn i2 get def /yposi G_CabYn i2 1 add get def} if j 4 eq {tfo /xposi E_CabY90 i2 get def /yposi E_CabY90 i2 1 add get def} if j 5 eq {tfo /xposi E_CabY45 i2 get def /yposi E_CabY45 i2 1 add get def} if j 6 eq {tfo /xposi E_CabY09 i2 get def /yposi E_CabY09 i2 1 add get def} if j 7 eq {tfl /xposi G_CabY10 i2 get def /yposi G_CabY10 i2 1 add get def} if j 8 eq {tfl /xposi G_CabY55 i2 get def /yposi G_CabY55 i2 1 add get def} if j 9 eq {tfl /xposi G_CabY91 i2 get def /yposi G_CabY91 i2 1 add get def} if xposi fakt mul yposi fakt mul 40 0 360 arc fill } for %i=0,10 } for %j=0,5 tfn %special lines and text data [100] 100 setdash -100 fakt mul 10 fakt mul moveto 200 fakt mul 80 fakt mul rlineto stroke [ ] 0 setdash newpath -148 fakt mul 15 fakt mul moveto TIL (Y) show (G) is8 TL (=100-) show TIL (Y) show (E) is8 TL (=10) show 095 fakt mul 97 fakt mul moveto TIL (Y) show (E) is8 TL (=90) show newpath tfn 0100 fakt mul 0090 fakt mul 60 0 360 arc fill tfy 0100 fakt mul 0090 fakt mul 40 0 360 arc fill newpath tfn -100 fakt mul 0010 fakt mul 60 0 360 arc fill tfv -100 fakt mul 0010 fakt mul 40 0 360 arc fill tfn newpath xchartl 1 eq xchartl 3 eq or {%xchartl=1,3 [ ] 0 setdash 40 setlinewidth tfn 0050 fakt mul 0095 fakt mul moveto -050 fakt mul 0005 fakt mul lineto stroke [100] 100 setdash 25 setlinewidth tfy 0050 fakt mul 0095 fakt mul moveto 0000 fakt mul 0050 fakt mul lineto stroke tfv 0000 fakt mul 0050 fakt mul moveto -050 fakt mul 0005 fakt mul lineto stroke [ ] 0 setdash newpath tfn 0050 fakt mul 0095 fakt mul 60 0 360 arc fill 1 1 0.5 setrgbcolor 0050 fakt mul 0095 fakt mul 40 0 360 arc fill tfn newpath 0040 fakt mul 0101 fakt mul moveto TIL (Y) show (E) is8 TL (=95) show -060 fakt mul 0014 fakt mul moveto TIL (Y) show (G) is8 TL (=5) show newpath tfn -050 fakt mul 0005 fakt mul 60 0 360 arc fill 0 0 0.5 setrgbcolor -050 fakt mul 0005 fakt mul 40 0 360 arc fill newpath tfn 007 fakt mul 048 fakt mul moveto TIL (Y) show (u) is8 TL (=50) show } if %xchartl=1,3 xtrans0 neg ytrans0 neg translate } if %xchartl=0,3 %**************************************************************************** %xchartl 1 eq {%xchartl=1 %STOP1 %} if %xchartl=1 %**************************************************************************** %xchartl 2 eq {%xchartl=2 %STOP2 %} if %xchartl=2 %**************************************************************************** %xchartl 3 eq {%xchartl=3 %STOP3 %} if %xchartl=3 %**************************************************************************** xchartl 4 eq xchartl 5 eq or xchartl 6 eq or xchartl 7 eq or {%xchartl=4,7 %STOP4 /xtrans4 3000 def /ytrans4 0400 def xtrans4 ytrans4 translate /ix0 050 xtrans4 sub def /iy0 3200 ytrans4 sub def /ixd 0500 def /iyd 0200 def /y1 yhoe ytrans4 sub 150 sub def 0 setgray ix0 y1 moveto TBL (Antagonistische Eigen\255 und Gegen\255Farbwerte ) showde (Antagonistic Eigen and Gegen colour values ) showea TBIL (E ) show TBL (und ) showde (and ) showea TBIL (G ) show TBL (in ) showea (im ) showde TBIL (linear ) showea (linearen ) showde TBL (colour space) showea (Farbenraum) showde ix0 y1 200 sub moveto TL (Farbk\388rper ) showde (colour space ) showea TL (\050) show TIL (C) show (AB) is8 TL (, ) show TIL (Y) show TL (\051, ) show (see Table 3, ) showea (siehe Tab. 3, ) showde tfv RL (http://farbe.li.tu-berlin.de/color/ES15.PDF) showea (http://farbe.li.tu-berlin.de/color/GS15.PDF) showde TL tfn /y2 y1 400 sub def ix0 y2 moveto TL (Eigen chromatic value ) showea (Eigen\255Buntwert ) showde TIL (E) show TL (=) show xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (C) show (AB,E) is8 } if %xchartl=4,5 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (p) show (ru,E) is8 20 0 rmoveto TIL (Y) show (E) is8 } if %xchartl=6,7 TL (=050) show TL (, and Eigen tristimulus value ) showea ( und Eigen\255Hellbezugswert ) showde TIL (Y) show (E) is8 TL (=90) show ix0 y2 iyd 1 mul sub moveto TL (Gegen chromatic value ) showea (Gegen\255Buntwert ) showde TIL (G) show TL (=-) show xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (C) show (AB,E) is8 } if %xchartl=4,5 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (p) show (ru,G) is8 20 0 rmoveto TIL (Y) show (G) is8 } if %xchartl=6,7 TL (=-050) show TL (, and Gegen tristimulus value ) showea ( und Gegen\255Hellbezugswert ) showde TIL (Y) show (G) is8 TL (=10) show ix0 y2 iyd 2 mul sub moveto TL (Eigen purity: ) showea (Eigen\255Farbart: ) showde TIL (p) show (ru,E) is8 TL (=) show TIL (C) show (AB,E) is8 TL (/) show TIL (Y) show (E) is8 TL (=50/90=5,5) show ix0 y2 iyd 3 mul sub moveto TL (Gegen purity: ) showea (Gegen\255Farbart: ) showde TIL (p) show (ru,G) is8 TL (=-) show TIL (C) show (AB,E) is8 TL (/) show TIL (Y) show (G) is8 TL (=-050/10=-5) show %x-scale % 0 1 2 3 4 /txw [(-100) ( -50) ( 0) ( 50) ( 100)] def /tyw [( ) (25) (50) (75)] def TL %!x-Achse: 100 S-Einheiten = 1000 Skalen-Einheiten 0 1 4 {/i exch def %i=0,4 /ixt {-2200 i 1000 mul add} def /ixl {-2000 i 1000 mul add} def ixt -200 moveto txw i get exec show ixl 40 moveto 0 -080 rlineto stroke } for %i=0,4 2200 -200 moveto TBIL (E) show -2400 -200 moveto TBIL (G) show TL %!y-Achse: 100 S-Einheiten = 0500 Skalen-Einheiten 0 1 3 {/i exch def %i=0,3 /iyt {-50 i 0500 mul add} def /iyl {000 i 0500 mul add} def -250 iyt moveto tyw i get show -40 iyl moveto 080 0 rlineto stroke } for %i=0,3 30 setlinewidth 0 setgray /fakt 20 def %x-axis -105 fakt mul 000 fakt mul moveto 0215 fakt mul 0000 fakt mul rlineto stroke 110 fakt mul 000 fakt mul moveto -004 fakt mul -002 fakt mul rlineto 000 fakt mul 004 fakt mul rlineto closepath stroke -112 fakt mul 005 fakt mul moveto TBIL (G) show TL (=-) show xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (C) show (AB,E) is8 } if %xchartl=4,5 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (p) show (ru,G) is8 20 0 rmoveto TIL (Y) show (G) is8 } if %xchartl=6,7 TL (=-50) show 065 fakt mul 005 fakt mul moveto TBIL (E) show TL (=) show xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (C) show (AB,E) is8 } if %xchartl=4,5 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (p) show (ru,E) is8 20 0 rmoveto TIL (Y) show (E) is8 } if %xchartl=6,7 TL (=50) show %y-axis 0 000 fakt mul moveto 0000 fakt mul 0110 fakt mul rlineto stroke 0 110 fakt mul moveto -002 fakt mul -004 fakt mul rlineto 004 fakt mul 000 fakt mul rlineto closepath stroke %E_border white /E_CabYw 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabYw i2 0 add 000 i 05 mul add put E_CabYw i2 1 add 100 i 01 mul sub put } for %i=0,10 %E_border black /E_CabYn 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabYn i2 0 add 000 i 05 mul add put E_CabYn i2 1 add 000 i 09 mul add put } for %i=0,10 %E_equal chroma90 /E_CabY90 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY90 i2 0 add 000 i 05 mul add put E_CabY90 i2 1 add 090 put } for %i=0,10 %E_equal chroma45 /E_CabY45 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY45 i2 0 add 000 i 2.5 mul add put E_CabY45 i2 1 add 045 put } for %i=0,10 %E_equal chroma09 /E_CabY09 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def E_CabY09 i2 0 add 000 i 0.5 mul add put E_CabY09 i2 1 add 009 put } for %i=0,10 %G_border white /G_CabYw 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabYw i2 0 add 000 i 05 mul sub put G_CabYw i2 1 add 100 i 09 mul sub put } for %i=0,10 %G_border black /G_CabYn 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabYn i2 0 add 050 neg i 05 mul add put G_CabYn i2 1 add 010 i 01 mul sub put } for %i=0,10 %G_equal chroma /G_CabY10 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY10 i2 0 add 050 neg i 05 mul add put G_CabY10 i2 1 add 010 put } for %i=0,10 %G_equal chroma55 /G_CabY55 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY55 i2 0 add 22.5 neg i 2.5 mul add put G_CabY55 i2 1 add 055 put } for %i=0,10 %G_equal chroma91 /G_CabY91 22 array def 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def G_CabY91 i2 0 add 005 neg i 0.5 mul add put G_CabY91 i2 1 add 091 put } for %i=0,10 005 fakt mul 105 fakt mul moveto TBIL (Y) show 0 1 9 {/j exch def %j=0,9 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def tfn j 0 eq {/xposi E_CabYw i2 get def /yposi E_CabYw i2 1 add get def} if j 1 eq {/xposi E_CabYn i2 get def /yposi E_CabYn i2 1 add get def} if j 2 eq {/xposi G_CabYw i2 get def /yposi G_CabYw i2 1 add get def} if j 3 eq {/xposi G_CabYn i2 get def /yposi G_CabYn i2 1 add get def} if j 4 eq {tfo /xposi E_CabY90 i2 get def /yposi E_CabY90 i2 1 add get def} if j 5 eq {tfo /xposi E_CabY45 i2 get def /yposi E_CabY45 i2 1 add get def} if j 6 eq {tfo /xposi E_CabY09 i2 get def /yposi E_CabY09 i2 1 add get def} if j 7 eq {tfl /xposi G_CabY10 i2 get def /yposi G_CabY10 i2 1 add get def} if j 8 eq {tfl /xposi G_CabY55 i2 get def /yposi G_CabY55 i2 1 add get def} if j 9 eq {tfl /xposi G_CabY91 i2 get def /yposi G_CabY91 i2 1 add get def} if i 00 eq {xposi fakt mul yposi fakt mul moveto} if i 01 ge {xposi fakt mul yposi fakt mul lineto} if i 10 eq {stroke} if } for %i=0,10 0 1 10 {/i exch def %i=0,10 /i2 i 2 mul def j 0 eq {/xposi E_CabYw i2 get def /yposi E_CabYw i2 1 add get def} if j 1 eq {/xposi E_CabYn i2 get def /yposi E_CabYn i2 1 add get def} if j 2 eq {/xposi G_CabYw i2 get def /yposi G_CabYw i2 1 add get def} if j 3 eq {/xposi G_CabYn i2 get def /yposi G_CabYn i2 1 add get def} if j 4 eq {tfo /xposi E_CabY90 i2 get def /yposi E_CabY90 i2 1 add get def} if j 5 eq {tfo /xposi E_CabY45 i2 get def /yposi E_CabY45 i2 1 add get def} if j 6 eq {tfo /xposi E_CabY09 i2 get def /yposi E_CabY09 i2 1 add get def} if j 7 eq {tfl /xposi G_CabY10 i2 get def /yposi G_CabY10 i2 1 add get def} if j 8 eq {tfl /xposi G_CabY55 i2 get def /yposi G_CabY55 i2 1 add get def} if j 9 eq {tfl /xposi G_CabY91 i2 get def /yposi G_CabY91 i2 1 add get def} if xposi fakt mul yposi fakt mul 40 0 360 arc fill } for %i=0,10 } for %j=0,5 tfn %special lines and text data [100] 100 setdash -050 fakt mul 10 fakt mul moveto 100 fakt mul 80 fakt mul rlineto stroke [ ] 0 setdash newpath -112 fakt mul 15 fakt mul moveto TIL (Y) show (G) is8 TL (=100-) show TIL (Y) show (E) is8 TL (=10) show 050 fakt mul 97 fakt mul moveto TIL (Y) show (E) is8 TL (=90) show newpath tfn 0050 fakt mul 0090 fakt mul 60 0 360 arc fill tfy 0050 fakt mul 0090 fakt mul 40 0 360 arc fill newpath tfn -050 fakt mul 0010 fakt mul 60 0 360 arc fill tfv -050 fakt mul 0010 fakt mul 40 0 360 arc fill tfn newpath xchartl 5 eq xchartl 7 eq or {%xchartl=5,7 [ ] 0 setdash 40 setlinewidth tfn 0025 fakt mul 0095 fakt mul moveto -025 fakt mul 0005 fakt mul lineto stroke [100] 100 setdash 25 setlinewidth tfy 0025 fakt mul 0095 fakt mul moveto 0000 fakt mul 0050 fakt mul lineto stroke tfv 0000 fakt mul 0050 fakt mul moveto -025 fakt mul 0005 fakt mul lineto stroke [ ] 0 setdash newpath tfn 0025 fakt mul 0095 fakt mul 60 0 360 arc fill 1 1 0.5 setrgbcolor 0025 fakt mul 0095 fakt mul 40 0 360 arc fill tfn newpath 0020 fakt mul 0101 fakt mul moveto TIL (Y) show (E) is8 TL (=95) show -032 fakt mul -008 fakt mul moveto TIL (Y) show (G) is8 TL (=5) show newpath tfn -025 fakt mul 0005 fakt mul 60 0 360 arc fill 0 0 0.5 setrgbcolor -025 fakt mul 0005 fakt mul 40 0 360 arc fill newpath tfn 005 fakt mul 048 fakt mul moveto TIL (Y) show (u) is8 TL (=50) show } if %xchartl=5,7 xtrans4 neg ytrans4 neg translate } if %xchartl=4,7 %**************************************************************************** %xchartl 5 eq {%xchartl=5 %STOP5 %} if %xchartl=5 %**************************************************************************** %xchartl 6 eq {%xchartl=6 %STOP6 %} if %xchartl=4 %**************************************************************************** %xchartl 7 eq {%xchartl=7 %STOP7 %} if %xchartl=7 %***************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if } for %xchartl=0,7 showpage grestore %%Trailer