%!PS-Adobe-3.0 EPSF-3.0 NE241-3 %%BoundingBox: 70 83 226 206 %old BoundingBox: 72 90 226 204 %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: NE241-3) /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 pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %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 /str {8 string } bind def /TK {250 16.67 div /Times-ISOL1 FS} bind def /TM {300 16.67 div /Times-ISOL1 FS} bind def /TG {350 16.67 div /Times-ISOL1 FS} bind def /TIK {250 16.67 div /TimesI-ISOL1 FS} bind def /TIM {300 16.67 div /TimesI-ISOL1 FS} bind def /TIG {350 16.67 div /TimesI-ISOL1 FS} bind def /TBK {250 16.67 div /TimesB-ISOL1 FS} bind def /TBM {300 16.67 div /TimesB-ISOL1 FS} bind def /TBG {350 16.67 div /TimesB-ISOL1 FS} bind def /TBIK {250 16.67 div /TimesBI-ISOL1 FS} bind def /TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def /TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def /SK {250 16.67 div 1 sub /Symbol FS} bind def /SM {300 16.67 div 1 sub /Symbol FS} bind def /SG {350 16.67 div 1 sub /Symbol FS} bind def /tolvfcol %Farbkreis-Reihenfolge [ (000) (F00) (FF0) (0F0) (0FF) (00F) (F0F) (FFF) (777) (700) (770) (070) (077) (007) (707) (F07) %15=R (333) (F77) (FF7) (7F7) (7FF) (77F) (F7F) (07F) %23=B (BBB) (F70) (7F0) (0F7) (07F) (70F) (F07) (0F7) %31=G ] def /tcmyfcol %Farbkreis-Reihenfolge [ (FFF) (0FF) (00F) (F0F) (F00) (FF0) (0F0) (000) (888) (8FF) (88F) (F8F) (F88) (FF8) (8F8) (0F8) %15=R (CCC) (088) (008) (808) (800) (880) (080) (F80) %23=B (444) (08F) (80F) (F08) (F80) (8F0) (0F8) (F08) %31=G ] def /tcmykfcol %Farbkreis-Reihenfolge [ (000F) (0FF0) (00F0) (F0F0) (F000) (FF00) (0F00) (0000) (0008) (0FF8) (00F8) (F0F8) (F008) (FF08) (0F08) (0F80) %15=R (000C) (0880) (0080) (8080) (8000) (8800) (0800) (F800) %23=B (0004) (0F80) (80F0) (F080) (F800) (8F00) (0F80) (F080) %31=G ] def /tolvfcols %Farbkreis-Reihenfolge [ (000*) (F00*) (FF0*) (0F0*) (0FF*) (00F*) (F0F*) (FFF*) (777*) (700*) (770*) (070*) (077*) (007*) (707*) (F07*) %15=R (333*) (F77*) (FF7*) (7F7*) (7FF*) (77F*) (F7F*) (07F*) %23=B (BBB*) (F70*) (7F0*) (0F7*) (07F*) (70F*) (F07*) (0F7*) %31=G ] def /tcmyfcols %Farbkreis-Reihenfolge [ (FFF*) (0FF*) (00F*) (F0F*) (F00*) (FF0*) (0F0*) (000*) (888*) (8FF*) (88F*) (F8F*) (F88*) (FF8*) (8F8*) (0F8*) %15=R (CCC*) (088*) (008*) (808*) (800*) (880*) (080*) (F80*) %23=B (444*) (08F*) (80F*) (F08*) (F80*) (8F0*) (0F8*) (F08*) %31=G ] def /tcmykfcols %Farbkreis-Reihenfolge [ (000F*) (0FF0*) (00F0*) (F0F0*) (F000*) (FF00*) (0F00*) (0000*) (0008*) (0FF8*) (00F8*) (F0F8*) (F008*) (FF08*) (0F08*) (0F80*) %15=R (000C*) (0880*) (0080*) (8080*) (8000*) (8800*) (0800*) (F800*) %23=B (0004*) (0F80*) (80F0*) (F080*) (F800*) (8F00*) (0F80*) (F080*) %31=G ] def /fcolors %CMYN 32 Testfarben Nr. 0 bis 31; Farbkreis-Reihenfolge [{0.0 0.0 0.0 1.0} {0.0 1.0 1.0 0.0} {0.0 0.0 1.0 0.0} {1.0 0.0 1.0 0.0} {1.0 0.0 0.0 0.0} {1.0 1.0 0.0 0.0} {0.0 1.0 0.0 0.0} {0.0 0.0 0.0 0.0} {0.0 0.0 0.0 0.5} {0.0 1.0 1.0 0.5} {0.0 0.0 1.0 0.5} {1.0 0.0 1.0 0.5} {1.0 0.0 0.0 0.5} {1.0 1.0 0.0 0.5} {0.0 1.0 0.0 0.5} {0.0 1.0 0.5 0.0} {0.0 0.0 0.0 0.75} {0.0 0.5 0.5 0.0} {0.0 0.0 0.5 0.0} {0.5 0.0 0.5 0.0} {0.5 0.0 0.0 0.0} {0.5 0.5 0.0 0.0} {0.0 0.5 0.0 0.0} {1.0 0.5 0.0 0.0} {0.0 0.0 0.0 0.25} {0.0 0.5 1.0 0.0} {0.5 0.0 1.0 0.0} {1.0 0.0 0.5 0.0} {1.0 0.5 0.0 0.0} {0.5 1.0 0.0 0.0} {0.0 1.0 0.5 0.0} {1.0 0.0 0.5 0.0} ] def /fak 0.5 def /Far %Farbkreis-Reihenfolge [ 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 %R 16 17 18 19 20 21 22 23 %B 24 25 26 27 28 29 30 31 %G ] def /cFar %Kompensativ-Farbkreis-Reihenfolge [ 8 4 5 6 1 2 3 0 0 20 21 22 17 18 19 31 %G 24 12 13 14 9 10 11 2 %J 16 28 29 30 25 26 27 15 %R ] def /Btx %Farbkreis- -> %Btx-Reihenfolge [ 0 1 3 2 5 6 4 7 8 9 11 10 13 14 12 15 %R 16 17 19 18 21 22 20 23 %B 24 25 26 27 28 29 30 31 %G ] def /cBtx %Farbkreis- -> %Kompensativ-Btx-Reihenfolge [ 7 4 6 5 2 3 1 0 8 20 22 21 18 19 17 31 %G 24 12 14 13 10 11 9 2 %J 16 25 26 27 28 29 30 15 %R ] def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzl {1.0 0.0 1.0 0.0} bind def /tzv {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben /tzg {1.0 0.0 0.5 0.0} bind def /tzb {1.0 0.5 0.0 0.0} bind def /tzj {0.0 0.0 1.0 0.0} bind def /tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut /tzgz {1.0 0.0 0.5 0.5} bind def /tzbz {1.0 0.5 0.0 0.5} bind def /tzjz {0.0 0.0 1.0 0.5} bind def /tfo {tzo setcmyk_olvcolor} bind def /tfl {tzl setcmyk_olvcolor} bind def /tfv {tzv setcmyk_olvcolor} bind def /tfc {tzc setcmyk_olvcolor} bind def /tfm {tzm setcmyk_olvcolor} bind def /tfy {tzy setcmyk_olvcolor} bind def /tfn {tzn setcmyk_olvcolor} bind def /tfd {tzd setcmyk_olvcolor} bind def /tfz {tzz setcmyk_olvcolor} bind def /tfh {tzh setcmyk_olvcolor} bind def /tfw {tzw setcmyk_olvcolor} bind def /tfr {tzr setcmyk_olvcolor} bind def /tfg {tzg setcmyk_olvcolor} bind def /tfb {tzb setcmyk_olvcolor} bind def /tfj {tzj setcmyk_olvcolor} bind def /tfrz {tzrz setcmyk_olvcolor} bind def /tfgz {tzgz setcmyk_olvcolor} bind def /tfbz {tzbz setcmyk_olvcolor} bind def /tfjz {tzjz setcmyk_olvcolor} bind def %ANFA OUTLIN00 951204 /pixf 1.0 def /ueg 1 pixf mul def /uek 1 pixf mul def /ues 1 pixf mul def /pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def /pss ues def /outxshowf {show} bind def /outxshow {show} bind def /outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def /outshowf {setcmyk_olvcolor show} bind def /outrecfi { %x y width heigth c m y k setcmyk_olvcolor rec fill} bind def /outrecfi4 { %x y width heigth c m y k outrecfi} bind def /outrecfi3 { %x y width heigth c m y k outrecfi} bind def /outrecfi2 { %x y width heigth c m y k outrecfi} bind def /outlinetos { %px py c m y k setcmyk_olvcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmyk_olvcolor stroke} bind 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 (NE241-3, B6_22) show % ( B8680_3, M8371-3, B6_22, N=6_22) show 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 320 240 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau TBG %Schrift Times-Bold-Gross 0.0 0.0 0.0 0.0 setcmyk_olvcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08371-3 1 (wavelength ) showen %18371-3 1 (Ancho banda ) showes %28371-3 1 (wavelength ) showfr %38371-3 1 (wavelength ) showit %48371-3 1 (wavelength ) showjp %58371-3 1 (l) outSG TBG 2 0 rmoveto (/nm) show 003 220 moveto TBIG (T) show TBG (\050) show (l) outSG TBG (\051 Transmissionsfaktor) showde %08371-3 2 (\051 transmission factor) showen %18371-3 2 (\051 Factor de transmisi\363n) showes %28371-3 2 (\051 transmission factor) showfr %38371-3 2 (\051 transmission factor) showit %48371-3 2 (\051 transmission factor) showjp %58371-3 2 /xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 46 def /tx [ (400) (500) (600) (700)] def /ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 37 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec colrecfi } for %Schleife iyd 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd /yexpr [ %Reflexion %TF16 0 GRAD 007 009 019 043 055 058 065 075 085 096 109 114 105 089 073 061 054 053 062 079 096 103 091 067 042 025 022 025 032 045 069 097 131 166 204 204 204 204 204 ] def /yexpg [ %Reflexion %TF17, 0 GRAD, 380-760nm, 10nm, S.27 059 061 108 199 239 247 262 280 303 329 352 369 366 352 330 308 296 300 319 349 375 385 368 330 284 249 240 249 269 304 341 381 417 452 480 480 480 480 480 ] def /yexpj [ %Reflexion %TF17, +6 GRAD, 380-760nm, 10nm, S.27 117 114 200 367 445 469 481 497 518 538 554 566 569 569 564 557 554 557 566 579 595 610 621 623 618 618 618 623 631 637 647 654 660 667 673 673 673 673 673 ] def %Farbe J 2 1 33 {/i exch def /y10 {iy0 yexpj i get exec 0.150 mul add} bind def /y20 {iy0 yexpj i 1 add get exec 0.150 mul add} bind def /x10 {ix0 i 2 sub xd2 mul add} bind def /x20 {ix0 i 1 sub xd2 mul add} bind def x10 y10 moveto x20 y20 3 setlinewidth tzj outlinetos 2 setlinewidth } for %i-Schleife %Farbe R 2 1 33 {/i exch def /y10 {iy0 yexpr i get exec 0.150 mul add} bind def /y20 {iy0 yexpr i 1 add get exec 0.150 mul add} bind def /x10 {ix0 i 2 sub xd2 mul add} bind def /x20 {ix0 i 1 sub xd2 mul add} bind def x10 y10 moveto x20 y20 tzr outlinetos } for %i-Schleife %Farbe G 2 1 33 {/i exch def /y10 {iy0 yexpg i get exec 0.150 mul add} bind def /y20 {iy0 yexpg i 1 add get exec 0.150 mul add} bind def /x10 {ix0 i 2 sub xd2 mul add} bind def /x20 {ix0 i 1 sub xd2 mul add} bind def x10 y10 moveto x20 y20 tzg outlinetos } for %i-Schleife 0.0 0.0 0.0 0.0 setcmyk_olvcolor %W TBM 90 200 moveto (Standard\255Aufnahmelichtart) showde %08371-3 3 (standard taking illuminant) showen %18371-3 3 (Tipo standard\255grabaci\363n de luz) showes %28371-3 3 (standard taking illuminant) showfr %38371-3 3 (standard taking illuminant) showit %48371-3 3 (standard taking illuminant) showjp %58371-3 3 90 182 moveto (Farbtemperatur 5500 K) showde %08371-3 4 (color temperature 5500 K) showen %18371-3 4 (temperatura del color 5500 K) showes %28371-3 4 (color temperature 5500 K) showfr %38371-3 4 (color temperature 5500 K) showit %48371-3 4 (color temperature 5500 K) showjp %58371-3 4 050 160 moveto (DIN\255Testfarbe) showde %08371-3 5 (DIN\255testcolor) showen %18371-3 5 (DIN\255Testcolor) showes %28371-3 5 (DIN\255testcolor) showfr %38371-3 5 (DIN\255testcolor) showit %48371-3 5 (DIN\255Testcolor) showjp %58371-3 5 050 142 moveto (und Belichtung:) showde %08371-3 6 (and exposure:) showen %18371-3 6 (y exposici\363n:) showes %28371-3 6 (and exposure:) showfr %38371-3 6 (and exposure:) showit %48371-3 6 (and exposure:) showjp %58371-3 6 180 150 moveto (Nr. 17, +6 GRAD) popde %08371-3 7 (no. 17, +6 GRAD) popen %18371-3 7 (Nr. 17, +6 GRAD) popes %28371-3 7 (no. 17, +6 GRAD) popfr %38371-3 7 (no. 17, +6 GRAD) popit %48371-3 7 (no. 17, +6 GRAD) popjp %58371-3 7 tzy outshowf 163 113 moveto (Nr. 17, 0 GRAD) popde %08371-3 8 (no. 17, 0 GRAD) popen %18371-3 8 (Nr. 17, 0 GRAD) popes %28371-3 8 (no. 17, 0 GRAD) popfr %38371-3 8 (no. 17, 0 GRAD) popit %48371-3 8 (no. 17, 0 GRAD) popjp %58371-3 8 tzg outshowf 150 065 moveto (Nr. 16, 0 GRAD) popde %08371-3 9 (no. 16, 0 GRAD) popen %18371-3 9 (Nr. 16, 0 GRAD) popes %28371-3 9 (no. 16, 0 GRAD) popfr %38371-3 9 (no. 16, 0 GRAD) popit %48371-3 9 (no. 16, 0 GRAD) popjp %58371-3 9 tzr outshowf showpage grestore } for %output with langind end %%Trailer