%!PS-Adobe-3.0 EPSF-3.0 EG311-4N.EPS %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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://farbe.li.tu-berlin.de/EG31/EG31.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2019100112000) /ModDate (D:20191001112000) /DOCINFO pdfmark14 [ /View [ /FitB ] /DOCVIEW pdfmark14 %END PDFDE011 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def %Umrechnung Inch -> mm /A4quer {598 0 translate 90 rotate} def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def %font0309.ps*********************************************** %special TK 250->220 /CW {100 /Courier-ISOL1 FS} bind def /CV {150 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {240 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBW {100 /CourierB-ISOL1 FS} bind def /CBV {150 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {240 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /RW {100 /Times-Roman FS} bind def /RV {150 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {300 /Times-Roman FS} bind def /RG {350 /Times-Roman FS} bind def /RIW {100 /Times-Italic FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {300 /Times-Italic FS} bind def /RIG {350 /Times-Italic FS} bind def /RBW {100 /Times-Bold FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {300 /Times-Bold FS} bind def /RBG {350 /Times-Bold FS} bind def /RBIW {100 /Times-BoldItalic FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {300 /Times-BoldItalic FS} bind def /RBIG {350 /Times-BoldItalic FS} bind def /TW {100 /Times-ISOL1 FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIW {100 /TimesI-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBW {100 /TimesB-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIW {100 /TimesBI-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SW {100 /Symbol FS} bind def /SV {150 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {300 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /ishowRV {RW -00 -30 rmoveto show 00 30 rmoveto RV} def /jshowRV {RBW -00 -30 rmoveto show 00 30 rmoveto RBV} def /ishowTV {TW -00 -30 rmoveto show 00 30 rmoveto TV} def /jshowTV {TBW -00 -30 rmoveto show 00 30 rmoveto TBV} def /ishowRS {RV -00 -40 rmoveto show 00 40 rmoveto RS} def /jshowRS {RBV -00 -40 rmoveto show 00 40 rmoveto RBS} def /ishowTS {TV -00 -40 rmoveto show 00 40 rmoveto TS} def /jshowTS {TBV -00 -40 rmoveto show 00 40 rmoveto TBS} def /ishowRK {RS -00 -50 rmoveto show 00 50 rmoveto RK} def /jshowRK {RBS -00 -50 rmoveto show 00 50 rmoveto RBK} def /ishowTK {TS -00 -50 rmoveto show 00 50 rmoveto TK} def /jshowTK {TBS -00 -50 rmoveto show 00 50 rmoveto TBK} def /ishowRM {RK -00 -60 rmoveto show 00 60 rmoveto RM} def /jshowRM {RBK -00 -60 rmoveto show 00 60 rmoveto RBM} def /ishowTM {TK -00 -60 rmoveto show 00 60 rmoveto TM} def /jshowTM {TBK -00 -60 rmoveto show 00 60 rmoveto TBM} def /ishowRG {RM -00 -70 rmoveto show 00 70 rmoveto RG} def /jshowRG {RBM -00 -70 rmoveto show 00 70 rmoveto RBG} def /ishowTG {TM -00 -70 rmoveto show 00 70 rmoveto TG} def /jshowTG {TBM -00 -70 rmoveto show 00 70 rmoveto TBG} def %special /enshowTK {TS -00 80 rmoveto show 00 -80 rmoveto TK} def /ebshowTK {TBS -00 80 rmoveto show 00 -80 rmoveto TBK} def /enshowTM {TK -00 90 rmoveto show 00 -90 rmoveto TM} def /ebshowTM {TBK -00 90 rmoveto show 00 -90 rmoveto TBM} def %font0309.ps*********************************************** /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 /tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours /tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor /tzvcmy0* {1.0 1.0 0.0 0.0} bind def /tzccmy0* {1.0 0.0 0.0 0.0} bind def /tzmcmy0* {0.0 1.0 0.0 0.0} bind def /tzycmy0* {0.0 0.0 1.0 0.0} bind def /tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours /tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor /tzvolv* {0.0 0.0 1.0} bind def /tzcolv* {0.0 1.0 1.0} bind def /tzmolv* {1.0 0.0 1.0} bind def /tzyolv* {1.0 1.0 0.0} bind def /tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series /tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor /tzzcmy0* {0.50 0.50 0.50 0.00} bind def /tzhcmy0* {0.25 0.25 0.25 0.00} bind def /tzwcmy0* {0.00 0.00 0.00 0.00} bind def /tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n* /tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor /tzz000n* {0.00 0.00 0.00 0.50} bind def /tzh000n* {0.00 0.00 0.00 0.25} bind def /tzw000n* {0.00 0.00 0.00 0.00} bind def /tznw* {0.00} bind def %grey series /tzdw* {0.25} bind def %w* 1.0 exp setgray /tzzw* {0.50} bind def /tzhw* {0.75} bind def /tzww* {1.00} bind def /tznolv* {0.00 0.00 0.00} bind def %grey series /tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor /tzzolv* {0.50 0.50 0.50} bind def /tzholv* {0.75 0.75 0.75} bind def /tzwolv* {1.00 1.00 1.00} bind def /DecodeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} 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 /showfr {2 lanind eq {show} {pop} ifelse} bind def /showes {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 /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 0 def /lanind2 0 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 0 def /colorm2 0 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 3 def /xcolor2 3 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def /xchartd xchartgd def} {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse /pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def /pchartd pchartgd def} {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /cvishow {cvi 6 string cvs show} def gsave 5 /Times-ISOL1 FS 72 85 moveto (EG311-4N) show 72 90 translate 0.01 MM dup scale 30 setlinewidth /xwidth 5400 def /ywidth 4000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke /KMind_dd0 {-50 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /KMind_dd1 {-50 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /KMind_dd2 {-50 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /KMind_dd3 {-50 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /KMind_de0 {-50 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /KMind_de1 {-50 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /KMind_de2 {-50 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /KMind_de3 {-50 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /KMind_Y1 {-50 -50 rmoveto TS (Y1) show 0 50 rmoveto TK} def /KMind_Y5 {-50 -50 rmoveto TS (Y5) show 0 50 rmoveto TK} def /KMind_Y8 {-50 -50 rmoveto TS (Y8) show 0 50 rmoveto TK} def /K0ind_dd0 {0 -50 rmoveto TS (dd0) show 0 50 rmoveto TK} def /K0ind_dd1 {0 -50 rmoveto TS (dd1) show 0 50 rmoveto TK} def /K0ind_dd2 {0 -50 rmoveto TS (dd2) show 0 50 rmoveto TK} def /K0ind_dd3 {0 -50 rmoveto TS (dd3) show 0 50 rmoveto TK} def /K0ind_de0 {0 -50 rmoveto TS (de0) show 0 50 rmoveto TK} def /K0ind_de1 {0 -50 rmoveto TS (de1) show 0 50 rmoveto TK} def /K0ind_de2 {0 -50 rmoveto TS (de2) show 0 50 rmoveto TK} def /K0ind_de3 {0 -50 rmoveto TS (de3) show 0 50 rmoveto TK} def /K0ind_Y1 {-50 -50 rmoveto TS (Y1) show 0 50 rmoveto TK} def /K0ind_Y5 {-50 -50 rmoveto TS (Y5) show 0 50 rmoveto TK} def /K0ind_Y8 {-50 -50 rmoveto TS (Y8) show 0 50 rmoveto TK} def /SMind_dd0 {-50 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /SMind_dd1 {-50 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /SMind_dd2 {-50 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /SMind_dd3 {-50 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /SMind_de0 {-50 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /SMind_de1 {-50 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /SMind_de2 {-50 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /SMind_de3 {-50 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /SMind_Y1 {-50 -50 rmoveto TV (Y1) show 0 50 rmoveto TS} def /SMind_Y5 {-50 -50 rmoveto TV (Y5) show 0 50 rmoveto TS} def /SMind_Y8 {-50 -50 rmoveto TV (Y8) show 0 50 rmoveto TS} def /S0ind_dd0 {0 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def /S0ind_dd1 {0 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def /S0ind_dd2 {0 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def /S0ind_dd3 {0 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def /S0ind_de0 {0 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def /S0ind_de1 {0 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def /S0ind_de2 {0 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def /S0ind_de3 {0 -50 rmoveto TV (de3) show 0 50 rmoveto TS} def /S0ind_Y1 {0 -50 rmoveto TV (Y1) show 0 50 rmoveto TS} def /S0ind_Y5 {0 -50 rmoveto TV (Y5) show 0 50 rmoveto TS} def /S0ind_Y8 {0 -50 rmoveto TV (Y8) show 0 50 rmoveto TS} def %************************************************************************************************ /iyt 300 def %text size /iyd 350 def %line difference /ix00 40 def %text 1 /iy00 3450 def %text 2 ix00 iy00 300 add moveto TBK (Farbmanagement) showde (Colour Management) showea ( nach ) showde (, based on ) showea (ISO 9241\255306:2018) show TK ix00 iy00 450 sub moveto TIK (rgb) show 0 -50 rmoveto TS (d) show 20 50 rmoveto TK (=729 colour) showea (=729 Farb\255) showde ix00 iy00 250 sub 450 sub moveto (device data to) showea (Ger\344tedaten nach) showde ix00 iy00 500 sub 450 sub moveto (device) showea (Ger\344te\255) showde ix00 iy00 750 sub 450 sub moveto (hue data) showea (Bunttondaten) showde ix00 3700 add iy00 moveto TIK (rgb') show -50 -50 rmoveto TS (ddi) show 20 50 rmoveto TK (=visual) showea (= visuelle) showde ix00 3700 add iy00 250 sub moveto (equally spaced) showea (gleich gestufte) showde ix00 3700 add iy00 500 sub moveto (device output) showea (Ger\344teausgabe) showde ix00 4000 add iy00 700 sub moveto TS ((i=1,2,3)) show TK %ix00 3800 add iy00 0950 sub moveto %(all 3 displays:) showea %ix00 3800 add iy00 1200 sub moveto %(device output) showea %ix00 3800 add iy00 1450 sub moveto %(contrast range) showea %ix00 3800 add iy00 1700 sub moveto %(ISO C) showea %(ISO\255C) showde %0 -50 rmoveto TS (Y5) show 0 50 rmoveto TK %ix00 3800 add iy00 1950 sub moveto %(2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show %*************************************************************** %mean circle /xm xwidth 0.5 mul def /ym ywidth 400 sub 0.5 mul def /xr1 0470 def %radius 1 /xr2 1100 def %radius 2 /xr3 1600 def %radius 3 /ym1 ym 100 sub def /xm1 xm 000 sub def %/xm1 xm 500 sub def xm1 2500 sub ym1 1750 add moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (Y5) show 0 50 rmoveto TK (: 2,5) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 1500 sub ym1 1520 add moveto 0 0.7 0 setrgbcolor (measure:) showea (Messung:) showde 0 setgray xm1 2650 sub ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (Y8) show 0 50 rmoveto TK (: 0,3) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show xm1 0800 add ym1 1600 sub moveto (ISO C) showea (ISO\255C) showde 0 -50 rmoveto TS (Y1) show 0 50 rmoveto TK (: 40) show SK (\243) show TIK (Y) show SK (\243) show TK (90) show /xi 7 array def /yi 7 array def /xrec 450 def /yrec 400 def /xrec2 xrec 2 mul def /yrec2 yrec 2 mul def 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xi i xm1 xr3 angle cos mul add put yi i ym1 xr3 angle sin mul add put } for %i=0,2 /xti 3 array def /yti 3 array def TK 0 1 2 {/i exch def %i=0,2 /angle 30 neg i 120 mul add def xti i xm1 xm1 xi i get sub 0.5 mul sub put yti i ym1 ym1 yi i get sub 0.5 mul sub put 1 0 0 setrgbcolor xm1 ym1 moveto xi i get yi i get lineto stroke 1 setgray xti i get yti i get 200 0 360 arc fill 0 setgray xti i get yti i get 200 0 360 arc stroke xti i get 170 sub yti i get 50 sub moveto i 0 eq {(dd) show 0 -50 rmoveto TS (3) show 0 50 rmoveto TK} if i 1 eq {(dd) show 0 -50 rmoveto TS (1) show 0 50 rmoveto TK} if i 2 eq {(dd) show 0 -50 rmoveto TS (2) show 0 50 rmoveto TK} if i 0 eq {/xt3 xm1 0100 sub def /yt3 ym1 0900 sub def xt3 yt3 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (n3) show 0 -100 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd3 } if i 1 eq {/xt1 xm1 0350 add def /yt1 ym1 700 add def xt1 yt1 moveto TK ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (n1) show 0 -100 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd1 } if i 2 eq {/xt2 xm1 1520 sub def /yt2 ym1 200 add def xt2 yt2 moveto ([) show TIK (rgb) show 0 -50 rmoveto TS (d) show 0 50 rmoveto TK (]) show 0 100 rmoveto TS (n2) show 0 -100 rmoveto TK -800 -250 rmoveto (->) show TIK (rgb') show KMind_dd2 } if newpath } for %i=0,2 /xtn xm1 1600 add def /ytn ym1 800 add def 0 0.7 0 setrgbcolor xtn ytn moveto TK (n1=1,8/1,8) show 0 setgray xtn ytn 250 sub moveto TK (n2=2,4/1,8) show xtn ytn 500 sub moveto TK (n3=1,2/1,8) show newpath 1 setgray xm1 ym1 xr1 0 360 arc fill 0 setgray newpath newpath xm1 ym1 xr3 0 360 arc stroke newpath newpath xm1 ym1 xr1 0 360 arc stroke newpath xm1 450 sub ym1 150 add moveto ( ISO) showea ( ISO\255) showde xm1 450 sub ym1 100 sub moveto ( colours) showea ( Farben) showde 1 0 0 setrgbcolor xm1 450 sub ym1 350 sub moveto ( AE49) showea ( AG49) showde 0 setgray 0 1 2 {/i exch def %i=0,2 1 setgray xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath fill 0 setgray i 1 eq {0 0.7 0 setrgbcolor} if xi i get xrec sub yi i get yrec sub moveto xrec2 0 rlineto 0 yrec2 rlineto xrec2 neg 0 rlineto closepath stroke 0 setgray TK xi i get xrec sub 250 add yi i get yrec add 250 sub moveto (RGB) show xi i get xrec sub 030 add yi i get yrec add 450 sub moveto i 0 eq {(display) showea (Display) showde} if i 1 eq {(display) showea (Display) showde} if i 2 eq {(display) showea (Display) showde} if i 0 eq {SMind_dd3} if i 1 eq {SMind_dd1} if i 2 eq {SMind_dd2} if 1 0 0 setrgbcolor xi i get xrec sub 030 add yi i get yrec add 700 sub moveto i 0 eq {(D65, C) show S0ind_Y1} if i 1 eq {(D65, C) show S0ind_Y5} if i 2 eq {(D65, C) show S0ind_Y8} if 0 setgray } for %i=0,2 %****************************************************************************** showpage grestore %%Trailer