%!PS-Adobe-3.0 EPSF-3.0 VG771-3A %%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/VG77/) /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@me.com) /CreationDate (D:2015030112000) /ModDate (D:2015030112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TV {160 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIV {160 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBV {160 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIV {160 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SV {160 /Symbol FS} bind def /CV {160 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {280 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBV {160 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {280 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /sy {350 /Symbol FS show} bind def /is {280 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {280 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {280 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {280 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {280 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {280 /Times-ISOL1 FS show TM} bind def /ks2 {280 /TimesI-ISOL1 FS show TM} bind def /bs2 {280 /TimesB-ISOL1 FS show TM} bind def /js2 {280 /TimesBI-ISOL1 FS show TM} bind def /sy2 {280 /Symbol FS show TM} bind def /is2 {240 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {240 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {240 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {240 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {240 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def /iy2 {240 /Symbol FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def %40% kleiner /ns4 {240 /Times-ISOL1 FS show TK} bind def /ks4 {240 /TimesI-ISOL1 FS show TK} bind def /bs4 {240 /TimesB-ISOL1 FS show TK} bind def /js4 {240 /TimesBI-ISOL1 FS show TK} bind def /ss4 {240 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} bind def /iy4 {200 /Symbol FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /cvishow {cvi 6 string cvs show ( ) show} def /cvsshow1 {10 mul cvi 0.1 mul 9 string cvs show ( ) show} def /cvsshow2 {100 mul cvi 0.01 mul 9 string cvs show ( ) show} def /cvsshow3 {1000 mul cvi 0.001 mul 9 string cvs show ( ) show} def /cvsshow4 {10000 mul cvi 0.0001 mul 9 string cvs show ( ) show} def /cvsshow5 {100000 mul cvi 0.00001 mul 9 string cvs show ( ) show} 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 /l02Ii 77 array def /m02Ii 77 array def /s02Ii 77 array def /l02Mi 77 array def /m02Mi 77 array def /s02Mi 77 array def /X02Ii 77 array def /Y02Ii 77 array def /Z02Ii 77 array def /xan02Ii 77 array def /yan02Ii 77 array def /zan02Ii 77 array def /X02Mi 77 array def /Y02Mi 77 array def /Z02Mi 77 array def /xan02Mi 77 array def /yan02Mi 77 array def /zan02Mi 77 array def /ycuri 77 array def /l02Mi [ %LMS2.TXT %L2.DAT CIE Table 6.7, p. 34 380=390,385=390, 390, 395, ...760nm 4.150019e-4 4.150019e-4 4.150019e-4 1.051914e-3 2.408353e-3 %400 4.833371e-3 8.721273e-3 1.338382e-2 1.844803e-2 2.293190e-2 2.818772e-2 3.410515e-2 4.025595e-2 4.493761e-2 4.986433e-2 %450 5.534138e-2 6.471575e-2 8.069006e-2 9.947639e-2 1.188010e-1 1.401458e-1 1.639532e-1 1.915579e-1 2.329271e-1 2.889615e-1 %500 3.597162e-1 4.436801e-1 5.364880e-1 6.285647e-1 7.047255e-1 7.706373e-1 8.257146e-1 8.810083e-1 9.190730e-1 9.401995e-1 %550 9.657395e-1 9.814541e-1 9.944890e-1 1 9.923160e-1 9.694379e-1 9.556085e-1 9.276625e-1 8.859720e-1 8.339884e-1 %600 7.751040e-1 7.057161e-1 6.307685e-1 5.542300e-1 4.799434e-1 4.007098e-1 3.278612e-1 2.657847e-1 2.132849e-1 1.651391e-1 %650 1.247498e-1 9.300794e-2 6.850937e-2 4.986664e-2 3.582284e-2 2.537932e-2 1.772025e-2 1.216998e-2 8.471687e-3 5.897527e-3 %700 4.091288e-3 2.804465e-3 1.920570e-3 1.326875e-3 9.177829e-4 6.393665e-4 4.460361e-4 3.108708e-4 2.193310e-4 1.545503e-4 %750 1.095065e-4 7.799195e-5 ] def /m02Mi [ %M2.DAT 3.683495e-4 3.683495e-4 3.683495e-4 9.586496e-4 2.269917e-3 %400 4.700132e-3 8.793667e-3 1.452780e-2 2.166506e-2 2.957127e-2 3.945663e-2 5.182030e-2 6.477837e-2 7.588048e-2 8.705225e-2 %450 9.819288e-2 1.162733e-1 1.445407e-1 1.758936e-1 2.053998e-1 2.357545e-1 2.680649e-1 3.036267e-1 3.570590e-1 4.277598e-1 %500 5.155847e-1 6.155169e-1 7.191508e-1 8.166012e-1 8.855437e-1 9.356857e-1 9.688577e-1 9.952165e-1 9.971948e-1 9.771922e-1 %550 9.995->9.95? 9.565771e-1 9.177407e-1 8.732126e-1 8.135046e-1 7.402868e-1 6.532810e-1 5.725950e-1 4.925950e-1 4.112444e-1 3.344260e-1 %600 2.648744e-1 2.052721e-1 1.562428e-1 1.166407e-1 8.558743e-2 6.211264e-2 4.448770e-2 3.142624e-2 2.180369e-2 1.544792e-2 %650 1.071199e-2 7.302475e-3 4.971759e-3 3.436687e-3 2.376184e-3 1.637344e-3 1.121270e-3 7.610442e-4 5.254605e-4 3.653171e-4 %700 2.534195e-4 1.744014e-4 1.206090e-4 8.417245e-5 5.893455e-5 4.160449e-5 2.943542e-5 2.088575e-5 1.504562e-5 1.082007e-5 %750 7.822762e-6 5.690886e-6 ] def /s02Mi [ %S2.DAT CIE 171.1:2006 9.547289e-3 9.547289e-3 %380,385 9.547289e-3 2.382484e-2 5.665002e-2 1.224503e-1 2.330076e-1 %410 3.813643e-1 5.436132e-1 6.744815e-1 8.025461e-1 9.035662e-1 9.910145e-1 9.915166e-1 9.553885e-1 8.602408e-1 7.867016e-1 %460 7.382611e-1 6.463534e-1 5.164164e-1 3.903373e-1 2.903220e-1 2.118654e-1 1.605240e-1 1.228400e-1 8.889554e-2 6.082050e-2 %510 4.281244e-2 2.920317e-2 1.939099e-2 1.260114e-2 8.094500e-3 5.088971e-3 3.168911e-3 1.958935e-3 1.202763e-3 7.401673e-4 %560 4.559845e-4 2.817993e-4 1.750370e-4 1.094536e-4 6.899855e-5 4.390257e-5 2.822280e-5 1.834593e-5 1.206675e-5 8.034895e-6 %610 5.418387e-6 0 0 0 0 0 0 0 0 0 %650 0 0 0 0 0 0 0 0 0 0 %700 0 0 0 0 0 0 0 0 0 0 %750 0 0 ] def %/ixi [ %Reflexion CIE ix judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .001368 .002236 .004243 .007650 .01431 .02319 .04351 .07763 % .1344 .2148 .2839 .3285 .3483 .3481 .3362 .3187 .2908 .2511 % .1954 .1421 .09564 .05795 .03201 .0147 .0049 .0024 .0093 .0291 % .06327 .1096 .1655 .2257 .2904 .3597 .4334 .5121 .5945 .6784 % .7621 .8425 .9163 .9786 1.0263 1.0567 1.0622 1.0456 1.0026 .9384 % .8544 .7514 .6424 .5419 .4479 .3608 .2835 .2187 .1649 .1212 % .0874 .0636 .04677 .03290 .02270 .01584 .01136 .00811 .00579 % .004109 .002899 .002049 .001440 .0009999 .0006901 % .000476 .0003323 .0002348 .0001662 ] def %/iyi [ %Reflexion CIE iy judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .39E-04 .000064 .00012 .000217 .000396 .00064 .00121 .00218 % .004 .0073 .0116 .01684 .023 .0298 .038 .048 .06 .0739 % .09098 .1126 .139 .1693 .208 .2586 .323 .4073 .503 .6082 .71 % .7932 .862 .9149 .954 .9803 .995 1.0 .995 .9786 .952 % .9154 .87 .8163 .757 .6949 .631 .5668 .503 .4412 .381 .321 % .265 .217 .175 .1382 .107 .0816 .061 .04458 .032 .0232 .017 % .01192 .00821 .005723 .004102 .002929 .002091 .001484 % .001047 .00074 .00052 .0003611 .0002492 .0001719 % .00012 .0000848 .00006 ] def %/izi [ %Reflexion CIE iz judd-wyszecki, 380-760nm, Tab 3.3, S.242 % .00645 .01055 .02005 .03621 .06785 .1102 .2074 .3713 .6456 % 1.0391 1.3856 1.623 1.7471 1.7826 1.7721 1.7441 1.6692 % 1.5281 1.2876 1.0419 .8130 .6162 .4652 .3533 .2720 .2123 % .1582 .1117 .07825 .05725 .04216 .0284 .0203 .0134 .00875 % .00575 .0039 .00275 .0021 .0018 .00165 .0014 .0011 .0010 .0008 % .0006 .00034 .00024 .00019 .0001 .00005 .00003 .00002 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 .00001 % .00001 .00001 .00001 ] 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 Wellenlaengen ohne Purpur, 380_700: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 %ED TC1-36 CIE 171-2, 2015, page 16, line 20-23 /A11 1.94735469 def /A12 -1.41445123 def /A13 0.36476327 def /A21 0.68990272 def /A22 0.34832189 def /A33 1.93485343 def %%EndProlog gsave %lanindL2.EPS 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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 6 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow gsave %XCHA01.PS END 5 /Times-ISOL1 FS %175 85 moveto (VG771-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 10 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(VG771-) show} {(VG771-) 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 (_) show xchart 1 add cvishow /xwidth 5400 def /ywidth 4000 def 0.0 0.0 0.0 0.0 setcmykcolor 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black TBK %Schrift Times-Bold-Gross 0.0 0.0 0.0 1.0 setcmykcolor %font black 1800 100 moveto (Wellenl\344nge ) showde %08141-1 1 (wavelength ) showen %18141-1 1 (Ancho de banda ) showes %28141-1 1 (wavelength ) showfr %38141-1 1 (wavelength ) showit %48141-1 1 (wavelength ) showjp %58141-1 1 SK (l) show TBK 30 0 rmoveto (/nm) show %scale x 3*1200=3600 %scale y 4*600=2400 /xd 70 def /xd2 140 def /ix0 450 def /iy0 650 def /ixd0 240 def %x-start at 380 nm /ixd 1200 def /iyd 600 def /tx [ (400) (500) (600) (700)] def /ty1 [(0,0) (0,5) (1,0) (1,5) (2,0) (2,5) ] def /tys [(0,0) (0,5) (1,0) (1,5) (2,0) (2,5) ] def /ty20 [( 0) (10) (20) (30) (40) (50) ] def 40 setlinewidth ix0 iy0 moveto 4300 0 rlineto stroke %x ix0 iy0 moveto 0 2700 rlineto stroke %y 30 setlinewidth ix0 4300 add iy0 moveto -100 050 rlineto stroke %x_arrow ix0 4300 add iy0 moveto -100 -050 rlineto stroke %x_arrow ix0 iy0 2700 add moveto -050 -100 rlineto stroke %y_arrow ix0 iy0 2700 add moveto 050 -100 rlineto stroke %y_arrow %cero line 20 setlinewidth [100 ] 0 setdash xchartl 00 ge xchartl 02 le and { ix0 iy0 2400 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 03 ge xchartl 05 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 08 ge xchartl 10 le and { ix0 iy0 2400 add moveto 4300 0 rlineto stroke %x-cero } if xchartl 11 ge xchartl 13 le and { ix0 iy0 1200 add moveto 4300 0 rlineto stroke %x-cero } if [ ] 0 setdash 40 setlinewidth 0 1 3 {/i exch def %x ix0 ixd0 add i ixd mul add iy0 50 sub moveto 0 100 rlineto stroke } for 0 1 4 {/i exch def %y ix0 050 sub iy0 i iyd mul add moveto 100 0 rlineto stroke } for TBS 0 1 3 {/i exch def %xtex ix0 ixd0 add i ixd mul add 150 sub iy0 250 sub moveto tx i get show } for 0 1 4 {/i exch def %ytex ix0 300 sub iy0 i iyd mul add 100 sub moveto xchartl 00 ge xchartl 02 le and {ty1 i get show} if xchartl 03 ge xchartl 05 le and {tys i get show} if xchartl 06 ge xchartl 07 le and {ty20 i get show} if xchartl 08 ge xchartl 10 le and {ty1 i get show} if xchartl 11 ge xchartl 13 le and {tys i get show} if xchartl 14 ge xchartl 15 le and {ty20 i get show} if } for /fsl02Mi 0 def /fsm02Mi 0 def /fss02Mi 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fsl02Mi fsl02Mi l02Mi i get add def /fsm02Mi fsm02Mi m02Mi i get add def /fss02Mi fss02Mi s02Mi i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung LMS l02Ii i l02Mi i get fsm02Mi mul fsl02Mi div put m02Ii i m02Mi i get put s02Ii i s02Mi i get fsm02Mi mul fss02Mi div put } for %i=0,76 /fsl02Ii 0 def /fsm02Ii 0 def /fss02Ii 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumlms /fsl02Ii fsl02Ii l02Ii i get add def /fsm02Ii fsm02Ii m02Ii i get add def /fss02Ii fss02Ii s02Ii i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 X02Ii i l02Mi i get A11 mul m02Mi i get A12 mul add s02Mi i get A13 mul add put Y02Ii i l02Mi i get A21 mul m02Mi i get A22 mul add put Z02Ii i s02Mi i get A33 mul put } for %i=0,76 /fsX02Ii 0 def /fsY02Ii 0 def /fsZ02Ii 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzIi /fsX02Ii fsX02Ii X02Ii i get add def /fsY02Ii fsY02Ii Y02Ii i get add def /fsZ02Ii fsZ02Ii Z02Ii i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 Normierung auf 1 XYZ X02Mi i X02Ii i get 1.1510330 div put %max 600nm Y02Mi i Y02Ii i get 0.9994608 div put %max 555nm Z02Mi i Z02Ii i get 1.9184370 div put %max 445nm } for %i=0,76 /fsX02Mi 0 def /fsY02Mi 0 def /fsZ02Mi 0 def 0 1 76 {/i exch def %i=0,76 Summe fsumxyzMi /fsX02Mi fsX02Mi X02Mi i get add def /fsY02Mi fsY02Mi Y02Mi i get add def /fsZ02Mi fsZ02Mi Z02Mi i get add def } for %i=0,76 0 1 76 {/i exch def %i=0,76 xyzan /sumXYZ X02Ii i get Y02Ii i get add Z02Ii i get add def xan02Ii i X02Ii i get sumXYZ div put yan02Ii i Y02Ii i get sumXYZ div put zan02Ii i Z02Ii i get sumXYZ div put } for %i=0,76 %********************************************************************* /proc_LMS1_02 {%BEG proc_LMS1_02 xchartl=0,2 100 3800 moveto TBK xchartl 0 ge xchartl 5 le and { (CIE\255Zapfen\255Empfindlichkeit) showde %08141-1 2 (CIE cone sensitivity) showen %18141-1 2 } if xchartl 6 ge xchartl 7 le and { (CIE\255Zapfen\255Erregung) showde %08141-1 2 (CIE cone excitation) showen %18141-1 2 } if xchartl 0 ge xchartl 2 le and {( (max=1)) show} if %08141-1 3 xchartl 3 ge xchartl 5 le and {( (sum=equal)) show} if %08141-1 3 100 3500 moveto TBIK xchartl 0 eq {(l) show} if xchartl 1 eq {(m) show} if xchartl 2 eq {(s) show} if xchartl 3 eq {(l) show} if xchartl 4 eq {(m) show} if xchartl 5 eq {(s) show} if xchartl 6 eq {(l) show} if xchartl 7 eq {(s) show} if xchartl 0 eq {-120 150 rmoveto (-) show 0 -150 rmoveto} if xchartl 1 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 2 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 3 eq {-120 150 rmoveto (-) show 0 -150 rmoveto} if xchartl 4 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 5 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 0 ge xchartl 2 le and {TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if xchartl 3 ge xchartl 5 le and {TBS 00 -80 rmoveto (F,s) show 00 80 rmoveto} if xchartl 6 ge xchartl 7 le and {TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if TBK (\050) show SK (l) show TBK (\051 ) show xchartl 6 ge xchartl 7 le and { TBK (/) show TBIK (m) show TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto TBK (\050) show SK (l) show TBK (\051 ) show } if 0 1 76 {/i exch def %i=0,76 xchartl 0 eq {ycuri i l02Mi i get 2 mul put} if xchartl 1 eq {ycuri i m02Mi i get 2 mul put} if xchartl 2 eq {ycuri i s02Mi i get 2 mul put} if xchartl 3 eq {ycuri i l02Ii i get put} if xchartl 4 eq {ycuri i m02Ii i get put} if xchartl 5 eq {ycuri i s02Ii i get put} if xchartl 6 eq {ycuri i l02Mi i get m02Mi i get div 0.05 mul put ycuri i get 2. ge {ycuri i 2.0 put} if } if xchartl 7 eq {ycuri i s02Mi i get m02Mi i get div 0.05 mul put ycuri i get 2. ge {ycuri i 2.0 put} if } if } for %i=0,76 30 setlinewidth /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 0<=xchartl<=5 0 0 0 1 setcmykcolor 3700 2700 moveto xchartl 0 eq {SK (S) show TIK ( l) show} if xchartl 1 eq {SK (S) show TIK ( m) show} if xchartl 2 eq {SK (S) show TIK ( s) show} if xchartl 3 eq {SK (S) show TIK ( l) show} if xchartl 4 eq {SK (S) show TIK ( m) show} if xchartl 5 eq {SK (S) show TIK ( s) show} if xchartl 0 eq {-100 140 rmoveto (-) show 0 -140 rmoveto} if xchartl 1 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 2 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 3 eq {-100 140 rmoveto (-) show 0 -140 rmoveto} if xchartl 4 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 5 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 0 ge xchartl 2 le and {TS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if xchartl 3 ge xchartl 5 le and {TS 00 -80 rmoveto (F,s) show 00 80 rmoveto} if xchartl 00 ge xchartl 05 le and { TK (\050) show SM (l) show TBM (\051) show TK (=) show} if TK xchartl 0 eq {fsl02Mi cvsshow2} if xchartl 1 eq {fsm02Mi cvsshow2} if xchartl 2 eq {fss02Mi cvsshow2} if xchartl 3 eq {fsl02Ii cvsshow2} if xchartl 4 eq {fsm02Ii cvsshow2} if xchartl 5 eq {fss02Ii cvsshow2} if } bind def %END proc_LMS1_02, xchartl=0,7 %********************************************************************* /proc_XYZI_02 {%BEG proc_XYZI_02, xchartl=8,15 100 3800 moveto TBK xchartl 08 ge xchartl 13 le and { (CIE\255Normspektralwerte) showde %08141-1 2 (CIE spectral tristimulus values) showen %18141-1 2 } if xchartl 14 ge xchartl 15 le and { (CIE\255Normspektral\255Erregung) showde %08141-1 2 (CIE spectral tristimulus excitation) showen %18141-1 2 } if xchartl 8 ge xchartl 10 le and {( (max=1)) show} if %08141-1 3 xchartl 11 ge xchartl 13 le and {( (sum=equal)) show} if %08141-1 3 100 3500 moveto TBIK xchartl 8 eq {(x) show} if xchartl 9 eq {(y) show} if xchartl 10 eq {(z) show} if xchartl 11 eq {(x) show} if xchartl 12 eq {(y) show} if xchartl 13 eq {(z) show} if xchartl 14 eq {(x) show} if xchartl 15 eq {(z) show} if xchartl 8 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 9 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 10 eq {-120 150 rmoveto (-) show 0 -150 rmoveto} if xchartl 11 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 12 eq {-120 100 rmoveto (-) show 0 -100 rmoveto} if xchartl 13 eq {-120 150 rmoveto (-) show 0 -150 rmoveto} if xchartl 8 ge xchartl 10 le and {TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if xchartl 11 ge xchartl 13 le and {TBS 00 -80 rmoveto (F,s) show 00 80 rmoveto} if xchartl 14 ge xchartl 15 le and {TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if TBK (\050) show SK (l) show TBK (\051 ) show xchartl 14 ge xchartl 15 le and { TBK (/) show TBIK (y) show TBS 00 -80 rmoveto (F,1) show 00 80 rmoveto TBK (\050) show SK (l) show TBK (\051 ) show } if 0 1 76 {/i exch def %i=0,76 xchartl 08 eq {ycuri i X02Mi i get 2 mul put} if xchartl 09 eq {ycuri i Y02Mi i get 2 mul put} if xchartl 10 eq {ycuri i Z02Mi i get 2 mul put} if xchartl 11 eq {ycuri i X02Ii i get put} if xchartl 12 eq {ycuri i Y02Ii i get put} if xchartl 13 eq {ycuri i Z02Ii i get put} if xchartl 14 eq {ycuri i X02Mi i get Y02Mi i get div 0.05 mul put ycuri i get 2. ge {ycuri i 2.0 put} if } if xchartl 15 eq {ycuri i Z02Mi i get Y02Mi i get div 0.05 mul put ycuri i get 2. ge {ycuri i 2.0 put} if } if } for %i=0,76 /xdlamda 5 12 mul def %100nm = 1200 scale units or 5nm=60 scale units 2 1 66 {/i exch def %i=2,66 %ab 390nm bis 710nm, 65 Well. 2..66 %3=390, delta /y10 iy0 def /y11 iy0 ycuri i get 1200 mul add def /y21 iy0 ycuri i 1 add get 1200 mul add def /x10 ix0 i 2 sub xdlamda mul add def %ab 390nm /k {ifa i 2 sub get exec} def %max 65 Farben 0..64 scolors k get exec setcmykcolor x10 y10 moveto x10 xdlamda add y10 lineto x10 xdlamda add y21 lineto x10 y11 lineto closepath fill } for %i=2,66 %only for 8<=xchartl<=13 0 0 0 1 setcmykcolor 3700 2700 moveto xchartl 8 eq {SK (S) show TIK ( x) show} if xchartl 9 eq {SK (S) show TIK ( y) show} if xchartl 10 eq {SK (S) show TIK ( z) show} if xchartl 11 eq {SK (S) show TIK ( x) show} if xchartl 12 eq {SK (S) show TIK ( y) show} if xchartl 13 eq {SK (S) show TIK ( z) show} if xchartl 8 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 9 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 10 eq {-100 140 rmoveto (-) show 0 -140 rmoveto} if xchartl 11 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 12 eq {-100 80 rmoveto (-) show 0 -80 rmoveto} if xchartl 13 eq {-100 140 rmoveto (-) show 0 -140 rmoveto} if xchartl 8 ge xchartl 10 le and {TS 00 -80 rmoveto (F,1) show 00 80 rmoveto} if xchartl 11 ge xchartl 13 le and {TS 00 -80 rmoveto (F,s) show 00 80 rmoveto} if xchartl 08 ge xchartl 13 le and { TK (\050) show SM (l) show TBM (\051) show TK (=) show} if TK xchartl 8 eq {fsX02Mi cvsshow2} if xchartl 9 eq {fsY02Mi cvsshow2} if xchartl 10 eq {fsZ02Mi cvsshow2} if xchartl 11 eq {fsX02Ii cvsshow2} if xchartl 12 eq {fsY02Ii cvsshow2} if xchartl 13 eq {fsZ02Ii cvsshow2} if } bind def %END proc_XYZI_02, xchartl=8,9,10 %************************************************************** xchartl 0 ge xchartl 7 le and {proc_LMS1_02} if xchartl 8 ge xchartl 15 le and {proc_XYZI_02} if %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore %%Trailer