%!PS-Adobe-3.0 EPSF-3.0 KE88L00XX.PS 20100601 
%%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: www.ps.bam.de/KE88/KE88.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:2010060112000)
  /ModDate (D:2010060112000)
/DOCINFO pdfmark

[ /View [ /Fit ]
/DOCVIEW pdfmark

%BEG KE88/OUTLIN10.PS Output Linearization (OL) 20090901
%IDENTICAL TO KE88/OUTLIN11.PS
%Early Binding: needed for colour transfer
/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)
 /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 (FRS06)
%/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 (NRS18)
%/ISOU*ioG 5 def %output dto.
%/ISIN*ioG 6 def %input  for Standard Reflective System (SRS18)
%/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 /ISIO*ioG 0 def /ISRL*ioG 0 def % for io-System, only once
 /auszg 8 def /halfg 0 def /ausz 8 def /half 0 def /VisTol*ioG 1.00 def
%END KE88/OUTLIN10.PS Output Linearization (OL) 20090901

%BEG KE88/OUTLIN1X.PS Emty 20100701

%END KE88/OUTLIN1X.PS Emty 20100701
                                                                         
/CFilenameS1g                                  %START output of step S1g
(xxx/KE88/KE88L0N) def                         %Link file name for data
/CDateS1g (2009-09-01, Name) def               %Date of calculation, Tester
/CDeviceS1g (unknown ) def                     %Device name
/CMeasS1g (KE88/KE88L0N) 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
 
/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 {285 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/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 

%picturetransfer from standard locations (8 pictures, 5 test charts)
/xpic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0        %x for chartg=0
           0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0        %x for chartg=1
           0.0 0.0 0.0 -25 0.0 0.0 0.0 0.0        %x for chartg=2
           0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0        %x for chartg=3
           0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def   %x for chartg=4
/ypic5458 [0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0        %y for chartg=0
           0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0        %y for chartg=1
           0.0 0.0 0.0 -12 0.0 0.0 0.0 0.0        %y for chartg=2
           0.0 0.0 0.0 -05 0.0 0.0 0.0 0.0        %y for chartg=3
           0.0 0.0 0.0 -20 0.0 0.0 0.0 0.0] def   %y for chartg=4

%BEG 61 lines comment or new PS operators possible

%END 38 lines comment or new PS operators possible

%%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)
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)
      (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)
      (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)
      (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)
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)
      (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)
      (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V)
      (0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (A) (B) (C) (D) (E) (F)
      (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 1 def /lanindg2 1 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

%1 1 1 {/scountg exch def %s=serie, e. g. 1,1,10
%1 1 1 {/pcountg exch def %p=page, e. g. 1,1,250
/xchart10 0 def /xchart20 0 def
%pcountg pcount1g eq {/xchart10 0 def /xchart20  0 def}
%                    {/xchart10 1 def /xchart20  1 def} ifelse
%pcountg pcount2x eq {/xchart10 0 def /xchart20  0 def} if
xchart10 1 xchart20 {/xchartg exch def

%2 MM /Times-Roman FS
%274 MM 82 MM moveto -90 rotate (/KE88/  ) 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
/GEX$ EX$ 6 get def
/GEY$ EY$ 6 get def

/xcha801 xchartg 8 mul 0 add def /xcha803 xchartg 8 mul 1 add def
/xcha805 xchartg 8 mul 2 add def /xcha807 xchartg 8 mul 3 add def
/xcha811 xchartg 8 mul 4 add def /xcha813 xchartg 8 mul 5 add def
/xcha815 xchartg 8 mul 6 add def /xcha817 xchartg 8 mul 7 add 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 KE880-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     (KE880-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 KE880-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     (KE880-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 KE880-3,
%%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     (KE880-3,) 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 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 KE880-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     (KE880-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 KE880-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     (KE880-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 KE880-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     (KE880-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 3 MM sub 020 MM 0 MM add 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 KE880-7N
%%BoundingBox: 70 82 785 580

%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/KE88 /)
  /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:2010070112000)
  /ModDate (D:2010070112000)
/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

/Courier findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/Courier-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

/RGB0 3240 array def %1080*3

/RGB0
[%1000 x rgb*    nr.  pos  1080 colours
 0000 0000 0000 %0000 A01
 0000 0000 0125 %0001 A02
 0000 0000 0250 %0002 A03
 0000 0000 0375 %0003 A04
 0000 0000 0500 %0004 A05
 0000 0000 0625 %0005 A06
 0000 0000 0750 %0006 A07
 0000 0000 0875 %0007 A08
 0000 0000 1000 %0008 A09
 0000 0125 0000 %0009 B01
 0000 0125 0125 %0010 B02
 0000 0125 0250 %0011 B03
 0000 0125 0375 %0012 B04
 0000 0125 0500 %0013 B05
 0000 0125 0625 %0014 B06
 0000 0125 0750 %0015 B07
 0000 0125 0875 %0016 B08
 0000 0125 1000 %0017 B09
 0000 0250 0000 %0018 C01
 0000 0250 0125 %0019 C02
 0000 0250 0250 %0020 C03
 0000 0250 0375 %0021 C04
 0000 0250 0500 %0022 C05
 0000 0250 0625 %0023 C06
 0000 0250 0750 %0024 C07
 0000 0250 0875 %0025 C08
 0000 0250 1000 %0026 C09
 0000 0375 0000 %0027 D01
 0000 0375 0125 %0028 D02
 0000 0375 0250 %0029 D03
 0000 0375 0375 %0030 D04
 0000 0375 0500 %0031 D05
 0000 0375 0625 %0032 D06
 0000 0375 0750 %0033 D07
 0000 0375 0875 %0034 D08
 0000 0375 1000 %0035 D09
 0000 0500 0000 %0036 E01
 0000 0500 0125 %0037 E02
 0000 0500 0250 %0038 E03
 0000 0500 0375 %0039 E04
 0000 0500 0500 %0040 E05
 0000 0500 0625 %0041 E06
 0000 0500 0750 %0042 E07
 0000 0500 0875 %0043 E08
 0000 0500 1000 %0044 E09
 0000 0625 0000 %0045 F01
 0000 0625 0125 %0046 F02
 0000 0625 0250 %0047 F03
 0000 0625 0375 %0048 F04
 0000 0625 0500 %0049 F05
 0000 0625 0625 %0050 F06
 0000 0625 0750 %0051 F07
 0000 0625 0875 %0052 F08
 0000 0625 1000 %0053 F09
 0000 0750 0000 %0054 G01
 0000 0750 0125 %0055 G02
 0000 0750 0250 %0056 G03
 0000 0750 0375 %0057 G04
 0000 0750 0500 %0058 G05
 0000 0750 0625 %0059 G06
 0000 0750 0750 %0060 G07
 0000 0750 0875 %0061 G08
 0000 0750 1000 %0062 G09
 0000 0875 0000 %0063 H01
 0000 0875 0125 %0064 H02
 0000 0875 0250 %0065 H03
 0000 0875 0375 %0066 H04
 0000 0875 0500 %0067 H05
 0000 0875 0625 %0068 H06
 0000 0875 0750 %0069 H07
 0000 0875 0875 %0070 H08
 0000 0875 1000 %0071 H09
 0000 1000 0000 %0072 I01
 0000 1000 0125 %0073 I02
 0000 1000 0250 %0074 I03
 0000 1000 0375 %0075 I04
 0000 1000 0500 %0076 I05
 0000 1000 0625 %0077 I06
 0000 1000 0750 %0078 I07
 0000 1000 0875 %0079 I08
 0000 1000 1000 %0080 I09
 0125 0000 0000 %0081 J01
 0125 0000 0125 %0082 J02
 0125 0000 0250 %0083 J03
 0125 0000 0375 %0084 J04
 0125 0000 0500 %0085 J05
 0125 0000 0625 %0086 J06
 0125 0000 0750 %0087 J07
 0125 0000 0875 %0088 J08
 0125 0000 1000 %0089 J09
 0125 0125 0000 %0090 K01
 0125 0125 0125 %0091 K02
 0125 0125 0250 %0092 K03
 0125 0125 0375 %0093 K04
 0125 0125 0500 %0094 K05
 0125 0125 0625 %0095 K06
 0125 0125 0750 %0096 K07
 0125 0125 0875 %0097 K08
 0125 0125 1000 %0098 K09
 0125 0250 0000 %0099 L01
 0125 0250 0125 %0100 L02
 0125 0250 0250 %0101 L03
 0125 0250 0375 %0102 L04
 0125 0250 0500 %0103 L05
 0125 0250 0625 %0104 L06
 0125 0250 0750 %0105 L07
 0125 0250 0875 %0106 L08
 0125 0250 1000 %0107 L09
 0125 0375 0000 %0108 M01
 0125 0375 0125 %0109 M02
 0125 0375 0250 %0110 M03
 0125 0375 0375 %0111 M04
 0125 0375 0500 %0112 M05
 0125 0375 0625 %0113 M06
 0125 0375 0750 %0114 M07
 0125 0375 0875 %0115 M08
 0125 0375 1000 %0116 M09
 0125 0500 0000 %0117 N01
 0125 0500 0125 %0118 N02
 0125 0500 0250 %0119 N03
 0125 0500 0375 %0120 N04
 0125 0500 0500 %0121 N05
 0125 0500 0625 %0122 N06
 0125 0500 0750 %0123 N07
 0125 0500 0875 %0124 N08
 0125 0500 1000 %0125 N09
 0125 0625 0000 %0126 O01
 0125 0625 0125 %0127 O02
 0125 0625 0250 %0128 O03
 0125 0625 0375 %0129 O04
 0125 0625 0500 %0130 O05
 0125 0625 0625 %0131 O06
 0125 0625 0750 %0132 O07
 0125 0625 0875 %0133 O08
 0125 0625 1000 %0134 O09
 0125 0750 0000 %0135 P01
 0125 0750 0125 %0136 P02
 0125 0750 0250 %0137 P03
 0125 0750 0375 %0138 P04
 0125 0750 0500 %0139 P05
 0125 0750 0625 %0140 P06
 0125 0750 0750 %0141 P07
 0125 0750 0875 %0142 P08
 0125 0750 1000 %0143 P09
 0125 0875 0000 %0144 Q01
 0125 0875 0125 %0145 Q02
 0125 0875 0250 %0146 Q03
 0125 0875 0375 %0147 Q04
 0125 0875 0500 %0148 Q05
 0125 0875 0625 %0149 Q06
 0125 0875 0750 %0150 Q07
 0125 0875 0875 %0151 Q08
 0125 0875 1000 %0152 Q09
 0125 1000 0000 %0153 R01
 0125 1000 0125 %0154 R02
 0125 1000 0250 %0155 R03
 0125 1000 0375 %0156 R04
 0125 1000 0500 %0157 R05
 0125 1000 0625 %0158 R06
 0125 1000 0750 %0159 R07
 0125 1000 0875 %0160 R08
 0125 1000 1000 %0161 R09
 0250 0000 0000 %0162 S01
 0250 0000 0125 %0163 S02
 0250 0000 0250 %0164 S03
 0250 0000 0375 %0165 S04
 0250 0000 0500 %0166 S05
 0250 0000 0625 %0167 S06
 0250 0000 0750 %0168 S07
 0250 0000 0875 %0169 S08
 0250 0000 1000 %0170 S09
 0250 0125 0000 %0171 T01
 0250 0125 0125 %0172 T02
 0250 0125 0250 %0173 T03
 0250 0125 0375 %0174 T04
 0250 0125 0500 %0175 T05
 0250 0125 0625 %0176 T06
 0250 0125 0750 %0177 T07
 0250 0125 0875 %0178 T08
 0250 0125 1000 %0179 T09
 0250 0250 0000 %0180 U01
 0250 0250 0125 %0181 U02
 0250 0250 0250 %0182 U03
 0250 0250 0375 %0183 U04
 0250 0250 0500 %0184 U05
 0250 0250 0625 %0185 U06
 0250 0250 0750 %0186 U07
 0250 0250 0875 %0187 U08
 0250 0250 1000 %0188 U09
 0250 0375 0000 %0189 V01
 0250 0375 0125 %0190 V02
 0250 0375 0250 %0191 V03
 0250 0375 0375 %0192 V04
 0250 0375 0500 %0193 V05
 0250 0375 0625 %0194 V06
 0250 0375 0750 %0195 V07
 0250 0375 0875 %0196 V08
 0250 0375 1000 %0197 V09
 0250 0500 0000 %0198 W01
 0250 0500 0125 %0199 W02
 0250 0500 0250 %0200 W03
 0250 0500 0375 %0201 W04
 0250 0500 0500 %0202 W05
 0250 0500 0625 %0203 W06
 0250 0500 0750 %0204 W07
 0250 0500 0875 %0205 W08
 0250 0500 1000 %0206 W09
 0250 0625 0000 %0207 X01
 0250 0625 0125 %0208 X02
 0250 0625 0250 %0209 X03
 0250 0625 0375 %0210 X04
 0250 0625 0500 %0211 X05
 0250 0625 0625 %0212 X06
 0250 0625 0750 %0213 X07
 0250 0625 0875 %0214 X08
 0250 0625 1000 %0215 X09
 0250 0750 0000 %0216 Y01
 0250 0750 0125 %0217 Y02
 0250 0750 0250 %0218 Y03
 0250 0750 0375 %0219 Y04
 0250 0750 0500 %0220 Y05
 0250 0750 0625 %0221 Y06
 0250 0750 0750 %0222 Y07
 0250 0750 0875 %0223 Y08
 0250 0750 1000 %0224 Y09
 0250 0875 0000 %0225 Z01
 0250 0875 0125 %0226 Z02
 0250 0875 0250 %0227 Z03
 0250 0875 0375 %0228 Z04
 0250 0875 0500 %0229 Z05
 0250 0875 0625 %0230 Z06
 0250 0875 0750 %0231 Z07
 0250 0875 0875 %0232 Z08
 0250 0875 1000 %0233 Z09
 0250 1000 0000 %0234 a01
 0250 1000 0125 %0235 a02
 0250 1000 0250 %0236 a03
 0250 1000 0375 %0237 a04
 0250 1000 0500 %0238 a05
 0250 1000 0625 %0239 a06
 0250 1000 0750 %0240 a07
 0250 1000 0875 %0241 a08
 0250 1000 1000 %0242 a09
 0375 0000 0000 %0243 A10
 0375 0000 0125 %0244 A11
 0375 0000 0250 %0245 A12
 0375 0000 0375 %0246 A13
 0375 0000 0500 %0247 A14
 0375 0000 0625 %0248 A15
 0375 0000 0750 %0249 A16
 0375 0000 0875 %0250 A17
 0375 0000 1000 %0251 A18
 0375 0125 0000 %0252 B10
 0375 0125 0125 %0253 B11
 0375 0125 0250 %0254 B12
 0375 0125 0375 %0255 B13
 0375 0125 0500 %0256 B14
 0375 0125 0625 %0257 B15
 0375 0125 0750 %0258 B16
 0375 0125 0875 %0259 B17
 0375 0125 1000 %0260 B18
 0375 0250 0000 %0261 C10
 0375 0250 0125 %0262 C11
 0375 0250 0250 %0263 C12
 0375 0250 0375 %0264 C13
 0375 0250 0500 %0265 C14
 0375 0250 0625 %0266 C15
 0375 0250 0750 %0267 C16
 0375 0250 0875 %0268 C17
 0375 0250 1000 %0269 C18
 0375 0375 0000 %0270 D10
 0375 0375 0125 %0271 D11
 0375 0375 0250 %0272 D12
 0375 0375 0375 %0273 D13
 0375 0375 0500 %0274 D14
 0375 0375 0625 %0275 D15
 0375 0375 0750 %0276 D16
 0375 0375 0875 %0277 D17
 0375 0375 1000 %0278 D18
 0375 0500 0000 %0279 E10
 0375 0500 0125 %0280 E11
 0375 0500 0250 %0281 E12
 0375 0500 0375 %0282 E13
 0375 0500 0500 %0283 E14
 0375 0500 0625 %0284 E15
 0375 0500 0750 %0285 E16
 0375 0500 0875 %0286 E17
 0375 0500 1000 %0287 E18
 0375 0625 0000 %0288 F10
 0375 0625 0125 %0289 F11
 0375 0625 0250 %0290 F12
 0375 0625 0375 %0291 F13
 0375 0625 0500 %0292 F14
 0375 0625 0625 %0293 F15
 0375 0625 0750 %0294 F16
 0375 0625 0875 %0295 F17
 0375 0625 1000 %0296 F18
 0375 0750 0000 %0297 G10
 0375 0750 0125 %0298 G11
 0375 0750 0250 %0299 G12
 0375 0750 0375 %0300 G13
 0375 0750 0500 %0301 G14
 0375 0750 0625 %0302 G15
 0375 0750 0750 %0303 G16
 0375 0750 0875 %0304 G17
 0375 0750 1000 %0305 G18
 0375 0875 0000 %0306 H10
 0375 0875 0125 %0307 H11
 0375 0875 0250 %0308 H12
 0375 0875 0375 %0309 H13
 0375 0875 0500 %0310 H14
 0375 0875 0625 %0311 H15
 0375 0875 0750 %0312 H16
 0375 0875 0875 %0313 H17
 0375 0875 1000 %0314 H18
 0375 1000 0000 %0315 I10
 0375 1000 0125 %0316 I11
 0375 1000 0250 %0317 I12
 0375 1000 0375 %0318 I13
 0375 1000 0500 %0319 I14
 0375 1000 0625 %0320 I15
 0375 1000 0750 %0321 I16
 0375 1000 0875 %0322 I17
 0375 1000 1000 %0323 I18
 0500 0000 0000 %0324 J10
 0500 0000 0125 %0325 J11
 0500 0000 0250 %0326 J12
 0500 0000 0375 %0327 J13
 0500 0000 0500 %0328 J14
 0500 0000 0625 %0329 J15
 0500 0000 0750 %0330 J16
 0500 0000 0875 %0331 J17
 0500 0000 1000 %0332 J18
 0500 0125 0000 %0333 K10
 0500 0125 0125 %0334 K11
 0500 0125 0250 %0335 K12
 0500 0125 0375 %0336 K13
 0500 0125 0500 %0337 K14
 0500 0125 0625 %0338 K15
 0500 0125 0750 %0339 K16
 0500 0125 0875 %0340 K17
 0500 0125 1000 %0341 K18
 0500 0250 0000 %0342 L10
 0500 0250 0125 %0343 L11
 0500 0250 0250 %0344 L12
 0500 0250 0375 %0345 L13
 0500 0250 0500 %0346 L14
 0500 0250 0625 %0347 L15
 0500 0250 0750 %0348 L16
 0500 0250 0875 %0349 L17
 0500 0250 1000 %0350 L18
 0500 0375 0000 %0351 M10
 0500 0375 0125 %0352 M11
 0500 0375 0250 %0353 M12
 0500 0375 0375 %0354 M13
 0500 0375 0500 %0355 M14
 0500 0375 0625 %0356 M15
 0500 0375 0750 %0357 M16
 0500 0375 0875 %0358 M17
 0500 0375 1000 %0359 M18
 0500 0500 0000 %0360 N10
 0500 0500 0125 %0361 N11
 0500 0500 0250 %0362 N12
 0500 0500 0375 %0363 N13
 0500 0500 0500 %0364 N14
 0500 0500 0625 %0365 N15
 0500 0500 0750 %0366 N16
 0500 0500 0875 %0367 N17
 0500 0500 1000 %0368 N18
 0500 0625 0000 %0369 O10
 0500 0625 0125 %0370 O11
 0500 0625 0250 %0371 O12
 0500 0625 0375 %0372 O13
 0500 0625 0500 %0373 O14
 0500 0625 0625 %0374 O15
 0500 0625 0750 %0375 O16
 0500 0625 0875 %0376 O17
 0500 0625 1000 %0377 O18
 0500 0750 0000 %0378 P10
 0500 0750 0125 %0379 P11
 0500 0750 0250 %0380 P12
 0500 0750 0375 %0381 P13
 0500 0750 0500 %0382 P14
 0500 0750 0625 %0383 P15
 0500 0750 0750 %0384 P16
 0500 0750 0875 %0385 P17
 0500 0750 1000 %0386 P18
 0500 0875 0000 %0387 Q10
 0500 0875 0125 %0388 Q11
 0500 0875 0250 %0389 Q12
 0500 0875 0375 %0390 Q13
 0500 0875 0500 %0391 Q14
 0500 0875 0625 %0392 Q15
 0500 0875 0750 %0393 Q16
 0500 0875 0875 %0394 Q17
 0500 0875 1000 %0395 Q18
 0500 1000 0000 %0396 R10
 0500 1000 0125 %0397 R11
 0500 1000 0250 %0398 R12
 0500 1000 0375 %0399 R13
 0500 1000 0500 %0400 R14
 0500 1000 0625 %0401 R15
 0500 1000 0750 %0402 R16
 0500 1000 0875 %0403 R17
 0500 1000 1000 %0404 R18
 0625 0000 0000 %0405 S10
 0625 0000 0125 %0406 S11
 0625 0000 0250 %0407 S12
 0625 0000 0375 %0408 S13
 0625 0000 0500 %0409 S14
 0625 0000 0625 %0410 S15
 0625 0000 0750 %0411 S16
 0625 0000 0875 %0412 S17
 0625 0000 1000 %0413 S18
 0625 0125 0000 %0414 T10
 0625 0125 0125 %0415 T11
 0625 0125 0250 %0416 T12
 0625 0125 0375 %0417 T13
 0625 0125 0500 %0418 T14
 0625 0125 0625 %0419 T15
 0625 0125 0750 %0420 T16
 0625 0125 0875 %0421 T17
 0625 0125 1000 %0422 T18
 0625 0250 0000 %0423 U10
 0625 0250 0125 %0424 U11
 0625 0250 0250 %0425 U12
 0625 0250 0375 %0426 U13
 0625 0250 0500 %0427 U14
 0625 0250 0625 %0428 U15
 0625 0250 0750 %0429 U16
 0625 0250 0875 %0430 U17
 0625 0250 1000 %0431 U18
 0625 0375 0000 %0432 V10
 0625 0375 0125 %0433 V11
 0625 0375 0250 %0434 V12
 0625 0375 0375 %0435 V13
 0625 0375 0500 %0436 V14
 0625 0375 0625 %0437 V15
 0625 0375 0750 %0438 V16
 0625 0375 0875 %0439 V17
 0625 0375 1000 %0440 V18
 0625 0500 0000 %0441 W10
 0625 0500 0125 %0442 W11
 0625 0500 0250 %0443 W12
 0625 0500 0375 %0444 W13
 0625 0500 0500 %0445 W14
 0625 0500 0625 %0446 W15
 0625 0500 0750 %0447 W16
 0625 0500 0875 %0448 W17
 0625 0500 1000 %0449 W18
 0625 0625 0000 %0450 X10
 0625 0625 0125 %0451 X11
 0625 0625 0250 %0452 X12
 0625 0625 0375 %0453 X13
 0625 0625 0500 %0454 X14
 0625 0625 0625 %0455 X15
 0625 0625 0750 %0456 X16
 0625 0625 0875 %0457 X17
 0625 0625 1000 %0458 X18
 0625 0750 0000 %0459 Y10
 0625 0750 0125 %0460 Y11
 0625 0750 0250 %0461 Y12
 0625 0750 0375 %0462 Y13
 0625 0750 0500 %0463 Y14
 0625 0750 0625 %0464 Y15
 0625 0750 0750 %0465 Y16
 0625 0750 0875 %0466 Y17
 0625 0750 1000 %0467 Y18
 0625 0875 0000 %0468 Z10
 0625 0875 0125 %0469 Z11
 0625 0875 0250 %0470 Z12
 0625 0875 0375 %0471 Z13
 0625 0875 0500 %0472 Z14
 0625 0875 0625 %0473 Z15
 0625 0875 0750 %0474 Z16
 0625 0875 0875 %0475 Z17
 0625 0875 1000 %0476 Z18
 0625 1000 0000 %0477 a10
 0625 1000 0125 %0478 a11
 0625 1000 0250 %0479 a12
 0625 1000 0375 %0480 a13
 0625 1000 0500 %0481 a14
 0625 1000 0625 %0482 a15
 0625 1000 0750 %0483 a16
 0625 1000 0875 %0484 a17
 0625 1000 1000 %0485 a18
 0750 0000 0000 %0486 A19
 0750 0000 0125 %0487 A20
 0750 0000 0250 %0488 A21
 0750 0000 0375 %0489 A22
 0750 0000 0500 %0490 A23
 0750 0000 0625 %0491 A24
 0750 0000 0750 %0492 A25
 0750 0000 0875 %0493 A26
 0750 0000 1000 %0494 A27
 0750 0125 0000 %0495 B19
 0750 0125 0125 %0496 B20
 0750 0125 0250 %0497 B21
 0750 0125 0375 %0498 B22
 0750 0125 0500 %0499 B23
 0750 0125 0625 %0500 B24
 0750 0125 0750 %0501 B25
 0750 0125 0875 %0502 B26
 0750 0125 1000 %0503 B27
 0750 0250 0000 %0504 C19
 0750 0250 0125 %0505 C20
 0750 0250 0250 %0506 C21
 0750 0250 0375 %0507 C22
 0750 0250 0500 %0508 C23
 0750 0250 0625 %0509 C24
 0750 0250 0750 %0510 C25
 0750 0250 0875 %0511 C26
 0750 0250 1000 %0512 C27
 0750 0375 0000 %0513 D19
 0750 0375 0125 %0514 D20
 0750 0375 0250 %0515 D21
 0750 0375 0375 %0516 D22
 0750 0375 0500 %0517 D23
 0750 0375 0625 %0518 D24
 0750 0375 0750 %0519 D25
 0750 0375 0875 %0520 D26
 0750 0375 1000 %0521 D27
 0750 0500 0000 %0522 E19
 0750 0500 0125 %0523 E20
 0750 0500 0250 %0524 E21
 0750 0500 0375 %0525 E22
 0750 0500 0500 %0526 E23
 0750 0500 0625 %0527 E24
 0750 0500 0750 %0528 E25
 0750 0500 0875 %0529 E26
 0750 0500 1000 %0530 E27
 0750 0625 0000 %0531 F19
 0750 0625 0125 %0532 F20
 0750 0625 0250 %0533 F21
 0750 0625 0375 %0534 F22
 0750 0625 0500 %0535 F23
 0750 0625 0625 %0536 F24
 0750 0625 0750 %0537 F25
 0750 0625 0875 %0538 F26
 0750 0625 1000 %0539 F27
 0750 0750 0000 %0540 G19
 0750 0750 0125 %0541 G20
 0750 0750 0250 %0542 G21
 0750 0750 0375 %0543 G22
 0750 0750 0500 %0544 G23
 0750 0750 0625 %0545 G24
 0750 0750 0750 %0546 G25
 0750 0750 0875 %0547 G26
 0750 0750 1000 %0548 G27
 0750 0875 0000 %0549 H19
 0750 0875 0125 %0550 H20
 0750 0875 0250 %0551 H21
 0750 0875 0375 %0552 H22
 0750 0875 0500 %0553 H23
 0750 0875 0625 %0554 H24
 0750 0875 0750 %0555 H25
 0750 0875 0875 %0556 H26
 0750 0875 1000 %0557 H27
 0750 1000 0000 %0558 I19
 0750 1000 0125 %0559 I20
 0750 1000 0250 %0560 I21
 0750 1000 0375 %0561 I22
 0750 1000 0500 %0562 I23
 0750 1000 0625 %0563 I24
 0750 1000 0750 %0564 I25
 0750 1000 0875 %0565 I26
 0750 1000 1000 %0566 I27
 0875 0000 0000 %0567 J19
 0875 0000 0125 %0568 J20
 0875 0000 0250 %0569 J21
 0875 0000 0375 %0570 J22
 0875 0000 0500 %0571 J23
 0875 0000 0625 %0572 J24
 0875 0000 0750 %0573 J25
 0875 0000 0875 %0574 J26
 0875 0000 1000 %0575 J27
 0875 0125 0000 %0576 K19
 0875 0125 0125 %0577 K20
 0875 0125 0250 %0578 K21
 0875 0125 0375 %0579 K22
 0875 0125 0500 %0580 K23
 0875 0125 0625 %0581 K24
 0875 0125 0750 %0582 K25
 0875 0125 0875 %0583 K26
 0875 0125 1000 %0584 K27
 0875 0250 0000 %0585 L19
 0875 0250 0125 %0586 L20
 0875 0250 0250 %0587 L21
 0875 0250 0375 %0588 L22
 0875 0250 0500 %0589 L23
 0875 0250 0625 %0590 L24
 0875 0250 0750 %0591 L25
 0875 0250 0875 %0592 L26
 0875 0250 1000 %0593 L27
 0875 0375 0000 %0594 M19
 0875 0375 0125 %0595 M20
 0875 0375 0250 %0596 M21
 0875 0375 0375 %0597 M22
 0875 0375 0500 %0598 M23
 0875 0375 0625 %0599 M24
 0875 0375 0750 %0600 M25
 0875 0375 0875 %0601 M26
 0875 0375 1000 %0602 M27
 0875 0500 0000 %0603 N19
 0875 0500 0125 %0604 N20
 0875 0500 0250 %0605 N21
 0875 0500 0375 %0606 N22
 0875 0500 0500 %0607 N23
 0875 0500 0625 %0608 N24
 0875 0500 0750 %0609 N25
 0875 0500 0875 %0610 N26
 0875 0500 1000 %0611 N27
 0875 0625 0000 %0612 O19
 0875 0625 0125 %0613 O20
 0875 0625 0250 %0614 O21
 0875 0625 0375 %0615 O22
 0875 0625 0500 %0616 O23
 0875 0625 0625 %0617 O24
 0875 0625 0750 %0618 O25
 0875 0625 0875 %0619 O26
 0875 0625 1000 %0620 O27
 0875 0750 0000 %0621 P19
 0875 0750 0125 %0622 P20
 0875 0750 0250 %0623 P21
 0875 0750 0375 %0624 P22
 0875 0750 0500 %0625 P23
 0875 0750 0625 %0626 P24
 0875 0750 0750 %0627 P25
 0875 0750 0875 %0628 P26
 0875 0750 1000 %0629 P27
 0875 0875 0000 %0630 Q19
 0875 0875 0125 %0631 Q20
 0875 0875 0250 %0632 Q21
 0875 0875 0375 %0633 Q22
 0875 0875 0500 %0634 Q23
 0875 0875 0625 %0635 Q24
 0875 0875 0750 %0636 Q25
 0875 0875 0875 %0637 Q26
 0875 0875 1000 %0638 Q27
 0875 1000 0000 %0639 R19
 0875 1000 0125 %0640 R20
 0875 1000 0250 %0641 R21
 0875 1000 0375 %0642 R22
 0875 1000 0500 %0643 R23
 0875 1000 0625 %0644 R24
 0875 1000 0750 %0645 R25
 0875 1000 0875 %0646 R26
 0875 1000 1000 %0647 R27
 1000 0000 0000 %0648 S19
 1000 0000 0125 %0649 S20
 1000 0000 0250 %0650 S21
 1000 0000 0375 %0651 S22
 1000 0000 0500 %0652 S23
 1000 0000 0625 %0653 S24
 1000 0000 0750 %0654 S25
 1000 0000 0875 %0655 S26
 1000 0000 1000 %0656 S27
 1000 0125 0000 %0657 T19
 1000 0125 0125 %0658 T20
 1000 0125 0250 %0659 T21
 1000 0125 0375 %0660 T22
 1000 0125 0500 %0661 T23
 1000 0125 0625 %0662 T24
 1000 0125 0750 %0663 T25
 1000 0125 0875 %0664 T26
 1000 0125 1000 %0665 T27
 1000 0250 0000 %0666 U19
 1000 0250 0125 %0667 U20
 1000 0250 0250 %0668 U21
 1000 0250 0375 %0669 U22
 1000 0250 0500 %0670 U23
 1000 0250 0625 %0671 U24
 1000 0250 0750 %0672 U25
 1000 0250 0875 %0673 U26
 1000 0250 1000 %0674 U27
 1000 0375 0000 %0675 V19
 1000 0375 0125 %0676 V20
 1000 0375 0250 %0677 V21
 1000 0375 0375 %0678 V22
 1000 0375 0500 %0679 V23
 1000 0375 0625 %0680 V24
 1000 0375 0750 %0681 V25
 1000 0375 0875 %0682 V26
 1000 0375 1000 %0683 V27
 1000 0500 0000 %0684 W19
 1000 0500 0125 %0685 W20
 1000 0500 0250 %0686 W21
 1000 0500 0375 %0687 W22
 1000 0500 0500 %0688 W23
 1000 0500 0625 %0689 W24
 1000 0500 0750 %0690 W25
 1000 0500 0875 %0691 W26
 1000 0500 1000 %0692 W27
 1000 0625 0000 %0693 X19
 1000 0625 0125 %0694 X20
 1000 0625 0250 %0695 X21
 1000 0625 0375 %0696 X22
 1000 0625 0500 %0697 X23
 1000 0625 0625 %0698 X24
 1000 0625 0750 %0699 X25
 1000 0625 0875 %0700 X26
 1000 0625 1000 %0701 X27
 1000 0750 0000 %0702 Y19
 1000 0750 0125 %0703 Y20
 1000 0750 0250 %0704 Y21
 1000 0750 0375 %0705 Y22
 1000 0750 0500 %0706 Y23
 1000 0750 0625 %0707 Y24
 1000 0750 0750 %0708 Y25
 1000 0750 0875 %0709 Y26
 1000 0750 1000 %0710 Y27
 1000 0875 0000 %0711 Z19
 1000 0875 0125 %0712 Z20
 1000 0875 0250 %0713 Z21
 1000 0875 0375 %0714 Z22
 1000 0875 0500 %0715 Z23
 1000 0875 0625 %0716 Z24
 1000 0875 0750 %0717 Z25
 1000 0875 0875 %0718 Z26
 1000 0875 1000 %0719 Z27
 1000 1000 0000 %0720 a19
 1000 1000 0125 %0721 a20
 1000 1000 0250 %0722 a21
 1000 1000 0375 %0723 a22
 1000 1000 0500 %0724 a23
 1000 1000 0625 %0725 a24
 1000 1000 0750 %0726 a25
 1000 1000 0875 %0727 a26
 1000 1000 1000 %0728 a27
 1000 1000 1000 %0729 b01
 0875 1000 1000 %0730 b02
 0750 1000 1000 %0731 b03
 0625 1000 1000 %0732 b04
 0500 1000 1000 %0733 b05
 0375 1000 1000 %0734 b06
 0250 1000 1000 %0735 b07
 0125 1000 1000 %0736 b08
 0000 1000 1000 %0737 b09
 1000 0875 0875 %0738 c01
 0875 0875 0875 %0739 c02
 0750 0875 0875 %0740 c03
 0625 0875 0875 %0741 c04
 0500 0875 0875 %0742 c05
 0375 0875 0875 %0743 c06
 0250 0875 0875 %0744 c07
 0125 0875 0875 %0745 c08
 0000 0875 0875 %0746 c09
 1000 0750 0750 %0747 d01
 0875 0750 0750 %0748 d02
 0750 0750 0750 %0749 d03
 0625 0750 0750 %0750 d04
 0500 0750 0750 %0751 d05
 0375 0750 0750 %0752 d06
 0250 0750 0750 %0753 d07
 0125 0750 0750 %0754 d08
 0000 0750 0750 %0755 d09
 1000 0625 0625 %0756 e01
 0875 0625 0625 %0757 e02
 0750 0625 0625 %0758 e03
 0625 0625 0625 %0759 e04
 0500 0625 0625 %0760 e05
 0375 0625 0625 %0761 e06
 0250 0625 0625 %0762 e07
 0125 0625 0625 %0763 e08
 0000 0625 0625 %0764 e09
 1000 0500 0500 %0765 f01
 0875 0500 0500 %0766 f02
 0750 0500 0500 %0767 f03
 0625 0500 0500 %0768 f04
 0500 0500 0500 %0769 f05
 0375 0500 0500 %0770 f06
 0250 0500 0500 %0771 f07
 0125 0500 0500 %0772 f08
 0000 0500 0500 %0773 f09
 1000 0375 0375 %0774 g01
 0875 0375 0375 %0775 g02
 0750 0375 0375 %0776 g03
 0625 0375 0375 %0777 g04
 0500 0375 0375 %0778 g05
 0375 0375 0375 %0779 g06
 0250 0375 0375 %0780 g07
 0125 0375 0375 %0781 g08
 0000 0375 0375 %0782 g09
 1000 0250 0250 %0783 h01
 0875 0250 0250 %0784 h02
 0750 0250 0250 %0785 h03
 0625 0250 0250 %0786 h04
 0500 0250 0250 %0787 h05
 0375 0250 0250 %0788 h06
 0250 0250 0250 %0789 h07
 0125 0250 0250 %0790 h08
 0000 0250 0250 %0791 h09
 1000 0125 0125 %0792 i01
 0875 0125 0125 %0793 i02
 0750 0125 0125 %0794 i03
 0625 0125 0125 %0795 i04
 0500 0125 0125 %0796 i05
 0375 0125 0125 %0797 i06
 0250 0125 0125 %0798 i07
 0125 0125 0125 %0799 i08
 0000 0125 0125 %0800 i09
 1000 0000 0000 %0801 j01
 0875 0000 0000 %0802 j02
 0750 0000 0000 %0803 j03
 0625 0000 0000 %0804 j04
 0500 0000 0000 %0805 j05
 0375 0000 0000 %0806 j06
 0250 0000 0000 %0807 j07
 0125 0000 0000 %0808 j08
 0000 0000 0000 %0809 j09
 1000 1000 1000 %0810 b10
 0875 0875 1000 %0811 b11
 0750 0750 1000 %0812 b12
 0625 0625 1000 %0813 b13
 0500 0500 1000 %0814 b14
 0375 0375 1000 %0815 b15
 0250 0250 1000 %0816 b16
 0125 0125 1000 %0817 b17
 0000 0000 1000 %0818 b18
 1000 1000 0875 %0819 c10
 0875 0875 0875 %0820 c11
 0750 0750 0875 %0821 c12
 0625 0625 0875 %0822 c13
 0500 0500 0875 %0823 c14
 0375 0375 0875 %0824 c15
 0250 0250 0875 %0825 c16
 0125 0125 0875 %0826 c17
 0000 0000 0875 %0827 c18
 1000 1000 0750 %0828 d10
 0875 0875 0750 %0829 d11
 0750 0750 0750 %0830 d12
 0625 0625 0750 %0831 d13
 0500 0500 0750 %0832 d14
 0375 0375 0750 %0833 d15
 0250 0250 0750 %0834 d16
 0125 0125 0750 %0835 d17
 0000 0000 0750 %0836 d18
 1000 1000 0625 %0837 e10
 0875 0875 0625 %0838 e11
 0750 0750 0625 %0839 e12
 0625 0625 0625 %0840 e13
 0500 0500 0625 %0841 e14
 0375 0375 0625 %0842 e15
 0250 0250 0625 %0843 e16
 0125 0125 0625 %0844 e17
 0000 0000 0625 %0845 e18
 1000 1000 0500 %0846 f10
 0875 0875 0500 %0847 f11
 0750 0750 0500 %0848 f12
 0625 0625 0500 %0849 f13
 0500 0500 0500 %0850 f14
 0375 0375 0500 %0851 f15
 0250 0250 0500 %0852 f16
 0125 0125 0500 %0853 f17
 0000 0000 0500 %0854 f18
 1000 1000 0375 %0855 g10
 0875 0875 0375 %0856 g11
 0750 0750 0375 %0857 g12
 0625 0625 0375 %0858 g13
 0500 0500 0375 %0859 g14
 0375 0375 0375 %0860 g15
 0250 0250 0375 %0861 g16
 0125 0125 0375 %0862 g17
 0000 0000 0375 %0863 g18
 1000 1000 0250 %0864 h10
 0875 0875 0250 %0865 h11
 0750 0750 0250 %0866 h12
 0625 0625 0250 %0867 h13
 0500 0500 0250 %0868 h14
 0375 0375 0250 %0869 h15
 0250 0250 0250 %0870 h16
 0125 0125 0250 %0871 h17
 0000 0000 0250 %0872 h18
 1000 1000 0125 %0873 i10
 0875 0875 0125 %0874 i11
 0750 0750 0125 %0875 i12
 0625 0625 0125 %0876 i13
 0500 0500 0125 %0877 i14
 0375 0375 0125 %0878 i15
 0250 0250 0125 %0879 i16
 0125 0125 0125 %0880 i17
 0000 0000 0125 %0881 i18
 1000 1000 0000 %0882 j10
 0875 0875 0000 %0883 j11
 0750 0750 0000 %0884 j12
 0625 0625 0000 %0885 j13
 0500 0500 0000 %0886 j14
 0375 0375 0000 %0887 j15
 0250 0250 0000 %0888 j16
 0125 0125 0000 %0889 j17
 0000 0000 0000 %0890 j18
 1000 1000 1000 %0891 b19
 1000 0875 1000 %0892 b20
 1000 0750 1000 %0893 b21
 1000 0625 1000 %0894 b22
 1000 0500 1000 %0895 b23
 1000 0375 1000 %0896 b24
 1000 0250 1000 %0897 b25
 1000 0125 1000 %0898 b26
 1000 0000 1000 %0899 b27
 0875 1000 0875 %0900 c19
 0875 0875 0875 %0901 c20
 0875 0750 0875 %0902 c21
 0875 0625 0875 %0903 c22
 0875 0500 0875 %0904 c23
 0875 0375 0875 %0905 c24
 0875 0250 0875 %0906 c25
 0875 0125 0875 %0907 c26
 0875 0000 0875 %0908 c27
 0750 1000 0750 %0909 d19
 0750 0875 0750 %0910 d20
 0750 0750 0750 %0911 d21
 0750 0625 0750 %0912 d22
 0750 0500 0750 %0913 d23
 0750 0375 0750 %0914 d24
 0750 0250 0750 %0915 d25
 0750 0125 0750 %0916 d26
 0750 0000 0750 %0917 d27
 0625 1000 0625 %0918 e19
 0625 0875 0625 %0919 e20
 0625 0750 0625 %0920 e21
 0625 0625 0625 %0921 e22
 0625 0500 0625 %0922 e23
 0625 0375 0625 %0923 e24
 0625 0250 0625 %0924 e25
 0625 0125 0625 %0925 e26
 0625 0000 0625 %0926 e27
 0500 1000 0500 %0927 f19
 0500 0875 0500 %0928 f20
 0500 0750 0500 %0929 f21
 0500 0625 0500 %0930 f22
 0500 0500 0500 %0931 f23
 0500 0375 0500 %0932 f24
 0500 0250 0500 %0933 f25
 0500 0125 0500 %0934 f26
 0500 0000 0500 %0935 f27
 0375 1000 0375 %0936 g19
 0375 0875 0375 %0937 g20
 0375 0750 0375 %0938 g21
 0375 0625 0375 %0939 g22
 0375 0500 0375 %0940 g23
 0375 0375 0375 %0941 g24
 0375 0250 0375 %0942 g25
 0375 0125 0375 %0943 g26
 0375 0000 0375 %0944 g27
 0250 1000 0250 %0945 h19
 0250 0875 0250 %0946 h20
 0250 0750 0250 %0947 h21
 0250 0625 0250 %0948 h22
 0250 0500 0250 %0949 h23
 0250 0375 0250 %0950 h24
 0250 0250 0250 %0951 h25
 0250 0125 0250 %0952 h26
 0250 0000 0250 %0953 h27
 0125 1000 0125 %0954 i19
 0125 0875 0125 %0955 i20
 0125 0750 0125 %0956 i21
 0125 0625 0125 %0957 i22
 0125 0500 0125 %0958 i23
 0125 0375 0125 %0959 i24
 0125 0250 0125 %0960 i25
 0125 0125 0125 %0961 i26
 0125 0000 0125 %0962 i27
 0000 1000 0000 %0963 j19
 0000 0875 0000 %0964 j20
 0000 0750 0000 %0965 j21
 0000 0625 0000 %0966 j22
 0000 0500 0000 %0967 j23
 0000 0375 0000 %0968 j24
 0000 0250 0000 %0969 j25
 0000 0125 0000 %0970 j26
 0000 0000 0000 %0971 j27
 0000 0000 0000 %0972 k01
 0125 0125 0125 %0973 k02
 0250 0250 0250 %0974 k03
 0375 0375 0375 %0975 k04
 0500 0500 0500 %0976 k05
 0625 0625 0625 %0977 k06
 0750 0750 0750 %0978 k07
 0875 0875 0875 %0979 k08
 1000 1000 1000 %0980 k09
 0000 0000 0000 %0981 l01
 0125 0125 0125 %0982 l02
 0250 0250 0250 %0983 l03
 0375 0375 0375 %0984 l04
 0500 0500 0500 %0985 l05
 0625 0625 0625 %0986 l06
 0750 0750 0750 %0987 l07
 0875 0875 0875 %0988 l08
 1000 1000 1000 %0989 l09
 0000 0000 0000 %0990 m01
 0125 0125 0125 %0991 m02
 0250 0250 0250 %0992 m03
 0375 0375 0375 %0993 m04
 0500 0500 0500 %0994 m05
 0625 0625 0625 %0995 m06
 0750 0750 0750 %0996 m07
 0875 0875 0875 %0997 m08
 1000 1000 1000 %0998 m09
 0000 0000 0000 %0999 n01
 0125 0125 0125 %1000 n02
 0250 0250 0250 %1001 n03
 0375 0375 0375 %1002 n04
 0500 0500 0500 %1003 n05
 0625 0625 0625 %1004 n06
 0750 0750 0750 %1005 n07
 0875 0875 0875 %1006 n08
 1000 1000 1000 %1007 n09
 0000 0000 0000 %1008 k10
 0066 0066 0066 %1009 k11
 0133 0133 0133 %1010 k12
 0200 0200 0200 %1011 k13
 0266 0266 0266 %1012 k14
 0333 0333 0333 %1013 k15
 0400 0400 0400 %1014 k16
 0466 0466 0466 %1015 k17
 0533 0533 0533 %1016 k18
 0600 0600 0600 %1017 k19
 0666 0666 0666 %1018 k20
 0734 0734 0734 %1019 k21
 0800 0800 0800 %1020 k22
 0866 0866 0866 %1021 k23
 0933 0933 0933 %1022 k24
 1000 1000 1000 %1023 k25
 0000 0000 0000 %1024 l10
 0066 0066 0066 %1025 l11
 0133 0133 0133 %1026 l12
 0200 0200 0200 %1027 l13
 0266 0266 0266 %1028 l14
 0333 0333 0333 %1029 l15
 0400 0400 0400 %1030 l16
 0466 0466 0466 %1031 l17
 0533 0533 0533 %1032 l18
 0600 0600 0600 %1033 l19
 0666 0666 0666 %1034 l20
 0734 0734 0734 %1035 l21
 0800 0800 0800 %1036 l22
 0866 0866 0866 %1037 l23
 0933 0933 0933 %1038 l24
 1000 1000 1000 %1039 l25
 0000 0000 0000 %1040 m10
 0066 0066 0066 %1041 m11
 0133 0133 0133 %1042 m12
 0200 0200 0200 %1043 m13
 0266 0266 0266 %1044 m14
 0333 0333 0333 %1045 m15
 0400 0400 0400 %1046 m16
 0466 0466 0466 %1047 m17
 0533 0533 0533 %1048 m18
 0600 0600 0600 %1049 m19
 0666 0666 0666 %1050 m20
 0734 0734 0734 %1051 m21
 0800 0800 0800 %1052 m22
 0866 0866 0866 %1053 m23
 0933 0933 0933 %1054 m24
 1000 1000 1000 %1055 m25
 0000 0000 0000 %1056 n10
 0066 0066 0066 %1057 n11
 0133 0133 0133 %1058 n12
 0200 0200 0200 %1059 n13
 0266 0266 0266 %1060 n14
 0333 0333 0333 %1061 n15
 0400 0400 0400 %1062 n16
 0466 0466 0466 %1063 n17
 0533 0533 0533 %1064 n18
 0600 0600 0600 %1065 n19
 0666 0666 0666 %1066 n20
 0734 0734 0734 %1067 n21
 0800 0800 0800 %1068 n22
 0866 0866 0866 %1069 n23
 0933 0933 0933 %1070 n24
 1000 1000 1000 %1071 n25
 0000 0000 0000 %1072 k26
 1000 1000 1000 %1073 k27
 1000 0000 0000 %1074 l26
 0000 1000 1000 %1075 l27
 1000 1000 0000 %1076 m26
 0000 0000 1000 %1077 m27
 0000 1000 0000 %1078 n26
 1000 0000 1000 %1079 n27

 0000 1000 0000 %1078 nx6
 1000 0000 1000 %1079 nx7
] def %END RGB0

/XYZ*system { %BEG procedure XYZ*system

/XYZrx089   3240 array def %1080*3=3240
/XYZrx100   3240 array def

/jend 1073 4 mul 3 add def        %White-Measurement

/IM0 1080 def
/IM1 IM0       1 sub def
/IM3 IM0 3 mul 1 sub def
/IM4 IM0 4 mul 1 sub def

0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def
         /j30 i 3 mul def /j31 j30 1 add def /j32 j30 2 add def

         RGB0 j30 get 0.04045 le           %equations of IEC 61966-2-1:2003
         {/RsRGB RGB0 j30 get 12.92 div def}
         {/RsRGB RGB0 j30 get 0.001 mul 0.055 add
                         1.055 div 2.4 exp def} ifelse
         RGB0 j31 get 0.04045 le
         {/GsRGB RGB0 j31 get 12.92 div def}
         {/GsRGB RGB0 j31 get 0.001 mul 0.055 add
                         1.055 div 2.4 exp def} ifelse
         RGB0 j32 get 0.04045 le
         {/BsRGB RGB0 j32 get 12.92 div def}
         {/BsRGB RGB0 j32 get 0.001 mul 0.055 add
                                1.055 div 2.4 exp def} ifelse

         XYZrx100 i30 0.4124 RsRGB mul
                      0.3576 GsRGB mul add
                      0.1805 BsRGB mul add 100 mul put
         XYZrx100 i31 0.2126 RsRGB mul
                      0.7152 GsRGB mul add
                      0.0722 BsRGB mul add 100 mul put
         XYZrx100 i32 0.0193 RsRGB mul
                      0.1192 GsRGB mul add
                      0.9505 BsRGB mul add 100 mul put
        } for %i=0,IM1
      
0 1 IM3 {/i exch def %i=0,IM3
         XYZrx089 i XYZrx100 i get 0.8859 mul put
        } for %i=0,IM3

/iN 1072 3 mul def
/iW 1073 3 mul def

/XLN100 XYZrx100 iN get def
/YLN100 XYZrx100 iN 1 add get def
/ZLN100 XYZrx100 iN 2 add get def

/XLW100 XYZrx100 iW get def
/YLW100 XYZrx100 iW 1 add get def
/ZLW100 XYZrx100 iW 2 add get def

/XLN089 XYZrx089 iN get def
/YLN089 XYZrx089 iN 1 add get def
/ZLN089 XYZrx089 iN 2 add get def

/XLW089 XYZrx089 iW get def
/YLW089 XYZrx089 iW 1 add get def
/ZLW089 XYZrx089 iW 2 add get def

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

/XLWD65089  95.04 0.8859 mul def
/YLWD65089 100.00 0.8859 mul def
/ZLWD65089 108.88 0.8859 mul def

/XLN001 XLWD65100 100 div def
/YLN001 YLWD65100 100 div def
/ZLN001 ZLWD65100 100 div def

/LABN [(O (R)) (Y) (L (G)) (C) (V (B)) (M) (O (R)) (N) (W) (N0) (W1)] def

} bind def %END procedure XYZ*system

/XD65W  95.04 def
/YD65W 100.00 def
/ZD65W 108.88 def
/XD50W  96.42 def
/YD50W 100.00 def
/ZD50W  82.51 def
/DAKTE [(D65) (D50)] def

%Save 8 standard colours
/COL*01 08 array def
/COL*01
[(%O1 0) (%Y1 1) (%L1 2) (%C1 3)
 (%V1 4) (%M1 5) (%N1 6) (%W1 7)
] def
/COL*02 08 array def
/COL*02
[(%O2 0) (%Y2 1) (%L2 2) (%C2 3)
 (%V2 4) (%M2 5) (%N2 6) (%W2 7)
] def
/COL*03 08 array def
/COL*03
[(%O3 0) (%Y3 1) (%L3 2) (%C3 3)
 (%V3 4) (%M3 5) (%N3 6) (%W3 7)
] def
/COL*04 08 array def
/COL*04
[(%O4 0) (%Y4 1) (%L4 2) (%C4 3)
 (%V4 4) (%M4 5) (%N4 6) (%W4 7)
] def
/COL*05 08 array def
/COL*05
[(%O5 0) (%Y5 1) (%L5 2) (%C5 3)
 (%V5 4) (%M5 5) (%N5 6) (%W5 7)
] def
/COL*06 08 array def
/COL*06
[(%O6 0) (%Y6 1) (%L6 2) (%C6 3)
 (%V6 4) (%M6 5) (%N6 6) (%W6 7)
] def
/COL*07 08 array def
/COL*07
[(%O7 0) (%Y7 1) (%L7 2) (%C7 3)
 (%V7 4) (%M7 5) (%N7 6) (%W7 7)
] def

/LAB*01 24 array def
/LAB*02 24 array def
/LAB*03 24 array def
/LAB*04 24 array def
/LAB*05 24 array def
/LAB*06 24 array def
/LAB*07 24 array def

/LAB*a01 24 array def
/LAB*a02 24 array def
/LAB*a03 24 array def
/LAB*a04 24 array def
/LAB*a05 24 array def
/LAB*a06 24 array def
/LAB*a07 24 array def

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

/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

/cvishowr {0.5 add cvi 6 string cvs 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

/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

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

/colrecst %x y width heigth c m y k
  {setcmykcolor rec stroke} bind def

%%EndProlog
gsave

/lanind 0 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind def
/lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def}
               {/lanind1 1 def /lanind2 1 def} ifelse
/colormg where {pop /colorm1 colormg def /colorm2 colormg def}
               {/colorm1 0 def /colorm2 0 def} ifelse
/xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def}
               {/xcolor1 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 /xchartx   xchartg def} {/xchartx   0 def} ifelse
/xcolorg where {pop /xcolorx   xchartg def} {/xcolorx   0 def} ifelse
/colormg where {pop /colorm    colormg def} {/colorm    0 def} ifelse

%3240=1080*3

/LAB*rc089 3240 array def
/XYZrc089  3240 array def

/LAB*ra089 3240 array def
/XYZra089  3240 array def

/LAB*la089 3240 array def
/XYZla089  3240 array def

/LAB*lc089 3240 array def
/XYZlc089  3240 array def

/XYZ_Xj 1080 array def
/XYZ_Yj 1080 array def
/XYZ_Zj 1080 array def
/LAB*Lj 1080 array def
/LAB*aj 1080 array def
/LAB*bj 1080 array def
/LAB*Lja 1080 array def
/LAB*aja 1080 array def
/LAB*bja 1080 array def

/ymax 16600 def
/ydel   203 def

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

/RJGBLAB* 12 array def
/RJGBLAB*[
  39.92  58.74  27.99 % R CIE No.09 elementary colours in LAB, D65
  81.26  -2.89  71.56 % J CIE No.10
  52.23 -42.42  13.60 % G CIE No.11
  30.57   1.41 -46.47 % B CIE No.12
] def

/RGBhab08 8 array def
RGBhab08 0 RJGBLAB* 02 get RJGBLAB* 01 get atan put %026
RGBhab08 1 RJGBLAB* 05 get RJGBLAB* 04 get atan put %092
RGBhab08 2 RJGBLAB* 08 get RJGBLAB* 07 get atan put %162
RGBhab08 4 RJGBLAB* 11 get RJGBLAB* 10 get atan put %272
RGBhab08 3 RGBhab08 2 get RGBhab08 4 get add 0.5 mul put %217
RGBhab08 5 RGBhab08 4 get RGBhab08 0 get 360 add add 0.5 mul put %329
RGBhab08 6 RGBhab08 0 get 360 add put %386
RGBhab08 7 RGBhab08 1 get 360 add put

/RGBhab08d 8 array def
0 1 6 {/j exch def %j=0,6
       RGBhab08d j RGBhab08 j 1 add get RGBhab08 j get sub put
      } for

/xs 1000 def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xs5x xs 5.4 mul def /ys5x ys 5.4 mul def

72 90 translate

/DAK 0 def

0.010 MM dup scale

XYZ*system

/Lrefl 11 array def
/Lrefl [(0%) (0%) (0%)
        (0%) (0,6%) (1,2%) (2,5%)
        (5%) (10%) (20%) (40%)] def

/u*dtx [(o) (y) (l) (c) (v) (m) (o)] def
/u*etx [(r) (j) (g) () (b) () (r)] def

/LAB*na089 3240 array def
/XYZna089  3240 array def

/IN 27 array def
/IN
[0000 0001 0002 0003 0004 0005 0006 0007 0008
 0243 0244 0245 0246 0247 0248 0249 0250 0251
 0486 0487 0488 0489 0490 0491 0492 0493 0494] def
 
/LUTL*64a 64 array def
/LUTA*64a 64 array def
/LUTB*64a 64 array def
/LUTC*64a 64 array def
/LUTH*64a 64 array def
/holv*64a 64 array def

/OLVhab64 64 array def
/RGBhab64 64 array def
/indton64 64 array def
/LNWton09 09 array def

/L*ton 9 array def

/RJGB16 16 array def
/RJGB16 [(r00j=R) (r25j) (r50j) (r75j)
         (j00g=J) (j25g) (j50g) (j75g)
         (g00b=G) (g25b) (g50b) (g75b)
         (b00r=B) (b25r) (b50r) (b75r)] def
/L05 5 array def
/L05 [(n000w=N) (n025w) (n050w) (n075w) (n100w=W)] def

/RGB*16 16 array def
/RGB*16 [(1.00 0.00 0.00) (1.00 0.25 0.00) (1.00 0.50 0.00) (1.00 0.75 0.00)
         (1.00 1.00 0.00) (0.75 1.00 0.00) (0.50 1.00 0.00) (0.25 1.00 0.00)
         (0.00 1.00 0.00) (0.00 1.00 0.50) (0.00 1.00 1.00) (0.00 0.50 1.00)
         (0.00 0.00 1.00) (0.50 0.00 1.00) (1.00 0.00 1.00) (1.00 0.00 0.50)
        ] def
/RGBNM*16 16 array def
/RGBNW*16 [(1.00 0.00 0.00) (0.50 0.00 0.00) (1.00 0.50 0.50) ()
           (1.00 1.00 0.00) (0.50 0.50 0.00) (1.00 1.00 0.50) ()
           (0.00 1.00 0.00) (0.00 0.50 0.00) (0.50 1.00 0.50) ()
           (0.00 0.00 1.00) (0.00 0.00 0.50) (0.50 0.50 1.00) ()] def

/RGB*005 05 array def
/RGB*005 [(0.00 0.00 0.00) (0.25 0.25 0.25) (0.50 0.50 0.50)
          (0.75 0.75 0.75) (1.00 1.00 1.00)] def
          
/RGB*009 09 array def
/RGB*009 [(0.000 0.000 0.000) (0.125 0.125 0.125) (0.250 0.250 0.250) (0.375 0.375 0.375)
          (0.500 0.500 0.500) (0.625 0.625 0.625) (0.750 0.750 0.750) (0.875 0.875 0.875)
          (1.000 1.000 1.000)] def

/OLV64 64 array def
/OLV64 [(o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y)
        (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l)
        (l00c=L) (l12c) (l25c) (l37c) (l50c) (l62c) (l75c) (l87c)
        (c00v=C) (c12v) (c25v) (c37v) (c50v) (c62v) (c75v) (c87v)
        (v00m=V) (v12m) (v25m) (v37m) (v50m) (v62m) (v75m) (v87m)
        (m00o=M) (m12o) (m25o) (m37o) (m50o) (m62o) (m75o) (m87o)
        %repeat for range >360 degree
        (o00y=O) (o12y) (o25y) (o37y) (o50y) (o62y) (o75y) (o87y)
        (y00l=Y) (y12l) (y25l) (y37l) (y50l) (y62l) (y75l) (y87l)
       ] def
        
/RGB64 64 array def
/RGB64[(r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j)
        (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g)
        (g00c'=G) (g12c') (g25c') (g37c') (g50c') (g62c') (g75c') (g87c')
        (c'00b=C') (c'12b) (c'25b) (c'37b) (c'50b) (c'62b) (c'75b) (c'87b)
        (b00m'=B) (b12m') (b25m') (b37m') (b50m') (b62m') (b75m') (b87m')
        (m'00r=M') (m'12r) (m'25r) (m'37r) (m'50r) (m'62r) (m'75r) (m'87r)
        %repeat for range >360 degree
        (r00j=R) (r12j) (r25j) (r37j) (r50j) (r62j) (r75j) (r87j)
        (j00g=J) (j12g) (j25g) (j37g) (j50g) (j62g) (j75g) (j87g)
       ] def
        
/RGBOLV*64tx 64 array def
/RGBOLV*64tx 
[(1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y
 (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000)

 (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L
 (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000)

 (0.000 1.000 0.000) (0.000 1.000 0.125) (0.000 1.000 0.250) (0.000 1.000 0.375) %L-C
 (0.000 1.000 0.500) (0.000 1.000 0.625) (0.000 1.000 0.750) (0.000 1.000 0.875)

 (0.000 1.000 1.000) (0.000 0.875 1.000) (0.000 0.750 1.000) (0.000 0.625 1.000) %C-V
 (0.000 0.500 1.000) (0.000 0.375 1.000) (0.000 0.250 1.000) (0.000 0.125 1.000)
 
 (0.000 0.000 1.000) (0.125 0.000 1.000) (0.250 0.000 1.000) (0.375 0.000 1.000) %V-M
 (0.500 0.000 1.000) (0.625 0.000 1.000) (0.750 0.000 1.000) (0.875 0.000 1.000)

 (1.000 0.000 1.000) (1.000 0.000 0.875) (1.000 0.000 0.750) (1.000 0.000 0.625) %M-O
 (1.000 0.000 0.500) (1.000 0.000 0.375) (1.000 0.000 0.250) (1.000 0.000 0.125)
%repeat for range >360 degree
 (1.000 0.000 0.000) (1.000 0.125 0.000) (1.000 0.250 0.000) (1.000 0.375 0.000) %O-Y
 (1.000 0.500 0.000) (1.000 0.625 0.000) (1.000 0.750 0.000) (1.000 0.875 0.000)

 (1.000 1.000 0.000) (0.875 1.000 0.000) (0.750 1.000 0.000) (0.625 1.000 0.000) %Y-L
 (0.500 1.000 0.000) (0.375 1.000 0.000) (0.250 1.000 0.000) (0.125 1.000 0.000)
] def

/RGBOLV*192 192 array def
/RGBOLV*192 
[1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y
 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000

 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L
 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000

 0.000 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 %L-C
 0.000 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875

 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 %C-V
 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000
 
 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 1.000 %V-M
 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000 1.000

 1.000 0.000 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 %M-O
 1.000 0.000 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125
%repeat for range >360 degree
 1.000 0.000 0.000 1.000 0.125 0.000 1.000 0.250 0.000 1.000 0.375 0.000 %O-Y
 1.000 0.500 0.000 1.000 0.625 0.000 1.000 0.750 0.000 1.000 0.875 0.000

 1.000 1.000 0.000 0.875 1.000 0.000 0.750 1.000 0.000 0.625 1.000 0.000 %Y-L
 0.500 1.000 0.000 0.375 1.000 0.000 0.250 1.000 0.000 0.125 1.000 0.000
] def

/RGBOLV*640 64 array def
/RGBOLV*641 64 array def
/RGBOLV*642 64 array def

0 1 63 {/j exch def %j=0,63
        RGBOLV*640 j RGBOLV*192   j 3 mul       get put
        RGBOLV*641 j RGBOLV*192   j 3 mul 1 add get put
        RGBOLV*642 j RGBOLV*192   j 3 mul 2 add get put
       } for %j=0,63

/RGBOLVL 0 def %Interpretation rgb->rgb* (0,2) or rgb->olv* (1,3)
/LABOLVL 0 def %Output LAB* (0) or OLV*/RGB* (1)
/REFLECL 0 def %00 1 00 {/REFLECL exch def %beg REFLECL=0,0

gsave

20 setlinewidth

0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey

0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz

/TKK {200 /Times-ISOL1 FS} bind def
TKK
100 -180 moveto (KE880-7N) show

00 1 03 {/xchart exch def %beg xchart=0,3

/xchartl xchart 4 mul 2 add def %image 2,6,10,14

20 setlinewidth

  xchartl   0 eq {  100 13000 translate} if
  xchartl   1 eq { 6200 13000 translate} if
  xchartl   2 eq {  100 08750 translate} if
  xchartl   3 eq { 6200 08750 translate} if

  xchartl   4 eq {  100  4500 translate} if
  xchartl   5 eq { 6200  4500 translate} if
  xchartl   6 eq {  100  0250 translate} if
  xchartl   7 eq { 6200  0250 translate} if

  xchartl   8 eq  {12800 13000 translate} if
  xchartl   9 eq  {18900 13000 translate} if
  xchartl   10 eq {12800 08750 translate} if
  xchartl   11 eq {18900 08750 translate} if

  xchartl   12 eq {12800  4500 translate} if
  xchartl   13 eq {18900  4500 translate} if
  xchartl   14 eq {12800  0250 translate} if
  xchartl   15 eq {18900  0250 translate} if

0 setgray
TKK
8600 -180 moveto
xchartl 7 le {(KE880-) show}
             {(KE881-) show} ifelse
xchartl 0 ge xchartl   7 le and {xchartl 1 add cvishow} if
xchartl 8 ge xchartl  15 le and {xchartl 7 sub cvishow} if
(N) show %N
(, ) show REFLECL 1 add cvishow

/xcharti xchart 3 add 4 REFLECL mul add def

xcharti 2 le {/il 0 def}
             {/il xcharti 3 sub def} ifelse

%Reference black and factors
/YrN 2.52 def
/ilf [0.00 0.25 0.50 1.00 2.00 4.00 8.00 16.00] def         

/Xtref089 YrN ilf il get mul XLN001 mul def
/Ytref089 YrN ilf il get mul def
/Ztref089 YrN ilf il get mul ZLN001 mul def

/YNil Ytref089 def
/YNil001 YNil 100 div def

YNil001 6 29 div 3 exp ge
{/FYYn YNil001 0.3333 exp def}
{/FYYn 841 108 div YNil001 mul 4 29 div add def} ifelse

/L*Nil 116 FYYn mul 16 sub def

/IM1 1079 def

0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         XYZrc089 i30 XYZrx089 i30 get put
         XYZrc089 i31 XYZrx089 i31 get put
         XYZrc089 i32 XYZrx089 i32 get put
         /XQ XYZrc089 i30 get XLWD65100 div def
         /YQ XYZrc089 i31 get YLWD65100 div def
         /ZQ XYZrc089 i32 get ZLWD65100 div def
         XQ 0 lt {/XQ 0.00000001 def} if
         YQ 0 lt {/YQ 0.00000001 def} if
         ZQ 0 lt {/ZQ 0.00000001 def} if
         LAB*rc089 i30 YQ 0.008856 lt {903.3 YQ mul}
                    {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
         LAB*rc089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                    {XQ 0.33333333 exp} ifelse
                    YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                    {YQ 0.33333333 exp} ifelse sub 500 mul put
         LAB*rc089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                    {YQ 0.33333333 exp} ifelse
                    ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                    {ZQ 0.33333333 exp} ifelse sub 200 mul put
       } for %i=0,IM1

/jN 1072 3 mul def
/L*N LAB*rc089 jN get def
/A*N LAB*rc089 jN 1 add get def
/B*N LAB*rc089 jN 2 add get def

/jW 1073 3 mul def
/L*W LAB*rc089 jW get def
/A*W LAB*rc089 jW 1 add get def
/B*W LAB*rc089 jW 2 add get def

0 1 IM1 {/i exch def %i=0,IM1
        /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
        LAB*ra089  i30 LAB*rc089 i30 get put
        /l*CIE LAB*rc089 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*ra089  i31 LAB*rc089 i31 get A*N sub a*s sub put
        LAB*ra089  i32 LAB*rc089 i32 get B*N sub b*s sub put
       } for %i=0,IM1

0 1 IM1 {/i exch def %i=0,IM1
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /X* {LAB*ra089  i30 get 16 add 116 div
            LAB*ra089  i31 get 500 div add} bind def
       /Y* {LAB*ra089  i30 get 16 add 116 div} bind def
       /Z* {LAB*ra089  i30 get 16 add 116 div
            LAB*ra089  i32 get 200 div sub} bind def
       XYZra089 i30 X* DecodeXYZ* XLWD65100 mul put
       XYZra089 i31 Y* DecodeXYZ* YLWD65100 mul put
       XYZra089 i32 Z* DecodeXYZ* ZLWD65100 mul put
      } for %i=0,IM1

xcharti 2 ge {%xcharti>=2

/jW 1073 3 mul def %for white X data
/Xwref089 XYZra089 jW get def
/Ywref089 XYZra089 jW 1 add get def
/Zwref089 XYZra089 jW 2 add get def

/jN 1072 3 mul 1 add def %for black X data

/YrN XYZra089 jN 1 add get def

/Xnref089 YrN XLN001 mul def
/Ynref089 YrN def
/Znref089 YrN ZLN001 mul def

0 1 IM1 {/i exch def
         /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         XYZna089 i30 XYZra089 i30 get Xnref089 sub
                      Xwref089 Xwref089 Xnref089 sub div mul put
         XYZna089 i31 XYZra089 i31 get Ynref089 sub
                      Ywref089 Ywref089 Ynref089 sub div mul put
         XYZna089 i32 XYZra089 i32 get Znref089 sub
                      Zwref089 Zwref089 Znref089 sub div mul put
        } for %i=I1,I2

0 1 IM1 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /XQ XYZna089 i30 get XLWD65100 div def
       /YQ XYZna089 i31 get YLWD65100 div def
       /ZQ XYZna089 i32 get ZLWD65100 div def
       XQ 0 lt {/XQ 0.00000001 def} if
       YQ 0 lt {/YQ 0.00000001 def} if
       ZQ 0 lt {/ZQ 0.00000001 def} if
       LAB*na089 i30 YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       LAB*na089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                  {XQ 0.33333333 exp} ifelse
                  YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse sub 500 mul put
       LAB*na089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse
                  ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                  {ZQ 0.33333333 exp} ifelse sub 200 mul put
     } for %i=I1,I2
} if %xchart>=2

xcharti 3 ge {%xchart>=3

/jW 1073 3 mul def %for white X data
%/jW 57 3 mul def %W
/Xwref089 XYZra089 jW get def
/Ywref089 XYZra089 jW 1 add get def
/Zwref089 XYZra089 jW 2 add get def

/kn Ywref089 Ywref089 Ytref089 sub div def

0 1 IM1 {/i exch def
         /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
         XYZla089 i30 XYZna089 i30 get kn div
                      Xtref089 add put
         XYZla089 i31 XYZna089 i31 get kn div
                      Ytref089 add put
         XYZla089 i32 XYZna089 i32 get kn div
                      Ztref089 add put
        } for %i=I1,I2

0 1 IM1 {/i exch def
       /i30 i 3 mul def /i31 i 3 mul 1 add def /i32 i 3 mul 2 add def
       /XQ XYZla089 i30 get XLWD65100 div def
       /YQ XYZla089 i31 get YLWD65100 div def
       /ZQ XYZla089 i32 get ZLWD65100 div def
       XQ 0 lt {/XQ 0.00000001 def} if
       YQ 0 lt {/YQ 0.00000001 def} if
       ZQ 0 lt {/ZQ 0.00000001 def} if
       LAB*la089 i30 YQ 0.008856 lt {903.3 YQ mul}
                  {YQ 0.33333333 exp 116 mul 16 sub} ifelse put
       LAB*la089 i31 XQ 0.008856 lt {7.787 XQ mul 16 116 div add}
                  {XQ 0.33333333 exp} ifelse
                  YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse sub 500 mul put
       LAB*la089 i32 YQ 0.008856 lt {7.787 YQ mul 16 116 div add}
                  {YQ 0.33333333 exp} ifelse
                  ZQ 0.008856 lt {7.787 ZQ mul 16 116 div add}
                  {ZQ 0.33333333 exp} ifelse sub 200 mul put
     } for %i=I1,I2
} if %xchart>=3

xcharti 0 eq {%xcharti=0 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def
%        10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto
         LAB*Lj i LAB*rc089 i30 get put
         LAB*aj i LAB*rc089 i31 get put
         LAB*bj i LAB*rc089 i32 get put
         XYZ_Xj i XYZrc089 i30 get put
         XYZ_Yj i XYZrc089 i31 get put
         XYZ_Zj i XYZrc089 i32 get put
        } for %i=0,IM1
} if %xcharti=0 (1x)

xcharti 1 eq {%xcharti=1 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def
%         10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto
         LAB*Lj i LAB*ra089 i30 get put
         LAB*aj i LAB*ra089 i31 get put
         LAB*bj i LAB*ra089 i32 get put
         XYZ_Xj i XYZra089 i30 get put
         XYZ_Yj i XYZra089 i31 get put
         XYZ_Zj i XYZra089 i32 get put
        } for %i=0,IM1
} if %xcharti=1 (1x)

xcharti 2 eq {%xcharti=2 (1x)
0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def
%         10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto
         LAB*Lj i LAB*na089 i30 get put
         LAB*aj i LAB*na089 i31 get put
         LAB*bj i LAB*na089 i32 get put
         XYZ_Xj i XYZna089 i30 get put
         XYZ_Yj i XYZna089 i31 get put
         XYZ_Zj i XYZna089 i32 get put
        } for %i=0,IM1
} if %xcharti=2 (1x)

xcharti 3 ge {%xcharti=3,4,5,6,7,8,9,10 (8x)
0 1 IM1 {/i exch def %i=0,IM1
         /i30 i 3 mul def /i31 i30 1 add def /i32 i30 2 add def
%         10100 ymax i i 80 idiv 80 mul sub ydel mul sub moveto
         LAB*Lj i LAB*la089 i30 get put
         LAB*aj i LAB*la089 i31 get put
         LAB*bj i LAB*la089 i32 get put
         XYZ_Xj i XYZla089 i30 get put
         XYZ_Yj i XYZla089 i31 get put
         XYZ_Zj i XYZla089 i32 get put
        } for %i=0,IM1
} if %xcharti=3,4,5,6,7,8,9,10 (8x)


xcharti  0 eq {/Xprint 0 def /FileData (LAB*rc) def} if
xcharti  1 eq {/Xprint 1 def /FileData (LAB*ra) def} if
xcharti  2 eq {/Xprint 1 def /FileData (LAB*na) def} if

xcharti  3 eq  {/Xprint 1 def /FileData (LAB*la0) def} if
xcharti  4 eq  {/Xprint 1 def /FileData (LAB*la1) def} if
xcharti  5 eq  {/Xprint 1 def /FileData (LAB*la2) def} if
xcharti  6 eq  {/Xprint 1 def /FileData (LAB*la3) def} if
xcharti  7 eq  {/Xprint 1 def /FileData (LAB*la4) def} if
xcharti  8 eq  {/Xprint 1 def /FileData (LAB*la5) def} if
xcharti  9 eq  {/Xprint 1 def /FileData (LAB*la6) def} if
xcharti 10 eq  {/Xprint 1 def /FileData (LAB*la7) def} if

20 setlinewidth
1 1 1 setrgbcolor
0 0 moveto 12000     0 rlineto 0 8000 rlineto
           12000 neg 0 rlineto closepath fill
0 0 0 setrgbcolor
0 0 moveto 12000     0 rlineto 0 8000 rlineto
           12000 neg 0 rlineto closepath stroke

%TK
%0 setgray 
%200 -200 moveto 
%(KE880-3N, ) show
%(, Page ) showen (, Seite ) showde xcharti 1 add cvishow (/11, ) show
%FileData show
%xcharti 0 eq {(, adapted=not adapted)}{(, adapted=not adapted)} ifelse show
           
0 1 728 {/j exch def %j=1,728
         %necessary in both cases
         j 072 eq {%072 0-8-0 L 2
                   LAB*01 06 LAB*Lj j get put
                   LAB*01 07 LAB*aj j get put
                   LAB*01 08 LAB*bj j get put} if
         j 080 eq {%080 0-8-8 C 3
                   LAB*01 09 LAB*Lj j get put
                   LAB*01 10 LAB*aj j get put
                   LAB*01 11 LAB*bj j get put} if
         j 008 eq {%008 0-0-8 V 4
                   LAB*01 12 LAB*Lj j get put
                   LAB*01 13 LAB*aj j get put
                   LAB*01 14 LAB*bj j get put} if
         j 000 eq {%000 0-0-0 N 6
                   LAB*01 18 LAB*Lj j get put
                   LAB*01 19 LAB*aj j get put
                   LAB*01 20 LAB*bj j get put} if
         j 648 eq {%648 8-0-0 O 0
                   LAB*01 00 LAB*Lj j get put
                   LAB*01 01 LAB*aj j get put
                   LAB*01 02 LAB*bj j get put} if
         j 720 eq {%720 8-8-0 Y 1
                   LAB*01 03 LAB*Lj j get put
                   LAB*01 04 LAB*aj j get put
                   LAB*01 05 LAB*bj j get put} if
         j 656 eq {%656 8-0-8 M 5
                   LAB*01 15 LAB*Lj j get put
                   LAB*01 16 LAB*aj j get put
                   LAB*01 17 LAB*bj j get put} if
         j 728 eq {%728 8-8-8 W 7
                   LAB*01 21 LAB*Lj j get put
                   LAB*01 22 LAB*aj j get put
                   LAB*01 23 LAB*bj j get put} if
        } for %j=0,728
        
729 1 971 {/j exch def %j=729,971
           %necessary in both cases
         j 963 eq {%963 0-8-0 L 2
                   LAB*02 06 LAB*Lj j get put
                   LAB*02 07 LAB*aj j get put
                   LAB*02 08 LAB*bj j get put} if
         j 737 eq {%737 0-8-8 C 3
                   LAB*02 09 LAB*Lj j get put
                   LAB*02 10 LAB*aj j get put
                   LAB*02 11 LAB*bj j get put} if
         j 818 eq {%818 0-0-8 V 4
                   LAB*02 12 LAB*Lj j get put
                   LAB*02 13 LAB*aj j get put
                   LAB*02 14 LAB*bj j get put} if
         j 809 eq {%809 or 890 or 971 0-0-0 N 6
                   LAB*02 18 LAB*Lj j get LAB*Lj 890 get add
                             LAB*Lj 971 get add 3 div put
                   LAB*02 19 LAB*aj j get LAB*aj 890 get add
                             LAB*aj 971 get add 3 div put
                   LAB*02 20 LAB*bj j get LAB*bj 890 get add
                             LAB*bj 971 get add 3 div put} if
         j 801 eq {%801 8-0-0 O 0
                   LAB*02 00 LAB*Lj j get put
                   LAB*02 01 LAB*aj j get put
                   LAB*02 02 LAB*bj j get put} if
         j 882 eq {%882 8-8-0 Y 1
                   LAB*02 03 LAB*Lj j get put
                   LAB*02 04 LAB*aj j get put
                   LAB*02 05 LAB*bj j get put} if
         j 899 eq {%899 8-0-8 M 5
                   LAB*02 15 LAB*Lj j get put
                   LAB*02 16 LAB*aj j get put
                   LAB*02 17 LAB*bj j get put} if
         j 729 eq {%729 or 810 or 891 8-8-8 W 7
                   LAB*02 21 LAB*Lj j get LAB*Lj 810 get add
                             LAB*Lj 891 get add 3 div put
                   LAB*02 22 LAB*aj j get LAB*aj 810 get add
                             LAB*aj 891 get add 3 div put
                   LAB*02 23 LAB*bj j get LAB*bj 810 get add
                             LAB*bj 891 get add 3 div put} if
        } for %j=j=729,971
        
972 1 1079 {/j exch def %j=972,1079
             %only last colours 1072 to 1079
            j 1078 eq {%1078 0-8-0 L 2
                       LAB*03 06 LAB*Lj j get put
                       LAB*03 07 LAB*aj j get put
                       LAB*03 08 LAB*bj j get put} if
            j 1075 eq {%1075 0-8-8 C 3
                       LAB*03 09 LAB*Lj j get put
                       LAB*03 10 LAB*aj j get put
                       LAB*03 11 LAB*bj j get put} if
            j 1077 eq {%1077 0-0-8 V 4
                       LAB*03 12 LAB*Lj j get put
                       LAB*03 13 LAB*aj j get put
                       LAB*03 14 LAB*bj j get put} if
            j 1072 eq {%1072 0-0-0 N 6
                       LAB*03 18 LAB*Lj j get put
                       LAB*03 19 LAB*aj j get put
                       LAB*03 20 LAB*bj j get put} if
            j 1074 eq {%1074 8-0-0 O 0
                       LAB*03 00 LAB*Lj j get put
                       LAB*03 01 LAB*aj j get put
                       LAB*03 02 LAB*bj j get put} if
            j 1076 eq {%1076 8-8-0 Y 1
                       LAB*03 03 LAB*Lj j get put
                       LAB*03 04 LAB*aj j get put
                       LAB*03 05 LAB*bj j get put} if
            j 1079 eq {%1079 8-0-8 M 5
                       LAB*03 15 LAB*Lj j get put
                       LAB*03 16 LAB*aj j get put
                       LAB*03 17 LAB*bj j get put} if
            j 1073 eq {%1073 8-8-8 W 7
                       LAB*03 21 LAB*Lj j get put
                       LAB*03 22 LAB*aj j get put
                       LAB*03 23 LAB*bj j get put} if
        } for %j=j=972,1079

972 1 1079 {/j exch def %09 step N,W: j=0972,0980; 0981,0989; 0990,0998;
                        %               0999,1007
                        %16 step N,W: j=1008,1023; 1024,1039; 1040,1055;
                        %               1056,1071
           %necessary for four 09-step grey scales
           j 0972 eq {%0972 or 1008 0-0-0 N 6
                      LAB*04 18 LAB*Lj j get put
                      LAB*04 19 LAB*aj j get put
                      LAB*04 20 LAB*bj j get put} if
           j 0980 eq {%0980 or 1023 8-8-8 W 7
                      LAB*04 21 LAB*Lj j get put
                      LAB*04 22 LAB*aj j get put
                      LAB*04 23 LAB*bj j get put} if

           j 0981 eq {%0981 or 1024 0-0-0 N 6
                      LAB*05 18 LAB*Lj j get put
                      LAB*05 19 LAB*aj j get put
                      LAB*05 20 LAB*bj j get put} if
           j 0989 eq {%0989 or 1039 8-8-8 W 7
                      LAB*05 21 LAB*Lj j get put
                      LAB*05 22 LAB*aj j get put
                      LAB*05 23 LAB*bj j get put} if

           j 0990 eq {%0990 or 1040 0-0-0 N 6
                      LAB*06 18 LAB*Lj j get put
                      LAB*06 19 LAB*aj j get put
                      LAB*06 20 LAB*bj j get put} if
           j 0998 eq {%0998 or 1055 8-8-8 W 7
                      LAB*06 21 LAB*Lj j get put
                      LAB*06 22 LAB*aj j get put
                      LAB*06 23 LAB*bj j get put} if

           j 0999 eq {%0999 or 1056 0-0-0 N 6
                      LAB*07 18 LAB*Lj j get put
                      LAB*07 19 LAB*aj j get put
                      LAB*07 20 LAB*bj j get put} if
           j 1007 eq {%1007 or 1071 8-8-8 W 7
                      LAB*07 21 LAB*Lj j get put
                      LAB*07 22 LAB*aj j get put
                      LAB*07 23 LAB*bj j get put} if
          } for %j=972,1079
        
%Adaptation
/L*Nio LAB*07 18 get def
/A*Nio LAB*07 19 get def
/B*Nio LAB*07 20 get def

/L*Wio LAB*07 21 get def
/A*Wio LAB*07 22 get def
/B*Wio LAB*07 23 get def

/A*Dio A*Wio A*Nio sub def
/B*Dio B*Wio B*Nio sub def

0 1 1079 {/j exch def %j=0,1079
          LAB*Lja j LAB*Lj j get put
          /l*CIE LAB*Lj j get L*Nio sub L*Wio L*Nio sub div def
                                                      %system rel. lightn.
          /a*s A*Wio A*Nio sub l*CIE mul def
          /b*s B*Wio B*Nio sub l*CIE mul def
          LAB*aja j LAB*aj j get A*Nio sub a*s sub put
          LAB*bja j LAB*bj j get B*Nio sub b*s sub put
         } for %j=0,1079

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

xcharti 2 le {/jN 1072 3 mul def
              /YNil XYZrx089 jN 1 add get def
              /L*Nil LAB*rc089 jN get def} if

/ymax2 16100 def
/xdel2   600 def
/ydel2   250 def

0 setgray
/TBGGT {230 /TimesB-ISOL1 FS} bind def
/TBIGGT {230 /TimesBI-ISOL1 FS} bind def
/TGT {190 /Times-ISOL1 FS} bind def
/TIGT {190 /TimesI-ISOL1 FS} bind def
/TBGT {190 /TimesB-ISOL1 FS} bind def
/TBIGT {190 /TimesBI-ISOL1 FS} bind def
/TBMT {160 /TimesB-ISOL1 FS} bind def
/TBIMT {160 /TimesBI-ISOL1 FS} bind def
/ishowGT {TBMT -00 -45 rmoveto show 00 45 rmoveto TBGT} bind def

/RJGB0 RJGBLAB* 02 get RJGBLAB* 01 get atan def %026
/RJGB1 RJGBLAB* 05 get RJGBLAB* 04 get atan def %092
/RJGB2 RJGBLAB* 08 get RJGBLAB* 07 get atan def %162
/RJGB3 RJGBLAB* 11 get RJGBLAB* 10 get atan def %272
/CeGB  RJGB2 RJGB3 add 0.5 mul def
/MeBR  RJGB3 RJGB0 360 add add 0.5 mul def

0 1 47 {/j exch def %i=0,47 elementary and intemediate hue angles
/j0 j j 8 idiv 8 mul sub def %0,1,2,3,4,5,6,7
/b0 j0 0.125 mul def
/a0 1 b0 sub def
j 00 ge j 07 le and {RGBhab64 j a0 RJGB0 mul b0 RJGB1 mul add put} if
j 08 ge j 15 le and {RGBhab64 j a0 RJGB1 mul b0 RJGB2 mul add put} if
j 16 ge j 23 le and {RGBhab64 j a0 RJGB2 mul b0 CeGB  mul add put} if

j 24 ge j 31 le and {RGBhab64 j a0 CeGB  mul b0 RJGB3 mul add put} if
j 32 ge j 39 le and {RGBhab64 j a0 RJGB3 mul b0 MeBR  mul add put} if
j 40 ge j 47 le and {RGBhab64 j a0 MeBR  mul b0 RJGB0 360 add mul add
                               dup 360 ge {360 sub} if put} if
        } for %j=0,47 elementary and intemediate hue angles

0 1 15 {/j exch def %j=0,15 %for interpolation 0<LAB*hab<RGB*hab64(0)
        RGBhab64 48 j add RGBhab64 j get 360 add put
       } for %j=0,15
40 1 47 {/j exch def %j=40,47
         RGBhab64 j get RGBhab64 0 get le 
         {RGBhab64 j RGBhab64 j get 360 add put} if
        } for %j=40,47

0 1 5 {/xtonj exch def %xtonj=0,5

0 1 7 {/j exch def %j=0,7
       /itonj xtonj 8 mul j add def
       xtonj 0 eq {/jx 648 j 09 mul add def} if %see O00Y-O83Y, -0
       xtonj 1 eq {/jx 720 j 81 mul sub def} if %see Y00L-Y83L, -81
       xtonj 2 eq {/jx 072 j        add def} if %see L00C-L83C, +01
       xtonj 3 eq {/jx 080 j 09 mul sub def} if %see C00V-C83V, -09
       xtonj 4 eq {/jx 008 j 81 mul add def} if %see C00V-C83V, -81
       xtonj 5 eq {/jx 656 j        sub def} if %see C00V-C83V, +01
       
       LUTL*64a itonj LAB*Lja jx get put
       LUTA*64a itonj LAB*aja jx get put
       LUTB*64a itonj LAB*bja jx get put
       LUTC*64a itonj LUTA*64a itonj get dup mul
                      LUTB*64a itonj get dup mul add 0.0001 add sqrt put
       LUTH*64a itonj LUTB*64a itonj get
                      LUTA*64a itonj get 0.0001 add atan put
       RGBOLV*640 itonj RGB0 jx 3 mul       get 0.001 mul put
       RGBOLV*641 itonj RGB0 jx 3 mul 1 add get 0.001 mul put
       RGBOLV*642 itonj RGB0 jx 3 mul 2 add get 0.001 mul put

       /xolv3 RGBOLV*640 itonj get  30 cos mul
              RGBOLV*641 itonj get 150 cos mul add def
       /yolv3 RGBOLV*642 itonj get neg 
              RGBOLV*640 itonj get  30 sin mul add
              RGBOLV*641 itonj get 150 sin mul add def
       holv*64a itonj yolv3 xolv3 0.0001 add atan put
       OLVhab64 itonj LUTB*64a itonj get
                      LUTA*64a itonj get 0.0001 add atan put
      } for %j=0,7

      } for %xtonj=0,5

/OLVhab08 8 array def
0 1 5 {/j exch def %j=0,6 %no. 6 for interpolation
       OLVhab08 j OLVhab64 j 8 mul get put
      } for %j=0,6
OLVhab08 6 OLVhab08 0 get 360 add put
OLVhab08 7 OLVhab08 1 get 360 add put

/OLVhab08d 8 array def
0 1 6 {/j exch def %j=0,6
       OLVhab08d j OLVhab08 j 1 add get OLVhab08 j get sub put
      } for

0 1 15 {/j exch def %j=0,15 %for interpolation 0<LAB*hab<OLV*hab70(0)
        LUTL*64a 48 j add LUTL*64a j get put
        LUTA*64a 48 j add LUTA*64a j get put
        LUTB*64a 48 j add LUTB*64a j get put
        LUTC*64a 48 j add LUTC*64a j get put
        LUTH*64a 48 j add LUTH*64a j get 360 add put
        
        OLVhab64 48 j add OLVhab64 j get 360 add put
        holv*64a   48 j add holv*64a   j get put
        RGBOLV*640 48 j add RGBOLV*640 j get put
        RGBOLV*641 48 j add RGBOLV*641 j get put
        RGBOLV*642 48 j add RGBOLV*642 j get put
       } for %j=0,15
40 1 47 {/j exch def %j=40,47
         OLVhab64 j get OLVhab64 0 get le
         {OLVhab64 j OLVhab64 j get 360 add put} if
         LUTH*64a j get LUTH*64a 0 get le
         {LUTH*64a j LUTH*64a j get 360 add put} if
         holv*64a j get holv*64a 0 get le
         {holv*64a j holv*64a j get 360 add put} if
        } for %j=40,47


%rgb -> olv* and output
0 setgray
/ymax3t 6800 def
/ydel2   250 def
/ydel2t  300 def
/xton 150 def

100 ymax3t 950 add moveto TBGGT (Interpretation) show

RGBOLVL 0 eq RGBOLVL 2 eq or {%RGBOLVL=0,2
TBIGGT ( rgb -> rgb*) show TBGGT
( and CIELAB data of a 48 step elementary hue circle) showen
(\255 und CIELAB\255Daten von einem 48\255stufigem Elementar255Bunttonkreis) showde
              }%RGBOLVL=0,2
              {%RGBOLVL=1,3
TBIGGT ( rgb -> olv*) show TBGGT
( and CIELAB data of a 48 step device hue circle) showen
(\255 und CIELAB\255Daten von einem 48\255stufigem Ger\344te\255Bunttonkreis) showde
              } ifelse %RGBOLVL=1,3
                             
100 ymax3t 700 add moveto
(for a sRGB standard display with the luminance reflection) showen
(f\374r sRGB\255Normdisplay mit der Leuchtdichte\255Reflexion) showde
TBIGGT ( L) show (r) ishowGT
TBGGT (=) show Lrefl xcharti get show
( compared to the white reference (100%)) showen
( verglichen mit der weissen Referenz (100%)) showde

TBGGT
100 ymax3t 400 add moveto
RGBOLVL 0 eq RGBOLVL 2 eq or {%RGBOLVL=0,2
(48 step elementary hue circle with hues:) showen
(48\255stufiger Elementar\255Bunttonkreis mit Buntton:) showde
TBIGGT
1 0 0 setrgbcolor ( R) show
0 0 0 setrgbcolor (J) show
0 1 0 setrgbcolor (G) show
0 0 1 setrgbcolor (B) show
0 0 0 setrgbcolor (:) show
( h) show (ab,a) ishowGT
TBGGT
( = ) show
RJGB0 cvsshow1 (, ) show
RJGB1 cvsshow1 (, ) show
RJGB2 cvsshow1 (, ) show
RJGB3 cvsshow1 (, ) show
(and ) showen
(und ) showde

/CeGB RJGB2 RJGB3 add 0.5 mul def
/MeBR RJGB3 RJGB0 360 add add 0.5 mul dup 360 ge {360 sub} if def

TBIGGT
0 1 1 setrgbcolor
(C' ) show
TBIGGT
1 0 1 setrgbcolor
(M') show
0 0 0 setrgbcolor
TBGGT
( = ) show
CeGB cvsshow1 (, ) show
MeBR cvsshow1

TBGGT
100 ymax3t 150 add moveto
(comparison with six device hues) showen
(Vergleich mit sechs Ger\344te\255Buntt\366nen) showde
TBIGGT
1 0 0 setrgbcolor ( O) show
0 0 0 setrgbcolor (Y) show
0 1 0 setrgbcolor (L) show
0 1 1 setrgbcolor (C) show
0 0 1 setrgbcolor (V) show
1 0 1 setrgbcolor (M) show
0 0 0 setrgbcolor (:) show
( h) show (ab,a) ishowGT
TBGGT
( = ) show
0 1 5 {/k exch def %k=0,5=OYLCVM
       /k8 k 8 mul def
       OLVhab64 k8 get cvsshow1 k 4 le {(, ) show} if
      } for %k=0,5
              }%RGBOLVL=0,2
              {%RGBOLVL=1,3
(48 step device hue circle with six device hues) showen
(48\255stufiger Ger\344te\255Bunttonkreis mit 6 Ger\344te\255Buntt\366nen) showde
TBIGGT
1 0 0 setrgbcolor ( O) show
0 0 0 setrgbcolor (Y) show
0 1 0 setrgbcolor (L) show
0 1 1 setrgbcolor (C) show
0 0 1 setrgbcolor (V) show
1 0 1 setrgbcolor (M) show
0 0 0 setrgbcolor (:) show
( h) show (ab,a) ishowGT
TBGGT
( = ) show

0 8 40 {/xtonl exch def %xtonl=0,40,8
        OLVhab64 xtonl get cvsshow1
        xtonl 40 lt {(, ) show} if
       } for %xtonl=0,40,8

TBGGT
100 ymax3t 150 add moveto
(comparison with four elementary hues) showen
(Vergleich mit vier Elementar\255Buntt\366nen) showde
TBIGGT
1 0 0 setrgbcolor ( R) show
0 0 0 setrgbcolor (J) show
0 1 0 setrgbcolor (G) show
0 0 1 setrgbcolor (B) show
0 0 0 setrgbcolor (:) show
( h) show (ab,a) ishowGT
TBGGT
( = ) show
RJGB0 cvsshow1 (, ) show
RJGB1 cvsshow1 (, ) show
RJGB2 cvsshow1 (, ) show
RJGB3 cvsshow1 (, ) show
(and ) showen
(und ) showde

/CeGB RJGB2 RJGB3 add 0.5 mul def
/MeBR RJGB3 RJGB0 360 add add 0.5 mul dup 360 ge {360 sub} if def

TBIGGT
0 1 1 setrgbcolor
(C' ) show
TBIGGT
1 0 1 setrgbcolor
(M') show
0 0 0 setrgbcolor
TBGGT
( = ) show
CeGB cvsshow1 (, ) show
MeBR cvsshow1
              } ifelse %RGBOLVL=1,3

%************************************************************************
%Begin 9 grey steps

%999-1007 9 step grey scale rgb*
%LAB*Lja, LAB*Lj
%LAB*aja, LAB*aj
%LAB*bja, LAB*bj

0 1 8 {/jj exch def  %jj=0,8 %rgb-input and LAB*a-output
       LNWton09 jj LAB*Lj 999 jj add get put
      } for %jj=0,8

/L*N LNWton09 0 get def
/L*W LNWton09 8 get def
0 1 8 {/j exch def %j=0,8
       L*ton j L*N  L*W L*N sub j 0.125 mul mul add put
      } for %j=0,8

TBGGT
100 ymax3t 100 sub moveto
(9 step equidistant grey scale:) showen
(9\255stufige gleichabst\344ndige Graureihe:) showde
TBIGGT
( L*) show
TBGGT
( = ) show
0 1 8 {/j exch def %j=0,8
       L*ton j get cvsshow1 j 7 le {(, ) show} if
      } for %j=0,8
TGT
%*********************************************************************

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

ivar 0 eq {/jm 1.7 def}
          {/jm 11.7 def} ifelse

/jx ivar 0 eq {2.5 def}
              {2.5 def} ifelse %color series title text

/xlistu*Ma xton jm 1.8 sub xdel2 mul add def

/xlisthrgbMa xton jm 0.5 sub xdel2 mul add def

/xlistLAB*L*Ma xton jm 0.4 add xdel2 mul add def
/xlistLAB*a*Ma xton jm 1.2 add xdel2 mul add def
/xlistLAB*b*Ma xton jm 2.1 add xdel2 mul add def
/xlistLAB*C*Ma xton jm 3.1 add xdel2 mul add def

/xlistLAB*H*Ma xton jm 4 add xdel2 mul add def
/xlistRGBOLV*tx xton jm 5 add xdel2 mul add def

%allways
xlistu*Ma ymax3t jx ydel2 mul sub ydel2 add moveto
RGBOLVL 0 eq RGBOLVL 2 eq or {TBIGT (u*) show (Ma) ishowGT}
                             {TBIGT (d) show (Ma) ishowGT} ifelse

xlisthrgbMa ymax3t jx ydel2 mul sub ydel2 add moveto
TBIGT (h) show (rgb) ishowGT

xlistLAB*L*Ma ymax3t jx ydel2 mul sub ydel2 add moveto
LABOLVL 0 eq {%LABOLVL=0
TBGT ([) show
TBIGT (L*, a*, b*, C*) show (ab) ishowGT
TBIGT (, h) show (ab) ishowGT
TBGT (]) show 
RGBOLVL 0 eq RGBOLVL 2 eq or {(Ma,e) ishowGT}
                             {(Ma,d) ishowGT} ifelse
             }%LABOLVL=0
             {%LABOLVL=1
RGBOLVL 0 eq RGBOLVL 2 eq or {TBIGT (olv*) show (Ma) ishowGT}
                             {TBIGT (rgb*) show (Ma) ishowGT} ifelse
             } ifelse %LABOLVL=1

%xlistLAB*a*Ma ymax3t jx ydel2 mul sub ydel2 add moveto
%TBIGT (a*) show (Mae) ishowGT
%xlistLAB*b*Ma ymax3t jx ydel2 mul sub ydel2 add moveto
%TBIGT (b*) show (Mae) ishowGT

LABOLVL 1 eq {%LABOLVL=1
xlistLAB*C*Ma 100 sub ymax3t jx ydel2 mul sub ydel2 add moveto
TBIGT (A1/A2) show
             } if %LABOLVL=1

%xlisthMa 50 add ymax3t jx ydel2 mul sub ydel2 add moveto
%TBIGT (h) show (Mae) ishowGT

xlistRGBOLV*tx ymax3t jx ydel2 mul sub ydel2 add moveto
RGBOLVL 0 eq RGBOLVL 2 eq or
{(rgb -> rgb*) show (Ma) ishowGT TGT}
{(rgb -> olv*) show (Ma) ishowGT TGT} ifelse

} for %ivar=0,1

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

TGT
00 1 47 {/j exch def %j=0,47

j 23 le {/jm 1.7 def}
        {/jm 11.7 def} ifelse

j 23 le {/jx 2.7 j 1 mul add def}
        {/jx 2.7 j 24 sub 1 mul add def} ifelse

        j 08 ge j 15 le and {/jx jx 0.5 add def} if
        j 16 ge j 23 le and {/jx jx 1.0 add def} if

        j 32 ge j 39 le and {/jx jx 0.5 add def} if
        j 40 ge j 47 le and {/jx jx 1.0 add def} if

/xlistu*Ma xton jm 1.8 sub xdel2 mul add def
/xlisthrgbMa xton jm 0.5 sub xdel2 mul add def

/xlistLAB*L*Ma xton jm 0.4 add xdel2 mul add def
/xlistLAB*a*Ma xton jm 1.2 add xdel2 mul add def
/xlistLAB*b*Ma xton jm 2.1 add xdel2 mul add def
/xlistLAB*C*Ma xton jm 3.1 add xdel2 mul add def

/xlistLAB*H*Ma xton jm 4 add xdel2 mul add def
/xlistRGBOLV*tx xton jm 5 add xdel2 mul add def


RGBOLVL 0 eq {%RGBOLVL=0 %Interpretation rgb->rgb* (0,2)
/LAB*hMa RGBhab64 j get def %range 0<=LAB*hab<360 for j=0,47

/LAB*hMaP LAB*hMa def
LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if

/joj -1 def
0 1 62 {/jj exch def %jj=1,62
        /habton0 OLVhab64 jj       get def
        /habton1 OLVhab64 jj 1 add get def
        LAB*hMaP habton0 ge
        LAB*hMaP habton1 lt and 
                 {/joj jj def
                  exit
                 } if
        } for %jj=0,62
joj -1 eq {%output in case of data failure
           -100 -100 rmoveto (STOPjoj=-1) show
           (, ) show jj cvishow
           (, ) show LAB*hMaP cvsshow1
           (, ) show OLVhab64 jj get cvsshow1
           (, ) show OLVhab64 jj 1 add get cvsshow1
          } if
          
        } if %RGBOLVL=0

RGBOLVL 1 eq {%RGBOLVL=1 %Interpretation rgb->olv* (1,3)

/LAB*hMa OLVhab64 j get def %range 0<=LAB*hab<360 for j=0,47

/LAB*hMaP LAB*hMa def
LAB*hMa RGBhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if

/jrj -1 def
0 1 62 {/jj exch def %jj=1,62
        /habton0 RGBhab64 jj       get def
        /habton1 RGBhab64 jj 1 add get def
        LAB*hMaP habton0 ge
        LAB*hMaP habton1 lt and
                 {/jrj jj def
                  exit
                 } if
        } for %jj=0,63
jrj -1 eq {%output in case of data failure
           -100 -100 rmoveto (STOPjrj=-1) show
           (, ) show jj cvishow
           (, ) show LAB*hMaP cvsshow1
           (, ) show OLVhab64 jj get cvsshow1
           (, ) show OLVhab64 jj 1 add get cvsshow1
          } if

        } if %RGBOLVL=1
        
RGBOLVL 2 eq {%RGBOLVL=2 %Interpretation rgb->rgb* (0,2)
/LAB*hMa RGBhab64 j get def %range 0<=LAB*hab<360 for j=0,47

/LAB*hMaP LAB*hMa def
LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if

/joj -1 def
0 1 62 {/jj exch def %jj=1,62
        /habton0 OLVhab64 jj       get def
        /habton1 OLVhab64 jj 1 add get def
        LAB*hMaP habton0 ge
        LAB*hMaP habton1 lt and 
                 {/joj jj def
                  exit
                 } if
        } for %jj=0,62
joj -1 eq {%output in case of data failure
           -100 -100 rmoveto (STOPjoj=-1) show
           (, ) show jj cvishow
           (, ) show LAB*hMaP cvsshow1
           (, ) show OLVhab64 jj get cvsshow1
           (, ) show OLVhab64 jj 1 add get cvsshow1
          } if
          
        } if %RGBOLVL=2

RGBOLVL 3 eq {%RGBOLVL=3 %Interpretation rgb->olv* (1,3)
/delOLV  OLVhab64 j 1 add get OLVhab64 j get sub 0.0001 mul def
/LAB*hMa OLVhab64 j get delOLV add def %range 0<=LAB*hab<360 for j=0,47

/LAB*hMaP LAB*hMa def
LAB*hMa OLVhab64 0 get lt {/LAB*hMaP LAB*hMa 360 add def} if

/jrj -1 def
0 1 62 {/jj exch def %jj=1,62
        /habton0 OLVhab64 jj       get def
        /habton1 OLVhab64 jj 1 add get def
        LAB*hMaP habton0 ge
        LAB*hMaP habton1 lt and
                 {/jrj jj def
                  exit
                 } if
        } for %jj=0,63
jrj -1 eq {%output in case of data failure
           -100 -100 rmoveto (STOPjrj=-1) show
           (, ) show jj cvishow
           (, ) show LAB*hMaP cvsshow1
           (, ) show OLVhab64 jj get cvsshow1
           (, ) show OLVhab64 jj 1 add get cvsshow1
          } if

        } if %RGBOLVL=3

/A2 LAB*hMaP habton0 sub habton1 habton0 sub div def
/A1 1 A2 sub def

/jxj RGBOLVL 0 eq RGBOLVL 2 eq  or {joj} {jrj} ifelse def
/LAB*L*Ma LUTL*64a jxj get       A1 mul
          LUTL*64a jxj 1 add get A2 mul add def

/LAB*C*Ma LUTC*64a jxj get       A1 mul
          LUTC*64a jxj 1 add get A2 mul add def

/LAB*H*Ma LUTH*64a jxj get       A1 mul
          LUTH*64a jxj 1 add get A2 mul add def

/LAB*a*Ma LAB*C*Ma LAB*H*Ma cos mul def
/LAB*b*Ma LAB*C*Ma LAB*H*Ma sin mul def

/o3*Ma RGBOLV*640 jxj       get A1 mul
       RGBOLV*640 jxj 1 add get A2 mul add def
/l3*Ma RGBOLV*641 jxj       get A1 mul
       RGBOLV*641 jxj 1 add get A2 mul add def
/v3*Ma RGBOLV*642 jxj       get A1 mul
       RGBOLV*642 jxj 1 add get A2 mul add def

/LAB*L*M LAB*L*Ma def
/l*CIE LAB*L*Ma L*Nio sub
       L*Wio L*Nio sub div def %relative lightness
/LAB*C*Ma LAB*a*Ma dup mul LAB*b*Ma dup mul add 0.00001 add sqrt def

%adapted XYZMa of maxumum colors Ma
/X* {LAB*L*Ma 16 add 116 div
     LAB*a*Ma 500 div add} bind def
/Y* {LAB*L*Ma 16 add 116 div} bind def
/Z* {LAB*L*Ma 16 add 116 div
     LAB*b*Ma 200 div sub} bind def
/XMa X* DecodeXYZ* XLWD65100 mul def
/YMa Y* DecodeXYZ* YLWD65100 mul def
/ZMa Z* DecodeXYZ* ZLWD65100 mul def

%XYZM of maximum colors M
/a*s A*Wio A*Nio sub l*CIE mul def
/b*s B*Wio B*Nio sub l*CIE mul def
/LAB*a*M LAB*a*Ma a*s add A*Nio add def
/LAB*b*M LAB*b*Ma b*s add B*Nio add def
/X* {LAB*L*M 16 add 116 div
     LAB*a*M 500 div add} bind def
/Y* {LAB*L*M 16 add 116 div} bind def
/Z* {LAB*L*M 16 add 116 div
     LAB*b*M 200 div sub} bind def
/XM X* DecodeXYZ* XLWD65100 mul def
/YM Y* DecodeXYZ* YLWD65100 mul def
/ZM Z* DecodeXYZ* ZLWD65100 mul def

%relative chroma c*3, blackness n*3, brilliance i*3
/minMa o3*Ma def
l3*Ma minMa lt {/minMa l3*Ma def} if
v3*Ma minMa lt {/minMa v3*Ma def} if
/maxMa o3*Ma def
l3*Ma maxMa gt {/maxMa l3*Ma def} if
v3*Ma maxMa gt {/maxMa v3*Ma def} if
/i*3 maxMa def
/c*3 maxMa minMa sub def
/n*3 1 i*3 sub def

%CIE lightness and chroma of colour Fa
%See equations (1) to (4) of www.ps.bam.de/D33872-AE.PDF, Page 10
/t*3 i*3 c*3 0.5 mul sub def
/l*3 t*3 c*3 LAB*L*Ma L*Nio sub L*Wio L*Nio sub div 0.5 sub mul add def
/LAB*L*Fa l*3 L*Wio L*Nio sub mul L*Nio add def
/LAB*C*Fa LAB*C*Ma c*3 mul def

RGBOLVL 0 eq
RGBOLVL 2 eq or
{%interpretation as rgb*3 first, above interpolation of olv*3
              /r*3Ma RGBOLV*640 j get def
              /g*3Ma RGBOLV*641 j get def
              /b*3Ma RGBOLV*642 j get def

              /o*3Ma o3*Ma def
              /l*3Ma l3*Ma def
              /v*3Ma v3*Ma def
             }
             {%interpretation as olv*3 first, above interpolation of rgb*3
              /o*3Ma RGBOLV*640 j get def
              /l*3Ma RGBOLV*641 j get def
              /v*3Ma RGBOLV*642 j get def
              
              /r*3Ma o3*Ma def
              /g*3Ma l3*Ma def
              /b*3Ma v3*Ma def
             } ifelse

%/rgbtoni 0 def /olvtoni 0 def %dummy used for tests

%for output of data for colours Ma and Fa
LAB*hMa 360 ge {/LAB*hMa LAB*hMa 360 sub def} if
/LAB*hFa LAB*hMa def

/jno -1 def %dummy
0 1 5 {/jn5 exch def %j=0,5
       /jend 0 def
       LAB*hMa OLVhab08 jn5 get ge
       LAB*hMa OLVhab08 jn5 1 add get lt and
         {/jno jn5 def
          /jend 1 def
         } if
       jend 1 eq {/olvtoni jno def
                  /olvtonr LAB*hMa OLVhab08 jno get sub
                  OLVhab08d jno get div def %0..1
                  exit} if
      } for %j=0,5
      
jno -1 eq {%jno=-1
           /LAB*hMaP LAB*hMa 360 add def
           0 1 5 {/jn5 exch def %j=0,5
                  /jend 0 def
                  LAB*hMaP OLVhab08 jn5 get ge
                  LAB*hMaP OLVhab08 jn5 1 add get lt and
                   {/jno jn5 def
                    /jend 1 def
                   } if
                  jend 1 eq {/olvtoni jno def
                             /olvtonr LAB*hMaP OLVhab08 jno get sub
                             OLVhab08d jno get div def %0..1
                  exit} if
                 } for %j=0,5
          } if %jno=-1

/jnr -1 def %dummy
0 1 5 {/jn5 exch def %j=0,5
       /jend 0 def
       LAB*hMa RGBhab08 jn5 get ge
       LAB*hMa RGBhab08 jn5 1 add get lt and
         {/jnr jn5 def
          /jend 1 def
         } if
       jend 1 eq {/rgbtoni jnr def
                  /rgbtonr LAB*hMa RGBhab08 jnr get sub
                  RGBhab08d jnr get div def %0..1
                  exit} if
      } for %j=0,5
      
jnr -1 eq {%jnr=-1
           /LAB*hMaP LAB*hMa 360 add def
           0 1 5 {/jn5 exch def %j=0,5
                  /jend 0 def
                  LAB*hMaP RGBhab08 jn5 get ge
                  LAB*hMaP RGBhab08 jn5 1 add get lt and
                   {/jnr jn5 def
                    /jend 1 def
                   } if
                  jend 1 eq {/rgbtoni jnr def
                             /rgbtonr LAB*hMaP RGBhab08 jnr get sub
                             RGBhab08d jnr get div def %0..1
                  exit} if
                 } for %j=0,5
          } if %jnr=-1

/xolv3 r*3Ma 30 cos mul g*3Ma 30 cos mul sub def
/yolv3 b*3Ma neg r*3Ma 30 sin mul g*3Ma 150 sin mul add add def
/hrgbMa yolv3 xolv3 0.0001 add atan def

%/hrgbMa2 30 rgbtoni 60 mul add rgbtonr 60 mul add def
%hrgbMa2 360 ge {/hrgbMa2 hrgbMa2 360 sub def} if


TGT
/ix 0 def
/ylistm ymax3t jx ydel2 mul sub def

xlistu*Ma ix add ylistm moveto
RGBOLVL 0 eq RGBOLVL 2 eq or {RGB64 j get show}
                             {OLV64 j get show} ifelse

xlisthrgbMa ix add ylistm moveto holv*64a j get cvsshow1

LABOLVL 0 eq {%LABOLVL=0
xlistLAB*L*Ma ix add ylistm moveto LAB*L*Ma cvsshow1
xlistLAB*a*Ma ix add ylistm moveto LAB*a*Ma cvsshow1
xlistLAB*b*Ma ix add ylistm moveto LAB*b*Ma cvsshow1
xlistLAB*C*Ma ix add ylistm moveto LAB*C*Ma cvsshow1
xlistLAB*H*Ma ix add ylistm moveto 
              LAB*H*Ma 360 lt {LAB*H*Ma}
                              {LAB*H*Ma 360 sub} ifelse
              cvsshow1
             }%LABOLVL=0
             {%LABOLVL=1
xlistLAB*L*Ma ix add ylistm moveto o3*Ma cvsshow3
xlistLAB*a*Ma ix add ylistm moveto l3*Ma cvsshow3
xlistLAB*b*Ma ix add ylistm moveto v3*Ma cvsshow3
xlistLAB*C*Ma ix add ylistm moveto A1 cvsshow3
xlistLAB*H*Ma ix add ylistm moveto A2 cvsshow3
             } ifelse %LABOLVL=1

xlistRGBOLV*tx   ix add ylistm moveto RGBOLV*64tx j get show

} for %j=0,47 %j=0,47 %48 hue steps

%************************************************************************
50 setlinewidth

0 1 46 {/j exch def %j=0,47

        j 23 le {/jm 1.7 def}
                {/jm 11.7 def} ifelse

        j 23 le {/jx 3.0 j 1 mul add def}
                {/jx 3.0 j 24 sub 1 mul add def} ifelse

        j 08 ge j 15 le and {/jx jx 0.5 add def} if
        j 16 ge j 23 le and {/jx jx 1.0 add def} if

        j 32 ge j 39 le and {/jx jx 0.5 add def} if
        j 40 ge j 47 le and {/jx jx 1.0 add def} if
        
        RGBOLVL 0 eq
        RGBOLVL 2 eq or
        {%RGBOLVL=0
        0 1 5 {/k exch def %k=0,5=OYLCVM
        /k8 k 8 mul def
        TBIGGT
        RGBhab64 j       get OLVhab64 k8 get le
        RGBhab64 j 1 add get OLVhab64 k8 get gt and
        {xton jm 1.8 sub xdel2 mul add ymax3t jx ydel2 mul sub moveto
         k 1 eq {70 setlinewidth
                 0 0 0 setrgbcolor
                 5540 0 rlineto stroke
                 xton jm 1.8 sub xdel2 mul add ymax3t jx ydel2 mul sub moveto
                } if
         50 setlinewidth
         k 0 eq {1 0 0 setrgbcolor} if
         k 1 eq {1 1 0 setrgbcolor} if
         k 2 eq {0 1 0 setrgbcolor} if
         k 3 eq {0 1 1 setrgbcolor} if
         k 4 eq {0 0 1 setrgbcolor} if
         k 5 eq {1 0 1 setrgbcolor} if
         5450 0 rlineto stroke
         xton jm 1.8 sub xdel2 mul add 5600 add ymax3t jx ydel2 mul sub 50 sub moveto 
         k 0 eq {(O) show} if
         k 1 eq {0 0 0 setrgbcolor (Y) show} if
         k 2 eq {(L) show} if
         k 3 eq {(C) show} if
         k 4 eq {(V) show} if
         k 5 eq {(M) show} if
        } if
         
         } for %k=0,5=OYLCVM
         } if %RGBOLVL=0,2

        RGBOLVL 1 eq 
        RGBOLVL 3 eq or
        {%RGBOLVL=1,3
        0 1 6 {/k exch def %k=0,6=RJGC'BM'R
        /k8 k 8 mul def
        TBIGGT
        OLVhab64 j       get RGBhab64 k8 get le 
        OLVhab64 j 1 add get RGBhab64 k8 get gt and
        {xton jm 1.8 sub xdel2 mul add ymax3t jx ydel2 mul sub moveto
         k 1 eq {70 setlinewidth
                 0 0 0 setrgbcolor
                 5540 0 rlineto stroke
                 xton jm 1.8 sub xdel2 mul add ymax3t jx ydel2 mul sub moveto
                } if
         50 setlinewidth
         k 0 eq {1 0 0 setrgbcolor} if
         k 1 eq {1 1 0 setrgbcolor} if
         k 2 eq {0 1 0 setrgbcolor} if
         k 3 eq {0 1 1 setrgbcolor} if
         k 4 eq {0 0 1 setrgbcolor} if
         k 5 eq {1 0 1 setrgbcolor} if
         k 6 eq {1 0 0 setrgbcolor} if
         5450 0 rlineto stroke
         xton jm 1.8 sub xdel2 mul add 5600 add ymax3t jx ydel2 mul sub 50 sub moveto 
         k 0 eq {(R) show} if
         k 1 eq {0 0 0 setrgbcolor (J) show} if
         k 2 eq {(G) show} if
         k 3 eq {(C') show} if
         k 4 eq {(B) show} if
         k 5 eq {(M') show} if
         k 6 eq {(R) show} if
         } if
         
         } for %k=0,6=RJGC'BM'R
         } if %RGBOLVL=1,3
         
       } for %j=0,47

  xchartl    0 eq {  100 neg 13000 neg translate} if
  xchartl    1 eq { 6200 neg 13000 neg translate} if
  xchartl    2 eq {  100 neg 08750 neg translate} if
  xchartl    3 eq { 6200 neg 08750 neg translate} if

  xchartl    4 eq {  100 neg  4500 neg translate} if
  xchartl    5 eq { 6200 neg  4500 neg translate} if
  xchartl    6 eq {  100 neg  0250 neg translate} if
  xchartl    7 eq { 6200 neg  0250 neg translate} if

  xchartl    8 eq {12800 neg 13000 neg translate} if
  xchartl    9 eq {18900 neg 13000 neg translate} if
  xchartl   10 eq {12800 neg 08750 neg translate} if
  xchartl   11 eq {18900 neg 08750 neg translate} if

  xchartl   12 eq {12800 neg  4500 neg translate} if
  xchartl   13 eq {18900 neg  4500 neg translate} if
  xchartl   14 eq {12800 neg  0250 neg translate} if
  xchartl   15 eq {18900 neg  0250 neg translate} if

} for %end xchart=00,3

showpage
grestore

%} for %end REFLECL=0,0

%%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 KE880-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     (KE880-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 KE881-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     (KE881-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 KE881-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     (KE881-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 KE881-3,
%%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     (KE881-3,) 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 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 KE881-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     (KE881-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 KE881-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     (KE881-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 KE881-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     (KE881-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 KE881-7,
%%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     (KE881-7,) 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 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 KE881-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     (KE881-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 DG02 20100601
%%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

1.0 1.0  scale

0.0 MM 0.0 MM translate

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
/RGBOLVG 0 def %Interpretation rgb->rgb* (0,2) or rgb->olv* (1,3)
/LABOLVG 0 def %Output for:
               %LABOLVG=0 LAB,d (RGBOLVG=0,3), LAB,e (RGBOLVG=1,2)
               %LABOLVG=1 olv*  (RGBOLVG=0,3), rgb*  (RGBOLVG=1,2)
/REFLECG 0 def %REFLECG=0 (0 to 2,5%), REFLECG=1 (5 to 40%)

12 /Times-ISOL1 FS
61 MM 13 MM  moveto
(TUB\255Pr\374fvorlage KE88) showde
(TUB\255test chart KE88) showen

RGBOLVG 0 eq RGBOLVG 2 eq or {%RGBOLVG=0,2
(; 48\255stufiger sRGB\255Elementar\255Bunttonkreis) showde
(; 48 step sRGB elementary hue circle) showen
             }%RGBOLVG=0,2
             {%RGBOLVG=1,3
(; 48\255stufiger sRGB\255Ger\344te\255Bunttonkreis) showde
(; 48 step sRGB device hue circle) showen
             } ifelse %RGBOLVG=1,3

12 /Times-ISOL1 FS
61 MM 09 MM  moveto
(Interpretation) showde
(Interpretation) showen
12 /TimesI-ISOL1 FS
RGBOLVG 0 eq RGBOLVG 2 eq or {( rgb -> rgb* ) show} 
                             {( rgb -> olv* ) show} ifelse
12 /Times-ISOL1 FS
( und) showde
( and) showen
LABOLVG 0 eq {12 /Times-ISOL1 FS
              ( CIELAB) show
              12 /Times-ISOL1 FS
              (-Daten von Farben Ma) showde
              ( data of colours Ma) showen
              RGBOLVG 0 eq RGBOLVG 3 eq or {(,d)} {(,e)} ifelse
             }
             {12 /TimesI-ISOL1 FS
              RGBOLVG 0 eq RGBOLVG 3 eq or
              {( olv*) show}{( rgb*) show} ifelse
              12 /Times-ISOL1 FS
              (-Daten von Farben Ma) showde
              ( data of colours Ma) showen
              RGBOLVG 0 eq RGBOLVG 3 eq or {(,d)} {(,e)} ifelse
            } ifelse

%1 setgray %start white and unvisible
%140 MM 13 MM moveto
%lanindg 0 eq {(Stufe: ) show}{(Step: ) show} ifelse
%LSC$ (N) eq  {(S1) show} {(S2) show} ifelse
%0 setgray %end white and unvisible

172 MM 13 MM moveto
(input: ) show
12 /Times-Italic FS
RGBOLVG 0 eq RGBOLVG 2 eq or {(rgb->rgb* setrgbcolor) show}
                             {(rgb->olv* setrgbcolor) show} ifelse

12 /Times-ISOL1 FS
172 MM 9 MM moveto
(output: ) show

12 /Times-Italic FS
LSC$ (N) eq {
(no change compared to input) show
            } if

%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/KE88/KE88L) 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
12 /Times-ISOL1 FS
(; Reflexion) showde
(; Reflection) showen
12 /TimesI-ISOL1 FS
(; Lr) show
12 /Times-ISOL1 FS
(=) show
REFLECG 0 eq {(0 bis 2,5%) showde (0 to 2,5%) showen}
             {(5 bis 40%)  showde (5 to 40%)  showen} ifelse

 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
(KE88/KE88L) 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
(, Page ) showen
(, Seite ) showde
(1/1) show

 16 MM 185 MM moveto
-90 rotate
(Siehe Original/Kopie: ) showde
(See original or copy: ) showen
(http://web.me.com/klaus.richter/KE88/KE88L) 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: 20100601\255KE88/KE88L) showde
(TUB registration: 20100601\255KE88/KE88L) showen
(TUB registration: 20100601\255KE88/KE88L) showes
(TUB registration: 20100601\255KE88/KE88L) showfr
(TUB registration: 20100601\255KE88/KE88L) showit
(TUB registration: 20100601\255KE88/KE88L) showjp
(TUB registration: 20100601\255KE88/KE88L) showm
(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
(TUB material: code=rha4ta) showes
(TUB material: code=rha4ta) showfr
(TUB material: code=rha4ta) showit
(TUB material: code=rha4ta) showjp
(TUB material: code=rha4ta) showm
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