%!PS-Adobe-3.0 EPSF-3.0 MI070-8 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark08 where {pop} {userdict /pdfmark08 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: MI070-8) /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:2016010112000) /ModDate (D:2016010112000) /DOCINFO pdfmark08 [ /View [ /FitB ] /DOCVIEW pdfmark08 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %%EndProlog gsave %LANINDL2 START 20000505 /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /popde {0 lanind ne {pop} if} bind def /popen {1 lanind ne {pop} if} bind def /popes {2 lanind ne {pop} if} bind def /popfr {3 lanind ne {pop} if} bind def /popit {4 lanind ne {pop} if} bind def /popjp {5 lanind ne {pop} if} bind def /popm {6 lanind ne {pop} if} bind def /popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def /popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def /popxes {/n exch def 2 lanind ne {n {pop} repeat} if} bind def /popxfr {/n exch def 3 lanind ne {n {pop} repeat} if} bind def /popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def /popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def /popxm {/n exch def 6 lanind ne {n {pop} repeat} if} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 4 def /lanind2 4 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (MI070-8) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_14) show % ( B8311_8, M8180-8, B3_14, N=3_14) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps 15 setlinewidth 0.0 0.0 0.5 0.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 5333 0 rlineto 0 4000 rlineto -5333 0 rlineto closepath stroke 666 900 translate 20 setlinewidth %! Grundrechteck 0 0 moveto 4000 0 rlineto 0 -250 rlineto -4000 0 rlineto closepath stroke %! OberflŠche 0 -250 moveto 250 250 rlineto stroke 250 -250 moveto 250 250 rlineto stroke 500 -250 moveto 250 250 rlineto stroke 750 -250 moveto 250 250 rlineto stroke 1000 -250 moveto 250 250 rlineto stroke 1250 -250 moveto 250 250 rlineto stroke 1500 -250 moveto 250 250 rlineto stroke 1750 -250 moveto 250 250 rlineto stroke 2000 -250 moveto 250 250 rlineto stroke 2250 -250 moveto 250 250 rlineto stroke 2500 -250 moveto 250 250 rlineto stroke 2750 -250 moveto 250 250 rlineto stroke 3000 -250 moveto 250 250 rlineto stroke 3250 -250 moveto 250 250 rlineto stroke 3500 -250 moveto 250 250 rlineto stroke 3750 -250 moveto 250 250 rlineto stroke %! Lichtstrahl zum Mittelpunkt 0 2000 moveto 2000 -2000 rlineto stroke %!Zahlen experimet. aus wrbuw:DINA5PF.DOC f. 50 setlinewith PostScript-Units /x45e 622 2.5 div def /y45e 289 2.5 div def /x00e 225 2.5 div def /y00e 645 2.5 div def newpath 0 setlinecap 0 setlinejoin 2 setmiterlimit %!Pfeil Mittelpunkt 750 1500 - 1/2 Linienbreite 30 -> 720 1530 250 2000 moveto 720 1530 lineto stroke 750 x45e sub 1500 y45e add moveto 720 1530 lineto 750 y45e sub 1500 x45e add lineto closepath fill %! Halbkreis [100 ] 0 setdash %! 2000 0 1000 0 180 arc stroke 2000 1000 add 0 moveto 2000 1000 15 cos mul add 1000 15 sin mul 2000 1100 30 cos mul add 1100 30 sin mul 2000 2000 45 cos mul add 2000 45 sin mul curveto 2000 1500 60 cos mul add 1500 60 sin mul 2000 1000 75 cos mul add 1000 75 sin mul 2000 900 90 cos mul add 900 90 sin mul curveto 2000 800 105 cos mul add 800 105 sin mul 2000 800 120 cos mul add 800 120 sin mul 2000 800 135 cos mul add 800 135 sin mul curveto 2000 800 150 cos mul add 800 150 sin mul 2000 800 165 cos mul add 800 165 sin mul 2000 800 180 cos mul add 800 180 sin mul curveto stroke %! Bezeichnung Reflexion 3000 2000 moveto 3970 2000 lineto stroke 3900 y00e sub 2000 x00e add moveto 3900 2000 lineto 3900 y00e sub 2000 x00e sub lineto closepath fill %! Reflexionen unter 30 Grad %! 0 setdash 2000 0 moveto 0 950 rlineto stroke 2000 0 moveto 1200 30 cos mul 1200 30 sin mul rlineto stroke 2000 0 moveto 1300 60 cos mul 1300 60 sin mul rlineto stroke 2000 0 moveto 800 120 cos mul 800 120 sin mul rlineto stroke 2000 0 moveto 800 150 cos mul 800 150 sin mul rlineto stroke 2000 0 moveto 1000 sqrt 1000 sqrt rlineto stroke 350 /Times-ISOL1 FS 300 -600 moveto (gl\344nzende Oberfl\344che) showde %0MI070-8 0057# (shiny surface) showen %1MI070-8 0057# (superficie brillante ) showes %2MI070-8 0057# (surface brillante) showfr %3MI070-8 0057# (superficie scintillante) showit %4MI070-8 0057# (glinsende overflate) showjp %5MI070-8 0057# 1500 2600 moveto (stark gerichtete) showde %0MI070-8 0157# (strongly directional) showen %1MI070-8 0157# (reflexi\363n ) showes %2MI070-8 0157# (r\351flexion) showfr %3MI070-8 0157# (fortemente direzionale) showit %4MI070-8 0157# (sterkt rettet) showjp %5MI070-8 0157# 1500 2250 moveto (Reflexion) showde %0MI070-8 0257# (reflection) showen %1MI070-8 0257# (direccional fuerte) showes %2MI070-8 0257# (fortement dirig\351) showfr %3MI070-8 0257# (riflessione) showit %4MI070-8 0257# (refleksjon) showjp %5MI070-8 0257# 0 2500 moveto (Licht) showde %0MI070-8 0357# (light) showen %1MI070-8 0357# (luz) showes %2MI070-8 0357# (lumi\350re) showfr %3MI070-8 0357# (luce) showit %4MI070-8 0357# (lys) showjp %5MI070-8 0357# showpage grestore %%Trailer