%!PS-Adobe-3.0 EPSF-3.0 hgc11-7N %%BoundingBox: 70 85 415 580 %START PDFDE011.EPS /pdfmark17 where {pop} {userdict /pdfmark17 /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/hgc1/hgc1.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:2024100112000) /ModDate (D:2024100112000) /DOCINFO pdfmark17 [ /View [ /Fit ] /DOCVIEW pdfmark17 %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 4 def %0:top page, 4:down page /lchartl 0 def %0:left page, 1:right page 72 90 translate 0.020 MM dup scale /xbtex0 1 def %xbtex=0 for files Y1(0/1)-(3/4/7/8)n.EPS xbtex0 1 eq {%xbtex0=1 20 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 {(hgc10-) show} {(hgc11-) 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 /ytexi 100 array def /ytexi [ %87 lines (%**********************************************************) %00 (/proc00_7data_FLVGF {%BEG proc00_7data_FLVGF) %01 (%The procedure proc01_7data_FLVGF is used only once in Global File) (/VisexGi 09 array def %for the one real data of visual evaluation) (/VisexGx 54 array def %for 6 different example data of visual evaluation) ( %0 %1 %2 %3 %4 %5 %6 %7 %8 %Fi j) (/VisexGx [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.250 0.397 0.520 0.630 0.731 0.825 0.915 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) ( VisexGi j VisexGx indexGi 16 sub 9 mul j add get put) ( } for %j=0,8) ( } def %END proc01_7data_FLVGF) %18 (%***********************************************************) (/proc02_Visev_FLVGF {%BEG proc02_Visev_FLVGF) %20 (%for visual data with Fast Linear Visual Local File (FLVGF)) (%The procedure proc01_7data_FLVGF is used only once in Local File) (/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 VisexGi 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 1 put yred8 9 1 put) (xind8 9 1 put yind8 9 1 put) (xreh8 9 255 put yreh8 9 255 put) (xind8 9 255 put yind8 9 255 put) () (%j=0,1023) (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) ( 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 1 put yredj 1024 1 put) (xindj 1024 1 put yindj 1024 1 put) (xrehj 1024 1023 put yrehj 1024 1023 put) (xinhj 1024 1023 put yinhj 1024 1023 put) (} def %END proc01_Visev_FLVGF) %72 (%*********************************************************) (/proc00_FF_LM_FLVGF {%BEG proc00_FF_LM_FLVFL) %74 (%This procedure is used for any rgb data in proc00_1MR_FLVGF) ( /yed exch def) ( /yeh yed 1023 mul cvi def) ( /xinh yrehj yeh get def) ( xinh 1023 div) ( } def) (%END proc00_FF_LM_FLVFL) %81 (%*********************************************************) (/indexGi 07 def %default for gammaG=1.000) %83 (/iproc1MR 1 def %optional application example) (iproc1MR 1 eq {%main program Frame_File_Linearisation_Method (FF_LM)) ( proc00_1MR_FLVGF proc01_7data_FLVGF proc02_Visev_FLVGF} if) (%**********************************************************) %87 ( ) ( ) ( ) ( ) ] def 0 1 87 {/i exch def %i=0,87 0 setgray x0 y0 i yd mul sub moveto i 01 eq i 18 eq or i 20 eq or i 72 eq or i 74 eq or i 81 eq or {0 0 1 setrgbcolor} if i 86 eq {0 0 1 setrgbcolor} if ytexi i get show } for %i=0,87 /x1 3500 def 110 /Times-ISOL1 FS 0 0 1 setrgbcolor x1 800 add y0 yd 01 mul sub moveto %02 (%BEG proc01_7data_FLVGF) show x1 800 add y0 yd 18 mul sub moveto %19 (%END proc01_7data_FLVGF) show x1 800 add y0 yd 20 mul sub moveto %21 (%BEG proc02_Visev_FLVGF) show x1 800 add y0 yd 72 mul sub moveto (%END proc02_Visev_FLVGF) show %73 x1 800 add y0 yd 74 mul sub moveto (%BEG proc00_FF_LM_FLVGF) show %75 x1 800 add y0 yd 81 mul sub moveto (%END proc00_FF_LM_FLVGF) show %82 1 0 0 setrgbcolor x1 800 add y0 yd 85 mul sub moveto %85 (%Example: combined procedure) showen (%Beispiel: kombinierte Prozedur) showde 0 setgray showpage grestore %%Trailer