%!PS-Adobe-3.0 EPSF-3.0 NE340-7 %%BoundingBox: 70 83 390 534 %old BoundingBox: 72 90 390 534 %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: NE340-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 % 54 Zeilen + Titel-Rand (16) = 54*8+16 = 448; 90+432+16 = 538 % 158,0 mm = 158,0*72/25.4 = 448 % !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 /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 340 85 moveto (NE340-7, B8_27) show % ( B7253_7, M8480-7, B8_27, N=8_27 2x4) show 72 90 translate /yhoe 15650 def 0.01 MM 0.01 MM scale /ausz 8 def 15 setlinewidth %2X4 0.2 0.0 0.0 0.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath fill 0.0 0.0 0.0 1.0 setcmyk_olvcolor 0 0 moveto 11200 0 rlineto 0 yhoe rlineto -11200 0 rlineto closepath stroke 0 yhoe 450 sub moveto 11200 0 rlineto 0 450 rlineto -11200 0 rlineto closepath stroke /TES {270 /Courier FS /anz exch def /ydt exch def /y0t exch def /x0t exch def} bind def /TEA {0 1 anz 1 sub {ydt mul y0t add x0t exch moveto show} for} bind def %Titeltext 350 /Times-ISOL1 FS 50 yhoe 350 sub moveto (PSL1\255Programmcode: Farbbild ) showde %08480-7 1 (und \255ausz\374ge mit vier Grundfarben CMYN) showde %08480-7 11 (PSL1\255program code: color image ) showen %18480-7 1 (and separations with 4 basic colors CMYN) showen %18480-7 11 (PSL1\255Lenguaje: Imagen a color\255) showes %28480-7 1 (separaciones con 4 colores basicos CMYN) showes %28480-7 11 (PSL1\255program code: color image ) showfr %38480-7 1 (and separations with 4 basic colors CMYN) showfr %38480-7 11 (PSL1\255program code: color image ) showit %48480-7 1 (and separations with 4 basic colors CMYN) showit %48480-7 11 (PSL1\255program code: color image ) showjp %58480-7 1 (and separations with 4 basic colors CMYN) showjp %58480-7 11 /yd24 {3600 13 div} bind def %y-Zeilenabstand /x0 200 def %untere x-Textecke /y0 200 def %untere y-Textecke lanind 0 eq {%difde x0 y0 yd24 93 39 sub TES %anz=54 (%!PS-Adobe-3.0 d2:[rr.p9f]B7251-7n.eps/B9481-8N.eps 12.2.96) (%%BoundingBox: 72 90 226 204) (/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) (/FS {findfont exch scalefont setfont} bind def) (/MM {72 25.4 div mul} def /str {8 string } bind def) (%%EndProlog) ( ) (72 90 translate 0.01 MM 0.01 MM scale) (/ausz 4 def %Farbauszug 0=C, 1=M, 2=Y, 3=N, 4=F) (/recfi {/heigth exch def /width exch def /ys exch def /xs exch def) ( xs ys moveto width 0 rlineto) ( 0 heigth rlineto width neg 0 rlineto closepath) ( ausz 0 eq { pop pop pop 1 exch sub setgray %C) ( 060 135 {pop} setscreen fill } if) ( ausz 1 eq { pop pop 1 exch sub setgray pop %M) ( 060 090 {pop} setscreen fill } if) ( ausz 2 eq { pop 1 exch sub setgray pop pop %Y) ( 060 000 {pop} setscreen fill } if) ( ausz 3 eq { 1 exch sub setgray pop pop pop %N) ( 060 045 {pop} setscreen fill } if) ( ausz 4 eq { setcmyk_olvcolor) ( 060 135 {pop} 060 090 {pop} 060 000 {pop} %F) ( 060 045 {pop} setcolorscreen fill} if} bind def) ( ausz 3 ge {0.0 0.0 0.0 0.5 0 0 5400 4000 recfi}) ( {0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000) ( rlineto -5400 0 rlineto closepath stroke} ifelse) ( ausz 3 ge {1.0 setgray 300 /Times-ISOL1 FS 100 3600 moveto) ( (Grund-, Mischfarben, Flaechendeckung) show } if) (/xyw {4000 12 div} bind def /xw {5 xyw mul} bind def) (/x01 {5 xyw mul} bind def /y0 {1.2 xyw mul} bind def) (/x02 {10 xyw mul} bind def) (/colors1 %CMYN der Farbstreifen von unten nach oben) ([{1.0 0.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 1.0 0.0}) ( {0.0 1.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 1.0 0.0 0.0}) ( {1.0 1.0 1.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 1.0}] bind def) (/colors2) ([{0.5 0.0 0.0 0.0} {0.0 0.5 0.0 0.0} {0.0 0.0 0.5 0.0}) ( {0.0 0.5 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.5 0.0 0.0}) ( {0.5 0.5 0.5 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5}] bind def) (0 1 8 {/i exch def colors1 i get exec) ( x01 i xyw mul y0 add xw xyw recfi} for) (0 1 8 {/i exch def colors2 i get exec) ( x02 i xyw mul y0 add xw xyw recfi} for) (ausz 3 ge {1.0 setgray 300 /TimesI-ISOL1 FS) (/N8 (C M Y O=M+Y L=C+Y V=C+M C+M+Y W N ) def) (0 1 8 {/nr exch def nr xyw mul y0 add x01 1300 sub exch) (moveto 40 0 N8 nr 6 mul 6 getinterval ashow}for 300 /Times-Roman FS) (x01 400 add y0 300 sub moveto (100) show 30 0 rmoveto (%) show) (x02 600 add y0 300 sub moveto (70) show 30 0 rmoveto (%) show} if) ( ) (showpage) TEA } if %ifde lanind 1 ge {%difen x0 y0 yd24 93 39 sub TES %anz=54 (%!PS-Adobe-3.0 d2:[rr.p9f]B7251-7n.eps/B9481-8N.eps 12.2.96) (%%BoundingBox: 72 90 226 204) (/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) (/FS {findfont exch scalefont setfont} bind def) (/MM {72 25.4 div mul} def /str {8 string } bind def) (%%EndProlog) ( ) (72 90 translate 0.01 MM 0.01 MM scale) (/ausz 4 def %color separation 0=C, 1=M, 2=Y, 3=N, 4=F) (/recfi {/heigth exch def /width exch def /ys exch def /xs exch def) ( xs ys moveto width 0 rlineto) ( 0 heigth rlineto width neg 0 rlineto closepath) ( ausz 0 eq { pop pop pop 1 exch sub setgray %C) ( 060 135 {pop} setscreen fill } if) ( ausz 1 eq { pop pop 1 exch sub setgray pop %M) ( 060 090 {pop} setscreen fill } if) ( ausz 2 eq { pop 1 exch sub setgray pop pop %Y) ( 060 000 {pop} setscreen fill } if) ( ausz 3 eq { 1 exch sub setgray pop pop pop %N) ( 060 045 {pop} setscreen fill } if) ( ausz 4 eq { setcmyk_olvcolor) ( 060 135 {pop} 060 090 {pop} 060 000 {pop} %F) ( 060 045 {pop} setcolorscreen fill} if} bind def) ( ausz 3 ge {0.0 0.0 0.0 0.5 0 0 5400 4000 recfi}) ( {0.0 setgray 0 0 moveto 5400 0 rlineto 0 4000) ( rlineto -5400 0 rlineto closepath stroke} ifelse) ( ausz 3 ge {1.0 setgray 300 /Times-ISOL1 FS 100 3600 moveto) ( (basic colors, mixed colors, area coverage) show } if) (/xyw {4000 12 div} bind def /xw {5 xyw mul} bind def) (/x01 {5 xyw mul} bind def /y0 {1.2 xyw mul} bind def) (/x02 {10 xyw mul} bind def) (/colors1 %CMYN color rows from bottom to top) ([{1.0 0.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 1.0 0.0}) ( {0.0 1.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 1.0 0.0 0.0}) ( {1.0 1.0 1.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 1.0}] bind def) (/colors2) ([{0.5 0.0 0.0 0.0} {0.0 0.5 0.0 0.0} {0.0 0.0 0.5 0.0}) ( {0.0 0.5 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.5 0.0 0.0}) ( {0.5 0.5 0.5 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5}] bind def) (0 1 8 {/i exch def colors1 i get exec) ( x01 i xyw mul y0 add xw xyw recfi} for) (0 1 8 {/i exch def colors2 i get exec) ( x02 i xyw mul y0 add xw xyw recfi} for) (ausz 3 ge {1.0 setgray 300 /TimesI-ISOL1 FS) (/N8 (C M Y O=M+Y L=C+Y V=C+M C+M+Y W N ) def) (0 1 8 {/nr exch def nr xyw mul y0 add x01 1300 sub exch) (moveto 40 0 N8 nr 6 mul 6 getinterval ashow}for 300 /Times-Roman FS) (x01 400 add y0 300 sub moveto (100) show 30 0 rmoveto (%) show) (x02 600 add y0 300 sub moveto (70) show 30 0 rmoveto (%) show} if) ( ) (showpage) TEA } if %ifen showpage grestore } for %output with langind end %%Trailer