%!PS-Adobe-3.0 EPSF-3.0 NE241-5
%%BoundingBox: 70 83 226 206
%old BoundingBox: 72 90 226 204

%START PDFDE011.EPS
/pdfmark15 where {pop} {userdict /pdfmark15 /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-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 pdfmark15
[ /View [ /FitB ]
/DOCVIEW pdfmark15
%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-5, B6_24) show %    ( B8680_5, M8371-5, B6_24, N=6_24) 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-5 1
(wavelength ) showen                                            %18371-5 1
(Ancho banda ) showes                                           %28371-5 1
(wavelength ) showfr                                            %38371-5 1
(wavelength ) showit                                            %48371-5 1
(wavelength ) showjp                                            %58371-5 1
(l) outSG TBG 2 0 rmoveto (/nm) show
 
003 220 moveto TBG
(Breitband\255Scanner\255Spektralwerte) showde                  %08371-5 2
(wide band scanner spectral values) showen                      %18371-5 2
(Valor espectral del scanner de banda) showes                   %28371-5 2
(wide band scanner spectral values) showfr                      %38371-5 2
(wide band scanner spectral values) showit                      %48371-5 2
(wide band scanner spectral values) showjp                      %58371-5 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 [ %o reeller scanner 380-760nm, 10nm
 000 000 000 000 000 000 000 000 000 000
 000 000 000 000 000 000 000 000 010 130
 550 900 999 930 820 670 360 110 030 010
 005 000 000 000 000 000 000 000 000  ] def
/yexpg [ %l reeller scanner 380-760nm, 10nm
 000 000 000 000 000 000 000 000 000 000 000
 005 018 150 550 890 999 900 700 470 240
 085 030 010 005 000 000 000 000 000 000
 000 000 000 000 000 000 000 000 000 ] def
/yexpb [ %v reeller scanner 380-760nm, 10nm
 000 000 000 005 100 380 670 870 999 810
 420 165 060 020 010 005 000 000 000 000
 000 000 000 000 000 000 000 000 000 000
 000 000 000 000 000 000 000 000 000 ] def
 
2 setlinewidth
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
y10 iy0 gt y20 iy0 gt or {x10 y10 moveto x20 y20 tzo outlinetos} if
} for %i-Schleife
 
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
y10 iy0 gt y20 iy0 gt or {x10 y10 moveto x20 y20 tzl outlinetos} if
} for %i-Schleife
 
2 1 33 {/i exch def
/y10 {iy0 yexpb i get exec 0.150 mul add} bind def
/y20 {iy0 yexpb 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
y10 iy0 gt y20 iy0 gt or {x10 y10 moveto x20 y20 tzv outlinetos} if
} for %i-Schleife
 
TBIG
210 195 moveto (o) tzo outshowf
-10 10 rmoveto (-) tzo outshowf 0 -10 rmoveto
(\050) tzo outshowf tfo (l) outSG TBG (\051) tzo outshowf
 
TBIG
163 195 moveto (l) tzl outshowf
-10 13 rmoveto (-) tzl outshowf 0 -13 rmoveto
(\050) tzl outshowf tfl (l) outSG TBG (\051) tzl outshowf
 
TBIG
098 195 moveto (v) tzv outshowf
-10 10 rmoveto (-) tzv outshowf 0 -10 rmoveto
(\050) tzv outshowf tfv (l) outSG TBG (\051) tzv outshowf
 
showpage
grestore
} for %output with langind end
%%Trailer