%!PS-Adobe-3.0 EPSF-3.0 KE531-8A %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark01 where {pop} {userdict /pdfmark01 /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:) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://www.li.tu-berlin.de) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009070112000) /ModDate (D:2009070112000) /DOCINFO pdfmark01 [ /View [ /FitB ] /DOCVIEW pdfmark01 %END PDFDE011 %%Creator: K. Richter, BAM und TU Berlin, 2000.01.04 %%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach % !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 /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 /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 /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 /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 /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 150 FMM div /Times-ISOL1 FS %100 FMM div -150 FMM div moveto (KE531-8A) show %00 1 15 {/xchart exch def %xchart=0,15 /xchartl 15 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 {(KE531-) show} {(KE531-) 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 (A) show %A xchartl 7 le {/ibil 0 def /iton xchartl def} {/ibil 1 def /iton xchartl 8 sub def} ifelse /ausz 8 def 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 110 006 moveto (Wellenl\344nge ) showde %08141-8 1 (wavelength ) showen %18141-8 1 (Ancho de banda ) showes %28141-8 1 (wavelength ) showfr %38141-8 1 (wavelength ) showit %48141-8 1 (wavelength ) showjp %58141-8 1 (l) outSG TBG 2 0 rmoveto (/nm) show 003 221 moveto TBIG (R) show TBG (\050) show (l) outSG TBG (\051 ) show (Reflexionsfaktor ) showde %08141-8 2 (reflection factor ) showen %18141-8 2 (Factor de reflexi\363n ) showes %28141-8 2 (reflection factor ) showfr %38141-8 2 (reflection factor ) showit %48141-8 2 (reflection factor ) showjp %58141-8 2 /xd 4.0 def /xd2 8.0 def /ix0 45 def /iy0 45 def /yex10 39 array def /yex05 78 array def /yexp 78 array def /yex10R [ %Reflexion Elementary Red R 050 050 050 050 050 050 050 048 047 046 046 046 045 045 046 046 047 048 048 054 108 259 464 645 770 843 880 901 913 921 928 933 936 938 940 942 944 946 948] def /yex10J [ %Reflexion Elementary Yellow 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 /yex10G [ %Reflexion Elementary Green G 048 048 048 048 048 048 048 049 079 212 399 519 549 523 465 388 305 225 160 108 070 052 046 045 044 044 044 045 046 047 054 097 287 377 467 557 647 737 827 ] def /yex10B [ %Reflexion Elementary Blue B 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 /yex05R [ %78 Reflexion Elementary Red R: 377.5_757.5 999 999 999 999 999 999 999 999 999 999 %10 377.5_422.5 999 999 999 999 999 999 999 999 999 999 %20 427.5_472.5: 472.5=0 000 000 000 000 000 000 000 000 000 000 %30 477.5_522.5; 477.5=1 000 000 000 000 000 000 000 000 000 000 %40 527.5_572.5; 572.5=1 999 999 999 999 999 999 999 999 999 999 %50 577.5_622.5; 577.5=0 999 999 999 999 999 999 999 999 999 999 %60 627.5_672.5 999 999 999 999 999 999 999 999 999 999 %70 677.5_722.5 999 999 999 999 999 999 999 999 ] def %78 727.5_772.5 /yex05J [ %78 Reflexion Elementary Yellow J 000 000 000 000 000 000 000 000 000 000 %10 000 000 000 000 000 000 000 000 000 000 %20 000 000 000 000 000 999 999 999 999 999 %30 497.5=0, 502.5=1 999 999 999 999 999 999 999 999 999 999 %40 999 999 999 999 999 999 999 999 999 999 %50 999 999 999 999 999 999 999 999 999 999 %60 999 999 999 999 999 999 999 999 999 999 %70 999 999 999 999 999 999 999 999 ] def %78 /yex05G [ %78 Reflexion Elementary Green G 000 000 000 000 000 000 000 000 000 000 %10 377.5_422.5 000 000 000 000 000 000 000 000 000 000 %20 427.5_472.5: 472.5=0 999 999 999 999 999 999 999 999 999 999 %30 477.5_522.5; 477.5=1 999 999 999 999 999 999 999 999 999 999 %40 527.5_572.5; 572.5=1 000 000 000 000 000 000 000 000 000 000 %50 577.5_622.5; 577.5=0 000 000 000 000 000 000 000 000 000 000 %60 627.5_672.5 000 000 000 000 000 000 000 000 000 000 %70 677.5_722.5 000 000 000 000 000 000 000 000 ] def %78 727.5_772.5 /yex05B [ %78 Reflexion Elementary Blue B 999 999 999 999 999 999 999 999 999 999 %10 999 999 999 999 999 999 999 999 999 999 %20 999 999 999 999 999 000 000 000 000 000 %30 497.5=1, 502.5=0 000 000 000 000 000 000 000 000 000 000 %40 000 000 000 000 000 000 000 000 000 000 %50 000 000 000 000 000 000 000 000 000 000 %60 000 000 000 000 000 000 000 000 000 000 %70 000 000 000 000 000 000 000 000 ] def %78 iton 0 eq iton 4 eq or {%iton=0,4 280 200 35 35 tzr outrecfi4 %Rechteck R 95 201 moveto (Elementar\255Rot) popde %08141-8 3 (Elementary Red) popen (Rojo) popes %28141-7 3 (red) popfr %38141-7 3 (red) popit %48141-7 3 (red) popjp %58141-7 3 tzw outshowf TBIG ( R) ibil 0 eq {tzr outshowf}{tzw outshowf} ifelse iton 3 le {TBM 0 -3 rmoveto (s) show 0 3 rmoveto TBG} {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} ifelse 0 1 38 {/i exch def %Werte 0,2,...,76 yex10 i yex10R i get put } for 0 1 77 {/i exch def %Werte 0,1,...,76 yex05 i yex05R i get put} for } if %iton=0,4 iton 1 eq iton 5 eq or {%iton=1,5 280 200 35 35 tzj outrecfi4 %Rechteck J 80 201 moveto (Elementar\255Gelb) popde %08141-8 3 (Elementary Yellow) popen (Amarillo) popes %28141-6 3 (yellow) popfr %38141-6 3 (yellow) popit %48141-6 3 (yellow) popjp %58141-6 3 tzw outshowf TBIG ( J) ibil 0 eq {tzy outshowf}{tzw outshowf} ifelse iton 3 le {TBM 0 -3 rmoveto (s) show 0 3 rmoveto TBG} {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} ifelse 0 1 38 {/i exch def %Werte 0,2,...,76 yex10 i yex10J i get put } for 0 1 77 {/i exch def %Werte 0,1,...,76 yex05 i yex05J i get put} for } if %iton=1,5 iton 2 eq iton 6 eq or {%iton=2,6 280 200 35 35 tzg outrecfi4 %Rechteck G 82 201 moveto (Elementar\255Gr\374n) popde %08141-8 3 (Elementary Green) popen (Verde ) popes %28150-1 3 (green ) popfr %38150-1 3 (green ) popit %48150-1 3 (green ) popjp tzw outshowf TBIG ( G) ibil 0 eq {tzg outshowf}{tzw outshowf} ifelse iton 3 le {TBM 0 -3 rmoveto (s) show 0 3 rmoveto TBG} {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} ifelse 0 1 38 {/i exch def %Werte 0,2,...,76 yex10 i yex10G i get put } for 0 1 77 {/i exch def %Werte 0,1,...,76 yex05 i yex05G i get put} for } if %iton=2,6 iton 3 eq iton 7 eq or {%iton=3,7 280 200 35 35 tzb outrecfi4 %Rechteck b 95 201 moveto (Elementar\255Blau) popde %08141-8 3 (Elementary Blue) popen (Azul) popes %28141-8 3 (blue) popfr %38141-8 3 (blue) popit %48141-8 3 (blue) popjp %58141-8 3 tzw outshowf TBIG ( B) ibil 0 eq {tzb outshowf}{tzw outshowf} ifelse iton 3 le {TBM 0 -3 rmoveto (s) show 0 3 rmoveto TBG} {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} ifelse 0 1 38 {/i exch def %Werte 0,2,...,76 yex10 i yex10B i get put } for 0 1 77 {/i exch def %Werte 0,1,...,76 yex05 i yex05B i get put} for } if %iton=3,7 iton 3 le {%iton<=3 0 1 38 {/i exch def yexp i 2 mul %Werte 0,2,...,76 yex10 i get exec 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 put} for } if %iton<=3 iton 4 ge {%iton>=4 0 1 77 {/i exch def yexp i %Werte 0,2,...,76 yex05 i get exec put} for } if %iton>=4 /solvscols %Farbkreis-Reihenfolge: 31 Sonder-Farben (=scol) [ (30F*) (00F*) (03F*) (07F*) (0BF*) (0FF*) (0FB*) (0F7*) (0F3*) (0F0*) (3F0*) (7F0*) (BF0*) (FF0*) (FB0*) (F70*) (F30*) (F00*) (F03*) (F07*) (F0B*) (F0F*) (B0F*) (70F*) (30F*)] def /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} {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 Wellenl. ohne Purpur 390-710nm, 0..64 [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 ix0 iy0 65 xd mul 150 0.0 0.0 0.0 1.0 colrecfi 2 1 66 {/i exch def %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta=1 /y11 yexp i get exec 0.150 mul def /y20 yexp i 1 add get exec 0.150 mul def /x10 ix0 i 2 sub xd mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 scolors k get exec setcmykcolor x10 iy0 moveto x10 xd add iy0 lineto x10 xd add iy0 iton 3 le {y20} {y11} ifelse add ausz 7 ne {1 add} if lineto x10 iy0 y11 add ausz 7 ne {1 add} if lineto closepath fill } for %i-Schleife /tx [ (400) (500) (600) (700)] def /ty [(0,0) (0,2) (0,4) (0,6) (0,8) (1,0) ] def 0.0 0.0 0.0 0.0 setcmykcolor %W 0 1 3 {/i exch def %x-Achsen-Beschriftung ix0 23 sub 5 i 20 mul add xd mul add iy0 21 sub moveto tx i get exec show } for 0 1 5 {/i exch def %y-Achsen-Beschriftung ix0 37 sub iy0 07 sub i 30 mul add moveto ty i get exec show } for ix0 3 sub iy0 1 sub 273 2 fcolors 7 get exec colrecfi ix0 1 sub iy0 3 sub 2 153 fcolors 7 get exec colrecfi 0 30 150 {/iyd exch def ix0 4 sub iy0 1 sub iyd add 8 2 fcolors 07 get exec colrecfi } for %Schleife iyd 5 20 65 {/ixd exch def ix0 9 sub ixd xd mul add iy0 3 sub 2 8 fcolors 07 get exec colrecfi } for %Schleife ixd 0.0 0.0 0.0 0.0 setcmykcolor %W wavelength range TBK iton 4 eq {ix0 27 sub 5 1 20 mul add xd mul add iy0 7 add moveto (475) show ix0 51 sub 5 2 20 mul add xd mul add iy0 7 add moveto (575) show} if iton 5 eq {ix0 32 sub 5 1 20 mul add xd mul add iy0 7 add moveto (500) show} if iton 6 eq {ix0 52 sub 5 1 20 mul add xd mul add iy0 7 add moveto (475) show ix0 27 sub 5 2 20 mul add xd mul add iy0 7 add moveto (575) show} if iton 7 eq {ix0 6 sub 5 1 20 mul add xd mul add iy0 7 add moveto (500) show} if % 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