%!PS-Adobe-3.0 EPSF-3.0 DM94:Y10-7N.EPS  20020101
%%BoundingBox: 70 80 445 216

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

%%Creator: K. Richter, BAM und TU Berlin, 2000.06.16
%%+Copyright (c) 1996 VDE-Verlag Berlin Offenbach

/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
                                                    
% !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
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-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
 
/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
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/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
 
/colrecfi %x y width heigth c m y n
  {setcmykcolor rec fill} bind def
 
/colrecst %x y width heigth c m y n
  {setcmykcolor rec stroke} bind def
 
/tzo {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben
/tzl {1.0 0.0 1.0 0.0} bind def
/tzv {1.0 1.0 0.0 0.0} bind def
/tzc {1.0 0.0 0.0 0.0} bind def
/tzm {0.0 1.0 0.0 0.0} bind def
/tzy {0.0 0.0 1.0 0.0} bind def

/tzn {0.0 0.0 0.0 1.00} bind def %Graureihe
/tzd {0.0 0.0 0.0 0.75} bind def
/tzz {0.0 0.0 0.0 0.50} bind def
/tzh {0.0 0.0 0.0 0.25} bind def
/tzw {0.0 0.0 0.0 0.00} bind def

/tzr {0.0 1.0 0.5 0.0} bind def %Elementarfarben
/tzg {1.0 0.0 0.5 0.0} bind def
/tzb {1.0 0.5 0.0 0.0} bind def
/tzj {0.0 0.0 1.0 0.0} bind def

/tzrz {0.0 1.0 0.5 0.5} bind def %Elementarfarben vergraut
/tzgz {1.0 0.0 0.5 0.5} bind def
/tzbz {1.0 0.5 0.0 0.5} bind def
/tzjz {0.0 0.0 1.0 0.5} bind def

/tfo {tzo setcmykcolor} bind def
/tfl {tzl setcmykcolor} bind def
/tfv {tzv setcmykcolor} bind def
/tfc {tzc setcmykcolor} bind def
/tfm {tzm setcmykcolor} bind def
/tfy {tzy setcmykcolor} bind def

/tfn {tzn setcmykcolor} bind def
/tfd {tzd setcmykcolor} bind def
/tfz {tzz setcmykcolor} bind def
/tfh {tzh setcmykcolor} bind def
/tfw {tzw setcmykcolor} bind def

/tfr {tzr setcmykcolor} bind def
/tfg {tzg setcmykcolor} bind def
/tfb {tzb setcmykcolor} bind def
/tfj {tzj setcmykcolor} bind def

/tfrz {tzrz setcmykcolor} bind def
/tfgz {tzgz setcmykcolor} bind def
/tfbz {tzbz setcmykcolor} bind def
/tfjz {tzjz setcmykcolor} bind def

%ANFA OUTLINO0 951204 
/pixf 1.0 def /ueg {1.6 pixf mul} bind def
/uek {0.8 pixf mul} bind def /ues {0.7 pixf mul} bind def
/pxd uek def /pyd uek def /pxwd ueg def /pywd ueg def
 
/outxshowf {show} bind def
 
/outxshow {show} bind def

/SK {250 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SM {300 16.67 div 1 sub pixf mul /Symbol FS} bind def
/SG {350 16.67 div 1 sub pixf mul /Symbol FS} bind def

/outSK {250 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSM {300 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
/outSG {350 16.67 div 1 sub pixf mul /Symbol FS outxshow} bind def
 
/outshowf {setcmykcolor show} bind def

/outrecfi { %x y width heigth c m y k
   setcmykcolor rec fill} bind def
 
/outrecfi4 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi3 { %x y width heigth c m y k
  outrecfi} bind def

/outrecfi2 { %x y width heigth c m y k
  outrecfi} bind def

/outlinetos { %px py c m y k
   setcmykcolor lineto stroke} bind def

/outstroke { %px1 py1 curveto ... curveto c m y k
   setcmykcolor stroke} bind def
            
%%EndProlog
gsave
 
%LANINDL0.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 {3 lanind eq {show} {pop} ifelse} bind def
/showfr {2 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
/showm  {6 lanind eq {show} {pop} ifelse} bind def
 
/popde {0 lanind ne {pop} if} bind def
/popen {1 lanind ne {pop} if} bind def
/popes {3 lanind ne {pop} if} bind def
/popfr {2 lanind ne {pop} if} bind def
/popit {4 lanind ne {pop} if} bind def
/popjp {5 lanind ne {pop} if} bind def
/popm  {6 lanind ne {pop} if} bind def
 
/popxde {/n exch def 0 lanind ne {n {pop} repeat} if} bind def
/popxen {/n exch def 1 lanind ne {n {pop} repeat} if} bind def
/popxes {/n exch def 3 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 2 lanind ne {n {pop} repeat} if} bind def
/popxit {/n exch def 4 lanind ne {n {pop} repeat} if} bind def
/popxjp {/n exch def 5 lanind ne {n {pop} repeat} if} bind def
/popxm  {/n exch def 6 lanind ne {n {pop} repeat} if} bind def
 
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 2 def /lanind2 2 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 %no loops
/xcolor xcolor1 def
/xchart xchart1 def
%LANINDL0 END

/RK8   {8 /Times-Roman FS} bind def
/RIK8  {8 /Times-Italic FS} bind def
/RBK8  {8 /Times-Bold FS} bind def
/RBIK8 {8 /Times-BoldItalic FS} bind def

/TS8   {6 /Times-ISOL1 FS} bind def
/TK8   {8 /Times-ISOL1 FS} bind def
/TIK8  {8 /TimesI-ISOL1 FS} bind def
/TBK8  {8 /TimesB-ISOL1 FS} bind def
/TBIK8 {8 /TimesBI-ISOL1 FS} bind def

RK8 
72 83 moveto
%!2    (wrpos:Y10-7N.eps) show

TK8
(Bild D3: 14 CIE\255Pr\374ffarben ) showde
(Picture D3: 14 CIE\255test colours ) showen
(Fig. D3: 14 CIE test couleurs ) showfr
(Fig. D3: CIE 14 colores del test ) showes
(Fig. D3: 14 prova colori CIE ) showit
(Figur D3: 14 CIE\255test colours ) showjp

(sowie 2 + 16 Graustufen (sf); ) showde
(and 2 + 16 grey steps (sf); ) showen
(et 2 + 16 paliers de gris (sf); ) showfr
(y 2 + 16 pasos de gris (sf); ) showes
(e 2 + 16 grigio passi (sf); ) showit
(og 2 + 16 gr\345trinn (sf); ) showjp

TIK8 (PS) show
RK8 (-) showde (Operator) showde
( operator:) showen
( operator:) showes
TK8
( op\351rateur :) showfr
( operator:) showit
( operator:) showjp

 8 /TimesI-ISOL1 FS
( LAB* setcolor) show
 8 /Times-ISOL1 FS                    
                                                                        
72 90 translate

/pixf 16.67 def
0.1667 pixf div MM dup scale

15 setlinewidth

/LABGI 48 array def %G=GREY

/LABZI [  %14 + N0 + W1
 61.45  17.53  11.74 %CIE-TF ISO/IEC 15775 Table 2
 60.69   0.08  28.92
 62.02 -20.58  44.41
 61.20 -33.16  17.07
 62.40 -17.47  -8.55
 61.51  -0.36 -28.39
 61.12  20.15 -24.55
 62.77  27.42 -13.63
 39.92  58.74  27.99
 81.26  -2.89  71.56
 52.23 -42.42  13.60
 30.57   1.41 -46.47
 80.23  11.37  21.04
 40.75 -13.80  24.23
 18.01   0.50  -0.46
 95.41  -0.98   4.76
] def

/ncol 3 def
0 1 15 {/j exch def

/ISYSLAB where {pop} {/ISYSLAB 0 def} ifelse
/ISYSTEM where {pop} {/ISYSTEM 0 def} ifelse

ISYSLAB 0 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C
              1 ncol eq {/LABs0X [30.12  75.28  -8.36] def} if %M
              2 ncol eq {/LABs0X [72.37 -10.26  91.75] def} if %Y
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.40   0.00   0.00] def %LABW100
              /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def
              /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def
             } if

ISYSLAB 1 eq {0 ncol eq {/LABs0X [86.87 -46.16 -13.55] def} if %C
              1 ncol eq {/LABs0X [57.29  94.35 -20.69] def} if %M
              2 ncol eq {/LABs0X [92.65 -20.69  90.75] def} if %Y
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [95.40   0.00   0.00] def %LABW100
              /L*NN 18.00 def /A*NN 0.00 def /B*NN 0.00 def
              /L*WW 95.40 def /A*WW 0.00 def /B*WW 0.00 def
             } if

ISYSLAB 2 eq {0 ncol eq {/LABs0X [40.62 -30.34 -45.01] def} if %C
              1 ncol eq {/LABs0X [30.12  75.28  -8.36] def} if %M
              2 ncol eq {/LABs0X [72.37 -10.26  91.75] def} if %Y
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.40   0.00   0.00] def %LABW100
              /L*NN 18.01 def /A*NN 0.5 def /B*NN -0.46 def
              /L*WW 95.41 def /A*WW -0.98 def /B*WW 4.76 def
             } if

ISYSLAB 3 eq {0 ncol eq {/LABs0X [69.43 -44.46 -13.14] def} if %C
              1 ncol eq {/LABs0X [41.25  89.48 -19.47] def} if %M
              2 ncol eq {/LABs0X [75.03 -20.05  85.13] def} if %Y
              3 ncol eq {/LABs0X [00.00   0.00   0.00] def} if %N
              /LABs0W [77.70   0.00   0.00] def %LABW100
              /L*NN 17.70 def /A*NN 0.00 def /B*NN 0.00 def
              /L*WW 95.41 def /A*WW 0.00 def /B*WW 0.00 def
             } if

             /jmul j 15 div def
             /LSs0 LABs0X 0 get LABs0W 0 get LABs0X 0 get sub
             jmul mul add def
             /LS* LSs0 18.01 add def
             /l*CIE LS* L*NN sub L*WW L*NN sub 0.0001 add div def
             /ASs0 LABs0X 1 get LABs0W 1 get LABs0X 1 get sub
             jmul mul add def
             /AS* ASs0 A*NN A*WW A*NN sub l*CIE mul add add def
             /BSs0 LABs0X 2 get LABs0W 2 get LABs0X 2 get sub
             jmul mul add def
             /BS* BSs0 B*NN B*WW B*NN sub l*CIE mul add add def

             /j3 j 3 mul def
             LABGI j3       LS* put
             LABGI j3 1 add AS* put
             LABGI j3 2 add BS* put 

       } for %j


%%%%   Def. eines Quadrates fuer die Ausgabe der Farbflaechen    %%%
/colRec {moveto s 0 rlineto 0 s rlineto s neg 0 rlineto %Quadrat
  closepath} bind def
                                           
 [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace
                     
LABGI 21 get LABGI 24 get add 0.5 mul
LABGI 22 get LABGI 25 get add 0.5 mul
LABGI 23 get LABGI 26 get add 0.5 mul setcolor

0 0  moveto 13000 0 rlineto 0 4000 rlineto
           -13000 0 rlineto closepath fill

0 setgray
0 0  moveto 13000 0 rlineto 0 4000 rlineto
           -13000 0 rlineto closepath stroke

350 150 translate

/n* [(16) (15) (14) (13) (12) (11) (10) ( 9)
     ( 8) ( 7) ( 6) ( 5) ( 4) ( 3) ( 2) ( 1)] def

TBM
25 setlinewidth
/s 770 def /s1 770 def /s2 670 def  
0 setgray
0 1 16 {/j exch def /ix0 j s1 mul def %j
        ix0 1600 moveto 0 500 rlineto stroke
       } for %j
15 setlinewidth        

0 1 15 {/j exch def /ix00 j s1 mul def
        /s s2 def
        /ix0 ix00 50 add def /iy0 2900 def

        /j3 j 3 mul def

 [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace
                    
        LABZI j3       get
        LABZI j3 1 add get
        LABZI j3 2 add get setcolor
        ix0 iy0 colRec fill
       
        /s s1 def
        /ix0 ix00 def /iy0 2050 def

        LABZI j3       get
        LABZI j3 1 add get
        LABZI j3 2 add get setcolor
        ix0 iy0 colRec fill

        0 setgray
        /ix0 ix00 def /iy0 1750 def
        ix0 250 add iy0 moveto
        n* 15 j sub get show

        /s s1 def
        /ix0 ix00 def /iy0 850 def

 [/CIEBasedABC <<    %Farbraum und Grenzen fuer D65
  /RangeABC [0 100 -128 127 -128 127]
  /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind]
  /MatrixABC [1 1 1 1 0 0 0 0 -1]
  /DecodeLMN
    [{dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 0.9505 mul} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse} bind
     {dup 6 29 div ge {dup dup mul mul}
     {4 29 div sub 108 841 div mul} ifelse 1.0890 mul} bind]
    /WhitePoint  [0.9505 1 1.089]                %CIEXYZ fuer D65
 >>] setcolorspace
                    
        LABGI j3       get
        LABGI j3 1 add get
        LABGI j3 2 add get setcolor
        ix0 iy0 colRec fill

        /s s2 def
        /ix0 ix00 50 add def /iy0  100 def
        LABGI j3       get
        LABGI j3 1 add get
        LABGI j3 2 add get setcolor
        ix0 iy0 colRec fill

       } for %j


-350 -150 translate

grestore

showpage
%%Trailer