%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega0l00XX.PS 20230701 %%BoundingBox: 14 08 828 584 /pdfmark where {pop} {userdict /pdfmark /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: http://farbe.li.tu-berlin.de/ega0/ega0.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %Y10g00na.ps6 %line 20****************************************************** %BEG ega0/OUTLIN10.PS Emty 20210418 %END ega0/OUTLIN10.PS Emty 20210418 %BEG ega0/OUTLIN1X.PS 20210418 %EMPTY %END ega0/OUTLIN1X.PS 20210418 %BEG ega0/OUTLIN1Y2.PS Emty 20210418 %END ega0/OUTLIN1Y2.PS Emty 20210418 /BeginEPSF {% def % Prepare for EPS file /b4_Inc_state save def % Save state for cleanup /dict_count countdictstack def /op_count count 1 sub def % Count objects on op stack userdict begin % Make userdict current dict /showpage {} def 0 setgray 0 setlinecap 1 setlinewidth 0 setlinejoin 10 setmiterlimit [] 0 setdash newpath /languagelevel where % If level not equal to 1 then {pop languagelevel where % If level not equal to 1 then 1 ne {false setstrokeadjust false setoverprint } if } if } bind def /EndEPSF {% def % End for EPS file count op_count sub {pop} repeat countdictstack dict_count sub {end} repeat % Clean up dict stack b4_Inc_state restore } bind def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def % !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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def %ANFA CMYKDEF %CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97 /tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533 0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000 1.000 0.750 0.500 0.250 0.000] def /tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000] def /tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000] def %ENDE CMYKD /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 /colrecfiLAB* %x y width heigth LAB* { setcolor rec fill} bind def /colrecstLAB* %x y width heigth LAB* { setcolor rec stroke} bind def /colrecficmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec fill} bind def /colrecstcmyn* %x y width heigth cmy0* or 000n* { setcmykcolor rec stroke} bind def /colrecfiw* %x y width heigth w* { setgray rec fill} bind def /colrecstw* %x y width heigth w* { setgray rec stroke} bind def /colrecfiolv* %x y width heigth olv* { setrgbcolor rec fill} bind def /colrecstolv* %x y width heigth olv* { setrgbcolor rec stroke} bind def /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzoLAB* [53.34 72.46 50.66] def %Reproduction colours /tzlLAB* [84.93 -79.83 74.80] def %LAB* setcolor /tzvLAB* [32.20 24.88 -37.89] def /tzcLAB* [88.10 -44.88 -13.36] def /tzmLAB* [59.66 90.32 -19.65] def /tzyLAB* [93.76 -20.24 85.93] def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /tznLAB* [18.01 0.00 0.00] def %grey series /tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor /tzzLAB* [56.71 0.00 0.00] def /tzhLAB* [76.06 0.00 0.00] def /tzwLAB* [95.41 0.00 0.00] def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /tfb {0 0.5 1 setrgbcolor} bind def /A4quer {598 0 translate 90 rotate} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog %*********************************************************** %%BeginPageSetup /#copies 1 def %A4querF 1.0 1.0 scale /pgsave save def %%EndPageSetup /SS$ [(g) (e) (s) (f) (i) (j) (m)] def /SC$ [(n) (f) (s) (d) (t) (e) (c)] def /SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def /SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def % 0 1 2 3 4 5 % 6 7 8 /EX$ [(a.txt /.ps) (b.bmp /.ps) (g.gif /.ps) (h.htm /.ps) (i.htm /.ps) (j.jpe /.ps) (p.pdf /.ps) (t.tif /.ps)] def /EY$ [(a.dat) (b.dat) (g.dat) (h.dat) (i.dat) (j.dat) (p.dat) (t.dat)] def %******************************************************************* /lanind1f 00 def /lanind2f 00 def /laninddf 01 def /lanindmf 01 def /colorm1f 00 def /colorm2f 00 def /colormdf 01 def /colormmf 01 def /deintp1f 00 def /deintp2f 00 def /deintpdf 01 def /deintpmf 01 def /xcolor1f 00 def /xcolor2f 00 def /xcolordf 01 def /xcolormf 01 def %2/10degree /xchart1f 00 def /xchart2f 00 def /xchartdf 01 def /xchartmf 01 def /xchart3f 01 def /xchart4f 00 def /xchart5f 00 def /pchart1f 00 def /pchart2f 00 def /pchartdf 01 def /pchartmf 01 def %=3:sRGB,Lr /colsep1f 00 def /colsep2f 00 def /colsepdf 01 def /colsepmf 01 def /pmetam1f 00 def /pmetam2f 00 def /pmetamdf 01 def /pmetammf 01 def %/lanindf lanind1f def % /lanindf lanind1f def %lanind1f laninddf lanind2f {/lanindf exch def %/colormf colorm1f def % /colormf colorm1f def %colorm1f colormdf colorm2f {/colormf exch def %/deintpf deintp1f def % /deintpf deintp1f def %deintp1f deintpdf deintp2f {/deintpf exch def %/xcolorf xcolor1f def % /xcolorf xcolor1f def %xcolor1f xcolordf xcolor2f {/xcolorf exch def %/xchartf xchart1f def % /xchartf xchart1f def %xchart1f xchartdf xchart2f {/xchartf exch def %/pchartf pchart1f def % /pchartf pchart1f def %/pchartf pchart1f def %pchart1f pchartdf pchart2f {/pchartf exch def %/colsepf colsep1f def % /colsepf colsep1f def %colsep1f colsepdf colsep2f {/colsepf exch def /lanind lanindf def /colorm colormf def /deintp deintpf def /xcolor xcolorf def /xchart xchartf def /xchartm xchart2f xchart1f sub 1 add def /xchart3 xchart3f def /xchart4 xchart4f def /pchart pchartf def /colsep colsepf def %/pmetamf pmetam1f def % /pmetamf pmetam1f def %pmetam1f pmetamdf pmetam2f {/pmetamf exch def /pmetam pmetamf def %************************************************************* %/setgray {sfgray} bind def %/setrgbcolor {sfrgbcolor} bind def %/setcmykcolor {sfcmykcolor} bind def %72 90 translate %0.01 MM dup scale %0 0 moveto 24600 0 rlineto 0 17220 rlineto % -24600 0 rlineto closepath stroke %000 -240 moveto %240 /Times-ISOL1 FS %lanindf cvishow (-) show %colormf cvishow %deintpf cvishow %xcolorf cvishow %xchartf cvishow %pchartf cvishow %colsepf cvishow (-F) show pmetamf cvishow %grestore gsave /GSS$ SS$ lanind get def /GSC$ SC$ colorm get def /GSX$ SX$ xcolor xcolor 16 idiv 16 mul sub get def /GSY$ SY$ xchart xchart 16 idiv 16 mul sub get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def %01 %02 %03 %04 %05 %06 %07 %08 %09 %10 /12RN {12 /Times-Roman FS} bind def /10RN {10 /Times-Roman FS} bind def /12RI {12 /Times-Italic FS} bind def /10RI {10 /Times-Italic FS} bind def /12RB {12 /Times-Bold FS} bind def /10RB {10 /Times-Bold FS} bind def /12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def /12TN {12 /Times-ISOL1 FS} bind def /10TN {10 /Times-ISOL1 FS} bind def /12TI {12 /TimesI-ISOL1 FS} bind def /10TI {10 /TimesI-ISOL1 FS} bind def /12TB {12 /TimesB-ISOL1 FS} bind def /10TB {10 /TimesB-ISOL1 FS} bind def /12TBI {12 /TimesBI-ISOL1 FS} bind def /10TBI {10 /TimesBI-ISOL1 FS} bind def %gsave BeginEPSF 28 MM 197 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 10 %line 329 %%EndDocument EndEPSF grestore gsave /SHSl 2 def /SHAl 2 def BeginEPSF 28 SHSl sub MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto 1 1 scale -77 -91 translate %%BeginDocument: Bild 11 %line 339 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-1n, CEA10-1N %%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: http://farbe.li.tu-berlin.de/ega0/ega0.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TV {120 16.67 div /Times-ISOL1 FS} bind def /TL {160 16.67 div /Times-ISOL1 FS} bind def /TS {200 16.67 div /Times-ISOL1 FS} bind def /TK {240 16.67 div /Times-ISOL1 FS} bind def /TM {280 16.67 div /Times-ISOL1 FS} bind def /TG {320 16.67 div /Times-ISOL1 FS} bind def /TIV {120 16.67 div /TimesI-ISOL1 FS} bind def /TIL {160 16.67 div /TimesI-ISOL1 FS} bind def /TIS {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK {240 16.67 div /TimesI-ISOL1 FS} bind def /TIM {280 16.67 div /TimesI-ISOL1 FS} bind def /TIG {320 16.67 div /TimesI-ISOL1 FS} bind def /TBV {120 16.67 div /TimesB-ISOL1 FS} bind def /TBL {160 16.67 div /TimesB-ISOL1 FS} bind def /TBS {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK {240 16.67 div /TimesB-ISOL1 FS} bind def /TBM {280 16.67 div /TimesB-ISOL1 FS} bind def /TBG {320 16.67 div /TimesB-ISOL1 FS} bind def /TBIV {120 16.67 div /TimesBI-ISOL1 FS} bind def /TBIL {160 16.67 div /TimesBI-ISOL1 FS} bind def /TBIS {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK {240 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {280 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {320 16.67 div /TimesBI-ISOL1 FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA02.PS BEG %%EndProlog gsave /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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} 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 1 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 %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS 72 86 moveto (ega00-1n, CEA10-1N) show %CEA10-1n, BNA40-5N) %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse % (, B4_09) show % ( B8761_3, M8210-5, B4_09, N=4_9) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /TBM1 {285 16.67 div /TimesB-ISOL1 FS} bind def 0 0 320 240 0.5 0.5 0.5 colrecfi %rectangle mean grey 0 0 320 240 0.0 0.0 0.0 colrecst %black frame TBM %font Times-Bold-Medium tfw %W 003 223 moveto %(log) show 3 0 rmoveto %050 3725 moveto %B8750-01.xps (log ) TBM tfw show (D) SG show 3 0 rmoveto (Y) TBIM tfw show ( = log ) TBM tfw show (\174) SM show 3 0 rmoveto (Y) TBIM tfw show TBK 0 -3 rmoveto (2) show 0 3 rmoveto ( - ) TBM tfw show (Y) TBIM tfw show TBK 0 -3 rmoveto (1) show 0 3 rmoveto (\174) SM show /ix0 60 def /iy0 30 def TBM ix0 200 add iy0 20 sub moveto (log) show 2 0 rmoveto TBIG (Y) show TBG ix0 080 add iy0 60 add moveto TBIM (Y) show TBM (=Hellbezugswert) showde %0ega00-5 01573 (=tristimulus value) showen %1ega00-5 01573 TBM1 (=valor triest\355mulo) showes %2ega00-5 01573 TBM (=valeur tristimulus) showfr %3ega00-5 01573 (=valore tristimolo) showit %4ega00-5 01573 (=tristimulusverdi) showjp %5ega00-5 01573 tfn %N ix0 90 add iy0 43 add moveto lanind 2 ne {TBIM (= Y) show} if 0 -5 rmoveto TBK (U) show 5 5 rmoveto (\050Umfeld grau\051) showde %0ega00-5 02573 (\050surround grey\051) showen %1ega00-5 02573 TBK (\050campo circundante grij\051) showes %2ega00-5 02573 TBM (\050arri\350re gris\051) showfr %3ega00-5 02573 (\050sfondo grigio\051) showit %4ega00-5 02573 (\050omfeltsgr\345\051) showjp %5ega00-5 02573 tfw %W TBG 2 setlinewidth ix0 4 sub iy0 moveto 204 0 rlineto stroke ix0 200 add 6 sub iy0 3 add moveto 6 -3 rlineto -6 -3 rlineto stroke ix0 iy0 4 sub moveto 0 184 rlineto stroke ix0 4 sub iy0 090 add moveto 8 0 rlineto stroke ix0 4 sub iy0 180 add moveto 8 0 rlineto stroke ix0 090 add iy0 4 sub moveto 0 8 rlineto stroke ix0 180 add iy0 4 sub moveto 0 8 rlineto stroke TBM ix0 30 sub iy0 000 add 08 sub moveto (-1) show ix0 27 sub iy0 180 add 08 sub moveto ( 0) show ix0 002 add 15 sub iy0 24 sub moveto (1,0) show ix0 092 add 15 sub iy0 23 sub moveto (1,5) show ix0 182 add 15 sub iy0 23 sub moveto (2,0) show tfn %N ix0 iy0 moveto 180 180 rlineto stroke ix0 045 add 2 add iy0 12 sub moveto TBS (1,26) show ix0 060 add iy0 moveto 0 060 rlineto stroke ix0 062 add iy0 10 add moveto TBIS (Y) show 0 -5 rmoveto TBL (U) show 0 5 rmoveto /scolors %setgray 8 Testfarben Nr. 0 bis 7 [{0.25} {0.35} {0.45} {0.55} {0.65} {0.75} {0.85} {0.95} {1.00} ] def ix0 iy0 moveto 0 1 6 {/i exch def scolors i get exec setgray ix0 i 30 mul add iy0 i 30 mul add 08 90 270 arc fill } for %schleife i ix0 iy0 moveto 0 1 6 {/i exch def scolors i 1 add get exec setgray ix0 i 30 mul add iy0 i 30 mul add 08 -90 90 arc fill } for %schleife i 1.5 setlinewidth tfw %W ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath fill tfn %N ix0 10 add 135 moveto 80 0 rlineto 0 80 rlineto -80 0 rlineto closepath stroke tfz %Z ix0 21 add 146 moveto 58 0 rlineto 0 58 rlineto -58 0 rlineto closepath fill scolors 2 get exec setgray ix0 50 add 175 08 90 270 arc fill scolors 3 get exec setgray ix0 50 add 175 08 -90 90 arc fill 1.5 setlinewidth tfw %W ix0 50 add 175 08 0 360 arc stroke /i 2 def ix0 i 30 mul add iy0 i 30 mul add 08 0 360 arc stroke ix0 35 add 186 moveto (Y) TBIS tfw show TBL 0 -2 rmoveto (1) show 0 2 rmoveto (;) TBS tfw show 1 0 rmoveto (Y) TBIS tfw show TBL 0 -2 rmoveto (2) show 0 2 rmoveto ix0 12 add 138 moveto tfn TBIL (Y) show 0 -2 rmoveto TBV (W) show 0 2 rmoveto TBL (=90) show ix0 22 add 149 moveto tfn TBIL (Y) show 0 -2 rmoveto TBV (U) show 0 2 rmoveto TBL (=18) show %ix0 021 add 147 moveto (0 ... 10) show %TBIG %ix0 022 add 170 moveto (N) show %ix0 058 add 170 moveto (W) show %TBG %ix0 30 add 195 moveto %tfn %N %ix0 30 add 195 08 0 360 arc fill %ix0 70 add 195 moveto %tfw %W %ix0 70 add 195 08 0 360 arc fill TBM tfw ix0 135 add iy0 120 add moveto (Schwellen) showde %0ega00-5 03573 (thresholds) showen %1ega00-5 03573 (umbral) showes %2ega00-5 03573 (seuil) showfr %3ega00-5 03573 (soglie di) showit %4ega00-5 03573 (terskler) showjp %5ega00-5 03573 ix0 135 add iy0 100 add moveto () showde %0ega00-5 03573 () showen %1ega00-5 03573 () showes %2ega00-5 03573 () showfr %3ega00-5 03573 (discriminazione) showit %4ega00-5 03573 () showjp %5ega00-5 03573 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 349 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-2 %%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/ega0/ega0.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 pdfmark02 [ /View [ /Fit ] /DOCVIEW pdfmark02 %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 /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 /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} 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 /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 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 cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} 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 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 cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} 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 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 (ega00-2n, CEA10-2N) show %BNU50-2n, CEA10-2N 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5400 def 0.5 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 in case of clip TBK 100 yhoe 220 sub moveto (Beobachtungen von aneinandergrenzenden Graus) showde (Viewing situations of adjacent greys) showen 100 yhoe 220 sub 2000 sub moveto (Beobachtungen von separaten Graus) showde (Viewing situations of separated greys) showen /proz_square {%BEG proz_square /xsq0 1600 def /ysq0 1600 def /xd 160 def /yd 160 def /xsqz 1280 def /ysqz 1280 def 1 setgray %white frame /x00 x0 def /y00 y0 def /xsq00 xsq0 def /ysq00 ysq0 def x00 y00 moveto xsq00 0 rlineto 0 ysq00 rlineto xsq00 neg 0 rlineto closepath fill xchart4 0 eq {0.5 setgray} if xchart4 1 eq {0.5 setgray} if %grey surround xchart4 2 eq {0.5 setgray} if xchart4 3 eq {0.5 setgray} if xchart4 4 eq {0.5 setgray} if %grey surround xchart4 5 eq {0.5 setgray} if /x01 x0 xd add def /y01 y0 yd add def /xsq01 xsq0 xd 2 mul sub def /ysq01 ysq0 yd 2 mul sub def x01 y01 moveto xsq01 0 rlineto 0 ysq01 rlineto xsq01 neg 0 rlineto closepath fill 0.4 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 830 add def} ifelse /y0m y0 800 add def x0m y0m 200 -90 90 arc fill 0.6 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 770 add def} ifelse /y0m y0 800 add def x0m y0m 200 90 270 arc fill 0 setgray TBL x0 5 add y0 25 add moveto xchart4 0 eq {(1A) show} if xchart4 1 eq {(2A) show} if xchart4 2 eq {(3A) show} if xchart4 3 eq {(1B) show} if xchart4 4 eq {(2B) show} if xchart4 5 eq {(3B) show} if %x0 500 add %xchart4 1 eq %xchart4 4 eq or {250 sub} if %y0 25 add moveto xchart4 0 eq xchart4 3 eq or {x0 400 add y0 25 add moveto TBIL (R) show TBL (=reflection) showen (=Reflexion) showde} if xchart4 1 eq xchart4 4 eq or {x0 250 add y0 25 add moveto TBIL (Y) show TBL (=tristimulus value) showen (=Normfarbwert) showde} if xchart4 2 eq xchart4 5 eq or {x0 300 add y0 25 add moveto TBIL (L) show TBL (=luminance) showen (=Leuchtdichte) showde} if /x0m x0 800 add def /y0m y0 250 add def /xshift [-50 050 -250 -50 050 -250] def 1 setgray x0m 250 sub xshift xchart4 get add y0m moveto TBS xchart4 0 eq xchart4 3 eq or {TBIS (R) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=0,18) show} if xchart4 1 eq xchart4 4 eq or {TBIS (Y) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=18) show} if xchart4 2 eq xchart4 5 eq or {TBIS (L) show TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=28 cd/m) show TBL 0 80 rmoveto (2) show 0 -80 rmoveto} if /x0m x0 800 add def /y0m y0 800 add 100 add def 1 setgray x0m 300 sub y0m 150 add moveto xchart4 0 eq xchart4 3 eq or {%xchart4=0,3 TBIS (R; R) show TBS (+) show SS (D) show TBIS(R) show } if %xchart4=0,3 xchart4 1 eq xchart4 4 eq or {%xchart4=1,4 TBIS (Y; Y) show TBS (+) show SS (D) show TBIS(Y) show } if %xchart4=1,4 xchart4 2 eq xchart4 5 eq or {%xchart4=2,5 TBIS (L; L) show TBS (+) show SS (D) show TBIS(L) show } if %xchart4=2,5 } bind def %END proz_square /x0 0100 def /y0 2100 def /xchart4 0 def proz_square /x0 1900 def /y0 2100 def /xchart4 1 def proz_square /x0 3700 def /y0 2100 def /xchart4 2 def proz_square /x0 0100 def /y0 0100 def /xchart4 3 def proz_square /x0 1900 def /y0 0100 def /xchart4 4 def proz_square /x0 3700 def /y0 0100 def /xchart4 5 def proz_square %***************************************************************** /yhoe 4000 def /xwidth 5400 def 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 13 %line 359 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-3 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark03 where {pop} {userdict /pdfmark03 /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/ega0/ega0.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 pdfmark03 [ /View [ /Fit ] /DOCVIEW pdfmark03 %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 /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 /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} 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 /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 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 cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} 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 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 cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} 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 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 (ega00-3n, CEA10-3N) show %BNS00-4N 72 90 translate 0.01 MM dup scale 15 setlinewidth /yhoe 4000 def /xwidth 5400 def 0.5 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 in case of clip TBK 100 yhoe 220 sub moveto (Beobachtungen von aneinandergrenzenden Graus) showde (Viewing situations of adjacent greys) showen 100 yhoe 220 sub 2000 sub moveto (Beobachtungen von separaten Graus) showde (Viewing situations of separated greys) showen /proz_square {%BEG proz_square /xsq0 1600 def /ysq0 1600 def /xd 160 def /yd 160 def /xsqz 1280 def /ysqz 1280 def 1 setgray %white frame /x00 x0 def /y00 y0 def /xsq00 xsq0 def /ysq00 ysq0 def x00 y00 moveto xsq00 0 rlineto 0 ysq00 rlineto xsq00 neg 0 rlineto closepath fill xchart4 0 eq {0.0 setgray} if xchart4 1 eq {0.5 setgray} if %grey surround xchart4 2 eq {1.0 setgray} if xchart4 3 eq {0.0 setgray} if xchart4 4 eq {0.5 setgray} if %grey surround xchart4 5 eq {1.0 setgray} if /x01 x0 xd add def /y01 y0 yd add def /xsq01 xsq0 xd 2 mul sub def /ysq01 ysq0 yd 2 mul sub def x01 y01 moveto xsq01 0 rlineto 0 ysq01 rlineto xsq01 neg 0 rlineto closepath xchart4 0 eq xchart4 1 eq or xchart4 3 eq or xchart4 4 eq or {fill} if xchart4 2 eq xchart4 5 eq or {0 setgray stroke} if 0.4 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 830 add def} ifelse /y0m y0 800 add def x0m y0m 200 -90 90 arc fill 0.6 setgray xchart4 2 le {/x0m x0 800 add def} {/x0m x0 770 add def} ifelse /y0m y0 800 add def x0m y0m 200 90 270 arc fill %0 setgray %/x0lm x01 250 add def %/y0lm y01 ysqz add 250 sub def %x0lm y0lm 200 0 360 arc fill %1 setgray %/x0rm x01 xsqz add 250 sub def %/y0rm y01 ysqz add 250 sub def %x0rm y0rm 200 0 360 arc fill 0 setgray TBS x0 5 add y0 2 add moveto xchart4 0 eq {(1A) show} if xchart4 1 eq {(2A) show} if xchart4 2 eq {(3A) show} if xchart4 3 eq {(1B) show} if xchart4 4 eq {(2B) show} if xchart4 5 eq {(3B) show} if /iout 1 def iout 1 eq {%iout=1 /x0m x0 800 add def /y0m y0 250 add def /xshift [-50 -50 -50 -50 -50 -50] def xchart4 0 eq xchart4 3 eq or {1 setgray} if xchart4 1 eq xchart4 2 eq or xchart4 4 eq or xchart4 5 eq or {0 setgray} if x0m 250 sub xshift xchart4 get add y0m moveto TBIS (Y) show TBS xchart4 0 eq xchart4 3 eq or {TBL 0 -50 rmoveto (N) show 0 50 rmoveto TBS (=3,6) show} if xchart4 1 eq xchart4 4 eq or {TBL 0 -50 rmoveto (U) show 0 50 rmoveto TBS (=18) show} if xchart4 2 eq xchart4 5 eq or {TBL 0 -50 rmoveto (W) show 0 50 rmoveto TBS (=90) show} if /x0m x0 800 add def /y0m y0 800 add 100 add def xchart4 0 eq xchart4 3 eq or {1 setgray} if xchart4 1 eq xchart4 2 eq or xchart4 4 eq or xchart4 5 eq or {0 setgray} if x0m 300 sub y0m 150 add moveto TBIS (L; L) show TBS (+) show SS (D) show TBIS (L) show } if %iout=1 } bind def %END proz_square /x0 0100 def /y0 2100 def /xchart4 0 def proz_square /x0 1900 def /y0 2100 def /xchart4 1 def proz_square /x0 3700 def /y0 2100 def /xchart4 2 def proz_square /x0 0100 def /y0 0100 def /xchart4 3 def proz_square /x0 1900 def /y0 0100 def /xchart4 4 def proz_square /x0 3700 def /y0 0100 def /xchart4 5 def proz_square %***************************************************************** /yhoe 4000 def /xwidth 5400 def 20 setlinewidth 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** %grestore %end in case of clip showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 14 %line 369 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-4 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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/ega0/ega0.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 pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %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 /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 /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} 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 /cvishow0 {cvi 6 string cvs show} def /cvsshow10 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow20 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow30 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow40 {10000 mul cvi 0.0001 mul 9 string cvs show} def /cvsshow50 {100000 mul cvi 0.00001 mul 9 string cvs show} def /cvsshow0r {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def /cvsshow1r {10 mul 0.5 add cvi 0.1 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow2r {100 mul 0.5 add cvi 0.01 mul %new980310 dup 0 ge {( ) show} if dup abs 10 lt {( ) show} if 10 string cvs show} def /cvsshow3r {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def %now with cvishow0 instead of cvishow /cvsshow1x {/nxx exch def %example nxx=99.1/99.0 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 cvishow0 (,) show %nxa=99 nxb cvishow0 %nxb=1/0 } def /cvsshow2x {/nxx exch def %example nxx=99.12/99,02/99,00 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 cvishow0 (,) show %nxb=99, nxb 10 ge {nxb cvishow0} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow0} 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 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 cvishow0 (,) show %nxb=99, nxb 100 ge {nxb cvishow0} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow0} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow0} 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 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 72 86 moveto (ega00-4n, CEA10-4N) show %BNU50-1N 72 90 translate 0.01 MM dup scale 20 setlinewidth 30 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5400 def 0.5 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 in case of clip /textde [(Empfindungs-Stufungsfunktionen) (Adaptation auf Umgebung Wei\337 ) (Adaptation auf Umgebung Grau ) (Beschreibung durch CIELAB 1976) (Adaptation auf Umgebung Schwarz ) ] def /texten [(sensation scaling functions) (adaptation on surround white ) (adaptation on surround grey ) (description with CIELAB 1976) (adaptation on surround black ) ] def /x0 50 def /yuz 800 def /yuz2 400 def % 0 1 2 3 4 5 6 7 8 9 /yu0i [3200 2400 1600 0800 0000] def /yu1i [3700 2900 2100 1300 0500] def /yu2i [3300 2500 1700 0900 0100] def 0 1 4 {/i exch def %5 streifen i 0 eq {1 1 0 setrgbcolor} if i 1 eq {1 setgray} if i 2 eq {0.5 setgray} if i 3 eq {0.5 setgray} if i 4 eq {0.0 setgray} if 0 yu0i i get moveto xwidth 0 rlineto 0 yuz rlineto xwidth neg 0 rlineto closepath fill } for 0 1 4 {/i exch def TBG i 3 ge {1} {0} ifelse setgray %Schiftfarbe N oder W x0 yu1i i get moveto textde i get showde texten i get showen TBIG i 1 eq {(W) show} if i 2 eq {(U) show} if i 4 eq {(N) show} if } for x0 yu2i 0 get moveto 0 setgray TBG (lightness ) showen (Helligkeit ) showde TBIG (L* ) show TBG (and tristimulus value ) showen (und Normfarbwert ) showde TBIG (Y ) show x0 500 add yu2i 1 get moveto 0 setgray TBIG (L*) show TBM 0 -60 rmoveto (W) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/2,0) show x0 500 add yu2i 2 get moveto 0 setgray TBIG (L*) show TBM 0 -60 rmoveto (U) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/2,4) show x0 200 add yu2i 3 get moveto 1 setgray TBIG (L*) show TBM 0 -60 rmoveto (CIELAB) show 0 60 rmoveto TBG ( = 116 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/3,0) show 0 -100 rmoveto TBG ( - 16) show x0 500 add yu2i 4 get moveto 1 setgray TBIG (L*) show TBM 0 -60 rmoveto (N) show 0 60 rmoveto TBG ( = 100 \050 ) show TBIG (Y) show TBG ( / 100\051) show TBM 0 100 rmoveto (1/3,0) 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 in case of clip showpage grestore %} for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 SHSl sub MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 15 %line 379 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-5 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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/ega0/ega0.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 pdfmark05 [ /View [ /Fit ] /DOCVIEW pdfmark05 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} 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 /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /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 %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA02.PS BEG /cvishow {cvi 10 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show} def %%EndProlog gsave %LANINDL2 START 20150505 /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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 4 /Times-ISOL1 FS 72 86 moveto (ega00-5n, CEA10-5N) show %BNA40-5n, CEA10-5N.PS %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM 0.01 MM scale /xwidth 5400 def /ywidth 4000 def 15 setlinewidth 1 1 0 setrgbcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke 600 400 translate 15 setlinewidth 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 300 /Times-ISOL1 FS %! 0,5-a-Einheiten = 1000 Skalen-Einheiten 1500 100 moveto TM (Farbmusterl\374cke in mm) showde (colour sample gap in mm) showea 0 50 moveto 0 -100 rlineto stroke 1000 50 moveto 0 -100 rlineto stroke 2000 50 moveto 0 -100 rlineto stroke 3000 50 moveto 0 -100 rlineto stroke 4000 50 moveto 0 -100 rlineto stroke TK -80 -300 moveto (0,0) show 920 -300 moveto (0,5) show 1920 -300 moveto (1,0) show 2920 -300 moveto (1,5) show 3920 -300 moveto (2,0) show %! 100 S-Einheiten = 1000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 1000 moveto 100 0 rlineto stroke -50 2000 moveto 100 0 rlineto stroke -50 3000 moveto 100 0 rlineto stroke TK -500 -80 moveto (0,0) show -500 920 moveto (0,5) show -500 1920 moveto (1,0) show -500 2920 moveto (1,5) show -500 3300 moveto TM (Farbdifferenz ) showde %08310-3 1 (colour difference ) showea %18310-3 1 SM (D) show TIM (E*) show (ab) is TM ( an Schwelle) showde ( at threshold) showea %Farbabstaende_geometrischer_Abstand.xls in Kittelmann_10 %farbmuster 0 to 6 %geometrischer Abstand 0 to 3 /x_gap [0.0000 0.3125 0.6250 1.2500] def /y_delta_E*ab [%7 colour x 4 distances 0.198 0.538 0.557 0.549 %0 0.267 0.692 0.689 0.751 %1 0.405 1.001 1.299 1.413 %2 0.232 0.821 0.917 0.917 %3 0.224 0.599 0.725 0.728 %4 0.279 0.664 0.764 0.798 %5 0.233 0.555 0.739 0.837 %6 ] def /Lab* [%7 samples (50 0 0) (90 0 0) (10 0 0) (50 40 0) (50 -40 0) (50 0 40) (50 0 -40) ] def /Name %7 samples [(Z)(W)(N)(R)(G)(Y)(B)] def %rgb colours of samples /tfc0 {0.5 0.5 0.5 setrgbcolor} bind def %mean grey /tfc1 {1.0 1.0 1.0 setrgbcolor} bind def %white /tfc2 {0.0 0.0 0.0 setrgbcolor} bind def %black /tfc3 {1.0 0.0 0.0 setrgbcolor} bind def %light red /tfc4 {0.0 1.0 0.0 setrgbcolor} bind def %light green /tfc5 {0.8 0.8 0.0 setrgbcolor} bind def %dark yellow /tfc6 {0.0 0.0 1.0 setrgbcolor} bind def %light blue 20 setlinewidth 3100 2900 moveto TM tfn (colour pair) show 3300 2600 moveto (L* a* b*) show 0 1 5 {/i exch def %i=0,5 newpath i 0 eq {tfc0} if i 1 eq {tfc1} if i 2 eq {tfc2} if i 3 eq {tfc3} if i 4 eq {tfc4} if i 5 eq {tfc5} if 3100 2300 i 300 mul sub 100 add 50 0 360 arc fill i 1 eq i 5 eq or {3100 2300 i 300 mul sub 100 add tfn 50 0 360 arc stroke} if tfn TK newpath 3300 2300 i 300 mul sub moveto Lab* i get show newpath 2800 2300 i 300 mul sub moveto Name i get show newpath } for %i=0,5 newpath 0 1 5 {/i exch def %i=0,5 /i4 i 4 mul def i 0 eq {tfc0} if i 1 eq {tfc1} if i 2 eq {tfc2} if i 3 eq {tfc3} if i 4 eq {tfc4} if i 5 eq {tfc5} if 0 1 3 {/j exch def %j=0,3 x_gap j get 2000 mul y_delta_E*ab i4 j add get 2000 mul 50 0 360 arc fill i 1 eq i 5 eq or {%i=1 or 4 tfn x_gap j get 2000 mul y_delta_E*ab i4 j add get 2000 mul 50 0 360 arc stroke} if i 0 eq {tfc0} if i 1 eq {tfc1} if i 2 eq {tfc2} if i 3 eq {tfc3} if i 4 eq {tfc4} if i 5 eq {tfc5} if } for %j=0,3 x_gap 0 get 2000 mul y_delta_E*ab i4 0 add get 2000 mul moveto x_gap 1 get 2000 mul y_delta_E*ab i4 1 add get 2000 mul lineto x_gap 2 get 2000 mul y_delta_E*ab i4 2 add get 2000 mul lineto x_gap 3 get 2000 mul y_delta_E*ab i4 3 add get 2000 mul lineto stroke } for %i=0,5 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 16 %line 389 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-6n, een40-6a %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark06 where {pop} {userdict /pdfmark06 /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/ega0/ega0.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark06 [ /View [ /Fit ] /DOCVIEW pdfmark06 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop %font0311.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {295 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /tfb {0 0.5 1 setrgbcolor} bind def %font0311.ps*********************************************** /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /MULX 1250 def /proz_curve_MUXY {%BEG proz_curve_MUXY 0 3 27 {/k exch def %k=0,27 k 0 eq {%k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def xst yst moveto } if %k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def /x20 {Xi k 1 add get MULX mul} bind def /y20 {Yi k 1 add get MULY mul} bind def /x21 {Xi k 2 add get MULX mul} bind def /y21 {Yi k 2 add get MULY mul} bind def /x22 {Xi k 3 add get MULX mul} bind def /y22 {Yi k 3 add get MULY mul} bind def x20 y20 x21 y21 x22 y22 curveto } for %k=0,27 stroke } bind def %END proz_curve_MUXY %******************************************************************* /proz_eq_table {%BEG proz_eq_table /xwtab 4800 def /ywtab 2600 def /i0eq ixeq xwtab add 520 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([1]) show ixeq iyeqt iyeq0 1 mul sub moveto ixeq iyeqt iyeq0 1 mul sub moveto TIM (n) show TM ( = -0,25) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([2]) show ixeq iyeqt iyeq0 2 mul sub moveto TIM (V) show TM ( = 1/\0500,036) show 50 0 rmoveto TIM (n) show 50 0 rmoveto (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (-0,30) show 0 -80 rmoveto TM (\051) show i0eq iyeqt iyeq0 2 mul sub moveto TM ([3]) show ixeq iyeqt iyeq0 3 mul sub moveto TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM ( = 0,025) show 50 0 rmoveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (0,705) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 3 mul sub moveto TM ([4]) show ixeq iyeqt iyeq0 4 mul sub moveto TIM (s) show TM ( = 1/[1+\050) show 50 0 rmoveto TIM (n V L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM TK -80 80 rmoveto (n) show 0 -80 rmoveto TM TM (\051) show TK 00 80 rmoveto (1/\0501\255) show TIK (n) show TK (\051) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 4 mul sub moveto TM ([5]) show ixeq iyeqt iyeq0 5 mul sub moveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TM ( = 0,1; 1; 10; 100; 1000 cd/m) show TK 00 80 rmoveto (2) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 5 mul sub moveto TM ([6]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 6 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([1-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto i0eq iyeqt iyeq0 6 mul sub moveto TM ([7]) show } bind def %END proz_eq_table %**************************************************** /proz_eq_tabl2 {%BEG proz_eq_tabl2 /xwtab 5250 def /ywtab 0800 def /i0eq ixeq xwtab add 520 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([8]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 1 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([9]) show } bind def %END proz_eq_tabl2 %************************************************************************ /proz_tx_refe1 {%BEG proz_tx_refe1 /xwtab 5250 def /ywtab 1100 def /i0eq ixeq xwtab add 520 sub def /iyeq0 330 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always text reference within the above frame ixeq iyeqt moveto (Richter, K. (1993), CIE proceedings,) show ixeq iyeqt iyeq0 1 mul sub moveto (Advanced Colorimetry, p. 79-84, CIE3 &) show ixeq iyeqt iyeq0 2 mul sub moveto RBM tfb (http://color.li.tu-berlin.de/BUA4BF.PDF) show tfn } bind def %END proz_tx_refe1 %************************************************************************ /proz_co_system {%BEG proz_co_system /txl [ () (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def %0..8 /txt [ () ( 0,001) ( 0,01) ( 0,1) ( 1) ( 10) ( 100) ( 1000) ( 10000)] def %0..8 /ty0 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ()] def %0..8 DL /ty1 [(-5) ( 0) ( 5) (10) (15) (20) (25) (30) (35)] def %0..8 DL/L /ty2 [(-3) (-2) (-1) ( 0) ( 1) ( 2) () () ()] def %0..8 log DL/L /ty3 [(-25) ( 0) ( 25) ( 50) ( 75) (100) (125) (150) (175)] def %0..8 L* 60 setlinewidth ix0 iy0 moveto 10300 0 rlineto stroke %x ix0 iy0 moveto 0 6600 rlineto stroke %y 60 setlinewidth ix0 10300 add iy0 moveto -200 100 rlineto stroke %x_arrow ix0 10300 add iy0 moveto -200 -100 rlineto stroke %x_arrow ix0 iy0 6600 add moveto -100 -200 rlineto stroke %y_arrow ix0 iy0 6600 add moveto 100 -200 rlineto stroke %y_arrow 60 setlinewidth /ix2t ix0 200 sub def /ix1t ix0 500 sub def /iy1t iy0 500 sub def 1 1 8 {/i exch def %xtext ix0 ixsD2 sub i ixs mul add iy0 100 sub moveto 0 200 rlineto stroke ix2t ixsD2 sub i ixs mul add iy0 400 sub moveto txl i get show ix1t ixsD2 sub i ixs mul add iy0 200 add moveto txt i get show } for /ix6a ix0 5.8 ixs mul add def /ix7a ix0 6.8 ixs mul add def /iy6a iy0 600 sub def ix6a iy6a moveto ix7a iy6a lineto stroke ix7a iy6a moveto -200 100 rlineto stroke ix7a iy6a moveto -200 -100 rlineto stroke ix7a 150 add iy6a 100 sub moveto TBM (log) show 60 0 rmoveto TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ix6a 1200 sub iy0 500 add moveto TBM (Infeldleuchtdichte ) showde (central\255field luminance ) showea TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show } bind def %END proz_co_system %*************************************************************** /proz_Li_func003 {%END proz_Li_func003 %function L/delta L /Li 31 array def /logLi 31 array def /delLi 31 array def /Xi 31 array def /Yi 31 array def /Yi0 31 array def /Yi1 31 array def /Yi2 31 array def /Yi3 31 array def /Yi4 31 array def /LSi 31 array def /Luj 6 array def /Vuj 6 array def /Lsj 6 array def /sj 6 array def /Luj [0.1 1 10 100 1000 10000] def /Lulogj [-1 0 1 2 3 4] def /Ltj [( 0,1) ( 1) ( 10) ( 100) ( 1000) (10000)] def 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi logLi i -3 0.25 i mul add put Li i 10 logLi i get exp put Xi i 3 logLi i get add put } for %i=0,30 /n -0.25 def /1Mn 1 n sub def %1,25 /1D1Mn 1 1Mn div def %0,80 /nv1 0.036 def /nv2 -0.30 def /nl1 0.025 def /nl2 0.705 def 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu /V01 Luj j get nv2 exp def %Lu**(-0,30) /V02 nv1 n mul def %0.036*n /V03 V02 V01 mul def %0.036*n*Lu**(-0.30) Vuj j 1 V03 div put %1/[0.036*n*Lu**(-0.30)] /L01 Luj j get nl2 exp def %Lu**(0.705) Lsj j nl1 L01 mul put %0.025*Lu**(0.705) /s01 Lsj j get n exp def %Ls**n /s02 n Vuj j get mul s01 mul def %n*V*Ls**n /s03 s02 1D1Mn exp def %[n*V*Ls**n]**[1/(1-n)] /s04 1 s03 add def %1+[n*V*Ls**n]**[1/(1-n)] sj j 1 s04 div put %1/{1+[n*V*Ls**n]**[1/(1-n)]} } for %j=0,4 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi %delta L /y01 1 n Vuj j get mul div def %1/[n*V] /y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n) /y03 sj j get Li i get mul Lsj j get div def %s*L/Ls /y04 1 sj j get sub y03 add def %1-s+[s*L/Ls] /y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n) delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %L* /LS01 Vuj j get def %V /LS02 Lsj j get sj j get div n exp def %(Ls/s)**n /LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls) /LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls) /LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1 LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n} %*{(1-s+sL/Ls)**n-1} j 0 eq {Yi0 i} if j 1 eq {Yi1 i} if j 2 eq {Yi2 i} if j 3 eq {Yi3 i} if j 4 eq {Yi4 i} if xchartl 0 eq {delLi i get log 2 add put} if xchartl 1 eq {Li i get delLi i get div put} if xchartl 2 eq {Li i get delLi i get div log 2 add put} if xchartl 3 eq {LSi i get put} if } for %i=0,30 } for %j=0,4 } bind def %%END proz_Li_func003 %************************************************************************ %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml colorm def /xcolorl xcolor def /xchartl xchart def /pchartl pchart def gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwhl 11600 def /ywhl 8550 def 1.0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath fill 0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath stroke 0 setgray /iLuLm 0 def %0:Lu, 1:Lu,Lm /xbtex0 0 def xbtex0 1 eq {%xbtex0=1 TV 50 -150 moveto (ega00-6n, een40-6a) show } if %xbtex0=1 0 1 0 {/xchartl exch def %xchartl=0,3 20 setlinewidth % xchartl 0 eq { 100 4500 translate} if % xchartl 1 eq { 5850 4500 translate} if % xchartl 2 eq { 100 0250 translate} if % xchartl 3 eq { 5850 0250 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 5850 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 5850 0250 translate} if 0 setgray /cvishow {cvi 6 string cvs show} def 0 setgray TV 50 -150 moveto (ega00-6n) show %xchartl 1 add cvishow (A) show %a 20 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5650 def 0.9 0.9 0.0 setrgbcolor 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 /ix0 700 def /iy0 900 def /ix1 300 def %1 /y00 7300 def gsave 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath clip 0.5 0.5 scale /ixs 1250 def /ixsD2 ixs 0.5 mul def 60 setlinewidth %****************************************************************** xchartl 0 eq {%xchartl=0 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [ ) show SM (D) show TBIM (L) show TBM ( ] ) show TBM (central\255field threshold) showea (Infeldschwellen) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system 9200 6100 moveto TBM (surround\255field) showea (Umfeld\255) showde 9200 6100 350 sub moveto TBM (luminance) showea (Leuchtdichte) showde 9200 6100 700 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show 7700 4900 moveto 1000 0750 rlineto stroke 7700 1000 add 4900 750 add moveto -300 -100 rlineto stroke 7700 1000 add 4900 750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty0 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 250 sub moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=0 %****************************************************************** xchartl 1 eq {%xchartl=1 /iys 0800 def /MULY iys 5 div def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto ix1 100 add y00 350 add moveto TBIM (L) show TBM ( / ) show SM (D) show TBIM (L ) show TBM (central\255field threshold contrast) showea (Infeldschwellen\255Kontrast) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 7.8 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system %ixeq 0300 add iyeq iyeqd 8.4 mul sub moveto ixeq 0300 add 1250 3.4 mul moveto TBM (surround\255field luminance) showea (Umfeld\255Leuchtdichte) showde ixeq 0300 add 1250 3.0 mul moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ixeq 1700 add 1250 2.5 mul moveto 1000 0750 rlineto stroke ixeq 2700 add 1250 2.5 mul 0750 add moveto -300 -100 rlineto stroke ixeq 2700 add 1250 2.5 mul 0750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 7 {/i exch def %i=1,7 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty1 i get show } for %i=1,7 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 600 add Yi i get MULY mul 200 add 400 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=1 %****************************************************************** xchartl 2 eq {%xchartl=2 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [) show TBIM (L) show TBM ( / ) show SM (D) show TBIM (L) show TBM (] ) show TBM (central\255field contrast) showea (Infeldschwellenkontrast) showde %equation table; table at end /ixeq ix0 5600 add def /iyeq iy0 1250 2.6 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system 0900 7100 moveto TBM (surround\255field luminance ) showea (Umfeld\255Leuchtdichte ) showde TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show 3700 6600 moveto 1000 0150 rlineto stroke 3700 1000 add 6600 150 add moveto -200 050 rlineto stroke 3700 1000 add 6600 150 add moveto -200 -150 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty2 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add 50 sub moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 250 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 5750 add def /iyeq iy0 1250 2.6 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 0250 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 360 def proz_tx_refe1 } if %xchartl=2 %****************************************************************** xchartl 3 eq {%xchartl=3 /iys 1000 def /MULY iys 25 div def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBIM (L* ) show TBM (central\255field lightness) showea (Infeldhelligkeit) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 5.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system ixeq 0400 add iyeq iyeqd 7.5 mul sub moveto TBM (surround\255field luminance) showea (Umfeld\255Leuchtdichte) showde ixeq 2000 add iyeq iyeqd 8.5 mul sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ixeq 3500 add iyeq iyeqd 8.0 mul sub moveto 1000 0750 rlineto stroke ixeq 3500 add 1000 add iyeq iyeqd 8.0 mul sub 750 add moveto -300 -100 rlineto stroke ixeq 3500 add 1000 add iyeq iyeqd 8.0 mul sub 750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke %special 600 instead of 500 sub ix0 600 sub iy0 i iys mul add 100 sub moveto ty3 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -8 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=3 %****************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 4500 neg translate} if % xchartl 1 eq { 5850 neg 4500 neg translate} if % xchartl 2 eq { 100 neg 0250 neg translate} if % xchartl 3 eq { 5850 neg 0250 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 5850 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 5850 neg 0250 neg translate} if } for %xchartl=0,3 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if 28 SHSl sub MM 20 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 17 %line 399 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega00-7n, een40-7a %%BoundingBox: 70 85 236 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /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/ega0/ega0.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /A4querL {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop %font0311.ps*********************************************** /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {250 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {250 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {250 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {250 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {295 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /tfn {0 setgray} bind def /tfw {1 setgray} bind def /tfb {0 0.5 1 setrgbcolor} bind def %font0311.ps*********************************************** /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def /MULX 1250 def /proz_curve_MUXY {%BEG proz_curve_MUXY 0 3 27 {/k exch def %k=0,27 k 0 eq {%k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def xst yst moveto } if %k=0 /xst {Xi k get MULX mul} bind def /yst {Yi k get MULY mul} bind def /x20 {Xi k 1 add get MULX mul} bind def /y20 {Yi k 1 add get MULY mul} bind def /x21 {Xi k 2 add get MULX mul} bind def /y21 {Yi k 2 add get MULY mul} bind def /x22 {Xi k 3 add get MULX mul} bind def /y22 {Yi k 3 add get MULY mul} bind def x20 y20 x21 y21 x22 y22 curveto } for %k=0,27 stroke } bind def %END proz_curve_MUXY %******************************************************************* /proz_eq_table {%BEG proz_eq_table /xwtab 4800 def /ywtab 2600 def /i0eq ixeq xwtab add 520 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([1]) show ixeq iyeqt iyeq0 1 mul sub moveto ixeq iyeqt iyeq0 1 mul sub moveto TIM (n) show TM ( = -0,25) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([2]) show ixeq iyeqt iyeq0 2 mul sub moveto TIM (V) show TM ( = 1/\0500,036) show 50 0 rmoveto TIM (n) show 50 0 rmoveto (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (-0,30) show 0 -80 rmoveto TM (\051) show i0eq iyeqt iyeq0 2 mul sub moveto TM ([3]) show ixeq iyeqt iyeq0 3 mul sub moveto TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM ( = 0,025) show 50 0 rmoveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TK -80 80 rmoveto (0,705) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 3 mul sub moveto TM ([4]) show ixeq iyeqt iyeq0 4 mul sub moveto TIM (s) show TM ( = 1/[1+\050) show 50 0 rmoveto TIM (n V L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM TK -80 80 rmoveto (n) show 0 -80 rmoveto TM TM (\051) show TK 00 80 rmoveto (1/\0501\255) show TIK (n) show TK (\051) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 4 mul sub moveto TM ([5]) show ixeq iyeqt iyeq0 5 mul sub moveto TIM (L) show TK 0 -80 rmoveto (u) show 0 80 rmoveto TM TM ( = 0,1; 1; 10; 100; 1000 cd/m) show TK 00 80 rmoveto (2) show 0 -80 rmoveto TM i0eq iyeqt iyeq0 5 mul sub moveto TM ([6]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 6 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([1-) show TIM (s) show TM (+) show TIM (s) show 50 0 rmoveto TIM (L) show TM (/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto i0eq iyeqt iyeq0 6 mul sub moveto TM ([7]) show } bind def %END proz_eq_table %**************************************************** /proz_eq_tabl2 {%BEG proz_eq_tabl2 /xwtab 5250 def /ywtab 0800 def /i0eq ixeq xwtab add 520 sub def /iyeq0 360 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always L*-Table ixeq iyeqt moveto TIM (L*) show TM ( =) show TIM (V ) show TM (\050) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (n) show 0 -80 rmoveto TM TM (-1]) show i0eq iyeqt moveto TM ([8]) show %delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %always dL-Table ixeq iyeqt iyeq0 1 mul sub moveto TIM (dL) show TM (=[1/n) show TIM (V) show TM (][) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (/) show TIM (s) show TM (]) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM ([\0501-s\050) show TIM (L) show TM (-) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051/) show TIM (L) show TK 0 -80 rmoveto (s) show 0 80 rmoveto TM (\051) show TK 0 80 rmoveto (1-n) show 0 -80 rmoveto TM TM (]) show i0eq iyeqt iyeq0 1 mul sub moveto TM ([9]) show } bind def %END proz_eq_tabl2 %************************************************************************ /proz_tx_refe1 {%BEG proz_tx_refe1 /xwtab 5250 def /ywtab 1100 def /i0eq ixeq xwtab add 520 sub def /iyeq0 330 def /iyeqt iyeq 100 add def 60 setlinewidth 1 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto fill 0 setgray ixeq 050 sub iyeq ywtab sub 400 add moveto xwtab 0000 rlineto 0000 ywtab rlineto xwtab neg 0000 rlineto closepath stroke %always text reference within the above frame ixeq iyeqt moveto (Richter, K. (1993), CIE proceedings,) show ixeq iyeqt iyeq0 1 mul sub moveto (Advanced Colorimetry, p. 79-84, CIE3 &) show ixeq iyeqt iyeq0 2 mul sub moveto RBM tfb (http://color.li.tu-berlin.de/BUA4BF.PDF) show tfn } bind def %END proz_tx_refe1 %************************************************************************ /proz_co_system {%BEG proz_co_system /txl [ () (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def %0..8 /txt [ () ( 0,001) ( 0,01) ( 0,1) ( 1) ( 10) ( 100) ( 1000) ( 10000)] def %0..8 /ty0 [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ()] def %0..8 DL /ty1 [(-5) ( 0) ( 5) (10) (15) (20) (25) (30) (35)] def %0..8 DL/L /ty2 [(-3) (-2) (-1) ( 0) ( 1) ( 2) () () ()] def %0..8 log DL/L /ty3 [(-25) ( 0) ( 25) ( 50) ( 75) (100) (125) (150) (175)] def %0..8 L* 60 setlinewidth ix0 iy0 moveto 10300 0 rlineto stroke %x ix0 iy0 moveto 0 6600 rlineto stroke %y 60 setlinewidth ix0 10300 add iy0 moveto -200 100 rlineto stroke %x_arrow ix0 10300 add iy0 moveto -200 -100 rlineto stroke %x_arrow ix0 iy0 6600 add moveto -100 -200 rlineto stroke %y_arrow ix0 iy0 6600 add moveto 100 -200 rlineto stroke %y_arrow 60 setlinewidth /ix2t ix0 200 sub def /ix1t ix0 500 sub def /iy1t iy0 500 sub def 1 1 8 {/i exch def %xtext ix0 ixsD2 sub i ixs mul add iy0 100 sub moveto 0 200 rlineto stroke ix2t ixsD2 sub i ixs mul add iy0 400 sub moveto txl i get show ix1t ixsD2 sub i ixs mul add iy0 200 add moveto txt i get show } for /ix6a ix0 5.8 ixs mul add def /ix7a ix0 6.8 ixs mul add def /iy6a iy0 600 sub def ix6a iy6a moveto ix7a iy6a lineto stroke ix7a iy6a moveto -200 100 rlineto stroke ix7a iy6a moveto -200 -100 rlineto stroke ix7a 150 add iy6a 100 sub moveto TBM (log) show 60 0 rmoveto TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ix6a 1200 sub iy0 500 add moveto TBM (Infeldleuchtdichte ) showde (central\255field luminance ) showea TBIM (L) show TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show } bind def %END proz_co_system %*************************************************************** /proz_Li_func003 {%END proz_Li_func003 %function L/delta L /Li 31 array def /logLi 31 array def /delLi 31 array def /Xi 31 array def /Yi 31 array def /Yi0 31 array def /Yi1 31 array def /Yi2 31 array def /Yi3 31 array def /Yi4 31 array def /LSi 31 array def /Luj 6 array def /Vuj 6 array def /Lsj 6 array def /sj 6 array def /Luj [0.1 1 10 100 1000 10000] def /Lulogj [-1 0 1 2 3 4] def /Ltj [( 0,1) ( 1) ( 10) ( 100) ( 1000) (10000)] def 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi logLi i -3 0.25 i mul add put Li i 10 logLi i get exp put Xi i 3 logLi i get add put } for %i=0,30 /n -0.25 def /1Mn 1 n sub def %1,25 /1D1Mn 1 1Mn div def %0,80 /nv1 0.036 def /nv2 -0.30 def /nl1 0.025 def /nl2 0.705 def 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu /V01 Luj j get nv2 exp def %Lu**(-0,30) /V02 nv1 n mul def %0.036*n /V03 V02 V01 mul def %0.036*n*Lu**(-0.30) Vuj j 1 V03 div put %1/[0.036*n*Lu**(-0.30)] /L01 Luj j get nl2 exp def %Lu**(0.705) Lsj j nl1 L01 mul put %0.025*Lu**(0.705) /s01 Lsj j get n exp def %Ls**n /s02 n Vuj j get mul s01 mul def %n*V*Ls**n /s03 s02 1D1Mn exp def %[n*V*Ls**n]**[1/(1-n)] /s04 1 s03 add def %1+[n*V*Ls**n]**[1/(1-n)] sj j 1 s04 div put %1/{1+[n*V*Ls**n]**[1/(1-n)]} } for %j=0,4 0 1 04 {/j exch def %j=0,4 range 0,1 to 1000 Lu 0 1 30 {/i exch def %i=0,30 range -3 to +4 logLi %delta L /y01 1 n Vuj j get mul div def %1/[n*V] /y02 Lsj j get sj j get div 1Mn exp def %[Ls/s]**(1-n) /y03 sj j get Li i get mul Lsj j get div def %s*L/Ls /y04 1 sj j get sub y03 add def %1-s+[s*L/Ls] /y05 y04 1Mn exp def %{1-s+[s*L/Ls]}**(1-n) delLi i y01 y02 mul y05 mul put %{1/[n*V]}*{[Ls/s]**(1-n)} %*{1-s+[s*L/Ls]}**(1-n)} %L* /LS01 Vuj j get def %V /LS02 Lsj j get sj j get div n exp def %(Ls/s)**n /LS03 sj j get Li i get mul Lsj j get div def %(s*L/Ls) /LS04 1 sj j get sub LS03 add def %(1-s+s*L/Ls) /LS05 LS04 n exp 1 sub def %(1-s+s*L/Ls)**n-1 LSi i LS01 LS02 mul LS05 mul put %V*{(Ls/s)**n} %*{(1-s+sL/Ls)**n-1} j 0 eq {Yi0 i} if j 1 eq {Yi1 i} if j 2 eq {Yi2 i} if j 3 eq {Yi3 i} if j 4 eq {Yi4 i} if xchartl 0 eq {delLi i get log 2 add put} if xchartl 1 eq {Li i get delLi i get div put} if xchartl 2 eq {Li i get delLi i get div log 2 add put} if xchartl 3 eq {LSi i get put} if } for %i=0,30 } for %j=0,4 } bind def %%END proz_Li_func003 %************************************************************************ %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def %default values /lanind1 01 def /lanind2 01 def /lanindd 01 def /lanindm 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 01 def /pchart2 01 def /pchartd 01 def /pchartm 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def /xchart3 00 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /colorml colorm def /xcolorl xcolor def /xchartl xchart def /pchartl pchart def gsave 72 90 translate 0.01 MM dup scale 20 setlinewidth /xwhl 11600 def /ywhl 8550 def 1.0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath fill 0 setgray %0 0 moveto xwhl 0 rlineto 0 ywhl rlineto xwhl neg 0 rlineto closepath stroke 0 setgray /iLuLm 0 def %0:Lu, 1:Lu,Lm /xbtex0 0 def xbtex0 1 eq {%xbtex0=1 TV 50 -150 moveto (ega00-7n, een40-7a) show } if %xbtex0=1 1 1 1 {/xchartl exch def %xchartl=0,3 20 setlinewidth % xchartl 0 eq { 100 4500 translate} if % xchartl 1 eq { 5850 4500 translate} if % xchartl 2 eq { 100 0250 translate} if % xchartl 3 eq { 5850 0250 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 5850 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 5850 0250 translate} if 0 setgray /cvishow {cvi 6 string cvs show} def 0 setgray TV 50 -150 moveto (ega00-7n) show %xchartl 1 add cvishow %(a) show %a 20 setlinewidth [ ] 0 setdash /yhoe 4000 def /xwidth 5650 def 0.9 0.9 0.0 setrgbcolor 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 /ix0 700 def /iy0 900 def /ix1 300 def %1 /y00 7300 def gsave 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath clip 0.5 0.5 scale /ixs 1250 def /ixsD2 ixs 0.5 mul def 60 setlinewidth %****************************************************************** xchartl 0 eq {%xchartl=0 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [ ) show SM (D) show TBIM (L) show TBM ( ] ) show TBM (central\255field threshold) showea (Infeldschwellen) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system 9200 6100 moveto TBM (surround\255field) showea (Umfeld\255) showde 9200 6100 350 sub moveto TBM (luminance) showea (Leuchtdichte) showde 9200 6100 700 sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show 7700 4900 moveto 1000 0750 rlineto stroke 7700 1000 add 4900 750 add moveto -300 -100 rlineto stroke 7700 1000 add 4900 750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty0 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub 400 add Yi i get MULY mul 200 add 250 sub moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 300 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=0 %****************************************************************** xchartl 1 eq {%xchartl=1 /iys 0800 def /MULY iys 5 div def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto ix1 100 add y00 350 add moveto TBIM (L) show TBM ( / ) show SM (D) show TBIM (L ) show TBM (central\255field threshold contrast) showea (Infeldschwellen\255Kontrast) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 7.8 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system %ixeq 0300 add iyeq iyeqd 8.4 mul sub moveto ixeq 0300 add 1250 3.4 mul moveto TBM (surround\255field luminance) showea (Umfeld\255Leuchtdichte) showde ixeq 0300 add 1250 3.0 mul moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ixeq 1700 add 1250 2.5 mul moveto 1000 0750 rlineto stroke ixeq 2700 add 1250 2.5 mul 0750 add moveto -300 -100 rlineto stroke ixeq 2700 add 1250 2.5 mul 0750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 7 {/i exch def %i=1,7 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty1 i get show } for %i=1,7 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 600 add Yi i get MULY mul 200 add 400 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=1 %****************************************************************** xchartl 2 eq {%xchartl=2 /iys 1250 def /MULY iys def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBM (log [) show TBIM (L) show TBM ( / ) show SM (D) show TBIM (L) show TBM (] ) show TBM (central\255field contrast) showea (Infeldschwellenkontrast) showde %equation table; table at end /ixeq ix0 5600 add def /iyeq iy0 1250 2.6 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system 0900 7100 moveto TBM (surround\255field luminance ) showea (Umfeld\255Leuchtdichte ) showde TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show 3700 6600 moveto 1000 0150 rlineto stroke 3700 1000 add 6600 150 add moveto -200 050 rlineto stroke 3700 1000 add 6600 150 add moveto -200 -150 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke ix0 500 sub iy0 i iys mul add 100 sub moveto ty2 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -0.4 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add 50 sub moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub 500 add Yi i get MULY mul 200 add 250 sub moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 5750 add def /iyeq iy0 1250 2.6 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 0250 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 360 def proz_tx_refe1 } if %xchartl=2 %****************************************************************** xchartl 3 eq {%xchartl=3 /iys 1000 def /MULY iys 25 div def /ix0t ix0 ixsD2 add def /iy0t iy0 iys add def ix1 100 add y00 350 add moveto TBIM (L* ) show TBM (central\255field lightness) showea (Infeldhelligkeit) showde %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 5.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_co_system ixeq 0400 add iyeq iyeqd 7.5 mul sub moveto TBM (surround\255field luminance) showea (Umfeld\255Leuchtdichte) showde ixeq 2000 add iyeq iyeqd 8.5 mul sub moveto TBIM (L) show TBK 0 -80 rmoveto (u) show 0 80 rmoveto TBM (/[cd/m) show TBK 0 80 rmoveto (2) show 0 -80 rmoveto TBM (]) show ixeq 3500 add iyeq iyeqd 8.0 mul sub moveto 1000 0750 rlineto stroke ixeq 3500 add 1000 add iyeq iyeqd 8.0 mul sub 750 add moveto -300 -100 rlineto stroke ixeq 3500 add 1000 add iyeq iyeqd 8.0 mul sub 750 add moveto -200 -300 rlineto stroke %ytex TBM 0 1 6 {/i exch def %i=1,6 ytex ix0 100 sub iy0 i iys mul add moveto 200 0 rlineto stroke %special 600 instead of 500 sub ix0 600 sub iy0 i iys mul add 100 sub moveto ty3 i get show } for %i=1,6 ix0t iy0t translate proz_Li_func003 /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [ ] 0 setdash %usually continues curves jkurv 0 eq {0.00 setgray [100 100] 0 setdash} if jkurv 1 eq {0.25 setgray [100 100] 0 setdash} if jkurv 2 eq {0.00 setgray [] 0 setdash} if jkurv 3 eq {0.75 setgray [100 100] 0 setdash} if jkurv 4 eq {1.00 setgray [100 100] 0 setdash} if 0 1 30 {/i exch def %i=0,30 jkurv 0 eq {Yi i Yi0 i get put} if jkurv 1 eq {Yi i Yi1 i get put} if jkurv 2 eq {Yi i Yi2 i get put} if jkurv 3 eq {Yi i Yi3 i get put} if jkurv 4 eq {Yi i Yi4 i get put} if } for %i=0,30 % 0 1 2 3 4 /kurvi [1 1 1 1 1] def kurvi jkurv get 1 eq {%kurvi=1 proz_curve_MUXY } if %kurvi=1 jkurv 2 eq {%NW mean 1.00 setgray [100 100] 0 setdash proz_curve_MUXY } if %SM } for %jkurv=0,JPPM 0 setgray [100 100] 0 setdash /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 [100 100] 0 setdash 8 4 24 {/i exch def %i=8,4,24 i 08 eq {Yi i Yi0 i get put} if i 12 eq {Yi i Yi1 i get put} if i 16 eq {Yi i Yi2 i get put} if i 20 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul -8 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 08 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 12 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 16 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 20 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } for %i=8,4,24 [] 0 setdash } for %jkurv=0,JPPM iLuLm 1 eq {%iLuLm 0:Lu, 1:Lu,Lm /JPPM 4 def 0 1 JPPM {/jkurv exch def %jkurv=0,4 1 0 0 setrgbcolor 0 1 24 {/i exch def %i=0,1,24 i 10 eq {Yi i Yi0 i get put} if i 14 eq {Yi i Yi1 i get put} if i 18 eq {Yi i Yi2 i get put} if i 21 eq {Yi i Yi3 i get put} if i 24 eq {Yi i Yi4 i get put} if i 10 eq i 14 eq or i 18 eq or i 21 eq or i 24 eq or {%i=12,15,18,21,24 Xi i get MULX mul Yi i get MULY mul moveto Xi i get MULX mul 0 MULY mul lineto stroke Xi i get MULX mul Yi i get MULY mul 100 0 360 arc fill i 12 eq jkurv 0 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 15 eq jkurv 1 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 18 eq jkurv 2 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 21 eq jkurv 3 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if i 24 eq jkurv 4 eq and { Xi i get MULX mul 400 sub Yi i get MULY mul 200 add moveto Ltj jkurv get show } if } if %i=12,15,18,21,24 } for %i=0,24 } for %jkurv=0,JPPM 0 0 0 setrgbcolor } if %iLuLm 0:Lu, 1:Lu,Lm ix0t neg iy0t neg translate %equation table; table at end /ixeq ix0 250 add def /iyeq iy0 1250 4.9 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_table %equation table; table at end /ixeq ix0 5200 add def /iyeq iy0 1250 1.5 mul add def /iyeqd 400 def /iyeq0 360 def proz_eq_tabl2 %equation refe1; refe1 at end /ixeq ix0 5200 add def /iyeq iy0 1250 5.3 mul add def /iyeq0 330 def proz_tx_refe1 } if %xchartl=3 %****************************************************************** grestore %end because of clip % xchartl 0 eq { 100 neg 4500 neg translate} if % xchartl 1 eq { 5850 neg 4500 neg translate} if % xchartl 2 eq { 100 neg 0250 neg translate} if % xchartl 3 eq { 5850 neg 0250 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 5850 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 5850 neg 0250 neg translate} if } for %xchartl=0,3 showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 SHAl add MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 18 %line 409 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/BEA4/ega00-8 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [/Title (PostScript pictures: farbe.li.tu-berlin.de/ega0/ega0.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 pdfmark08 [ /View [ /Fit ] /DOCVIEW pdfmark08 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def /SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def /SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def /SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def %XCHA02.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA02.PS BEG %%EndProlog gsave /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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {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 1 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 %5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 4 /Times-ISOL1 FS 72 86 moveto (ega00-8n, CEA10-8N) show %BEA40-8n, CEA10-8N.PS %xchart 0 eq {(N) show} % {deintp colorm 2 mul add cvishow} ifelse % (, B4_29) show % ( B9081_6, M8210-8, B4_29, N=4_29) show 72 90 translate /pixf 16.67 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 30 setlinewidth 0.5 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill 050 3725 moveto %B9081-06.xps (L) TBIM tfw show ( / ) TBM tfw show (D) SG show 50 0 rmoveto (L) TBIM tfw show ( = ) TBM tfw show (L) TBIM tfw show ( / ) TBM tfw show (\174) SG show 50 0 rmoveto (L) TBIM tfw show (2) ishow2 ( - ) TBM tfw show (L) TBIM tfw show (1) ishow2 (\174) SG show /tx [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4) ( 5)] def /ty [( 0) (10) (20) (30) (40) (50) (60)] def /ix0 0200 def /iy0 1800 def /ilx 4200 def /ily 2950 def 2300 3200 moveto (CIELAB) TBM tfw show 3600 1600 moveto (L) TBIM tfn show 50 0 rmoveto (/) TBIM tfn show 10 0 rmoveto tfn TBM (D) SG show 50 0 rmoveto (L) TBIM tfn show 50 0 rmoveto (=) TBM tfn show 50 0 rmoveto (const.) TBM tfn show 3550 0950 moveto (0,1s) TBM tfw show 1800 1500 moveto (>5s) TBM tfn show 1600 1800 moveto TBM tfn (Schwellen) showde %0BEA40-8 0059# (thresholds) showen %1BEA40-8 0059# (umbral) showes %2BEA40-8 0059# (seuil) showfr %3BEA40-8 0059# (discriminazione) showit %4BEA40-8 0059# (terskler) showjp %5BEA40-8 0059# %2700 2150 moveto (discriminazione) TBM tfw show 2300 2900 moveto TBM tfw (Stufung) showde %0BEA40-8 0159# (scaling) showen %1BEA40-8 0159# (escalar) showes %2BEA40-8 0159# (\351chelonnage) showfr %3BEA40-8 0159# (scalare) showit %4BEA40-8 0159# (skalering) showjp %5BEA40-8 0159# 2300 2600 moveto TBM tfw (>5s) show tfw /ix00 550 def /iy00 400 def ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke 0 1 0 setrgbcolor 500 3.10 mul 0 moveto 500 1.85 mul 0 rlineto stroke 500 3.10 mul 50 moveto 0 -150 rlineto stroke 500 4.95 mul 50 moveto 0 -150 rlineto stroke TBK 500 3.00 mul 80 moveto ( 20) show 500 4.55 mul 80 moveto (500) show 3800 700 moveto TBIM (C) show TBM (=25:1) show 3800 600 moveto 950 0 rlineto stroke tfw 4100 100 moveto TBIM (L) show TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -250 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -350 moveto tx i get exec show ixl 50 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -450 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for 3750 -300 moveto (x) TBIM tfw show 30 0 rmoveto (=) TBM tfw show 30 0 rmoveto (log) TBM tfw show 50 0 rmoveto (L) TBIM tfw show TBIM 1870 150 moveto (L) TBIM tfw show TBK 20 -80 rmoveto (u) show 50 80 rmoveto ilx ily moveto (L) TBIM tfw show TBK 20 -80 rmoveto (u) show ilx 200 sub ily 450 sub moveto TBK 20 0 ([cd/m) ashow -80 200 rmoveto 200 /TimesB-ISOL1 FS (2) show 0 -200 rmoveto TBK (]) show 1 setgray %W ilx 0150 add ily 0950 sub moveto (10) bshow2 (2) eshow2 0 setgray %N ilx 0200 sub ily 0850 sub moveto 300 0 rlineto stroke [100 ] 0 setdash 1 setgray %W ilx 0200 sub ily 0850 sub moveto 300 0 rlineto stroke [ ] 0 setdash tfz 0 setlinewidth % fuer clip 0 000 moveto 4850 0 rlineto 0 3200 rlineto -4850 0 rlineto 0 -3200 rlineto clip stroke 50 setlinewidth %!wrpos:FLIN9081 ANFANG/ENDE ab for049...56.dat %!Z 2 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 %! 0.00 0.02 7.66 0.03 15.15 0.06 22.45 0.10 %! 30.00 0.18 37.66 0.33 45.15 0.59 52.45 1.03 %! 60.00 1.82 67.66 3.22 75.15 5.57 82.45 9.33 %! 90.00 15.42 97.66 24.39 105.15 35.56 112.45 47.02 %! 120.00 56.75 127.66 62.08 135.15 62.56 142.45 59.63 %! 150.00 54.63 157.66 48.77 165.15 43.04 172.45 37.81 %! 180.00 32.91 187.66 28.52 195.15 24.74 202.45 21.54 %! 210.00 18.64 217.66 16.10 225.15 13.95 232.45 12.13 %! 240.00 10.49 247.66 9.06 [ ] 0 setdash %Z 0 0 moveto 122 0 242 0 359 1 curveto 480 2 602 5 722 9 curveto 839 16 960 29 1082 51 curveto 1202 89 1319 149 1440 246 curveto 1562 390 1682 568 1799 752 curveto 1920 907 2042 993 2162 1000 curveto 2279 954 2400 874 2522 780 curveto 2642 688 2759 605 2880 526 curveto 3002 456 3122 395 3239 344 curveto 3360 298 3482 257 3602 223 curveto 3719 194 3840 167 3962 144 curveto 0 setgray stroke [100] 0 setdash %Z 0 0 moveto 122 0 242 0 359 1 curveto 480 2 602 5 722 9 curveto 839 16 960 29 1082 51 curveto 1202 89 1319 149 1440 246 curveto 1562 390 1682 568 1799 752 curveto 1920 907 2042 993 2162 1000 curveto 2279 954 2400 874 2522 780 curveto 2642 688 2759 605 2880 526 curveto 3002 456 3122 395 3239 344 curveto 3360 298 3482 257 3602 223 curveto 3719 194 3840 167 3962 144 curveto 1 setgray stroke %!Z1 2 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 %! 0.00 11.44 7.66 12.93 15.15 14.56 22.45 16.29 %! 30.00 18.26 37.66 20.44 45.15 22.76 52.45 25.21 %! 60.00 27.94 67.66 30.91 75.15 34.03 82.45 37.25 %! 90.00 40.79 97.66 44.58 105.15 48.48 112.45 52.45 %! 120.00 56.75 127.66 61.27 135.15 65.87 142.45 70.48 %! 150.00 75.40 157.66 80.53 165.15 82.07 172.45 78.83 %! 180.00 72.58 187.66 65.01 195.15 57.47 202.45 50.54 %! 210.00 44.02 217.66 38.15 225.15 33.11 232.45 28.82 %! 240.00 24.95 247.66 21.55 % [ ] 0 setdash %Z1 % 0 182 moveto % 122 206 242 232 359 260 curveto % 480 292 602 327 722 364 curveto % 839 403 960 447 1082 494 curveto % 1202 544 1319 596 1440 652 curveto % 1562 713 1682 775 1799 839 curveto % 1920 907 2042 980 2162 1053 curveto % 2279 1127 2400 1206 2522 1288 curveto % 2642 1313 2759 1261 2880 1161 curveto % 3002 1040 3122 919 3239 808 curveto % 3360 704 3482 610 3602 529 curveto % 3719 461 3840 399 3962 344 curveto % 0 setgray stroke % [100] 0 setdash %Z1 % 0 182 moveto % 122 206 242 232 359 260 curveto % 480 292 602 327 722 364 curveto % 839 403 960 447 1082 494 curveto % 1202 544 1319 596 1440 652 curveto % 1562 713 1682 775 1799 839 curveto % 1920 907 2042 980 2162 1053 curveto % 2279 1127 2400 1206 2522 1288 curveto % 2642 1313 2759 1261 2880 1161 curveto % 3002 1040 3122 919 3239 808 curveto % 3360 704 3482 610 3602 529 curveto % 3719 461 3840 399 3962 344 curveto % 1 setgray stroke %!W1 1 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %! 0.00 5.38 7.66 6.55 15.15 7.93 22.45 9.56 %! 30.00 11.60 37.66 14.11 45.15 17.09 52.45 20.60 %! 60.00 24.99 67.66 30.40 75.15 36.83 82.45 44.38 %! 90.00 53.84 97.66 65.50 105.15 79.34 112.45 95.61 %! 120.00 116.00 127.66 141.11 135.15 170.94 142.45 205.99 %! 150.00 249.91 157.66 304.01 165.15 368.28 172.45 443.80 %! 180.00 538.42 187.66 654.96 195.15 793.43 202.45 956.14 %! 210.00 1160.00 217.66 1411.07 225.15 1709.39 232.45 2059.94 %! 240.00 2499.14 247.66 3040.06 [ ] 0 setdash %W1 % 0 86 moveto % 122 104 242 126 359 152 curveto % 480 185 602 225 722 273 curveto % 839 329 960 399 1082 486 curveto % 1202 589 1319 710 1440 861 curveto % 1562 1047 1682 1269 1799 1529 curveto % 1920 1855 2042 2257 2162 2735 curveto % 2279 3295 2400 3998 2522 4864 curveto % 2642 5892 2759 7100 2880 8614 curveto % 3002 10479 3122 12694 3239 15298 curveto % 3360 18559 3482 22577 3602 27350 curveto % 3719 32958 3840 39986 3962 48640 curveto % 1 setgray stroke /i 0.26 def 0 86 i mul moveto 122 104 i mul 242 126 i mul 359 152 i mul curveto 480 185 i mul 602 225 i mul 722 273 i mul curveto 839 329 i mul 960 399 i mul 1082 486 i mul curveto 1202 589 i mul 1319 710 i mul 1440 861 i mul curveto 1562 1047 i mul 1682 1269 i mul 1799 1529 i mul curveto 1920 1855 i mul 2042 2257 i mul 2162 2735 i mul curveto 2279 3295 i mul 2400 3998 i mul 2522 4864 i mul curveto 2642 5892 i mul 2759 7100 i mul 2880 8614 i mul curveto 3002 10479 i mul 3122 12694 i mul 3239 15298 i mul curveto 3360 18559 i mul 3482 22577 i mul 3602 27350 i mul curveto 3719 32958 i mul 3840 39986 i mul 3962 48640 i mul curveto 1 setgray stroke %!N1 1 0.0 0.0 0.0 1.0 0.0 0.0 0.0 0.0 %! 0.00 0.59 7.66 1.06 15.15 1.86 22.45 3.19 %! 30.00 5.49 37.66 9.27 45.15 14.87 52.45 22.29 %! 60.00 31.50 67.66 41.12 75.15 49.37 82.45 55.50 %! 90.00 59.86 97.66 62.64 105.15 64.27 112.45 65.21 %! 120.00 65.78 127.66 66.10 135.15 66.28 142.45 66.37 %! 150.00 66.43 157.66 66.47 165.15 66.48 172.45 66.49 %! 180.00 66.50 187.66 66.50 195.15 66.50 202.45 66.50 %! 210.00 66.51 217.66 66.51 225.15 66.51 232.45 66.51 %! 240.00 66.51 247.66 66.51 [ ] 0 setdash %N1 350 0 translate 0 9 moveto 122 16 242 29 359 51 curveto 480 87 602 148 722 237 curveto 839 356 960 504 1082 657 curveto 1202 789 1319 887 1440 957 curveto 1562 1002 1682 1028 1799 1043 curveto 1920 1052 2042 1057 2162 1060 curveto 2279 1061 2400 1062 2522 1063 curveto 2642 1063 2759 1063 2880 1063 curveto 3002 1064 3122 1064 3239 1064 curveto 3360 1064 3482 1064 3602 1064 curveto 3719 1064 3840 1064 3962 1064 curveto 0 setgray stroke showpage grestore %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 197 MM translate 10 /Times-ISOL1 FS 1 1 scale -77 -91 translate %%BeginDocument: Bild 12 %line 419 %%EndDocument EndEPSF grestore gsave /SHSr 2 MM def /SHAr 2 MM def BeginEPSF 161 MM 06 MM sub SHSr sub 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 21 %line 429 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-1 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark11 where {pop} {userdict /pdfmark11 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark11 [ /View [ /Fit ] /DOCVIEW pdfmark11 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-1n, CEA30-1N) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 152 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 22 %line 439 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-2 %%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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark12 [ /View [ /Fit ] /DOCVIEW pdfmark12 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-2n, CEA30-2N) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 1 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (ru) show 0 80 rmoveto TBM 10 0 rmoveto (=) show TBM 10 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (aw) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (as) show 0 60 rmoveto TBM ( = const) show /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1625 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2300 150 moveto TBIM (x) show TBK 0 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 23 %line 449 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-3 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark13 [ /View [ /Fit ] /DOCVIEW pdfmark13 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-1n, CEA31-3n, eeg21-1n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 108 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 24 %line 459 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-6 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark16 where {pop} {userdict /pdfmark16 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark16 [ /View [ /Fit ] /DOCVIEW pdfmark16 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-2n, CEA31-4n, eeg21-2n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 1 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (ru) show 0 80 rmoveto TBM 10 0 rmoveto (=) show TBM 10 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (aw) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (as) show 0 60 rmoveto TBM ( = const) show /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1625 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2300 150 moveto TBIM (x) show TBK 0 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 25 %line 469 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-5 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark15 where {pop} {userdict /pdfmark15 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark15 [ /View [ /Fit ] /DOCVIEW pdfmark15 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-1n, CEA31-3n, eeg21-1n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 064 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 26 %line 479 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-4 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-2n, CEA31-4n, eeg21-2n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 1 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (ru) show 0 80 rmoveto TBM 10 0 rmoveto (=) show TBM 10 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (aw) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (as) show 0 60 rmoveto TBM ( = const) show /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1625 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2300 150 moveto TBIM (x) show TBK 0 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 06 MM sub SHSr sub 020 MM translate 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 27 %line 489 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-7 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-1n, CEA31-3n, eeg21-1n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 06 MM sub SHAr add 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM moveto ( ) show 10 /Times-ISOL1 FS 53 MM 1 MM moveto ( ) show 1 1 scale -77 -91 translate %%BeginDocument: Bild 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ega0/ega01-8 %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark18 where {pop} {userdict /pdfmark18 /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/ega0/ega0.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:2020110112000) /ModDate (D:20201101112000) /DOCINFO pdfmark18 [ /View [ /Fit ] /DOCVIEW pdfmark18 %END PDFDE011 /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /scalef 0.70 def /Tk {200 scalef mul /Times-ISOL1 FS} bind def /TK {250 scalef mul /Times-ISOL1 FS} bind def /TM {300 scalef mul /Times-ISOL1 FS} bind def /TG {350 scalef mul /Times-ISOL1 FS} bind def /TIk {200 scalef mul /TimesI-ISOL1 FS} bind def /TIK {250 scalef mul /TimesI-ISOL1 FS} bind def /TIM {300 scalef mul /TimesI-ISOL1 FS} bind def /TIG {350 scalef mul /TimesI-ISOL1 FS} bind def /TBk {250 scalef mul /TimesB-ISOL1 FS} bind def /TBK {250 scalef mul /TimesB-ISOL1 FS} bind def /TBM {300 scalef mul /TimesB-ISOL1 FS} bind def /TBG {350 scalef mul /TimesB-ISOL1 FS} bind def /TBIk {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIK {250 scalef mul /TimesBI-ISOL1 FS} bind def /TBIM {300 scalef mul /TimesBI-ISOL1 FS} bind def /TBIG {350 scalef mul /TimesBI-ISOL1 FS} bind def /SK {250 scalef mul /Symbol FS show} bind def /SM {300 scalef mul /Symbol FS show} bind def /SG {350 scalef mul /Symbol FS show} bind def /nshow1 {TG show} bind def /kshow1 {TIG show} bind def /bshow1 {TBG show} bind def /bkshow1 {TBIG show} bind def /ishow1 {TM 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow1 {TM 0 200 rmoveto show 0 -200 rmoveto} bind def /nshow2 {TM show} bind def /kshow2 {TIM show} bind def /bshow2 {TBM show} bind def /bkshow2 {TBIM show} bind def /ishow2 {TK 0 -50 rmoveto show 0 50 rmoveto} bind def /eshow2 {TK 0 200 rmoveto show 0 -200 rmoveto} bind def %XCHA03.PS BEG /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 {setrgbcolor rec fill} bind def /colrecst %x y width heigth c m y k {setrgbcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setrgbcolor rem fill} bind def /colremst %x y width heigth c m y k {setrgbcolor rem stroke} bind def /tzr {1 0 0} bind def %Reproduktionsfarben /tzg {0 1 0} bind def /tzb {0 0 1} bind def /tzc {0 1 1} bind def /tzm {1 0 1} bind def /tzy {1 1 0} bind def /tzo {1 0 0} bind def %Reproduktionsfarben /tzl {0 1 0} bind def /tzv {0 0 1} bind def /tzn {0.00} bind def %Graureihe /tzd {0.25} bind def /tzz {0.50} bind def /tzh {0.75} bind def /tzw {1.00} bind def /tfr {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfg {0 1 0 setrgbcolor} bind def /tfb {0 0 1 setrgbcolor} bind def /tfc {0 1 1 setrgbcolor} bind def /tfm {1 0 1 setrgbcolor} bind def /tfy {1 1 0 setrgbcolor} bind def /tfo {1 0 0 setrgbcolor} bind def %Reproduktionsfarben /tfl {0 1 0 setrgbcolor} bind def /tfv {0 0 1 setrgbcolor} bind def /tfrn {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfgn {0.0 0.5 0.0 setrgbcolor} bind def /tfbn {0.0 0.0 0.5 setrgbcolor} bind def /tfcn {0.0 0.5 0.5 setrgbcolor} bind def /tfmn {0.5 0.0 0.5 setrgbcolor} bind def /tfyn {0.5 0.5 0.0 setrgbcolor} bind def /tfon {0.5 0.0 0.0 setrgbcolor} bind def %Reproduktionsfarben /tfln {0.0 0.5 0.0 setrgbcolor} bind def /tfvn {0.0 0.0 0.5 setrgbcolor} bind def /tfn {0.00 setgray} bind def %Graureihe /tfd {0.25 setgray} bind def /tfz {0.50 setgray} bind def /tfh {0.75 setgray} bind def /tfw {1.00 setgray} bind def %XCHA03.PS BEG %%EndProlog gsave %LANINDL2 START 20000505 /lanind 0 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 {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 4 /Times-ISOL1 FS 74 86 moveto (ega01-1n, CEA31-3n, eeg21-1n) show %(Threshold data for constant grey surround luminance) showen %(Schwellendaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (u) show 72 90 translate 0.01 MM dup scale 30 setlinewidth tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfn 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath stroke /xchart 0 def /ix00 450 def /iy00 400 def xchart 0 eq {ix00 0 translate 450 3350 moveto} {050 3725 moveto} ifelse tfw TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 50 0 rmoveto (\051) show TBM ( = log \050) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBM 20 0 rmoveto (\051) show xchart 0 eq { -400 3700 moveto (D) SG TBIG 50 0 rmoveto (L) show TBM 10 -80 rmoveto (r) show 0 80 rmoveto TBM ( = ) show 20 0 rmoveto (\174) SM TBIM 50 0 rmoveto (L) show (r2) ishow2 TBM ( - ) show TBIM (L) show (r1) ishow2 20 0 rmoveto (\174) SM TBG ( = Relative luminance difference) showen ( = Relative Leuchtdichtedifferenz) showde } if xchart 1 eq { 30 setlinewidth 100 3000 moveto 0 500 rlineto 100 -50 add 3500 -150 add moveto 50 150 rlineto 50 -150 rlineto stroke /tx [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-4) (-3) (-2) (-1) ( 0) ( 1) ( 2)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def tfw ix00 iy00 translate 50 setlinewidth 0 0 moveto 340 12 mul 0 rlineto stroke 0 0 moveto 0 3000 rlineto stroke TBM %!x-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 7 {/i exch def /ixt { -150 i 0500 mul add} def /ixl { 000 i 0500 mul add} def ixt -300 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 500 Skalen-Einheiten 0 1 6 {/i exch def /iyt {-100 i 0500 mul add} def /iyl { 000 i 0500 mul add} def -350 iyt moveto ty i get exec show -75 iyl moveto 150 0 rlineto stroke } for tfw 3750 -300 moveto TBIM (x) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (r) show tfw TBIM 1650 150 moveto (L) TBIM show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show } if tfw TBIM 3400 2500 moveto (L) show TBK 10 -80 rmoveto (r) show 0 80 rmoveto TBM (=) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (u)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (u) show 0 80 rmoveto TBM (=) show 40 0 rmoveto (50 cd/m) show TBK 10 60 rmoveto (2) show tfw TBIM 3400 1900 moveto (combine laws:) showen (verbinde Gesetze) showde tfb 3400 1600 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (aw) show 0 80 rmoveto TBM (=1,0log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfy 3400 1300 moveto TBM (log) show TBIM (L) show 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log) show TBIM (L) show 10 -80 rmoveto (r) show 0 80 rmoveto tfw TBG 0400 3000 moveto (Muster:) showde (Samples:) showen tfb TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfb 0100 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 0100 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rw) show 0 60 rmoveto TBM ( / ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBM ( = const) show tfw TBG 2150 3000 moveto (Muster:) showde (Samples:) showen tfy TBG 2150 2750 moveto (separat) showde (separated) showen tfw TBG 2000 1000 moveto (Stevens law:) showen (Stevens-Gesetz) showde tfy 2000 0700 moveto TBM (log \050) show 20 0 rmoveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM 20 0 rmoveto (\051 = 0,5 log) show TBIM 40 0 rmoveto (L) show TBK 10 -60 rmoveto (r) show 2000 0400 moveto (D) SM TBIM 20 0 rmoveto (L) show TBK 10 -60 rmoveto (rs) show 0 60 rmoveto TBM ( = const ) show TBIM (L) show TBK 10 -60 rmoveto (r) show 0 60 rmoveto TBK 10 80 rmoveto (0,5) show 0 -80 rmoveto /Tkk {120 /Times-ISOL1 FS} bind def /Tk {150 /Times-ISOL1 FS} bind def /TIkk {120 /TimesI-ISOL1 FS} bind def /TIk {150 /TimesI-ISOL1 FS} bind def /TBkk {120 /TimesB-ISOL1 FS} bind def /TBk {150 /TimesB-ISOL1 FS} bind def /TBIkk {120 /TimesBI-ISOL1 FS} bind def /TBIk {150 /TimesBI-ISOL1 FS} bind def /Skk {120 /Symbol FS show} bind def /Sk {150 /Symbol FS show} bind def xchart 1 eq { 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2250 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (surround luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto 3400 3100 moveto TBIk (L) tfw show TBkk 10 -30 rmoveto (w) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (4,5) show TBIk (L) tfw show TBkk 10 -30 rmoveto (u) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (u = surround) showen (u = Umfeld) showde } if 1.5 dup scale /iyl 0900 def /iy0 iyl 400 add def 0 1 1 {/i exch def %i=0,2 /ixl 200 i 1150 mul add def /ix0 ixl 400 add def 50 setlinewidth tfw ixl iyl moveto 800 0 rlineto 0 800 rlineto -800 0 rlineto closepath stroke 0.00 0.00 0.00 i 0 eq {0.30} if i 1 eq {0.30} if setgray i 0 eq {/ix1 100 def /ix2 0 def} if i 1 eq {/ix1 150 def /ix2 50 def} if ix0 ix1 sub iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill 0.00 0.00 0.00 i 0 eq {0.40} if i 1 eq {0.40} if setgray ix0 ix2 add iy0 50 sub moveto 100 0 rlineto 0 100 rlineto -100 0 rlineto closepath fill tfw ix0 200 sub iy0 200 add moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (ru) show 0 30 rmoveto TBk (=1) show ix0 345 sub iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r1) show 0 30 rmoveto ix0 155 add iy0 60 sub moveto TBIk (L) tfw show TBkk 0 -30 rmoveto (r2) show 0 30 rmoveto 25 setlinewidth i 0 eq {tfb} {tfy} ifelse ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,1 grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen 10 /Times-ISOL1 FS 53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate %%BeginDocument: Bild 29 Teststreifen Ueberlaenge %line 509 %%EndDocument EndEPSF grestore gsave BeginEPSF -0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen% %%BeginDocument: Bild 30 %Rechteckrahmen %line 519 %!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text DG02 20070101 %%BoundingBox: 0 0 598 845 %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 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 /lanind1 01 def /lanind2 01 def /lanindd 01 def /colorm1 00 def /colorm2 00 def /colormd 01 def /deintp1 00 def /deintp2 00 def /deintpd 01 def /xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /colsep1 00 def /colsep2 00 def /colsepd 01 def /pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} if /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} if /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (n) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (p.ps./pdf) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (p.dat) def} ifelse /IMES 0 def /i*ptrsc 0 def gsave 0 setgray 1.0 1.0 scale 0.0 MM 0.0 MM translate 0.15 MM setlinewidth /x 20 array def /y 20 array def /d 20 array def /x [000 296 296 000 002 294 294 002 005 291 291 005 %speziell 006 290 290 006 008 288 288 008 ] def /y [000 000 210 210 002 002 208 208 005 005 205 205 %speziell 006 006 204 204 008 008 202 202 ] def /d [060 017 -60 -17 058 015 -58 -15 056 013 -56 -13 054 011 -54 -11 052 009 -52 -09 ] 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 xchart 1 ge {%xchart>=1 /i0 12 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 2.5 MM /Times-ISOL1 FS x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-F) show pmetam cvishow } if %xchart>=1 /xlu 017 MM def /ylu 017 MM def /xro 279 MM def /yro 193 MM def /xlo 017 MM def /ylo 193 MM def /xru 279 MM def /yru 017 MM def /xmo xlo xro xlo sub 0.5 mul add def /ymo yro 1 MM sub def xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 16 MM rlineto stroke xro 8 MM add yro moveto -16 MM 0 rlineto stroke xro yro 8 MM add moveto 0 -16 MM rlineto stroke xru 8 MM sub yru moveto 16 MM 0 rlineto stroke xru yru 8 MM sub moveto 0 16 MM rlineto stroke xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke 1 2 7 {/i exch def %Zentrierkreise xlu ylu i MM 0 360 arc stroke xro yro i MM 0 360 arc stroke xru yru i MM 0 360 arc stroke xlo ylo i MM 0 360 arc stroke } for %i 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke i 16 eq {6 /Times-ISOL1 FS /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def x00 xdif 0 mul add MM y0o MM moveto (V) show x00 xdif 0 mul add MM y0u MM moveto (C) show x00 xdif 1 mul add MM y0o MM moveto (L) show x00 xdif 1 mul add MM y0u MM moveto (M) show x00 xdif 2 mul add MM y0o MM moveto (O) show x00 xdif 2 mul add MM y0u MM moveto (Y) show x00 xdif 3 mul add MM y0o MM moveto (Y) show x00 xdif 3 mul add MM y0u MM moveto (O) show x00 xdif 4 mul add MM y0o MM moveto (M) show x00 xdif 4 mul add MM y0u MM moveto (L) show x00 xdif 5 mul add MM y0o MM moveto (C) show x00 xdif 5 mul add MM y0u MM moveto (V) show x0l MM y00 ydif 0 mul add MM moveto (V) show x0r MM y00 ydif 0 mul add MM moveto (C) show x0l MM y00 ydif 1 mul add MM moveto (L) show x0r MM y00 ydif 1 mul add MM moveto (M) show x0l MM y00 ydif 2 mul add MM moveto (O) show x0r MM y00 ydif 2 mul add MM moveto (Y) show x0l MM y00 ydif 3 mul add MM moveto (Y) show x0r MM y00 ydif 3 mul add MM moveto (O) show x0l MM y00 ydif 4 mul add MM moveto (M) show x0r MM y00 ydif 4 mul add MM moveto (L) show x0l MM y00 ydif 5 mul add MM moveto (C) show x0r MM y00 ydif 5 mul add MM moveto (V) show } if } for %i=0,16 0 1 10 {/j0 exch def /j1 j0 1 add def %j0 j0 0 eq {tzccmy0* setcmykcolor} if j0 1 eq {0 setgray} if j0 2 eq {tzmcmy0* setcmykcolor} if j0 3 eq {0 setgray} if j0 4 eq {tzycmy0* setcmykcolor} if j0 5 eq {0 setgray} if j0 6 eq {tzocmy0* setcmykcolor} if j0 7 eq {0 setgray} if j0 8 eq {tzlcmy0* setcmykcolor} if j0 9 eq {0 setgray} if j0 10 eq {tzvcmy0* setcmykcolor} if 12 4 16 {/i exch def /i0 i def %i=0,16 %0 4 16 {/i exch def /i0 i def %i=0,16 /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke } for %i=0,16 } for %j0 0.15 MM setlinewidth /s 7 MM def /s1 8 MM def /s5 36 MM def 16 1 20 {/j exch def /j0 j 16 sub def %j=16,20 /ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def 0 1 3 {/ij exch def %ij=0,3 ij 0 eq {/ix0 xlu 8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if ij 2 eq {/ix0 xlo 8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor j 16 eq {tzan j get dup dup 0 setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tzan j get dup dup 0 setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=0,2 i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub dup dup setrgbcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=1,3 i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5 [/CIEBasedABC << %Farbraum und Grenzen fuer D65 /RangeABC [0 100 -128 127 -128 127] /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] /MatrixABC [1 1 1 1 0 0 0 0 -1] /DecodeLMN [{dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind] /WhitePoint [0.9505 1 1.089] %CIEXYZ fuer D65 >>] setcolorspace j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add setcolor %N ix0 iy0 s s rec fill } if %i*ptrsc=4,5 i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor j 16 eq {0 0 0 tzan j get setcmykcolor ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 0 0 0 tzan j get setcmykcolor ix0 iy0 s s rec fill } if %i*ptrsc=6 i*ptrsc 7 eq {%i*ptrsc=7 w* setgray j 16 eq {1 tzan j get sub setgray ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if 1 tzan j get sub setgray ix0 iy0 s s rec fill } if %i*ptrsc=7 } for %ij=0,3 } for %j=16,20 0 setgray 018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show 018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show 276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show 276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show /10TIN {10 /Times-ISOL1 FS} def /10TRN {10 /Times-Roman FS} def /12TIN {12 /Times-ISOL1 FS} def /12TRN {12 /Times-Roman FS} def /10TII {10 /TimesI-ISOL1 FS} def /10TRI {10 /Times-Italic FS} def /12TII {12 /TimesI-ISOL1 FS} def /12TRI {12 /Times-Italic FS} def /10TIB {10 /TimesB-ISOL1 FS} def /10TRB {10 /Times-Bold FS} def /12TIB {12 /TimesB-ISOL1 FS} def /12TRB {12 /Times-Bold FS} def /10TIBI {10 /TimesBI-ISOL1 FS} def /10TRBI {10 /Times-BoldItalic FS} def /12TIBI {12 /TimesBI-ISOL1 FS} def /12TRBI {12 /Times-BoldItalic FS} def %special /10TIN10 {10TIN 0 -3 rmoveto xcolor 1 eq {(10) show} if 0 3 rmoveto} def /10TINi10 {10TIN 0 -3 rmoveto (i) show xcolor 1 eq {(,10) show} if 0 3 rmoveto} def /TELi0 8 array def /TELi1 8 array def /TELi 8 array def /TELi0 [(P60) (P55) (P50) (P45) (P40) (P35) (P30) (P25)] def %7 illumin. /TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin. /xchart8 1 def %xchart8=0: Pxx, xchart8=1: Dxx 0 1 7 {/i exch def %i=0,7 xchart8 0 eq {%xchart8=0 TELi i TELi0 i get put }%xchart8=0 {%xchart8=1 TELi i TELi1 i get put } ifelse %xchart8=1 } for %i=0,7 /xchart41 0 def /xchart42 0 def 0 setgray 12TIN 61 MM 13.5 MM moveto (TUB\255Pr\374fvorlage ega0; ) showde %0ega0X-Y 0000# (TUB\255test chart ega0; ) showen %1ega0X-Y 0000# (gr\341fico TUB\255ega0; ) showes %2ega0X-Y 0000# (TUB\255test graphique ega0; ) showfr %3ega0X-Y 0000# (grafico TUB\255ega0; ) showit %4ega0X-Y 0000# (TUB\255test chart ega0; ) showjp %5ega0X-Y 0000# xchart41 0 eq {%xchart41=0 %F0,1 12TIN (Farbschwellen und Farbr\344ume; ) showde (Colour thresholds and colour spaces; ) showen (Linienelemente der Farbmetrik) showde (line elements of colourimetry) showen } if %xchart41=0 61 MM 09.5 MM moveto 12TIN xchart42 0 eq {%xchart42=0 (Vergleich der Skalierungs\255, Schwellen\255 und ) showde (Kontrastfunktionen f\374r verschiedene Anwendungen) showde (Comparison of scaling, threshold, and ) showen (contrast functions for different applications) showen } if %xchart42=0 62 MM 198.5 MM moveto 12RN tfb (http://farbe.li.tu-berlin.de/ega0/ega0l) show 12TN (0) show % LSC$ show LEX$ show tfn (; only vector graphic VG) showen (; nur Vektorgrafik VG) showde %1 setgray %start white and unvisible (; ) show xchart 0 eq { (Start\255Ausgabe) showde %0ega0X-Y 1000# (start output) showen %1ega0X-Y 1000# (comience salida) showes %2ega0X-Y 1000# (sortie de production) showfr %3ega0X-Y 1000# (cominciare l'uscita) showit %4ega0X-Y 1000# (start output) showjp %5ega0X-Y 1000# } if 62 MM 194 MM moveto (Siehe separate Bilder dieser Seite: ) showde %0ega0X-Y 2300# (see separate images of this page: ) showen %1ega0X-Y 2300# (vea archivos semejantes: ) showes %2ega0X-Y 2300# (voir des fichiers similaires: ) showfr %3ega0X-Y 2300# (vedere dei file simili: ) showit %4ega0X-Y 2300# (see similar files: ) showjp %5ega0X-Y 2300# 12RN tfb (http://farbe.li.tu-berlin.de/ega0/ega0.htm) show tfn 12TN 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien der ganzen Serie: ) showde %0ega0X-Y 2350# (see similar files of the whole serie: ) showen %1ega0X-Y 2350# (vea archivos semejantes: ) showes %2ega0X-Y 2350# (voir des fichiers similaires de serie: ) showfr %3ega0X-Y 2350# (vedere dei file simili: ) showit %4ega0X-Y 2350# (see similar files: ) showjp %5ega0X-Y 2350# 12RN tfb (http://farbe.li.tu-berlin.de/egas.htm) show tfn 12TN 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde %0ega0X-Y 2400# (technical information: ) showen %1ega0X-Y 2400# (informaci\363n t\351cnica: ) showes %2ega0X-Y 2400# (informations techniques: ) showfr %3ega0X-Y 2400# (informazioni tecniche: ) showit %4ega0X-Y 2400# (technical information: ) showjp %5ega0X-Y 2400# 12RN tfb (http://farbe.li.tu-berlin.de) show tfn 12TN ( oder ) showde %0ega0X-Y 2500# ( or ) showen %1ega0X-Y 2500# ( o ) showes %2ega0X-Y 2500# ( ou ) showfr %3ega0X-Y 2500# ( o ) showit %4ega0X-Y 2500# ( or ) showjp %5ega0X-Y 2500# 12RN tfb (http://color.li.tu-berlin.de) show tfn 12TN 90 rotate 281 MM 185 MM moveto -90 rotate (TUB\255Registrierung: 20230701\255ega0/ega0l) showde %0ega0X-Y 2600# (TUB registration: 20230701\255ega0/ega0l) showen %1ega0X-Y 2600# (TUB matr\355cula: 20230701\255ega0/ega0l) showes %2ega0X-Y 2600# (TUB enregistrement: 20230701\255ega0/ega0l) showfr %3ega0X-Y 2600# (TUB iscrizione: 20230701\255ega0/ega0l) showit %4ega0X-Y 2600# (TUB registration: 20230701\255ega0/ega0l) showjp %5ega0X-Y 2600# (0) show % LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (TUB\255Material: Code=rha4ta) showde %0ega0X-Y 2700# (TUB material: code=rha4ta) showen %1ega0X-Y 2700# (TUB material: code=rha4ta) showes %2ega0X-Y 2700# (TUB mat\351riel: code=rha4ta) showfr %3ega0X-Y 2700# (TUB materiale: code=rha4ta) showit %4ega0X-Y 2700# (TUB material: code=rha4ta) showjp %5ega0X-Y 2700# 90 rotate 277 MM 185 MM moveto -90 rotate /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def ( Anwendung f\374r Beurteilung und Messung ) showde %0ega0X-Y 2800# ( application for evaluation and measurement ) showen %1ega0X-Y 2800# ( aplicaci\363n para la medida ) showes %2ega0X-Y 2800# ( application pour la mesure ) showfr %3ega0X-Y 2800# ( la domanda per la misura ) showit %4ega0X-Y 2800# ( application for measurement ) showjp %5ega0X-Y 2800# (von Display\255 oder Druck\255Ausgabe) showde %0ega0X-Y 2900# (of display or print output) showen %1ega0X-Y 2900# (de display output) showes %2ega0X-Y 2900# (de sortie sur \350cran) showfr %3ega0X-Y 2900# (di stampa di display) showit %4ega0X-Y 2900# (of display output) showjp %5ega0X-Y 2900# 90 rotate /i0 8 def /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def 0.30 MM setlinewidth 0 setgray x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto x i0 get MM y i0 get MM lineto stroke grestore gsave %********************************************************** %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore %} for %colsepf=0,1 %} for %pchartf=0,0 %} for %xchartf=0,0 %} for %xcolorf=0,1 %} for %deintpf=0,1 %} for %colormf=0,1 %} for %lanindf=0,0 %%Trailer