%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ges0/ges00-7n
%%BoundingBox: 70 82 415 320

%START PDFDE011.EPS
/pdfmark03 where {pop} {userdict /pdfmark03 /cleartomark load put} ifelse
/languagelevel where {pop languagelevel} {1} ifelse
2 lt { userdict (<<) cvn ([) cvn load put
       userdict (>>) cvn (]) cvn load put} if
[/Title (PostScript pictures: farbe.li.tu-berlin.de/ges0/ges0.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:2024070112200)
 /ModDate (D:20240701112200)
/DOCINFO pdfmark03
[ /View [ /Fit ]
/DOCVIEW pdfmark03
%END  PDFDE011

/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

/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def

%***************************************************
%%EndProlog
gsave

/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showes {2 lanind eq {show} {pop} ifelse} bind def
/showfr {3 lanind eq {show} {pop} ifelse} bind def
/showit {4 lanind eq {show} {pop} ifelse} bind def
/showjp {5 lanind eq {show} {pop} ifelse} bind def
/showea {1 lanind le {show} {pop} ifelse} bind def

/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
                    /lanindd laninddf def}
               {/lanind1 0 def /lanind2 0 def} ifelse
/lanind lanind1 def

72 90 translate
0.02 MM dup scale

100 /Times-ISOL1 FS
0 setgray
50 -100 moveto (ges00-7n) show

/xwidth 6000 def
/ywidth 4000 def
25 setlinewidth
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

100 /Courier FS

/x0  100 def
/y0 3850 def
/yd  096 def

/ytexi 50 array def

%STOPX

/ytexi [ %41 lines
(%*************************************************************)
(%BEG Frame File Linearization Method FF_LM, calculates inverse data)
( )
(%main file data:)
(/xvredj 9 array def /yvredj 9 array def %vred=visual real decimal, j=0,8)
(/xvindj 9 array def /yvindj 9 array def %vind=visual invers decimal, j=0,8)
( )
(/indexGi 07 def %default linear)
(indexGi 07 eq {/gamma 1.0 def %indexGi=07)
(%         0     1     2     3     4     5     6     7     8)
(/yvredj [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000] def} if)
(index 16 eq {/gamma 2.0 def %indexGi=16)
(/yvredj [0.000 0.015 0.062 0.140 0.250 0.390 0.562 0.765 1.000] def} if)
( )
(%procedure to calculate the inverse data)
(/FF_LM_xchart_gammaF {%BEG /FF_LM_xchart_gammaF for invers function 240715)
(               /yvred exch def)
(               yvred 0 eq {/yvred 0.0001 def} if)
(               yvred 1 eq {/yvred 0.9999 def} if)
(               0 1 7 {/j exch def %j=0,7)
(                      yvred yvredj j get ge {/jm j def} if)
(                     } for %j=0,7)
(               /yvredt yvred               yvredj jm get sub)
(                       yvredj jm 1 add get yvredj jm get sub div def)
(               /xvindt jm yvredt add 0.125 mul put)
(               xvindj j yvredt j 7 le {yvred add} if put)
(               yvindj j xvindt put)
(               yvindj j get)
(              } def %END %BEG /FF_LM_xchart_gammaF for invers function 240715)
( )
(%Calculation example of xvindj, yvindj by the procedure /FF_LM_xchart_gammaF)
(0 1 8 {/j exch def %j)
(       /xvredj j 8 div def)
(       /yvredj j xvredj j get gamma exp def)
(       yvredj j get FF_LM_xchart_gammaF %output: xvindj & yvindj j=0,8)
(      } for stroke %j)
( )
(%then available: xvredj, yvredj, xvindj, yvindj, j=0,8)
(%END Frame File Linearization Method FF_LM, inverse function)
(%*************************************************************)
] def

0 1 39 {/i exch def %i=0,40
        x0 y0 i yd mul sub moveto
        ytexi i get show
       } for %i=0,40 


/x1 4000 def
110 /Times-ISOL1 FS
1 0 0 setrgbcolor
x1 y0 yd 0.3 mul sub moveto
(This is an example EPS code, see use in) showen
(Beispiel\255EPS\255Code benutzt in) showde

110 /Times-Roman FS
0 0 1 setrgbcolor
x1 y0 yd 1.9 mul sub moveto
(http://color.li.tu-berlin.de/ges3/ges30-1n.txt) showen
(http://farbe.li.tu-berlin.de/ggs3/ggs30-1n.txt) showde
x1 y0 yd 3.0 mul sub moveto
(http://color.li.tu-berlin.de/ges3/ges30-1n.pdf) showen
(http://farbe.li.tu-berlin.de/ggs3/ggs30-1n.pdf) showde
0 setgray

/x2 4600 def
1 0 0 setrgbcolor
x2 y0 yd 09 mul sub moveto
(Example visual scaling data:) showen
(Beispiel Scalierungsdaten:) showde
x2 y0 yd 10 mul sub moveto
(gamma = 1,0 und 2,0) showde
(gamma = 1,0 and 2,0) showen

x2 y0 yd 26 mul sub moveto
(invers transfer of x to y,) showen
(inverser Transfer von x nach y) showde
x2 y0 yd 27 mul sub moveto
(and output y) showen
(und Ausgabe y) showde
0 setgray

showpage
grestore

%%Trailer