%!PS-Adobe-3.0 EPSF-3.0 OE741-3A.EPS %%BoundingBox: 70 82 430 360 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2011080112000) /ModDate (D:2011080112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %END PDFDE011 /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 /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 %*********************************************************** /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 /nshow {300 /Times-ISOL1 FS show} bind def /kshow {300 /TimesI-ISOL1 FS show} bind def /bshow {300 /TimesB-ISOL1 FS show} bind def /jshow {300 /TimesBI-ISOL1 FS show} bind def /sshow {300 /Symbol FS show} bind def /ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def /eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def /cvishow {0.5 add cvi 6 string cvs show} def /cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave %LANINDL2.EPS 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 /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 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 7 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 0 def /pchart2 2 def /pchartd 1 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 /pchart pchart1 def %pchart1 1 pchart2 {/pchart 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 /colorml colorm def %0 1 1 {/colorml exch def %colorml=0,1 /xcolorl xcolor def %0 1 3 {/xcolorl exch def %xcolorl=0,3 /xchartl xchart def 0 1 7 {/xchartl exch def %xchartl=0,7 /pchartl pchart def 0 1 2 {/pchartl exch def %pchartl=0,2 gsave xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 1 eq {/tfnx* {0 setgray} def /tfwx* {1 setgray} def /colrecfix* {setgray rec fill} bind def /colrecstx* {setgray rec stroke} bind def } if xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def /tfwx* {0 0 0 0 setcmykcolor} def /colrecfix* {setcmykcolor rec fill} bind def /colrecstx* {setcmykcolor rec stroke} bind def } if xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def /tfwx* {1 1 1 setrgbcolor} def /colrecfix* {setrgbcolor rec fill} bind def /colrecstx* {setrgbcolor rec stroke} bind def } if pchartl 1 eq {%pchart=1 72 90 translate 0.01 MM dup scale 20 setlinewidth 1.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath fill 0.0 setgray 0 0 moveto 12000 0 rlineto 0 8200 rlineto -12000 0 rlineto closepath stroke TM 00100 -240 moveto (Teil 2) showde (Part 2) showen 9500 -240 moveto (OE741-3) show (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow %(: ) show /y0 7800 def /yd 320 def 310 /TimesB-ISOL1 FS 100 y0 moveto (Discriminability of 16 step grey series by four grey definitions) showen ( (Yes/No decision)) showen (Unterscheidbarkeit von 16\255stufigen Graureihen mit 4 Definitionen) showde ( (Ja/Nein\255Entscheidung)) showde TM 400 y0 yd 1.1 mul sub moveto (Layoutbeispiel: 16\255stufige Graureihen mit vier Graudefinitionen) showde (Layout example: 16 step grey series with four grey definitions) showen TM 6000 y0 yd 2.2 mul sub moveto (There are two basic colours on each page:) showen (Es gibt zwei Grundfarben auf jeder Seite:) showde 6000 y0 yd 3.2 mul sub moveto (Black N and White W in mean grey background.) showen (Schwarz N und Wei\337 W in grauem Umfeld.) showde 6000 y0 yd 4.4 mul sub moveto (There are adjacent (upper row)) showen (Es gibt aneinandergrenzende (obere Reihe)) showde 6000 y0 yd 5.4 mul sub moveto (and separate grey samples (lower row).) showen (und separate Graumuster (untere Reihe).) showde 6000 y0 yd 6.4 mul sub moveto (This gives eight grey series.) showen (Dies erzeugt acht Graureihen.) showde 6000 y0 yd 7.6 mul sub moveto (The adjacent and separated are identical.) showen (Aneinandergrenzende und separate sind identisch.) showde 6000 y0 yd 8.6 mul sub moveto (Separated greys are less distiguishable.) showen (Separate Graus sind weniger unterscheidbar.) showde 6000 y0 yd 9.8 mul sub moveto (Any grey colour is defined by four different) showen (Jede graue Farbe ist definiert durch vier) showde 6000 y0 yd 10.8 mul sub moveto (PS\255operators in four rows) showen (verschiedene PS\255Operatoren im vier Reihen) showde /xpN 1000 def /ypN 4300 def /xsize 4400 def /ysize 4500 0.7 mul def /ysiz4 ysize 0.25 mul def xpN 650 sub ypN 400 sub moveto ( Black N) showen (Schwarz N) showde xpN xsize add 400 sub ypN 400 sub moveto (White W) showen (Wei\337 W) showde xpN 800 add ypN 400 sub moveto (16 steps, 15 differences) showen (16 Stufen, 15 Differenzen) showde newpath 0.5 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath fill 0.0 setgray xpN 150 sub ypN 100 sub moveto xsize 200 add 0 rlineto 0 ysize rlineto xsize 200 add neg 0 rlineto closepath stroke 0.3 setlinewidth 1.0 setgray xpN 100 sub ypN 100 sub ysiz4 1 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 2 mul add moveto xsize 000 sub 0 rlineto stroke xpN 100 sub ypN 100 sub ysiz4 3 mul add moveto xsize 000 sub 0 rlineto stroke /ifak 0.2 def 0 1 3 {/k exch def %k=0,3 /ypNk ypN ysiz4 k mul add def /iy0 ypNk 50 add def /s 0700 ifak mul def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j /s 1400 ifak mul def /iy0 ypNk 1500 ifak mul add def 0 1 15 {/j exch def /ix0 xpN j 1400 ifak mul mul 350 ifak mul sub add def 1 setgray ix0 iy0 s s rec fill 0 setgray ix0 iy0 s s rec stroke } for %j } for %k=0,3 0 setgray xpN 360 sub ypN 2600 add moveto (1) show xpN 360 sub ypN 1800 add moveto (2) show xpN 360 sub ypN 1000 add moveto (3) show xpN 360 sub ypN 200 add moveto (4) show /yt0 03550 def /x00 00100 def /x10 00900 def /x01 10100 def /x20 10900 def 100 yt0 moveto TBM (All) showen (Alle) showde TM ( the 16 steps of the eight series N-W should be distinguishable) showen ( 16 Stufen der acht Serien N-W sollten unterscheidbar sein) showde TBM x00 yt0 yd 1 mul sub moveto (Are all 15 grey differences of the eight rows distinguishable?) showen (Sind alle 15 Graudifferenzen der acht Reihen unterscheidbar?) showde TBM x00 8900 add yt0 yd 1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 yt0 yd 2.1 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 300 add yt0 yd 3.1 mul sub moveto (Test of adjacent grey samples (four upper rows):) showen (Pr\374fung von aneinandergrenzenden Graumustern (vier obere Reihen):) showde TM x00 300 add yt0 yd 4.1 mul sub moveto (Are the 15 grey differences of the four series distinguishable?) showen (Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde TM x00 8900 add yt0 yd 4.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 300 add yt0 yd 5.1 mul sub moveto (Only in case of "No":) showen (Nur bei "Nein":) showde TM x00 600 add yt0 yd 6.1 mul sub moveto (Are the 15 grey differences of series no. 1 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 1 unterscheidbar?) showde x00 8900 add yt0 yd 6.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 7.1 mul sub moveto (Are the 15 grey differences of series no. 2 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 2 unterscheidbar?) showde x00 8900 add yt0 yd 7.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 8.1 mul sub moveto (Are the 15 grey differences of series no. 3 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 3 unterscheidbar?) showde x00 8900 add yt0 yd 8.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde x00 600 add yt0 yd 9.1 mul sub moveto (Are the 15 grey differences of series no. 4 distinguishable?) showen (Sind die 15 Graudifferenzen der Serie Nr. 4 unterscheidbar?) showde TM x00 8900 add yt0 yd 9.1 mul sub moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde %TM %x00 300 add yt0 yd 9.2 mul sub moveto %(Test of separate grey samples (four lower rows):) showen %(Pr\374fung von separaten Graumustern (vier untere Reihen):) showde %TM %x00 300 add yt0 yd 9.2 mul sub moveto %(Are the 15 grey differences of the four series distinguishable?) showen %(Sind die 15 Graudifferenzen der vier Serien unterscheidbar?) showde %TM %x00 8900 add yt0 yd 9.2 mul sub moveto %(underline: Yes/No) showen %(unterstreiche: Ja/Nein) showde TM 00 yt0 yd 10.2 mul sub moveto (Remarks: ........................................................) showen (Anmerkungen: ....................................................) showde } if %pchartl=1 pchartl 2 eq {%pchart=2 /CMeasSxl (Measure unknown) def /CDeviceSxl (Device unknown) def /CDateSxl (Date unknown) def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def colorml 0 eq {/ilx 0 def } {%colorml=1 xchartl xchartd idiv 2 le {/ilx xchartl def} if xchartl xchartd idiv 3 eq {/ilx 4 def} if xchartl xchartd idiv 4 eq {/ilx 8 def} if xchartl xchartd idiv 5 eq {/ilx 16 def} if xchartl xchartd idiv 6 eq {/ilx 32 def} if xchartl xchartd idiv 7 eq {/ilx 64 def} if } ifelse /Xnref 0.63 ilx mul 0.9505 mul def /Ynref 0.63 ilx mul def /Znref 0.63 ilx mul 1.0890 mul def /XQ Xnref 95.05 div def /YQ Ynref 100.00 div def /ZQ Znref 108.90 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 /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp 116 mul 16 sub} ifelse def /a*ref 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 def /b*ref 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 def /L*N L*ref def /L*W 95.41 def /L*i 21 array def %different for xchartl=0,7 /a*i 21 array def /b*i 21 array def /l*i 21 array def /Yi 21 array def %equal distance between L*N and L*W 0 1 20 {/i exch def %steps from black to white i 15 le {/i0 0 def /istep 15 def} {/i0 16 def /istep 4 def} ifelse L*i i L*N L*W L*N sub i i0 sub istep div mul add put a*i i 0 put b*i i 0 put l*i i L*i i get L*N sub L*W L*N sub div put /Y* {L*i i get 16 add 116 div} bind def Yi i Y* DecodeXYZ* 100.00 mul put } for /cvishow {cvi 6 string cvs show} def 72 90 translate 0.023 MM dup scale 15 setlinewidth 0 setgray 100 /Times-ISOL1 FS 100 -90 moveto (OE741-3A) show (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow (: ) show (File: ) show CMeasSxl show (; ) show (Device: ) show CDeviceSxl show (; ) show (Date: ) show CDateSxl show 1 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath fill 0 setgray 0 0 moveto 5400 0 rlineto 0 4000 rlineto %relatives Bildfeld 54 x 40mm -5400 0 rlineto closepath stroke 0 setgray 100 /Times-ISOL1 FS 0800 0400 translate %Nullpunkt Zeichnung 0 0 moveto 4000 0 rlineto stroke 0 0 moveto 0 3200 rlineto stroke %! 100 S-Einheiten = 2000 Skalen-Einheiten 150 /TimesI-ISOL1 FS 0 -50 moveto 0 100 rlineto stroke 800 -50 moveto 0 100 rlineto stroke 1600 -50 moveto 0 100 rlineto stroke 2400 -50 moveto 0 100 rlineto stroke 3200 -50 moveto 0 100 rlineto stroke 4000 -50 moveto 0 100 rlineto stroke -300 -300 moveto (N 0,0) show 700 -300 moveto (0,25) show 1500 -300 moveto (0,50) show 2300 -300 moveto (0,75) show 3100 -300 moveto (1,00 W) show %! 100 S-Einheiten = 2000 Skalen-Einheiten -50 0 moveto 100 0 rlineto stroke -50 800 moveto 100 0 rlineto stroke -50 1600 moveto 100 0 rlineto stroke -50 2400 moveto 100 0 rlineto stroke -50 3200 moveto 100 0 rlineto stroke -530 -60 moveto (N 0,00) show -350 740 moveto (0,25) show -350 1540 moveto (0,50) show -350 2340 moveto (0,75) show -530 3140 moveto (W 1,00) show 150 /TimesI-ISOL1 FS -700 2900 moveto (w*'output) show -700 2700 moveto (w'*output) show 3000 200 moveto (w*input) show 0 setgray 0 0 moveto 3200 3200 lineto stroke [100] 0 setdash 0 3200 0.133 mul moveto 3200 3200 3200 0.0333 mul add lineto stroke 0 3200 0.133 mul neg moveto 3200 3200 3200 0.0333 mul sub lineto stroke colorml 1 eq {/xchartNl xchartl 8 idiv def /xchartPl xchartl xchartl 8 idiv 8 mul sub def /gammaNl 1 2.4 xchartNl 0.18 mul sub 2.4 div div def /gammaPl 2.4 xchartPl 0.18 mul sub 2.4 div def /gammal gammaNl gammaPl mul def } if /L*gi 21 array def %different for xchartl=0,7 /a*gi 21 array def /b*gi 21 array def /l*gi 21 array def /Ygi 21 array def %distance between L*N and L*W using gamma 0 1 20 {/i exch def %steps from black to white l*gi i l*i i get colorm 1 eq {gammal exp} if put L*gi i L*W L*N sub l*gi i get mul L*N add put a*gi i 0 put b*gi i 0 put /Y* {L*gi i get 16 add 116 div} bind def Ygi i Y* DecodeXYZ* 100.00 mul put } for 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 0 1 setrgbcolor 40 setlinewidth [100] 0 setdash 0 1 15 {/i exch def /xw l*i i get def /yw l*i i get colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 1 0 0 setrgbcolor 25 setlinewidth [50] 0 setdash %/gamma 1 xcolorl 0.075 mul sub def 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {gammal exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 1 15 {/i exch def /xw i 15 div def /yw xw colorml 1 eq {1 gammal div exp} if def xw 3200 mul yw 3200 mul i 0 eq { moveto} {lineto} ifelse } for stroke %i 0 setgray 150 /Times-ISOL1 FS -400 3450 moveto lanind 0 eq {(F\374 linearisierte Ausgabe der 16 Graustufen von ) show} if lanind 1 eq {(For linearized output of the 16 grey steps of ) show} if (Picture A7) showen (Bild A7) showde (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 100 3200 moveto ('* (dash\255star) coordinates to reach) showen ('* (Strich\255Stern)\255Koordinaten um die) showde 100 3000 moveto (the linearized output with the real) showen (linearisierte Ausgabe mit realer Display\255) showde 100 2800 moveto (display reflection in office room;) showen (Reflexion im B\374roraum zu erreichen;) showde 100 2600 moveto (lighter (positiv P) output) showen (hellere (positive P) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 100 2350 moveto (w'*) show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {gammaPl}{1 gammaNl div} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto 0 0 1 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 1400 moveto (*' (star\255dash) coordinates) showen (*' (Stern\255Strich)\255Koordinaten) showde 2500 1200 moveto (of real output with real) showen (von realer Ausgabe mit realer) showde 2500 1000 moveto (display reflection in office room;) showen (Dsplay\255Reflexion im B\374roraum;) showde 2500 0800 moveto (darker (negativ N) output) showen (dunklere (negative N) Ausgabe) showde 1 0 0 setrgbcolor 150 /TimesBI-ISOL1 FS 2500 0550 moveto (w*') show 120 /TimesB-ISOL1 FS -70 -70 rmoveto (output) show 0 70 rmoveto 150 /TimesB-ISOL1 FS ( = [) show 150 /TimesBI-ISOL1 FS (w*) show 120 /TimesB-ISOL1 FS -50 -70 rmoveto (input) show 0 70 rmoveto 150 /TimesB-ISOL1 FS (] ) show 0 70 rmoveto colorml 0 eq {(1.00) show} {xchartd 1 eq {1 gammaPl div}{gammaNl} ifelse 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=2 showpage grestore } for %pchartl=0,2 } for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer