%!PS-Adobe-3.0 EPSF-3.0 xxx/OG28/OG28L0XX.PS 20110301
%%BoundingBox: 14 08 828 584

/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: http://130.149.60.445/~farbmetrik/OG28/OG28.HTM)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2011030112000)
 /ModDate (D:2011030112000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark

%BEG OG28/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301

%Early Binding: needed for colour separation
%/sgcmykcolor {setcmykcolor} bind def
%/sggray {setgray} bind def
%/sgrgbcolor {setrgbcolor} bind def
%FILE PREPARED FOR MIXED MODE, e. g. input ORS18 and output TLS00
 /IMES 0 def %0=LAB* used, no reflection factor necessary
%/IMES 1 def /Yre 2.52 def %1=XYZ measurement and standard device reflection
%/i*ptrsc 0 def %LAB* setcolor to cmy0* / 000n* setcmykcolor
 /i*ptrsc 1 def %LAB* setcolor to olv* setrgbcolor / w* setgray
%/i*ptrsc 2 def %LAB* setcolor to cmy0* / nnn0* setcmykcolor
%/i*ptrsc 3 def %LAB* setcolor to olv* / www* setrgbcolor
%/i*ptrsc 4 def %LAB* setcolor to lab* setcolor
%/i*ptrsc 5 def %LAB* setcolor to LAB* setcolor
%/i*ptrsc 6 def %LAB* setcolor to 000n* setcmykcolor
%/i*ptrsc 7 def %LAB* setcolor to w* setgray
 /ISIN*ioG 0 def %default input  for Offset Reflective System (ORS18/FRS09)
 /ISOU*ioG 0 def %default output dto.
%/ISIN*ioG 1 def %input  for Television Luminous System (TLS00)
%/ISOU*ioG 1 def %output dto.
%/ISIN*ioG 2 def %input  for Device Reflective measurement system (FRS09)
%/ISOU*ioG 2 def %output dto.
%/ISIN*ioG 3 def %input  for Television Luminous Reflection System (TLS18)
%/ISOU*ioG 3 def %output dto.
%/ISIN*ioG 4 def %input  for Natural Luminous System (NLS00)
%/ISOU*ioG 4 def %output dto.
%/ISIN*ioG 5 def %input  for Natural Reflective System (NRS11)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input  for Standard Reflective System (CIE18)
%/ISOU*ioG 6 def %output dto.
%/ISIN*ioG 7 def %input  for Standard Reflective System (TLS70)
%/ISOU*ioG 7 def %output dto.
 /iLAB 0 def /colormg 0 def

%END OG28/OUTLIN10.PS Output Linearization (OL) olv*->olv'* 20110301

%BEG OG28/OUTLIN1X.PS 20110301
%EMPTY
%END OG28/OUTLIN1X.PS 20110301
                                                                         
/CFilenameS1g                                  %START output of step S1g
(OG28L0N) def                                  %Link file name for data
/CDateS1g (2011-03-01, Name) def               %Date of calculation, Tester
/CDeviceS1g (unknown ) def                     %Device name
/CMeasS1g (OG28/OG28L0N) def                   %File name measured in step S1g

%change scount2g from  2 to  10 for 10 series
%change pcount2g from  8 to 240 for 240 pages of each series
/scount1g 1 def /scount2g   1 def /scountg 1 def
/pcount1g 1 def /pcount2g   1 def /pcountg 1 def
/xchart1g 0 def /xchart2g   1 def /xchartg 0 def

/BeginEPSF {            % def   % Prepare for EPS file
/b4_Inc_state save def          % Save state for cleanup
/dict_count countdictstack def
/op_count count 1 sub def       % Count objects on op stack
userdict begin                  % Make userdict current dict
/showpage {} def
0 setgray 0 setlinecap
1 setlinewidth 0 setlinejoin
10 setmiterlimit [] 0 setdash newpath
/languagelevel where            % If level not equal to 1 then
 {pop languagelevel where       % If level not equal to 1 then
 1 ne
 {false setstrokeadjust false setoverprint
 } if
} if
} bind def

/EndEPSF {	% def
 count op_count sub {pop} repeat
 countdictstack dict_count sub {end} repeat	% Clean up dict stack
 b4_Inc_state restore
} bind def
         
/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
 
/Courier-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-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
 
/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-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
 
/colrecfiLAB* %x y width heigth LAB*
  { setcolor rec fill} bind def

/colrecstLAB* %x y width heigth LAB*
  { setcolor rec stroke} bind def

/colrecficmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec fill} bind def
 
/colrecstcmyn* %x y width heigth cmy0* or 000n*
  { setcmykcolor rec stroke} bind def

/colrecfiw* %x y width heigth w*
  { setgray rec fill} bind def

/colrecstw* %x y width heigth w*
  { setgray rec stroke} bind def

/colrecfiolv* %x y width heigth olv*
  { setrgbcolor rec fill} bind def

/colrecstolv* %x y width heigth olv*
  { setrgbcolor rec stroke} bind def
 
/tzocmy0* {0.0 1.0 1.0 0.0} bind def %Reproduction colours
/tzlcmy0* {1.0 0.0 1.0 0.0} bind def %cmyn* setcmykcolor
/tzvcmy0* {1.0 1.0 0.0 0.0} bind def
/tzccmy0* {1.0 0.0 0.0 0.0} bind def
/tzmcmy0* {0.0 1.0 0.0 0.0} bind def
/tzycmy0* {0.0 0.0 1.0 0.0} bind def

/tzoolv* {1.0 0.0 0.0} bind def %Reproduction colours
/tzlolv* {0.0 1.0 0.0} bind def %olv* setrgbcolor
/tzvolv* {0.0 0.0 1.0} bind def
/tzcolv* {0.0 1.0 1.0} bind def
/tzmolv* {1.0 0.0 1.0} bind def
/tzyolv* {1.0 1.0 0.0} bind def
 
/tzoLAB* [53.34  72.46  50.66] def %Reproduction colours
/tzlLAB* [84.93 -79.83  74.80] def %LAB* setcolor
/tzvLAB* [32.20  24.88 -37.89] def
/tzcLAB* [88.10 -44.88 -13.36] def
/tzmLAB* [59.66  90.32 -19.65] def
/tzyLAB* [93.76 -20.24  85.93] def

/tzncmy0* {1.00 1.00 1.00 0.00} bind def %grey series
/tzdcmy0* {0.75 0.75 0.75 0.00} bind def %cmy0* setcmykcolor
/tzzcmy0* {0.50 0.50 0.50 0.00} bind def
/tzhcmy0* {0.25 0.25 0.25 0.00} bind def
/tzwcmy0* {0.00 0.00 0.00 0.00} bind def
 
/tzn000n* {0.00 0.00 0.00 1.00} bind def %grey series 000n*
/tzd000n* {0.00 0.00 0.00 0.75} bind def %000n* setcmykcolor
/tzz000n* {0.00 0.00 0.00 0.50} bind def
/tzh000n* {0.00 0.00 0.00 0.25} bind def
/tzw000n* {0.00 0.00 0.00 0.00} bind def

/tznw* {0.00} bind def %grey series
/tzdw* {0.25} bind def %w* setgray
/tzzw* {0.50} bind def
/tzhw* {0.75} bind def
/tzww* {1.00} bind def

/tznolv* {0.00 0.00 0.00} bind def %grey series
/tzdolv* {0.25 0.25 0.25} bind def %olv* setrgbcolor
/tzzolv* {0.50 0.50 0.50} bind def
/tzholv* {0.75 0.75 0.75} bind def
/tzwolv* {1.00 1.00 1.00} bind def

/tznLAB* [18.01 0.00 0.00] def %grey series
/tzdLAB* [37.36 0.00 0.00] def %LAB* setcolor
/tzzLAB* [56.71 0.00 0.00] def
/tzhLAB* [76.06 0.00 0.00] def
/tzwLAB* [95.41 0.00 0.00] def

/tfn {0 setgray} bind def
/tfw {1 setgray} bind def
 
/A4quer {598 0 translate 90 rotate} def
%0
%1
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def

/tzank [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 

/LAB*TE
[(ORS18) (TLS00) (FRS06) (TSL18) (NLS00) (NLS18) (SRS18) (TLS70)
 (TLS00) (TLS06) (TLS11) (TLS18) (TLS27) (TLS38) (TLS52) (TLS70)
 (OLS00) (OLS06) (OLS11) (OLS18) (OLS27) (OLS38) (OLS52) (OLS70)] def

%BEG 61 lines comment or new PS operators possible
%1
%2
%3

%%EndProlog

%%BeginPageSetup
/#copies 1 def
%A4quer
1.0 1.0 scale

/pgsave save def
%%EndPageSetup
0.0 MM 0.0 MM translate %Verschiebung nach oben und links fuer Belichter
gsave

/SS$ [(G) (E) (S) (F) (I) (J) (M)] def
/SC$ [(N) (F) (S) (D) (T) (E) (C)] def
/SX$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)%max 32
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)] def
%       0           1            2            3            4            5
%       6           7            8         
/EX$ [(A.TXT /.PS) (B.BMP /.PS) (G.GIF /.PS) (H.HTM /.PS) (I.HTM /.PS)
      (J.JPE /.PS) (P.PDF /.PS) (T.TIF /.PS)] def
/EY$ [(A.DAT) (B.DAT) (G.DAT) (H.DAT) (I.DAT) (J.DAT)
      (P.DAT) (T.DAT)] def
/lanindg1 0 def /lanindg2 0 def
/colormg1 0 def /colormg2 0 def
/xcolorg1 0 def /xcolorg2 0 def
/xchartg1 0 def /xchartg2 0 def
/lanindg lanindg1 def %no loops
/colormg colormg1 def
/xcolorg xcolorg1 def
/xchartg xchartg1 def

/pcount2x pcount2g xchart2g sub 2 add def
%scount1g 1 scount2g {/scountg exch def %s=serie, e. g. 1,1,10
%pcount1g 1 pcount2x {/pcountg exch def %p=page, e. g. 1,1,250
/xchart10 0 def /xchart20 0 def /xchart20m xchart20 def
%pcountg pcount1g eq {/xchart10 0 def /xchart20  0 def}
%                    {/xchart10 1 def /xchart20  1 def} ifelse
%pcountg pcount2x eq {/xchart10 2 def /xchart20  9 def} if
/xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def
                    /xchart20m xchart20f def} if
xchart10 1 xchart20 {/xchartg exch def

/ausz 8 def
/colorm colormg def /xchart xchartg def /xchartg0 0 def
%needs Definition of xcharti, is only in OUTLIN1X.PS



%2 MM /Times-Roman FS
%274 MM 82 MM moveto -90 rotate (/OG28/  ) show (Form: ) show
%xchartg 1 add cvi 6 string cvs show (/) show
%xchart2g 1 add cvi 6 string cvs show (,) show 90 rotate
%274 MM 65 MM moveto -90 rotate (Serie: ) show
%scountg cvi 6 string cvs show (/) show
%scount2g cvi 6 string cvs show (,) show 90 rotate
%274 MM 55 MM moveto -90 rotate
%lanindg 0 eq {(Seite: )}{(Page: )} ifelse show
%pcountg xchartg xchart10 sub add cvi 6 string cvs show 90 rotate

%274 MM 45 MM moveto
%-90 rotate
%lanindg 0 eq {(Seitenz\344hlung )}{(Page: count: )} ifelse show
%scountg 1 sub pcount2g mul pcountg add
%pcountg pcount2x eq {xchartg add pcount1g pcount2x ne {2 sub } if} if
%cvi 6 string cvs show
%90 rotate
/GSS$ SS$ lanindg get def
/GSC$ SC$ colormg get def
/GSX$ SX$ xcolorg xcolorg 16 idiv 16 mul sub get def
/GSY$ SY$ xchartg xchartg 16 idiv 16 mul sub get def %special
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def

%gsave
BeginEPSF
 28 MM 197 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 10

%line 329

%%EndDocument
EndEPSF grestore gsave
                    
BeginEPSF
 28 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 11

%line 339
%!PS-Adobe-3.0 EPSF-3.0 OG280-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 349
%!PS-Adobe-3.0 EPSF-3.0 OG280-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 13

%line 359
%!PS-Adobe-3.0 EPSF-3.0 OG28-3N.EPS 
%%BoundingBox: 70 82 380 320

%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/OE40/)
  /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:2011030112000)
  /ModDate (D:2011030112000)
/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

/TSY {200 /Symbol FS} bind def

/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

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

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

/TBIS {200 /TimesBI-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

/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

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 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.6 %V   1
57.30  94.35 -20.70 %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
31.90  24.46 -37.39 %V   1  % 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

7 1 8 {/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

} bind def %END procedure LAB*system

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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(\255) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind 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

/trushow3 {0.0005 add 1000 mul truncate 1000 div
           10 string cvs show} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def
%%EndProlog

/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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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 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
/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

/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

/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   1 def} ifelse

gsave

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

/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

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

0 1 0 {/iout exch def %iout=0,3

gsave

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   200 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def

72 90 translate

0.02 MM dup scale

15 setlinewidth
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

TSS
0 setgray
200 -130 moveto
iout 0 eq {(OG280-3N) show} if
iout 1 eq {(OG280-7N) show} if
iout 2 eq {(OG281-3N) show} if
iout 3 eq {(OG281-7N) show} if

/x00 500 def
/y00 400 def
x00 y00 moveto 3000 0 rlineto stroke
x00 y00 moveto 0 2800 rlineto stroke

0 1 14 {/i exch def %i=1,14
        x00 i 200 mul add         y00 100 sub moveto 0 200 rlineto stroke %horizontal
        x00 i 200 mul add 100 sub y00 300 sub moveto 
        i 9 le {( ) show} if i cvishow
       } for %i=1,14

0 1 07 {/i exch def %i=1,07
        x00 100 sub y00 i 400 mul add moveto 200 0 rlineto stroke %horizontal
        x00 400 sub y00 i 400 mul add 
        050 sub moveto
        i cvsshow1
       } for %i=1,06

x00 400 sub y00 3000 add moveto (delta) bshow ( L*) jshow
x00 3000 add y00 300 sub moveto
(Sample difference ) bshowen (Muster\255Differenz ) bshowde
(n) jshow

ix2 200 sub 3600 moveto 0 0400 rlineto stroke

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/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.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def

020 iy0 moveto (System) bshow
ix2 150 sub iy0 moveto 
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
(; 2 steps ) bshowen (; 2 Stufen ) bshowde
(xx=L*) jshow (N) ishow
( of Black ) bshowen ( von Schwarz ) bshowde
(N) jshow

020  iy1 moveto (TLS) bshow (xx) jshow
ix2 150 sub iy1 moveto
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
([) bshow
(Y) jshow (00) ishow ( + ) bshow (Y) jshow (Ri) ishow 
iout 0 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 1 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
iout 2 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 3 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
(]) bshow

/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

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


ila1 ilad ila2 {/il exch def %il=0,x

/il2 il 2 mul def

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
LAB*TLS 21 LrefNi il get put

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS
        LAB*c i30 LAB*TLS i11 get 
        LAB*TLS i21 get LAB*TLS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS i12 get 
        LAB*TLS i22 get LAB*TLS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS i13 get 
        LAB*TLS i23 get LAB*TLS i13 get sub sISO 15 div mul add put
                    } if
       } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c 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*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15
       
%standard difference
0 1 0 setrgbcolor
/deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto (delta ) nshow (L*) kshow (=) nshow
deltaL cvsshow1
(; ) nshow (L*) kshow (N) nishow (=) nshow LrefNi il get cvi001
newpath

il 0 eq {%il=0
         x00 1800 add y00 deltaL 400 mul add 150 add moveto
         (start and linearized output; ) showen
         (Start\255 und linearisierte Ausgabe; ) showde
         (Y) kshow (N) nishow (=0) nshow
        } if %il=0

newpath      
iout 2 ge {%iout>=2
           0 1 14 {/i exch def %i=1,14
                   /r15 i 15 div def
                   r15 dup dup setrgbcolor i 14 eq {0 setgray} if
                   /deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
                   x00 i 200 mul add
                   y00 deltaL 400 mul add
                   050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
                  } for %i=1,14
           il 0 ne {%il#0
                    0 setgray
                    x00 3050 add
                    y00 deltaL 400 mul add 250 sub moveto
                    (linearized output) showen
                    (linearisierte Ausgabe) showde
                   } if %il#0
        } if %iout>=2

1 0 0 setrgbcolor
/deltaL 1 def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto 
%200 /Symbol FS (D) show
(delta ) nshow (L*) kshow
(=) nshow deltaL cvsshow1 
x00 3050 add y00 deltaL 400 mul add 250 sub moveto
(=Threshold) nshowen (=Schwelle) nshowde 

newpath
0 1 14 {/i exch def %i=1,14
        /r15 i 15 div def
        r15 dup dup setrgbcolor i 14 eq {0 setgray} if
        x00 i 200 mul add
        y00 Lrcrn089 i 1 add get Lrcrn089 i get sub 400 mul add
        050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
       } for %i=1,14

       il 0 ne {%il#0
                /deltaL Lrcrn089 15 get Lrcrn089 14 get sub def
                0 setgray
                x00 3050 add
                y00 deltaL 400 mul add 150 sub moveto
                (start output; ) showen
                (Start\255Ausgabe; ) showde
                (Y) kshow (N) nishow 
                iout 0 eq iout 2 eq or {(=40) nshow}
                                       {(=2,5) nshow} ifelse
               } if %il#0

} for %il=0,x
       
showpage
grestore

      } for %iout=0,3

%} for %ISYSTEM=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 86 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 14

%line 369
%!PS-Adobe-3.0 EPSF-3.0 OG280-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
 28 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 15

%line 379
%!PS-Adobe-3.0 EPSF-3.0 OG280-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 16

%line 389
%!PS-Adobe-3.0 EPSF-3.0 OG280-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
BeginEPSF
28 MM -1 MM add
20 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 OG280-7N.EPS
%%BoundingBox: 70 82 380 320

%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/OE40/)
  /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:2011030112000)
  /ModDate (D:2011030112000)
/DOCINFO pdfmark07
[ /View [ /FitB ]
/DOCVIEW pdfmark07
%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

/TSY {200 /Symbol FS} bind def

/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

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

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

/TBIS {200 /TimesBI-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

/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

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 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.6 %V   1
57.30  94.35 -20.70 %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
31.90  24.46 -37.39 %V   1  % 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

7 1 8 {/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

} bind def %END procedure LAB*system

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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(\255) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind 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

/trushow3 {0.0005 add 1000 mul truncate 1000 div
           10 string cvs show} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def
%%EndProlog

/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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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 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
/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

/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

/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   1 def} ifelse

gsave

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

/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

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

1 1 1 {/iout exch def %iout=0,3

gsave

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   200 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def

72 90 translate

0.02 MM dup scale

15 setlinewidth
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

TSS
0 setgray
200 -130 moveto
iout 0 eq {(OG280-3N) show} if
iout 1 eq {(OG280-7N) show} if
iout 2 eq {(OG281-3N) show} if
iout 3 eq {(OG281-7N) show} if

/x00 500 def
/y00 400 def
x00 y00 moveto 3000 0 rlineto stroke
x00 y00 moveto 0 2800 rlineto stroke

0 1 14 {/i exch def %i=1,14
        x00 i 200 mul add         y00 100 sub moveto 0 200 rlineto stroke %horizontal
        x00 i 200 mul add 100 sub y00 300 sub moveto 
        i 9 le {( ) show} if i cvishow
       } for %i=1,14

0 1 07 {/i exch def %i=1,07
        x00 100 sub y00 i 400 mul add moveto 200 0 rlineto stroke %horizontal
        x00 400 sub y00 i 400 mul add 
        050 sub moveto
        i cvsshow1
       } for %i=1,06

x00 400 sub y00 3000 add moveto (delta) bshow ( L*) jshow
x00 3000 add y00 300 sub moveto
(Sample difference ) bshowen (Muster\255Differenz ) bshowde
(n) jshow

ix2 200 sub 3600 moveto 0 0400 rlineto stroke

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/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.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def

020 iy0 moveto (System) bshow
ix2 150 sub iy0 moveto 
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
(; 2 steps ) bshowen (; 2 Stufen ) bshowde
(xx=L*) jshow (N) ishow
( of Black ) bshowen ( von Schwarz ) bshowde
(N) jshow

020  iy1 moveto (TLS) bshow (xx) jshow
ix2 150 sub iy1 moveto
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
([) bshow
(Y) jshow (00) ishow ( + ) bshow (Y) jshow (Ri) ishow 
iout 0 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 1 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
iout 2 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 3 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
(]) bshow

/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

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


ila1 ilad ila2 {/il exch def %il=0,x

/il2 il 2 mul def

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
LAB*TLS 21 LrefNi il get put

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS
        LAB*c i30 LAB*TLS i11 get 
        LAB*TLS i21 get LAB*TLS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS i12 get 
        LAB*TLS i22 get LAB*TLS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS i13 get 
        LAB*TLS i23 get LAB*TLS i13 get sub sISO 15 div mul add put
                    } if
       } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c 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*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15
       
%standard difference
0 1 0 setrgbcolor
/deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto (delta ) nshow (L*) kshow (=) nshow
deltaL cvsshow1
(; ) nshow (L*) kshow (N) nishow (=) nshow LrefNi il get cvi001
newpath

il 0 eq {%il=0
         x00 1800 add y00 deltaL 400 mul add 150 add moveto
         (start and linearized output; ) showen
         (Start\255 und linearisierte Ausgabe; ) showde
         (Y) kshow (N) nishow (=0) nshow
        } if %il=0

newpath      
iout 2 ge {%iout>=2
           0 1 14 {/i exch def %i=1,14
                   /r15 i 15 div def
                   r15 dup dup setrgbcolor i 14 eq {0 setgray} if
                   /deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
                   x00 i 200 mul add
                   y00 deltaL 400 mul add
                   050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
                  } for %i=1,14
           il 0 ne {%il#0
                    0 setgray
                    x00 3050 add
                    y00 deltaL 400 mul add 250 sub moveto
                    (linearized output) showen
                    (linearisierte Ausgabe) showde
                   } if %il#0
        } if %iout>=2

1 0 0 setrgbcolor
/deltaL 1 def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto 
%200 /Symbol FS (D) show
(delta ) nshow (L*) kshow
(=) nshow deltaL cvsshow1 
x00 3050 add y00 deltaL 400 mul add 250 sub moveto
(=Threshold) nshowen (=Schwelle) nshowde 

newpath
0 1 14 {/i exch def %i=1,14
        /r15 i 15 div def
        r15 dup dup setrgbcolor i 14 eq {0 setgray} if
        x00 i 200 mul add
        y00 Lrcrn089 i 1 add get Lrcrn089 i get sub 400 mul add
        050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
       } for %i=1,14

       il 0 ne {%il#0
                /deltaL Lrcrn089 15 get Lrcrn089 14 get sub def
                0 setgray
                x00 3050 add
                y00 deltaL 400 mul add 150 sub moveto
                (start output; ) showen
                (Start\255Ausgabe; ) showde
                (Y) kshow (N) nishow 
                iout 0 eq iout 2 eq or {(=40) nshow}
                                       {(=2,5) nshow} ifelse
               } if %il#0

} for %il=0,x
       
showpage
grestore

      } for %iout=0,3

%} for %ISYSTEM=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto
( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 18

%line 409
%!PS-Adobe-3.0 EPSF-3.0 OG280-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG280-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 197 MM translate
  10 /Times-ISOL1 FS  1 1 scale  -77 -91 translate
%%BeginDocument: Bild 12

%line 419

%%EndDocument
EndEPSF grestore gsave
                                        
BeginEPSF
161 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 21

%line 429
%!PS-Adobe-3.0 EPSF-3.0 OG281-1,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-1,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 152 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 22

%line 439
%!PS-Adobe-3.0 EPSF-3.0 OG281-2,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-2,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 23

%line 449
%!PS-Adobe-3.0 EPSF-3.0 OG281-3N.EPS
%%BoundingBox: 70 82 380 320

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

/TSY {200 /Symbol FS} bind def

/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

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

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

/TBIS {200 /TimesBI-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

/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

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 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.6 %V   1
57.30  94.35 -20.70 %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
31.90  24.46 -37.39 %V   1  % 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

7 1 8 {/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

} bind def %END procedure LAB*system

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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(\255) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind 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

/trushow3 {0.0005 add 1000 mul truncate 1000 div
           10 string cvs show} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def
%%EndProlog

/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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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 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
/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

/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

/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   1 def} ifelse

gsave

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

/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

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

2 1 2 {/iout exch def %iout=0,3

gsave

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   200 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def

72 90 translate

0.02 MM dup scale

15 setlinewidth
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

TSS
0 setgray
200 -130 moveto
iout 0 eq {(OG280-3N) show} if
iout 1 eq {(OG280-7N) show} if
iout 2 eq {(OG281-3N) show} if
iout 3 eq {(OG281-7N) show} if

/x00 500 def
/y00 400 def
x00 y00 moveto 3000 0 rlineto stroke
x00 y00 moveto 0 2800 rlineto stroke

0 1 14 {/i exch def %i=1,14
        x00 i 200 mul add         y00 100 sub moveto 0 200 rlineto stroke %horizontal
        x00 i 200 mul add 100 sub y00 300 sub moveto 
        i 9 le {( ) show} if i cvishow
       } for %i=1,14

0 1 07 {/i exch def %i=1,07
        x00 100 sub y00 i 400 mul add moveto 200 0 rlineto stroke %horizontal
        x00 400 sub y00 i 400 mul add 
        050 sub moveto
        i cvsshow1
       } for %i=1,06

x00 400 sub y00 3000 add moveto (delta) bshow ( L*) jshow
x00 3000 add y00 300 sub moveto
(Sample difference ) bshowen (Muster\255Differenz ) bshowde
(n) jshow

ix2 200 sub 3600 moveto 0 0400 rlineto stroke

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/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.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def

020 iy0 moveto (System) bshow
ix2 150 sub iy0 moveto 
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
(; 2 steps ) bshowen (; 2 Stufen ) bshowde
(xx=L*) jshow (N) ishow
( of Black ) bshowen ( von Schwarz ) bshowde
(N) jshow

020  iy1 moveto (TLS) bshow (xx) jshow
ix2 150 sub iy1 moveto
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
([) bshow
(Y) jshow (00) ishow ( + ) bshow (Y) jshow (Ri) ishow 
iout 0 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 1 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
iout 2 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 3 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
(]) bshow

/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

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


ila1 ilad ila2 {/il exch def %il=0,x

/il2 il 2 mul def

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
LAB*TLS 21 LrefNi il get put

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS
        LAB*c i30 LAB*TLS i11 get 
        LAB*TLS i21 get LAB*TLS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS i12 get 
        LAB*TLS i22 get LAB*TLS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS i13 get 
        LAB*TLS i23 get LAB*TLS i13 get sub sISO 15 div mul add put
                    } if
       } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c 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*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15
       
%standard difference
0 1 0 setrgbcolor
/deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto (delta ) nshow (L*) kshow (=) nshow
deltaL cvsshow1
(; ) nshow (L*) kshow (N) nishow (=) nshow LrefNi il get cvi001
newpath

il 0 eq {%il=0
         x00 1800 add y00 deltaL 400 mul add 150 add moveto
         (start and linearized output; ) showen
         (Start\255 und linearisierte Ausgabe; ) showde
         (Y) kshow (N) nishow (=0) nshow
        } if %il=0

newpath      
iout 2 ge {%iout>=2
           0 1 14 {/i exch def %i=1,14
                   /r15 i 15 div def
                   r15 dup dup setrgbcolor i 14 eq {0 setgray} if
                   /deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
                   x00 i 200 mul add
                   y00 deltaL 400 mul add
                   050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
                  } for %i=1,14
           il 0 ne {%il#0
                    0 setgray
                    x00 3050 add
                    y00 deltaL 400 mul add 250 sub moveto
                    (linearized output) showen
                    (linearisierte Ausgabe) showde
                   } if %il#0
        } if %iout>=2

1 0 0 setrgbcolor
/deltaL 1 def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto 
%200 /Symbol FS (D) show
(delta ) nshow (L*) kshow
(=) nshow deltaL cvsshow1 
x00 3050 add y00 deltaL 400 mul add 250 sub moveto
(=Threshold) nshowen (=Schwelle) nshowde 

newpath
0 1 14 {/i exch def %i=1,14
        /r15 i 15 div def
        r15 dup dup setrgbcolor i 14 eq {0 setgray} if
        x00 i 200 mul add
        y00 Lrcrn089 i 1 add get Lrcrn089 i get sub 400 mul add
        050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
       } for %i=1,14

       il 0 ne {%il#0
                /deltaL Lrcrn089 15 get Lrcrn089 14 get sub def
                0 setgray
                x00 3050 add
                y00 deltaL 400 mul add 150 sub moveto
                (start output; ) showen
                (Start\255Ausgabe; ) showde
                (Y) kshow (N) nishow 
                iout 0 eq iout 2 eq or {(=40) nshow}
                                       {(=2,5) nshow} ifelse
               } if %il#0

} for %il=0,x
       
showpage
grestore

      } for %iout=0,3

%} for %ISYSTEM=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
219 MM 108 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 24

%line 459
%!PS-Adobe-3.0 EPSF-3.0 OG281-4,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-4,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
              
BeginEPSF
161 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 25

%line 469
%!PS-Adobe-3.0 EPSF-3.0 OG281-5,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-5,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 064 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 26

%line 479
%!PS-Adobe-3.0 EPSF-3.0 OG281-6,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-6,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave
                         
BeginEPSF
161 MM 020 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 27

%line 489
%!PS-Adobe-3.0 EPSF-3.0 OG281-7N.EPS
%%BoundingBox: 70 82 380 320

%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: http://130.149.60.45/~farbmetrik/OE40/)
  /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:2011030112000)
  /ModDate (D:2011030112000)
/DOCINFO pdfmark17
[ /View [ /FitB ]
/DOCVIEW pdfmark17
%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

/TSY {200 /Symbol FS} bind def

/TSS {150 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

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

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

/TBIS {200 /TimesBI-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

/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

%part 2
/LAB*c 48 array def
/XYZc  48 array def
/LAB*sa 48 array def
/XYZsa  48 array def
/LAB*s0 48 array def

/XYZc0  48 array def

/Xrcr089 16 array def
/Yrcr089 16 array def
/Zrcr089 16 array def

/Lrcr089 16 array def
/arcr089 16 array def
/brcr089 16 array def

/Xrcrn089 16 array def
/Yrcrn089 16 array def
/Zrcrn089 16 array def

/Lrcrn089 16 array def
/arcrn089 16 array def
/brcrn089 16 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.6 %V   1
57.30  94.35 -20.70 %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
31.90  24.46 -37.39 %V   1  % 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

7 1 8 {/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

} bind def %END procedure LAB*system

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

/cvishowb {cvi 6 string cvs show ( ) show} def
/cvsshow1b {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2b {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3b {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvsshow1r {0.05 add 10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2r {0.005 add 100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3r {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show} def

/cvsshow1br {0.05 add 10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
/cvsshow2br {0.005 add 100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
/cvsshow3br {0.0005 add 1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def

/cvi100 {100 mul cvi /xi exch def
         xi 0 lt {/vorz -1 def} {/vorz 1 def} ifelse
         /xia xi abs def
         vorz -1 eq {(\255) show} {(0) show} ifelse
         xia    0 ge xia    9 le     {(0000) show} if
         xia   10 ge xia   99 le and {(000) show} if
         xia  100 ge xia  999 le and {(00) show} if
         xia 1000 ge xia 9999 le and {(0) show} if
         xia cvishow
         } bind def

/cvi001 {/xi exch def
         /xia xi abs 0.5 add cvi def
         xia    0 ge xia    9 le     {(0) show} if
         xia cvishow
         } bind 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

/trushow3 {0.0005 add 1000 mul truncate 1000 div
           10 string cvs show} bind def

/nshow {iyd /Times-ISOL1 FS show} def
/nishow {-30 -50 rmoveto iyd 50 sub /Times-ISOL1 FS show 30 50 rmoveto} def
/kshow {iyd /TimesI-ISOL1 FS show} def
/bshow {iyd /TimesB-ISOL1 FS show} def
/jshow {iyd /TimesBI-ISOL1 FS show} def
/ishow {-30 -50 rmoveto iyd 50 sub /TimesB-ISOL1 FS show 30 50 rmoveto} def

/sshow {iyd /Symbol FS show} def

/nshowde {0 lanind eq {nshow} {pop} ifelse} bind def
/nshowen {1 lanind eq {nshow} {pop} ifelse} bind def
/nishowde {0 lanind eq {nishow} {pop} ifelse} bind def
/nishowen {1 lanind eq {nishow} {pop} ifelse} bind def
/kshowde {0 lanind eq {kshow} {pop} ifelse} bind def
/kshowen {1 lanind eq {kshow} {pop} ifelse} bind def
/bshowde {0 lanind eq {bshow} {pop} ifelse} bind def
/bshowen {1 lanind eq {bshow} {pop} ifelse} bind def
/jshowde {0 lanind eq {jshow} {pop} ifelse} bind def
/jshowen {1 lanind eq {jshow} {pop} ifelse} bind def
/ishowde {0 lanind eq {ishow} {pop} ifelse} bind def
/ishowen {1 lanind eq {ishow} {pop} ifelse} bind def
%%EndProlog

/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
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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 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
/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

/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

/xchartg where {pop /xchart   xchartg def} {/xchart   0 def} ifelse
/xcolorg where {pop /xcolor   xcolorg def} {/xcolor   1 def} ifelse

gsave

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

/LABN [(00, F) (01, E) (02, D) (03, C) (04, B) (05, A) (06, 9) (07, 8)
       (08, 7) (09, 6) (10, 5) (11, 4) (12, 3) (13, 2) (14, 1) (15, 0)] def

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

3 1 3 {/iout exch def %iout=0,3

gsave

LAB*system

/ix1    50 def %COLOR
/ix2   850 def %L*
/ix3  3450 def %Y
/ix4  6150 def %Yt
/ix5  8850 def %t

/ixd  1200 def
/iyd   200 def

/iy00 4600 def
/iy0d  1510 def
/iy01 iy00 def
/iy02 iy01 iy0d sub def
/iy03 iy02 iy0d sub def
/iy04 iy03 iy0d sub def
/iy05 iy04 iy0d sub def

72 90 translate

0.02 MM dup scale

15 setlinewidth
0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath stroke

TSS
0 setgray
200 -130 moveto
iout 0 eq {(OG280-3N) show} if
iout 1 eq {(OG280-7N) show} if
iout 2 eq {(OG281-3N) show} if
iout 3 eq {(OG281-7N) show} if

/x00 500 def
/y00 400 def
x00 y00 moveto 3000 0 rlineto stroke
x00 y00 moveto 0 2800 rlineto stroke

0 1 14 {/i exch def %i=1,14
        x00 i 200 mul add         y00 100 sub moveto 0 200 rlineto stroke %horizontal
        x00 i 200 mul add 100 sub y00 300 sub moveto 
        i 9 le {( ) show} if i cvishow
       } for %i=1,14

0 1 07 {/i exch def %i=1,07
        x00 100 sub y00 i 400 mul add moveto 200 0 rlineto stroke %horizontal
        x00 400 sub y00 i 400 mul add 
        050 sub moveto
        i cvsshow1
       } for %i=1,06

x00 400 sub y00 3000 add moveto (delta) bshow ( L*) jshow
x00 3000 add y00 300 sub moveto 
(Sample difference ) bshowen (Muster\255Differenz ) bshowde
(n) jshow

ix2 200 sub 3600 moveto 0 0400 rlineto stroke

% achromatic (D65) colours
/XLWD65100  95.04 def
/YLWD65100 100.00 def
/ZLWD65100 108.88 def

/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.0888 mul def

/ix2i ix2 800 add def

/iy iy02 iyd add 50 add def
/iy0 iy 500 add def
/iy1 iy 290 add def

020 iy0 moveto (System) bshow
ix2 150 sub iy0 moveto 
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
(; 2 steps ) bshowen (; 2 Stufen ) bshowde
(xx=L*) jshow (N) ishow
( of Black ) bshowen ( von Schwarz ) bshowde
(N) jshow

020  iy1 moveto (TLS) bshow (xx) jshow
ix2 150 sub iy1 moveto
(Lightness ) bshowen (Helligkeit ) bshowde
(L*) jshow (CIELAB) ishow
([) bshow
(Y) jshow (00) ishow ( + ) bshow (Y) jshow (Ri) ishow 
iout 0 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 1 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
iout 2 eq {( (i=0 and 7)) bshowen ( (i=0 und 7)) bshowde} if
iout 3 eq {( (i=0 and 3)) bshowen ( (i=0 und 3)) bshowde} if
(]) bshow

/ilf 8 array def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def
/Lrefl 8 array def
/Lrefl [(0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def
%Reference black and factors
/YrN 2.52 def

/LrefNt 8 array def
/LrefNi 8 array def
LrefNi 0 0 put

1 1 7 {/i exch def %i=0,7
       /Ynref YrN ilf i get mul def
       LrefNi i 116 Ynref 0.01 mul 0.3333 exp mul 16 sub put
      } for %i=0,7

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


ila1 ilad ila2 {/il exch def %il=0,x

/il2 il 2 mul def

/Xnref YrN ilf il get mul 0.9505 mul def
/Ynref YrN ilf il get mul def
/Znref YrN ilf il get mul 1.0890 mul def

/PLref (System OLS00) def
/TLref (System TLS00) def
LAB*TLS 21 LrefNi il get put

/i11 7 3 mul def /i12 i11 1 add def /i13 i11 2 add def %colour N
/i21 8 3 mul def /i22 i21 1 add def /i23 i21 2 add def %colour W
      
0 1 15 {/sISO exch def
        /i30 sISO 3 mul def /i31 i30 1 add def /i32 i30 2 add def
        ISYSTEM 0 eq { %ORS
        LAB*c i30 LAB*ORS i11 get 
        LAB*ORS i21 get LAB*ORS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*ORS i12 get 
        LAB*ORS i22 get LAB*ORS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*ORS i13 get 
        LAB*ORS i23 get LAB*ORS i13 get sub sISO 15 div mul add put
                    } if
        ISYSTEM 1 eq { %TLS
        LAB*c i30 LAB*TLS i11 get 
        LAB*TLS i21 get LAB*TLS i11 get sub sISO 15 div mul add put
        LAB*c i31 LAB*TLS i12 get 
        LAB*TLS i22 get LAB*TLS i12 get sub sISO 15 div mul add put
        LAB*c i32 LAB*TLS i13 get 
        LAB*TLS i23 get LAB*TLS i13 get sub sISO 15 div mul add put
                    } if
       } for

/L*N LAB*c 0 get def
/A*N LAB*c 1 get def
/B*N LAB*c 2 get def

/L*W LAB*c 45 get def
/A*W LAB*c 46 get def
/B*W LAB*c 47 get def

/A*D A*W A*N sub def
/B*D B*W B*N sub def

/L*Nsa L*N def
/A*Nsa 0.0 def
/B*Nsa 0.0 def

/L*Wsa L*W def
/A*Wsa 0.0 def
/B*Wsa 0.0 def

/L*Ns0 0.0 def
/A*Ns0 0.0 def
/B*Ns0 0.0 def

/L*Ws0 L*W L*N sub def
/A*Ws0 0.0 def
/B*Ws0 0.0 def

/Xssrefl Xnref def
/Yssrefl Ynref def
/Zssrefl Znref def

/Xrsrefl Xnref def
/Yrsrefl Ynref def
/Zrsrefl Znref def

0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*c i30 get 16 add 116 div
            LAB*c i31 get 500 div add} bind def
       /Y* {LAB*c i30 get 16 add 116 div} bind def
       /Z* {LAB*c i30 get 16 add 116 div
            LAB*c i32 get 200 div sub} bind def
       XYZc i30 X* DecodeXYZ* 95.05 mul put
       XYZc i31 Y* DecodeXYZ* 100.00 mul put
       XYZc i32 Z* DecodeXYZ* 108.90 mul put
       il 0 eq {%il=0
                XYZc0 i30 XYZc i30 get put
                XYZc0 i31 XYZc i31 get put
                XYZc0 i32 XYZc i32 get put
               } if %il=0
       } for %i=0,15
       

0 1 15 {/i exch def
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*sa i30 LAB*c i30 get put
        /l*CIE LAB*c 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*sa i31 LAB*c i31 get A*N sub a*s sub put
        LAB*sa i32 LAB*c i32 get B*N sub b*s sub put
       } for %i=0,15 
        
0 1 15 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i31 get 500 div add} bind def
       /Y*sa {LAB*sa i30 get 16 add 116 div} bind def
       /Z*sa {LAB*sa i30 get 16 add 116 div
              LAB*sa i32 get 200 div sub} bind def
       XYZsa i30 X*sa DecodeXYZ*  95.05 mul put
       XYZsa i31 Y*sa DecodeXYZ* 100.00 mul put
       XYZsa i32 Z*sa DecodeXYZ* 108.90 mul put
      } for %i=0,15

0 1 15 {/i exch def %i=0,15
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         Xrcr089 i XYZc0 i30 get put
         Yrcr089 i XYZc0 i31 get put
         Zrcr089 i XYZc0 i32 get put
       } for %i=0,15

0 1 15 {/i exch def %i=0,15
        Yrcrn089 i Yrcr089  i get Ynref add
                   Yrcr089 15 get Ynref add div 88.59 mul put
        /YQ Yrcrn089 i get YLWD65100 div def
        YQ 0 lt {/YQ 0.00000001 def} if
        Lrcrn089 i YQ 0.008856 lt {903.3 YQ mul}
                                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       } for %i=0,15
       
%standard difference
0 1 0 setrgbcolor
/deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto (delta ) nshow (L*) kshow (=) nshow
deltaL cvsshow1
(; ) nshow (L*) kshow (N) nishow (=) nshow LrefNi il get cvi001
newpath

il 0 eq {%il=0
         x00 1800 add y00 deltaL 400 mul add 150 add moveto
         (start and linearized output; ) showen
         (Start\255 und linearisierte Ausgabe; ) showde
         (Y) kshow (N) nishow (=0) nshow
        } if %il=0

newpath      
iout 2 ge {%iout>=2
           0 1 14 {/i exch def %i=1,14
                   /r15 i 15 div def
                   r15 dup dup setrgbcolor i 14 eq {0 setgray} if
                   /deltaL Lrcrn089 15 get Lrcrn089 0 get sub 15 div def
                   x00 i 200 mul add
                   y00 deltaL 400 mul add
                   050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
                  } for %i=1,14
           il 0 ne {%il#0
                    0 setgray
                    x00 3050 add
                    y00 deltaL 400 mul add 250 sub moveto
                    (linearized output) showen
                    (linearisierte Ausgabe) showde
                   } if %il#0
        } if %iout>=2

1 0 0 setrgbcolor
/deltaL 1 def
x00 y00 deltaL 400 mul add moveto 3000 0 rlineto stroke
0 setgray
x00 3050 add y00 deltaL 400 mul add 050 sub moveto 
%200 /Symbol FS (D) show
(delta ) nshow (L*) kshow
(=) nshow deltaL cvsshow1 
x00 3050 add y00 deltaL 400 mul add 250 sub moveto
(=Threshold) nshowen (=Schwelle) nshowde 

newpath
0 1 14 {/i exch def %i=1,14
        /r15 i 15 div def
        r15 dup dup setrgbcolor i 14 eq {0 setgray} if
        x00 i 200 mul add
        y00 Lrcrn089 i 1 add get Lrcrn089 i get sub 400 mul add
        050 0 360 arc  i 13 le {fill} {stroke} ifelse %horizontal
       } for %i=1,14

       il 0 ne {%il#0
                /deltaL Lrcrn089 15 get Lrcrn089 14 get sub def
                0 setgray
                x00 3050 add
                y00 deltaL 400 mul add 150 sub moveto
                (start output; ) showen
                (Start\255Ausgabe; ) showde
                (Y) kshow (N) nishow 
                iout 0 eq iout 2 eq or {(=40) nshow}
                                       {(=2,5) nshow} ifelse
               } if %il#0

} for %il=0,x
       
showpage
grestore

      } for %iout=0,3

%} for %ISYSTEM=0,1

%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 020 MM translate 12 /Times-ISOL1 FS -9 MM -7 MM  moveto ( ) show
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 28

%line 499
%!PS-Adobe-3.0 EPSF-3.0 OG281-8,
%%BoundingBox: 70 90 226 206

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def
%%EndProlog
gsave

8 /Times-Roman FS
72 83 moveto
%!2     (OG281-8,) show

72 90 translate

%! 0.01 MM 0.01 MM scale
%! 15 setlinewidth
%! 0 0  moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
%! closepath stroke

grestore

showpage
%%Trailer

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 080 MM add 008 MM translate %80 MM Breite von TestStreifen
  10 /Times-ISOL1 FS  53 MM 1 MM moveto () show 1 1 scale -77 21 MM sub -91 translate
%%BeginDocument: Bild 29 Teststreifen Ueberlaenge

%line 509

%%EndDocument
EndEPSF grestore gsave

BeginEPSF
-0.0 MM -0.0 MM translate %xy-Verschiebung Rechteckrahmen nach innen%

%%BeginDocument: Bild 30 %Rechteckrahmen

%line 519
%!PS-Adobe-3.0 EPSF-3.0 Frame arround with Internet text OG28 20110301
%%BoundingBox: 0 0 598 845

%%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
/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
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 0 def /lanind2 0 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 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
/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

/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
/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
               }
               {/i*ptrsc 0 def} ifelse
gsave

/xchartg where {pop /xchart xchartg def} {/xchart 0 def} ifelse
/scountg where {pop /scount scountg def} {/scount 1 def} ifelse

%xchart 0 eq  {%beg if xchart=0

0 setgray

0.15 MM setlinewidth

/x 20 array def
/y 20 array def
/d 20 array def

/x [000 296 296 000  002 294 294 002  005 291 291 005 %speziell
    006 290 290 006  008 288 288 008 ] def
/y [000 000 210 210  002 002 208 208  005 005 205 205 %speziell
    006 006 204 204  008 008 202 202 ] def 
/d [060 017 -60 -17  058 015 -58 -15  056 013 -56 -13
    054 011 -54 -11  052 009 -52 -09 ] def

/xlu 017 MM def /ylu 017 MM def
/xro 279 MM def /yro 193 MM def
/xlo 017 MM def /ylo 193 MM def
/xru 279 MM def /yru 017 MM def

xlu 8 MM sub ylu moveto  16 MM 0 rlineto stroke
xlu ylu 8 MM sub moveto 0  16 MM rlineto stroke
xro 8 MM add yro moveto -16 MM 0 rlineto stroke
xro yro 8 MM add moveto 0 -16 MM rlineto stroke

xru 8 MM sub yru moveto  16 MM 0 rlineto stroke
xru yru 8 MM sub moveto 0  16 MM rlineto stroke
xlo 8 MM add ylo moveto -16 MM 0 rlineto stroke
xlo ylo 8 MM add moveto 0 -16 MM rlineto stroke

1 2 7 {/i exch def %Zentrierkreise
xlu ylu i MM 0 360 arc stroke
xro yro i MM 0 360 arc stroke
xru yru i MM 0 360 arc stroke
xlo ylo i MM 0 360 arc stroke
      } for %i

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse

0 setgray        
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke

i 16 eq {6 /Times-ISOL1 FS
         /x00 67 def /xdif 32 def /y0o 202.3 def /y0u 6.3 def  
         /x0l 6.1 def /x0r 288 def /y00 22 def /ydif 32 def
         x00 xdif 0 mul add MM y0o MM moveto (V) show
         x00 xdif 0 mul add MM y0u MM moveto (C) show
         x00 xdif 1 mul add MM y0o MM moveto (L) show
         x00 xdif 1 mul add MM y0u MM moveto (M) show
         x00 xdif 2 mul add MM y0o MM moveto (O) show
         x00 xdif 2 mul add MM y0u MM moveto (Y) show
         x00 xdif 3 mul add MM y0o MM moveto (Y) show
         x00 xdif 3 mul add MM y0u MM moveto (O) show
         x00 xdif 4 mul add MM y0o MM moveto (M) show
         x00 xdif 4 mul add MM y0u MM moveto (L) show
         x00 xdif 5 mul add MM y0o MM moveto (C) show
         x00 xdif 5 mul add MM y0u MM moveto (V) show

         x0l MM y00 ydif 0 mul add MM moveto (V) show
         x0r MM y00 ydif 0 mul add MM moveto (C) show
         x0l MM y00 ydif 1 mul add MM moveto (L) show
         x0r MM y00 ydif 1 mul add MM moveto (M) show
         x0l MM y00 ydif 2 mul add MM moveto (O) show
         x0r MM y00 ydif 2 mul add MM moveto (Y) show
         x0l MM y00 ydif 3 mul add MM moveto (Y) show
         x0r MM y00 ydif 3 mul add MM moveto (O) show
         x0l MM y00 ydif 4 mul add MM moveto (M) show
         x0r MM y00 ydif 4 mul add MM moveto (L) show
         x0l MM y00 ydif 5 mul add MM moveto (C) show
         x0r MM y00 ydif 5 mul add MM moveto (V) show
        } if

       } for %i=0,16

0 1 10 {/j0 exch def /j1 j0 1 add def %j0
 
         j0 0 eq {tzccmy0* setcmykcolor} if
         j0 1 eq {0 setgray} if
         j0 2 eq {tzmcmy0* setcmykcolor} if
         j0 3 eq {0 setgray} if
         j0 4 eq {tzycmy0* setcmykcolor} if
         j0 5 eq {0 setgray} if
         j0 6 eq {tzocmy0* setcmykcolor} if
         j0 7 eq {0 setgray} if
         j0 8 eq {tzlcmy0* setcmykcolor} if
         j0 9 eq {0 setgray} if
         j0 10 eq {tzvcmy0* setcmykcolor} if

12 4 16 {/i exch def /i0 i def %i=0,16
%0 4 16 {/i exch def /i0 i def %i=0,16
        /i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def

i 16 eq {0.30 MM setlinewidth} {0.15 MM setlinewidth} ifelse         

x i0 get d i0 get add 16 j0 mul add MM y i0 get MM moveto
x i0 get d i0 get add 16 j1 mul add MM y i0 get MM lineto stroke

x i1 get MM y i1 get d i1 get add 16 j0 mul add MM moveto
x i1 get MM y i1 get d i1 get add 16 j1 mul add MM lineto stroke

x i2 get d i2 get add 16 j0 mul sub MM y i2 get MM moveto
x i2 get d i2 get add 16 j1 mul sub MM y i2 get MM lineto stroke

x i3 get MM y i3 get d i3 get add 16 j0 mul sub MM moveto
x i3 get MM y i3 get d i3 get add 16 j1 mul sub MM lineto stroke

       } for %i=0,16

       } for %j0

0.15 MM setlinewidth
/s 7 MM def /s1 8 MM def /s5 36 MM def
16 1 20 {/j exch def /j0 j 16 sub def %j=16,20
         /ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def

0 1 3 {/ij exch def %ij=0,3

 ij 0 eq {/ix0 xlu  8 MM add j0 7 MM mul add def /iy0 ylu 8 MM sub def} if
 ij 1 eq {/ix0 xru 43 MM sub j0 7 MM mul add def /iy0 yru 8 MM sub def} if
 ij 2 eq {/ix0 xlo  8 MM add j0 7 MM mul add def /iy0 ylo 1 MM add def} if
 ij 3 eq {/ix0 xro 43 MM sub j0 7 MM mul add def /iy0 yro 1 MM add def} if

i*ptrsc 0 eq i*ptrsc 2 eq or {%i*ptrsc=0,2 cmy0* setcmykcolor
              j 16 eq {tzan j get dup dup 0 setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              tzan j get dup dup 0 setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=0,2
             
i*ptrsc 1 eq i*ptrsc 3 eq or {%i*ptrsc=1,3 www* setrgbcolor
              j 16 eq {1 tzan j get 1 sub dup dup setrgbcolor %N
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub dup dup setrgbcolor %N
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=1,3
             
i*ptrsc 4 eq i*ptrsc 5 eq or {%i*ptrsc=4,5
  [/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

 j 16 eq {tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
          tznLAB* 0 get tzwLAB* 0 get tznLAB* 0 get sub 0.25 j0 mul mul add
          tznLAB* 1 get tzwLAB* 1 get tznLAB* 1 get sub 0.25 j0 mul mul add
          tznLAB* 2 get tzwLAB* 2 get tznLAB* 2 get sub 0.25 j0 mul mul add
          setcolor %N
          ix0 iy0 s s  rec fill
             } if %i*ptrsc=4,5

i*ptrsc 6 eq {%i*ptrsc=6 000n* setcmykcolor
              j 16 eq {0 0 0 tzan j get setcmykcolor
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              0 0 0 tzan j get setcmykcolor
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=6

i*ptrsc 7 eq {%i*ptrsc=7 w* setgray
              j 16 eq {1 tzan j get sub setgray
                       ix0 0.5 MM sub iy0 0.5 MM sub s5 s1 rec fill} if
              1 tzan j get sub setgray
              ix0 iy0 s s  rec fill
             } if %i*ptrsc=7

      } for %ij=0,3

        } for %j=16,20
                                                      
0 setgray
018 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 008.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 006.2 MM moveto 6 /Times-Roman FS (-6) show

018 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
018 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

276 MM 202.2 MM moveto 6 /Times-Roman FS (-8) show
276 MM 204.2 MM moveto 6 /Times-Roman FS (-6) show

0 setgray
12 /Times-ISOL1 FS
61 MM 13 MM  moveto
(TUB\255Pr\374fvorlage OG28; ) showde
(TUB\255test chart OG28; ) showen
12 /TimesI-ISOL1 FS
(L*) show
12 /Times-ISOL1 FS
(\255Differenz von 16 Graustufen) showde
( difference of 16 grey samples) showen

(, Page ) showen
(, Seite ) showde
xchart 1 add cvishow (/) show xchart20m 1 add cvishow

61 MM 09 MM  moveto
12 /Times-ISOL1 FS
(Stufungs\255\304nderung; 2 Reflektionen Lr=2,5% und 40%) showde
(Change of spacing by 2 reflections Lr=2,5% and 40%) showen
12 /TimesI-ISOL1 FS
(, sRGB) show
12 /Times-ISOL1 FS
(\255Display) showde
( display) showen

186 MM 13 MM moveto
12 /Times-ISOL1 FS
(    input: ) showen
(Eingabe: ) showde
12 /TimesI-ISOL1 FS
(rgb*) show
-2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto
12 /TimesI-ISOL1 FS
( setrgbcolor) show

12 /Times-ISOL1 FS
186 MM 9 MM moveto
(    output: ) showen
(Ausgabe: ) showde

%12 /Times-ISOL1 FS
%( = ) show
%12 /TimesI-ISOL1 FS (f) show
%0 -2 rmoveto 8 /Times-ISOL1 FS (6) show 0 2 rmoveto
%12 /TimesI-ISOL1 FS
%( \050rgb) show
%-2 -2 rmoveto 8 /Times-ISOL1 FS (d) show 0 2 rmoveto
%12 /TimesI-ISOL1 FS
%(\051) show

LSC$ (N) eq {%LSC$=N
12 /Times-ISOL1 FS

%xchart 1 le {
              (no change) showen
              (keine \304nderung) showde
%            }
%            {12 /TimesI-ISOL1 FS (->cmy0 setcmykcolor) show
%             12 /Times-ISOL1 FS
%            } ifelse

             } if %LSC$=N

%1 setgray %start white and unvisible
LSC$ (S) eq {
(Startup (S) data dependend) show
            } if
                 
LSC$ (F) eq {
12 /Times-Italic FS
             i*ptrsc 0 eq {(cmy0* / 000n* setcmykcolor) show} if
             i*ptrsc 1 eq {(olv* setrgbcolor / w* setgray) show} if
             i*ptrsc 2 eq {(cmy0* / nnn0* setcmykcolor) show} if
             i*ptrsc 3 eq {(olv* / www* setrgbcolor) show} if
             i*ptrsc 4 eq {(lab* setcolor) show} if
             i*ptrsc 5 eq {(LAB* setcolor) show} if
             i*ptrsc 6 eq {(000n* setcmykcolor) show} if
             i*ptrsc 7 eq {(w* setgray) show} if
            } if
%0 setgray %end white and unvisible

12 /Times-ISOL1 FS

 62 MM 198.5 MM  moveto
(http://130.149.60.45/~farbmetrik/OG28/OG28L) show
(0) show
LSC$ show LEX$ show

%1 setgray %start white and unvisible
(; ) show
LSC$ (N) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
           } if
LSC$ (C) eq {
(Start\255Ausgabe) showde
(start output) showen
(start output) showes
(start output) showfr
(start output) showit
(start output) showjp
(start output) showm
           } if
LSC$ (F) eq {
(Linearisierte\255Ausgabe) showde
(linearized output) showen
(linearized output) showes
(linearized output) showfr
(linearized output) showit
(linearized output) showjp
(linearized output) showm
           } if

 62 MM 194 MM  moveto
LSC$ (N) eq LSC$ (C) eq or {
(N: Keine Ausgabe\255Linearisierung (OL) in Datei (F), Startup (S), Ger\344t (D)) showde
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showen
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showes
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showfr
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showit
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showjp
(N: No Output Linearization (OL) data in File (F), Startup (S) or Device (D)) showm
           }
           {LSC$ show (: ) show
(Ausgabe\255Linearisierung (OL\255Daten) ) showde
(Output Linearization (OL) data ) showen
(Output Linearization (OL) data ) showes
(Output Linearization (OL) data ) showfr
(Output Linearization (OL) data ) showit
(Output Linearization (OL) data ) showjp
(Output Linearization (OL) data ) showm
(OG28/OG28L) show
LSS$ show LSX$ show (0) show
LSC$ show LEY$ show
          } ifelse
LSC$ (F) eq {
( in der Datei (F)) showde
( in File (F)) showen
( in File (F)) showes
( in File (F)) showfr
( in File (F)) showit
( in File (F)) showjp
( in File (F)) showm
           } if
LSC$ (S) eq {
( im Distiller Startup (S) Directory) showde
( in Distiller Startup (S) Directory) showen
( in Distiller Startup (S) Directory) showes
( in Distiller Startup (S) Directory) showfr
( in Distiller Startup (S) Directory) showit
( in Distiller Startup (S) Directory) showjp
( in Distiller Startup (S) Directory) showm
           } if
LSC$ (D) eq {
( in PostScript Device (D)) showde
( in PostScript Device (D)) showen
( in PostScript Device (D)) showes
( in PostScript Device (D)) showfr
( in PostScript Device (D)) showit
( in PostScript Device (D)) showjp
( in PostScript Device (D)) showm
           } if
LSC$ (T) eq {
( von Distiller Startup (S) Directory) showde
( of Distiller Startup (S) Directory) showen
( of Distiller Startup (S) Directory) showes
( of Distiller Startup (S) Directory) showfr
( of Distiller Startup (S) Directory) showit
( of Distiller Startup (S) Directory) showjp
( of Distiller Startup (S) Directory) showm
           } if
LSC$ (E) eq {
( von PostScript Device (D)) showde
( of PostScript Device (D)) showen
( of PostScript Device (D)) showes
( of PostScript Device (D)) showfr
( of PostScript Device (D)) showit
( of PostScript Device (D)) showjp
( of PostScript Device (D)) showm
           } if
%0 setgray %end white and unvisible

 16 MM 185 MM moveto
-90 rotate
(Siehe Original/Kopie: ) showde
(See original or copy: ) showen
(http://web.me.com/klaus.richter/OG28/OG28L) show
(0) show
LSC$ show LEX$ show
90 rotate

 12 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(Technical information: ) showen
(http://www.ps.bam.de) show
( or ) showen ( oder ) showde
(http://130.149.60.45/~farbmetrik) show
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20110301\255OG28/OG28L) showde
(TUB registration: 20110301\255OG28/OG28L) showen
(0) show
LSC$ show LEX$ show
90 rotate

281 MM 74 MM moveto
-90 rotate
(TUB\255Material: Code=rha4ta) showde
(TUB material: code=rha4ta) showen
90 rotate

277 MM 185 MM moveto
-90 rotate
/cvishow {cvi 6 string cvs show} def
/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def

( Anwendung f\374r Messung von Drucker- oder Monitorsystemen) showde
( application for measurement of printer or monitor systems) showen
( application for measurement of printer or monitor systems) showes
( application for measurement of printer or monitor systems) showfr
( application for measurement of printer or monitor systems) showit
( application for measurement of printer or monitor systems) showjp
( application for measurement of printer or monitor systems) showm

IMES 1 eq LSC$ (N) ne and { %IMES=1
             (, Yr=) show Yre cvsshow1 (, XYZ) show
          } if %IMES=1
90 rotate

/i0 8 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
0.30 MM setlinewidth
0 setgray
x i0 get MM y i0 get MM moveto x i1 get MM y i1 get MM lineto
x i2 get MM y i2 get MM lineto x i3 get MM y i3 get MM lineto
x i0 get MM y i0 get MM lineto stroke


%} if %end if xchart=0

/xlu1 013 MM def /ylu1 010 MM def
/xro1 283 MM def /yro1 200 MM def
/xlo1 013 MM def /ylo1 200 MM def
/xru1 283 MM def /yru1 010 MM def

xlu1 4 MM sub ylu1 moveto  8 MM 0 rlineto stroke
xlu1 ylu1 4 MM sub moveto 0  8 MM rlineto stroke
xro1 4 MM add yro1 moveto -8 MM 0 rlineto stroke
xro1 yro1 4 MM add moveto 0 -8 MM rlineto stroke

xru1 4 MM sub yru1 moveto  8 MM 0 rlineto stroke
xru1 yru1 4 MM sub moveto 0  8 MM rlineto stroke
xlo1 4 MM add ylo1 moveto -8 MM 0 rlineto stroke
xlo1 ylo1 4 MM add moveto 0 -8 MM rlineto stroke


%} for %output with xchart end
%} for %output with colorm end
%} for %output with xcolor end
%} for %output with lanind end

%%Trailer

%%EndDocument
EndEPSF grestore gsave
                                                        
showpage
grestore

} for %end for xchartg=xchartg1,xchartg2
%} for %end for pcountg=pcountg1,pcount2g
%} for %end for scountg=scountg1,scount2g

%%Trailer