%!PS-Adobe-3.0 EPSF-3.0 fgl6F0NA.PS/FNIX_FRAME_DEH.PS, OK0X_FRAME_DH 240301
%%BoundingBox: 0 0 842 595

/pdfmarkF where {pop} {userdict /pdfmarkF /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://farbe.li.tu-berlin.de/fgl6/fgl6.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2024030112000)
 /ModDate (D:20240301112000)
/DOCINFO pdfmarkF
[ /View [ /Fit ]
/DOCVIEW pdfmarkF

%line 20
%Early definition of FF_LM_setgrayF0 identical to former setgray

/FF_LM_setgrayF0 {setgray} bind def
/FF_LM_setrgbcolorF0 {setrgbcolor} bind def
/FF_LM_setcmykcolorF0 {setcmykcolor} bind def
/FF_LM_transferF0 {settransfer} bind def
/FF_LM_colortransferF0 {setcolortransfer} bind def
/FF_LM_xchart_gammaF {/xchart where {pop /xchartN xchart 8 idiv def
                                         /xchartP xchart
                                         xchart 8 idiv 8 mul sub def}
                                    {/xchartN 2.0 def %default
                                     /xchartP 0.5 def} ifelse
                      /gammaF 2.4 xchartP 0.18 mul sub 2.4 div
                            1 2.4 xchartN 0.18 mul sub 2.4 div div mul def
                       gammaF exp 0.8 mul
                      } def

/FF_LM_setrgbcolorF {%FF_LM_setrgbcolorF
                     /FF_LM_b0L exch def /FF_LM_g0L exch def
                     /FF_LM_r0L exch def
                     FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if
                     FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if
                     FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if
                     /FF_LM_r1F FF_LM_r0L FF_LM_xchart_gammaF def
                     /FF_LM_g1F FF_LM_g0L FF_LM_xchart_gammaF def
                     /FF_LM_b1F FF_LM_b0L FF_LM_xchart_gammaF def
                     FF_LM_r1F FF_LM_g1F FF_LM_b1F
                     FF_LM_setrgbcolorF0
                    } def %FF_LM_setrgbcolorF

/FF_LM_transferF {{FF_LM_xchart_gammaF} FF_LM_transferF0} def

/FF_LM_colortransferF {{FF_LM_xchart_gammaF} {FF_LM_xchart_gammaF}
                       {FF_LM_xchart_gammaF} FF_LM_colortransferF0} def

%line 56 %BEG INCLUDE TRANSFERS
%BEG 1MR-0000F.TXT ************************************2011-06-01

/1MR-0000F {%BEG procedure 1MR-0000F
%1MR-Transform of setgray and setcmykcolor to FF_LM_setrgbcolorF
%Three procedures and use of the procedure FF_LM_setrgbcolorF of main FF

/setgray {%BEG procedure setgrayF
          dup dup FF_LM_setrgbcolorF
          %STOPs
         } def %END procedure setgrayF

/setcmykcolor {%BEG procedure setcmykcolorF
               /FF_LM_k exch def /FF_LM_y exch def
               /FF_LM_m exch def /FF_LM_c exch def
               FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub
                           1 FF_LM_y sub FF_LM_setrgbcolorF}
                          {1 FF_LM_k sub dup dup FF_LM_setrgbcolorF} ifelse
               %STOPc
              } def %END procedure setcmykcolorF

/setrgbcolor {%BEG procedure setrgbcolorF
              /FF_LM_b exch def /FF_LM_g exch def /FF_LM_r exch def
              FF_LM_r FF_LM_g FF_LM_b
              FF_LM_setrgbcolorF
              %STOPr
             } def %BEG procedure setrgbcolorF

/settransfer {FF_LM_transferF} def

/setcolortransfer {FF_LM_colortransferF} def

} def %END procedure 1MR-0000F

%END 1MR-0000F.TXT ************************************2011-06-01

%BEG 'OK0X'SEP-0000.TXT *********************************2011-04-01

%******************************************************************
%Empty: No color separation
%******************************************************************

%END 'OK0X'SEP-0000.TXT *********************************2011-04-01


%END INCLUDE TRANSFERS
%***********************************************************************************

%0 room to include more PS-Code
%1
%2
%3
%4
%5
%6
%7
%8
%9
%0
%1
%2
%3
%4
%5
%6
%7
%8
%9
%0
%1
%2
%3
%4
%5

/BeginEPSFF {% def              % Prepare for EPS file Global (G)
/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

/EndEPSFF {% def              % End for EPS file Global (G)
 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
/A4querF {598 0 translate 90 rotate} def


% !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I
 
/Times-Roman findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/Times-ISOL1 exch definefont pop
 
/Times-Italic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesI-ISOL1 exch definefont pop
 
/Times-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesB-ISOL1 exch definefont pop
 
/Times-BoldItalic findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end
/TimesBI-ISOL1 exch definefont pop
 
/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def
 
/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def


%***********************************************************
/r*d50M 50 array def
/r*d50M [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %R
        1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %J
        0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %G
        0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %C
        0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %B
        1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %M
        1.000 1.000
       ] def
/g*d50M 50 array def
/g*d50M [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %R
        1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %J
        1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %G
        1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %C
        0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %B
        0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %M
        0.000 0.125
       ] def
/b*d50M 50 array def
/b*d50M [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %R
        0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000 %J
        0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 %G
        1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %C
        1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000 %B
        1.000 0.875 0.750 0.625 0.500 0.375 0.250 0.125 %M
        0.000 0.000
       ] def
%***********************************************************
/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

/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

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

/proc_framef { %BEG proc_framef(_DH)

/MX {0.33 mul} def /10MXN {10 MX /Times-ISOL1 FS} def
/12MXN {12 MX /Times-ISOL1 FS} def /12MXI {12 MX /TimesI-ISOL1 FS} def
/lanind 1 def
/lantex [(G) (E) (S) (N) (I) (J) (M)] def
/showde {0 lanindf eq {show} {pop} ifelse} bind def
/showen {1 lanindf eq {show} {pop} ifelse} bind def
/showes {2 lanindf eq {show} {pop} ifelse} bind def
/showfr {3 lanindf eq {show} {pop} ifelse} bind def
/showit {4 lanindf eq {show} {pop} ifelse} bind def
/showjp {5 lanindf eq {show} {pop} ifelse} bind def
/showea {6 lanindf eq {show} {pop} ifelse} bind def

0 setgray
0.15 setlinewidth

/xframe1 003 def
/xframe2 292 def
/yframe1 001 def
/yframe2 207 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

/xtextf 1 def

xtextf 1 eq {%xtextf=1

xframe1 yframe1 moveto
xframe2 0 rlineto
0 yframe2 rlineto
xframe2 neg 0 rlineto
closepath stroke

4.5 1.8  moveto 12MXN
(fgl6/fgl6) show (l0n) show (a.pdf /.ps) show
(, Page ) showen (, Seite ) showde
xchartf xchartdf idiv pchartf20m 1 add mul
pchartf pchartf10 sub 1 add add cvishow (/) show
xchartf20m xchartdf idiv 1 add pchartf20m 1 add mul cvishow (, ) show
colormf 0 eq {(No FF_LM) showen
              (kein FF_LM) showde
              012 MX /Times-ISOL1 FS}
             {(FF_LM: ) show 12MXI
              xcolorf0 0 eq {(000n) show} if      xcolorf0 1 eq {(w) show} if
              xcolorf0 2 eq {(cmy0) show} if      xcolorf0 3 eq {(rgb) show} if
              xcolorf0 4 eq {(cmy0/rgb) show} if  xcolorf0 5 eq {(all) show} if
              (->rgb) show
              10MXN 0 -1 rmoveto (d) show 0 1 rmoveto 12MXN (; 1MR, DH) show
             } ifelse

/CYi [((288:1)) ((144:1)) ((72:1)) ((36:1)) ((18:1))
      ((9:1)) ((4,5:1)) ((2,25:1))] def
138 1.8 moveto
12MXI (C) show 10MXN 0 -0.5 rmoveto (Y) show
xchartdf 1 eq {8 xchartf sub}
              {(N) show 8 xchartf xchartdf idiv sub} ifelse
cvishow 0 0.5 rmoveto 
12MXN ( ) show CYi xchartf xchartdf idiv get show (:) show
12MXI ( g) show
10MXN 0 -0.5 rmoveto (P) show 0 0.5 rmoveto 12MXN (=) show
/xchartNf xchartf 8 idiv def
/xchartPf xchartf xchartf 8 idiv 8 mul sub def
colormf 0 eq {%colormf=0,1
              (1.0; ) show}
             {2.4 xchartPf 0.18 mul sub 2.4 div cvsshow2 (; ) show
             } ifelse %colormf=0,1

12MXI (g) show
10MXN 0 -0.5 rmoveto (N) show 0 0.5 rmoveto
12MXN (=) show
colormf 0 eq {%colormf=0,1
              (1.0; ) show}
             {1 2.4 xchartNf 0.18 mul sub 2.4 div div cvsshow2
             } ifelse %colormf=0,1

190 1.8 moveto
(http://farbe.li.tu-berlin.de/fgl6/fgl6) show (f1p) show pchartf cvishow %
(.pdf /.ps) show
%(0) show
%(n) show LEX$ show

} if %xtextf=1

             } def %END proc_framef(_DH)
             
%***********************************************************************************
%***********************************************************************************


%%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)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] 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) (s.pdf /.ps) (l.pdf /.ps)] def
/EY$ [(a.dat) (b.dat) (g.dat) (h.dat) (i.dat)
      (j.dat) (p.dat) (t.dat) (s.dat) (l.dat)] def

%line 360 *******************************************************************
/colormf10 01 def /colormf20 01 def /colormf20m colormf20 def /colormdf 1 def
/xcolorf10 03 def /xcolorf20 03 def /xcolorf20m xcolorf20 def /xcolordf 1 def
/xchartf10 00 def /xchartf20 07 def /xchartf20m 07 def /xchartdf 1 def
/pchartf10 01 def /pchartf20 01 def /pchartf20m 00 def /pchartdf 1 def
/lanindf1 0 def /lanindf2 0 def /xcolorf0 05 def
/lanindf lanindf1 def %no loops 0=German, 1=english

%/colormf colormf10 def
colormf10 colormdf colormf20 {/colormf exch def
%BEG for colormf=colormf10,colormdf,colormf20

%/xcolorf xcolorf10 def
xcolorf10 xcolordf xcolorf20 {/xcolorf exch def
%BEG for xcolorf=xcolorf10,xcolordf,xcolorf20

%/xchartf xchartf10 def
xchartf10 xchartdf xchartf20 {/xchartf exch def
%BEG for xchartf=xchartf10,xchartdf,xchartf20

%/pchartf pchartf10 def
pchartf10 pchartdf pchartf20 {/pchartf exch def
%BEG for pchartf=pchartf10,pchartdf,pchartf20

gsave

/colorm colormf def
/xcolor xcolorf def
/xchart xchartf def
/pchart pchartf def
/GSS$ SS$ lanindf get def
/GSC$ SC$ colormf get def
/GSX$ SX$ xcolorf xcolorf 16 idiv 16 mul sub get def
/GSY$ SY$ xchartf xchartf 16 idiv 16 mul sub get def %special
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get def

%line 397 %BEG INCLUDE FAD
%BEG FAD-0000F.TXT***************************************************20110301
% This file includes only the 1-minus-relation (1MR) for CM

colormf 1 eq {%colormf=1
              1MR-0000F
             } if %colormf=1

%END FAD-0000F.TXT***************************************************20110301

%END INCLUDE FAD

1 MM dup scale
proc_framef %includes no showpage
%showpage %proc_framef
grestore

gsave
BeginEPSFF
 0 MM 3 MM translate %Image transfer in FRAME
%%BeginDocument:

%line 419 %BEG INCLUDE TEST FILE at line 420
%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/fgl6/fgl6l00XX.PS 20240301
%%BoundingBox: 14 08 828 584

/pdfmark where {pop} {userdict /pdfmark /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: http://farbe.li.tu-berlin.de/fgl6/fgl6.htm)
 /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
 /Subject (goto: http://farbe.li.tu-berlin.de or http://color.li.tu-berlin.de)
 /Keywords (image reproduction, colour devices)
 /Creator (klaus.richter@mac.com)
 /CreationDate (D:2024030112000)
 /ModDate (D:20240301112000)
/DOCINFO pdfmark
[ /View [ /FitB ]
/DOCVIEW pdfmark
%Y10g00na.ps6

%line 20******************************************************
%BEG fgl6/OUTLIN10.PS Emty 20210418

%END fgl6/OUTLIN10.PS Emty 20210418
                                                                         
%BEG fgl6/OUTLIN1X.PS 20210418
%EMPTY
%END fgl6/OUTLIN1X.PS 20210418
                                                                         
%BEG fgl6/OUTLIN1Y2.PS Emty 20210418

%END fgl6/OUTLIN1Y2.PS Emty 20210418
                                                                         
/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              % End for EPS file
 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 {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def
 
/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def
 
/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def
 
%ANFA CMYKDEF
%CMYKDEA0 (A0=Standard-Drucker-CMYKDEF) 15.3.97
/tzac [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzam [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzay [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tzan [1.000 0.933 0.867 0.800 0.733 0.667 0.600 0.533
       0.467 0.400 0.333 0.267 0.200 0.132 0.067 0.000
       1.000 0.750 0.500 0.250 0.000] def
/tza0 [0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000 0.000 0.000 0.000
       0.000 0.000 0.000 0.000 0.000] def
/tza1 [1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000 1.000 1.000 1.000
       1.000 1.000 1.000 1.000 1.000] def
%ENDE CMYKD
 
/rec %x, y width heigth
  {/heigth exch def /width exch def
   moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def
 
/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
/tfbs {0 0.5 1 setrgbcolor} bind def
/tfy {1 1 0 setrgbcolor} bind def
/tfg {0 1 0 setrgbcolor} bind def
/tfr {1 0 0 setrgbcolor} bind def
/tfb {0 0 1 setrgbcolor} bind def
 
/A4quer {598 0 translate 90 rotate} 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

%BEG 19 lines comment or new PS operators possible
%01
%02
%03
%04

%END 19 lines comment or new PS operators possible

%%EndProlog

%***********************************************************
%%BeginPageSetup
/#copies 1 def
%A4querF
1.0 1.0 scale
/pgsave save def
%%EndPageSetup

/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)] def
/SY$ [(0) (1) (2) (3) (4) (5) (6) (7) (8) (9) (a) (b) (c) (d) (e) (f)] def
%       0           1            2            3            4            5
%       6           7            8
/EX$ [(a.txt /.ps) (b.bmp /.ps) (g.gif /.ps) (h.htm /.ps) (i.htm /.ps)
      (j.jpe /.ps) (p.pdf /.ps) (t.tif /.ps)] def
/EY$ [(a.dat) (b.dat) (g.dat) (h.dat) (i.dat) (j.dat)
      (p.dat) (t.dat)] def

%*******************************************************************
/lanindg1 0 def /lanindg2 0 def /lanindg lanindg1 def
/colormg10 0 def /colormg20 0 def /colormgd 1 def %only colormg=0 allowed
/xcolorg10 3 def /xcolorg20 3 def /xcolorgd 1 def
/xchartg10 0 def /xchartg20 0 def /xchartgd 1 def
/pchartg10 0 def /pchartg20 2 def /pchartgd 1 def

/colormi where {pop /colorm10 colormi10 def /colorm20 colormi20 def
                    /colormd colormid def}
                   {/colorm10 colormg10 def /colorm20 colormg20 def
                    /colormd colormgd def} ifelse
/xcolori where {pop /xcolor10 xcolori10 def /xcolor20  xcolori20 def
                    /xcolord xcolorid def}
                   {/xcolor10 xcolorg10 def /xcolor20  xcolorg20 def
                    /xcolord xcolorgd def} ifelse
/xcharti where {pop /xchart10 xcharti10 def /xchart20 xcharti20 def
                    /xchartd xchartid def}
                   {/xchart10 xchartg10 def /xchart20 xchartg20 def
                    /xchartd xchartgd def} ifelse
/pcharti where {pop /pchart10 pcharti10 def /pchart20 pcharti20 def
                    /pchartd pchartid def}
                   {/pchart10 pchartg10 def /pchart20 pchartg20 def
                    /pchartd pchartgd def} ifelse

/colormf where {pop /colorm10 colormf def /colorm20 colormf def
                    /colormd colormdf def} if
/xcolorf where {pop /xcolor10 xcolorf def /xcolor20 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart10 xchartf def /xchart20 xchartf def
                    /xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart10 pchartf def /pchart20 pchartf def
                    /pchartgd pchartdf def /pchartd pchartdf def} if

/colormg colorm10 def %colorm10 colormd colorm20 {/colormg exch def
/xcolorg xcolor10 def %xcolor10 xcolord xcolor20 {/xcolorg exch def
/xchartg xchart10 def %xchart10 xchartd xchart20 {/xchartg exch def
/pchartg 1 def %pchart10 pchartd pchart20 {/pchartg exch def

colormg 1 eq {/colormf where {pop 1MR-0000F} {1MR-0000I} ifelse} if

/lanind lanindg def
/colorm colormg def
/xcolor xcolorg def
/xchart xchartg def
/pchart pchartg def

/GSS$ SS$ lanind get def
/GSC$ SC$ colorm get def
/GSX$ SX$ xcolor get def
/GSY$ SY$ pchart get def
/GEX$ EX$ 0 get def
/GEY$ EY$ 0 get 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
/Ufield 1 def
pchart 0 eq {%pchart=0
Ufield 0 eq {1.0 dup dup setrgbcolor} if  %W
Ufield 1 eq {0.5 dup dup setrgbcolor} if  %U
xlu 09 MM sub ylu 11 MM sub moveto
xru 09 MM add yru 11 MM sub lineto
xru 09 MM add yro 07 MM add lineto
xlu 09 MM sub yro 07 MM add lineto closepath fill 
            }if %pchart=0

%01
%02
%03
%04
%05
%06
%07
%08
%09
%10
%11
%12
%13
%14

%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
/SHSl 2 def /SHAl 2 def
BeginEPSF
 28 SHSl sub 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 fgl60-1N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-1N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 SHAl add 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 fgl60-2N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-2N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 SHSl sub MM 108 MM pchart 2 eq {30 MM sub} if 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 fgl60-3N,
%%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     (fgl60-3N,) 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 SHAl add 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 fgl60-4N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-4N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 28 SHSl sub 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 fgl60-5N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-5N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
 86 SHAl add 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 fgl60-6N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-6N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave
BeginEPSF
 /xc1 16 def /yc1 12 def /xt 1 def xchart 1 eq {/xt 1 def} if
 28 SHSl sub MM 20 MM translate
  10 /Times-ISOL1 FS  53 MM 1 MM moveto ( ) show 1 1 scale  -77 -91 translate
%%BeginDocument: Bild 17

%line 399
%!PS-Adobe-3.0 EPSF-3.0 fgl60-7N
%%BoundingBox: 70 82 780 575

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

/halfg where {pop /half halfg def} {/half 0 def} ifelse
/VisTol*ioL 1.00 def

%Early Binding: needed for colour separation
/setcmykcolorL {setcmykcolor} bind def
/setgrayL {setgray} bind def
/setrgbcolorL {setrgbcolor} bind def

%/setcmykcolorG where {pop /setcmykcolorL setcmykcolorG def} if
%/setgrayG where {pop /setgrayL setgrayG def} if
%/setrgbcolorG where {pop /setrgbcolorL setcmykcolorG def} if

/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-Bold findfont dup length dict  begin
{1 index /FID ne {def} {pop pop} ifelse }forall
/Encoding ISOLatin1Encoding def
currentdict end

/CourierB-ISOL1 exch definefont pop

/TK {250 /Times-ISOL1 FS} bind def
/TM {300 /Times-ISOL1 FS} bind def
/TG {350 /Times-ISOL1 FS} bind def

/TIK {250 /TimesI-ISOL1 FS} bind def
/TIM {300 /TimesI-ISOL1 FS} bind def
/TIG {350 /TimesI-ISOL1 FS} bind def

/TBK {250 /TimesB-ISOL1 FS} bind def
/TBM {300 /TimesB-ISOL1 FS} bind def
/TBG {350 /TimesB-ISOL1 FS} bind def

/TBIK {250 /TimesBI-ISOL1 FS} bind def
/TBIM {300 /TimesBI-ISOL1 FS} bind def
/TBIG {350 /TimesBI-ISOL1 FS} bind def

/CBKK {200 /CourierB-ISOL1 FS} bind def
/CBK {250 /CourierB-ISOL1 FS} bind def
/CBM {300 /CourierB-ISOL1 FS} bind def
/CBG {350 /CourierB-ISOL1 FS} bind def
/CBKKK {160 /CourierB-ISOL1 FS} 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

/rem %x0, y0 width heigth
  {/heigth exch def /width exch def /y0 exch def /x0 exch def
   x0 width 0.5 mul add y0 heigth 0.5 mul add moveto
   width 0 rlineto 0 heigth rlineto width neg 0 rlineto
   closepath } bind def

%%EndProlog

/lanind 0 def
/lantex [(g) (e) (s) (n) (i) (j) (m)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {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 3 def /xcolor2 3 def} ifelse
/xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 1 def /pchart2 1 def /pchartd 1 def} ifelse

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

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

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (n) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (p.ps/.pdf) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (p.dat) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
      
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1

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

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

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

gsave

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

pchartl 1 eq {%pchartl=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
/cvishow255 {dup 99 le {(0) show} if
             dup  9 le {(0) show} if
             cvishow ( ) show} def
/n1079show {n1079 9 le {(000) show} if
            n1079 10 ge n1079 99 le and {(00) show} if
            n1079 100 ge n1079 999 le and {(0) show} if
            n1079 cvishow
           } def             

/nr1 27 array def
/tx1 52 array def

/nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10)
      (11) (12) (13) (14) (15) (16) (17) (18) (19) (20)
      (21) (22) (23) (24) (25) (26) (27)] def
/tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J)
      (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T)
      (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d)
      (e) (f) (g) (h) (i) (j) (k) (l) (m) (n)
      (o) (p) (q) (r) (s) (t) (u) (v) (w) (x)
      (y) (z)] def

72 90 translate

/xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def

7 /Times-ISOL1 FS
0 0 0 setrgbcolor
2 -6 moveto
(fgl60-70, ) show
(Page ) showen (Seite ) showde
xchart 2 mul pchart 1 add cvishow (/16, ) show
(Test chart G with 40x27=1080 colours) showen
(Pr\374fvorlage G mit 40x27=1080 Farben) showde
(; digital equidistant 9 or 16 step colour scales;) showen
(; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde
( Farbdaten in Spalte (A-n):) showde
( Colour data in column (A-n):) showen
7 /Times-ISOL1 FS
colorm 0 eq {%colorm=0
pchart 0 eq {( rgb + cmy0 (A_j + k26_n27)) show
              (, 000n (k), w (l), nnn0 (m), www (n)) show} if
pchart 1 eq {( rgb (A_j + k26_n27)) show
              (, 000n (k), w (l), nnn0 (m), www (n)) show} if
             }%colorm=0
             {%colorm=1
pchart 0 eq {( rgb'* (A_n)) show} if
pchart 1 eq {( rgb'* (A_j + k26_n27)) show
              (, 000n'* (k), w'* (l), nnn0'* (m), www'* (n)) show} if
             }ifelse %colorm=1
7 /Times-ISOL1 FS
(, colorm = ) show colorm cvishow
(, xchart = ) show xchart cvishow
(, pchart = ) show pchart cvishow

%/xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def}
%               {/faktg 1.10 def} ifelse

0.01 MM dup scale

/xmin 650 3 div 2.2 mul def
/ymax 15800 def
pchart 0 eq {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def}
             {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def

/o'*Fa 0.5 def /l'*Fa 0.5 def /v'*Fa 0.5 def
/c*x 1 o'*Fa sub def  /m*x 1 l'*Fa sub def  /y*x 1 v'*Fa sub def /n*x 0 def

o'*Fa l'*Fa v'*Fa setrgbcolor

0 0 moveto 24900     0 rlineto 0 17000 rlineto
           24900 neg 0 rlineto closepath fill

20 setlinewidth

500 3 div 2 mul /Times-ISOL1 FS
0 0 0 setrgbcolor
1 1 27 {/i exch def %i=1,27
  /x xs 0.15 mul def
  /y 27.6 ys mul ys i mul sub def
  x y moveto nr1 i 1 sub get show
} for %i=1,27

1 1 40 {/i exch def %i=1,36
  /x xs i mul 000 add def
  /y 27.5 ys mul def
  x y moveto tx1 i 1 sub get show
} for %i=1,36

/IMODE 0 def %input rgb for output LAB*
%row no.1 and 2: 9xrgb
/imax 08 def
/jmax 08 def
/kmax 08 def
/TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def
TKK2
0 1 kmax {/k exch def %beg k=0,08
          /k0 k 3 idiv def
          /k1 k k0 3 mul sub def
          /xadd k1 xs 9 mul mul def
          /yadd k0 xs 9 mul mul def
0 1 jmax {/j exch def %beg j=0,jmax
0 1 imax {/i exch def %beg i=0,imax
          /n1079 i j 9 mul add k 81 mul add def
          /j1 j k1 9 mul add def
          /j1$ tx1 j1 get def
          /i1 i 1 add k0 9 mul add def
          /xa xmin j xs mul add xadd add xsd add def
          /ya ymax i ys mul sub yadd sub ysd add def
          /r k kmax div def /g j jmax div def /b i imax div def

          colorm 0 eq {%colorm=0,1
                       /o'*Faa  r def %for standard output
                       /l'*Faa  g def
                       /v'*Faa  b def
                      }
                      {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
                       /o'*Faa r FF_LM_xchart_gammaF def %r*eF def
                       /l'*Faa g FF_LM_xchart_gammaF def %g*eF def
                       /v'*Faa b FF_LM_xchart_gammaF def %b*eF def
                      } ifelse %colorm=0,1

          pchart 1 eq {%pchart=1 or #1
                       1 1 1 setrgbcolor
                       xa ya xd dup rec fill
                      } %pchart=1
                      {%pchart=0
                       o'*Faa l'*Faa v'*Faa setrgbcolor
                       xa ya xd dup rec fill
                       1 o'*Faa sub
                       1 l'*Faa sub
                       1 v'*Faa sub 0 setcmykcolor
                       xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
                      } ifelse %pchart=0
                    
          pchart 1 eq {0 0 0 setrgbcolor
                        xa ya 460 add moveto n1079show ( ) show
                        j1$ show
                        i1 9 le {(0) show} if
                        i1 cvishow
                        xa ya 320 add moveto o'*Faa cvsshow3
                        xa ya 180 add moveto l'*Faa cvsshow3
                        xa ya 040 add moveto v'*Faa cvsshow3
                       } if

         } for %end i=0,jmax
         } for %end j=0,jmax
         } for %end k=0,kmax

%3x rgbcmy
/id 1 8 div def
/rijn 81 array def %for intermediate storage
/gijn 81 array def /bijn 81 array def
/lmax 1 def
/n1079 728 def
0 1 lmax {/l exch def %beg k=0,kmax
          /xadd 3 xs 9 mul mul def
          /yadd l 1 add ys 9 mul mul def

%for intermediate storage of l=0,lmax
0 1 01 {/jchart exch def %jchart=0,1
        /xchartj l jchart 3 mul add def
0 1 08 {/j exch def %j=0,7
        /im 8 j sub def
jchart 1 im {/i exch def %i=0,8
        /ia 1 id j mul sub def
        /argb ia def /brgb ia i id mul sub def
        xchartj 0 eq {/r argb def /g brgb def /b brgb def} if
        xchartj 1 eq {/r argb def /g argb def /b brgb def} if
        xchartj 2 eq {/r brgb def /g argb def /b brgb def} if
        xchartj 3 eq {/r brgb def /g argb def /b brgb def} if %L instead of C
        xchartj 4 eq {/r brgb def /g brgb def /b argb def} if
        xchartj 5 eq {/r argb def /g brgb def /b argb def} if
        jchart 0 eq {/in i j add def /jn j def}
                    {/in j def /jn i j add def} ifelse
                     rijn in 9 mul jn add r put
                     gijn in 9 mul jn add g put
                     bijn in 9 mul jn add b put
        } for %i=0,7
        } for %j=0,8
        } for %jchart=0,1
        
%for output of l=0,lmax
0 1 08   {/j exch def %j=0,8
0 1 08   {/i exch def %i=0,8
          /n1079 n1079 1 add def
          /r rijn i j 9 mul add get def
          /g gijn i j 9 mul add get def
          /b bijn i j 9 mul add get def
          /xa xmin xs j mul add xadd add xsd add def
          /ya ymax xs i mul sub yadd sub ysd add def

          colorm 0 eq {%colorm=0,1
                       /o'*Faa  r def %for standard output
                       /l'*Faa  g def
                       /v'*Faa  b def
                      }
                      {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
                       /o'*Faa r FF_LM_xchart_gammaF def %r*eF def
                       /l'*Faa g FF_LM_xchart_gammaF def %g*eF def
                       /v'*Faa b FF_LM_xchart_gammaF def %b*eF def
                      } ifelse %colorm=0,1

          pchart 1 eq {%pchart=1 or #1
                       1 1 1 setrgbcolor
                       xa ya xd dup rec fill
                      }%pchart=1
                      {%pchart=0
                       o'*Faa l'*Faa v'*Faa setrgbcolor
                       xa ya xd dup rec fill
                       1 o'*Faa sub
                       1 l'*Faa sub
                       1 v'*Faa sub 0 setcmykcolor
                       xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
                      } ifelse %pchart=0
                    
          pchart 1 eq {0 0 0 setrgbcolor
                        xa ya 460 add moveto n1079show ( ) show
                        j1$ show
                        i1 9 le {(0) show} if
                        i1 cvishow
                        xa ya 320 add moveto o'*Faa cvsshow3
                        xa ya 180 add moveto l'*Faa cvsshow3
                        xa ya 040 add moveto v'*Faa cvsshow3
                       } if

        } for %i=0,7
        } for %j=0,8

        } for %end l=0,lmax
        
%6wrgbcmy
/n1079 971 def
/lmax 03 def %4 rows with geys
/kmax 1 def %9 or 16 steps
1 1 kmax {/k exch def %
          k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse
0 1 lmax {/l exch def %beg l=0,lmax
          /xadd 36 l add xs mul def
          /yadd k 9 xs mul mul def
          /j1 l 36 add def
          /j1$ tx1 j1 get def
0 1 jmax {/j exch def %j=0,08
          /n1079 n1079 1 add def
          /i1 j k 9 mul add 1 add def %9 steps, 16 steps
          /argb j jmax div def
          /xa xmin xadd add xsd add def
          /ya ymax xs j mul sub yadd sub ysd add def
          /r argb def /g argb def /b argb def

          colorm 0 eq {%colorm=0,1
                       /o'*Faa  r def %for standard output
                       /l'*Faa  g def
                       /v'*Faa  b def
                      }
                      {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
                       /o'*Faa r FF_LM_xchart_gammaF def %r*eF def
                       /l'*Faa g FF_LM_xchart_gammaF def %g*eF def
                       /v'*Faa b FF_LM_xchart_gammaF def %b*eF def
                      } ifelse %colorm=0,1

          pchart 1 eq {%pchart=1 or #1
                       1 1 1 setrgbcolor
                       xa ya xd dup rec fill
                       } %pchart=1
                       
                      {%pchart=0
                       o'*Faa l'*Faa v'*Faa setrgbcolor
                       xa ya xd dup rec fill
                       l 0 eq {0 0 0 1 argb sub setcmykcolor} if
                       l 1 eq {argb setgray} if
                       l 2 eq {1 argb sub dup dup 0 setcmykcolor} if
                       l 3 eq {argb dup dup setrgbcolor} if
                       xa ya xd dup rec fill
                      } ifelse %pchart=0

          pchart 1 eq {%pchart =1
                        0 0 0 setrgbcolor
                        xa ya 460 add moveto n1079show ( ) show
                        j1$ show
                        i1 9 le {(0) show} if
                        i1 cvishow

                        colorm 0 eq {%colorm=0,1
                                     xa ya 320 add moveto
                                     l 0 eq l 2 eq or {(n*=) show 1 argb sub cvsshow3} if
                                     l 1 eq l 3 eq or {(w*=) show argb cvsshow3} if
                                     xa ya 180 add moveto
                                     l 0 eq {(000n*) show} if
                                     l 1 eq {(w*) show} if
                                     l 2 eq {(nnn0*) show} if
                                     l 3 eq {(www*) show} if
                                     xa ya 040 add moveto
                                     l 0 eq {(setcmyk) show} if
                                     l 1 eq {(setgray) show} if
                                     l 2 eq {(setcmyk) show} if
                                     l 3 eq {(setrgb) show} if
                                    }%colorm=0
                                    {%colorm=1
                        xa ya 320 add moveto o'*Faa cvsshow3
                        xa ya 180 add moveto l'*Faa cvsshow3
                        xa ya 040 add moveto v'*Faa cvsshow3
                                    } ifelse %colorm=0,1

                       } if %pchart =1

       } for %j=0,jmax
       
       } for %l=0,lmax
       
       } for %k=0,kmax
       
%basic colours 1072 - 1080
/basrgb 24 array def
/basrgb
[0 0 0 1 1 1
 1 0 0 0 1 1
 1 1 0 0 0 1
 0 1 0 1 0 1
] def
/n1079 1071 def
0 1 07   {/i exch def %i=0,7
          /n1079 n1079 1 add def
          /i3 i 3 mul def
          /xadd 36 xs mul def
          /yadd 25 xs mul def
          i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if
          i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if
          i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if
          i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if
          i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if
          i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if
          i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if
          i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if
          /xa xmin xs l mul add xadd add xsd add def
          /ya ymax xs j mul sub yadd sub ysd add def
          /r basrgb i3       get def
          /g basrgb i3 1 add get def
          /b basrgb i3 2 add get def

          colorm 0 eq {%colorm=0,1
                       /o'*Faa  r def %for standard output
                       /l'*Faa  g def
                       /v'*Faa  b def
                      }
                      {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb
                       /o'*Faa r FF_LM_xchart_gammaF def %r*eF def
                       /l'*Faa g FF_LM_xchart_gammaF def %g*eF def
                       /v'*Faa b FF_LM_xchart_gammaF def %b*eF def
                      } ifelse %colorm=0,1

          pchart 1 eq {%pchart=1 or #1
                       1 1 1 setrgbcolor
                       xa ya xd dup rec fill
                      } %pchart=1
                      {%pchart=0
                       o'*Faa l'*Faa v'*Faa setrgbcolor
                       xa ya xd dup rec fill
                       1 o'*Faa sub
                       1 l'*Faa sub
                       1 v'*Faa sub 0 setcmykcolor
                       xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill
                      } ifelse %pchart=0
                    
          pchart 1 eq {0 0 0 setrgbcolor
                        xa ya 460 add moveto n1079show ( ) show
                        j1$ show
                        i1 9 le {(0) show} if
                        i1 cvishow
                        xa ya 320 add moveto o'*Faa cvsshow3
                        xa ya 180 add moveto l'*Faa cvsshow3
                        xa ya 040 add moveto v'*Faa cvsshow3
                       } if
      } for %i=0,7

pchart 1 eq {%pchart=1
             40 setlinewidth

          xmin 30 sub xsd add 09 xs mul add ysd moveto 0 17000 ysd sub rlineto stroke
          xmin 30 sub xsd add 18 xs mul add ysd moveto 0 17000 rlineto stroke
          xmin 30 sub xsd add 27 xs mul add ysd moveto 0 17000 rlineto stroke
          xmin 30 sub xsd add 36 xs mul add ysd moveto 0 17000 rlineto stroke

          0 16370 09 ys mul sub moveto 24500 00 ys mul sub 0 rlineto stroke
          0 16370 18 ys mul sub moveto 24500 04 ys mul sub 0 rlineto stroke
          xmin 30 sub xsd add 36 xs mul add
            16370 25 ys mul sub moveto 04 ys mul 0 rlineto stroke

           }if %pchart=1
          
} if %pchartl=1

showpage
grestore

%} for %pchartl=0,2

%} for %xchartl=0,7

%} for %xcolorl=0,3

%} for %colorml=0,1

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF  86 SHAl add 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 fgl60-8N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl60-8N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

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
/SHSr 2 MM def /SHAr 2 MM def
BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl61-1N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-1N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl61-2N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-2N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 108 MM pchart 2 eq {30 MM sub} if 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 fgl61-3N,
%%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     (fgl61-3N,) 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 06 MM sub SHAr add 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 fgl61-4N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-4N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl61-5N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-5N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
219 MM 06 MM sub SHAr add 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 fgl61-6N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-6N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

grestore
showpage

%%Trailer


%%EndDocument
EndEPSF grestore gsave

BeginEPSF
161 MM 06 MM sub SHSr sub 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 fgl61-7N,
%%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     (fgl61-7N,) 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 06 MM sub SHAr add 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 fgl61-8N
%%BoundingBox: 70 85 246 206

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

/ioutx 0 def
ioutx 1 eq {%ioutx=1

4 /Times-Roman FS
72 86 moveto
     (fgl61-8N) show

72 90 translate

0.01 MM dup scale
20 setlinewidth
/xwidth 6100 def
/ywidth 4000 def
1 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath fill
0 setgray
0 0  moveto xwidth 0 rlineto 0 ywidth rlineto
        xwidth neg 0 rlineto closepath stroke

} if %ioutx=1

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 20240301
%%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
/showea {1 lanind le {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
                    /xchartd xchartgd def}
               {/xchart1 0 def /xchart2 0 def /xchartd 1 def} ifelse
/pchartg where {pop /pchart1 pchartg def /pchart2 pchartg def
                    /pchartd pchartgd def}
               {/pchart1 0 def /pchart2 0 def /pchartd 1 def} ifelse

/colormf where {pop /colorm1 colormf def /colorm2 colormf def
                    /colormd colormdf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
                    /xcolord xcolordf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
                    /xchartgd xchartdf def /xchartd xchartdf def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
                    /pchartgd pchartdf def /pchartd pchartdf def} if
/lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage
/colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage
/xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage
/xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage
/pchart pchart1 def %pchart1 1 pchart2 {/pchart exch def %output showpage

/GSS$ where {pop /LSS$ GSS$ def}
            {/LSS$ (1) def} ifelse
/GSC$ where {pop /LSC$ GSC$ def}
            {/LSC$ (n) def} ifelse
/GSX$ where {pop /LSX$ GSX$ def}
            {/LSX$ (0) def} ifelse
/GSY$ where {pop /LSY$ GSY$ def}
            {/LSY$ (0) def} ifelse
/GEX$ where {pop /LEX$ GEX$ def}
            {/LEX$ (p.ps/pdf) def} ifelse
/GEY$ where {pop /LEY$ GEY$ def}
            {/LEY$ (p.dat) def} ifelse
/IMES where {pop %/IMES IMES def
            }
            {/IMES 0 def} ifelse
/i*ptrsc where {pop %/i*ptrsc i*ptrsc def
               }
               {/i*ptrsc 0 def} ifelse

/ISRL*ioG where {pop}{/ISRL*ioG 0 def} ifelse
/ISIN*ioG where {pop}{/ISIN*ioG 0 def} ifelse
/ISOU*ioG where {pop}{/ISOU*ioG 0 def} ifelse

gsave
%pchart 0 eq  {%beg if pchart=0

0 setgray

1.0 1.0  scale

0.0 MM -2.0 MM translate %page shift down

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

%colorm 0 eq deintp 0 eq and {/Txx (d) def  /Fxx (d) def} if %colorm=0, deintp=0
%colorm 0 eq deintp 1 eq and {/Txx (e) def  /Fxx (e) def} if %colorm=0, deintp=1
%colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0
%colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if

xchart 1 ge {%xchart>=1

/i0 12 def
/i1 i0 1 add def /i2 i0 2 add def /i3 i0 3 add def
2.5 MM /Times-ISOL1 FS
x i0 get MM 40 MM add y i0 get MM 1 MM sub moveto
lanind cvishow (-) show
colorm cvishow
%deintp cvishow
xcolor cvishow
xchart cvishow
pchart cvishow
%colsep cvishow (-F) show pmetam cvishow

} if %xchart>=1

/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

/xmo xlo xro xlo sub 0.5 mul add def
/ymo yro 1 MM sub def
xmo 1 MM sub ymo moveto 2 MM 0 rlineto stroke
xmo ymo 1 MM sub moveto 0 1 MM rlineto stroke

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

/10TIN {10 /Times-ISOL1 FS} def
/10TRN {10 /Times-Roman FS} def
/12TIN {12 /Times-ISOL1 FS} def
/12TRN {12 /Times-Roman FS} def

/10TII {10 /TimesI-ISOL1 FS} def
/10TRI {10 /Times-Italic FS} def
/12TII {12 /TimesI-ISOL1 FS} def
/12TRI {12 /Times-Italic FS} def

/10TIB {10 /TimesB-ISOL1 FS} def
/10TRB {10 /Times-Bold FS} def
/12TIB {12 /TimesB-ISOL1 FS} def
/12TRB {12 /Times-Bold FS} def

/10TIBI {10 /TimesBI-ISOL1 FS} def
/10TRBI {10 /Times-BoldItalic FS} def
/12TIBI {12 /TimesBI-ISOL1 FS} def
/12TRBI {12 /Times-BoldItalic FS} def

/12RN  {12 /Times-Roman FS} bind def      /10RN  {10 /Times-Roman FS} bind def
/12RI  {12 /Times-Italic FS} bind def     /10RI  {10 /Times-Italic FS} bind def
/12RB  {12 /Times-Bold FS} bind def       /10RB  {10 /Times-Bold FS} bind def
/12RBI {12 /Times-BoldItalic FS} bind def /10RBI {10 /Times-BoldItalic FS} bind def
/12TN  {12 /Times-ISOL1 FS} bind def      /10TN  {10 /Times-ISOL1 FS} bind def
/12TI  {12 /TimesI-ISOL1 FS} bind def     /10TI  {10 /TimesI-ISOL1 FS} bind def
/12TB  {12 /TimesB-ISOL1 FS} bind def     /10TB  {10 /TimesB-ISOL1 FS} bind def
/12TBI {12 /TimesBI-ISOL1 FS} bind def    /10TBI {10 /TimesBI-ISOL1 FS} bind def

%special
/10TIN_10  {10TIN 0 -2 rmoveto 
            xcolor 1 eq {(10) show} if 0 2 rmoveto} def
/10TINK10 {10TIN 0 -2 rmoveto
           xcolor 1 eq {(,10) show} if 0 2 rmoveto} def
/10SN {10 /Symbol FS} def
/12SN {12 /Symbol FS} def

/TELi0 8 array def
/TELi1 8 array def
/TELi  8 array def
/TELi0 [(P65) (P60) (P55) (P50) (P45) (P40) (P35) (P30)] def %7 illumin.
/TELi1 [(D65) (D50) (P40) (A00) (E00) (C00) (P00) (Q00)] def %7 illumin.

/xchart8 0 def %xchart8=0: Pxx, xchart8=1: Dxx
0 1 7 {/i exch def %i=0,7
xchart8 0 eq {%xchart8=0
              TELi i TELi0 i get put
             }%xchart8=0
             {%xchart8=1
              TELi i TELi1 i get put
             } ifelse %xchart8=1
       } for %i=0,7

0 setgray
12TIN
61 MM 13.5 MM  moveto
(TUB\255Pr\374fvorlage fgl6; ) showde
(TUB\255test chart fgl6; ) showen
(gr\341fico TUB\255fgl6; ) showes
(TUB\255test graphique fgl6; ) showfr
(grafico TUB\255fgl6; ) showit
(TUB\255test chart fgl6; ) showjp

pchart 0 eq {%pchart=0
0 setgray
(fgl6: Test chart uh_d08 with 40x27=1080 colours) showen
(fgl6: Pr\374fvorlage 2g_di mit 40x27=1080 Farben) showde
} if %pchart=0

pchart 1 eq {%pchart=1 %no output
(fgl6: Test chart uh_d08 with 40x27=1080 colours) showen
(fgl6: Pr\374fvorlage 2g_di mit 40x27=1080 Farben) showde
} if %pchart=1

pchart 2 eq {%pchart=2
(fgl6: Ein\255Ausgabe\255Beziehung nach ISO 9241\255306) showde
(fgl6: In\255output relation according to ISO 9241\255306) showen
} if %pchart=2
/DEH 0 def
colorm 0 eq {(; DH) show}
            {DEH 0 eq {(; 1MR, DH) show}
                      {(; 1MR, DEH) show} ifelse} ifelse
/Ycont 8 array def
/Ycont [(88,9:0,31)
        (88,9:0,62)
        (88,9:1,25)
        (88,9:2,5)
        (88,9:5)
        (88,9:10)
        (88,9:20)
        (88,9:40)] def

/Yrang 8 array def
/Yrang [(0,0 to <0,46)
        (0,46 to <0,93)
        (0,93 to <1,87)
        (1,87 to <3,75)
        (3,75 to <7,5)
        (7,5 to <15)
        (15 to <30)
        (30 to <60)] def

61 MM 09.5 MM  moveto
12TIN
pchart 0 eq {%pchart=0
(Digital equidistant 9 or 16 step colour scales) showen
(Digital gleichabst\344ndige 9 oder 16stufige Farbreihen) showde
} if %pchart=0

pchart 1 eq {%pchart=1 %no output
(Digital equidistant 9 or 16 step colour scales) showen
(Digital gleichabst\344ndige 9 oder 16stufige Farbreihen) showde
} if %pchart=1

pchart 2 eq {%pchart=2
(Gesehener) showde (Viewing) showen
12TIN
( Y) show
12TIN
(\255Kontrast ) showde ( contrast ) showen
12TIN
(Y) show
10TIN 0 -2 rmoveto (W) show 0 2 rmoveto
12TIN (:) show (Y) show
10TIN 0 -2 rmoveto (N) show 0 2 rmoveto
12TIN
(=) show
Ycont xchart xchartd idiv get show
(; ) show
12TIN (Y) show
10TIN 0 -2 rmoveto (N) show 0 2 rmoveto
12TIN
( range ) showen (\255Bereich ) showde
Yrang xchart xchartd idiv get show
         } if %pchart=2

/Uimage 0 def
/GammaR 2 def

Uimage 0 eq {%Uimage=0
             (, L\255HDR) showen
             (, L\255HDR) showde
            } if %Uimage=0
Uimage 1 eq {%Uimage=1
             (, D\255HDR) showen
             (, D\255HDR) showde
            } if %Uimage=1
(; ) show 12SN (g) show 10TIN 0 -2 rmoveto (R) show 0 2 rmoveto
12TIN
GammaR 0 eq {%GammaR
             /Gamfak 1 def
             (=1,0) show
            } if %GammaR
GammaR 1 eq {%GammaR
             /Gamfak 0.9 def
             (=0,9) showen
            } if %GammaR
GammaR 2 eq {%GammaR
             /Gamfak 0.8 def
             (=0,8) show
            } if %GammaR

12TIN
203 MM 13.5 MM moveto
12TIN
(000n/w/cmy0/rgb ) show

207 MM 9.5 MM moveto
12TIN
(->rgb*) show
10TIN -1 -2 rmoveto
colorm 0 eq {(d) show}
            {DEH 0 eq {(d) show} {(de) show} ifelse} ifelse
0 2 rmoveto
(, ) show
colorm cvishow xcolor cvishow
xchartd 1 eq {xchart cvishow}
             {xchart xchart 8 idiv 8 mul sub cvishow} ifelse
(\255) show pchart cvishow (: ) show

LSC$ (N) eq {
(no change) showen
(keine \304nderung) showde
            } if

%1 setgray %start white and unvisible
LSC$ (S) eq {
(Startup (S) data dependend) showen
(Startup(S)Daten abh\344ngig) showde
            } if
LSC$ (F) eq {12TIN (g) show
             10TIN
             0 -2 rmoveto (P) show 0 2 rmoveto
             12TIN (=) show
             /xchartN xchart 8 idiv def
             /xchartP xchart xchart 8 idiv 8 mul sub def
             /gammaNl 1 2.4 xchartN 0.18 mul sub 2.4 div div def
             /gammaPl   2.4 xchartP 0.18 mul sub 2.4 div     def
             gammaPl cvsshow2 (; ) show
             12TIN (g) show
             10TIN
             0 -2 rmoveto (N) show 0 2 rmoveto
             12TIN (=) show
             gammaNl cvsshow2
            } if


 62 MM 198.5 MM  moveto
12RN tfbs (http://farbe.li.tu-berlin.de/fgl6/fgl6l) show 12TN
(0) show %
LSC$ show LEX$ show tfn
(; only vector graphic VG) showen 
(; nur Vektorgrafik VG) showde

%1 setgray %start white and unvisible
(; ) show
xchart 0 eq {
(Start\255Ausgabe) showde
(start output) showen
(comience salida) showes
(sortie de production) showfr
(cominciare l'uscita) showit
(start output) showjp
           } if

 62 MM 194 MM  moveto
(Siehe separate Bilder dieser Seite: ) showde
(see separate images of this page: ) showen
(vea archivos semejantes: ) showes
(voir des fichiers similaires: ) showfr
(vedere dei file simili: ) showit
(see similar files: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/fgl6/fgl6.htm) show tfn 12TN

 19 MM 185 MM moveto
-90 rotate
(Siehe \344hnliche Dateien der ganzen Serie: ) showde
(see similar files of the whole serie: ) showen
(vea archivos semejantes: ) showes
(voir des fichiers similaires de serie: ) showfr
(vedere dei file simili: ) showit
(see similar files: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/fgls.htm) show tfn 12TN
90 rotate

 15 MM 185 MM moveto
-90 rotate
(Technische Information: ) showde
(technical information: ) showen
(informaci\363n t\351cnica: ) showes
(informations techniques: ) showfr
(informazioni tecniche: ) showit
(technical information: ) showjp
12RN tfbs (http://farbe.li.tu-berlin.de/A/33872E.html) show tfn 12TN
 90 rotate

 11 MM 185 MM moveto
-90 rotate
(oder ) showde
(or ) showen
(o ) showes
(ou ) showfr
(o ) showit
(or ) showjp
12RN tfbs (http://standards.iso.org/iso/9241/306/ed-2/index.html) show
tfn 12TN
 90 rotate

281 MM 185 MM moveto
-90 rotate
(TUB\255Registrierung: 20240301\255fgl6/fgl6l) showde
(TUB registration: 20240301\255fgl6/fgl6l) showen
(TUB matr\355cula: 20240301\255fgl6/fgl6l) showes
(TUB enregistrement: 20240301\255fgl6/fgl6l) showfr
(TUB iscrizione: 20240301\255fgl6/fgl6l) showit
(TUB registration: 20240301\255fgl6/fgl6l) showjp
(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 mat\351riel: code=rha4ta) showfr
(TUB materiale: code=rha4ta) showit
(TUB material: code=rha4ta) showjp
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 Beurteilung und Messung ) showde
( application for evaluation and measurement ) showen
( aplicaci\363n para la medida ) showes
( application pour la mesure ) showfr
( la domanda per la misura ) showit
( application for measurement ) showjp

(von Display\255 oder Druck\255Ausgabe) showde
(of display or print output) showen
(de display output) showes
(de sortie sur \350cran) showfr
(di stampa di display) showit
(of display output) showjp

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

grestore
gsave

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

%%Trailer

%%EndDocument
EndEPSF grestore gsave

showpage
grestore

%} for %end for pchartg=pchartg1,pchartg2
%} for %end for xchartg=xchartg1,xchartg2
%} for %end for xcolorg=xcolorg1,xcolorg2
%} for %end for colormg=colormg1,colormg2

%%Trailer



%END INCLUDE TEST FILE at line 420

%%EndDocument
EndEPSFF grestore gsave

showpage
grestore

} for %END for pchartf=pchartf10,pchartdf,pchartf20

} for %END for xchartf=xchartf10,xchartdf,xchartf20

} for %END for xcolorf=xcolorf10,xcolordf,xcolorf20

} for %END for colormf=colormf10,colormdf,colormf20
%%Trailer