%!PS-Adobe-3.0 EPSF-3.0 hgc21-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/hgc2/hgc2.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 {(hgc20-) show} {(hgc21-) 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 (/proc04_7data_FLVGF {%BEG proc04_7data_FLVGF) %01 (%The procedure proc04_7data_FLVGF is used only once in Global File) (/VisevEi 07 array def %for real data (i=0,6) of visual evaluation) (%0,e08 1,e24 2,e48 3,e02 4,e24 5,e46 6,e68 %indexG) ([0.500 0.500 0.500 0.500 0.500 0.500 0.500] %7data, for manuel change) (/a1 VisevEx 0 get def %BEG calculation VisevFi (i=0,8) from 7data) (/b1 a1 VisevEx 1 get mul def %b1) (/b2 a1 def %b2) (/b3 1 b2 sub VisevEX 2 get mul b2 add def %b3) (/VisevGi 09 array def %for real data (i=0,8) of visual evaluation) (VisevGi 0 0 put) (VisevGi 1 b1 0 sub VisevEi 3 get mul put %c1) (VisevGi 2 b1 put %c2) (VisevGi 3 b2 b1 sub VisevEi 4 get mul b1 add put %c3) (VisevGi 4 b2 put %c4) (VisevGi 5 b3 b2 sub VisevEi 5 get mul b2 add put %c5) (VisevGi 6 b3 put %c6) (VisevGi 7 1 b3 sub VisevEi 6 get mul b3 add put %c7) (VisevGi 8 1 put) %END calculation VisevGi (i=0,8) from 7data) (} def %END proc04_7data_FLVGF) %21 (%***********************************************************) (/proc02_Visev_FLVGF {%BEG proc02_Visev_FLVGF) %23 (%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 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 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 (%*********************************************************) (%default experimental, no gammaG value) %83 (/iproc1MR 1 def %optional application example) (iproc1MR 1 eq {%main program Frame_File_Linearisation_Method (FF_LM)) ( proc00_1MR_FLVGF proc04_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 20 eq or i 22 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 proc04_7data_FLVGF) show x1 800 add y0 yd 20 mul sub moveto %20 (%END proc04_7data_FLVGF) show x1 800 add y0 yd 22 mul sub moveto %22 (%BEG proc02_Visev_FLVGF) show x1 800 add y0 yd 72 mul sub moveto (%END proc02_Visev_FLVGF) show %72 x1 800 add y0 yd 74 mul sub moveto (%BEG proc00_FF_LM_FLVGF) show %74 x1 800 add y0 yd 81 mul sub moveto (%END proc00_FF_LM_FLVGF) show %81 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