%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/ggs9/ggs90-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/ggs9/ggs9.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 (ggs90-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, real (re), invers (in), hex (h), decimal (d)) (/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_256 produced by FF_LM_xchart_gamma from xyreh_256) show) ( ) (/xrehj 256 array def /yrehj 256 array def %real data hex (h)) (/xredj 256 array def /yredj 256 array def %real data decimal (d)) (/xinhj 256 array def /yinhj 256 array def %inverse (in) data hex (h)) (/xindj 256 array def /yindj 256 array def %invers (in) data decimal (d)) (TBV /yw0 3650 def %font, size, position) (xdd yw0 moveto) ((Table xyinh_256, invers data in hex (h, 0:255) for xyreh_256 (h, 0:255), ) show, ) (1 0 0 setrgbcolor (gamma=) show gamma cvsshow3g 0 setgray) ( ) (%procedure for transfer xrehj, yrehj -> xinhj, yinhj) (%use of the table data xyreh256 (h=hex) of real values (reh) with gamma) (/FF_LM_xchart_gammaF {%BEG /FF_LM_xchart_gammaF 240715) ( /yreh exch def %0<= yreh <=255) ( xinhj j yrehj yreh get put %invers data yrehj->xinhj) ( yinhj j xrehj yreh get put %invers data xrehj->yinhj) ( yinhj j get %output of yinhj) ( } def %END /FF_LM_xchart_gammaF 240715) (%Application of FF_LM_xchart_gammaF and output) (TW /yw1 yw0 1.1 ydd mul sub def) (0 1 255 {/j exch def %j=0,256) ( xrehj j get FF_LM_xchart_gammaF) ( %available now xinhj, yinhj) ( xindj j xinhj j get 255 div put) ( yindj j yinhj j get 255 div put) ( /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) (xdd 050 moveto) ((For gamma=2 and j=0,255: xinhj=yrehj, yinhj=xrehj=j, ) show) ((similar for decimal values xindj=yredj, yindj=xredj=xrehj/255) show) (%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 /x2 4600 def 110 /Times-ISOL1 FS 1 0 0 setrgbcolor x1 y0 yd 28 mul sub moveto (This example EPS code is used in) showen (Beispiel\255EPS\255Code ist benutzt in) showde 0 0 1 setrgbcolor x1 y0 yd 29.3 mul sub moveto (http://color.li.tu-berlin.de/ges9/ges91-7n.txt) showen (http://farbe.li.tu-berlin.de/ggs9/ggs91-7n.txt) showde x1 y0 yd 30.6 mul sub moveto (http://color.li.tu-berlin.de/ges9/ges91-7n.pdf) showen (http://farbe.li.tu-berlin.de/ggs9/ggs91-7n.pdf) showde 0 setgray /x2 4600 def 1 0 0 setrgbcolor x2 y0 yd 5 mul sub moveto (Main Table text) showen (Haupttabellentext) showde x2 y0 yd 12 mul sub moveto (Sub Table text) showen (Teiltabellentext) showde x2 y0 yd 36 mul sub moveto (Output xinhj, yinhj) showen (Ausgabe xinhj, yinhj) showde showpage grestore %%Trailer