%!PS-Adobe-3.0 EPSF-3.0 IG100-7A %%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 0 def /lanind2 0 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 6 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 {(IG100-) show} {(IG101-) 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 xchartl 00 ge xchartl 07 le and {%00<=xchartl<=07 /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 tzr outshowf TBIG ( R) tzr outshowf TBG iton 4 ge {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} if 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 tzy outshowf TBIG ( J) tzy outshowf TBG iton 4 ge {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} if 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 %58150-1 3 tzg outshowf TBIG ( G) tzg outshowf TBG iton 4 ge {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} if 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 tzb outshowf TBIG ( B) tzb outshowf TBG iton 4 ge {TBM 0 -3 rmoveto (o) show 0 3 rmoveto TBG} if 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 } if %00<=xchartl<=07 xchartl 08 ge xchartl 11 le and {%08<=xchartl<=11 /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 /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 32 gt i 40 lt and } if iton 1 eq {i 22 gt i 50 lt and } if iton 2 eq {i 24 gt i 76 lt and } if iton 3 eq {i 19 gt i 39 lt and } 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 y20 add lineto x10 iy01 y11 add lineto closepath fill } for %i-Schleife /iy01 iy0 00 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 32 gt i 40 lt and } if iton 1 eq {i 22 gt i 50 lt and } if iton 2 eq {i 24 gt i 76 lt and } if iton 3 eq {i 19 gt i 39 lt and } 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 y20 add lineto x10 iy01 y11 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 {ix0 80 sub 5 2 20 mul add xd mul add iy0 55 add moveto (550) show ix0 27 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show } if iton 1 eq {ix0 40 sub 5 1 20 mul add xd mul add iy0 55 add moveto (485) show ix0 13 add 5 2 20 mul add xd mul add iy0 55 add moveto (625) show ix0 15 sub 5 1 20 mul add xd mul add iy0 7 add moveto (485) show ix0 12 sub 5 2 20 mul add xd mul add iy0 7 add moveto (625) show } if iton 2 eq {TBK 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 ix0 72 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (Yellow) showen ( Gelb) showde TBIK ( J) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 06 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Blue) showen (Blau) showde TBIK ( B) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 3 eq {TBK 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 ix0 27 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show ix0 56 sub 5 2 20 mul add xd mul add iy0 07 add moveto (575) show ix0 30 sub 5 2 20 mul add xd mul add iy0 75 add moveto TBK (Green) showen (Gr\374n) showde TBIK ( G) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 12 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Red) showen (Rot) showde TBIK ( R) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if } if %08<=xchartl<=11 xchartl 12 ge xchartl 15 le and {%12<=xchartl<=15 /ausz 8 def %Farbauszug 1=C, 2=M, 3=Y, 7=N, 8=F 0 0 319 239 0.0 0.0 0.0 1.0 colrecst %Rechteck Mittelgrau TBIG %Schrift Times-Bold-Italic-Gross 0.0 0.0 0.0 1.0 setcmykcolor %Schrift Weiss -34 0 translate 44 11 moveto (N) show iton 4 eq iton 5 eq or {%iton=4,5 97 11 moveto TBIM (ncw*) show TBM ( = 1, 0, 0) show TBIM } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 97 11 moveto TBIM (icw*) show TBM ( = 0, 0, 0) show TBIM } if %iton=6,7 TBIG iton 4 eq iton 6 eq or {260 90 moveto TBIM (r00j) show} if iton 5 eq iton 7 eq or {260 90 moveto TBIM (r25j) show} if TBK 0 -3 rmoveto (d) show 0 3 rmoveto 40 212 moveto TBIG (W) show iton 4 eq iton 5 eq or {%iton=4,5 97 220 moveto TBIM (ncw*) show TBM ( = 0, 0, 1) show TBIM } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 97 220 moveto TBIM (icw*) show TBM ( = 1, 0, 1) show TBIM } if %iton=6,7 2 setlinewidth 0.0 0.0 0.0 1.0 setcmykcolor %Linien N 215 16 moveto TBIG (c*) show 210 10 moveto 45 0 rlineto stroke 245 06 moveto 10 4 rlineto -10 4 rlineto stroke %for c* 37 195 moveto TBIG (t*) show 42 150 moveto 0 30 rlineto stroke 38 170 moveto 4 10 rlineto 4 -10 rlineto stroke %for t* iton 4 eq iton 5 eq or {%iton=4,5 53 080 moveto TBIG (n*) show 60 100 moveto 0 20 rlineto stroke 56 110 moveto 4 -10 rlineto 4 10 rlineto stroke %for n* } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 53 065 moveto TBIG (i*) show 60 080 moveto 0 20 rlineto stroke 56 090 moveto 4 10 rlineto 4 -10 rlineto stroke %for i* } if %iton=6,7 52 158 moveto TBIG (w*) show 60 130 moveto 0 20 rlineto stroke 56 140 moveto 4 10 rlineto 4 -10 rlineto stroke %for w* iton 4 eq iton 5 eq or {%iton=4,5 165 45 moveto TBIG (n*) show 190 60 moveto 20 10 rlineto stroke 200 60 moveto -10 0 rlineto 7 08 rlineto stroke %for n* } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 168 48 moveto TBIG (i*) show 190 60 moveto 20 10 rlineto stroke 200 70 moveto 10 0 rlineto -7 -08 rlineto stroke %for n* } if %iton=6,7 152 192 moveto TBIG (w*) show 180 185 moveto 20 -10 rlineto stroke 190 185 moveto -10 0 rlineto 7 -08 rlineto stroke %for w* 0.0 0.0 0.0 1.0 setcmykcolor %Linien N 80 20 moveto 280 120 lineto 80 220 lineto closepath stroke TBK1 iton 4 eq iton 5 eq or {%iton=4,5 210 225 moveto (relative blackness) showen (relative Schwarzheit) showde TBIK1 ( n*) show TBK1 } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 210 225 moveto (relative brilliance) showen (relative Brillanz) showde TBIK1 ( i*) show TBK1 } if %iton=6,7 210 212 moveto (relative chroma) showen (relative Buntheit) showde TBIK1 ( c*) show TBK1 iton 4 eq iton 6 eq or {%iton=4,6 210 185 moveto (neither yellowish) showen (weder gelblich noch) showde 210 172 moveto (nor bluish \050) showen (bl\344ulich \050) showde TBIK1 (h*) show TBK1 (=0\051) show } if %iton=4,6 iton 5 eq iton 7 eq or {%iton=5,7 210 185 moveto (75% Red) showen (75% Rot) showde TBIK1 ( R ) show TBK1 (and 25%) showen (und 25%) showde 210 172 moveto (Yellow) showen (Gelb) showde TBIK1 ( J ) show TBK1 (\050) show TBIK1 (h*) show (=0,06\051) show } if %iton=5,7 TBK1 235 75 moveto (Device colour) showen (Ger\344tefarbe) showde TBIK1 ( (d)) show TBK1 235 60 moveto (of maximum) showen (von maximaler) showde 235 45 moveto (relative chroma) showen (relativer Buntheit) showde 235 30 moveto TBK1 (\050) show TBIK1 (c*) show TBK1 (=1\051) show iton 4 eq iton 5 eq or {%iton=4,5 298 123 moveto TBIM (ncw*) show TBM ( =) show 298 107 moveto (0, 1, 0) show } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 298 123 moveto TBIM (icw*) show TBM ( =) show 298 107 moveto (1, 1, 0) show } if %iton=6,7 newpath 0.0 0.0 0.0 1.0 setcmykcolor %N 065 15 add 005 15 add 15 0 360 arc fill newpath 0.0 0.0 0.0 0.0 setcmykcolor %W 065 15 add 205 15 add 15 0 360 arc fill 0.0 0.0 0.0 1.0 setcmykcolor %W 065 15 add 205 15 add 15 0 360 arc stroke newpath 0.0 0.0 0.0 0.0 setcmykcolor %X 265 15 add 105 15 add 15 0 360 arc fill newpath iton 4 eq iton 6 eq or {0.00 1.00 0.90 0.00 setcmykcolor} if %r00j iton 5 eq iton 7 eq or {0.00 0.75 1.00 0.00 setcmykcolor} if %r25j 265 15 add 105 15 add 15 0 360 arc fill newpath 0.0 0.0 0.0 1.0 setcmykcolor %X iton 4 eq iton 5 eq or {%iton=4,5 088 120 moveto TBIG (Ostwald) show TBG ( equation) showen (\255Gleichung) showde 088 100 moveto TBIG (n*) show TBG ( + ) show TBIG (c*) show TBG ( + ) show TBIG (w*) show TBG ( = 1) show } if %iton=4,5 iton 6 eq iton 7 eq or {%iton=6,7 088 120 moveto TBIG (Richter) show TBG ( equation) showen (\255Gleichung) showde 088 100 moveto TBIG (i*) show TBG ( = ) show TBIG (c*) show TBG ( + ) show TBIG (w*) show } if %iton=6,7 34 0 translate } if %12<=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