%!PS-Adobe-3.0 EPSF-3.0 geu90-7N %%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 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 (%***********************************************************) (%BEG special definitions of Linear Visual Global File (LVGF)) (indexGi 00 def) (/visevGi 9 array def %visual evaluation data are calculated) (indexGi 0 eq {/gamma 1.0 def %indexGi=0) (% 0 1 2 3 4 5 6 7 8) (/visevGi [0.000 0.125 0.250 0.375 0.500 0.625 0.750 0.875 1.000] def} if %indexGi=0) (indexGi 1 eq {/gamma 2.0 def %indexGi=1) (/visevGi [0.000 0.015 0.062 0.140 0.250 0.390 0.562 0.765 1.000] def} if %indexGi=1) (indexGi 2 eq {/gamma 0.5 def %indexGi=2) (/visevGi [0.000 0.353 0.500 0.612 0.707 0.790 0.866 0.935 1.000] def} if %indexGi=2) (indexGi 3 eq {/gamma 1.5 def %indexGi=3) (/visevGi [0.000 0.044 0.125 0.229 0.353 0.494 0.649 0.818 1.000] def} if %indexGi=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 Global File (LVGF)) () (/1MR-0LVGF {%BEG procedure 1MR-0LVGF definitions of Linear Visual Global File (LVGF)) (%BEG special definitions of FF_LM_LVGF) (/FF_LM_xchartg_gammaG) ( {%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 visevGi i get ge {/im i def} if) ( } for %i=0,7) ( /yind yred visevDi im get sub) ( visevDi im 1 add get visevDi 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_LVGF) () (%BEG standard definitions of FF_LM_LVGF) (/FF_LM_setgrayG0 {setgray} bind def) (/FF_LM_setrgbcolorG0 {setrgbcolor} bind def) (/FF_LM_setcmykcolorG0 {setcmykcolor} bind def) (/FF_LM_transferG0 {settransfer} bind def) (/FF_LM_colortransferG0 {setcolortransfer} bind def) () (/setgray {%BEG procedure setgrayG) ( dup dup FF_LM_setrgbcolorG) ( } def %END procedure setgrayG) () (/setcmykcolor {%BEG procedure setcmykcolorF) ( /FF_LM_kG exch def /FF_LM_yG exch def) ( /FF_LM_mG exch def /FF_LM_cG exch def) ( FF_LM_kG 0 eq {1 FF_LM_cG sub 1 FF_LM_mG sub) ( 1 FF_LM_yG sub FF_LM_setrgbcolorG}) ( {1 FF_LM_kG sub dup dup) ( FF_LM_setrgbcolorG} ifelse) ( } def %END procedure setcmykcolorG) () (/setrgbcolor {%BEG procedure setrgbcolorG) ( /FF_LM_bG exch def /FF_LM_gG exch def) ( /FF_LM_rG exch def) ( FF_LM_rG FF_LM_gG FF_LM_bG) ( FF_LM_setrgbcolorG) ( } def %BEG procedure setrgbcolorG) () (/FF_LM_setrgbcolorG {%BEG FF_LM_setrgbcolorG) ( /FF_LM_b0G exch def /FF_LM_g0G exch def) ( /FF_LM_r0G exch def) ( FF_LM_r0G 0 le {/FF_LM_r0G 0.0001 def} if) ( FF_LM_g0G 0 le {/FF_LM_g0G 0.0001 def} if) ( FF_LM_b0G 0 le {/FF_LM_b0G 0.0001 def} if) ( /FF_LM_r1G FF_LM_r0G FF_LM_xchartg_gammaG def) ( /FF_LM_g1G FF_LM_g0G FF_LM_xchartg_gammaG def) ( /FF_LM_b1G FF_LM_b0G FF_LM_xchartg_gammaG def) ( FF_LM_r1G FF_LM_g1G FF_LM_b1G) ( FF_LM_setrgbcolorG0} def %END FF_LM_setrgbcolorG) (%END standard definitions of FF_LM_LVGF) () (} def %END procedure definitions of Linear Visual Global File (LVGF)) () (/iproc1MR 1 def) (%/1MR-0LVGF where {pop 1MR-0LVGF}{1MR-0LVLF} ifelse) (iproc1MR 1 eq {1MR-0LVGF} 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 <= indexGi <= 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_setrgbcolorG.) showen (\304nderung setgray -> FF_LM_setrgbcolorG.) showde x3 y0 yd 53.0 mul sub moveto (Change setcmykcolor -> FF_LM_setrgbcolorG.) showen (\304nderung setcmycolor -> FF_LM_setrgbcolorG.) showde x3 y0 yd 62.0 mul sub moveto (Change setrgbcolor -> FF_LM_setrgbcolorG.) showen (\304nderung setrgbcolor -> FF_LM_setrgbcolorG.) showde x3 y0 yd 69.0 mul sub moveto (Change FF_LM_setrgbcolorG -> FF_LM_setrgbcolorG0.) showen (\304nderung FF_LM_setrgbcolorG -> FF_LM_setrgbcolorG0.) showde %x3 y0 yd 82.0 mul sub moveto %(Change settransferG -> FF_LM_settransferG0.) showen %(\304nderung settransferG -> FF_LM_settransferG0.) showde %x3 y0 yd 87.0 mul sub moveto %(Change setcolortransferG -> FF_LM_setcolortransferG0.) showen %(\304nderung setcolortransferG -> FF_LM_setcolortransferG0.) showde x3 y0 yd 86.0 mul sub moveto (Call of the Global (G) procedure 1MR_0LVGF.) showen (Aufruf der Globalen (G) Prozedur 1MR_0LVGF.) showde 0 setgray showpage grestore %%Trailer