%!PS-Adobe-3.0 EPSF-3.0 JE501-2A %%BoundingBox: 70 85 226 206 %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: http://130.149.60.45/~farbmetrik/JE50/) /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:2010030112000) /ModDate (D:2010030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 % !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 /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 {350 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 %0 0 25000 FMM div 17100 FMM div 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 FMM div 17100 FMM div 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz %00 1 15 {/xchart exch def %xchart=0,15 /xchartl 9 def 20 FMM div setlinewidth % xchartl 0 eq { 100 FMM div 13000 FMM div translate} if % xchartl 1 eq { 6100 FMM div 13000 FMM div translate} if % xchartl 2 eq { 100 FMM div 08750 FMM div translate} if % xchartl 3 eq { 6100 FMM div 08750 FMM div translate} if % xchartl 4 eq { 100 FMM div 4500 FMM div translate} if % xchartl 5 eq { 6100 FMM div 4500 FMM div translate} if % xchartl 6 eq { 100 FMM div 0250 FMM div translate} if % xchartl 7 eq { 6100 FMM div 0250 FMM div translate} if % xchartl 8 eq {13500 FMM div 13000 FMM div translate} if % xchartl 9 eq {19500 FMM div 13000 FMM div translate} if % xchartl 10 eq {13500 FMM div 08750 FMM div translate} if % xchartl 11 eq {19500 FMM div 08750 FMM div translate} if % xchartl 12 eq {13500 FMM div 4500 FMM div translate} if % xchartl 13 eq {19500 FMM div 4500 FMM div translate} if % xchartl 14 eq {13500 FMM div 0250 FMM div translate} if % xchartl 15 eq {19500 FMM div 0250 FMM div translate} if 0 setgray 150 FMM div /Times-ISOL1 FS 4300 FMM div -150 FMM div moveto xchartl 7 le {(JE501-) show} {(JE501-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (X) show 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 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 (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 /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 /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 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 28 ge i 75 le and } if iton 3 eq {i 20 ge i 38 le and } if iton 4 eq {i 38 ge i 39 le and } if iton 5 eq {i 19 ge i 20 le and } if iton 6 eq {i 00 ge i 78 le and } if iton 7 eq {i 00 ge i 78 le and } if {scolors k get exec setcmykcolor } {0.0 0.0 0.0 1.0 setcmykcolor} ifelse /y20m y20 def %default /y11m y11 def %default iton 3 eq {i 28 ge i 38 le and {/y20m y20 0.8 mul def /y11m y11 0.8 mul def} if} if iton 6 eq {i 38 lt i 39 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 mul def} if} if iton 7 eq {i 19 lt i 20 gt or {/y20m y20 0.3 mul def /y11m y11 0.3 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 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 27.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 25 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 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 iton 0 eq {i 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 28 ge i 75 le and } if iton 3 eq {i 20 ge i 38 le and } if iton 4 eq {i 38 ge i 39 le and } if iton 5 eq {i 19 ge i 20 le and } if iton 6 eq {i 38 ge i 39 le and } if iton 7 eq {i 19 ge i 20 le and } if {0.0 0.0 0.0 1.0 setcmykcolor} {scolors k get exec setcmykcolor } ifelse /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 iton 6 eq {i 38 lt i 39 gt or {/y20m y20 0.7 mul def /y11m y11 0.7 mul def} if} if iton 7 eq {i 0 ge i 19 lt and i 20 gt i 75 le and or {/y20m y20 0.7 mul def /y11m y11 0.7 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 20 sub 5 1 20 mul add xd mul add iy0 55 add moveto (515) show ix0 06 add 5 1 20 mul add xd mul add iy0 07 add moveto (515) 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( = 575nm) 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 (J) 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 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( = 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 } 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( = 515nm) 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 26 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 1 setgray /xm0 ix0 115 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( = 575nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBKK ( = ) show TBIKK (J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 76 sub 5 1 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 (d) show 0 3 rmoveto TBKK ( = 475nm) show xm0 ym0 00 sub moveto TBKK (Blue) showen (Blau) showde TBIKK ( B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK %serie 1 ix0 22 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show 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 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 ( J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 95 sub 5 1 20 mul add xd mul add def /ym0 iy0 75 add def xm0 ym0 16 sub moveto 62 0 rlineto 0 26 rlineto -62 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 (Blue) showen (Blau) showde TBKK ( B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK %serie 1 ix0 26 sub 5 2 20 mul add xd mul add iy0 70 add moveto (575) show 1 setgray /xm0 ix0 115 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( = 575nm) show xm0 ym0 00 sub moveto TBKK (Yellow) showen ( Gelb) showde TBKK ( = ) show TBIKK (J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 76 sub 5 1 20 mul add xd mul add def /ym0 iy0 22 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 (d) show 0 3 rmoveto TBKK ( = 475nm) show xm0 ym0 00 sub moveto TBKK (Blue) showen (Blau) showde TBIKK ( B) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK %serie 1 ix0 22 sub 5 1 20 mul add xd mul add iy0 70 add moveto (475) show 1 setgray /xm0 ix0 62 sub 5 2 20 mul add xd mul add def /ym0 iy0 22 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 ( J) show TBKS 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray /xm0 ix0 95 sub 5 1 20 mul add xd mul add def /ym0 iy0 85 add def xm0 ym0 16 sub moveto 62 0 rlineto 0 26 rlineto -62 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 (Blue) showen (Blau) showde TBKK ( B) 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 28 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 28 le and } if iton 4 eq {i 27 ge i 28 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 27 lt i 28 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 27.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 25 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 28 ge i 38 le and } if iton 2 eq {i 20 ge i 75 le and } if iton 3 eq {i 20 ge i 28 le and } if iton 4 eq {i 27 ge i 28 le and } if iton 5 eq {i 45 ge i 46 le and } if iton 6 eq {i 27 ge i 28 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 27 lt i 28 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 22 sub 5 1 20 mul add xd mul add iy0 55 add moveto (515) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show 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 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( = 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 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( = 550nm) 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 27 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 09 add 5 1 20 mul add xd mul add iy0 55 add moveto (515) 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( = 495nm) 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 25 sub 5 1 20 mul add xd mul add iy0 55 add moveto (515) 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( = 515nm) 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( = 515nm) 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 25 sub 5 1 20 mul add xd mul add iy0 70 add moveto (515) 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( = 515nm) 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( = 515nm) 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 % xchartl 0 eq { 100 neg FMM div 13000 neg FMM div translate} if % xchartl 1 eq { 6100 neg FMM div 13000 neg FMM div translate} if % xchartl 2 eq { 100 neg FMM div 08750 neg FMM div translate} if % xchartl 3 eq { 6100 neg FMM div 08750 neg FMM div translate} if % xchartl 4 eq { 100 neg FMM div 4500 neg FMM div translate} if % xchartl 5 eq { 6100 neg FMM div 4500 neg FMM div translate} if % xchartl 6 eq { 100 neg FMM div 0250 neg FMM div translate} if % xchartl 7 eq { 6100 neg FMM div 0250 neg FMM div translate} if % xchartl 8 eq {13500 neg FMM div 13000 neg FMM div translate} if % xchartl 9 eq {19500 neg FMM div 13000 neg FMM div translate} if % xchartl 10 eq {13500 neg FMM div 08750 neg FMM div translate} if % xchartl 11 eq {19500 neg FMM div 08750 neg FMM div translate} if % xchartl 12 eq {13500 neg FMM div 4500 neg FMM div translate} if % xchartl 13 eq {19500 neg FMM div 4500 neg FMM div translate} if % xchartl 14 eq {13500 neg FMM div 0250 neg FMM div translate} if % xchartl 15 eq {19500 neg FMM div 0250 neg FMM div translate} if %} for % xchart=0,15 showpage grestore } for %output with langind end %%Trailer