%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/DEQ3/DEQ30-2 %%BoundingBox: 70 85 245 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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/DEQ3/DEQ3.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:2022110112000) /ModDate (D:20221101112000) /DOCINFO pdfmark01 [ /View [ /Fit ] /DOcviEW pdfmark01 %END PDFDE011 % 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 /TW {100 /Times-ISOL1 FS} bind 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 /TIW {100 /TimesI-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 /TBW {100 /TimesB-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 /TBIW {100 /TimesBI-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 /SW {100 /Symbol 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 /RW {100 /Times-Roman 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 /RIW {100 /Times-Italic 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 /RBW {100 /Times-Bold 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 /RBIW {100 /Times-BoldItalic 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 /cvishow {cvi 6 string cvs show ( ) 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 %%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 4 /Times-ISOL1 FS 74 86 moveto (DEQ30-2N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 6000 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 %***************************************************************** /ix0 0030 def /iyd 0130 def %line distance /iyds 0015 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub 20 sub moveto TBL (CIE ) show TBIL (Y ) show TBL (and lightness ) showea (und Helligkeit ) showde TBIL (L* ) show TBL (for surface colours and for emissive display colours) showea (f\374r K\366rperfarben und emitierende Displayfarben ) showde 20 setlinewidth 0 yhoe iyd 1 mul sub 50 sub moveto 5400 0 rlineto stroke %********************************************************* %i 0 1 2 3 4 5 6 7 8 9 10 /ixd [0500 1000 1500 2000 2500 3000 3500 4000 4500 5000 5500] def %j 0 1 2 3 4 5 6 7 8 /jyd 9 array def 0 1 8 {/j exch def %j=0,8 jyd j 430 j mul put } for %j=0,8 % 0 1 2 3 4 5 6 7 8 9 /texti0 [(0) (1) (2) (3) (4) (..) (9) (10) (15) (20)] def % 0 1 2 3 4 5 6 7 8 9 /texti1 [(0) (10) (20) (30) (40) (..) (90) (100) (150) (200)] def % 0 1 2 3 4 5 6 7 8 9 /texti2 [(0) (1) (4) (9) (16) (..) (81) (100) (225) (400)] def % 0 1 2 3 4 5 6 7 8 9 /texti3 [() () (3,6) () (18) () () (90) (225) (400)] def % 0 1 2 3 4 5 6 7 8 9 /texti4 [() () (1,8) () (18) () () (180) (225) (400)] def % 0 1 2 3 4 5 6 7 8 9 /texti5 [() () (4,8) () (18) () () (151) (185) (353)] def %i 0 1 2 3 4 5 6 7 8 9 /Yi [0 1 4 9 16 25 81 100 225 400] def /L*CIEi6 10 array def /L*TUBi7 10 array def 1 1 9 {/i exch def %i=0,9 L*CIEi6 i Yi i get 100 div 0.3333 exp 116 mul 16 sub put L*TUBi7 i Yi i get 18 div log 5 log div 40 mul put } for %i=0,9 /yhod yhoe 200 sub def /ixd1 ix0 500 add def /iyd1 yhod iyd 1 mul sub def ix0 iyd1 jyd 0 get sub iyd sub moveto TBV (step ) showea (Stufe ) showde ix0 iyd1 jyd 1 get sub iyd sub moveto TBIV (L*) show TBW 0 -50 rmoveto (w) show 0 50 rmoveto ix0 iyd1 jyd 2 get sub iyd sub moveto TBIV (Y) show TBW 0 -50 rmoveto (1) show 0 50 rmoveto ix0 iyd1 jyd 3 get sub iyd sub moveto TBIV 0 1 0 setrgbcolor (Y) show TBW 0 -50 rmoveto (2) show 0 50 rmoveto 0 setgray ix0 iyd1 jyd 4 get sub iyd sub moveto TBIV 1 0 0 setrgbcolor (Y) show TBW 0 -50 rmoveto (3) show 0 50 rmoveto 0 setgray ix0 iyd1 jyd 5 get sub iyd sub moveto 0 0 1 setrgbcolor (Y) show TBW 0 -50 rmoveto (4) show 0 50 rmoveto TBV 0 0 1 setrgbcolor (=18\050) show TBIV (Y) show TBW 0 -50 rmoveto (3) show 0 50 rmoveto TBV (+4\051/22) show 0 setgray ix0 iyd1 jyd 6 get sub iyd sub moveto TBIV (L*) show TBW -20 -50 rmoveto (CIE) show 0 50 rmoveto ix0 iyd1 jyd 7 get sub iyd sub moveto TBIV (L*) show TBW -20 -50 rmoveto (TUB) show 0 50 rmoveto ix0 iyd1 jyd 8 get sub iyd sub moveto TBV (50+) show TBIV (L*) show TBW -20 -50 rmoveto (TUB) show 0 50 rmoveto 0 1 08 {/j exch def %j=0,8 0 1 09 {/i exch def %i=0,10 TBV /iyd10 iyd1 jyd j get sub def j 5 le {%j<=5 ixd1 ixd 7 get add 500 add iyd10 moveto (lighter samples) showea (hellere Stufen) showde } if %j<=5 j 6 ge {%j>=6 ixd1 ixd 5 get add 700 add iyd10 150 add moveto (diffuse) showea (diffus) showde ixd1 ixd 8 get add 480 add iyd10 150 add moveto (peak) showea (Spitzen\255) showde ixd1 ixd 5 get add 700 add iyd10 030 add moveto (white) showea (Wei\337) showde ixd1 ixd 8 get add 480 add iyd10 030 add moveto (white) showea (Wei\337) showde } if %j>=6 j 2 le {%j<=2 j 1 eq {ix0 iyd10 50 add moveto TBIV (L*) show TBW -20 -50 rmoveto (w) show 0 50 rmoveto TBV (=100\050) show TBIV (Y) show TBV (/100\051) show TBW 0 30 rmoveto (1/2) show 0 -30 rmoveto TBV } if ixd1 ixd 2 get add 250 add iyd10 50 add moveto (extrapolated surface\255colour range) showea (extrapolierter K\366rperfarbenbereich) showde ixd1 ixd 0 get add 30 add iyd10 moveto ixd1 ixd 7 get add 50 add iyd10 lineto stroke } if %j<=2 j 3 eq {%j=3 ixd1 ixd 2 get add 150 sub iyd10 50 add moveto (black real matte surface\255colours white) showea (Schwarz Reale matte K\366rperfarben Wei\337) showde ixd1 ixd 2 get add iyd10 moveto ixd1 ixd 7 get add 150 sub iyd10 lineto stroke } if %j=3 j 4 eq {%j=4 ixd1 ixd 2 get add 250 sub 150 sub iyd10 50 add moveto (black intended emissive display colours without reflection white) showea /TBVde {110 /TimesB-ISOL1 FS} bind def TBVde (Schwarz angestrebte emitierende Displayfarben ohne Reflexion Wei\337) showde TBV ixd1 ixd 2 get add 250 sub iyd10 moveto ixd1 ixd 7 get add 300 add iyd10 lineto stroke } if %j=4 j 5 eq {%j=5 ixd1 ixd 2 get add 100 add 100 sub iyd10 50 add moveto (black emissive display colours with 4% reflection white) showea TBVde (Schwarz emitierende Displayfarben mit 4% Reflexion Wei\337) showde TBV ixd1 ixd 2 get add 100 add iyd10 moveto ixd1 ixd 7 get add 250 add iyd10 lineto stroke } if %j=5 j 6 ge {%j>=6 j 6 eq {ix0 iyd10 50 add moveto TBIV (L*) show TBW -20 -50 rmoveto (CIE) show 0 50 rmoveto TBV (=116\050) show TBIV (Y) show TBV (/100\051) show TBW 0 30 rmoveto (1/3) show 0 -30 rmoveto TBV (\25516 \050) show TBIV (Y) show TBV (>0,9\051) show } if j 7 eq {ix0 iyd10 50 add moveto TBIV (L*) show TBW -20 -50 rmoveto (TUB) show 0 50 rmoveto TBV (=40log\050) show TBIV (Y) show TBV (/18\051) show TBV (/log5) show } if ixd1 ixd 2 get add 250 add iyd10 50 add moveto (extrapolated surface\255colour range) showea (extrapolierter K\366rperfarbenbereich) showde ixd1 ixd 0 get add 30 add iyd10 moveto ixd1 ixd 7 get add 50 add iyd10 lineto stroke } if %j>=6 ixd1 ixd i get add j 3 eq {%j=3 i 2 eq {070 sub} if i 4 eq {150 add} if i 7 eq {200 sub} if } if %j=3 j 4 eq {%j=4 i 2 eq {300 sub} if i 4 eq {150 add} if i 7 eq {250 add} if } if %j=4 j 5 eq {%j=5 i 2 eq {050 add} if i 4 eq {150 add} if i 7 eq {200 add} if } if %j=5 iyd1 jyd j get sub iyd sub moveto j 0 eq {texti0 i get show} if j 1 eq {texti1 i get show} if j 2 eq {texti2 i get show} if j 3 eq {0 1 0 setrgbcolor texti3 i get show 0 setgray} if j 4 eq {1 0 0 setrgbcolor texti4 i get show 0 setgray} if j 5 eq {0 0 1 setrgbcolor texti5 i get show 0 setgray} if j 6 eq {%j=6 i 0 eq {(0) show} if i 1 ge {L*CIEi6 i get cvishow} if } if %j=6 j 7 eq {%j=7 i 0 eq {(-) show} if i 1 ge {L*TUBi7 i get cvishow} if } if %j=7 j 8 eq {%j=8 i 0 eq {(-) show} if i 1 ge {L*TUBi7 i get 50 add cvishow} if } if %j=8 %special j 6 eq {%j=6 L*CIE 0 1 0 setrgbcolor i 2 eq {ixd1 ixd i get add 130 sub iyd1 jyd j get sub iyd sub moveto 3.6 100 div 0.3333 exp 116 mul 16 sub cvishow } if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 100 div 0.3333 exp 116 mul 16 sub 0.5 add cvishow %round } if i 7 eq {ixd1 ixd i get add 200 sub iyd1 jyd j get sub iyd sub moveto 90 100 div 0.3333 exp 116 mul 16 sub cvishow } if 0 setgray 1 0 0 setrgbcolor i 2 eq {ixd1 ixd i get add 300 sub iyd1 jyd j get sub iyd sub moveto 1.8 100 div 0.3333 exp 116 mul 16 sub cvishow } if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 100 div 0.3333 exp 116 mul 16 sub cvishow } if i 7 eq {ixd1 ixd i get add 250 add iyd1 jyd j get sub iyd sub moveto 180 100 div 0.3333 exp 116 mul 16 sub cvishow } if 0 setgray ixd1 ixd i get add } if %j=6 j 7 eq {%j=7 L*TUB 0 1 0 setrgbcolor i 2 eq {ixd1 ixd i get add 150 sub 50 sub iyd1 jyd j get sub iyd sub moveto 3.6 18 div log 5 log div 40 mul cvishow} if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 18 div log 5 log div 40 mul cvishow} if i 7 eq {ixd1 ixd i get add 200 sub iyd1 jyd j get sub iyd sub moveto 90 18 div log 5 log div 40 mul cvishow} if 0 setgray 1 0 0 setrgbcolor i 2 eq {ixd1 ixd i get add 300 sub 50 sub iyd1 jyd j get sub iyd sub moveto 1.8 18 div log 5 log div 40 mul cvishow} if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 18 div log 5 log div 40 mul cvishow} if i 7 eq {ixd1 ixd i get add 250 add iyd1 jyd j get sub iyd sub moveto 180 18 div log 5 log div 40 mul cvishow} if 0 setgray } if %j=7 j 8 eq {%j=8 50+L*TUB 0 1 0 setrgbcolor i 2 eq {ixd1 ixd i get add 150 sub iyd1 jyd j get sub iyd sub moveto 3.6 18 div log 5 log div 40 mul 50 add cvishow} if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 18 div log 5 log div 40 mul 50 add cvishow} if i 7 eq {ixd1 ixd i get add 200 sub iyd1 jyd j get sub iyd sub moveto 90 18 div log 5 log div 40 mul 50 add cvishow} if 0 setgray 1 0 0 setrgbcolor i 2 eq {ixd1 ixd i get add 300 sub iyd1 jyd j get sub iyd sub moveto 1.8 18 div log 5 log div 40 mul 50 add cvishow} if i 4 eq {ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub moveto 18 18 div log 5 log div 40 mul 50 add cvishow} if i 7 eq {ixd1 ixd i get add 250 add iyd1 jyd j get sub iyd sub moveto 180 18 div log 5 log div 40 mul 50 add cvishow} if 0 setgray } if %j=8 } for %i=0,10 } for %j=0,8 /i 1 def /j 5 def 1 0 0 setrgbcolor ixd1 ixd i get add 050 add iyd1 jyd j get sub iyd sub 050 sub moveto 0800 0 rlineto 0 1250 rlineto -0800 0 rlineto closepath stroke 0 setgray /i 6 def /j 6 def 1 0 0 setrgbcolor ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub 050 sub moveto 1780 0 rlineto 0 450 rlineto -1780 0 rlineto closepath stroke 0 setgray /i 6 def /j 8 def 1 0 0 setrgbcolor ixd1 ixd i get add 150 add iyd1 jyd j get sub iyd sub 050 sub moveto 1780 0 rlineto 0 450 rlineto -1780 0 rlineto closepath stroke 0 setgray %***************************************************************** grestore %end because of clip showpage grestore %} for %output with langind end %%Trailer