%!PS-Adobe-3.0 EPSF-3.0 AE870-7N
%%BoundingBox: 70 83 413 190

%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: farbe.li.tu-berlin.de/AE87/AE87.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:2020080112000)
 /ModDate (D:2020080112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END  PDFDE011

%SETCMYK_OLV.PS
/setcmyk_olvcolor %transfer cmyk to olv
{/ncolor exch def /ycolor exch def
 /mcolor exch def /ccolor exch def
 ncolor 0 eq {1 ccolor sub
              1 mcolor sub
              1 ycolor sub setrgbcolor
             }
             {ccolor 0 eq 
              mcolor 0 eq and
              ycolor 0 eq and {%only black n
                               1 ncolor sub 
                               dup
                               dup
                               setrgbcolor
                              }
                              {%cmy and black n
                               1 ccolor sub 1 ncolor sub mul
                               1 mcolor sub 1 ncolor sub mul
                               1 ycolor sub 1 ncolor sub mul
                               setrgbcolor
                              } ifelse
             } ifelse
} bind def

/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

/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

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

/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
%%EndProlog
gsave

/nshow {TS  show} bind def
/kshow {TIS show} bind def
/bshow {TBS show} bind def
/jshow {TBIS show} bind def
/ibshown {TBS -50 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ibshow0 {TBS -00 -50 rmoveto show 0 50 rmoveto TBS} bind def
/ishown  {TS  -50 -50 rmoveto show 0 50 rmoveto TS } bind def
/ishow0  {TS  -00 -50 rmoveto show 0 50 rmoveto TS } bind def

/lanind 0 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 1 def /lanind2 1 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 0 def /xcolor2 0 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def}
               {/xchart1 0 def /xchart2 0 def} ifelse
/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

/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

5 /Times-ISOL1 FS
72 85 moveto
    (AE870-7N) show
     
72 90 translate

/ytit 550 def 
/yhoe 4000 def
/yhoet yhoe ytit sub def
/xwide 12000 def
/ishow {-50 -100 rmoveto 200 /Times-ISOL1 FS show
          0  100 rmoveto TM} bind def

0.01 MM 0.01 MM scale

15 setlinewidth
0.0 0.0 0.0 0.0 setcmykcolor
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath fill
0.0 0.0 0.0 1.0 setcmykcolor
 
0 0  moveto xwide 0 rlineto 0 yhoet rlineto xwide neg 0 rlineto
closepath stroke

/yt 300 def %y-Zeilenabstand for text
/yd 400 def %y-Zeilenabstand for formula

%Spalten
/S1 100 def
/S2  1500 def
/S3  2300 def
/S4  5900 def
/S5  7700 def
/S6  8500 def

/yz 400 def
/yu5 7600 def
/yu4 7100 def
/yu3 5800 def
/yu2 5800 def
/yu1 5800 def

%Titeltext

/xt1 0 def
/yt1 400 def

xt1 yt1 translate

 100 2800 moveto
0 setgray
TBK (Offset) showea
    (Offset) showde
TBIK
( rgb*) show
TBK
( input data and) showea
(\255Dateneingabe und) showde
TBIK
( LCh*) show
TBK ( output data) showea
(\255Datenausgabe) showde

/S10  100 def
/S11  400 def

/S20 2500 def
/S21 2800 def
/S23 3100 def

/S30 3500 def
/S31 3800 def
/S33 4100 def 

/Z10 2500 def
/Z1R 2200 def
/Z1Y 1900 def
/Z1G 1600 def
/Z1B 1300 def
/Z1N 1000 def
/Z1W 0700 def

S10 Z10 moveto
TBK (Color) showea
(Farbe) showde

S20 Z10 moveto
TBIK (rgb*) show

S30 Z10 moveto
TBIK (LCh*) show

%Z1R****************************
S10 Z1R moveto
TBIK (R) show (e) ishow
S11 Z1R moveto
TK (Elementar\255Rot) showde
(elementary red) showea
S20 Z1R moveto
TBK (1 0 0) show
S30 Z1R moveto
TK (47, 74,) show TBK ( 26) show TK

%Z1Y****************************
S10 Z1Y moveto
TBIK (Y) show (e) ishow
S11 Z1Y moveto
TK (Elementar\255Gelb) showde
(elementary yellow) showea
S20 Z1Y moveto
TBK (1 1 0) show
S30 Z1Y moveto
TK (86, 88,) show TBK ( 92) show TK

%Z1G****************************
S10 Z1G moveto
TBIK (G) show (e) ishow
S11 Z1G moveto
TK (Elementar\255Gr\374n) showde
(elementary green) showea
S20 Z1G moveto
TBK (0 1 0) show
S30 Z1G moveto
TK (53, 57,) show TBK ( 164) show TK

%Z1B****************************
S10 Z1B moveto
TBIK (B) show (e) ishow
S11 Z1B moveto
TK (Elementar\255Blau) showde
(elementary blue) showea
S20 Z1B moveto
TBK (0 0 1) show
S30 Z1B moveto
TK (42, 45,) show TBK ( 271) show TK

%Z1N****************************
S10 Z1N moveto
TBIK (N) show
S11 Z1N moveto
TK (Schwarz) showde
(black) showea
S20 Z1N moveto
TBK (0 0 0) show
S30 Z1N moveto
TK (18,) show TBK ( 0, 0) show TK

%Z1W****************************
S10 Z1W moveto
TBIK (W) show
S11 Z1W moveto
TK (Wei\337) showde
(white) showea
S20 Z1W moveto
TBK (1 1 1) show
S30 Z1W moveto
TK (95,) show TBK ( 0, 0) show

/RS {200 /Times-Roman FS} bind def

S10 400 moveto
TIK
(Data according to test chart DIN 33872\2552, p.9\25512) showea
(Daten nach Pr\374fvorlage DIN 33872\2552, S. 9\25512) showde
0 0 1 setrgbcolor
RS
S10 180 moveto
(http://farbe.li.tu-berlin.de/A/33872E.html) showea
(http://farbe.li.tu-berlin.de/A/33872.html) showde
0 setgray


S10 -100 moveto
TIK
(Elementary\255hue angles of CIE R1\25547, see) showea
(Elementar\255Bunttonwinkel von CIE R1\25547, siehe) showde
0 0 1 setrgbcolor
TS
S10 -320 moveto
(http://web.archive.org/web/20160304130704/http://files.cie.co.at/526.pdf) show
0 setgray


xt1 neg yt1 neg translate

%HUE CIRCLE
/xd 1550 def
/yd 5000 def
/xp 1550 def
/yp 5000 def
/xdN xd def
/ydN yd 2000 sub def
/xdW xd def
/ydW yd def
/xdR xd 2000 add def
/ydR yd 1000 sub def

/xm 2000 4 div def
/xip xd xm 2 mul add def
/yip ydN xm 2 mul add def

/xi1 xd xm 1 mul sub def
/yi1 ydW xm 0.5 mul sub def

/xi2 xd xm 2 mul add def
/yi2 ydN 400 sub def

%*************************************************************************
%RJGB
/xt2 6500 def
/yt2 -2650 def
xt2 yt2 translate

0 setgray
xp 1900 sub yp 0900 add moveto
TBK (9stufige Offset\255Farben im \255CIELAB\255Farbraum) showde
(9 step offset colours in CIELAB colour space) showea

/xfact 2000 100 div def
/yfact 1000 100 div def
/L*d 47 yfact mul def
/C*d 75 xfact mul def
/L*Nd 18 yfact mul def
/L*Wd 95 yfact mul def

0 setgray
xp 900 add yp 0600 sub moveto
TK
(9 steps) showea
(9 Stufen) showde

xp 800 add yp 1550 sub moveto
TK
(  9 steps) showea
(9 Stufen) showde

xp 900 sub yp 1000 sub moveto
TK
(  9 steps) showea
(9 Stufen) showde

/xpN xp def
/ypN yp 2000 sub def
/xpW xp def
/ypW yp def
/xpX xp 2000 add def
/ypX yp 1000 sub def

xpN ypN moveto 3000 0 rlineto stroke %sertical axis
xpN 3000 add 100 sub ypN 050 sub moveto 100 050 rlineto
                                       -100 050 rlineto stroke
xpN ypN moveto 0 2350 rlineto stroke %diagonal up
xpN 050 sub ypN 2250 add moveto 050  100 rlineto
                                050 -100 rlineto stroke

xpN 1470 add ypN 250 sub moveto
TBK
(CIELAB chroma) showea
(CIELAB Buntheit) showde
TBIK ( C*) show (ab) ibshown

xpN 100 add ypN 2250 add moveto
TBK
(CIELAB ligthness) showea
(CIELAB Helligkeit) showde
TBIK ( L*) show

TBK
xpW ypW moveto 200 0 rlineto 50 -50 rmoveto (100) show %Scale lightness
xpX ypN 50 sub moveto 0 100 rlineto stroke
xpX 150 sub ypN 100 add moveto (100) show %scale chroma

0 0 1 setrgbcolor
xpN ypN moveto 2840 0 rlineto 0 2000 rlineto
              -2840 0 rlineto closepath stroke
              
xpN 2740 add 1000 sub ypN 2000 add 650 add moveto
TIK
(ICC) show
TK
(\255Codierungsraum) showde
( encoding space) showea

xpN 2840 add 250 sub ypN 2000 add 375 add moveto
TIK
(\050C*) show
TS 00 -50 rmoveto (ab) show 0 50 rmoveto TK
(, L*\051) show

xpN 2840 add 150 sub ypN 2000 add 100 add moveto
TK
(=(142, 100)) show
xpN 2840 add 100 add ypN 2000 add 175 sub moveto
TIK (h) show
TS 00 -50 rmoveto (ab) show 0 50 rmoveto TK
(= 26) show

0 setgray
/xNd xp def %Nd
/yNd ypN 2000 0.18 mul add def
newpath
xNd yNd 100 0 360 arc fill

/xWd xp def %Wd
/yWd ypN 2000 0.95 mul add def
newpath
xWd yWd 100 0 360 arc fill

/xRd xp  2000 0.75 mul add def %Rd
/yRd ypN 2000 0.47 mul add def
newpath
xRd yRd 100 0 360 arc fill
newpath
1 0 0 setrgbcolor
xip 100 sub yip 50 sub moveto (F) show

0 setgray
20 setlinewidth
newpath
xNd yNd moveto xRd yRd lineto xWd yWd lineto stroke

newpath
0 setgray
/xm 2000 8 div def
/ym 2000 8 div def
0 1 08 {/i exch def
       /xm 0 def
       /ym yWd yNd sub 8 div def
       /xi xNd xm i mul add def  %NW
       /yi yNd ym i mul add def
       xi yi 050 0 360 arc fill

       /xm xRd xNd sub 8 div def
       /ym yRd yNd sub 8 div def
       /xi xNd xm i mul add def  %NR
       /yi yNd ym i mul add def
       xi yi 050 0 360 arc fill

       /xm xRd xWd sub 8 div def
       /ym yWd yRd sub 8 div def
       /xi xRd xm i mul sub def  %RW
       /yi yRd ym i mul add def
       xi yi 050 0 360 arc fill
      } for

1 0 0 setrgbcolor
/xRd2 xp  2000 0.375 mul add def
/yRd2 yRd ym 4 mul add yWd yNd sub 4 div sub def
40 setlinewidth
xRd2 yRd2 100 0 360 arc fill
xRd2 yRd2 moveto xNd  yWd yWd yNd sub 4 div sub lineto stroke
xRd2 yRd2 moveto 0 -750 rlineto stroke

0 setgray
xpN 1500 sub ypN 500 add moveto
TBK
(Schwarz) showde
(     Black) showea
TBIK ( N) show

xpN 1900 sub ypN 250 add moveto
TBIK (LCh*) show (N) ibshow0 TBK ( = 18, 0, 0) show
xpN 1900 sub ypN 000 sub moveto
TBIK (rgb*) show (N) ibshow0 TBK ( = 0, 0, 0) show

xpW 1250 sub ypW 050 sub moveto
TBK
(Wei\337) showde
(White) showea
TBIK ( W) show

xpW 1900 sub ypW 550 add moveto
TBIK (LCh*) show (W) ibshow0 TBK ( = 95, 0, 0) show
xpW 1900 sub ypW 300 add moveto
TBIK (rgb*) show (W) ibshow0 TBK ( = 1, 1, 1) show

xpX 300 sub ypX 050 sub moveto
TBK (red) showea
(Rot) showde
TBIK ( R) show (e) ishow

xpX 300 sub ypX 300 sub moveto
TBIK (LCh*) show (R) ibshow0 TBK ( = 47, 74, 26) show
xpX 300 sub ypX 550 sub moveto
TBIK (rgb*) show (R) ibshow0 TBK ( = 1, 0, 0) show

/xi1 xp xm 1 mul sub def
/yi1 ypW xm 0.5 mul sub def

/xi2 xp xm 2 mul add def
/yi2 ypN 400 sub def

1 0 0 setrgbcolor
xi1 900 sub yi1 450 sub moveto
TBIM (I*) show TBM ( = 75) show
xi2 300 sub yi2 500 add moveto
TBIM (C*) show (ab) ibshow0 TBM ( = 37) show

xpN 700 sub ypN 250 sub moveto
TBIK (rgb*) show (F) ibshow0 TBK ( =0,75, 0,25, 0) show

xt2 neg yt2 neg translate

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

showpage
grestore

%%Trailer