%!PS-Adobe-3.0 EPSF-3.0 SI201-7N.eps
%%BoundingBox: 70 85 390 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: Image Technology)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://www.ps.bam.de or http://www.li.tu-berlin.de)
  /Keywords (image reproduction, colour devices)
  /creator (klaus.richter@bam.de)
  /creationDate (D:2013030112000)
  /ModDate (D:2013030112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%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

% !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

/ibshown {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def
/ibshow0 {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def
/ishown  {TK  -50 -50 rmoveto show 0 50 rmoveto TM } bind def
/ishow0  {TK  -00 -50 rmoveto show 0 50 rmoveto TM } bind def

%%EndProlog
gsave

%LANINDL2.EPS START  20000505
/lanind 0 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 4 def /lanind2 4 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

4 /Times-Roman FS
72 86 moveto
    ( SI201-7N) 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

72 90 translate

0.01 MM dup scale

/DEintp 0 def

/xcharts 10 def

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

050 3700 moveto TBM
(Drei Elementarkoordinaten (e)) showde
(Three elementary (e) coordinates) showea
TBIM ( rgb*) show (e) ibshown
( beschreiben 8 Elementarfarben ) showde
( describe 8 colours ) showea
TBIM
(RGB) show (e) ibshow0
(, CMY) show (e) ibshow0
(, and ) showea
( und ) showde
TBIM (NW.) show

2700 3350 moveto TM
(Hexagon\255triangle system based on elementary (e) colours:) showea
(Sechseck\255Dreieck\255System von Elementarfarben (e):) showde
TBIM ( rgb*) show (e) ibshown

2700 3000 moveto TM 
(with) showea
(mit) showde
TBM 
( linear relations) showea
( lineare Beziehungen) showde
TM
( between) showea
( zwischen) showde 
TBIM ( rgb*) show (e) ibshown
TM ( - ) show TBIM (LCH*) show (e) ibshown

2700 2650 moveto TIM (   ) show
(\050compare approximately linear relations between) showea
(\050vergl. angen\344hert lineare Beziehungen zwischen) showde
TIM ( rgb) show (sRGB) ishow0
TIM
( and ) showea
( und ) showde
TIM (L*) show (\051) show

2700 2150 moveto TM
(Equations) showea
(Gleichungen) showde
TIM ( rgb*) show (e) ishown
TIM ( - LCH*) show (e) ishown
TM
( in both directions have been published, see:) showea
( in beiden Richtungen sind publiziert:) showde

2700 1800 moveto TIM
(Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showea
(Richter, CIE\255Proceedings, Beijing, 2008, Volume 3 und DIN 33872\2551) showde
2700 1350 moveto TM
(Three equations (tables) are needed for office applications:) showea
(Drei Gleichungen (Tabellen) sind erforderlich f\374r B\374roanwendungen: ) showde

2700  950 moveto
TBIM (rgb) show (d) ibshow0
TBIM ( - LCH*') show (d) ibshown

4700  950 moveto TM
( for a 9x9x9 grid of equally spaced) showea
( f\374r ein 9x9x9\255Gitter von) showde
TIM ( rgb) show (d) ishow0
TM
(\255input data) showea
(\255Eingabefarben) showde

2700  550 moveto
TBIM (rgb*) show (e) ibshown
TBIM (- LCH*) show (e) ibshown

4700  550 moveto TM
( a 9x9x9 grid of equally spaced data) showea
( ein 9x9x9\255Gitter von Daten) showde
TIM ( rgb*) show (e) ishown
TM
( and ) showea
( und ) showde
TIM (LCH*) show (e) ishown

2700  150 moveto
TBIM (rgb'*) show (e) ibshown
TBIM (-LCH'*) show (e) ibshown
TBIM (~LCH*) show (e) ibshown

5600  150 moveto TM
(elementary linearization:) showea
(Elementarlinearisierung:) showde
TBIM ( rgb) show (d) ibshow0
TBIM (->rgb'*) show (e) ibshown
TBIM (=rgb) show (de) ibshow0
                 
1700 2600 moveto TBM
(5 equal) showea
(5 gleiche) showde

1700 2300 moveto TBM
(steps) showea
(Stufen) showde

newpath

TIM
1200 1300 translate

0 -1000 moveto 0 2500 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

/faktr 0.6 def
/fakt0 1.3 def

100 1500 moveto (t*) show

/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

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

/antx [0.75 0.20 0.50] def
20 setlinewidth
0 1 2 {/inr exch def
/ant antx inr get def

inr 0 eq {/iangle1 330 def /iangle2 030 def} if
inr 1 eq {/iangle1 150 def /iangle2 210 def} if
inr 2 eq {/iangle1 210 def /iangle2 270 def} if

/a1 rx iangle1 cos mul def
/b1 rx iangle1 sin mul def
/a0x1 a1 b1 0.5 mul add def
/b0x1 b1 0.5 mul def

/a2 rx iangle2 cos mul def
/b2 rx iangle2 sin mul def
/a0x2 a2 b2 0.5 mul add def
/b0x2 b2 0.5 mul def

/ant antx inr get def
/a0x a0x1 a0x2 a0x1 sub ant mul add def
/b0x b0x1 b0x2 b0x1 sub ant mul add def

inr 1 eq {%inr=1
inr 0 ge inr 1 eq or {[50 50] 0 setdash} {[ ] 0 setdash} ifelse
inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R
inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G
inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B
r*x g*x b*x setrgbcolor

a0 c0 moveto a0x a0 sub fakt0 mul
             b0x c0 sub fakt0 mul rlineto stroke
          
newpath
a0x b0x moveto
a0x b0x 100 0 360 arc fill
0 0 0 setrgbcolor
[ ] 0 setdash
a0x 100 add b0x moveto
newpath
a0x b0x 100 0 360 arc stroke

} if %inr=1

} for %inr=0,2

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 100 add d moveto
newpath
c d 100 0 360 arc fill

} for %iangle=30,60,330

1 1 1 setrgbcolor %W
newpath
a0 100 add b0 moveto
a0 b0 100 0 360 arc fill

0 0 0 setrgbcolor %N
newpath
a0 100 add b0 moveto
a0 b0 100 0 360 arc stroke

0 0 0 setrgbcolor %N
a0 100 add b0 moveto
newpath
a0 c0 100 0 360 arc fill

%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

/antx [0.75 0.20 0.50] def

20 setlinewidth

0 1 2 {/inr exch def
/ant antx inr get def
inr 0 eq {/iangle1 330 def /iangle2 030 def} if
inr 1 eq {/iangle1 150 def /iangle2 210 def} if
inr 2 eq {/iangle1 210 def /iangle2 270 def} if

/a1 rx iangle1 cos mul def
/b1 rx iangle1 sin mul def
/a0x1 a1 b1 0.5 mul add def
/b0x1 b1 0.5 mul def

/a2 rx iangle2 cos mul def
/b2 rx iangle2 sin mul def
/a0x2 a2 b2 0.5 mul add def
/b0x2 b2 0.5 mul def

/a0x a0x1 a0x2 a0x1 sub ant mul add def
/b0x b0x1 b0x2 b0x1 sub ant mul add def

inr 0 eq inr 2 eq or {%inr=0,2
inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R
inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G
inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B
r*x g*x b*x setrgbcolor
newpath
a0 c0 moveto a0x a0 sub fakt0 mul inr 2 eq {1.1 mul} if
             b0x c0 sub fakt0 mul inr 2 eq {1.1 mul} if rlineto stroke
          
a0x 100 add b0x moveto
newpath
a0x b0x 100 0 360 arc fill

} if %inr=0,2


inr 0 eq {/r*x 1 def /g*x 0 def /b*x 0.1 def} if %R
inr 1 eq {/r*x 0 def /g*x 1 def /b*x 0.2 def} if %G
inr 2 eq {/r*x 0 def /g*x 0 def /b*x 1.0 def} if %B

r*x g*x b*x setrgbcolor

inr 0 eq {a0 a0x a0 sub fakt0 mul add 100 sub 
          c0 b0x c0 sub fakt0 mul add 100 add moveto (r*) show
          -100 -100 rmoveto (e) show 100 100 rmoveto

/a1 rx iangle1 cos mul def
/b1 rx iangle1 sin mul def
/a0x1 a1 b1 0.5 mul add def
/b0x1 b1 0.5 mul def

/a2 rx iangle2 cos mul def
/b2 rx iangle2 sin mul def
/a0x2 a2 b2 0.5 mul add def
/b0x2 b2 0.5 mul def

/ant antx inr get def
/a0x a0x1 a0x2 a0x1 sub ant mul add def
/b0x b0x1 b0x2 b0x1 sub ant mul add def

/c0x a0x b0x 0.5 mul add def
/d0x b0x 0.5 mul def

0 setgray
iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse
a0x b0x moveto c0x d0x lineto stroke

%iangle 090 ge iangle 150 le and {[50 50] 0 setdash} {[ ] 0 setdash} ifelse
%a0x c0x moveto c0x d0x lineto stroke

/r*x 1 def /g*x 0 def /b*x 0.1 def

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

1 0 0 setrgbcolor
a0 b0 moveto c0x d0x lineto stroke

0 setgray
               /am a0 0.25 mul c0x 0.75 mul add def
               /bm b0 0.25 mul d0x 0.75 mul add def
               /r*x 1 def /g*x 0.25 def /b*x 0.25 0.9 mul def
               r*x g*x b*x setrgbcolor
               newpath
               am bm moveto
               am bm 100 0 360 arc fill

               /am a0 0.50 mul c0x 0.50 mul add def
               /bm b0 0.50 mul d0x 0.50 mul add def
               /r*x 1 def /g*x 0.50 def /b*x 0.50 0.9 mul def
               r*x g*x b*x setrgbcolor
               newpath
               am bm moveto
               am bm 100 0 360 arc fill

               /am a0 0.75 mul c0x 0.25 mul add def
               /bm b0 0.75 mul d0x 0.25 mul add def
               /r*x 1 def /g*x 0.75 def /b*x 0.75 0.9 mul def
               r*x g*x b*x setrgbcolor
               newpath
               am bm moveto
               am bm 100 0 360 arc fill
         } if

inr 1 eq {a0 a0x a0 sub fakt0 mul add 100 sub
          c0 b0x c0 sub fakt0 mul add 100 add moveto (g*) show
          -100 -100 rmoveto (e) show 100 100 rmoveto
         } if

inr 2 eq {a0 a0x a0 sub fakt0 mul add 300 sub
          c0 b0x c0 sub fakt0 mul add 250 add moveto (b*) show
          -100 -100 rmoveto (e) show 100 100 rmoveto
         } if

0.5 0.5 0.5 setrgbcolor
newpath
[ ] 0 setdash
newpath
a0x 100 add b0x moveto
a0x b0x 100 0 360 arc stroke
newpath

} for %inr=0,2

-1200 -1300 translate

grestore
showpage
%%Trailer