%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ggt0/ggt00-3n
%%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/ggt0/ggt0.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 (ggt00-3n) 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, Table yrehj, j=0,1023 equal to inverse xinhj)
(%BEG EARLY Global (G) BINDING IMAGE FILE 1MR-0000G 200301)
(%BEG 1MR-0000G.TXT, 1MR & relative gamma change  200301)
()
()
(/gammaGi 21 array def /gammaGi %rel. gamma according to ISO 9241-306:2018)
(%0     1     2     3     4     5     6     7     8     9     10    11    12    13    14    15)
([0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000 1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105)
(%16    17    18    19    20   %additional inverse gamma values for tests)
( 2.000 0.500 1.500 0.666 1.000] def)
()
(/indexGi 16 def /gamma gammaGi indexGi get def)
(/xrehj 1024 array def /yrehj 1024 array def    %real data hex (h))
(/xinhj 1024 array def /yinhj 1024 array def    %inverse (in) data hex (h))
(%calculation of the table xyreh_1024 (h=hex) of real values (reh) with gamma)
(0 1 1023 {/j exch def %j=0,1023)
(          xrehj j j                                 put)
(          yrehj j j 1023 div gamma exp 1023 mul cvi put)
(          xinhj j yrehj j get put  yinhj j xrehj j get put)
(         } for %j=0,1023)
()
(/xdd 050 def /ydd 133 def                    %x-position and line difference)
(TBL 0 setgray                                %font, size and black color)
(xdd 3820 moveto                              %top position and table text)
((Table xyreh_1024 may be produced from inverse data xyinh_1024) show)
(TBV /yw0 3650 def                            %font, size, position)
(xdd yw0 moveto)
((Table  xyreh_1024, data in hex (h, 0:259) for inverse data xyinh_1024 (h, 0:259), ) show, )
(1 0 0 setrgbcolor (gamma=) show gamma cvsshow3g 0 setgray)
(TW /yw1 yw0 1.1 ydd mul sub def)
(0 1 0259 {/j exch def %j=0,259)
(          /j0 j 10 idiv def /jd j j0 10 mul sub def)
(          xdd jd 600 mul add yw1 j0 ydd mul sub moveto)
(          xrehj j get cvishow (  ) show yrehj j get cvishow)
(         } for %j=0,259)
(xdd 050 moveto)
((For gamma=2 and j=0,259: xrehj=yinhj=j, yrehj=xinhj) show)
(%END Frame File Linearization Method FF_LM, Table yrehj, j=0,1023 equal to inverse xinhj)
(%*************************************************************)
] def

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

/x1 3900 def
110 /Times-ISOL1 FS
1 0 0 setrgbcolor
x1 y0 yd 2.2 mul sub moveto
(This example EPS code is used in) showen
(Beispiel\255EPS\255Code ist benutzt in) showde

110 /Times-Roman FS
0 0 1 setrgbcolor
x1 y0 yd 3.5 mul sub moveto
(http://color.li.tu-berlin.de/get0/get01-3n.txt) showen
(http://farbe.li.tu-berlin.de/ggt0/ggt01-3n.txt) showde
x1 y0 yd 4.8 mul sub moveto
(http://color.li.tu-berlin.de/get0/get01-3n.pdf) showen
(http://farbe.li.tu-berlin.de/ggt0/ggt01-3n.pdf) showde
0 setgray

/x2 5000 def
1 0 0 setrgbcolor
x2 y0 yd 12 mul sub moveto
(gamma=2) show

/x2 5000 def
1 0 0 setrgbcolor
x2 y0 yd 25 mul sub moveto
(Main table text) show

x2 y0 yd 27 mul sub moveto
(Subtable text) showen
(Teiltabellentext) showde

x2 y0 yd 33 mul sub moveto
(Output xrehj, yredj) showen
(Ausgabe xrehj, yredj) showde
x2 y0 yd 34.2 mul sub moveto
(260 of 1024 values) showen
(260 von 1924 Werten) showde

showpage
grestore

%%Trailer