%!PS-Adobe-3.0 EPSF-3.0 IG11-1A %%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:) /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 pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %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 10 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 {(IG111-) show} {(IG111-) 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 %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 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 00 ge i 19 le and } if iton 3 eq {i 20 ge i 24 le and } if iton 4 eq {i 25 ge i 38 le and } if iton 5 eq {i 39 ge i 75 le and } if iton 6 eq {i 25 ge i 44 le and } if iton 7 eq {i 45 ge i 75 le 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 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 00 ge i 19 le and } if iton 3 eq {i 20 ge i 24 le and } if iton 4 eq {i 25 ge i 38 le and } if iton 5 eq {i 39 ge i 75 le and } if iton 6 eq {i 25 ge i 44 le and } if iton 7 eq {i 45 ge i 75 le 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 {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 0 setgray ix0 52 sub 5 2 20 mul add xd mul add iy0 75 add moveto TBK (Yellow) showen ( Gelb) showde TBIK ( Y) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray ix0 76 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Blue) showen (Blau) showde TBIK ( V) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 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 iton 2 eq {TBK ix0 27 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 52 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show ix0 27 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (Blue\255Red) showen ( Blau\255Rot) showde TBIK ( BR) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 27 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Yellow\255Green) showen (Gelb\255Gr\374n) showde TBIK ( JG) 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 06 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 52 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 06 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (Green\255Blue) showen ( Gr\374n\255Blau) showde TBIK ( GB) 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 (Red\255Yellow) showen (Rot\255Gelb) showde TBIK ( RJ) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 57 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 (Yellow\255Green) showen ( Gelb\255Gr\374n) showde TBIK ( JG) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 30 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Blue\255Red) showen (Blau\255Rot) showde TBIK ( BR) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK ix0 57 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show ix0 30 sub 5 2 20 mul add xd mul add iy0 07 add moveto (575) show ix0 58 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (Red\255Yellow) showen ( Rot\255Gelb) showde TBIK ( RJ) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 30 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Green\255Blue) showen (Gr\374n\255Blau) showde TBIK ( GB) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 06 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 32 sub 5 2 20 mul add xd mul add iy0 07 add moveto (600) show ix0 08 sub 5 2 20 mul add xd mul add iy0 75 add moveto TBK (Yellow\255Green) showen ( Gelb\255Gr\374n) showde TBIK ( JG) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 08 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Blue\255Red) showen (Blau\255Rot) showde TBIK ( BR) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 0 setgray TBK ix0 06 sub 5 1 20 mul add xd mul add iy0 75 add moveto (Leaf green) show TBIK ix0 20 add 5 1 20 mul add xd mul add iy0 58 add moveto (L) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray TBK ix0 90 sub 5 2 20 mul add xd mul add iy0 27 add moveto (Magenta red) show TBIK ix0 58 sub 5 2 20 mul add xd mul add iy0 07 add moveto (M) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK ix0 32 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show ix0 06 sub 5 2 20 mul add xd mul add iy0 07 add moveto (600) show ix0 112 sub 5 2 20 mul add xd mul add iy0 75 add moveto TBK (Red\255Yellow) showen ( Rot\255Gelb) showde TBIK ( RJ) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 06 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Green\255Blue) showen (Gr\374n\255Blau) showde TBIK ( GB) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 0 setgray TBK ix0 4 sub 5 2 20 mul add xd mul add iy0 75 add moveto (Orange red) show TBIK ix0 22 add 5 2 20 mul add xd mul add iy0 58 add moveto (O) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray TBK ix0 34 sub 5 1 20 mul add xd mul add iy0 27 add moveto (Cyan blue) show TBIK ix0 14 sub 5 1 20 mul add xd mul add iy0 07 add moveto (C) show TBKK 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 (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 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 00 ge i 19 le and } if iton 3 eq {i 20 ge i 24 le and } if iton 4 eq {i 25 ge i 38 le and } if iton 5 eq {i 39 ge i 75 le and } if iton 6 eq {i 25 ge i 44 le and } if iton 7 eq {i 45 ge i 75 le 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 25 ge i 75 le and } if iton 1 eq {i 20 ge i 38 le and } if iton 2 eq {i 00 ge i 19 le and } if iton 3 eq {i 20 ge i 24 le and } if iton 4 eq {i 25 ge i 38 le and } if iton 5 eq {i 39 ge i 75 le and } if iton 6 eq {i 25 ge i 44 le and } if iton 7 eq {i 45 ge i 75 le 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 {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 0 setgray ix0 52 sub 5 2 20 mul add xd mul add iy0 75 add moveto TBK (Yellow) showen ( Gelb) showde TBIK ( Y) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray ix0 76 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Blue) showen (Blau) showde TBIK ( V) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 1 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 iton 2 eq {TBK ix0 27 sub 5 1 20 mul add xd mul add iy0 55 add moveto (475) show ix0 52 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show ix0 27 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (blue\255red) showen ( blau\255rot) showde TBIK ( br) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 27 sub 5 1 20 mul add xd mul add iy0 27 add moveto TBK (Yellow\255Green) showen (Gelb\255Gr\374n) showde TBIK ( JG) 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 06 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 52 sub 5 1 20 mul add xd mul add iy0 07 add moveto (475) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 06 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (green\255blue) showen ( rr\374n\255blau) showde TBIK ( gb) 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 (Red\255Yellow) showen (Rot\255Gelb) showde TBIK ( RJ) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 4 eq {TBK ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 30 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 57 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 (yellow\255green) showen ( gelb\255gr\374n) showde TBIK ( jg) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 30 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Blue\255Red) showen (Blau\255Rot) showde TBIK ( BR) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 5 eq {TBK ix0 57 sub 5 2 20 mul add xd mul add iy0 55 add moveto (575) show ix0 30 sub 5 2 20 mul add xd mul add iy0 07 add moveto (575) show ix0 58 sub 5 1 20 mul add xd mul add iy0 75 add moveto TBK (red\255yellow) showen ( rot\255gelb) showde TBIK ( rj) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 30 sub 5 2 20 mul add xd mul add iy0 27 add moveto TBK (Green\255Blue) showen (Gr\374n\255Blau) showde TBIK ( GB) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 6 eq {TBK ix0 32 sub 5 1 20 mul add xd mul add iy0 55 add moveto (500) show ix0 06 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show ix0 06 sub 5 1 20 mul add xd mul add iy0 07 add moveto (500) show ix0 32 sub 5 2 20 mul add xd mul add iy0 07 add moveto (600) show ix0 08 sub 5 2 20 mul add xd mul add iy0 75 add moveto %TBK (Yellow\255Green) showen ( Gelb\255Gr\374n) showde %TBIK ( JG) show %TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 08 sub 5 2 20 mul add xd mul add iy0 27 add moveto %TBK (Blue\255Red) showen (Blau\255Rot) showde %TBIK ( BR) show %TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 0 setgray TBK ix0 06 sub 5 1 20 mul add xd mul add iy0 75 add moveto (Leaf green) show TBIK ix0 20 add 5 1 20 mul add xd mul add iy0 58 add moveto (L) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray TBK ix0 90 sub 5 2 20 mul add xd mul add iy0 27 add moveto (Magenta red) show TBIK ix0 58 sub 5 2 20 mul add xd mul add iy0 07 add moveto (M) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto } if iton 7 eq {TBK ix0 32 sub 5 2 20 mul add xd mul add iy0 55 add moveto (600) show ix0 06 sub 5 2 20 mul add xd mul add iy0 07 add moveto (600) show ix0 112 sub 5 2 20 mul add xd mul add iy0 75 add moveto %TBK (Red\255Yellow) showen ( Rot\255Gelb) showde %TBIK ( RJ) show %TBKK 0 -3 rmoveto (o) show 0 3 rmoveto ix0 06 sub 5 2 20 mul add xd mul add iy0 27 add moveto %TBK (Green\255Blue) showen (Gr\374n\255Blau) showde %TBIK ( GB) show %TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 0 setgray TBK ix0 4 sub 5 2 20 mul add xd mul add iy0 75 add moveto (Orange red) show TBIK ix0 22 add 5 2 20 mul add xd mul add iy0 58 add moveto (O) show TBKK 0 -3 rmoveto (o) show 0 3 rmoveto 1 setgray TBK ix0 34 sub 5 1 20 mul add xd mul add iy0 27 add moveto (Cyan blue) show TBIK ix0 14 sub 5 1 20 mul add xd mul add iy0 07 add moveto (C) show TBKK 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