%!PS-Adobe-3.0 EPSF-3.0 fel80-3N.EPS
%%BoundingBox: 70 82 430 360

%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: Image Technology)
  /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
  /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
  /Keywords (image reproduction, colour devices)
  /Creator (klaus.richter@mac.com)
  /CreationDate (D:2024030112000)
  /ModDate (D:2024030112000)
/DOCINFO pdfmark03
[ /View [ /FitB ]
/DOCVIEW pdfmark03
%END  PDFDE011

/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

/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 {295 /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

%***********************************************************

/nshow {300 /Times-ISOL1 FS  show} bind def
/kshow {300 /TimesI-ISOL1 FS  show} bind def
/bshow {300 /TimesB-ISOL1 FS  show} bind def
/jshow {300 /TimesBI-ISOL1 FS  show} bind def
/sshow {300 /Symbol FS  show} bind def
/ishow {220 /Times-ISOL1 FS -00 -50 rmoveto show 00 50 rmoveto} bind def
/eshow {220 /Times-ISOL1 FS 0 100 rmoveto show 0 -100 rmoveto} bind def


/cvishow {0.5 add cvi 6 string cvs show} def
/cvsshow1 {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

%%EndProlog
gsave

/lanind 0 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
/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 {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 2 def /pchart2 2 def /pchartd 1 def} ifelse

/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartgd pchartdf def /pchartd pchartdf def} if

/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage

/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
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3

/xchartl xchart def
%0 1 7 {/xchartl exch def %xchartl=0,7

/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2

gsave

xcolorl 0 eq {/tfnx* {0 0 0 1 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 1 eq {/tfnx* {0 setgray} def
              /tfwx* {1 setgray} def
              /colrecfix* {setgray rec fill} bind def
              /colrecstx* {setgray rec stroke} bind def
             } if
xcolorl 2 eq {/tfnx* {1 1 1 0 setcmykcolor} def
              /tfwx* {0 0 0 0 setcmykcolor} def
              /colrecfix* {setcmykcolor rec fill} bind def
              /colrecstx* {setcmykcolor rec stroke} bind def
             } if
xcolorl 3 eq {/tfnx* {0 0 0 setrgbcolor} def
              /tfwx* {1 1 1 setrgbcolor} def
              /colrecfix* {setrgbcolor rec fill} bind def
              /colrecstx* {setrgbcolor rec stroke} bind def
             } if

pchartl 2 eq {%pchartl=2

/TMS {100 /Times-Roman FS} bind def
/TGS {150 /Times-Roman FS} bind def

/nshow  {110  /Times-Roman FS show} def
/bshow  {110  /Times-Bold FS show} def
/gshow  {150  /Times-Bold FS show} def
/bishow {110  /Times-BoldItalic FS show} def
/ishow  { 90  /Times-Bold FS show} def
%/sshow  {110  /Symbol FS show} def
/sshow  {200  /Symbol FS show} def

/nshowde  {0 lanind eq {nshow} {pop} ifelse} bind def
/bshowde  {0 lanind eq {bshow} {pop} ifelse} bind def
/gshowde  {0 lanind eq {gshow} {pop} ifelse} bind def
/bishowde {0 lanind eq {bishow} {pop} ifelse} bind def
/ishowde  {0 lanind eq {ishow} {pop} ifelse} bind def
/sshowde  {0 lanind eq {sshow} {pop} ifelse} bind def

/nshowen  {1 lanind eq {nshow} {pop} ifelse} bind def
/bshowen  {1 lanind eq {bshow} {pop} ifelse} bind def
/gshowen  {1 lanind eq {gshow} {pop} ifelse} bind def
/bishowen {1 lanind eq {bishow} {pop} ifelse} bind def
/ishowen  {1 lanind eq {ishow} {pop} ifelse} bind def
/sshowen  {1 lanind eq {sshow} {pop} ifelse} bind def

/CMeasSxl (Measure unknown) def
/CDeviceSxl (Device unknown) def
/CDateSxl (Date unknown) def


/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def

/xchartn xchartl xchartd idiv def
colorml 0 eq {/ilx 0 def
             }
             {%colorml=1
              xchartn 2 le {/ilx xchartn def} if
              xchartn 3 eq {/ilx       4 def} if
              xchartn 4 eq {/ilx       8 def} if
              xchartn 5 eq {/ilx      16 def} if
              xchartn 6 eq {/ilx      32 def} if
              xchartn 7 eq {/ilx      64 def} if
             } ifelse
             
/Xnref 0.63 ilx mul 0.9505 mul def
/Ynref 0.63 ilx mul def
/Znref 0.63 ilx mul 1.0890 mul def
     
/XQ Xnref  95.05 div def
/YQ Ynref 100.00 div def
/ZQ Znref 108.90 div def
XQ 0 lt {/XQ 0.00000001 def} if
YQ 0 lt {/YQ 0.00000001 def} if
ZQ 0 lt {/ZQ 0.00000001 def} if
/L*ref YQ 0.008856 lt {903.3 YQ mul}
                      {YQ 0.33333333 exp 116 mul 16 sub} ifelse def
/a*ref XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                      {XQ 0.33333333 exp} ifelse
       YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse sub 500 mul def
/b*ref YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                      {YQ 0.33333333 exp} ifelse
       ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                      {ZQ 0.33333333 exp} ifelse sub 200 mul def

/L*N L*ref def /L*W 95.41 def

/L*i 21 array def %different for xchartl=0,7
/a*i 21 array def
/b*i 21 array def
/l*i 21 array def
/Yi  21 array def

%equal distance between L*N and L*W
0 1 20 {/i exch def %steps from black to white
        i 15 le {/i0  0 def /istep 15 def}
                {/i0 16 def /istep  4 def} ifelse
         L*i i L*N L*W L*N sub i i0 sub istep div mul add put
         a*i i 0 put
         b*i i 0 put
         l*i i L*i i get L*N sub L*W L*N sub div put
        /Y* {L*i i get 16 add 116 div} bind def
        Yi i Y* DecodeXYZ* 100.00 mul put
       } for

/cvishow {cvi 6 string cvs show} def

72 90 translate
0.023 MM dup scale
15 setlinewidth

0 setgray
120 /Times-ISOL1 FS
100 -100 moveto
(fel80-3N) show
(\255) show colorml cvishow xcolorl cvishow
xchartd 1 eq {xchartl cvishow}
             {xchartl xchartd idiv cvishow} ifelse
(\255) show pchartl cvishow (: ) show

(File: ) show CMeasSxl show (; ) show
(Device: ) show CDeviceSxl show (; ) show
(Date: ) show CDateSxl show

/cvishow {0.5 add cvi %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow0 {10 mul 0.5 add cvi 0.1 mul 10 string cvs show} def
/cvsshow1 {10 mul 0.5 add cvi 0.1 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow2 {100 mul 0.5 add cvi 0.01 mul %new980310
           dup 0 ge {(  ) show} if
           dup abs 10 lt {(  ) show} if
           10 string cvs show} def
/cvsshow3 {1000 mul 0.5 add cvi 0.001 mul 10 string cvs show} def

1 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath fill
0 setgray
20 20 moveto 5400 0 rlineto 0 4000 rlineto   %relatives Bildfeld 54 x 40mm
            -5400 0 rlineto closepath stroke

/x0 0 def /y0 3700 def /yd 170 def
/xpos 18 array def
/xtex 18 array def
/xpos [ 10  150   450  750            %i, LAB*refi(ikor)
            1000                      %d
            1350 1650 1950            %LAB*outi(ikor)
            2300 2600 2900            %dLABTO(ikor,ikor), dE*
            3150 3500 3850            %
            4200 4500 4800 5100] def  %
/xtex [(i) (LAB*ref) ( ) ( ) (l*out)
           (LAB*out) ( ) ( )
           (LAB*out/c-ref) ( ) ( ) (   E*)
           () ( ) ( )
           ( ) ( ) ( )] def
 
0 1 16 { /j exch def
         xpos j get x0 add 100 add y0 yd add moveto xtex j get show
       } for %j=0,1,...,16

colorml 1 eq {/xchartNl xchartl 8 idiv def
              /xchartPl xchartl xchartl 8 idiv 8 mul sub def
              /gammaNl 1 xchartNl 0.18 mul add def
              /gammaPl 1 1 xchartPl 0.18 mul add div def
              /gammal gammaNl gammaPl mul def
             } if
%STOPA

/L*gi 21 array def %different for xchartl=0,7
/a*gi 21 array def
/b*gi 21 array def
/l*gi 21 array def
/Ygi  21 array def

%distance between L*N and L*W using gamma
0 1 20 {/i exch def %steps from black to white
        l*gi i l*i i get colorm 1 eq {gammal exp} if put
         L*gi i L*W L*N sub l*gi i get mul L*N add put
         a*gi i 0 put
         b*gi i 0 put
        /Y* {L*gi i get 16 add 116 div} bind def
        Ygi i Y* DecodeXYZ* 100.00 mul put
       } for

%STOP2

100  /Symbol FS
         xpos 10 get x0 add 350 add y0 yd add moveto (D) show
100  /Times-Roman FS
 
/sumdL*  0 def /sumda* 0 def /sumdb* 0 def /sumdE* 0 def
/sumdNL* 0 def /sumdNa* 0 def /sumdNb* 0 def /sumdNE* 0 def
/sumdBL* 0 def /sumdBa* 0 def /sumdBb* 0 def /sumdBE* 0 def
/sumdRL* 0 def
/sumdFL* 0 def

0 1 20 {/i exch def %21 colours

%STOP3

0 1 12 {/j exch def %17 Positionen

x0 xpos j get add y0 yd i mul sub moveto
 
j 0 eq {i 1 add cvishow } if
j 1 eq {L*i i get cvsshow2} if
j 2 eq {a*i i get cvsshow2} if
j 3 eq {b*i i get cvsshow2} if

% LABO1NJ 1 eq { %Differenzen oder Messwerte falls vorh.

 j 4 eq {l*gi i get cvsshow2} if 
 j 5 eq {L*gi i get cvsshow2} if
 j 6 eq {a*gi i get cvsshow2} if
 j 7 eq {b*gi i get cvsshow2} if

%STOP4

j 8 eq {L*gi i get dup L*i i get sub cvsshow2 L*i i get sub
         abs /sumdL* exch sumdL* add def
       } if %j=8
j 9 eq {a*gi i get dup a*i i get sub cvsshow2 a*i i get sub
        abs /sumda* exch sumda* add def
       } if %j=9
j 10 eq {b*gi i get dup b*i i get sub cvsshow2 b*i i get sub
         abs /sumdb* exch sumdb* add def
        } if %j=10
 
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         dup cvsshow2 /sumdE* exch sumdE* add def
        } if %j=11
 
i 15 lt {%16 Stufen
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdBE* exch sumdBE* add def
        } if %j=11
        } if %16 Stufen
 
i 16 ge {%5 Unbunt=Noir
j 11 eq {L*gi i get L*i i get sub dup mul
         a*gi i get a*i i get sub dup mul add
         b*gi i get b*i i get sub dup mul add 0.0001 add sqrt
         /sumdNE* exch sumdNE* add def
        } if %j=11
        } if %5 Unbunt=Noir
% 
%j 11 eq { %j=10 Regularity
%i 16 eq {/L1 LAB*ouci i1 get def} if %i=16
%i 17 eq {/L2 LAB*ouci i1 get def} if %i=17
%i 18 eq {/L3 LAB*ouci i1 get def} if %i=18
%i 19 eq {/L4 LAB*ouci i1 get def} if %i=19
%i 20 eq {/L5 LAB*ouci i1 get def} if %i=20
%        } if %j=10 Regularity
 
110  /Times-Bold FS
 
12 j eq {%j=12
         i 00 eq {(Kennzeichnung nach) gshowde
                  (Specification according to) gshowen
                  x0 xpos j get add y0 yd add moveto
                  (Start-Ausgabe S1) gshowde
                  (Start output S1) gshowen} if %i=0
         i 01 eq {(ISO/IEC 15775 Anhang G) gshowde
                  (ISO/IEC 15775 Annex G) gshowen} if %i=1
         i 02 eq {(und DIN 33866-1 Anhang G) gshowde
                  (and DIN 33866-1 Annex G) gshowen} if %i=2
%           i 03 eq {(nur ) bshowde 
%                     (only ) bshowen 
%                     (L*-) bishow
%                     (Helligkeit benutzt) bshowde (lightness used) bshowen} if %i=2
%           i 04 eq {(D) sshow (L*) bishow 
%                     ( = ) bshow
%                     LABREFW 1 get cvsshow2 ( - ) show LABREFX 1 get cvsshow2
%                    } if %i=2
%           i 05 eq {(Gleichmaessigkeit) bshowde (Regularity) bshowen} if %i=5 
%           i 08 eq {(Helligkeitsumfang rel. zu Offset) bshowde 
%                    (Lightness gamut rel. to offset) bshowen} if %i=8
%           i 11 eq {(D) sshow (L*-) bishow (Grauvariation) bshowde (gray variation) bshowen} if %i=11
%           i 12 eq {(v*) bishow ( = ) bshow outL*var cvsshow3} if

            i 14 eq {(Mittlerer Helligkeitsabstand (16 Stufen)) bshowde
                     (Mean lightness difference (16 steps)) bshowen
                    } if %i=14

            i 15 eq {(D) sshow (E*) bishow
                     0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow
                     sumdBE* 16 div cvsshow1
                    } if %i=15

           i 19 eq {(Mittlerer Helligkeitsabstand (5 Stufen)) bshowde
                     (Mean lightness difference (5 steps)) bshowen
                   } if i%=18
           i 20 eq {(D) sshow (L*) bishow
                     0 -20 rmoveto (CIELAB) ishow 0 20 rmoveto ( = ) bshow
                     sumdNE* 05 div cvsshow1
                   } if %i=20

           } if %j=12

TMS
} for %j=0,12

} for %i=0,20

110  /Times-Bold FS
/j 1 def
 x0 xpos j get add 1000 add y0 yd 21 mul sub moveto
(Mittlerer Farbwiedergabe-Index:) bshowde
(Mean colour reproduction index:) bshowen
 
/j 11 def
 x0 xpos j get add y0 yd 21 mul sub moveto
 (R*) bishow 0 -20 rmoveto (ab,m) ishow 0 20 rmoveto ( = ) bshow
 100 sumdBE* 21 div
 sumdNE* 21 div add 4.6 mul sub cvishow

} if %pchartl=2

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer