%!PS-Adobe-3.0 EPSF-3.0 EE861-7N.EPS
%%BoundingBox: 70 82 310 327

%START PDFDE011.EPS
/pdfmark17 where {pop} {userdict /pdfmark17 /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/EE86/EE86.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 pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%END  PDFDE011

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {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

/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-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

/rec %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul sub y0 heigth 0.5 mul sub moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

/A4quer {598 0 tl 90 rotate} def
 
/nr1 27 array def
/tx1 52 array def

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
      (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
      (21) (22) (23) (24) (25) (26) (27)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
      (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
      (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d)
      (e) (f) (g) (h) (i) (j) (k) (l) (m) (n)
      (o) (p) (q) (r) (s) (t) (u) (v) (w) (x)
      (y) (z)] def

/iout 0 def %not used
iout 1 eq {%iout=1

/RGB54CC17_L 17 array def
/RGB54CC17_L
[%high chromatic series:
 %relative hue h*, brillance i*, and chroma c*, range 0 ... 100
 (R00Y_100_100) 1.00 0.00 0.00 %00
 (R25Y_100_100) 1.00 0.25 0.00 %01
 (R50Y_100_100) 1.00 0.50 0.00 %02
 (R75Y_100_100) 1.00 0.75 0.00 %03

 (Y00G_100_100) 1.00 1.00 0.00 %04
 (Y25G_100_100) 0.75 1.00 0.00 %05
 (Y50G_100_100) 0.50 1.00 0.00 %06
 (Y75G_100_100) 0.25 1.00 0.00 %07

 (G00B_100_100) 0.00 1.00 0.00 %08
 (G25B_100_100) 0.00 1.00 0.50 %09
 (G50B_100_100) 0.00 1.00 1.00 %10
 (G75B_100_100) 0.00 0.50 1.00 %11

 (B00R_100_100) 0.00 0.00 1.00 %12
 (B25R_100_100) 0.50 0.00 1.00 %13
 (B50R_100_100) 1.00 0.00 1.00 %14
 (B75R_100_100) 1.00 0.00 0.50 %15

 (R00Y_100_100) 1.00 0.00 0.00 %16 repeat for circle
] def

/LAB*ee 12 array def %2x3=12 Lab* for D65
/LAB*ee [39.92  58.74  27.99 %0 00_04 R CIE No.09 elementary in LAB
         81.26  -2.89  71.56 %1 05_09 J CIE No.10
         52.23 -42.42  13.60 %2 10_14 G CIE No.11
         30.57   1.41 -46.47 %3 20_24 B CIE No.12
        ] def

/rgb_12 12 array def %RYGCBMd, NWd,e, RYGBe
/rgb_12
[1.0 0.0 0.0  1.0 1.0 0.0  0.0 1.0 0.0             %RYGd
 0.0 1.0 1.0  0.0 0.0 1.0  1.0 0.0 1.0             %CBMd
 0.0 0.0 0.0  1.0 1.0 1.0                          %NWd,e
 1.0 0.0 0.0  1.0 1.0 0.0  0.0 1.0 0.0 0.0 0.0 1.0 %RYGBe
] def

%******************************************************************
/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def

/Lrefl 11 array def
/Lrefl [(0%) (0%) (0%)
        (0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
} if %iout=1 all above not used

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(-) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def
         
%************************************************
%******BEG RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours
/r*dd64M 64 array def
/r*dd64M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
         ] def
/g*dd64M 64 array def
/g*dd64M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
         ] def
/b*dd64M 64 array def
/b*dd64M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
          0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C
          1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B
          1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
          0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
         ] def

%calculate all data of 16+1=17 step elementary colour circle
/ind64M 17 array def
/ind64M 
%R00Y R25Y R50Y R75Y Y00G Y25G Y50G Y75G
[0    2    4    6    8    10   12   14
%G00B G25B G50B G75G B00R B25R B50R B75R R00Y
 16   20   24   28   32   36   40   44   0
] def

%actual 16 step device circle + N + W
/r*dd18M 18 array def
/g*dd18M 18 array def
/b*dd18M 18 array def

0 1 15 {/i exch def %i=0,15
        /indi ind64M i get def
        r*dd18M i r*dd64M indi get put %16 device colours
        g*dd18M i g*dd64M indi get put
        b*dd18M i b*dd64M indi get put
       } for %i=0,15

r*dd18M 16 0 put %N
g*dd18M 16 0 put
b*dd18M 16 0 put

r*dd18M 17 1 put %W
g*dd18M 17 1 put
b*dd18M 17 1 put

%actual 6 step device circle + N + W
/r*dd08M 08 array def
/g*dd08M 08 array def
/b*dd08M 08 array def

0 1 5 {/i exch def %i=0,5
        r*dd08M i r*dd64M i 8 mul get put %6 device colours
        g*dd08M i g*dd64M i 8 mul get put
        b*dd08M i b*dd64M i 8 mul get put
       } for %i=0,5

r*dd08M 6 0 put %N
g*dd08M 6 0 put
b*dd08M 6 0 put
r*dd08M 7 1 put %W
g*dd08M 7 1 put
b*dd08M 7 1 put

%******END RGB_48_16_6.PS default rgb data for 48/16/6 steps for device colours
%*******************************************************************
%%EndProlog
gsave
/lanind 1 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

/lanind1 1 def /lanind2 1 def /lanindd 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf 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 /xchartm xchartmf def}
               {/xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 0 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 2 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                /pchartd pchartdf def /pchartm pchartmf def}
               {/pchartm 1 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/lanind lanind1 def %lanind1 lanindd lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 colormd colorm2 {/colorm exch def %output showpage
/deintp deintp1 def %deintp1 deintpd deintp2 {/deintp exch def %output showpage
/xcolor xcolor1 def %xcolor1 xcolord xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 xchartd xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 pchartd pchart2 {/pchart exch def %output showpage
/colsep colsep1 def %colsep1 colsepd colsep2 {/colsep exch def %output showpage

/xchax 1 def %fix page 1 of test chart

gsave
%A4querL
/colorml colorm1 def

colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if

gsave

%font0309.ps***********************************************
/CW {100 /Courier-ISOL1 FS} bind def
/CV {150 /Courier-ISOL1 FS} bind def
/CS {200 /Courier-ISOL1 FS} bind def
/CK {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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 {250 /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
%font0309.ps***********************************************

/cvishow {cvi 6 string cvs show} def

/IMODE 0 def
/xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xs5x xs 5.4 mul def /ys5x ys 5.4 mul def
/x xs 0.1 mul def
/y ys 12.0 mul def

/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def


/xd 800 def
/yd 800 def
/xd5x xs5x 200 sub def
/yd5x ys5x 200 sub def
/j 0 def /i 0 def

7 /Times-ISOL1 FS
 72 83 moveto
(EE861-7N) show

72 90 translate
0.01 8000 10800 div mul MM dup scale

/xyf 1 def
0.5 0.5 0.5 setrgbcolor
%0 0 moveto 11500 0 rlineto 0 10800 rlineto
%          -11500 0 rlineto closepath fill

/ibild 1 def

%BEG CIELAB-Hue Circle
%-1200 -1500 translate
/xym xyf 4 mul def
25  setlinewidth
/xd2 xd 0.8 mul def
0.5 0.5 0.5 setrgbcolor
%1.0 1.0 1.0 setrgbcolor
0 0  moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto
           -2800 xym mul 0 rlineto
closepath fill
0.0 setgray
0 0  moveto 2800 xym mul 0 rlineto 0 2800 xym mul rlineto
           -2800 xym mul 0 rlineto
closepath stroke

1 setgray
0020 xym mul 2720 xym mul moveto
TG
(colour data of circles in file:) showen
(Farbdaten der Kreise in Datei:) showde
0020 xym mul 2720 xym mul 350 sub moveto
TG
(outer ) showen
(au\337en ) showde
TIG
(rgb (given)) showen
(rgb (angegeben)) showde
0020 xym mul 2720 xym mul 700 sub moveto
TG
(inner ) showen
(innen ) showde
TIG (cmyk (1MR)) show
0 setgray

1400 xym mul 1400 xym mul translate %cero at center
-550 xym mul 0 moveto 550 xym mul 0 lineto stroke
0 -650 xym mul moveto 0 650 xym mul lineto stroke

/rx 774 xym mul 1.56 mul def %standard hexagon gamut
0 0 0 setrgbcolor
0 0 rx 0 360 arc stroke

/AngrgbTabt 88 array def
/AngrgbTabt [%31 angles = 360/18 + 1 = 20 + 1
000 1.0 0.0 0.0
018 1.0 0.2 0.0
036 1.0 0.4 0.0
054 1.0 0.6 0.0
072 1.0 0.8 0.0
090 1.0 1.0 0.0
108 0.8 1.0 0.0
126 0.6 1.0 0.0
144 0.4 1.0 0.0
162 0.2 1.0 0.0
180 0.0 1.0 0.0
198 0.0 1.0 0.4
216 0.0 1.0 0.8
234 0.0 0.8 1.0
252 0.0 0.4 1.0
270 0.0 0.0 1.0
288 0.4 0.0 1.0
306 0.8 0.0 1.0
324 1.0 0.0 0.8
342 1.0 0.0 0.4
360 1.0 0.0 0.0
] def

/AngrgbTabt16 88 array def
/AngrgbTabt16 [%17 angles = 360/22,5 + 1 = 16 + 1
000.0 1.00 0.00 0.00
022.5 1.00 0.25 0.00
045.0 1.00 0.50 0.00
067.5 1.00 0.75 0.00
090.0 1.00 1.00 0.00
112.5 0.75 1.00 0.00
135.0 0.50 1.00 0.00
157.5 0.25 1.00 0.00
180.0 0.00 1.00 0.00
202.5 0.00 1.00 0.50
225.0 0.00 1.00 1.00
247.5 0.00 0.50 1.00
270.0 0.00 0.00 1.00
292.5 0.50 0.00 1.00
315.0 1.00 0.00 1.00
337.5 1.00 0.00 0.50
360.0 1.00 0.00 0.00
] def

%From RE69/RE69L0FP.PDF 191015
/AngrgbTabt16_Srgb 88 array def
/AngrgbTabt16_Srgb [%17 angles = 360/22,5 + 1 = 16 + 1
000.0 1.000 0.000 0.264 %R00Y
022.5 1.000 0.102 0.000 %R25Y
045.0 1.000 0.489 0.000 %R50Y
067.5 1.000 0.682 0.000 %R75Y

090.0 1.000 0.856 0.000 %Y00G
112.5 0.906 1.000 0.000 %Y25G
135.0 0.530 1.000 0.000 %Y50G
157.5 0.000 1.000 0.439 %Y75G

180.0 0.000 1.000 0.707 %G00B
202.5 0.000 1.000 0.955 %G25B
225.0 0.000 0.890 1.000 %G50B
247.5 0.000 0.763 1.000 %G75B

270.0 0.000 0.609 1.000 %B00R
292.5 0.500 0.272 1.000 %B25R
315.0 1.000 0.000 0.991 %B50R
337.5 1.000 0.000 0.616 %B75R

360.0 1.000 0.000 0.264 %R00Y
] def

/xd2r xd2 0.7 mul def
0 1 16 {/j exch def %j=0,30
/xpos rx AngrgbTabt16_Srgb j 4 mul get cos mul def
/ypos rx AngrgbTabt16_Srgb j 4 mul get sin mul def
/r AngrgbTabt16_Srgb j 4 mul 1 add get def
/g AngrgbTabt16_Srgb j 4 mul 2 add get def
/b AngrgbTabt16_Srgb j 4 mul 3 add get def
r g b setrgbcolor
xpos ypos xd2 0 360 arc fill

xchax 0 eq {%xchax=0
/xpos rx AngrgbTabt16_Srgb j 4 mul get cos mul def
/ypos rx AngrgbTabt16_Srgb j 4 mul get sin mul def
/r AngrgbTabt16_Srgb j 4 mul 1 add get def
/g AngrgbTabt16_Srgb j 4 mul 2 add get def
/b AngrgbTabt16_Srgb j 4 mul 3 add get def
1 r sub 1 g sub 1 b sub 0 setcmykcolor
xpos ypos xd2r 0 360 arc fill
            } if %xchax=0

} for %j=0,16

ibild 0 eq {%ibild=0
TBM
0 setgray
  4350   -100 moveto ( 1  0  0) show %000 R
  -450  4700 moveto  ( 1  1  0) show %090 Y
 -5300   -100 moveto ( 0  1  0) show %180 G
1 setgray 
  -450 -4900 moveto  ( 0  0  1) show %270 B
0 setgray
  2950  3300 moveto ( 1 0,5 0) show %045 YR
 -3900  3300 moveto ( 0,5 1 0) show %135 YG
 -3800 -3500 moveto ( 0  1  1) show %225 BG
1 setgray
  3000 -3500 moveto ( 1  0  1) show %315 BR
0 setgray
} if %ibild=0

ibild 1 eq {%ibild=1
TBM
0 setgray
  4350   -100 moveto (1 0 0,27) show
  -450  4700 moveto (1 0,86 0) show
 -5300   -100 moveto (0 1 0,70) show
1 setgray
  -450 -4900 moveto (0 0,61 1) show
0 setgray
  2950  3300 moveto (1 0,48 0) show
 -3900  3300 moveto (0,45 1 0) show
 -3800 -3500 moveto (0 0,89 1) show
1 setgray
  3000 -3500 moveto (1 0 0,95) show
0 setgray
} if %ibild=1

%ibild 1 eq {%ibild=1
%0 1 19 {/j exch def %j=0,30
%0 1 15 {/j exch def %j=0,15
%/xpos rx AngrgbTabt16 j 4 mul get cos mul def
%/ypos rx AngrgbTabt16 j 4 mul get sin mul def
%0 0 0 setrgbcolor
%j 13 ge j 17 le and {1 1 1 setrgbcolor} if
%xpos 200 sub ypos 100 sub moveto
%j 9 le {TBG (0) show j cvishow} {j cvishow} ifelse 
%} for %j=0,15
%} if %ibild=1

1 1 1 setrgbcolor  
 2600   1000 moveto
TBG
(  gelblich) showde
(yellowish) showen
(amarillento) showes
(jaun\342tre) showfr
(giallastro) showes
(  gullig) showjp
TBG (?) show


-3800    800 moveto
TBG
(  gelblich) showde
(yellowish) showen
(amarillento) showes
(jaun\342tre) showfr
(giallastro) showes
(  gullig) showjp
TBG (?) show

 2600  -1150 moveto
TBG
(bl\344ulich) showde
(  bluish) showen
( azulado) showes
( blu\342tre) showfr
( bluastro) showit
( bl\345lig) showjp
TBG (?) show

-3800  -1150 moveto
TBG
(bl\344ulich) showde
(  bluish) showen
( azulado) showes
( blu\342tre) showfr
( bluastro) showit
( bl\345lig) showjp
TBG (?) show

 -1600  3400 moveto
TBG
(gr\374nlich) showde
(greenish) showen
(verdoso) showes
(verd\342tre) showfr
(verdastro) showit
( gr\370nnlig) showjp
TBG (?) show

 -1600 -3600 moveto
TBG
(gr\374nlich) showde
(greenish) showen
(verdoso) showes
(verd\342tre) showfr
(verdastro) showit
( gr\370nnlig) showjp
TBG (?) show

   700  3400 moveto
TBG
(r\366tlich) showde
(  redish) showen
(rojizo) showes
(rouge\342tre) showfr
(rossastro) showit
(  r\370dlig) showjp
TBG (?) show

   700 -3600 moveto
TBG
(r\366tlich) showde
(  redish) showen
(rojizo) showes
(rouge\342tre) showfr
(rossastro) showit
(  r\370dlig) showjp
TBG (?) show

 2650 -100 moveto
TBG
(  Rot) showde
(  Red) showen
(Rojo) showes
(Rouge) showfr
(Rosso) showit
(  R\370d) showjp
TBIG ( R) show (e) jshowTG TBG (?) show

 -650 3800 moveto
TBG
(  Gelb) showde
( Yellow) showen
(Amarillo) showes
( Jaune) showfr
( Giallo) showit
(   Gul) showjp
TBIG ( Y) show (e) jshowTG TBG (?) show

-4000 -100 moveto
TBG
(Gr\374n) showde
(Green) showen
(Verde) showes
(Vert) showfr
(Verde) showit
(Gr\370nn) showjp
TBIG ( G) show (e) jshowTG TBG (?) show

 -550 -4000 moveto
TBG
(Blau) showde
(Blue) showen
(Azul) showes
(Bleu) showfr
(Blu) showit
(Bl\345) showjp
TBIG ( B) show (e) jshowTG TBG (?) show

-1400 xym mul -1400 xym mul translate

%END CIELAB-Hue Circle

showpage
grestore

%%Trailer