%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ggt1/ggt10-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/ggt1/ggt1.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 (ggt10-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, real (re) hex (h) and decimal (d)) ( ) (0 setgray) (0 0 moveto 6000 0 rlineto 0 4000 rlineto %relative square) ( -6000 0 rlineto closepath stroke %60mm x 40 mm) ( ) (/xdd 050 def /ydd 138 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 in hex (h 0:1023) calculated with xrehj=j & gamma) show) ( ) (/xrehj 1024 array def /yrehj 1024 array def %real data hex (h)) (/xredj 1024 array def /yredj 1024 array def %real data decimal (d)) (/xinhj 1024 array def /yinhj 1024 array def %invers data hex (h)) (/xindj 1024 array def /yindj 1024 array def %invers data decimal (d)) ( ) (/gamma 2.000 def %posible gamma changes: 1,0 -> 2,0, 0,5, 1,5, 0,667) (%calculation of the table xyreh1024 (h=hex) of 1024 values (h 0:1023) with gamma) (0 1 1023 {/j exch def %j=0,1023) ( xrehj j j put %BEG h 0:1023) ( xredj j j 1023 div put %decimal (d 0:1,000)) ( yredj j j 1023 div gamma exp put %decimal (d 0:1,000)) ( yrehj j yredj j get 1023 mul cvi put %END h 0:1023) ( } for %j=0,1023) ( ) (TBV /yw0 3650 def xdd yw0 moveto %font, size, position) ((Table xyreh_1024, basic real data in hex (h, 0:1023) between x and y, ) show) (1 0 0 setrgbcolor (gamma=) show gamma cvsshow3g 0 setgray %gamma value in red) ( ) (TW /yw1 yw0 1.1 ydd mul sub def %font, size, position) (0 1 0259 {/j exch def %j=0,0259) ( /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 yredj j get cvsshow3g %output) ( } for %j=0,0259) ( ) (%END Frame File Linearization Method FF_LM, real (re) hex (h) and decimal (d)) (%*************************************************************) ] 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 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\1023EPS\1023Code 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-3n.txt) showen (http://farbe.li.tu-berlin.de/ggt1/ggt11-3n.txt) showde x1 y0 yd 4.8 mul sub moveto (http://color.li.tu-berlin.de/get1/get11-3n.pdf) showen (http://farbe.li.tu-berlin.de/ggt1/ggt11-3n.pdf) showde 0 setgray /x2 5000 def 1 0 0 setrgbcolor x2 y0 yd 10 mul sub moveto (Main Table text) showen (Haupttabellentext) showde x2 y0 yd 27 mul sub moveto (Subtable text) showen (Teiltabellentext) showde x2 y0 yd 35 mul sub moveto (Output xrehj, yredj) showen (Ausgabe xrehj, yredj) showde showpage grestore %%Trailer