%!PS-Adobe-3.0 EPSF-3.0 OG831-3N.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 %*********************************************************** /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 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 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 10 def /pchart2 10 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 11 {/pchartl exch def %xchartl=0,11 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 10 eq {%pchartl=10 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 (OG831-3N) show (\255) show colorml cvishow xcolorl cvishow xchartd 1 eq {xchartl cvishow} {xchartl xchartd idiv cvishow} ifelse (\255) show pchartl cvishow %(: ) show /y0 7900 def /yd 320 def TBG 100 y0 moveto (Discriminability of 16 step colour series (Yes/No decision)) showen (Unterscheidbarkeit von 16\255stufigen Farbreihen (Ja/Nein\255Entscheidung)) showde TM 400 y0 yd 1.1 mul sub moveto (Layoutbeispiel: drei 16\255stufige Farbreihen) showde (Layout example: three 16 step colour series) showen TM 6200 y0 yd 2.0 mul sub moveto (There are three basic colours on each page:) showen (Es gibt drei Grundfarben auf jeder Seite:) showde 6200 y0 yd 3.0 mul sub moveto (Black N, White W and Chromatic X.) showen (Schwarz N, Wei\337 W und Bunt X.) showde 6200 y0 yd 4.2 mul sub moveto (Ten pages include 10 hue planes) showen (Zehn Seiten enthalten 10 Bunttonebenen) showde 6200 y0 yd 5.2 mul sub moveto (X = OYLCVM and RJGB.) showen (X = OYLCVM und RJGB.) showde 6200 y0 yd 6.2 mul sub moveto (There are at maximum 45 distinguashable steps.) showen (Es gibt maximal 45 unterscheidbare Stufen.) showde /xp 1800 def /yp 7300 def xp 1300 sub yp 100 sub moveto (White W) showen (Wei\337 W) showde xp 2100 add yp 1100 sub moveto (Chromatic X) showen (Bunt X) showde xp 1400 sub yp 2100 sub moveto ( Black N) showen (Schwarz N) showde xp yp 2000 sub moveto 2000 1000 rlineto -2000 1000 rlineto closepath stroke TM xp 1000 add yp 0350 sub moveto (16 steps, 15 differences) showen (16 Stufen, 15 Differenzen) showde xp 1000 add yp 1850 sub moveto (16 steps, 15 differences) showen (16 Stufen, 15 Differenzen) showde xp 1300 sub yp 1200 sub moveto (16 steps) showen (16 Stufen) showde /xpN xp def /ypN yp 2000 sub def /xpW xp def /ypW yp def /xpC xp 2000 add def /ypC yp 1000 sub def newpath /xm 2000 15 div def 0 1 15 {/i exch def /xi xp def /yi ypN xm i mul add def xi yi 050 0 360 arc fill /xi xp xm i mul add def /yi ypN xm 0.5 mul i mul add def xi yi 050 0 360 arc fill /xi xpC xm i mul sub def /yi ypC xm 0.5 mul i mul add def xi yi 050 0 360 arc fill } for /yd0 04850 def 100 yd0 moveto TBM (All) showen (Alle) showde TM ( steps of the three series N-W, W-X and X-N should be distinguishable on) showen ( Stufen der drei Serien N-W, W-X und X-N sollen unterscheidbar sein auf) showde TBM ( all) showen TM ( pages.) showen TBM ( allen) showde TM ( Seiten.) showde /yt0 03800 def /x00 00100 def /x10 00300 def /x01 10100 def /x20 10900 def TBM x00 yt0 yd 2.2 mul add moveto (Are the three 16step series distinguishable on all pages?) showen (Sind die drei 16\255stufigen Reihen auf allen Seiten unterscheidbar?) showde TBM x00 8900 add yt0 yd 2.2 mul add moveto (underline: Yes/No) showen (unterstreiche: Ja/Nein) showde TM x00 yt0 yd 1.0 mul add moveto (only in case of No: ) showen (Nur im Fall von Nein: ) showde (Are the three 16 step series on Page x of 10 pages distinguishable?) showen (Sind die drei 16\255stufigen Reihen auf Seite x von 10 Seiten unterscheidbar?) showde x10 yt0 yd 0 mul sub moveto (Underline Yes/No and give in case of No the number) showen ( of distinguishable steps?) showen (Unterstreiche Ja/Nein und gib im Fall von Nein die Anzahl) showde ( unterscheidbarer Stufen an) showde x10 yt0 yd 1 mul sub moveto (Page 1: Yes/No, if No ../45 ) showen (step differences are distinguashable of O = Orange Red) showen (Seite 1: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von O = Orangerot) showde x10 yt0 yd 2 mul sub moveto (Page 2: Yes/No, if No ../45 ) showen (step differences are distinguashable of Y = Yellow) showen (Seite 2: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von Y = Gelb) showde x10 yt0 yd 3 mul sub moveto (Page 3: Yes/No, if No ../45 ) showen (step differences are distinguashable of L = Leaf green) showen (Seite 3: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von L = Laubgr\374n) showde x10 yt0 yd 4 mul sub moveto (Page 4: Yes/No, if No ../45 ) showen (step differences are distinguashable of C = Cyan blue) showen (Seite 4: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von C = Cyanblau) showde x10 yt0 yd 5 mul sub moveto (Page 5: Yes/No, if No ../45 ) showen (step differences are distinguashable of V = Violett blue) showen (Seite 5: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von V = Violettblau) showde x10 yt0 yd 6 mul sub moveto (Page 6: Yes/No, if No ../45 ) showen (step differences are distinguashable of M = Magenta Red) showen (Seite 6: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von M = Magentarot) showde x10 yt0 yd 7 mul sub moveto (Page 7: Yes/No, if No ../45 ) showen (step differences are distinguashable of R = Elementary Red) showen (Seite 7: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von R = Elementarrot) showde x10 yt0 yd 8 mul sub moveto (Page 8: Yes/No, if No ../45 ) showen (step differences are distinguashable of J = Elementary yellow) showen (Seite 8: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von J = Elementargelb) showde x10 yt0 yd 9 mul sub moveto (Page 9: Yes/No, if No ../45 ) showen (step differences are distinguashable of G = Elemantary Green) showen (Seite 9: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von G = Elementargr\374n) showde x10 yt0 yd 10 mul sub moveto (Page 10: Yes/No, if No ../45 ) showen (step differences are distinguashable of B = Elementary blue) showen (Seite 10: Ja/Nein, wenn Nein ../45 ) showde (Stufendifferenzen sind unterscheidbar von B = Elementarblau) showde x00 yt0 yd 10.6 mul sub moveto (----------------------------------------------------) show x00 yt0 yd 11.3 mul sub moveto (Sum: ../10 Yes\255Pages and) showen ( .../450 step differences are distingishable) showen (Summe: ../10 Ja\255Seiten und) showde ( .../450 Stufendifferenzen unterscheidbar) showde } if %pchartl=10 pchartl 11 eq {%pchart=11 /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 (OG831-3N) 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 xchartNl 0.18 mul add def /gammaPl 1 1 xchartPl 0.18 mul add 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 % 150 /TimesBI-ISOL1 FS %050 2450 moveto %(gammal) show % 150 /TimesB-ISOL1 FS %( = ) show %2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show %( = 2.4 x ) show %gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show 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} {gammal 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 % 150 /TimesBI-ISOL1 FS %2500 0550 moveto %(gammal) show % 150 /TimesB-ISOL1 FS %( = ) show %2.4 gammal mul 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show %( = 2.4 x ) show %gammal 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show 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} {1 gammal div 0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show } ifelse 0 -70 rmoveto -0800 -0400 translate %Nullpunkt Zeichnung } if %pchartl=11 showpage grestore %} for %pchartl=0,11 %} for %xchartl=0,7 %} for %xcolorl=0,3 %} for %colorml=0,1 %%Trailer