%!PS-Adobe-3.0 EPSF-3.0 AS700-3
%%BoundingBox: 70 83 425 206
 
%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/AS70/)
  /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:2017050112000)
  /ModDate (D:2017050112000)
/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
 
% !Exchange 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 /str {8 string } bind def

/RK {250 /Times-Roman FS} bind def
/RM {265 /Times-Roman FS} bind def
/RG {350 /Times-Roman FS} bind def

/RIK {250 /Times-Italic FS} bind def
/RIM {265 /Times-Italic FS} bind def
/RIG {350 /Times-Italic FS} bind def

/RBK {250 /Times-Bold FS} bind def
/RBM {265 /Times-Bold FS} bind def
/RBG {350 /Times-Bold FS} bind def

/RBIK {250 /Times-BoldItalic FS} bind def
/RBIM {265 /Times-BoldItalic FS} bind def
/RBIG {350 /Times-BoldItalic FS} bind def

 
/TK {250 /Times-ISOL1 FS} bind def
/TM {265 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {265 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {265 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {265 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/TSK {250 /Symbol FS} bind def
/TSM {300 /Symbol FS} bind def
/TSG {350 /Symbol FS} bind def
 
/nshow {TM  show} bind def
/kshow {TIM show} bind def
/bshow {TBM show} bind def
/jshow {TBIM show} 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

/lanind 1 def
/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
/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

%default values
/lanind1 3 def /lanind2 3 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 03 def /xcolor2 03 def /xcolord 01 def /xcolorm 01 def
/xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 01 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def /xchart4 00 def /xchart5 00 def

%usual change of default values
/lanindf where {pop /lanind1 lanindf  def /lanind2 lanindf  def
                    /lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf  def /colorm2 colormf  def
                    /colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf  def /deintp2 deintpf  def
                    /deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf  def /xcolor2 xcolorf  def
                    /xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf  def /xchart2 xchartf  def
                    /xchartd xchartdf def /xchartm xchartmf def} if
/pchartf where {pop /pchart1 pchartf  def /pchart2 pchartf  def
                    /pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf  def /colsep2 colsepf  def
                    /colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf  def /pmetam2 pmetamf  def
                    /pmetamd pmetamdf def /pmetamm pmetammf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if

/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 def %

/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
      
colorm 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorm 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorm 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorm 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if

gsave
 
5 /Times-Roman FS
72 85 moveto (AS700-3) show

72 90 translate
 
/yhoe  4000 def
/xhoe 12300 def
0.01 MM dup scale

15 setlinewidth

0.0 0.0 0.0 1.0 setcmykcolor
 0 0  moveto xhoe 0 rlineto 0 yhoe rlineto xhoe neg 0 rlineto
closepath stroke

/S1 100 def

/yu1 3700 def
/yu2 2500 def

/yzp 350 def

S1 yu1 moveto
TM
(At the CIE meeting in Stockholm, June 2008, ) showea
%(At the CIE meeting in Stockholm, June 2008, ) showde
TBIM
(CIE Division 1 ) showea
%(CIE Division 1 ) showde
TM
(decided ) showea
%(decided ) showde
(to establish the CIE Reportership R1\25547) showea
%(to establish the CIE Reportership R1\25547) showde

S1 yu1 yzp 1 mul sub moveto
TBM
(Hue Angles of Elementary Colours ) showea
%(Hue Angles of Elementary Colours ) showde
TM
(by ) showea
%(mit ) showde
TIM
(Thorstein Seim (Norway) ) showea
%(Thorstein Seim (Norwegen) ) showde
TM
(in respose to a request of ISO TC 159) showea
%(in response to a request of ISO TC 159) showde

S1 yu1 yzp 2 mul sub moveto
TM
(SC4/WG2 ) showea
%(SC4/WG2 ) showde
TBM
(Visual Display Requirements ) showea
%(Visual Display Requirements ) showde
TM
(and to present the result ) showea
%(and to present the result ) showde
(at the next CIE meeting in Budapest 2009.) showea
%(at the next CIE meeting in Budapest 2009.) showde


S1 yu2 yzp 0 mul sub moveto
TM
(The report ) showea
%(Der Bericht ) showde
TBM
(CIE R1\25547:2009 Hue Angles of Elementary Colours ) showea
%(CIE R1\25547:2009 Hue Angles of Elementary Colours ) showde

S1 yu2 yzp 1 mul sub moveto
TM
(lists in chapter 3.6 the average CIELAB hue angles ) showea
%(listet in Abschnitt 3.6 die mittleren CIELAB\255Bunttonwinkel ) showea
(26, 92, 166, and 270 of ) showea
%(26, 92, 166 und 270 von ) showde

TIM
(Miescher, NCS, and the CIE.) showea
%(Miescher, NCS und der CIE.) showde

S1 yu2 yzp 2.5 mul sub moveto
TBM
(CIE R1\25547 ) show
TM
(defines the CIELAB hue angles ) showea
%(definiert die CIELAB\255Bunttonwinkel) showde
TBM
(25, 92, 162 and 271 ) showea
TM
(of the CIE test colours no. 9 to 12) showea
%(der CIE\255Testfarben Nr. 9 bis 12) showde

S1 yu2 yzp 3.5 mul sub moveto
TM
(according to CIE 13.3 for the four elementary colours ) showea

TBIM (R) show (e) ibshow0
TBIM (, Y) show (e) ibshow0
TBIM (, G) show (e) ibshow0
TBIM (,) show
TM
( and ) showea
TBIM (B) show (e) ibshow0
TM (.) show


S1 yu2 yzp 4.6 mul sub moveto
TIM
(For the text of the request of ISO TC159/SC4/WG2, ) showea
(the text of the decisions of CIE Division 1, the result, ) showea 

S1 yu2 yzp 5.6 mul sub moveto
(and the free download of CIE R1-47 see the CIE Division 1 web site) showea
%(und den freien Download von CIE R1-47 siehe die CIE Division 1\255Webseite) showea
S1 yu2 yzp 6.6 mul sub moveto
TM
0 0 1 setrgbcolor
(http://cie.co.at ) showea
%(http://cie.co.at ) showde
0 setgray
TIM
(under ) showea
%(unter ) showde
(MINUTES & REPORTS) showea
%(MINUTES & REPORTS) showde

showpage
grestore
%} for %output showpage
%%Trailer