%!PS-Adobe-3.0 EPSF-3.0 geu91-3n %%BoundingBox: 70 85 246 335 %START PDFDE011.EPS /pdfmark14 where {pop} {userdict /pdfmark14 /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/geu9/geu9.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:2024080112000) /ModDate (D:2024080112000) /DOCINFO pdfmark14 [ /View [ /Fit ] /DOCVIEW pdfmark14 %END PDFDE011 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /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 /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Courier-ISOL1 exch definefont pop /Courier-Oblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierI-ISOL1 exch definefont pop /Courier-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierB-ISOL1 exch definefont pop /Courier-BoldOblique findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /CourierBI-ISOL1 exch definefont pop /TG {350 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TV {110 /Times-ISOL1 FS} bind def /TW {080 /Times-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIV {110 /TimesI-ISOL1 FS} bind def /TIW {080 /TimesI-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBV {110 /TimesB-ISOL1 FS} bind def /TBW {080 /TimesB-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIV {110 /TimesBI-ISOL1 FS} bind def /TBIW {080 /TimesBI-ISOL1 FS} bind def /SG {350 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SV {110 /Symbol FS} bind def /SW {080 /Symbol FS} bind def %***************************************************************** %%EndProlog gsave %lanindL2.EPS START 20000505 /lanind 0 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 /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % gsave /cvishow0 {cvi 6 string cvs show} def /kchartl 1 def %0:left page, 1:right page /pchartl 0 def %0:top page, 4:down page /lchartl 0 def %0:left page, 1:right page 72 90 translate 0.010 MM dup scale /xbtex0 1 def %xbtex=0 for files Y1(0/1)-(3/4/7/8)n.eps xbtex0 1 eq {%xbtex0=1 40 setlinewidth /ymax1 08550 def /xmax1 06000 def 1.0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath fill 0 setgray 0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto closepath stroke TK 0 setgray 150 /Times-ISOL1 FS 150 -140 moveto kchartl 0 eq {(geu90-) show} {(geu91-) show} ifelse pchartl 0 eq {lchartl 0 eq {(3n) show}{(4n) show} ifelse} {lchartl 0 eq {(7n) show}{(8n) show} ifelse} ifelse } if %xbtex0=1 100 /Courier FS /x0 100 def /y0 8400 def /yd 096 def /ydd 200 def /ytexi 100 array def /ytexi [ %64 lines (%**********************************************************) () () () (/Visev_FLVGF {%BEG procedure Visev_FLVGF for application of visual data) (%with the method Fast Linear Visual Local File (FLVGF)) () (/indexGi 09 array def %for the one real data of visual evaluation) (/indexGx 54 array def %for 6 different example data of visual evaluation) ( %0 %1 %2 %3 %4 %5 %6 %7 %8 %Fi j) (/VisevGx [0.000 0.015 0.062 0.140 0.250 0.390 0.562 0.765 1.000 %16 08 gamma=2,0) ( 0.000 0.353 0.500 0.612 0.707 0.790 0.866 0.935 1.000 %17 17 gamma=0,5) ( 0.000 0.044 0.125 0.229 0.353 0.494 0.649 0.818 1.000 %18 26 gamma=1,5) ( 0.000 0.044 0.125 0.229 0.353 0.494 0.649 0.818 1.000 %19 35 gamma=0,6667) ( 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000 %20 44 gamma=1,0) ( 0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000 %21 53 experimental) ( ] def %5 53) ( % the last line shall be replaced by the experimetal data, if available) () (0 1 8 {/j exch def %j=0,8) ( VisevGi j VisevGx indexGi 16 sub 9 mul j add get put) ( } for %j=0,8) () (/xreh8 10 array def /yreh8 10 array def %re=real, j=0,8) (/xinh8 10 array def /yinh8 10 array def %in=invers, j=0,8) (/xrehj 1025 array def /yrehj 1025 array def) (/xinhj 1025 array def /yinhj 1025 array def) (/xred8 10 array def /yred8 10 array def %re=real, j=0,8) (/xind8 10 array def /yind8 10 array def %in=invers, j=0,8) (/xredj 1025 array def /yredj 1025 array def) (/xindj 1025 array def /yindj 1025 array def) () (0 1 8 {/j exch def %j=0,8) ( xred8 j j 0.125 mul put) ( yred8 j VisevFi j get put) ( xind8 j yred8 j get put) ( yind8 j xred8 j get put) ( xreh8 j xred8 j get 255 mul put) ( yreh8 j yred8 j get 255 mul put) ( xinh8 j yreh8 j get put) ( yinh8 j xreh8 j get put) ( } for %j=0,8) () (xred8 9 001 put yred8 9 001 put xind8 9 001 put yind8 9 001 put) (xreh8 9 255 put yreh8 9 255 put xind8 9 255 put yind8 9 255 put) () (0 1 7 {/k exch def %k=0,8) (0 1 127 {/n exch def %n=0,127) ( /j k 128 mul n add def %j=0,1023) ( xredj j j 1023 div put) ( yredj j yred8 k 1 add get yred8 k get sub) ( n 128 div mul yred8 k get add put) ( xindj j yredj j get put) ( yindj j xredj j get put) ( } for %n=0,127) ( } for %k=1,8) ( ) (0 1 1023 {/j exch def %j=0,1023) ( xrehj j xredj j get 1023 mul put) ( yrehj j yredj j get 1023 mul put) ( xinhj j yredj j get put) ( yinhj j xredj j get put) ( } for %j=0,1023) () (xredj 1024 0001 put yredj 1024 0001 put xindj 1024 0001 put yindj 1024 0001 put) (xrehj 1024 1023 put yrehj 1024 1023 put xinhj 1024 1023 put yinhj 1024 1023 put) (} def %END procedure Visev_FLVGF for application of visual data) () (/FF_LM_xchartg_gammaG {%BEG procedure FF_LM_xchartg_gammaG) ( /yed exch def) ( /yeh yed 1023 mul cvi def) ( /xinh yrehj yeh get def) ( xinh 1023 div) ( } def %END procedure FF_LM_xchartg_gammaG) () (%indexGi=20 may be changed here only once in the Global File (GF)) (/indexGi 20 def %default for gamma=1) () (%The procedure Visev_FLVGF is used only once in the Global File) (%The procedure 1MR-000GF, see geu91-7n, is used only once in the Global File) (%The procedure FF_LM_xchartg_gammaG is used for any rgb data set in Global File) () (/iproc1MR 1 def) (%Test if 1MR-000GF is available, then use this procedure) (%/1MR-000GF where {pop Visev_FLVGF 1MR-000GF}{Visev_FLVLF 1MR-000LF} ifelse) (iproc1MR 1 eq {Visev_FLVGF 1MR-000GF} if) () (%****************************************************************************) ] def 0 1 87 {/i exch def %i=0,63 0 setgray x0 y0 i yd mul sub moveto i 68 eq i 73 eq or {1 0 0 setrgbcolor} if i 04 eq i 66 eq or {0 0 1 setrgbcolor} if ytexi i get show } for %i=0,90 /x1 3500 def /x2 x1 300 add def /x3 x1 200 sub def 110 /Times-ISOL1 FS 1 0 0 setrgbcolor x2 y0 moveto (This is an example EPS code for EPS images, see) showen (Beispiel\255EPS\255Code f\374r EPS\255Bilder, vergleiche) showde 110 /Times-Roman FS 0 0 1 setrgbcolor x2 y0 yd 1.3 mul sub moveto (http://color.li.tu-berlin.de/fek9/fek9f1p0.txt) showen (http://farbe.li.tu-berlin.de/fgk9/fgk9f1p0.txt) showde x2 y0 yd 2.6 mul sub moveto (http://color.li.tu-berlin.de/fek9/fek9f1p0.pdf) showen (http://farbe.li.tu-berlin.de/fgk9/fgk9f1p0.pdf) showde 0 setgray 110 /Times-ISOL1 FS 1 0 0 setrgbcolor x2 y0 yd 19.0 mul sub moveto (Determination of the visual evaluation) showen (Auswahl der visuellen Bewertung) showde x2 y0 yd 20.3 mul sub moveto (Examples: ) showen (Beispiele: ) showde (16 <= indexGi <= 21) show x2 y0 yd 32.0 mul sub moveto (Calculation of the table xyreh_0009) showen (Berechnung der Tabelle xyreh_0009) showde x2 y0 yd 46.0 mul sub moveto (Calculation of the table xyreh_1024) showen (Berechnung der Tabelle xyreh_1024) showde x2 y0 yd 68.0 mul sub moveto (Application of the table xyreh_1024) showen (Anwendung der Tabelle xyreh_1024) showde x2 y0 yd 69.3 mul sub moveto (for the linearization method) showen (f\374r die Linearisierungsmethode) showde x2 y0 yd 70.6 mul sub moveto (of the inverse linearized output.) showen (der inversen linearisierten Ausgabe.) showde 0 setgray showpage grestore %%Trailer