%!PS-Adobe-3.0 EPSF-3.0 fgl4F0NA.PS/FNIX_FRAMEB_DH.PS, OK0X_FRAMEB_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/fgl4/fgl4.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.9 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(B_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
(fgl4/fgl4) show (l0n) show (a.pdf /.ps) show
(, Page ) showen (, Seite ) showde
xchartf xchartdf idiv pchartf20m 1 add mul
pchartf 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/fgl4/fgl4) show (f16) show (n) show %
(.pdf /.ps) show
%(0) show
%(n) show LEX$ show

} if %xtextf=1

             } def %END proc_framef(B_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 06 def /xchartf20 06 def /xchartf20m 06 def /xchartdf 8 def
/pchartf10 00 def /pchartf20 00 def /pchartf20m 00 def /pchartdf 1 def
/colorm20m colormf20m def
/xcolor20m xcolorf20m def
/xchart20m xchartf20m def
/pchart20m pchartf20m def

/lanindf1 0 def /lanindf2 0 def /xcolorf0 05 def
/lanindf lanindf1 def %no loops 0=German, 1=english

/colormf colormf10 def /colormg colormf def
%colormf10 colormdf colormf20 {/colormf exch def

/xcolorf xcolorf10 def /xcolorg xcolorf def
%xcolorf10 xcolordf xcolorf20 {/xcolorf exch def

/xchartf xchartf10 def /xchartg xchartf def
%xchartf10 xchartdf xchartf20 {/xchartf exch def

/pchartf pchartf10 def /pchartg pchartf def
%pchartf10 pchartdf pchartf20 {/pchartf exch def

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


%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