%!PS-Adobe-3.0 EPSF-3.0 IG600-7A.EPS
%%BoundingBox: 70 80 780 550

%START PDFDE011.EPS
/pdfmark07 where {pop} {userdict /pdfmark07 /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/IG60/)
  /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:2009090112000)
  /ModDate (D:2009090112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%END  PDFDE011

%%Creator: K. Richter, BAM und TU Berlin, 200401001

% !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
/A4quer {598 0 translate 90 rotate} def

/LAB*rc 33 array def
/XYZrc  33 array def

/LAB*ra  33 array def
/XYZra  33 array def

/LAB*la 33 array def
/XYZla  33 array def

/LAB*lc 33 array def
/XYZlc  33 array def

/LABN 12 array def

/LAB*system { %BEG procedure LAB*system

/LAB*ORS [%D=Device OYLCVMO+NW %for Offset Reflective System (ORS)
58.62 -30.63 -42.75 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
25.72  31.45 -44.36 %V   1 
48.13  75.20 -6.80  %M   2
47.94  65.31  52.07 %0   3
90.37 -11.16  96.17 %Y   4
50.90 -62.97  36.71 %L   5
58.62 -32.63 -42.75 %C   6
18.01  0.50   -0.47 %N   7 
95.41 -0.99    4.76 %W   8
00.01  0.84   -1.69 %N0  9
100.0 -1.08    5.06 %W1 10 
] def %OYLCVMO+NW

/LAB*TLS0 [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
86.88 -46.17 -13.56 %C   0  %see Table 1 of ISO/IEC 15775:1999-12
30.39  76.06 -103.58 %V  1 corrected compared to L47E00NP.PS, TR24705 used
57.30  94.35 -58.42 %M   2
50.50  76.92  64.55 %0   3
92.66 -20.70  90.75 %Y   4
83.63 -82.76  79.90 %L   5
86.88 -46.17 -13.56 %C   6
 0.01   0.00   0.00 %N0  7
95.41   0.00   0.00 %W   8
18.01   0.00   0.00 %N   9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

/LAB*TLS [%D=Device OYLCVMO+NW %for Television Luminous System (TLS)
87.14 -44.43 -13.13 %C   0  %computed from Table 1 of ISO/IEC 15775:1999-12
35.47  64.92 -95.08 %V   1 corrected compared to L47E00NP.PS, TR24705 used % with Yn=2.52
59.01  89.33 -19.44 %M   2
52.76  71.63  49.88 %0   3
92.74 -20.04  84.97 %Y   4
84.00 -79.00  73.94 %L   5
87.14 -44.43 -13.13 %C   6
18.01   0.00   0.00 %N   7
95.41   0.00   0.00 %W   8
 0.01   0.00   0.00 %N0  9
100.0   0.00   0.00 %W1 10
] def %OYLCVMO+NW

0 1 10 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*rc i30 LAB*ORS i30 get put
        LAB*rc i31 LAB*ORS i31 get put
        LAB*rc i32 LAB*ORS i32 get put
                    } if
        ISYSTEM 1 eq { %TLS
        LAB*rc i30 LAB*TLS i30 get put
        LAB*rc i31 LAB*TLS i31 get put
        LAB*rc i32 LAB*TLS i32 get put
                    } if
       } for

/L*N LAB*rc 21 get def
/A*N LAB*rc 22 get def
/B*N LAB*rc 23 get def

/L*W LAB*rc 24 get def
/A*W LAB*rc 25 get def
/B*W LAB*rc 26 get def

ISYSTEM 0 eq {
/LABN [(C) (V) (M) (O) (Y) (L) (C) (N) (W) (N0) (W1)] def
             } if

ISYSTEM 1 eq {
/LABN [(C) (V (B)) (M) (O (R)) (Y) (L (G)) (C) (N) (W) (N0) (W1)] def
             } if

} bind def %END procedure LAB*system

%%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
/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 {2 lanind ne {pop} if} bind def
/popfr {3 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 2 lanind ne {n {pop} repeat} if} bind def
/popxfr {/n exch def 3 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 0 def /lanind2 0 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 %lanind1 1 lanind2 {/lanind 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
gsave
%LANINDL2 END

/Pouten [
(Colorimetric data of Offset Reflective Systems ORS18, ORS18a)
( and Offset Luminous Systems OLS00a, OLS18a, chroma adapted (a))

(Colorimetric data of Offset Reflective Systems ORS18, ORS18a)
( and Offset Luminous Systems OLS00, OLS18)
 ] def

/Poutde [
(Farbmetrische Daten der Offset-Reflexions-Systeme ORS18, ORS18a)
( und Offset-Lichtfarben-Systeme OLS00a, OLS18a, Buntheits adaptiert (a))

(Farbmetrische Daten der Offset-Reflexions-Systeme ORS18, ORS18a)
( und Offset-Lichtfarben-Systeme OLS00, OLS18)
 ] def
          
/Touten [
(Colorimetric data of Television Reflective System TRS18)
( and calculated Television Luminous Systems TLS00, TLS18)
 ] def

/Toutde [
(Farbmetrische Daten des Fernseh-Reflexions-Systems TRS18)
( und berechnete Daten der Fernseh-Lichtfarben-Systeme TLS00, TLS18)
 ] def

1 1 1 {/ISYSTEM exch def %ISYSTEM=0,1

/xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse

%1 1 4 {/iout exch def %iout=1,4

/iout xchart def

/iout2 iout 2 mul def

gsave

LAB*system

8 /Times-ISOL1 FS
72 82 moveto
     ( IG600-7N, ) show
ISYSTEM 0 eq {lanind 0 eq {Poutde} {Pouten} ifelse
              iout2 get show
              lanind 0 eq {Poutde} {Pouten} ifelse
              iout2 1 add get show} if
ISYSTEM 1 eq {lanind 0 eq {Toutde} {Touten} ifelse
              iout2 get show
              lanind 0 eq {Toutde} {Touten} ifelse
              iout2 1 add get show} if

72 90 translate

0.022 MM dup scale %special instead of 0.02

15 setlinewidth
0 0  moveto 11200 0 rlineto 0 7200 rlineto -11200 0 rlineto
closepath stroke

/ix1    50 def
/ix2  1600 def
/ix3  2200 def
/ixd  800 def
/iyd  130 def
%LAB
/ix3  ix3 ixd 0 mul add def
/ix4  ix3 ixd 1.1 mul add def
/ix5  ix3 ixd 2.2 mul add def
/ix6  ix3 ixd 3.3 mul add def
%XYZxy
/ix7  ix3 ixd 4.6 mul add def
/ix8  ix3 ixd 6.1 mul add def
/ix9  ix3 ixd 7.6 mul add def
/ix10 ix3 ixd 9.15 mul add def
/ix11 ix3 ixd 9.80 mul add def
%Y/89.60
/ix12 ix3 ixd 10.55 mul add def

/iy 15140 def
/iy00 iy 250 sub def
/iy0d  1510 def
/iy01 iy00 iy0d sub def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def

/nshow {iyd /Times-ISOL1 FS show} def
/tspace {dup abs 1.0 le {(   ) show} if
         dup dup -1.0 le exch -10 gt and {(  ) show} if
         dup dup 1.0 gt exch  10 lt and {(   ) show} if
         dup dup 1.0 gt exch  10 ge and {( ) show} if
            } bind def

/trushow {tspace 0.005 add 100 mul truncate 100 div
          10 string cvs show} bind def

/troshow {0.005 add 100 mul truncate 100 div
          10 string cvs show} bind def

/trushow4 {0.00005 add 10000 mul truncate 10000 div
           10 string cvs show} bind def

/bshow {iyd /TimesB-ISOL1 FS show} def
/ishow {0 -20 rmoveto iyd 20 sub /TimesB-ISOL1 FS show 0 20 rmoveto} def
/bnshow {iyd /TimesB-ISOL1 FS show} def

/DecodeXYZ* {dup 6 29 div ge {dup dup mul mul}
            {4 29 div sub 108 841 div mul} ifelse} bind def
            
0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*rc i30 get 16 add 116 div
            LAB*rc i31 get 500 div add} bind def
       /Y* {LAB*rc i30 get 16 add 116 div} bind def
       /Z* {LAB*rc i30 get 16 add 116 div
            LAB*rc i32 get 200 div sub} bind def
       XYZrc i30 X* DecodeXYZ* 95.05 mul put
       XYZrc i31 Y* DecodeXYZ* 100.00 mul put
       XYZrc i32 Z* DecodeXYZ* 108.90 mul put
       } for
       

0 1 10 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*ra  i30 LAB*rc i30 get put
        /l*CIE LAB*rc i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*ra  i31 LAB*rc i31 get A*N sub a*s sub put
        LAB*ra  i32 LAB*rc i32 get B*N sub b*s sub put
       } for %i=0,10 
        
0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*ra  i30 get 16 add 116 div
            LAB*ra  i31 get 500 div add} bind def
       /Y* {LAB*ra  i30 get 16 add 116 div} bind def
       /Z* {LAB*ra  i30 get 16 add 116 div
            LAB*ra  i32 get 200 div sub} bind def
       XYZra i30 X* DecodeXYZ*  95.05 mul put
       XYZra i31 Y* DecodeXYZ* 100.00 mul put
       XYZra i32 Z* DecodeXYZ* 108.90 mul put
      } for %i=0,10

iout 1 le { %iout<=1

/iy0ds iy0d 5.75 mul def       
/iy iy01 iy0ds sub iyd add 250 add def
20 iy moveto

lanind 0 eq {(Farbmetrische Daten: )} {(Colorimetric data: )} ifelse
 195 /TimesB-ISOL1 FS show

ISYSTEM 0 eq {%ISYSTEM=0
lanind 0 eq
{(Offset-Reflexions-System ORS18a f\374r CIE Helligkeit L*=18 von Schwarz)}
{(Offset Reflective System ORS18a for CIE lightness L*=18 of black)} ifelse
 show} if %ISYSTEM=0

ISYSTEM 1 eq {%ISYSTEM=1
lanind 0 eq
{(Fernseh-Reflexions-System TRS18 f\374r CIE Helligkeit L*=18 von Schwarz)}
{(Television Reflective System TRS18 for CIE lightness L*=18 of black)} ifelse
 show} if %ISYSTEM=1

/iy iy01 iy0ds sub def
20 iy moveto
lanind 0 eq {(\050Reflexionsadaptiert )}
            {(\050Reflection adapted )} ifelse bshow
20 iy iyd 1 mul sub moveto
lanind 0 eq {(und CIELAB Nullpunkt\051 )}
            {(and CIELAB cero point\051 )} ifelse bshow

/iy iy01 iy0ds sub iyd add 30 add def
20 iy moveto
ISYSTEM 0 eq {(System ORS18a) 195 /TimesB-ISOL1 FS show} if
ISYSTEM 1 eq {(System TRS18) 195 /TimesB-ISOL1 FS show} if
ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow

ISYSTEM 0 eq xchart 1 le and
{ %if ISYSTEM=0, xchar<=1
ix3 iy moveto (L*) bshow (a) ishow (=LAB*) bshow (a1) ishow
ix4 iy moveto (a*) bshow (a) ishow (=LAB*) bshow (a2) ishow
ix5 iy moveto (b*) bshow (a) ishow (=LAB*) bshow (a3) ishow
ix6 iy moveto (C*) bshow (ar) ishow (=LAB*) bshow (ar) ishow
ix7 iy moveto (X) bshow (a) ishow (=XYZ) bshow (a1) ishow
ix8 iy moveto (Y) bshow (a) ishow (=XYZ) bshow (a2) ishow
ix9 iy moveto (Z) bshow (a) ishow (=XYZ) bshow (a3) ishow
ix10 iy moveto (x) bshow (a) ishow
ix11 iy moveto (y) bshow (a) ishow
ix12 iy moveto (Y) bshow (a) ishow (/88.59) bshow
}
{
ix3 iy moveto (L*) bshow () ishow (=LAB*) bshow (1) ishow
ix4 iy moveto (a*) bshow () ishow (=LAB*) bshow (2) ishow
ix5 iy moveto (b*) bshow () ishow (=LAB*) bshow (3) ishow
ix6 iy moveto (C*) bshow (r) ishow (=LAB*) bshow (r) ishow
ix7 iy moveto (X) bshow () ishow (=XYZ) bshow (1) ishow
ix8 iy moveto (Y) bshow () ishow (=XYZ) bshow (2) ishow
ix9 iy moveto (Z) bshow () ishow (=XYZ) bshow (3) ishow
ix10 iy moveto (x) bshow () ishow
ix11 iy moveto (y) bshow () ishow
ix12 iy moveto (Y) bshow () ishow (/88.59) bshow
 } ifelse %if ISYSTEM=0, xchar<=1
  
iyd /Times-ISOL1 FS

0 1 10 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def        
        /iy iy01 iy0ds sub i 5 le {i} {i 1 sub} ifelse iyd mul sub def
        i 6 ne {%i 6 ne
        ix2 iy moveto ( ) nshow LABN i get show
        ix3 iy moveto LAB*ra  i30 get trushow
        ix4 iy moveto LAB*ra  i31 get trushow
        ix5 iy moveto LAB*ra  i32 get trushow
        ix6 iy moveto LAB*ra  i31 get dup mul
                      LAB*ra  i32 get dup mul add sqrt trushow
        ix7 iy moveto XYZra i30 get troshow 
        ix8 iy moveto XYZra i31 get troshow
        ix9 iy moveto XYZra i32 get troshow
        
        /sumXYZra XYZra i30 get XYZra i31 get add XYZra i32 get add def
        ix10 iy moveto XYZra i30 get sumXYZra 0.0001 add div trushow4
        ix11 iy moveto XYZra i31 get sumXYZra 0.0001 add div trushow4
        ix12 iy moveto XYZra i31 get XYZra 25 get 0.0001 add div trushow4
                } if %i 6 ne
       } for
       
 } if %iout<=1

%iout 0 gt { %iout>0

/iy0ds iy0d 4.50 mul def       
/iy iy01 iy0ds sub iyd add 250 add def
20 iy moveto
lanind 0 eq {(Farbmetrische Daten von "Norm-Original": )}
            {(Colorimetric data of "Standard Original": )} ifelse
             195 /TimesB-ISOL1 FS show

ISYSTEM 0 eq {%ISYSTEM=0
lanind 0 eq
{(Offset-Reflexions-System ORS18 f\374r CIE Helligkeit L*=18 von Schwarz)}
{(Offset Reflective System ORS18 for CIE lightness L*=18 of black)} ifelse
             show} if %ISYSTEM=0

ISYSTEM 1 eq {%ISYSTEM=1
lanind 0 eq
{(Fernseh-Reflexions-System TRS18 f\374r CIE Helligkeit L*=18 von Schwarz)}
{(Television Reflective System TRS18 for CIE lightness L*=18 of black)} ifelse
              show} if %ISYSTEM=1

/iy iy01 iy0ds sub iyd add 30 add def
20 iy moveto
ISYSTEM 0 eq {(System ORS18) 195 /TimesB-ISOL1 FS show} if
ISYSTEM 1 eq {(System TRS18) 195 /TimesB-ISOL1 FS show} if

/iy iy01 iy0ds sub def
20 iy moveto
lanind 0 eq {(\050Reflexion CIE, Y)} {(\050Reflective CIE, Y)} ifelse
             bshow (N) ishow (=2.52 ) bshow
20 iy iyd 1 mul sub moveto
lanind 0 eq {(und CIELAB Nullpunkt\051 )} {(and CIELAB cero point\051 )} ifelse
             bshow
20 iy iyd 2 mul sub moveto
lanind 0 eq {(\050 CIELAB ) } {(\050CIELAB according )} ifelse
             bshow
20 iy iyd 3 mul sub moveto
lanind 0 eq {(nach ISO/IEC 15775\051)} {(to ISO/IEC 15775\051)} ifelse
             bshow

/iy iy01 iy0ds sub iyd add 30 add def
ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow
ISYSTEM 0 eq xchart 1 le and
{ %if ISYSTEM=0, xchar<=1
ix3 iy moveto (L*) bshow (a) ishow (=LAB*) bshow (a1) ishow
ix4 iy moveto (a*) bshow (a) ishow (=LAB*) bshow (a2) ishow
ix5 iy moveto (b*) bshow (a) ishow (=LAB*) bshow (a3) ishow
ix6 iy moveto (C*) bshow (ar) ishow (=LAB*) bshow (ar) ishow
ix7 iy moveto (X) bshow (a) ishow (=XYZ) bshow (a1) ishow
ix8 iy moveto (Y) bshow (a) ishow (=XYZ) bshow (a2) ishow
ix9 iy moveto (Z) bshow (a) ishow (=XYZ) bshow (a3) ishow
ix10 iy moveto (x) bshow (a) ishow
ix11 iy moveto (y) bshow (a) ishow
ix12 iy moveto (Y) bshow (a) ishow (/88.59) bshow
}
{
ix3 iy moveto (L*) bshow () ishow (=LAB*) bshow (1) ishow
ix4 iy moveto (a*) bshow () ishow (=LAB*) bshow (2) ishow
ix5 iy moveto (b*) bshow () ishow (=LAB*) bshow (3) ishow
ix6 iy moveto (C*) bshow (r) ishow (=LAB*) bshow (r) ishow
ix7 iy moveto (X) bshow () ishow (=XYZ) bshow (1) ishow
ix8 iy moveto (Y) bshow () ishow (=XYZ) bshow (2) ishow
ix9 iy moveto (Z) bshow () ishow (=XYZ) bshow (3) ishow
ix10 iy moveto (x) bshow () ishow
ix11 iy moveto (y) bshow () ishow
ix12 iy moveto (Y) bshow () ishow (/88.59) bshow
 } ifelse %if ISYSTEM=0, xchar<=1

iyd /Times-ISOL1 FS

0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /iy iy01 iy0ds sub i 5 le {i} {i 1 sub} ifelse iyd mul sub def
       i 6 ne {%i 6 ne
       ix2 iy moveto ( ) nshow LABN i get show 
       ix3 iy moveto LAB*rc i30 get trushow
       ix4 iy moveto LAB*rc i31 get trushow
       ix5 iy moveto LAB*rc i32 get trushow
       ix6 iy moveto LAB*rc i31 get dup mul
                     LAB*rc i32 get dup mul add 0.0001 add sqrt trushow
       ix7 iy moveto XYZrc i30 get troshow
       ix8 iy moveto XYZrc i31 get troshow
       ix9 iy moveto XYZrc i32 get troshow
       /sumXYZrc XYZrc i30 get XYZrc i31 get add XYZrc i32 get add def
       ix10 iy moveto XYZrc i30 get sumXYZrc div trushow4
       ix11 iy moveto XYZrc i31 get sumXYZrc div trushow4
       ix12 iy moveto XYZrc i31 get XYZrc 25 get div trushow4
             } if %i 6 ne
      } for

% } if %iout>0

/Xwref XYZra 24 get def
/Ywref XYZra 25 get def
/Zwref XYZra 26 get def

/Xnref 2.52 0.9505 mul def
/Ynref 2.52 def
/Znref 2.52 1.0890 mul def

0 1 10 {/i exch def
         /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         XYZra i30 XYZra i30 get Xnref sub Xwref Xwref Xnref sub div mul put
         XYZra i31 XYZra i31 get Ynref sub Ywref Ywref Ynref sub div mul put
         XYZra i32 XYZra i32 get Znref sub Zwref Zwref Znref sub div mul put
        } for %i=0,10} if

iout 0 eq {/ila1 0 def /ila2 3 def /ilad 3 def} if
iout 1 eq {/ila1 0 def /ila2 3 def /ilad 3 def} if

ila1 ilad ila2 {/il exch def /il2 il 2 mul def %il for

%Reference black and white         
il 0 eq {/Xnref 0.00 def
         /Ynref 0.00 def
         /Znref 0.00 def
         /PLref (System OLS00) def
         /TLref (System TLS00) def} if
         
il 1 eq {/Xnref 2.52 0.25 mul 0.9505 mul def
         /Ynref 2.52 0.25 mul def
         /Znref 2.52 0.25 mul 1.0890 mul def
         /PLref (System OLS06) def
         /TLref (System TLS06) def} if
         
il 2 eq {/Xnref 2.52 0.50 mul 0.9505 mul def
         /Ynref 2.52 0.50 mul def
         /Znref 2.52 0.50 mul 1.0890 mul def
         /PLref (System OLS11) def
         /TLref (System TLS11) def} if
         
il 3 eq {/Xnref 2.52 1.00 mul 0.9505 mul def
         /Ynref 2.52 1.00 mul def
         /Znref 2.52 1.00 mul 1.0890 mul def
         /PLref (System OLS18) def
         /TLref (System TLS18) def} if
         
il 4 eq {/Xnref 2.52 2.00 mul 0.9505 mul def
         /Ynref 2.52 2.00 mul def
         /Znref 2.52 2.00 mul 1.0890 mul def
         /PLref (System OLS27) def
         /TLref (System TLS27) def} if
         
il 5 eq {/Xnref 2.52 4.00 mul 0.9505 mul def
         /Ynref 2.52 4.00 mul def
         /Znref 2.52 4.00 mul 1.0890 mul def
         /PLref (System OLS38) def
         /TLref (System TLS38) def} if
         
il 6 eq {/Xnref 2.52 8.00 mul 0.9505 mul def
         /Ynref 2.52 8.00 mul def
         /Znref 2.52 8.00 mul 1.0890 mul def
         /PLref (System OLS52) def
         /TLref (System TLS52) def} if
         
il 7 eq {/Xnref 2.52 16.00 mul 0.9505 mul def
         /Ynref 2.52 16.00 mul def
         /Znref 2.52 16.00 mul 1.0890 mul def
         /PLref (System OLS70) def
         /TLref (System TLS70) def} if


0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       XYZla i30 XYZra i30 get Xwref Xnref sub Xwref div mul Xnref add put
       XYZla i31 XYZra i31 get Ywref Ynref sub Ywref div mul Ynref add put
       XYZla i32 XYZra i32 get Zwref Znref sub Zwref div mul Znref add put
      } for %i=0,10
      
0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def       
       /XQ XYZla i30 get  95.05 div def
       /YQ XYZla i31 get 100.00 div def
       /ZQ XYZla i32 get 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
       LAB*la i30 YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       LAB*la i31 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 put
       LAB*la i32 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 put
     } for %i=0,10

il 0 eq il 4 eq or { %il=0,4
/iy iy01 iy0d 5
iout 1 le ila1 0 eq and {2 add} if
                il 3 eq {2 sub} if 
                mul sub iyd add 250 add def
20 iy moveto
lanind 0 eq {(Berechnete farbmetrische Daten: )}
            {(Calculated colorimetric data: )} ifelse
             195 /TimesB-ISOL1 FS show

ISYSTEM 0 eq {%ISYSTEM=0
lanind 0 eq  {(Offset-Lichtfarben-Systeme OLSxx) show iout 0 eq {(a) show} if
              ( f\374r CIE Helligkeit L*=xx=) show}
             {(Offset Luminous Systems OLSxx) show iout 0 eq {(a) show} if
              ( for CIE lightness L*=xx=) show} ifelse
              ila1 0 eq {lanind 0 eq {(00, 18 von Schwarz)}
                                     {(00, 18 of black)} ifelse
                         show} if
             iout 0 eq
             {lanind 0 eq {(, adaptiert (a))}
                           {(, chroma adapted (a))} ifelse
                           show} if
             } if %ISYSTEM=0
 
ISYSTEM 1 eq {%ISYSTEM=1
lanind 0 eq
{(Fernseh-Lichtfarben-Systeme (TLSxx) f\374e CIE Helligkeit L*=xx=)}
{(Television Luminous Systeme (TLSxx) for CIE lightness L*=xx=)} ifelse show

              iout 0 eq {lanind 0 eq {(00, 18 von Schwarz)}
                                   {(00, 18 of black)} ifelse
                       show} if

             } if %ISYSTEM=0
} if %il=0,4

/iy iy01 iy0d il ila1 sub
iout 1 le ila1 0 eq and {2 add} if
                      il 3 eq {2 sub} if
                      5 add mul sub iyd add 30 add def

iout 0 eq { %iout=0
20 iy moveto
ISYSTEM 0 eq {PLref 195 /TimesB-ISOL1 FS show (a) show} if
ISYSTEM 1 eq {TLref 195 /TimesB-ISOL1 FS show} if
ix2 iy moveto (Color) bshow
ix3 iy moveto (L*) bshow () ishow (=LAB*) bshow (1) ishow
ix4 iy moveto (a*) bshow () ishow (=LAB*) bshow (2) ishow
ix5 iy moveto (b*) bshow () ishow (=LAB*) bshow (3) ishow
ix6 iy moveto (C*) bshow (r) ishow (=LAB*) bshow (r) ishow
ix7 iy moveto (X) bshow () ishow (=XYZ) bshow (1) ishow
ix8 iy moveto (Y) bshow () ishow (=XYZ) bshow (2) ishow
ix9 iy moveto (Z) bshow () ishow (=XYZ) bshow (3) ishow
ix10 iy moveto (x) bshow () ishow
ix11 iy moveto (y) bshow () ishow
ix12 iy moveto (Y) bshow () ishow (/88.59) bshow  
iyd /Times-ISOL1 FS  
iyd /Times-ISOL1 FS

/iy iy01 iy0d il ila1 sub
iout 1 le ila1 0 eq and {2 add} if
                         il 3 eq {2 sub} if
                         5 add mul sub def
20 iy moveto
lanind 0 eq {(\050Display-Reflexion)}
            {(\050Display reflection)} ifelse
            bshow
20 iy iyd 1 mul sub moveto
(Yr=) bshow Ynref troshow (\051) bshow

0 1 10 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def        
        /iy iy01 iy0d il ila1 sub
                                  iout 1 le ila1 0 eq and {2 add} if
                                  il 3 eq {2 sub} if
                                  5 add mul sub
            i 5 le {i} {i 1 sub} ifelse iyd mul sub def
        i 6 ne {%i 6 ne
        ix2 iy moveto ( ) nshow LABN i get show
        ix3 iy moveto LAB*la i30 get trushow
        ix4 iy moveto LAB*la i31 get trushow
        ix5 iy moveto LAB*la i32 get trushow
        ix6 iy moveto LAB*la i31 get dup mul
                      LAB*la i32 get dup mul add sqrt trushow
        ix7 iy moveto XYZla i30 get trushow 
                      ( \050=) show
                      XYZla i30 get Xnref sub troshow (+) show
                      Xnref troshow (\051) show
        ix8 iy moveto XYZla i31 get trushow
                      ( \050=) show
                      XYZla i31 get Ynref sub troshow (+) show
                      Ynref troshow (\051) show
        ix9 iy moveto XYZla i32 get trushow
                      ( \050=) show
                      XYZla i32 get Znref sub troshow (+) show
                      Znref troshow (\051) show
         /sumXYZla XYZla i30 get XYZla i31 get add XYZla i32 get add def
         ix10 iy moveto XYZla i30 get sumXYZla 0.0001 add div trushow4
         ix11 iy moveto XYZla i31 get sumXYZla 0.0001 add div trushow4
         ix12 iy moveto XYZla i31 get XYZla 25 get 0.0001 add div trushow4
                    } if %i 6 ne
       } for
       
 } if %iout=0
       
0 1 10 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*lc i30 LAB*la i30 get put
        /l*CIE LAB*la i30 get L*N sub L*W L*N sub div def %system rel. lightn.
        /a*s A*W A*N sub l*CIE mul def
        /b*s B*W B*N sub l*CIE mul def
        LAB*lc i31 LAB*la i31 get A*N add a*s add put
        LAB*lc i32 LAB*la i32 get B*N add b*s add put
       } for %i=0,10 
        
0 1 10 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*lc i30 get 16 add 116 div
            LAB*lc i31 get 500 div add} bind def
       /Y* {LAB*lc i30 get 16 add 116 div} bind def
       /Z* {LAB*lc i30 get 16 add 116 div
            LAB*lc i32 get 200 div sub} bind def
       XYZlc i30 X* DecodeXYZ*  95.05 mul put
       XYZlc i31 Y* DecodeXYZ* 100.00 mul put
       XYZlc i32 Z* DecodeXYZ* 108.90 mul put
      } for %i=0,10

iout 1 eq { %iout=1
/iy iy01 iy0d il ila1 sub
iout 1 le ila1 0 eq and {2 add} if
                      il 3 eq {2 sub} if
                      5 add mul sub iyd add 30 add def
20 iy moveto
ISYSTEM 0 eq {PLref 195 /TimesB-ISOL1 FS show} if
ISYSTEM 1 eq {TLref 195 /TimesB-ISOL1 FS show} if
ix2 iy moveto lanind 0 eq {(Farbe)} {(Color)} ifelse bshow
ISYSTEM 0 eq xchart 1 le and
{ %if ISYSTEM=0, xchar<=1
ix3 iy moveto (L*) bshow (a) ishow (=LAB*) bshow (a1) ishow
ix4 iy moveto (a*) bshow (a) ishow (=LAB*) bshow (a2) ishow
ix5 iy moveto (b*) bshow (a) ishow (=LAB*) bshow (a3) ishow
ix6 iy moveto (C*) bshow (ar) ishow (=LAB*) bshow (ar) ishow
ix7 iy moveto (X) bshow (a) ishow (=XYZ) bshow (a1) ishow
ix8 iy moveto (Y) bshow (a) ishow (=XYZ) bshow (a2) ishow
ix9 iy moveto (Z) bshow (a) ishow (=XYZ) bshow (a3) ishow
ix10 iy moveto (x) bshow (a) ishow
ix11 iy moveto (y) bshow (a) ishow
ix12 iy moveto (Y) bshow (a) ishow (/88.59) bshow
}
{
ix3 iy moveto (L*) bshow () ishow (=LAB*) bshow (1) ishow
ix4 iy moveto (a*) bshow () ishow (=LAB*) bshow (2) ishow
ix5 iy moveto (b*) bshow () ishow (=LAB*) bshow (3) ishow
ix6 iy moveto (C*) bshow (r) ishow (=LAB*) bshow (r) ishow
ix7 iy moveto (X) bshow () ishow (=XYZ) bshow (1) ishow
ix8 iy moveto (Y) bshow () ishow (=XYZ) bshow (2) ishow
ix9 iy moveto (Z) bshow () ishow (=XYZ) bshow (3) ishow
ix10 iy moveto (x) bshow () ishow
ix11 iy moveto (y) bshow () ishow
ix12 iy moveto (Y) bshow () ishow (/88.59) bshow
 } ifelse %if ISYSTEM=0, xchar<=1

iyd /Times-ISOL1 FS

/iy iy01 iy0d il ila1 sub
 iout 1 le ila1 0 eq and {2 add} if
                      il 3 eq {2 sub} if
                      5 add mul sub def
20 iy moveto
lanind 0 eq {(\050Display-Reflexion)}
            {(\050Display reflection)} ifelse
            bshow
20 iy iyd 1 mul sub moveto
(Yr=) bshow Ynref troshow (\051) bshow

0 1 10 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        /iy iy01 iy0d il ila1 sub
                                 iout 1 le ila1 0 eq and {2 add} if
                                 il 3 eq {2 sub} if 
                                 5 add mul sub 
            i 5 le {i} {i 1 sub} ifelse iyd mul sub def
        i 6 ne {%i 6 ne
        ix2 iy moveto ( ) nshow LABN i get show
        ix3 iy moveto LAB*lc i30 get trushow
        ix4 iy moveto LAB*lc i31 get trushow
        ix5 iy moveto LAB*lc i32 get trushow
        ix6 iy moveto LAB*lc i31 get dup mul
                      LAB*lc i32 get dup mul add sqrt trushow
        ix7 iy moveto XYZlc i30 get trushow 
                      ( \050=) show
                      XYZlc i30 get Xnref sub troshow (+) show
                      Xnref troshow (\051) show
        ix8 iy moveto XYZlc i31 get trushow
                      ( \050=) show
                      XYZlc i31 get Ynref sub troshow (+) show
                      Ynref troshow (\051) show
        ix9 iy moveto XYZlc i32 get trushow
                      ( \050=) show
                      XYZlc i32 get Znref sub troshow (+) show
                      Znref troshow (\051) show
         /sumXYZlc XYZlc i30 get XYZlc i31 get add XYZlc i32 get add def
         ix10 iy moveto XYZlc i30 get sumXYZlc 0.0001 add div trushow4
         ix11 iy moveto XYZlc i31 get sumXYZlc 0.0001 add div trushow4
         ix12 iy moveto XYZlc i31 get XYZlc 25 get 0.0001 add div trushow4
                    } if %i 6 ne
       } for

 } if %iout=1

       } for %il for

%       } if %iout>0

showpage
grestore

%} for %iout=1,4

} for %ISYSTEM=0,1

%%Trailer