%!PS-Adobe-3.0 EPSF-3.0 SE580-3N
%%BoundingBox: 70 83 415 300

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /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://130.149.60.45/~farbmetrik/SE58/)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik)
  /Keywords (image reproduction, colour devices, colour vision)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2013030112000)
  /ModDate (D:2013030112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%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

/ibshownG {TBM -50 -50 rmoveto show 0 50 rmoveto TBG} bind def
/ibshow0G {TBM -00 -50 rmoveto show 0 50 rmoveto TBG} bind def
/ishownG  {TM  -50 -50 rmoveto show 0 50 rmoveto TG } bind def
/ishow0G  {TM  -00 -50 rmoveto show 0 50 rmoveto TG } bind def

/ibshownM {TBK -40 -40 rmoveto show 0 40 rmoveto TBM} bind def
/ibshow0M {TBK -00 -40 rmoveto show 0 40 rmoveto TBM} bind def
/ishownM  {TK  -40 -40 rmoveto show 0 40 rmoveto TM } bind def
/ishow0M  {TK  -00 -40 rmoveto show 0 40 rmoveto TM } bind def

/ibshownK {TBS -30 -30 rmoveto show 0 30 rmoveto TBK} bind def
/ibshow0K {TBS -00 -30 rmoveto show 0 30 rmoveto TBK} bind def
/ishownK  {TS  -30 -30 rmoveto show 0 30 rmoveto TK } bind def
/ishow0K  {TS  -00 -30 rmoveto show 0 30 rmoveto TK } bind def

%%EndProlog
gsave

/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {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
 
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def}
               {/colorm1 0 def} ifelse
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
                    /deintpd deintpdf def}
               {/deintp1 0 def} ifelse
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def}
               {/xcolor1 0 def} ifelse
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartd xchartdf def
                    /xchartm xchart2f xchart1f sub 1 add def}
               {/xchart1 0 def /xchartm 1 def} ifelse
/xchart3f where {pop /xchart3 xchart3f def}
                {/xchart3 1 def} ifelse
/xchart4f where {pop /xchart4 xchart4f def}
                {/xchart4 0 def} ifelse
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartd pchartdf def}
               {/pchart1 3 def} ifelse
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
                    /colsepd colsepdf def}
               {/colsep1 0 def} ifelse
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
                    /pmetamd pmetamdf def}
               {/pmetam1 0 def} ifelse

%either defaul values for xchart=0 or values for xchart=1
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def} if %always independent of intended output

gsave
%LANINDL2 END

/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

6 /Times-ISOL1 FS
380 84 moveto
    (SE580-3) show
     
72 90 translate

/ytit 550 def 
/yhoe 7850 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 2550 def
/S4 4300 def
/S5 6500 def
/S6 8900 def

/yz 400 def
/yu5 7000 def
/yu4 6400 def
/yu3 5200 def
/yu2 3000 def
/yu1 1300 def

/yhoey yhoet 600 sub def
%vertical
 S2 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S3 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S4 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S5 100 sub yhoey moveto 0 yhoey neg rlineto stroke
 S6 100 sub yhoey moveto 0 yhoey neg rlineto stroke
%horizontal
0 yu1 300 add moveto xwide 0 rlineto stroke
0 yu2 300 add moveto xwide 0 rlineto stroke
0 yu3 300 add moveto xwide 0 rlineto stroke
0 yu4 300 add moveto xwide 0 rlineto stroke
%S2 100 sub yu4 300 add moveto xwide S2 100 sub sub 0 rlineto stroke

%Titeltext

TBK
 S1 yu5 moveto
(Colorimetric data of six chromatic basic colours) showea
(Farbmetrische Daten von sechs bunten Grundfarben) showde
TBIK( X = RYGCBM) show TBK
( of a device (d) or elementary (e) system) showea
( eines Ger\344te\255 (d) oder Elementar\255(e)Systems) showde

TBK
 S1 yu4 moveto
(colori\255) showea (farbme\255) showde
 S1 yu4 yt sub moveto
(metric) showea (trischer) showde
 S1 yu4 yt 2 mul sub moveto
(name) showea (Name) showde

 S2 yu4 moveto
(family) showea (Familie) showde
 
 S3 yu4 moveto
(family) showea (Familien\255) showde
 S3 yu4 yt sub moveto
(member) showea (mitglied) showde

 S4 yu4 moveto
(coordinate kind) showea (Koordinatenart) showde

 S5 yu4 moveto
(coordinate) showea (Koordinate) showde
 S5 yu4 yt sub moveto
TK (\050) show (compare CIELAB) showea (vergleiche CIELAB) showde
 S5 yu4 yt 2 mul sub moveto
TIK (L*, C*) show (ab) ishow TIK (, h) show ( ab) ishow
TIK (, a*, b*) show
TK (\051) show

 S6 yu4 moveto
(coordinate) showea (Koordinaten\255) showde
 S6 yu4 yt sub moveto
(name) showea (name) showde

S1 yu3 moveto
TIK (standard) showea (Norm\255) showde
S1 yu3 yt sub moveto
TK (CIELAB) show

S1 yu2 moveto
TIK (adapted) showea (adaptiertes) showde
S1 yu2 yt sub moveto
TK (CIELAB (a)) show

S1 yu1 moveto
TIK (relative) showea (relatives) showde
S1 yu1 yt sub moveto
TK (CIELAB (r)) show


S2 yu3 moveto
TBIK (LAB*) show

S2 yu2 moveto
TBIK (LAB*) show (a) ishow

S2 yu1 moveto
TBIK (lab*) show


S3 yu3 moveto
TBIK (LAB*LCH*) show (X)ishow
S3 yu3 yt sub moveto
TK (or) showea (oder) showde
S3 yu3 yt 2 mul sub moveto
TBIK (LAB*LAB*) show (X)ishow

S3 yu2 moveto
TBIK (LAB*) show (a) ishow TBIK (LCH*) show (a,X) ishow
S3 yu2 yt sub moveto
TK (or) showea (oder) showde
S3 yu2 yt 2 mul sub moveto
TBIK (LAB*) show (a) ishow TBIK (LAB*) show (a,X) ishow

S3 yu1 moveto
TBIK (lab*lch*) show (X) ishow
S3 yu1 yt sub moveto
TK (or) showea (oder) showde
S3 yu1 yt 2 mul sub moveto
TBIK (lab*lab*) show (X) ishow

TK
S4 yu3 moveto
(cylindrical) showea
(zylindrisch) showde
S4 yu3 yt sub moveto
(or) showea
(oder) showde
S4 yu3 yt 2 mul sub moveto
(kartesic) showea
(kartesisch) showde

S4 yu2 moveto
(cylindrical) showea
(zylindrisch) showde
S4 yu2 yt sub moveto
(or) showea
(oder) showde
S4 yu2 yt 2 mul sub moveto
(kartesic) showea
(kartesisch) showde

S4 yu1 moveto
(cylindrical) showea
(zylindrisch) showde
S4 yu1 yt sub moveto
(or) showea
(oder) showde
S4 yu1 yt 2 mul sub moveto
(kartesic) showea
(kartesisch) showde


S5 yu3 moveto
TBIK (L*) show (X)ishow TBIK ( = LAB*L*) show (X)ishow
S5 yu3 yd sub moveto
TBIK (C*) show (X)ishow TBIK ( = LAB*C*) show (ab,M) ishow
S5 yu3 yd 2 mul sub moveto
TBIK (H*) show (X)ishow TBIK ( = LAB*h) show ( ab,M) ishow
S5 yu3 yd 3 mul sub moveto
TBIK (A*) show (X)ishow TBIK ( = LAB*a*) show (X)ishow
S5 yu3 yd 4 mul sub moveto
TBIK (B*) show (X)ishow TBIK ( = LAB*b*) show (X)ishow

S5 yu2 moveto
TBIK (L*) show (a,X)ishow TBIK ( = LAB*) show
(a) ishow TBIK (L*) show (a,X)ishow
S5 yu2 yd sub moveto
TBIK (C*) show (a,X)ishow TBIK ( = LAB*) show
(a) ishow TBIK (C*) show (a,X)ishow
S5 yu2 yd 2 mul sub moveto
TBIK (H*) show (a,X)ishow TBIK ( = LAB*) show
(a) ishow TBIK (H*) show (a,X)ishow

S5 yu1 moveto
TBIK (l*) show (X)ishow TBIK ( = lab*l*) show (X)ishow
S5 yu1 yd sub moveto
TBIK (c*) show (X)ishow TBIK ( = lab*c*) show (X)ishow
S5 yu1 yd 2 mul sub moveto
TBIK (h*) show (X)ishow TBIK ( = lab*h*) show (X)ishow

TK
S6 yu3 moveto
(lightness) showea (Helligkeit) showde 
S6 yu3 yd sub moveto
(chroma) showea (Buntheit) showde
S6 yu3 yd 2 mul sub moveto
(hue angle) showea (Bunttonwinkel) showde
S6 yu3 yd 3 mul sub moveto
(red green chroma) showea (Rot\255Gr\374n\255Buntheit) showde
S6 yu3 yd 4 mul sub moveto
(yellow blue chroma) showea (Gelb\255Blau\255Buntheit) showde


TK
S6 yu2 moveto
(adapted lightness) showea (adaptierte Helligkeit) showde
TK ( \050 =) show TIK ( L*) show (X)ishow TK (\051) show 
S6 yu2 yd sub moveto
(adapted chroma) showea (adaptierte Buntheit) showde
S6 yu2 yd 2 mul sub moveto
(adapted hue angle) showea (adaptierter Bunttonwinkel) showde
S6 yu2 yd 2 mul sub yt sub moveto
TK (\050 0 <= ) show TIK (H*) show (a,X)ishow TIK ( <= 360 \051) show

TK
S6 yu1 moveto
(relative lightness) showea (relative Helligkeit) showde 
S6 yu1 yd sub moveto
(relative chroma) showea (relative Buntheit) showde
S6 yu1 yd 2 mul sub moveto
(relative hue) showea (relativer Buntton) showde
S6 yu1 yd 2 mul sub yt sub moveto
TK (\050 0,00 <= ) show TIK (h*) show (X)ishow TIK ( <= 1,00 \051) show

showpage
grestore

%%Trailer