%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DG76/DG761-3A 20180901 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark12 where {pop} {userdict /pdfmark12 /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/DG76/DG76.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 pdfmark12 [ /View [ /Fit ] /DOCVIEW pdfmark12 %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 (DG761-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 (DG761-) 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 0300 def xtrans0 ytrans0 translate 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 xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 -148 fakt mul 002 fakt mul moveto TBIL (G) show TL (=-\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051) show TL (=-100) show -148 fakt mul 012 fakt mul moveto TBIL (G*) show TL (=-\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051) show (1/2) es8 TL (=-10) show 055 fakt mul 005 fakt mul moveto TBIL (E) show TL (=\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051) show TL (=100) show 055 fakt mul 015 fakt mul moveto TBIL (E*) show TL (=\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051) show (1/2) es8 TL (=10) show } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 -134 fakt mul 002 fakt mul moveto TBIL (G) show TL (=) show TIL (p) show (G) is8 TIL (Y) show (G) is8 TL (=-100) show 055 fakt mul 005 fakt mul moveto TBIL (E) show TL (=) show TIL (p) show (E) is8 TIL (Y) show (E) is8 TL (=100) show } if %xchartl=2,3 %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 005 fakt mul 105 fakt mul moveto TBIL (L*) show TBL (=) show TBIL (Y) show (1/2) eb8 0 0 moveto 0100 fakt mul 0081 fakt mul rlineto -100 fakt mul 0019 fakt mul rlineto stroke 0 0 moveto -100 fakt mul 0032 fakt mul rlineto 0100 fakt mul 0068 fakt mul rlineto stroke %special lines and text data [100] 100 setdash -100 fakt mul 32 fakt mul moveto 100 fakt mul 0 rlineto stroke 0000 fakt mul 81 fakt mul moveto 100 fakt mul 0 rlineto stroke [ ] 0 setdash newpath -130 fakt mul 030 fakt mul moveto TIL (Y) show (G) is8 TL (=10) show 090 fakt mul 090 fakt mul moveto TIL (Y) show (E) is8 TL (=90) show -130 fakt mul 040 fakt mul moveto TIL (L*) show (G) is8 TL (=3,16) show 090 fakt mul 100 fakt mul moveto TIL (L*) show (E) is8 TL (=81) show newpath tfn 0100 fakt mul 0081 fakt mul 60 0 360 arc fill tfy 0100 fakt mul 0081 fakt mul 40 0 360 arc fill newpath tfn -100 fakt mul 0032 fakt mul 60 0 360 arc fill tfv -100 fakt mul 0032 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 0097.4 fakt mul moveto -050 fakt mul 0002.2 fakt mul lineto stroke [100] 100 setdash 25 setlinewidth tfy 0050 fakt mul 0097.5 fakt mul moveto 0000 fakt mul 0070.7 fakt mul lineto stroke tfv 0000 fakt mul 0070.7 fakt mul moveto -050 fakt mul 0022.3 fakt mul lineto stroke [ ] 0 setdash newpath tfn 0050 fakt mul 0097.5 fakt mul 60 0 360 arc fill 1 1 0.5 setrgbcolor 0050 fakt mul 0097.5 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 0040 fakt mul 0106 fakt mul moveto TIL (L*) show (E) is8 TL (=97,5) show -060 fakt mul 0019 fakt mul moveto TIL (L*) show (G) is8 TL (=22,3) show newpath tfn -050 fakt mul 0022.3 fakt mul 60 0 360 arc fill 0 0 0.5 setrgbcolor -050 fakt mul 0022.3 fakt mul 40 0 360 arc fill newpath tfn } if %xchartl=1,3 %x-scale % 0 1 2 3 4 /txw [(-10) ( -5) ( 0) ( 5) ( 10)] def /tyw [( ) (2,5) (5,0) (7,5)] 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 2100 -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 -300 iyt moveto tyw i get show -40 iyl moveto 080 0 rlineto stroke } for %i=0,3 /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*, G* ) show TBL (und ) showde (and ) showea TBIL (L*, ) show TIL (X) show (u) is8 TL (=) show TIL (Y) show (u) is8 TL (=) show TIL (Z) show (u) is8 TL (=50) show /y2 y1 200 sub def ix0 y2 moveto TL (Chromatic and tristimulus Eigen value ) showea (Bunt\255 und Hellbezugs\255Eigenwert ) showde TIL (E* ) show TL (for ) showea (f\374r ) showde TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (>0, ) show TL ( 0) show SL (\243) show TIL (X,Y,Z) show SL (\243) show TL (100) show ix0 y2 iyd 1 mul sub moveto TIL (E*) show TL (=) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TL ([) show TIL (X) show (E) is8 TL (-) show TIL (X) show (u) is8 TL (-\050) show TIL (Y) show (E) is8 TL (-) show TIL (Y) show (u) is8 TL (\051]) show (1/2) es8 TL (=) show TL ([) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (]) show (1/2) es8 TL (=) show TL ([) show TIL (X) show (E) is8 TL (/) show TIL (Y) show (E) is8 TL (-1]) show (1/2) es8 TIL (Y) show (E) is8 (1/2) es8 TL (=) show TL ([) show TIL (x) show (E) is8 TL (/) show TIL (y) show (E) is8 TL (-1]) show (1/2) es8 TIL (Y) show (E) is8 (1/2) es8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (E*) show TL (=[100\050) show TIL (p) show (E) is8 TIL (Y) show (E) is8 TL (\051]) show (1/2) es8 TL (=10) show } if %xchartl=2,3 ix0 y2 iyd 2 mul sub moveto TL (Chromatic and tristimulus Gegen value ) showea (Bunt\255 und Hellbezugs\255Gegenwert ) showde TIL (G* ) show TL (for ) showea (f\374r ) showde TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (<0, ) show TL ( 0) show SL (\243) show TIL (X,Y,Z) show SL (\243) show TL (100) show ix0 y2 iyd 3 mul sub moveto TIL (G*) show TL (=-) show xchartl 0 eq xchartl 1 eq or {%xchartl=0,1 TL ([) show TIL (X) show (E) is8 TL (-) show TIL (X) show (u) is8 TL (-\050) show TIL (Y) show (E) is8 TL (-) show TIL (Y) show (u) is8 TL (\051]) show (1/2) es8 TL (=-) show TL ([) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (]) show (1/2) es8 TL (=-) show TL ([) show TIL (X) show (E) is8 TL (/) show TIL (Y) show (E) is8 TL (-1]) show (1/2) es8 TIL (Y) show (E) is8 (1/2) es8 TL (=-) show TL ([) show TIL (x) show (E) is8 TL (/) show TIL (y) show (E) is8 TL (-1]) show (1/2) es8 TIL (Y) show (E) is8 (1/2) es8 } if %xchartl=0,1 xchartl 2 eq xchartl 3 eq or {%xchartl=2,3 TIL (G*) show TL (=-[100\050) show TIL (p) show (E) is8 TIL (Y) show (E) is8 TL (\051]) show (1/2) es8 TL (=-10) show } if %xchartl=2,3 ix0 y2 iyd 4 mul sub moveto TL (Eigen purity: ) showea (Eigen\255Farbart: ) showde TIL (p*) show (E) is8 TL (=[\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051/) show TIL (Y) show (E) is8 TL (]) show (1/2) es8 TL (=[\050) show TIL (X) show (E) is8 TL (/) show TIL (Y) show (E) is8 TL (-1\051) show TL (]) show (1/2) es8 TL (=[\050) show TIL (x) show (E) is8 TL (/) show TIL (y) show (E) is8 TL (-1\051) show TL (]) show (1/2) es8 ix0 y2 iyd 5 mul sub moveto TL (Gegen purity: ) showea (Gegen\255Farbart: ) showde TIL (p*) show (G) is8 TL (=-[\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051/) show TIL (Y) show (E) is8 TL (]) show (1/2) es8 TL (=-[\050) show TIL (X) show (E) is8 TL (/) show TIL (Y) show (E) is8 TL (-1\051) show TL (]) show (1/2) es8 TL (=-[\050) show TIL (x) show (E) is8 TL (/) show TIL (y) show (E) is8 TL (-1\051) show TL (]) show (1/2) es8 ix0 y2 iyd 6 mul sub moveto TIL (L*) show (E) is8 TL (=) show TIL (Y) show (E) is8 (1/2) es8 TL (, ) show TIL (L*) show (G) is8 TL (=) show TIL (Y) show (G) is8 (1/2) es8 ix0 y2 iyd 7 mul sub moveto TIL (E*) show TL (=) show TIL (p*) show (E) is8 TIL (L*) show (E) is8 ix0 y2 iyd 8 mul sub moveto TIL (G*) show TL (=-) show TIL (p*) show (E) is8 TIL (L*) show (G) is8 xtrans0 neg ytrans0 neg translate } if %xchartl=0 %**************************************************************************** %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 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 -088 fakt mul 002 fakt mul moveto TBIL (G) show TL (=-) show TIL (p) show (E) is8 TIL (Y) show (E) is8 TL (=-50) show 030 fakt mul 005 fakt mul moveto TBIL (E) show TL (=) show TIL (p) show (E) is8 TIL (Y) show (E) is8 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 005 fakt mul 105 fakt mul moveto TBIL (Y) show 0 0 moveto 0050 fakt mul 0090 fakt mul rlineto -050 fakt mul 0010 fakt mul rlineto stroke 0 0 moveto -050 fakt mul 0010 fakt mul rlineto 0050 fakt mul 0090 fakt mul rlineto stroke %special lines and text data [100] 100 setdash -050 fakt mul 10 fakt mul moveto 050 fakt mul 0 rlineto stroke 0000 fakt mul 90 fakt mul moveto 050 fakt mul 0 rlineto stroke [ ] 0 setdash newpath -070 fakt mul 15 fakt mul moveto TIL (Y) show (G) is8 TL (=10) show 042 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 0016 fakt mul 0101 fakt mul moveto TIL (Y) show (E) is8 TL (=95) show -040 fakt mul 0014 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 } if %xchartl=5,7 %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 /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 ix0 y1 200 sub moveto TL (in dem linearen Farbk\388rper von ) showde (in the linear colour space of ) showea TIL (Luther\255Nyberg ) show TL (19xx, siehe xx, Seite xx.) showde (19xx, siehe xx, page xx.) showea /y2 y1 400 sub def ix0 y2 moveto TL (Eigen chromatic value ) showea (Eigen\255Buntwert ) showde xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (E) show TL (=) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (=50) show } if %xchartl=4,5 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (E) show TL (=) show TIL (p) show (E) is8 TIL (Y) show (E) is8 TL (=50) show } if %xchartl=6,7 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 xchartl 4 eq xchartl 5 eq or {%xchartl=4,5 TIL (G) show TL (=-\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051=-50) show } if %xchartl=6,7 xchartl 6 eq xchartl 7 eq or {%xchartl=6,7 TIL (G) show TL (=) show TIL (p) show (G) is8 TIL (Y) show (G) is8 TL (=-50) show } if %xchartl=6,7 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 (E) is8 TL (=\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051/) show TIL (Y) show (E) is8 TL (=50/90=0,55) show ix0 y2 iyd 3 mul sub moveto TL (Gegen purity: ) showea (Gegen\255Farbart: ) showde TIL (p) show (G) is8 TL (=-\050) show TIL (X) show (E) is8 TL (-) show TIL (Y) show (E) is8 TL (\051/) show TIL (Y) show (G) is8 TL (=-50/10=-5) show 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