%!PS-Adobe-3.0 EPSF-3.0 SE210-8N
%%BoundingBox: 70 85 226 206

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

% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
/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
 
/TKK {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {290 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIKK {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
 
/TBKK {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
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/TKr {250 /Times-Roman FS} bind def
/TMr {300 /Times-Roman FS} bind def
/TGr {350 /Times-Roman FS} bind def

/TIKr {250 /Times-Italic FS} bind def
/TIMr {300 /Times-Italic FS} bind def
/TIGr {350 /Times-Italic FS} bind def

/TBKr {250 /Times-Bold FS} bind def
/TBMr {300 /Times-Bold FS} bind def
/TBGr {350 /Times-Bold FS} bind def

/TBIKr {250 /Times-BoldItalic FS} bind def
/TBIMr {300 /Times-BoldItalic FS} bind def
/TBIGr {350 /Times-BoldItalic 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

%%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
/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 0 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  /Fxx (d) def} if %colorm=0, deintp=0
colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %colorm=0, deintp=1
colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
xchart xchart3 lt {/Txx (-) def /Fxx (-) def} if

gsave
%LANINDL2 END

0 setgray

4 /Times-Roman FS
72 86 moveto
    ( SE210-8N) show

/LAB*a [%Natural symmetric Luminous System OYLCVMO+NW (NLS18)
43.81  67.03  38.70 %O   0 77.40/2 = 38.70
69.61  00.00  77.40 %Y   1 C*ab = 77.40
43.81 -67.03  38.70 %L   2 0.866 C*ab = 67.03
69.61 -67.03 -38.70 %C   3 delta L*=25.8
43.81  00.00 -77.40 %V   4 43.81=18.01+25.80
69.61  67.03 -38.70 %M   5 69.61=18.01+2*25.80
18.01   0.00   0.00 %N   6 18.01+77.40/3 = 18.01+25.80=43.81
95.41   0.00   0.00 %W   7 18.01+77.40*(2/3) = 18.01+51.60=69.61
] def %CVMOYLC+NW

gsave

72 90 translate

0.01 MM dup scale

/DEintp 0 def

/xcharts 10 def

20 setlinewidth
1.0 setgray
0 0  moveto 5300 0 rlineto 0 4000 rlineto
           -5300 0 rlineto
closepath fill
0.0 setgray
0 0  moveto 5300 0 rlineto 0 4000 rlineto
           -5300 0 rlineto
closepath stroke

TBK
050 3800 moveto (8 Device Colours in the elementary (e) system) showea
                (8 Ger\344tefarben im Elementar\255System (e)) showde
TIK
050 3400 moveto (OYLCVM and NW) showea
                (OYLCVM und NW) showde

2400 3400 moveto TK (triangle system) showea
                    (Dreiecks\255System) showde
                 TBIK ( rgb*) show TK
                 TKK -150 -100 rmoveto (e) show 150 100 rmoveto TK
2400 3000 moveto TK (cylindric system) showea
                    (zylindrisches System) showde
                 TIK ( tch*) show TK
%                 TKK -100 -100 rmoveto (e) show 100 100 rmoveto TK
2400 2700 moveto TK (triangle lightness) showea
                    (Dreiecks\255Helligkeit) showde
                 TIK ( t*) show TK
2400 2400 moveto TK (relative chroma) showea
                    (relative Buntheit) showde
                 TIK ( c*) show TK
2400 2100 moveto TK (CIELAB hue angle) showea
                    (CIELAB\255Bunttonwinkel) showde
                 TIK ( h) show TK
                 TKK -000 -100 rmoveto (ab) show 100 100 rmoveto TK
2400 1800 moveto TK (elementary hue text) showea
                    (Elementar\255Bunttontext) showde
                 TIK ( u*) show
                 TKK -100 -100 rmoveto (e) show 100 100 rmoveto TK

2300 0350 moveto TIKK (more coordinates and relations:) showea
                      (mehr Koordinaten und Beziehungen:) showde
2300 0100 moveto TIKK (http://www.ps.bam.de/33872E) showea
                      (http://www.ps.bam.de/33872) showde

TIM
1200 1300 translate

0 -1000 moveto 0 2500 rlineto stroke
-1000 -500 moveto 1000 500 rlineto stroke

/rx 774 def %standard hexagon gamut
/fakt 1.5 def
/iangle 10 def
/a rx iangle cos mul def
/b rx iangle sin mul def
/c a b 0.5 mul add def
/d b 0.5 mul def

0.0 setgray

/a0 0 def
/b0 rx 1.5 mul def
/c0 rx 1.5 mul neg def

1 0 0.1 setrgbcolor
a0 c0 moveto
c fakt mul d fakt mul lineto
a0 b0 lineto stroke
0 0 0 setrgbcolor

 100 1500 moveto (t*) show
-1000 000 sub -500 300 sub moveto (b*) show
   TK -150 -100 rmoveto (e) show 150 100 rmoveto TIM

0 0 moveto c fakt mul d fakt mul lineto stroke
c fakt mul 500 sub d fakt mul 250 sub moveto (r*) show
   TK -200 -50 rmoveto (e) show 200 50 rmoveto TIM

c fakt mul 100 sub d fakt mul 350 sub moveto (R) show
   TK -00 -100 rmoveto (e) show 150 100 rmoveto TIM

0 0 0 setrgbcolor
c fakt mul 350 sub d fakt mul 300 add moveto (O) show

newpath
c fakt mul d fakt mul moveto
1 0 0.1 setrgbcolor
c fakt mul d fakt mul 100 0 360 arc fill

newpath
0 0 0 setrgbcolor
/iangle 170 def
/a rx iangle cos mul def
/b rx iangle sin mul def
/c a b 0.5 mul add def
/d b 0.5 mul def
0 0 moveto c fakt mul d fakt mul lineto stroke
c fakt mul 050 sub d fakt mul 200 add moveto (g*) show
   TK -150 -100 rmoveto (e) show 150 100 rmoveto TIM

%1100 0 moveto (a*) show TM 0 -50 rmoveto (a) 0 50 rmoveto show TIM
%0 1100 moveto (b*) show TM 0 -50 rmoveto (a) 0 50 rmoveto show TIM

/rx 774 def %standard hexagon gamut
0.0 setgray

/a0 0 def
/b0 rx 1.5 mul def
/c0 rx 1.5 mul neg def

30 60 210 {/iangle exch def %iangle=30,60,210

/a rx iangle cos mul def
/b rx iangle sin mul def
/c a b 0.5 mul add def
/d b 0.5 mul def
0 setgray
[50 50] 0 setdash
iangle 030 eq {c d moveto} if
c d lineto
iangle 210 eq {stroke} if

} for %iangle=30,60,210

210 60 390 {/iangle exch def %iangle=210,60,390

/a rx iangle cos mul def
/b rx iangle sin mul def
/c a b 0.5 mul add def
/d b 0.5 mul def
0 setgray
[ ] 0 setdash
iangle 210 eq {c d moveto} if
c d lineto
iangle 390 eq {stroke} if

} for %iangle=210,60,390

30 60 330 {/iangle exch def %iangle=30,60,330

/a rx iangle cos mul def
/b rx iangle sin mul def
/c a b 0.5 mul add def
/d b 0.5 mul def
0 setgray
iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse
a0 b0 moveto c d lineto stroke
iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse
a0 c0 moveto c d lineto stroke
iangle 030 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if
iangle 090 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if
iangle 150 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if
iangle 210 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if
iangle 270 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if
iangle 330 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if
r*x g*x b*x setrgbcolor
c d 100 0 360 arc fill

} for %iangle=30,60,330

1 1 1 setrgbcolor %W
a0 b0 100 0 360 arc fill
0 0 0 setrgbcolor %N
a0 b0 100 0 360 arc stroke

0 0 0 setrgbcolor %N
a0 c0 100 0 360 arc fill



%calculation line of actual hue
%45 setlinewidth %actual gamut
%0 0 0 setrgbcolor
%0 1 5 {/i exch def %i=0,5
%       /A*Ma LAB*a i 3 mul 1 add get def
%       /B*Ma LAB*a i 3 mul 2 add get def
%       i 0 eq {A*Ma 10 mul B*Ma 10 mul moveto}
%              {A*Ma 10 mul B*Ma 10 mul lineto} ifelse
%       i 5 eq {closepath stroke} if
%       } for %i=0,5

%plot line of actual hue
50 setlinewidth
xcharts 0 eq {/r*x 1 def /g*x 0 def /b*x 0 def} if
xcharts 1 eq {/r*x 1 def /g*x 1 def /b*x 0 def} if
xcharts 2 eq {/r*x 0 def /g*x 1 def /b*x 0 def} if
xcharts 3 eq {/r*x 0 def /g*x 1 def /b*x 1 def} if
xcharts 4 eq {/r*x 0 def /g*x 0 def /b*x 1 def} if
xcharts 5 eq {/r*x 1 def /g*x 0 def /b*x 1 def} if
xcharts 5 le {%xcharts<=5
              r*x g*x b*x setrgbcolor
              0 0 moveto
              /A*Ma LAB*a xcharts 3 mul 1 add get def
              /B*Ma LAB*a xcharts 3 mul 2 add get def
              A*Ma 10 mul B*Ma 10 mul lineto stroke
             } if %xcharts<=5
%xcharts 6 ge {%xcharts>=6
%              0 1 15 {/jhue exch def %jhue
%                      /L*xMa DEintp 0 eq {L*diMa} {L*eiMa} ifelse jhue get def
%                      /A*xMa DEintp 0 eq {A*diMa} {A*eiMa} ifelse jhue get def
%                      /B*xMa DEintp 0 eq {B*diMa} {B*eiMa} ifelse jhue get def
%                      /r*x DEintp 0 eq {o3*ddiMa} {o3*ediMa} ifelse jhue get def
%                      /g*x DEintp 0 eq {l3*ddiMa} {l3*ediMa} ifelse jhue get def
%                      /b*x DEintp 0 eq {v3*ddiMa} {v3*ediMa} ifelse jhue get def
%                      r*x g*x b*x setrgbcolor
%                      0 0 moveto
%                      A*xMa 10 mul B*xMa 10 mul lineto stroke
%                      A*xMa 10 mul B*xMa 10 mul moveto
%                      -100 -100 rlineto 200 200 rlineto stroke
%                      A*xMa 10 mul B*xMa 10 mul moveto
%                      -100  100 rlineto 200 -200 rlineto stroke
%                     } for %jhue=0,15
%            } if %xcharts>=6

-1200 -1300 translate

grestore
showpage
%%Trailer