%!PS-Adobe-3.0 EPSF-3.0 AGG01-7N
%%BoundingBox: 70 85 226 206

%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: farbe.li.tu-berlin.de/AGG0/AGG0.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:2020090112000)
 /ModDate (D:2020090112000)
/DOCINFO pdfmark17
[ /View [ /Fit ]
/DOCVIEW pdfmark17
%END  PDFDE011
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
 
/TimesBI-ISOL1 exch definefont pop
 
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
 
/TS {170 16.67 div /Times-ISOL1 FS} bind def
/TK {225 16.67 div /Times-ISOL1 FS} bind def
/TM {290 16.67 div /Times-ISOL1 FS} bind def
/TG {350 16.67 div /Times-ISOL1 FS} bind def

/TIS {170 16.67 div /TimesI-ISOL1 FS} bind def
/TIK {225 16.67 div /TimesI-ISOL1 FS} bind def
/TIM {300 16.67 div /TimesI-ISOL1 FS} bind def
/TIG {350 16.67 div /TimesI-ISOL1 FS} bind def

/TBS {170 16.67 div /TimesI-ISOL1 FS} bind def
/TBK {225 16.67 div /TimesB-ISOL1 FS} bind def
/TBM {300 16.67 div /TimesB-ISOL1 FS} bind def
/TBG {350 16.67 div /TimesB-ISOL1 FS} bind def

/TBIS {170 16.67 div /TimesI-ISOL1 FS} bind def
/TBIK {225 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIM {300 16.67 div /TimesBI-ISOL1 FS} bind def
/TBIG {350 16.67 div /TimesBI-ISOL1 FS} bind def

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/colrecfi %x y width heigth c m y k
  {setcmykcolor rec fill} bind def
 
/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def
 
/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def
 
/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def
 
/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def
 
/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def
 
/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def
 
/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def
 
/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def
 
%ANFA OUTLIN00 951204
/outshowf {setcmykcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def
 
/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def
 
/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def
 
/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
 
%%EndProlog
 
gsave
 
%LANINDL2 START  20000505
/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
/showes {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 def} ifelse
lanind1 1 lanind2 {/lanind exch def %output showpage
gsave
%LANINDL2 END
 
5 /Times-ISOL1 FS
72 86 moveto
    (AGG01-7) show
 
72 90 translate
0.1667 MM dup scale
0 0 319 239 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau
                                     %Schrift Times-Bold-Italic-Gross
0.0 0.0 0.0 0.0  setcmykcolor          %Schrift Weiss

02 227 moveto TBK
(Device colour data) showen
(Ger\344tefarbdaten) showde
TBIK ( olv*) show
-3 -4 rmoveto TBS (TLS18) show 0 4 rmoveto
TBK ( des Elementarfarbsystems) showde
    ( of the elementary system) showen

160 112 translate
2 setlinewidth
0 0 0 setrgbcolor
-60 0 moveto 60 0 lineto stroke
0 -60 moveto 0 60 lineto stroke

/AngrgbTabt 68 array def
/AngrgbTabt [%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

/textRJGBen [
(Red R) (R25Y) (R50Y) (R75Y) (Yellow Y) (Y25G) (Y50G) (Y75G)
(Green G) (G25B) (G50B) (G75B) (Blue B) (B25R) (B50R) (B75R)] def

/textRJGBde [
(Rot R) (R25Y) (R50Y) (R75Y) (Gelb Y) (Y25G) (Y50G) (Y75G)
( Gr\374n G) (G25B) (G50B) (G75B) (Blau B) (B25R) (B50R) (B75R)] def

/textu* [
(R) (R25Y) (R50Y) (R75Y) (Y) (Y25G) (Y50G) (Y75G)
(G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R)] def

/textRJGB [
(R) (R25Y) (R50Y) (R75Y) (Y) (Y25G) (Y50G) (Y75G)
(G) (G25B) (G50B) (G75B) (B) (B25R) (B50R) (B75R)] def

/texte* [
(0,000) ( ) (0,125) ( ) (0,250) ( ) (0,375) ( )
(0,500) ( ) (0,625) ( ) (0,750) ( ) (0,875) ( )] def

/textrgb*CIE [
(1 0 0) ( ) (1 0,5 0) ( ) (1 1 0) ( ) (0,5 1 0) ( )
(0 1 0) ( ) (0 1  1)  ( ) (0 0 1) ( ) (1 0 1)   ( )] def

/textLCH*CIE [
(40 65 25)  ( ) (61 67 59)  ( ) (81 68 92)  ( ) (66 56 119) ( )
(52 44 164) ( ) (42 46 220) ( ) (31 47 271) ( ) (36 56 342) ( )] def

/textolv*ORS18 [
(1 0 0,32) ( ) (1 0,35 0) ( ) (1 0,90 0) ( ) (0,51 1 0) ( )
(0 1 0,25) ( ) (0 1 0,82) ( ) (0 0,49 1) ( ) (0,67 0 1)  ( )] def

/textLCH*ORS18 [
(52 69 25) ( ) (66 70 59) ( ) (87 81 92) ( ) (73 68 119) ( )
(56 52 164) ( ) (60 44 220)  ( ) (46 41 271) ( ) (45 60 342)   ( )] def

/textolv*TLS18 [
(1 0 0,14) ( ) (1 0,39 0) ( ) (1 0,82 0) ( ) (0,61 1 0)  ( )
(0 1 0,64) ( ) (0 0,87 1) ( ) (0 0,58 1) ( ) (1 0 0,72)  ( )] def

/textLCH*TLS18 [
(57 75 25) ( ) (61 67 60) ( ) (86 72 92) ( ) (90 84 118) ( )
(87 55 162) ( ) (82 35 219)  ( ) (68 44 272) ( ) (60 81 343)   ( )] def

/rx 85 def
/rr 10 def
0 1 16 {/j exch def %j=0,30
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/r AngrgbTabt j 4 mul 1 add get def
/g AngrgbTabt j 4 mul 2 add get def
/b AngrgbTabt j 4 mul 3 add get def
r g b setrgbcolor
xpos ypos rr 0 360 arc fill
} for %j=0,20

1 1 1 setrgbcolor

0 1 15 {/j exch def
        /xpos rx AngrgbTabt j 4 mul get cos mul def
        /ypos rx AngrgbTabt j 4 mul get sin mul def
        j  0 eq {/xposadd  12 def /yposadd  -5 def} if %R
        j  1 eq {/xposadd  12 def /yposadd   0 def} if
        j  2 eq {/xposadd  12 def /yposadd   4 def} if
        j  3 eq {/xposadd  12 def /yposadd   8 def} if
                        
        j  4 eq {/xposadd  -5 20 sub  def /yposadd  13 def} if %J
        j  5 eq {/xposadd -40 def /yposadd  08 def} if
        j  6 eq {/xposadd -45 16 sub def /yposadd  04 def} if
        j  7 eq {/xposadd -45 def /yposadd  00 def} if
        
        j  8 eq {/xposadd -25 38 sub def /yposadd  -5 def} if %G
        j  9 eq {/xposadd -47 def /yposadd -12 def} if
        j 10 eq {/xposadd -45 10 sub def /yposadd -17 def} if
        j 11 eq {/xposadd -40 def /yposadd -22 def} if
        
        j 12 eq {/xposadd  -5 20 sub def /yposadd -24 def} if %B
        j 13 eq {/xposadd   5 def /yposadd -20 def} if
        j 14 eq {/xposadd  10 def /yposadd -15 def} if
        j 15 eq {/xposadd  11 def /yposadd -10 def} if
        xpos xposadd add ypos yposadd add moveto
        textolv*TLS18 j get show
       } for

/rx2 50 def       
0 2 14 {/j exch def
        /xpos rx2 AngrgbTabt j 4 mul get cos mul def
        /ypos rx2 AngrgbTabt j 4 mul get sin mul def
        j  0 eq {/xposadd  12 def /yposadd  -5 def} if %R
        j  2 eq {/xposadd  12 26 sub def /yposadd   4 def} if                        
        j  4 eq {/xposadd  -4 def /yposadd  13 def} if %J
        j  6 eq {/xposadd -45 25 add def /yposadd  04 def} if
        j  8 eq {/xposadd -23 def /yposadd  -5 def} if %G
        j 10 eq {/xposadd -45 25 add def /yposadd -17 def} if
        j 12 eq {/xposadd  -5 def /yposadd -23 def} if %B
        j 14 eq {/xposadd  10 26 sub def /yposadd -15 def} if
        xpos xposadd add ypos yposadd add moveto
        textu* j get show
       } for

/ix 0 def
ix 1 eq {%ix=1
TBK
1 1 1 setrgbcolor
/j 1 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  12 def /yposadd  -5 def
xpos xposadd add ypos yposadd add moveto
(yellowish) showen (gelblich) showde

/j 3 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd 17 def /yposadd  0 def
xpos xposadd add ypos yposadd add moveto
(redish) showen (r\366tlich) showde

/j 5 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  -70 def /yposadd  0 def
xpos xposadd add ypos yposadd add moveto
(greenish) showen (gr\374nlich) showde

/j 7 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  -70 def /yposadd  -5 def
xpos xposadd add ypos yposadd add moveto
(yellowish) showen (  gelblich) showde

/j 9 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  -70 def /yposadd  -5 def
xpos xposadd add ypos yposadd add moveto
(  bluish) showen (bl\344ulich) showde

/j 11 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd -70 def /yposadd  -10 def
xpos xposadd add ypos yposadd add moveto
(greenish) showen (gr\374nlich) showde

/j 13 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  17 def /yposadd  -10 def
xpos xposadd add ypos yposadd add moveto
 (redish) showen (r\366tlich) showde

/j 15 def
/xpos rx AngrgbTabt j 4 mul get cos mul def
/ypos rx AngrgbTabt j 4 mul get sin mul def
/xposadd  12 def /yposadd  -5 def
xpos xposadd add ypos yposadd add moveto
(bluish) showen (bl\344ulich) showde

} if %ix=1

showpage
grestore
} for %output with langind end
%%Trailer