%!PS-Adobe-3.0 EPSF-3.0 geu90-8n %%BoundingBox: 70 85 246 335 %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/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 pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 0 def %0:left page, 1:right page /pchartl 4 def %0:top page, 4:down page /lchartl 1 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 (%**********************************************************) (%BEG special definitions of Linear Visual Local File (LVLF)) (indexLi 00 def) (/visevLi 9 array def %visual evaluation data are calculated) (indexLi 0 eq {/gamma 1.0 def %indexLi=0) (% 0 1 2 3 4 5 6 7 8) (/visevLi [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000] def} if %indexLi=0) (indexLi 1 eq {/gamma 2.0 def %indexLi=1) (/visevLi [0.000 0.015 0.062 0.140 0.250 0.390 0.562 0.765 1.000] def} if %indexLi=1) (indexLi 2 eq {/gamma 0.5 def %indexLi=2) (/visevLi [0.000 0.353 0.500 0.612 0.707 0.790 0.866 0.935 1.000] def} if %indexLi=2) (indexLi 3 eq {/gamma 1.5 def %indexLi=3) (/visevLi [0.000 0.044 0.125 0.229 0.353 0.494 0.649 0.818 1.000] def} if %indexLi=3) () (/xredj 9 array def /yredj 9 array def %re=real, j=0,8) (/xindj 9 array def /yindj 9 array def %in=invers, j=0,8) () (0 1 8 {/j exch def %j=0,8) ( xredj j j 0.125 mul put) ( yredj j xredj j get gamma exp put) ( } for %j=0,8) (%END special definitions of Linear Visual Local File (LVLF)) () (/1MR-0LVLF {%BEG procedure 1MR-0LVLF definitions of Linear Visual Local File (LVLF)) (%BEG special definitions of FF_LM_LVLF) (/FF_LM_xchartg_gammaL) ( {%BEG for inverse data with linear interpolation) ( /yred exch def) ( yred 0 eq {/yred 0.0001 def} if) ( yred 1 eq {/yred 0.9999 def} if) ( 0 1 7 {/i exch def %i=0,7) ( yred visevLi i get ge {/im i def} if) ( } for %i=0,7) ( /yind yred visevLi im get sub) ( visevLi im 1 add get visevLi im get sub div def) ( /xind im yind add 0.125 mul def) ( xindj j yind j 7 le {yred add} if put %not required ) ( yindj j xind put %not required) ( xind %final inverse data) ( } def %END for inverse data with linear interpolation) (%END special definitions of FF_LM_LVLF) () (%BEF standard definitions of FF_LM_LVLF) (/FF_LM_setgrayF0 {setgray} bind def) (/FF_LM_setrgbcolorF0 {setrgbcolor} bind def) (/FF_LM_setcmykcolorF0 {setcmykcolor} bind def) (/FF_LM_transferF0 {settransfer} bind def) (/FF_LM_colortransferF0 {setcolortransfer} bind def) () (/setgray {%BEF procedure setgrayF) ( dup dup FF_LM_setrgbcolorF) ( } def %END procedure setgrayF) () (/setcmykcolor {%BEF procedure setcmykcolorF) ( /FF_LM_kF exch def /FF_LM_yF exch def) ( /FF_LM_mF exch def /FF_LM_cF exch def) ( FF_LM_kF 0 eq {1 FF_LM_cF sub 1 FF_LM_mF sub) ( 1 FF_LM_yF sub FF_LM_setrgbcolorF}) ( {1 FF_LM_kF sub dup dup) ( FF_LM_setrgbcolorF} ifelse) ( } def %END procedure setcmykcolorF) () (/setrgbcolor {%BEF procedure setrgbcolorF) ( /FF_LM_bF exch def /FF_LM_gF exch def) ( /FF_LM_rF exch def) ( FF_LM_rF FF_LM_gF FF_LM_bF) ( FF_LM_setrgbcolorF) ( } def %BEF procedure setrgbcolorF) () (/FF_LM_setrgbcolorF {%BEF FF_LM_setrgbcolorF) ( /FF_LM_b0F exch def /FF_LM_g0F exch def) ( /FF_LM_r0F exch def) ( FF_LM_r0F 0 le {/FF_LM_r0F 0.0001 def} if) ( FF_LM_g0F 0 le {/FF_LM_g0F 0.0001 def} if) ( FF_LM_b0F 0 le {/FF_LM_b0F 0.0001 def} if) ( /FF_LM_r1F FF_LM_r0F FF_LM_xchartg_gammaF def) ( /FF_LM_g1F FF_LM_g0F FF_LM_xchartg_gammaF def) ( /FF_LM_b1F FF_LM_b0F FF_LM_xchartg_gammaF def) ( FF_LM_r1F FF_LM_g1F FF_LM_b1F) ( FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF) (%END standard definitions of FF_LM_LVLF) () (} def %END procedure 1MR-0LVLF definitions of Linear Visual Local File) () (/iproc1MR 1 def) (%/1MR-00LVG where {pop 1MR-0LVGF}{1MR-0LVLF} ifelse) (iproc1MR 1 eq {1MR-0LVLF} if) (%****************************************************************************) ] def 0 1 87 {/i exch def %i=0,90 0 setgray x0 y0 i yd mul sub moveto i 01 eq i 21 eq or i 23 eq or i 24 eq or i 40 eq or i 42 eq or i 80 eq or {1 0 0 setrgbcolor} if i 23 eq i 82 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 1 0 0 setrgbcolor x2 y0 yd 3.9 mul sub moveto (0 <= indexFi <= 3) show x2 y0 yd 17.8 mul sub moveto (Calculation of the table xyreh_0009) showen (Berechnung der Tabelle xyreh_0009) showde x2 y0 yd 27.3 mul sub moveto (Application of the table xyreh_0009) showen (Anwendung der Tabelle xyreh_0009) showde x2 y0 yd 28.6 mul sub moveto (for the linearization method) showen (f\374r die Linearisierungsmethode) showde x2 y0 yd 29.9 mul sub moveto (of the inverse linearized output.) showen (der inversen linearisierten Ausgabe.) showde x2 y0 yd 43.0 mul sub moveto (The following standard definitions of the) showen (Die folgenden Normdefinitionen der) showde x2 y0 yd 44.3 mul sub moveto (Frame File Linearization method (FF_LM)) showen (Rahmendatei\255Linearisierungsmethode (FF_LM)) showde x2 y0 yd 45.6 mul sub moveto (serve for both vector and pixel graphic.) showen (dienen f\374r Vektor\255 und Pixelgrafik.) showde x2 y0 yd 46.9 mul sub moveto (These definitions are equal in most files.) showen (Die Definitionen sind in vielen Dateien gleich.) showde x3 y0 yd 49.0 mul sub moveto (Change setgray -> FF_LM_setrgbcolorF.) showen (\304nderung setgray -> FF_LM_setrgbcolorF.) showde x3 y0 yd 53.0 mul sub moveto (Change setcmykcolor -> FF_LM_setrgbcolorF.) showen (\304nderung setcmycolor -> FF_LM_setrgbcolorF.) showde x3 y0 yd 62.0 mul sub moveto (Change setrgbcolor -> FF_LM_setrgbcolorF.) showen (\304nderung setrgbcolor -> FF_LM_setrgbcolorF.) showde x3 y0 yd 69.0 mul sub moveto (Change FF_LM_setrgbcolorG -> FF_LM_setrgbcolorF0.) showen (\304nderung FF_LM_setrgbcolorG -> FF_LM_setrgbcolorF0.) showde %x3 y0 yd 82.0 mul sub moveto %(Change settransferG -> FF_LM_settransferF0.) showen %(\304nderung settransferG -> FF_LM_settransferF0.) showde %x3 y0 yd 87.0 mul sub moveto %(Change setcolortransferG -> FF_LM_setcolortransferF0.) showen %(\304nderung setcolortransferG -> FF_LM_setcolortransferF0.) showde x3 y0 yd 86.0 mul sub moveto (Call of the Local (L) procedure 1MR_0LVLF.) showen (Aufruf der Lokalen (L) Prozedur 1MR_0LVLF.) showde 0 setgray showpage grestore %%Trailer