%!PS-Adobe-3.0 EPSF-3.0 NE380-5 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 226 206 %START PDFDE011.EPS /pdfmark05 where {pop} {userdict /pdfmark05 /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: NE380-5) /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 pdfmark05 [ /View [ /FitB ] /DOCVIEW pdfmark05 %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 /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 %%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 180 85 moveto (NE380-5, B8_45_1) show % ( B7111_1, M8530-5, B8_45_1, N=8_45_1) show 72 90 translate 0.01 MM 0.01 MM scale %d2:[rr.b4f]bausz8y.eps /ausz 8 def 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 0 2800 moveto 5333 0 rlineto 0 1200 rlineto -5333 0 rlineto closepath stroke /KLa {/yu exch def /xu exch def 400 /Symbol FS xu yu moveto (\346) show xu yu yd 1 mul sub moveto (\347) show xu yu yd 2 mul sub moveto (\350) show} bind def /KLz {/yu exch def /xu exch def 400 /Symbol FS xu yu moveto (\366) show xu yu yd 1 mul sub moveto (\367) show xu yu yd 2 mul sub moveto (\370) show} bind def /TE3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def 350 /Times-ISOL1 FS xu yu moveto T1 show xu yu yd 1 mul sub moveto T2 show xu yu yd 2 mul sub moveto T3 show} bind def /TEk3 {/T3 exch def /T2 exch def /T1 exch def /yu exch def /xu exch def 350 /TimesI-ISOL1 FS xu yu moveto T1 show xu yu yd 1 mul sub moveto T2 show xu yu yd 2 mul sub moveto T3 show} bind def /nshow {350 /Times-ISOL1 FS show} bind def /kshow {350 /TimesI-ISOL1 FS show} bind def /yd 400 def /yD 800 def /y1 2400 def /y2 1000 def %Titeltext 50 3700 moveto (CIEBased) nshow 25 0 rmoveto (ABC-) kshow (Farbraum in PSL2) popde %08530-5 1 (color space in PSL2) popen %18530-5 1 (espacio\255color\255PSL2) popes %28530-5 1 (color space in PSL2) popfr %38530-5 1 (color space in PSL2) popit %48530-5 1 (color space in PSL2) popjp %58530-5 1 nshow 50 3700 yd sub moveto (LMN* / OLV* / RGB*) kshow ( -> ) nshow (XYZ) kshow 50 3700 yD sub moveto (EBU\255Bildschirm\255Phosphore, D65) popde %08530-5 2 (EBU\255screen phosphors, D65) popen %18530-5 2 (EBU\255Pantalla\255Fosforo, D65) popes %28530-5 2 (EBU\255screen phosphors, D65) popfr %38530-5 2 (EBU\255screen phosphors, D65) popit %48530-5 2 (EBU\255screen phosphors, D65) popjp %58530-5 2 nshow %LMN* -> LMN 300 y1 (L) (M) (N) TEk3 1000 y1 (=) (=) (=) TE3 1500 y1 moveto (Decode) nshow (L*) kshow 1500 y1 yd sub moveto (Decode) nshow (M*) kshow 1500 y1 yD sub moveto (Decode) nshow (N*) kshow 3400 y1 (=) (=) (=) TE3 3800 y1 ({2.2 exp}) ({2.2 exp}) ({2.2 exp}) TE3 %LMN -> XYZ % vgl. aus Mayer, Rundfunkt. Mitteil. 16 (1972), H.6, S.253 % vgl. NTSC-Daten aus PSL2 Adobe, Techn. Note #5122, S. 4 % Matching RGB Color from Monitor to Printer 100 y2 KLa 250 y2 (X) (Y) (Z) TEk3 450 y2 KLz 700 y2 () (=) () TE3 950 y2 KLa 1050 y2 (0,4303) (0,2219) (0,0202) TE3 2175 y2 (0,3416) (0,7068) (0,1296) TE3 3300 y2 (0,1782) (0,0713) (0,9387) TE3 4200 y2 KLz 4425 y2 () (\327) () TE3 4650 y2 KLa 4800 y2 (L) (M) (N) TEk3 5050 y2 KLz showpage grestore } for %output with langind end %%Trailer