%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ggt0/ggt00-7n
%%BoundingBox: 70 82 415 320
%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: 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 pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%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-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, 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 xyinh_1024 produced from inverse data xyreh_1024) show)
(TBV /yw0 3650 def %font, size, position)
(xdd yw0 moveto)
((Table xyinh_1024, inverse data in hex (0:259) for xyreh_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)
( xinhj j get cvishow ( ) show yinhj j get cvishow)
( } for %j=0,259)
(xdd 050 moveto)
((For gamma=2 and j=0,259: xinhj=yrehj, yinhj=xrehj=j) 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/get1/get11-7n.txt) showen
(http://farbe.li.tu-berlin.de/ggt1/ggt11-7n.txt) showde
x1 y0 yd 4.8 mul sub moveto
(http://color.li.tu-berlin.de/get1/get11-7n.pdf) showen
(http://farbe.li.tu-berlin.de/ggt1/ggt11-7n.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 xinhj, yindj) showen
(Ausgabe xinhj, yindj) showde
x2 y0 yd 34.2 mul sub moveto
(260 of 1024 values) showen
(260 von 1924 Werten) showde
showpage
grestore
%%Trailer