%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/CGA5/CGA50-1 %%BoundingBox: 70 85 226 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/CGA5/CGA5.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:2021080112000) /ModDate (D:20210801112000) /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 /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 %%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 % 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 4 /Times-ISOL1 FS 74 86 moveto (CGA50-1N) show 72 90 translate 0.01 MM dup scale 20 setlinewidth 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 /TVr {10 -30 rmoveto TV (r) show 20 30 rmoveto} bind def /TVu {10 -30 rmoveto TV (u) show 20 30 rmoveto} bind def gsave %start because of clip %***************************************************************** /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 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 moveto TBIL (Weber\255Fechner) show TBL (\255Gesetz in CIE 230:2019 f\374r Schwellen\255Farbdifferenzen ) showde ( law in CIE 230:2019 for threshold colour differences of ) showea ix0 yhoe iyd 2 mul sub moveto TBL (surface colours ) showea (von K\366rperfarben ) showde 20 setlinewidth 0 yhoe iyd 2 mul sub 50 sub moveto 5400 0 rlineto stroke /yhod yhoe 500 sub def ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show TVr TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -30 -30 rmoveto TV (CIELAB) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (r) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 2 mul sub moveto TL (IEC 61966\2552\2551 uses a similar potential function ) showea (IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde TIL (L*) show -30 -30 rmoveto TV (IEC) show 0 30 rmoveto TIL ( = m ) show TIL (L) show TVr 0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto TL (.) show ix0 yhod iyds 3.1 mul sub moveto TL (The ) showea (Das ) showde TIL (Weber\255Fechner) show TL (\255Gesetz ist \344quivalent zur Gleichung: ) showde ( law is equivalent to the equation: ) showea SL (D) show TIL (L) show TVr TL ( = ) show TIL (c) show 20 0 rmoveto TIL (L) show TVr 5100 yhod iyds 3.1 mul sub moveto TL ([1]) show 0 setgray TL ix0 yhod iyds 4.2 mul sub moveto TIL (Integration ) show TL (leads to the logarithmic equation: ) showea (f\374hrt zur logarithmischen Gleichung: ) showde TIL (L*) show TVr TL (=k) show 30 0 rmoveto TL (log\050) show TIL (L) show TVr TL (\051.) show 5100 yhod iyds 4.2 mul sub moveto TL ([2]) show ix0 yhod iyds 5.3 mul sub moveto TIL (Derivation ) showea (Ableitung ) showde TL (for ) showea (f\374r ) showde SL (D) show TIL (L*) show TVr TL (=1 ) show TL (leads to the linear equation: ) showea (f\374hrt zur linearen Gleichung: ) showde TIL (L) show TVr TL (/) show SL (D) show TIL (L) show TVr TL (=k=57.) show 5100 yhod iyds 5.3 mul sub moveto TL ([3]) show ix0 yhod iyds 6.4 mul sub moveto TL (For ) showea (F\374r ) showde %TBIL (adjacent ) showea %(aneinandergrenzende ) showde TL (colours in offices the ) showea (Farben im B\374ro ist der ) showde TBL (standard contrast range ) showea (Normkontrastbereich ) showde TL (is )showea TBL (25:1) show TL (=90:3,6) show (.) showea %************************************************************** /ty00i [(Colour) (Tritimulus)(office) (relative) (CIE) (relative)] def /ty01i [((matte))(value) (luminance) (luminance) (lightness) (lightness)] def /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def %/ty02i [((contrast))(Y) (L) (L) (L*CIELAB) (L*r)]def %/ty03i [((25:1=90:3,6))()([cd/m]) (=L/Lz) (L*1/2,4) (=k*log(Lr))]def /ty02i [((contrast)) (Y) (L) () () ()] def /ty03i [((25:1=90:3,6))()() () () ()] def /iy02i [0 0 0 4 0 4] def /iy03i [0 0 4 4 0 4] def % 0 1 2 3 4 5 /ixi [0030 1000 1800 2800 3800 4600 5400] def % 0 1 2 3 4 5 /ty04i [(White W) (90) (142) (5) (94) (40)] def %/ty05i[((paper)) (=18*5)(=28,2*5) () (=50+44) (=k*log(5))] def /ty05i [((paper)) (=18*5)(=28,2*5) () (=50+44) ()] def /iy04i [0 0 0 0 0 0] def /iy05i [0 0 0 0 0 0] def /ty06i [(Grey Z) (18) (28,2) (1) (50) (0)] def %/ty07i[((paper))() () () () (=k*log(1))] def /ty07i [((paper))() () () () ()] def /iy06i [0 0 0 0 0 0] def /iy07i [0 0 0 0 0 0] def /ty08i [(Black N)(3,6) (5,6) (0,2) (18) (-40)] def %/ty09i[((paper))(=18/5) (28,2/5) () (50-32) (=k*log(0,2))] def /ty09i [((paper))(=18/5) (28,2/5) () (50-32) ()] def /iy08i [0 0 0 0 0 0] def /iy09i [0 0 0 0 0 0] def %************************************************************************** /dy00i [(Farbe) (Norm\255) (B\374ro\255) (relative) (CIE) (relative)] def /dy01i [((matt)) (farbwert) (Leuchtdichte) (Leuchtdichte) (Helligkeit) (Helligkeit)] def %/dy02i [() (Y) (L) (Lr) (L*CIELAB) (Lr*)]def %/dy03i [() () ([cd/m2]) (=L/Lz) (=Lr1/2,4) (=k*log(Lr))]def /dy02i [((Kontrast)) (Y) (L) () () ()] def /dy03i [((25:1=90:3,6))() () () () ()] def % 0 1 2 3 4 5 /dy04i [(Wei\337 W) (90) (142) (5) (94) (40)] def %/dy05i[((Papier)) (=18*5) (=28,2*5) () () (=k*log(5))] def /dy05i [((Papier)) (=18*5) (=28,2*5) () () ()] def /dy06i [(Grau Z) (18) (28,2) (1) (50) (0)] def %/dy07i[((Papier)) () () () () (=k*log(1))] def /dy07i [((Papier)) () () () () ()] def /dy08i [(Schwarz N) (3,6) (5,6) (0,2) (18) (-40)] def %/dy09i[(Papier) (=18/5) (28,2/5) () () (=k*log(0,2))] def /dy09i [(Papier) (=18/5) (28,2/5) () () ()] def %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 def /iyi 20 array def 0 1 9 {/i exch def %i=0,9 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iyi i 2 mul get iyd sub 20 add put } for %i=0,9 /yhod iytab 300 add def 0 setgray ix0 yhod 050 sub moveto TBL (Table 1: ) showea (Tabelle 1: ) showde (CIE tristimulus value ) showea (Normfarbwert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightnesses ) showea ( und Helligkeiten ) showde TBIL (L* ) show 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 0 get iyi 00 get moveto ty00i 0 get showea dy00i 0 get showde ixi 1 get iyi 00 get moveto ty00i 1 get showea dy00i 1 get showde ixi 2 get iyi 00 get moveto ty00i 2 get showea dy00i 2 get showde ixi 3 get iyi 00 get moveto ty00i 3 get showea dy00i 3 get showde ixi 4 get iyi 00 get moveto ty00i 4 get showea dy00i 4 get showde ixi 5 get iyi 00 get moveto ty00i 5 get showea dy00i 5 get showde ixi 0 get iyi 01 get moveto ty01i 0 get showea dy01i 0 get showde ixi 1 get iyi 01 get moveto ty01i 1 get showea dy01i 1 get showde ixi 2 get iyi 01 get moveto ty01i 2 get showea dy01i 2 get showde ixi 3 get iyi 01 get moveto ty01i 3 get showea dy01i 3 get showde ixi 4 get iyi 01 get moveto ty01i 4 get showea dy01i 4 get showde ixi 5 get iyi 01 get moveto ty01i 5 get showea dy01i 5 get showde 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBIL ixi 0 get iyi 02 get moveto ty02i 0 get showea dy02i 0 get showde ixi 1 get iyi 02 get moveto ty02i 1 get showea dy02i 1 get showde ixi 2 get iyi 02 get moveto ty02i 2 get showea dy02i 2 get showde ixi 3 get iyi 02 get moveto ty02i 3 get showea dy02i 3 get showde ixi 4 get iyi 02 get moveto ty02i 4 get showea dy02i 4 get showde ixi 5 get iyi 02 get moveto ty02i 5 get showea dy02i 5 get showde %Lr ixi 3 get iyi 02 get moveto %1 0 0 setrgbcolor TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto %L* ixi 4 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto %L*r ixi 5 get iyi 02 get moveto TBIL (L*) show -20 -30 rmoveto TBV (r) show 0 30 rmoveto 0 setgray TBL ixi 0 get iyi 03 get moveto ty03i 0 get showea dy03i 0 get showde ixi 1 get iyi 03 get moveto ty03i 1 get showea dy03i 1 get showde ixi 2 get iyi 03 get moveto ty03i 2 get showea dy03i 2 get showde ixi 3 get iyi 03 get moveto ty03i 3 get showea dy03i 3 get showde ixi 4 get iyi 03 get moveto ty03i 4 get showea dy03i 4 get showde ixi 5 get iyi 03 get moveto ty03i 5 get showea dy03i 5 get showde %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (u) show 0 30 rmoveto %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (\176) show TBIL (m L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto %=k log(Lr) ixi 5 get iyi 03 get moveto TBIL (=k) show 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (r) show 0 30 rmoveto TBL (\051) show 0 setgray 0 1 5 {/i exch def iy04i i get 0 eq {1 1 1 setrgbcolor} if iy04i i get 1 eq {1 1 0 setrgbcolor} if iy04i i get 2 eq {0 1 0 setrgbcolor} if iy04i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 04 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy05i i get 0 eq {1 1 1 setrgbcolor} if iy05i i get 1 eq {1 1 0 setrgbcolor} if iy05i i get 2 eq {0 1 0 setrgbcolor} if iy05i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 05 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 04 get moveto ty04i 0 get showea dy04i 0 get showde ixi 1 get iyi 04 get moveto ty04i 1 get showea dy04i 1 get showde ixi 2 get iyi 04 get moveto ty04i 2 get showea dy04i 2 get showde ixi 3 get iyi 04 get moveto ty04i 3 get showea dy04i 3 get showde ixi 4 get iyi 04 get moveto ty04i 4 get showea dy04i 4 get showde ixi 5 get iyi 04 get moveto ty04i 5 get showea dy04i 5 get showde ixi 0 get iyi 05 get moveto ty05i 0 get showea dy05i 0 get showde ixi 1 get iyi 05 get moveto ty05i 1 get showea dy05i 1 get showde ixi 2 get iyi 05 get moveto ty05i 2 get showea dy05i 2 get showde ixi 3 get iyi 05 get moveto ty05i 3 get showea dy05i 3 get showde ixi 4 get iyi 05 get moveto ty05i 4 get showea dy05i 4 get showde ixi 5 get iyi 05 get moveto ty05i 5 get showea dy05i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 05 get moveto TIL (=k) show 20 0 rmoveto TL (log(5)) show 0 setgray 0 1 5 {/i exch def iy06i i get 0 eq {1 1 1 setrgbcolor} if iy06i i get 1 eq {1 1 0 setrgbcolor} if iy06i i get 2 eq {0 1 0 setrgbcolor} if iy06i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 06 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy07i i get 0 eq {1 1 1 setrgbcolor} if iy07i i get 1 eq {1 1 0 setrgbcolor} if iy07i i get 2 eq {0 1 0 setrgbcolor} if iy07i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 07 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 06 get moveto ty06i 0 get showea dy06i 0 get showde ixi 1 get iyi 06 get moveto ty06i 1 get showea dy06i 1 get showde ixi 2 get iyi 06 get moveto ty06i 2 get showea dy06i 2 get showde ixi 3 get iyi 06 get moveto ty06i 3 get showea dy06i 3 get showde ixi 4 get iyi 06 get moveto ty06i 4 get showea dy06i 4 get showde ixi 5 get iyi 06 get moveto ty06i 5 get showea dy06i 5 get showde ixi 0 get iyi 07 get moveto ty07i 0 get showea dy07i 0 get showde ixi 1 get iyi 07 get moveto ty07i 1 get showea dy07i 1 get showde ixi 2 get iyi 07 get moveto ty07i 2 get showea dy07i 2 get showde ixi 3 get iyi 07 get moveto ty07i 3 get showea dy07i 3 get showde ixi 4 get iyi 07 get moveto ty07i 4 get showea dy07i 4 get showde ixi 5 get iyi 07 get moveto ty07i 5 get showea dy07i 5 get showde %=k log(1) %1 0 0 setrgbcolor ixi 5 get iyi 07 get moveto TIL (=k) show 20 0 rmoveto TL (log(1)) show 0 setgray 0 1 5 {/i exch def iy08i i get 0 eq {1 1 1 setrgbcolor} if iy08i i get 1 eq {1 1 0 setrgbcolor} if iy08i i get 2 eq {0 1 0 setrgbcolor} if iy08i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 08 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy09i i get 0 eq {1 1 1 setrgbcolor} if iy09i i get 1 eq {1 1 0 setrgbcolor} if iy09i i get 2 eq {0 1 0 setrgbcolor} if iy09i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 09 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iyi 08 get moveto ty08i 0 get showea dy08i 0 get showde ixi 1 get iyi 08 get moveto ty08i 1 get showea dy08i 1 get showde ixi 2 get iyi 08 get moveto ty08i 2 get showea dy08i 2 get showde ixi 3 get iyi 08 get moveto ty08i 3 get showea dy08i 3 get showde ixi 4 get iyi 08 get moveto ty08i 4 get showea dy08i 4 get showde ixi 5 get iyi 08 get moveto ty08i 5 get showea dy08i 5 get showde ixi 0 get iyi 09 get moveto ty09i 0 get showea dy09i 0 get showde ixi 1 get iyi 09 get moveto ty09i 1 get showea dy09i 1 get showde ixi 2 get iyi 09 get moveto ty09i 2 get showea dy09i 2 get showde ixi 3 get iyi 09 get moveto ty09i 3 get showea dy09i 3 get showde ixi 4 get iyi 09 get moveto ty09i 4 get showea dy09i 4 get showde ixi 5 get iyi 09 get moveto ty09i 5 get showea dy09i 5 get showde %=k log(5) %1 0 0 setrgbcolor ixi 5 get iyi 09 get moveto TIL (=k) show 20 0 rmoveto TL (log(0,2)) show 0 setgray 20 setlinewidth /lupt iytab iyd add 40 sub 20 add def /llot iytab iyd 9 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto 5400 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %horizontal lines 1 2 9 {/i exch def %i=1,9,2 0 iyi i get 60 sub moveto 5400 0 rlineto stroke } for %i=1,9,2 ix0 0070 moveto TL (For the lightness range between ) showea (Im Helligkeitsbereich zwischen ) showde TIL (L*) show TVr TL (=-40 and 40 the constant is: ) showea (=-40 und 40 ist die Konstante: ) showde TIL (k=) show TL (40/log(5)=57) show /yhoe 4000 def /xwidth 5400 def 30 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %***************************************************************** grestore %end because of clip showpage grestore %} for %output with langind end %%Trailer