%!PS-Adobe-3.0 EPSF-3.0 geu91-4N %%BoundingBox: 70 85 246 270 %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 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def /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.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 02300 sub 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 2300 sub def /yd 096 def /ydd 200 def /ytexi 100 array def /ytexi [ %64 lines (%**********************************************************) (/1MR-000GF {%BEG procedure 1MR-000GF of Global File (GF) data) () () (%BEG standard definitions of Frame File Linearisation Method FF_LM) (%This code is usually in the Global File (GF), a similar one may be in the Local File (LF)) (% This code shall be always at the beginning of the Global File) (/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 setcmykcolorG) ( /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} iG) ( FF_LM_g0G 0 le {/FF_LM_g0G 0.0001 def} iG) ( FF_LM_b0G 0 le {/FF_LM_b0G 0.0001 def} iG) ( /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) () (/FF_LM_transferG {%BEG FF_LM_transferG) ( {FF_LM_xchartg_gammaG}) ( FF_LM_transferG0} def %END FF_LM_transferG) (/settransfer {FF_LM_transferG} def) () (/FF_LM_colortransferG {%BEG FF_LM_colortransferG) ( {FF_LM_xchartg_gammaG} {FF_LM_xchartg_gammaG}) ( {FF_LM_xchartg_gammaG}) ( FF_LM_colortransferG0} def) ( %END FF_LM_colortransferG) (/setcolortransfer {FF_LM_colortransferG} def) (%END standard definitions of Frame File Linearisation Method FF_LM) () (} def %END procedure 1MR-000GF of Global File (GF) data) () (%Remark:) (%The procedure 1MR-000GF may be called in the Global File (GF)) (%after definion of this procedure) (%****************************************************************************) ] def 0 1 63 {/i exch def %i=0,59 0 setgray x0 y0 i yd mul sub moveto i 04 eq i 56 eq or {1 0 0 setrgbcolor} if i 01 eq i 58 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 x3 y0 yd 13.0 mul sub moveto (Change setgray -> FF_LM_setrgbcolorG.) showen (\304nderung setgray -> FF_LM_setrgbcolorG.) showde x3 y0 yd 17.0 mul sub moveto (Change setcmykcolor -> FF_LM_setrgbcolorG.) showen (\304nderung setcmycolor -> FF_LM_setrgbcolorG.) showde x3 y0 yd 26.0 mul sub moveto (Change setrgbcolor -> FF_LM_setrgbcolorG.) showen (\304nderung setrgbcolor -> FF_LM_setrgbcolorG.) showde x3 y0 yd 33.0 mul sub moveto (Change FF_LM_setrgbcolorG -> FF_LM_setrgbcolorG0.) showen (\304nderung FF_LM_setrgbcolorG -> FF_LM_setrgbcolorG0.) showde x3 y0 yd 45.0 mul sub moveto (Change settransferG -> FF_LM_settransferG0.) showen (\304nderung settransferG -> FF_LM_settransferG0.) showde x3 y0 yd 50.0 mul sub moveto (Change setcolortransferG -> FF_LM_setcolortransferG0.) showen (\304nderung setcolortransferG -> FF_LM_setcolortransferG0.) showde x3 y0 yd 57.0 mul sub moveto (%The procedure 1MR-000GF may be called in the Global File (GF)) showpage grestore %%Trailer