%!PS-Adobe-3.0 EPSF-3.0 ME170-2N %%BoundingBox: 70 83 226 206 %%old BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark02 where {pop} {userdict /pdfmark02 /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: http://130.149.60.45/~farbmetrik/ME17/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2010110112000) /ModDate (D:2010110112000) /DOCINFO pdfmark02 [ /View [ /FitB ] /DOCVIEW pdfmark02 %END PDFDE011 /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 /TKS {150 16.67 div /Times-ISOL1 FS} bind def /TKK {200 16.67 div /Times-ISOL1 FS} bind def /TK1 {230 16.67 div /Times-ISOL1 FS} 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 /TIKS {150 16.67 div /TimesI-ISOL1 FS} bind def /TIKK {200 16.67 div /TimesI-ISOL1 FS} bind def /TIK1 {230 16.67 div /TimesI-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 /TBKS {150 16.67 div /TimesB-ISOL1 FS} bind def /TBKK {200 16.67 div /TimesB-ISOL1 FS} bind def /TBK1 {230 16.67 div /TimesB-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 {335 16.67 div /TimesB-ISOL1 FS} bind def /TBIKS {150 16.67 div /TimesBI-ISOL1 FS} bind def /TBIKK {200 16.67 div /TimesBI-ISOL1 FS} bind def /TBIK1 {230 16.67 div /TimesBI-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 /SKS {200 16.67 div 1 sub /Symbol FS} bind def /SKK {200 16.67 div 1 sub /Symbol 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 {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor 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 setcmykcolor} bind def /tfl {tzl setcmykcolor} bind def /tfv {tzv setcmykcolor} bind def /tfc {tzc setcmykcolor} bind def /tfm {tzm setcmykcolor} bind def /tfy {tzy setcmykcolor} bind def /tfn {tzn setcmykcolor} bind def /tfd {tzd setcmykcolor} bind def /tfz {tzz setcmykcolor} bind def /tfh {tzh setcmykcolor} bind def /tfw {tzw setcmykcolor} bind def /tfr {tzr setcmykcolor} bind def /tfg {tzg setcmykcolor} bind def /tfb {tzb setcmykcolor} bind def /tfj {tzj setcmykcolor} bind def /tfrz {tzrz setcmykcolor} bind def /tfgz {tzgz setcmykcolor} bind def /tfbz {tzbz setcmykcolor} bind def /tfjz {tzjz setcmykcolor} 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 {setcmykcolor show} bind def /outrecfi { %x y width heigth c m y k setcmykcolor 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 setcmykcolor lineto stroke} bind def /outstroke { %px1 py1 curveto ... curveto c m y k setcmykcolor stroke} bind def /cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse 1000 mul cvi 0.001 mul 7 string cvs show} 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 /xcolorg where {pop /xcolor xcolorg def} {/xcolor 0 def} ifelse /xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse lanind1 1 lanind2 {/lanind exch def %output showpage gsave 72 90 translate /pixf 1.0 def 0.1667 pixf div MM dup scale /FMM 16.67 def 20 FMM div setlinewidth /xchartl 2 def 20 FMM div setlinewidth 0 setgray 150 FMM div /Times-ISOL1 FS 4300 FMM div -150 FMM div moveto xchartl 7 le {(ME170-2N) show} {(ME171-) show} ifelse xchartl 7 le {/ibil 0 def /iton xchartl def} {/ibil 1 def /iton xchartl 8 sub def} ifelse xchartl 00 ge xchartl 07 le and {%00<=xchartl<=07 /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 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 002 222 moveto (Monochromatische Elementarfarben) showde %08250-1 2 (monochromatic elementary colours) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 002 202 moveto (und Elementar\255K\366rperfarben) showde %08250-1 3 (and elementary surface colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /yex10 [ %Reflexion Gelb J 050 050 050 050 050 050 050 050 053 075 133 223 372 555 702 782 821 842 855 865 872 878 883 888 892 897 901 906 910 915 918 922 924 926 928 930 932 934 936 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 27 ge i 38 le and {/y20m y20 0.8 mul def /y11m y11 0.8 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (B) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (G) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 50 add lineto x10 iy01 50 add lineto closepath fill 1 setgray x10 8 sub iy01 0 add moveto 19 0 rlineto 0 15 rlineto -19 0 rlineto closepath fill 0 setgray TBIKK x10 6 sub iy01 5 add moveto (J) show TBKS 0 -3 rmoveto (m) show 0 3 rmoveto 1 setgray 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /yex10 [ %Reflexion Blau 107 107 107 115 169 282 412 450 483 445 387 317 244 180 125 086 063 050 045 043 042 042 042 042 042 043 044 045 046 053 085 148 228 308 388 468 548 628 708 ] def /yexp 77 array def 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 0.001 mul put} for 0 1 37 {/i exch def yexp i 2 mul 1 add %Werte 1,3,...,75 yex10 i get exec yex10 i 1 add get exec add 0.5 mul 0.001 mul put} for /iy01 iy0 000 add def %Spektrum III 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 20 lt {/y20m y20 0.2 mul def /y11m y11 0.2 mul def} if} if x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 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 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 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 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBKK %serie 1 ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 572nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 104 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 68 0 rlineto 0 26 rlineto -68 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 525nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 1 ix0 34 sub 5 1 20 mul add xd mul add % iy0 55 add moveto % (513) show % ix0 04 add 5 1 20 mul add xd mul add % iy0 07 add moveto % (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 92) show xm0 2 add ym0 00 sub moveto TBKK (Surface colour Yellow) showen (K\366rperfarbe Gelb) showde TBIKK ( J) show TBKS 0 -3 rmoveto (s) show 0 3 rmoveto 1 setgray /xm0 ix0 64 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 120 0 rlineto 0 26 rlineto -120 0 rlineto closepath fill 0 setgray xm0 2 add ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm, ) show TBIKK (h) show TBKS 0 -3 rmoveto (ab) show 0 3 rmoveto TBKK ( = 272) show xm0 2 add ym0 00 sub moveto TBKK (Surface colour Blue) showen (K\366rperfarbe Blau) showde TBIKK ( B) show TBKS 0 -3 rmoveto (s) show 0 3 rmoveto } if iton 3 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 20 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 95 0 rlineto 0 26 rlineto -95 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,8GJ) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 10 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 32 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto TBIKK (0,2BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 105 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 71 0 rlineto 0 26 rlineto -71 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=xBR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 25 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 102 0 rlineto 0 26 rlineto -102 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK (L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto % TBKK (Yellow Red) showen (Gelbrot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 65 0 rlineto 0 26 rlineto -65 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 1 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 50 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 92 0 rlineto 0 26 rlineto -92 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 475nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 531nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 87 0 rlineto 0 26 rlineto -87 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=JR) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 1 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 78 sub 5 2 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 45 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan ) showen (Cyan ) showde TBIKK (C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (+0,6JG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto % TBIKK (=R) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 15 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 70 0 rlineto 0 26 rlineto -70 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 575nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 106 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto % TBKK (Mixture) showen (Mischung) showde TBIKK (M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 1 ix0 03 add 5 1 20 mul add xd mul add iy0 55 add moveto (550) show ix0 30 add 5 1 20 mul add xd mul add iy0 07 add moveto (550) show 1 setgray /xm0 ix0 50 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 125 0 rlineto 0 26 rlineto -125 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 590nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK ( = ) show TBIKK (0,4JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+) show TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 105 0 rlineto 0 26 rlineto -105 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan) showen (Cyan) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (+0,6JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %00<=xchartl<=07 xchartl 08 ge xchartl 15 le and {%08<=xchartl<=15 /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 setcmykcolor %Schrift Weiss 120 006 moveto (Wellenl\344nge ) showde %08250-1 1 (wavelength ) showen %18250-1 1 (Ancho de banda ) showes %28250-1 1 (wavelength ) showfr %38250-1 1 (wavelength ) showit %48250-1 1 (wavelength ) showjp %58250-1 1 (l) outSG TBG 2 0 rmoveto (/nm) show 003 220 moveto (Spektralschablonen zur Erzeugung) showde %08250-1 2 (spectral masks for the creation) showen %18250-1 2 (Modelo espectral para producci\363n) showes %28250-1 2 (spectral masks for the creation) showfr %38250-1 2 (spectral masks for the creation) showit %48250-1 2 (spectral masks for the creation) showjp %58250-1 2 003 202 moveto xchartl 8 eq xchartl 9 eq or { (von drei additiven Optimalfarben) showde (of three additive optimal colors) showen } { (komplement\344rer Optimalfarben) showde %08250-1 3 (of complementary optimal colors) showen %18250-1 3 (optima del color complementario) showes %28250-1 3 (of complementary optimal colors) showfr %38250-1 3 (of complementary optimal colors) showit %48250-1 3 (of complementary optimal colors) showjp %58250-1 3 } ifelse /xd 4.0 def /xd2 8.0 def /ix0 33 def /iy0 44 def /yexp 77 array def 0 1 76 {/i exch def yexp i 1.0 put} for /scolors %CMYN 49 Farbkreis-Reihenfolge; 48+1 Sonder-Farben [{0.75 1.00 0.00 0.0} {0.87 1.00 0.00 0.0} {1.00 1.00 0.00 0.0} {1.00 0.87 0.00 0.0} {1.00 0.75 0.00 0.0} {1.00 0.62 0.00 0.0} {1.00 0.50 0.00 0.0} {1.00 0.37 0.00 0.0} {1.00 0.25 0.00 0.0} {1.00 0.12 0.00 0.0} {1.00 0.00 0.00 0.0} {1.00 0.00 0.12 0.0} {1.00 0.00 0.25 0.0} {1.00 0.00 0.37 0.0} {1.00 0.00 0.50 0.0} {1.00 0.00 0.62 0.0} {1.00 0.00 0.75 0.0} {1.00 0.00 0.87 0.0} {1.00 0.00 1.00 0.0} {0.87 0.00 1.00 0.0} %->1 {0.75 0.00 1.00 0.0} {0.62 0.00 1.00 0.0} {0.50 0.00 1.00 0.0} {0.37 0.00 1.00 0.0} {0.25 0.00 1.00 0.0} {0.12 0.00 1.00 0.0} {0.00 0.00 1.00 0.0} {0.00 0.12 1.00 0.0} {0.00 0.25 1.00 0.0} {0.00 0.37 1.00 0.0} {0.00 0.50 1.00 0.0} {0.00 0.62 1.00 0.0} {0.00 0.75 1.00 0.0} {0.00 0.87 1.00 0.0} {0.00 1.00 1.00 0.0} {0.00 1.00 0.87 0.0} {0.00 1.00 0.75 0.0} {0.00 1.00 0.62 0.0} {0.00 1.00 0.50 0.0} {0.00 1.00 0.37 0.0} {0.00 1.00 0.25 0.0} {0.00 1.00 0.12 0.0} {0.00 1.00 0.00 0.0} {0.12 1.00 0.00 0.0} {0.25 1.00 0.00 0.0} {0.37 1.00 0.00 0.0} {0.50 1.00 0.00 0.0} {0.62 1.00 0.00 0.0} {0.00 0.00 0.00 1.0}] def /ifa %Verteilung 48 Farben auf 65 Wellenlaengen ohne Purpur [00 00 00 01 01 01 02 02 03 03 04 04 05 05 06 06 07 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 30 31 31 32 32 33 33 34 34 34 34 34 34 34 34 35 35 35 35 35 35 35 35 35] def %black background /x10 ix0 1 xd mul add def /iy01 iy0 000 add def /iy02 iy0 150 add def 0 0 0 1 setcmykcolor x10 iy01 moveto x10 64 xd mul add iy01 lineto x10 64 xd mul add iy02 lineto x10 iy02 lineto closepath fill /iy01 iy0 100 add def %Spektrum I 3 1 66 {/i exch def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def scolors k get exec setcmykcolor x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 50 add def %Spektrum II 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 10 ge i 11 le and i 45 ge i 46 le and or} if iton 6 eq {i 00 ge i 75 le and } if iton 7 eq {i 00 ge i 75 le and } if iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 5 eq {i 45 ge i 46 le and {/y20m y20 def /y11m y11 def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 45 lt i 46 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 10 ge i 11 le and {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife /iy01 iy0 100 add def %spectrum parts BR, BG, GJ, RJ /y20m y20 def %default /y11m y11 def %default /i 19.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill /xm0 x10 45 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 26.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray % x10 iy01 moveto % x10 xd add iy01 lineto % x10 xd add iy01 y20m add lineto % x10 iy01 y11m add lineto % closepath fill /xm0 x10 24 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill % 0 setgray % xm0 01 add ym0 02 add moveto % TBIKK (BG) show % TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /i 38.5 def /x10 {ix0 i 2 sub xd mul add} bind def /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def 1 setgray % x10 iy01 moveto % x10 xd add iy01 lineto % x10 xd add iy01 y20m add lineto % x10 iy01 y11m add lineto % closepath fill 1 setgray /xm0 x10 30 sub def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 01 add ym0 02 add moveto TBIKK (JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 x10 30 add def /ym0 iy0 123 add def xm0 ym0 03 sub moveto 23 0 rlineto 0 15 rlineto -23 0 rlineto closepath fill 0 setgray xm0 ym0 02 add moveto TBIKK (JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto /iy01 iy0 00 add def %Spektrum III 3 1 66 {/i exch def /y20m y20 def %default /y11m y11 def %default /y11 {yexp i get exec 50 mul} bind def /y20 {yexp i 1 add get exec 50 mul} bind def /x10 {ix0 i 2 sub xd mul add} bind def /k {ifa i 3 sub get exec} def iton 0 eq {i 25 ge i 44 le and } if iton 1 eq {i 27 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 26 le and } if iton 4 eq {i 26 ge i 27 le and } if iton 5 eq {i 45 ge i 46 le and } if iton 6 eq {i 26 ge i 27 le and } if iton 7 eq {i 45 ge i 46 le and } if %iton 5 eq {i 10 ge i 11 le and {/y20m y20 0.3 mul def % /y11m y11 0.3 mul def} if} if iton 5 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 1.0 mul def /y11m y11 1.0 mul def} if} if iton 5 eq {i 10 eq i 11 eq or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 6 eq {i 26 lt i 27 gt or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 0 ge i 10 lt and i 11 gt i 45 lt and or i 46 gt i 75 le and or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 10 eq i 11 eq or {/y20m y20 0.5 mul def /y11m y11 0.5 mul def} if} if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse x10 iy01 moveto x10 xd add iy01 lineto x10 xd add iy01 y20m add lineto x10 iy01 y11m add lineto closepath fill } for %i-Schleife %horizontale Linien ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 050 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 100 add 273 2 fcolors 7 get exec colrecfi ix0 3 sub iy0 1 sub 150 add 273 2 fcolors 7 get exec colrecfi /tx [ (400) (500) (600) (700)] def /ix0 33 def /iy0 44 def 0.0 0.0 0.0 0.0 setcmykcolor %W ix0 18 sub iy0 050 add 20 add moveto (I) show ix0 23 sub iy0 20 add moveto (II) show TBM 1.0 0.5 0.0 0.0 setcmykcolor %Schrift B ix0 028 sub iy0 100 add 20 add moveto (UV) show 0.0 1.0 1.0 0.0 setcmykcolor %Schrift O ix0 265 add iy0 100 add 20 add moveto (IR) show TBG 0.0 0.0 0.0 0.0 setcmykcolor %Schrift Weiss 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 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 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 50 150 {/iyd exch def 10 iy0 iyd add 1 sub 300 2 fcolors 07 get exec colrecfi } for %Schleife iyd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 0 eq {TBK %serie 2 ix0 35 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 07 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 170 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 465nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 03 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 555nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 05 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 620nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 eq {TBK %serie 2 ix0 24 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 174 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 93 0 rlineto 0 26 rlineto -93 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 474nm) show xm0 ym0 00 sub moveto TBKK (Violet Blue) showen (Violettblau) showde TBIKK ( V) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 27 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 545nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Laubgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 29 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 107 0 rlineto 0 26 rlineto -107 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Orange Red) showen (Orangerot) showde TBIKK ( O) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 2 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 27 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 130 0 rlineto 0 26 rlineto -130 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 540nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBKK (+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 3 eq {TBK %serie 2 ix0 52 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 04 add 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 100 0 rlineto 0 26 rlineto -100 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK (Cyan Blue) showen (Cyanblau) showde TBIKK ( C) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=BG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 47 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 110 0 rlineto 0 26 rlineto -110 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 600nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen (Gelb) showde TBIKK ( Y) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=JG) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto TBIKK (=+JR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 172 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 60 0 rlineto 0 26 rlineto -60 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 450nm) show xm0 ym0 00 sub moveto % TBKK (Blue Red) showen (Blaurot) showde TBIKK ( BR) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK %serie 2 ix0 27 sub 5 1 20 mul add xd mul add iy0 55 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 55 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 55 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 27 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 2 ix0 23 sub 5 1 20 mul add xd mul add iy0 70 add moveto (513) show 1 setgray /xm0 ix0 52 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Green) showen (Gr\374n) showde TBIKK ( G) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 90 0 rlineto 0 26 rlineto -90 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 513nm) show xm0 ym0 00 sub moveto TBKK (Magenta Red) showen (Magentarot) showde TBIKK ( M) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 2 ix0 55 sub 5 1 20 mul add xd mul add iy0 70 add moveto (450) show ix0 80 add 5 1 20 mul add xd mul add iy0 70 add moveto (600) show 1 setgray /xm0 ix0 92 sub 5 2 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 75 0 rlineto 0 26 rlineto -75 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (c) show 0 3 rmoveto TBKK( = 494nm) show xm0 ym0 00 sub moveto TBKK ( Red) showen ( Rot) showde TBIKK ( R) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 36 sub 5 1 20 mul add xd mul add def /ym0 iy0 20 add def xm0 ym0 16 sub moveto 80 0 rlineto 0 26 rlineto -80 0 rlineto closepath fill 0 setgray xm0 ym0 12 sub moveto SKK (l) show TBKS 0 -3 rmoveto (d) show 0 3 rmoveto TBKK ( = 494nm) show xm0 ym0 00 sub moveto TBKK (Leaf Green) showen (Blattgr\374n) showde TBIKK ( L) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %08<=xchartl<=15 showpage grestore } for %output with langind end %%Trailer