%!PS-Adobe-3.0 EPSF-3.0 www.ps.bam.de/ZE29/10L/L29E00XX.PS 20060601 %%BoundingBox: 00 00 414 292 /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: www.ps.bam.de/ZE29/ZE29.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.Richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /Fit ] /DOCVIEW pdfmark %BEG ZE29/10L/L29N00ZED NO Output Linearization LAB* -> cmyolvnw* 20030101 %BEG OUTLIN10.PS /MTLoutaS0g 21 array def /MTLoutaS0g [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def %FILE PREPARED FOR MIXED MODE, e. g. input ORS and output TLS /IMES 0 def %0=LAB* used, no reflection factor necessary %/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection %/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray %/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor %/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor %/i*ptrsc 4 def %LAB* setcolor to lab* setcolor %/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor %/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor %/i*ptrsc 7 def %LAB* setcolor to w* setgray /ISYSLAB 0 def %default input for Offset Reflective System (ORS18) /ISYSTEM 0 def %default output for Offset Reflective System (ORS18) %/ISYSLAB 1 def %input for Television Luminous System (TLS00) %/ISYSTEM 1 def %output for Television Luminous System (TLS00) %/ISYSLAB 2 def %input for Device Reflective measurement system (DRSXX) %/ISYSTEM 2 def %output for Device Reflective measurement system (DRSXX) %/ISYSLAB 3 def %input for Television Luminous Reflection System (TLS18) %/ISYSTEM 3 def %output for Television Luminous Reflection System (TLS18) %/ISYSLAB 4 def %input for Device Luminous measurement system (DLSXX) %/ISYSTEM 4 def %output for Device Luminous measurement system (DLSXX) /iLAB 0 def % for preparing input-output system data only once %END ZE29/10L/EARLY BINDING %END ZE29/10L/L29N00ZED NO Output Linearisation (OL) LAB* -> cmyolvnw* 20030101 %BEG ZE29/10L/OUTLIN1XNA.PS MXYZ_to_LAB* 20030101 %BEG ZE29/10L/EARLY BINDING AND SYSTEM (ONLY USED IN CASE OF OL) /sggray {setgray} bind def /sgrgbcolor {setrgbcolor} bind def /sgcmykcolor {setcmykcolor} bind def /sgtransfer {settransfer} bind def /sgcolortransfer {setcolortransfer} bind def /sgcolor {setcolor} bind def %END ZE29/10L/EARLY BINDING AND SYSTEM (ONLY USED IN CASE OF OL) %INTENDED, START and LINEARIZED OUTPUT OF 16 STEP GREY (GLOBAL TO BE CHANGED) /MTLoutaS0g 21 array def /MTLoutaS1g 16 array def /MTLoutaS2g 16 array def %absolute lightness L* output %theoretical standard absolute linear L* output: no change of output %do not change the following two lines of output data /MTLoutaS0g [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41 18.01 37.36 56.71 76.06 95.41] def %theoretical absolute square root (Exp. 0.5) L* output %/MTLoutaS1g [18.0 38.0 46.3 52.6 58.0 62.7 67.0 70.9 % 74.5 78.0 81.2 83.4 87.2 90.1 92.8 95.4] def %change the following two lines for the 16 start grey CIELAB L* output data /MTLoutaS1g [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41] def %theoretical absolute half square (Exp. 1.5) L* output %/MTLoutaS2g [18.0 19.3 21.8 24.9 28.7 32.9 37.6 42.7 % 48.1 54.0 60.1 66.6 74.3 80.4 87.8 95.4] def %change the following two lines for the 16 linearized grey CIELAB L* output data /MTLoutaS2g [18.01 23.17 28.33 33.49 38.65 43.81 48.97 54.13 59.29 64.45 69.61 74.77 79.93 85.09 90.25 95.41] def %BEG Procedure special input XYZ to be transferred to LAB* /MXYZ_to_LAB* {%BEG MXYZ_to_LAB* /XD65 95.05 def /YD65 100.00 def /ZD65 108.90 def /Xwref XD65 0.8859 mul def %wref=white reference /Ywref YD65 0.8859 mul def /Zwref ZD65 0.8859 mul def /Xnref XD65 Yre 100 div mul def %nref=black reference /Ynref YD65 Yre 100 div mul def /Znref ZD65 Yre 100 div mul def 0 16 240 {/j exch def %j=0,112,16 %Asumption END point "white" /i10 j 4 mul 1 add def /i20 i10 15 4 mul add def 0 1 15 {/i exch def %i=0,15 /i2i1 i10 i 4 mul add def /i2i2 i2i1 1 add def /i2i3 i2i1 2 add def /XQ MISO_S1gXYZ i2i1 get MISO_S1gXYZ i20 0 add get div Xwref mul Xnref add XD65 div def /YQ MISO_S1gXYZ i2i2 get MISO_S1gXYZ i20 1 add get div Ywref mul Ynref add YD65 div def /ZQ MISO_S1gXYZ i2i3 get MISO_S1gXYZ i20 2 add get div Zwref mul Znref add ZD65 div def XQ 0 lt {/XQ 0.00000001 def} if YQ 0 lt {/YQ 0.00000001 def} if ZQ 0 lt {/ZQ 0.00000001 def} if MISO_S1g i2i1 YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse put MISO_S1g i2i2 XQ 0.008856 lt {7.787 XQ mul 16 116 div add} {XQ 0.33333333 exp} ifelse YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse sub 500 mul put MISO_S1g i2i3 YQ 0.008856 lt {7.787 YQ mul 16 116 div add} {YQ 0.33333333 exp} ifelse ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add} {ZQ 0.33333333 exp} ifelse sub 200 mul put } for %i=0,15 } for %j=0,240,16 } bind def %END Procedure MXYZ_to_LAB* %END ZE29/10L/OUTLIN1XNA.PS MXYZ_to_LAB* 20030101 /CFilenameS1g %START output of step S1g (www.ps.bam.de/ZE29/10L/L29E00N) def %Link file name for data /CDateS1g (2004-05-01, Name) def %Date of calculation, Tester /CDeviceS1g (unknown ) def %Device name /CMeasS1g (ZE29/10L/L29E00N) def %File name measured in step S1g %change scount2g from 2 to 10 for 10 series %change pcount2g from 8 to 240 for 240 pages of each series /scount1g 1 def /scount2g 1 def /scountg 1 def /pcount1g 1 def /pcount2g 1 def /pcountg 1 def /xchart1g 0 def /xchart2g 1 def /xchartg 0 def /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 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 /A4quer {598 0 translate 90 rotate} def %0 %1 /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 /tzank [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 %picturetransfer from standard locations (8 pictures, 5 test charts) /xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %x for chartg=0 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=1 0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0 %x for chartg=2 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %x for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %x for chartg=4 /ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 %y for chartg=0 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=1 0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0 %y for chartg=2 0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0 %y for chartg=3 0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def %y for chartg=4 %BEG 61 lines comment or new PS operators possible %02 %03 %04 %05 %06 %07 %08 %09 %11 %END 38 lines comment or new PS operators possible %%EndProlog %%BeginPageSetup /#copies 1 def %A4quer 0.5 0.5 scale /pgsave save def %%EndPageSetup 0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter gsave /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$ [(1.PS/.TXT) (B.PS/.BMP) (G.PS/.GIF) (H.PS/.HTM) (I.PS/.HTM) (J.PS/.JPE) (P.PS/.PDF) (T.PS/.TIF)] def /EY$ [(1.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT) (P.DAT) (T.DAT)] def /lanindg1 1 def /lanindg2 1 def /colormg1 0 def /colormg2 0 def /xcolorg1 0 def /xcolorg2 0 def /xchartg1 0 def /xchartg2 0 def /lanindg lanindg1 def %no loops /colormg colormg1 def /xcolorg xcolorg1 def /xchartg xchartg1 def /pcount2x pcount2g xchart2g sub 2 add def 1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10 1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250 pcountg pcount1g eq {/xchart10 0 def /xchart20 0 def} {/xchart10 1 def /xchart20 1 def} ifelse %%pcountg pcount2x eq {/xchart10 0 def /xchart20 0 def} if 0 1 0 {/xchartg exch def %2 MM /Times-Roman FS %274 MM 82 MM moveto -90 rotate (/ZE29/ ) show (Form: ) show %xchartg 1 add cvi 6 string cvs show (/) show %xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate %274 MM 65 MM moveto -90 rotate (Serie: ) show %scountg cvi 6 string cvs show (/) show %scount2g cvi 6 string cvs show (,) show 90 rotate %274 MM 55 MM moveto -90 rotate %lanindg 0 eq {(Seite: )}{(Page: )} ifelse show %pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate %274 MM 45 MM moveto %-90 rotate %lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show %scountg 1 sub pcount2g mul pcountg add %pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if %cvi 6 string cvs show %90 rotate /GSS$ SS$ lanindg get def /GSC$ SC$ colormg get def /GSX$ SX$ xcolorg get def /GSY$ SY$ xchartg get def /GEX$ EX$ 0 get def /GEY$ EY$ 0 get def /xcha801 xchartg 8 mul 0 add def /xcha803 xchartg 8 mul 1 add def /xcha805 xchartg 8 mul 2 add def /xcha807 xchartg 8 mul 3 add def /xcha811 xchartg 8 mul 4 add def /xcha813 xchartg 8 mul 5 add def /xcha815 xchartg 8 mul 6 add def /xcha817 xchartg 8 mul 7 add 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 BeginEPSF 28 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 ZE290-1N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-1) show %72 86 moveto % ( ZE290-1, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /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 (b)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (b) 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 tfv 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 tfv TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfv 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 (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) 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 (b) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (b = background) showen (b = 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 (rb) 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 {tfv} {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 86 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 ZE290-2N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-2) show %72 86 moveto % ( ZE290-2, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill /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 (rb) 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 (b)show tfw TBIM 3400 2200 moveto (L) tfw show 10 -80 rmoveto (b) 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 tfv 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 tfv TBG 0400 2750 moveto (benachbart) showde (adjacent) showen tfw TBG 0200 1000 moveto (Weber law:) showen (Weber-Gesetz) showde tfv 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 1500 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 (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) 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 (b) show 0 30 rmoveto TBk tfw 3400 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3400 2750 moveto (b = background) showen (b = 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 (rb) 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 {tfv} {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 28 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 ZE290-4N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-3) show %72 86 moveto % ( ZE290-3, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1650 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 (b)show tfw TBG 3600 1200 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 0900 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0600 moveto (separat) showde (separated) showen 30 setlinewidth tfw [ ] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 0 500 moveto 1000 0000 rlineto 2000 1000 rlineto 1000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1000 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 0 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,5 log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 0 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 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 ZE290-4N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-4) show %72 86 moveto % ( ZE290-4, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1500 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 (b)show tfw TBG 3600 1200 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 0900 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0600 moveto (separat) showde (separated) showen 30 setlinewidth tfw [ ] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 0 0 moveto 4000 2000 rlineto 0500 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1000 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,5 log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 0 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 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 ZE290-5N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-5) show %70 86 moveto % ( ZE290-5) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (rw) 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 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 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 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 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1500 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 (b)show tfw TBG 3600 1200 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 0900 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0600 moveto (separat) showde (separated) showen 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100] 0 setdash 0 0 moveto 4000 2000 rlineto 0500 0 rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1000 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,5 log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 0 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 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 ZE290-6N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-6) show %70 85 moveto % ( ZE290-6, ) show %(Scaling data for constant grey surround luminance) showen %(Skalierungsdaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show 50 0 rmoveto (D) SM TBIM 50 0 rmoveto (L) show TBK 10 -80 rmoveto (rs) 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 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 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 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 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1500 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 (b)show tfw TBG 3600 1200 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 0900 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0600 moveto (separat) showde (separated) showen 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfv [100] 0 setdash 0 000 moveto 1000 0 rlineto 2000 2000 rlineto 1000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 0 moveto 1000 500 rlineto stroke 3000 1500 moveto 1000 500 rlineto 750 0 rlineto stroke [] 0 setdash 1000 500 moveto 2000 1000 rlineto stroke [] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 % tfv tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,5 log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 1000 moveto 0 1100 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1000 moveto 0 1100 rlineto stroke %scaling tfy 1000 0500 moveto 0 1600 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 28 MM 020 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 ZE290-7N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-7) show %72 86 moveto % ( ZE290-7, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (z) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (a) show tfw TBIM 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1700 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 (b)show tfw TBG 3600 1400 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 1100 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0800 moveto (separat) showde (separated) showen 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1500 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 25 setlinewidth tfy [100] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke [ ] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (z) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy 3000 0500 moveto TBM (log) show 20 0 rmoveto TBIM (L) show TBK 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log[) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (b) show 0 80 rmoveto TBM (]) show tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051 = log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (aw) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051 = log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (as) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 0 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 86 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 ZE290-8N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-6, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE290-8) show %72 86 moveto % ( ZE290-8, ) show %(Scaling data for constant grey surround luminance) showen %(Skalierungsdaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (z) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (a) show tfw TBIM 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1700 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 (b)show tfw TBG 3600 1400 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 1100 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0800 moveto (separat) showde (separated) showen 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1500 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 25 setlinewidth tfv [100] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke [ ] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (z) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy 3000 0500 moveto TBM (log) show 20 0 rmoveto TBIM (L) show TBK 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log[) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (b) show 0 80 rmoveto TBM (]) show tfw [ ] 0 setdash /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 /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 % tfv tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051 = log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (aw) show tfy 3500 2300 moveto TBk (log \050) show 10 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 10 0 rmoveto (\051 = log) show TBIk 20 0 rmoveto (L) show TBkk 05 -30 rmoveto (as) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 0 moveto 0 2100 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 2000 moveto 0 0100 rlineto stroke %scaling tfy 1000 0000 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke grestore showpage grestore } for %output with langind end %%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 BeginEPSF 161 MM 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 ZE291-1N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-1) show %72 86 moveto % ( ZE291-1, ) show %(Threshold data for increasing grey surround luminance) showen %(Schwellendaten f\374r zunehmende graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (y) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (b) show tfw TBIM 2050 700 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3650 1500 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 (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 1088 moveto 1000 0 rlineto 2000 -0166 rlineto 1000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 1166 moveto 1000 0 rlineto 2000 -0322 rlineto 1000 0 rlineto stroke 80 setlinewidth tfr 1900 0 moveto 200 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (y) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfv TBG 3400 550 moveto (benachbart) showde (adjacent) showen tfy TBG 3400 1100 moveto (separat) showde (separated) showen tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.40} if i 1 eq {0.40} if i 2 eq {0.40} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.60} if i 1 eq {0.60} if i 2 eq {0.60} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {150 sub} if i 1 eq {150 sub} if i 2 eq {150 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show % i 0 eq {()} if % i 1 eq {()} if % i 2 eq {(100)} if % show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk % i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto i 2 eq {-40 0 rmoveto} if TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto i 0 eq {(0,5 cd/m) show} if i 1 eq {(50 cd/m) show} if i 2 eq {(5000 cd/m) show} if TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to increasing) showen (Adaptation zu zunehmender) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 05 0 rmoveto (\051=-0,16log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (b) show tfy 3500 2300 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 05 0 rmoveto (\051=-0,08log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (b) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 1166 moveto 0 1000 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 0834 moveto 0 1322 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 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 ZE291-2N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-2) show %72 86 moveto % ( ZE291-2, ) show %(Scaling data for increasing grey surround luminance) showen %(Skalierungsdaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (y) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (b) show tfw TBIM 2050 700 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3650 1500 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 (b)show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 1166 moveto 1000 0 rlineto 2000 -0322 rlineto 1000 0 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 0 1088 moveto 1000 0 rlineto 2000 -0166 rlineto 1000 0 rlineto stroke 80 setlinewidth tfr 1900 0 moveto 200 0 rlineto stroke %25 setlinewidth %2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (y) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfv TBG 3400 550 moveto (benachbart) showde (adjacent) showen tfy TBG 3400 1100 moveto (separat) showde (separated) showen tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.40} if i 1 eq {0.40} if i 2 eq {0.40} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.60} if i 1 eq {0.60} if i 2 eq {0.60} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {150 sub} if i 1 eq {150 sub} if i 2 eq {150 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show % i 0 eq {()} if % i 1 eq {()} if % i 2 eq {(100)} if % show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk % i 0 eq {(/100) show} if ix0 450 sub iy0 600 sub moveto i 2 eq {-40 0 rmoveto} if TBIk (L) tfw show TBkk 5 -30 rmoveto (b)show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto i 0 eq {(0,5 cd/m) show} if i 1 eq {(50 cd/m) show} if i 2 eq {(5000 cd/m) show} if TBkk 5 30 rmoveto (2) 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 tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to increasing) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 05 0 rmoveto (\051=-0,16log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (b) show tfy 3500 2300 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 05 0 rmoveto (\051=-0,08log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (b) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 1166 moveto 0 1000 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 0834 moveto 0 1322 rlineto stroke %scaling tfy 1000 1088 moveto 0 1000 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 0912 moveto 0 1188 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 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 ZE291-3N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-3) show %72 86 moveto % ( ZE291-3, ) 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 (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (z) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (a) show tfw TBIM 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1650 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 (b)show tfw TBG 3600 1350 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 1050 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0750 moveto (separat) showde (separated) showen tfy 3000 0450 moveto TBM (log) show 20 0 rmoveto TBIM (L) show TBK 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log[) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (b) show 0 80 rmoveto TBM (]) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1500 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 25 setlinewidth tfy [100] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash %0 000 moveto 1000 0 rlineto 2000 2000 rlineto 1500 0 rlineto stroke 0 134 moveto 1000 0 rlineto 2000 1732 rlineto 1500 0 rlineto stroke [ ] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (z) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation an konstante) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,84log) show TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (aw) show tfy 3500 2300 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 05 0 rmoveto (\051=0,84log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (as) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 134 moveto 0 1966 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1866 moveto 0 0250 rlineto stroke %scaling %tfy %1000 134 moveto 0 1966 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1866 moveto 0 0250 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 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 ZE291-4N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://o2.ps.bam.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-4) show %72 86 moveto % ( ZE291-4, ) show %(Scaling data for constant grey surround luminance) showen %(Skalierungsdaten f\374r konstante graue Umfeldleuchtdichte) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto 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 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 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 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 (z) show TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (log) show TBIM 20 0 rmoveto (L) show TBK 10 -80 rmoveto (a) show tfw TBIM 2050 800 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3600 1650 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 (b)show tfw TBG 3600 1350 moveto (Muster:) showde (Samples:) showen tfv TBG 3600 1050 moveto (benachbart) showde (adjacent) showen tfy TBG 3600 0750 moveto (separat) showde (separated) showen tfy 3000 0450 moveto TBM (log) show 20 0 rmoveto TBIM (L) show TBK 10 -80 rmoveto (as) show 0 80 rmoveto TBM (=0,5log[) show TBIM (L) show TBM (/) show TBIM (L) show TBK 10 -80 rmoveto (b) show 0 80 rmoveto TBM (]) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 000 moveto 1000 0 rlineto stroke 3000 2000 moveto 1500 0 rlineto stroke [ ] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 25 setlinewidth tfv [100] 0 setdash 1000 0 moveto 2000 2000 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 0 134 moveto 1000 0 rlineto 2000 1732 rlineto 1500 0 rlineto stroke [ ] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (z) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 % tfv tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation an konstante) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (rw) show 0 30 rmoveto TBk 10 0 rmoveto (\051=0,84log) show TBIk 10 0 rmoveto (L) show TBkk 05 -30 rmoveto (aw) show tfy 3500 2300 moveto TBk (log\050) show 05 0 rmoveto (D) Skk TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (rs) show 0 30 rmoveto TBk 05 0 rmoveto (\051=0,84log) show TBIk 05 0 rmoveto (L) show TBkk 05 -30 rmoveto (as) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 0 moveto 0 2100 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 2000 moveto 0 0100 rlineto stroke %scaling tfy 1000 0000 moveto 0 2100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 2000 moveto 0 0100 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 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 ZE291-5N.PS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-5) show %72 86 moveto % ( ZE291-5, ) show %(Threshold discriminability for constant surround luminance) showen %(Schwellenunterscheidungsverm\366gen f\374r konstante) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 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 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def 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 TBM 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 2050 600 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3700 700 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 (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke %50 setlinewidth %tfy %[100 ] 0 setdash %0 0 moveto 4000 2000 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 000 000 moveto 4000 2000 rlineto stroke %50 setlinewidth %tfv %[100 ] 0 setdash %0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy TBM 3750 1600 moveto (Stufung) showde (scaling) showen tfv TBM 3400 1200 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rw) show 0 30 rmoveto TBk 5 0 rmoveto (\051 = const) show tfy 3500 2300 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rs) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,5log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 1000 moveto 0 1100 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1000 moveto 0 1100 rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 MM 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 ZE291-6N.PS %%BoundingBox: 70 85 226 206 %! for041..56.dat aus (wrpos:ling9081.for fuer 908(0/1)(1..8)*.eps) 15.6.95 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-6) show %72 86 moveto % ( ZE291-6, ) show %(Scaling discriminability for constant surround luminance) showen %(Skalierungsunterscheidungsverm\366gen f\374r konstante) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 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 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def 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 TBM 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 2050 600 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3700 700 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 (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke %50 setlinewidth %tfy %[100 ] 0 setdash %0 0 moveto 4000 2000 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 000 000 moveto 4000 2000 rlineto stroke %50 setlinewidth %tfv %[100 ] 0 setdash %0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke [ ] 0 setdash 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy TBM 3750 1600 moveto (Stufung) showde (scaling) showen tfv TBM 3400 1200 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {110 /Times-ISOL1 FS} bind def /Tk {140 /Times-ISOL1 FS} bind def /TIkk {110 /TimesI-ISOL1 FS} bind def /TIk {140 /TimesI-ISOL1 FS} bind def /TBkk {110 /TimesB-ISOL1 FS} bind def /TBk {140 /TimesB-ISOL1 FS} bind def /TBIkk {110 /TimesBI-ISOL1 FS} bind def /TBIk {140 /TimesBI-ISOL1 FS} bind def /Skk {110 /Symbol FS show} bind def /Sk {140 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 % tfv tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rw) show 0 30 rmoveto TBk 5 0 rmoveto (\051 = const) show tfy 3500 2300 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rs) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,5log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 1000 moveto 0 1100 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1000 moveto 0 1100 rlineto stroke %scaling tfy 1000 0500 moveto 0 1600 rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 161 MM 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 ZE291-7N.PS %%BoundingBox: 70 85 226 206 %! for041..56.dat aus (wrpos:ling9081.for fuer 908(0/1)(1..8)*.eps) 15.6.95 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2006060112000) /ModDate (D:2006060112000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 20000601 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-7) show %72 86 moveto % ( ZE291-7, ) show %(Threshold discriminability for constant surround luminance) showen %(Schwellenunterscheidungsverm\366gen f\374r konstante) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 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 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def 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 TBM 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 2050 600 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3700 700 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 (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 0 moveto 4000 2000 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 000 000 166 sub moveto 4000 2000 166 2 mul add rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 1000 166 sub rlineto 3000 166 3 mul rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy TBM 3700 1700 moveto (Stufung) showde (scaling) showen tfv TBM 3400 1400 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {105 /Times-ISOL1 FS} bind def /Tk {135 /Times-ISOL1 FS} bind def /TIkk {105 /TimesI-ISOL1 FS} bind def /TIk {135 /TimesI-ISOL1 FS} bind def /TBkk {105 /TimesB-ISOL1 FS} bind def /TBk {135 /TimesB-ISOL1 FS} bind def /TBIkk {105 /TimesBI-ISOL1 FS} bind def /TBIk {135 /TimesBI-ISOL1 FS} bind def /Skk {105 /Symbol FS show} bind def /Sk {135 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 100 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 000 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 tfv ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rw) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,16log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rs) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,58log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold tfv 1000 1000 133 sub moveto 0 1100 133 add rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1000 133 add moveto 0 1100 133 sub rlineto stroke %scaling %tfy %1000 0550 moveto 0 1600 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1550 moveto 0 0600 rlineto stroke grestore showpage grestore } for %output with langind end %%Trailer %%EndDocument EndEPSF grestore gsave BeginEPSF 219 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 28 %line 499 %!PS-Adobe-3.0 EPSF-3.0 ZE291-8N.PS %%BoundingBox: 70 85 226 206 %! for041..56.dat aus (wrpos:ling9081.for fuer 908(0/1)(1..8)*.eps) 15.6.95 %START PDFDE011.EPS /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: B9081_2, E8211-7, B4_30, N=4_30) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://o2.ps.bam.de or http://trappist.kb.bam.de/ps) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@bam.de) /CreationDate (D:2000010512000) /ModDate (D:2000010512000) /DOCINFO pdfmark [ /View [ /FitB ] /DOCVIEW pdfmark %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach %%BoundingBox: 72 90 226 204 % !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 /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 /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} bind def %%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 /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 /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave %LANINDL2 END 5 /Times-ISOL1 FS 200 85 moveto (ZE291-8) show %72 86 moveto % ( ZE291-8, ) show %(Scaling discriminability for constant surround luminance) showen %(Skalierungsunterscheidungsverm\366gen f\374r konstant) showde %5 /TimesI-ISOL1 FS %( L) show %4 /Times-ISOL1 FS %0 -1 rmoveto (b) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /tfn 0.0 setgray /tfz 0.5 setgray /tfw 1.0 setgray /tfy 1 1 0 setrgbcolor /tfv 0 0 1 setrgbcolor /tfr 1 0 0 setrgbcolor tfz 0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto closepath fill tfw 050 3725 moveto TBM (log \050) show TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 TBIM 50 0 rmoveto (L) show TBM 10 0 rmoveto (/) 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 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 [(-2) (-1) ( 0) ( 1) ( 2) ( 3) ( 4)] def /ix0 2300 def /iy0 0100 def /ilx 4200 def /ily 1050 def 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 TBM 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 2050 600 moveto (L) TBIM show TBK 10 -80 rmoveto (rb) show 0 80 rmoveto TBM 20 0 rmoveto (=) show TBM 20 0 rmoveto (1) show tfw TBIM 3700 700 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 (b) show 30 setlinewidth tfw [100] 0 setdash 2000 0 moveto 0 1000 rlineto -2000 0 rlineto stroke 50 setlinewidth tfy [100 ] 0 setdash 0 0 moveto 4000 2000 rlineto stroke 50 setlinewidth tfy [ ] 0 setdash 000 000 166 sub moveto 4000 2000 166 2 mul add rlineto stroke 50 setlinewidth tfv [100 ] 0 setdash 0 000 moveto 1000 1000 rlineto 3000 0 rlineto stroke 50 setlinewidth tfv [ ] 0 setdash 0 000 moveto 1000 1000 166 sub rlineto 3000 166 3 mul rlineto stroke 80 setlinewidth tfr 1500 0 moveto 750 0 rlineto stroke 25 setlinewidth 2100 0 moveto 100 100 rlineto stroke tfw 2200 150 moveto TBIM (x) show TBK 10 -80 rmoveto (o) show 0 80 rmoveto TBM ( Office luminance range) showen ( B\374ro\255Leuchtdichtebereich) showde tfy TBM 3750 1700 moveto (Stufung) showde (scaling) showen tfv TBM 3400 1400 moveto (Schwellen) showde (threshold) showen tfw [ ] 0 setdash /Tkk {105 /Times-ISOL1 FS} bind def /Tk {135 /Times-ISOL1 FS} bind def /TIkk {105 /TimesI-ISOL1 FS} bind def /TIk {135 /TimesI-ISOL1 FS} bind def /TBkk {105 /TimesB-ISOL1 FS} bind def /TBk {135 /TimesB-ISOL1 FS} bind def /TBIkk {105 /TimesBI-ISOL1 FS} bind def /TBIk {135 /TimesBI-ISOL1 FS} bind def /Skk {105 /Symbol FS show} bind def /Sk {135 /Symbol FS show} bind def /iyl 2350 def /iy0 iyl 400 add def 0 1 2 {/i exch def %i=0,2 /ixl 600 i 1000 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.05} if i 1 eq {0.45} if i 2 eq {0.85} if setgray % ix0 iy0 100 090 270 arc fill ix0 150 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.20} if i 1 eq {0.55} if i 2 eq {0.95} if setgray % ix0 iy0 100 270 090 arc fill ix0 050 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 (rb) show 0 30 rmoveto TBk (=) show TBk (1) show ix0 i 0 eq {300 sub} if i 1 eq {150 sub} if i 2 eq {300 sub} if iy0 300 sub moveto TBIk (L) tfw show TBk (=) show i 0 eq {()} if i 1 eq {()} if i 2 eq {(100)} if show TBIk (L) tfw show TBkk 5 -30 rmoveto (rb) show 0 30 rmoveto TBk i 0 eq {(/100) show} if ix0 400 sub iy0 600 sub moveto TBIk (L) tfw show TBkk 5 -30 rmoveto (b) show 0 30 rmoveto TBk (=) show TBk 20 0 rmoveto (50 cd/m) show TBkk 5 30 rmoveto (2) 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 % tfv tfy ixl 50 sub iyl 50 sub moveto 900 0 rlineto 0 900 rlineto -900 0 rlineto closepath stroke } for %i=0,2 tfw 25 iy0 600 sub moveto (Example:) showen (Beisp.:) showde TBk 3100 3450 moveto (Adaptation to constant) showen (Adaptation zu konstanter) showde 3100 3300 moveto (background luminance) showen (Umfeld\255Leuchtdichte) showde TBIk ( L) show TBkk 10 -30 rmoveto (b) show 0 30 rmoveto 3500 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 (b) show 0 30 rmoveto TBk tfw 3500 2900 moveto (w = white border) showen (w = wei\337er Rahmen) showde 3500 2750 moveto (b = background) showen (b = Umfeld) showde tfv 3500 2500 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rw) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,16log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show tfy 3500 2300 moveto TBk (log\050) show TBIk 0 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 0 30 rmoveto TBk 0 0 rmoveto (/) show 0 0 rmoveto (D) Skk TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (rs) show 0 30 rmoveto TBk 5 0 rmoveto (\051=0,58log) show TBIk 5 0 rmoveto (L) show TBkk 5 -30 rmoveto (r) show 30 setlinewidth [100] 0 setdash %threshold %tfv %1000 1000 moveto 0 1100 rlineto stroke %2000 1000 moveto 0 1100 rlineto stroke %3000 1000 moveto 0 1100 rlineto stroke %scaling tfy 1000 0500 066 sub moveto 0 1600 066 add rlineto stroke 2000 1000 moveto 0 1100 rlineto stroke 3000 1550 066 add moveto 0 0600 066 sub rlineto stroke 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 20060601 %%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 /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 /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /i*ptrsc where {pop %/i*ptrsc i*ptrsc def } {/i*ptrsc 0 def} ifelse gsave /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse /scountg where {pop /scount scountg def} {/scount 1 def} ifelse %xchart 0 eq {%beg if xchart=0 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 /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 xlu 8 MM sub ylu moveto 16 MM 0 rlineto stroke xlu ylu 8 MM sub moveto 0 58 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 0 setgray 12 /Times-ISOL1 FS 61 MM 09 MM moveto (Model relation between Weber and Stevens law at threshold) showen (Modellbeziehung der Gesetze: Weber und Stevens an Schwelle) showde 12 /Times-ISOL1 FS 61 MM 13 MM moveto (BAM\255test chart no. ZE29; Luminance discrimination) showen (BAM\255Pr\374fvorlage Nr. ZE29; Leuchtdichte-Unterscheidung) showde %xchart cvishow %1 setgray %start white and unvisible %140 MM 13 MM moveto %lanindg 0 eq {(Stufe: ) show}{(Step: ) show} ifelse %LSC$ (N) eq {(S1) show} {(S2) show} ifelse %0 setgray %end white and unvisible 172 MM 13 MM moveto (input: ) show 12 /Times-Italic FS (cmy0* setcmykcolor) show 12 /Times-ISOL1 FS 172 MM 9 MM moveto (output: ) show 12 /Times-Italic FS LSC$ (N) eq { (no change compared to input) show } if %1 setgray %start white and unvisible LSC$ (S) eq { (Startup (S) data dependend) show } if LSC$ (F) eq { 12 /Times-Italic FS i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if i*ptrsc 4 eq {(lab* setcolor) show} if i*ptrsc 5 eq {(LAB* setcolor) show} if i*ptrsc 6 eq {(000n* setcmykcolor) show} if i*ptrsc 7 eq {(w* setgray) show} if } if %0 setgray %end white and unvisible 12 /Times-ISOL1 FS 62 MM 198.5 MM moveto (www.ps.bam.de/ZE29/L29) show LSS$ show (00) show LSC$ show LEX$ show %1 setgray %start white and unvisible (; ) show LSC$ (N) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (C) eq { (Start\255Ausgabe) showde (start output) showen (start output) showes (start output) showfr (start output) showit (start output) showjp (start output) showm } if LSC$ (F) eq { (Linearisierte\255Ausgabe) showde (linearized output) showen (linearized output) showes (linearized output) showfr (linearized output) showit (linearized output) showjp (linearized output) showm } if 62 MM 194 MM moveto LSC$ (N) eq LSC$ (C) eq or { (N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp (N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm } {LSC$ show (: ) show (Ausgabe\255Linearisierung (OL\255Daten) ) showde (Output Linearization (OL) data ) showen (Output Linearization (OL) data ) showes (Output Linearization (OL) data ) showfr (Output Linearization (OL) data ) showit (Output Linearization (OL) data ) showjp (Output Linearization (OL) data ) showm (ZE29/L29) show LSS$ show (00) show LSC$ show LEY$ show } ifelse LSC$ (F) eq { ( in der Datei (F)) showde ( in File (F)) showen ( in File (F)) showes ( in File (F)) showfr ( in File (F)) showit ( in File (F)) showjp ( in File (F)) showm } if LSC$ (S) eq { ( im Distiller Startup (S) Directory) showde ( in Distiller Startup (S) Directory) showen ( in Distiller Startup (S) Directory) showes ( in Distiller Startup (S) Directory) showfr ( in Distiller Startup (S) Directory) showit ( in Distiller Startup (S) Directory) showjp ( in Distiller Startup (S) Directory) showm } if LSC$ (D) eq { ( in PostScript Device (D)) showde ( in PostScript Device (D)) showen ( in PostScript Device (D)) showes ( in PostScript Device (D)) showfr ( in PostScript Device (D)) showit ( in PostScript Device (D)) showjp ( in PostScript Device (D)) showm } if LSC$ (T) eq { ( von Distiller Startup (S) Directory) showde ( of Distiller Startup (S) Directory) showen ( of Distiller Startup (S) Directory) showes ( of Distiller Startup (S) Directory) showfr ( of Distiller Startup (S) Directory) showit ( of Distiller Startup (S) Directory) showjp ( of Distiller Startup (S) Directory) showm } if LSC$ (E) eq { ( von PostScript Device (D)) showde ( of PostScript Device (D)) showen ( of PostScript Device (D)) showes ( of PostScript Device (D)) showfr ( of PostScript Device (D)) showit ( of PostScript Device (D)) showjp ( of PostScript Device (D)) showm } if %0 setgray %end white and unvisible 16 MM 185 MM moveto -90 rotate (Siehe \344hnliche Dateien: ) showde (See for similar files: ) showen (See for similar files: ) showes (See for similar files: ) showfr (See for similar files: ) showit (See for similar files: ) showjp (See for similar files: ) showm (http://www.ps.bam.de/ZE29/; www.ps.bam.de/ZE.HTM) show 90 rotate 12 MM 185 MM moveto -90 rotate (Technische Information: ) showde (Technical information: ) showen (Informaci\363n t\351cnica en: ) showes (Technical information: ) showfr (Technical information: ) showit (Technical information: ) showjp (Technical information: ) showm (http://www.ps.bam.de) show 90 rotate 12 MM 103 MM moveto -90 rotate (Version 2.1, io=1,) show LSC$ (N) eq {(1) show} if LSC$ (S) eq {(1?) show} if LSC$ (D) eq {(1?) show} if LSC$ (F) eq {i*ptrsc cvishow ISYSLAB 0 eq {IMES 0 eq {(; iORS) show} {(; iLRS) show} ifelse} if ISYSLAB 1 eq {IMES 0 eq {(; iTLS) show} {(; iTRS) show} ifelse} if ISYSLAB 2 eq {IMES 0 eq {(; iDLS) show} {(; iDRS) show} ifelse} if ISYSLAB 3 eq {IMES 0 eq {(; iTLR) show} {(; iTLS) show} ifelse} if ISYSLAB 4 eq {IMES 0 eq {(; iDRS) show} {(; iDLS) show} ifelse} if ISYSTEM 0 eq {IMES 0 eq {(; oORS) show} {(; oLRS) show} ifelse} if ISYSTEM 1 eq {IMES 0 eq {(; oTLS) show} {(; oTRS) show} ifelse} if ISYSTEM 2 eq {IMES 0 eq {(; oDLS) show} {(; oDRS) show} ifelse} if ISYSTEM 3 eq {IMES 0 eq {(; oTLR) show} {(; oTLS) show} ifelse} if ISYSTEM 4 eq {IMES 0 eq {(; oDRS) show} {(; oDLS) show} ifelse} if IMES 0 eq {(, CIELAB) show} {(, CIEXYZ) show} ifelse } if 90 rotate 281 MM 185 MM moveto -90 rotate (BAM\255Registrierung: 20060601\255ZE29/L29) showde (BAM registration: 20060601\255ZE29/L29) showen (BAM registration: 20060601\255ZE29/L29) showes (BAM registration: 20060601\255ZE29/L29) showfr (BAM registration: 20060601\255ZE29/L29) showit (BAM registration: 20060601\255ZE29/L29) showjp (BAM registration: 20060601\255ZE29/L29) showm LSS$ show (00) show LSC$ show LEX$ show 90 rotate 281 MM 74 MM moveto -90 rotate (BAM\255Material: Code=rha4ta) showde (BAM material: code=rha4ta) showen (BAM material: code=rha4ta) showes (BAM material: code=rha4ta) showfr (BAM material: code=rha4ta) showit (BAM material: code=rha4ta) showjp (BAM material: code=rha4ta) showm 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 Messung von Drucker- oder Monitorsystemen) showde ( application for measurement of printer or monitor systems) showen ( application for measurement of printer or monitor systems) showes ( application for measurement of printer or monitor systems) showfr ( application for measurement of printer or monitor systems) showit ( application for measurement of printer or monitor systems) showjp ( application for measurement of printer or monitor systems) showm IMES 1 eq LSC$ (N) ne and { %IMES=1 (, Yr=) show Yre cvsshow1 (, XYZ) show } if %IMES=1 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 %} if %end if xchart=0 /xlu1 013 MM def /ylu1 010 MM def /xro1 283 MM def /yro1 200 MM def /xlo1 013 MM def /ylo1 200 MM def /xru1 283 MM def /yru1 010 MM def xlu1 4 MM sub ylu1 moveto 8 MM 0 rlineto stroke xlu1 ylu1 4 MM sub moveto 0 8 MM rlineto stroke xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke xru1 4 MM sub yru1 moveto 8 MM 0 rlineto stroke xru1 yru1 4 MM sub moveto 0 8 MM rlineto stroke xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke %} for %output with xchart end %} for %output with colorm end %} for %output with xcolor end %} for %output with lanind end %%Trailer %%EndDocument EndEPSF grestore gsave showpage grestore } for %end for xchartg=xchartg1,xchartg2 } for %end for pcountg=pcountg1,pcount2g } for %end for scountg=scountg1,scount2g %%Trailer