%!PS-Adobe-3.0 EPSF-3.0 MG070-7 %%BoundingBox: 70 83 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: MG070-7) /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@me.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !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 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def 75 85 moveto lanind cvishow (-) show colorm cvishow deintp cvishow xcolor cvishow xchart cvishow pchart cvishow colsep cvishow (-L) show pmetam cvishow gsave %LANINDL2 END 5 /Times-ISOL1 FS 180 85 moveto (MG070-7) show xchart 0 eq {(N) show} {deintp colorm 2 mul add cvishow} ifelse (, B3_13) show % ( B8311_7, M8180-7, B3_13, N=3_13) 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 350 /Times-ISOL1 FS 2100 1600 moveto (0\260) show 2000 1500 moveto 0 600 rlineto stroke 2000 2100 moveto -60 -200 rlineto 120 0 rlineto closepath fill 350 /Times-ISOL1 FS 700 1700 moveto (45\260) show 1300 2700 moveto (Messkopf) showde %0MG070-7 00512 (sensor) showen %1MG070-7 00512 (sensor) showes %2MG070-7 00512 (d\351tecteur) showfr %3MG070-7 00512 (sensore) showit %4MG070-7 00512 (sensor) showjp %5MG070-7 00512 1300 2350 moveto (oder Auge) showde %0MG070-7 01512 (or eye) showen %1MG070-7 01512 (u ojo) showes %2MG070-7 01512 (ou oeil) showfr %3MG070-7 01512 (o l'occhio) showit %4MG070-7 01512 (or eye) showjp %5MG070-7 01512 %! 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 1000 30 cos mul add 1000 30 sin mul 2000 1500 45 cos mul add 1500 45 sin mul curveto 2000 1000 60 cos mul add 1000 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 900 105 cos mul add 900 105 sin mul 2000 900 120 cos mul add 900 120 sin mul 2000 900 135 cos mul add 900 135 sin mul curveto 2000 900 150 cos mul add 900 150 sin mul 2000 900 165 cos mul add 900 165 sin mul 2000 900 180 cos mul add 900 180 sin mul curveto stroke %! Bezeichnung Reflexion 3000 1600 moveto 3970 1600 lineto stroke 3900 y00e sub 1600 x00e add moveto 3900 1600 lineto 3900 y00e sub 1600 x00e sub lineto closepath fill %! Reflexionen unter 30 Grad %! 0 setdash 2000 0 moveto 0 950 rlineto stroke 2000 0 moveto 1100 30 cos mul 1100 30 sin mul rlineto stroke 2000 0 moveto 1200 60 cos mul 1200 60 sin mul rlineto stroke 2000 0 moveto 900 120 cos mul 900 120 sin mul rlineto stroke 2000 0 moveto 900 150 cos mul 900 150 sin mul rlineto stroke 2000 0 moveto 1000 sqrt 1000 sqrt rlineto stroke 350 /Times-ISOL1 FS 300 -600 moveto (seidenmatte Oberfl\344che) showde %0MG070-7 02512 (silken weak surface) showen %1MG070-7 02512 (superficie suave) showes %2MG070-7 02512 (surface mate et soyeuse) showfr %3MG070-7 02512 (superficie serica debole) showit %4MG070-7 02512 (silken weak surface) showjp %5MG070-7 02512 3000 2600 moveto (schwach) showde %0MG070-7 03512 (weakly) showen %1MG070-7 03512 (d\351bil) showes %2MG070-7 03512 (r\351flexion) showfr %3MG070-7 03512 (debolmente) showit %4MG070-7 03512 (weakly) showjp %5MG070-7 03512 3000 2250 moveto (gerichtete) showde %0MG070-7 04512 (directional) showen %1MG070-7 04512 (reflexi\363n) showes %2MG070-7 04512 (faiblement) showfr %3MG070-7 04512 (direzionale) showit %4MG070-7 04512 (directional) showjp %5MG070-7 04512 3000 1900 moveto (Reflexion) showde %0MG070-7 05512 (reflection) showen %1MG070-7 05512 (direccional) showes %2MG070-7 05512 (dirig\351e) showfr %3MG070-7 05512 (riflessione) showit %4MG070-7 05512 (reflection) showjp %5MG070-7 05512 0 2500 moveto (Licht) showde %0MG070-7 06512 (light) showen %1MG070-7 06512 (luz) showes %2MG070-7 06512 (lumi\350re) showfr %3MG070-7 06512 (luce) showit %4MG070-7 06512 (light) showjp %5MG070-7 06512 showpage grestore %%Trailer