%!PS-Adobe-3.0 EPSF-3.0 fga10-5n.EPS
%%BoundingBox: 70 85 226 206

%START PDFDE011.EPS
/pdfmark05 where {pop} {userdict /pdfmark05 /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/fga1/fga1.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices, colour vision)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2022120112000)
 /ModDate (D:2022120112000)
/DOCINFO pdfmark05
[ /View [ /FitB ]
/DOCVIEW pdfmark05
%END  PDFDE011

% !Times-Roman -> Times-Roman-ISOLatin1=Times-ISOL1
/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 {220 /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 {220 /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 {220 /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 {220 /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 {220 /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 {220 /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 {220 /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 {220 /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 {220 /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 (fga10-5n) 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 {-40 -50 rmoveto TV (dd0) show 0 50 rmoveto TS} def
/SMind_dd1 {-40 -50 rmoveto TV (dd1) show 0 50 rmoveto TS} def
/SMind_dd2 {-40 -50 rmoveto TV (dd2) show 0 50 rmoveto TS} def
/SMind_dd3 {-40 -50 rmoveto TV (dd3) show 0 50 rmoveto TS} def

/SMind_de0 {-40 -50 rmoveto TV (de0) show 0 50 rmoveto TS} def
/SMind_de1 {-40 -50 rmoveto TV (de1) show 0 50 rmoveto TS} def
/SMind_de2 {-40 -50 rmoveto TV (de2) show 0 50 rmoveto TS} def
/SMind_de3 {-40 -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  3400 def %text 2
ix00 iy00 380 add moveto
TBK
(Farbmanagement) showde
(Colour Management) showea

( nach ) showde
(, based on ) showea
(ISO 9241\255306:2018) show

%(1\051) ebshowTM

TK
ix00 iy00 100 add 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 100 add moveto
(device data to) showea
(Ger\344tedaten nach) showde
ix00 iy00 500 sub 100 add moveto
(device) showea
(Ger\344te\255) showde
ix00 iy00 750 sub 100 add 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 1000 sub moveto
(all 3 displays:) showea
(alle 3 Displays:) showde
ix00 3800 add iy00 1250 sub moveto
(device output) showea
(Ger\344teausgabe\255) showde
ix00 3800 add iy00 1500 sub moveto
(contrast range) showea
(Kontrastbereich) showde
ix00 4050 add iy00 1750 sub moveto
(ISO C) showea
(ISO\255C) showde
0 -50 rmoveto TS (Y5) show 0 50 rmoveto TK (:) show
ix00 4050 add iy00 2000 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 0500 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

/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 0050 sub def /yt3 ym1 1000 sub 250 add def
               xt3 yt3 moveto TIK (rgb) show
               0 -50 rmoveto TS (d) show 0 50 rmoveto TK
               -450 -250 rmoveto
               (->) show TIK (rgb') show
               KMind_dd3
              } if

       i 1 eq {/xt1 xm1 0350 add def /yt1 ym1 700 add 250 add def
               xt1 yt1 moveto TIK (rgb) show
               0 -50 rmoveto TS (d) show 0 50 rmoveto TK
               -450 -250 rmoveto
               (->) show TIK (rgb') show
               KMind_dd1
              } if

       i 2 eq {/xt2 xm1 1420 sub def /yt2 ym1 200 add 250 add def
               xt2 yt2 moveto TIK (rgb) show
               0 -50 rmoveto TS (d) show 0 50 rmoveto TK
               -450 -250 rmoveto
               (->) show TIK (rgb') show
               KMind_dd2
              } if

1 0 0 setrgbcolor -970 i 1 eq {50 add} if -250 rmoveto (DeviceLP) show 0 setgray

       newpath
      } for %i=0,2

newpath
0 setgray
xm1 ym1 xr3 0 360 arc stroke

newpath
1 1 0 setrgbcolor
xm1 ym1 xr1 0 360 arc fill
0 setgray
xm1 ym1 xr1 0 360 arc stroke
newpath

xm1 180 sub ym1 280 add moveto
TK (ISO) show
xm1 190 sub ym1 080 add moveto
TIK (rgb*) show
xm1 440 sub ym1 160 sub moveto
TK (PCS PCC) show
1 0 0 setrgbcolor
xm1 250 sub ym1 380 sub moveto
(AE49) showea
(AG49) showde
TK
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
       xi i get xrec sub
       yi i get yrec sub moveto
       xrec2 0 rlineto 0 yrec2 rlineto
       xrec2 neg 0 rlineto closepath stroke
       
       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_Y5} if
       i 1 eq {(D65, C) show S0ind_Y5} if
       i 2 eq {(D65, C) show S0ind_Y5} if
       0 setgray

      } for %i=0,2

%******************************************************************************

showpage
grestore

%%Trailer