%!PS-Adobe-3.0 EPSF-3.0 ggu90-4N %%BoundingBox: 70 85 246 335 %START PDFDE011.EPS /pdfmark04 where {pop} {userdict /pdfmark04 /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/ggu9/ggu9.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 pdfmark04 [ /View [ /Fit ] /DOCVIEW pdfmark04 %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 0 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 {(ggu90-) show} {(ggu91-) 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 [ %64 lines (%**********************************************************) (%BEG special definitions of Local (L) gamma and xyreh_1024) (/gammaLi 21 array def) (/gammaLi %rel. gamma according to ISO 9241-306:2018) (%0 1 2 3 4 5 6 7) ([0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000) (%8 9 10 11 12 13 14 15) ( 1.000 1.081 1.176 1.290 1.428 1.600 1.818 2.105) (%16 17 18 19 20) ( 2.000 0.500 1.500 0.666 1.000] def) () (/indexLi 07 def) (/gamma gammaLi indexLi get def) (/xrehj 1024 array def /yrehj 1024 array def) (/xinhj 1024 array def /yinhj 1024 array def) () (%calculation of the table xyreh_1024 (h=hex) of real values (reh) with gamma) (0 1 1023 {/j exch def %j=0,1023) ( xrehj j j put) ( yrehj j j 1023 div gamma exp 1023 mul cvi put) ( } for %j=0,1023) (%END special definitions of Local (L) gamma and xyreh_1024 ) () (/1MR-0000L {%BEG 1MR-0000L special and standard definitions of Local (L) procedure) (%BEG special definitions of FF_LM_L) (/FF_LM_xchartg_gammaL {/yed exch def) ( /yeh yed 1023 mul cvi def) ( /xinh yrehj yeh get def) ( xinh 1023 div) ( } def) (%END special definitions of FF_LM_L) () (%BEG standard definitions of FF_LM_L) (/FF_LM_setgrayL0 {setgray} bind def) (/FF_LM_setrgbcolorL0 {setrgbcolor} bind def) (/FF_LM_setcmykcolorL0 {setcmykcolor} bind def) (/FF_LM_transferL0 {settransfer} bind def) (/FF_LM_colortransferL0 {setcolortransfer} bind def) () (/setgray {%BEG procedure setgrayL) ( dup dup FF_LM_setrgbcolorL) ( } def %END procedure setgrayL) () (/setcmykcolor {%BEG procedure setcmykcolorL) ( /FF_LM_kL exch def /FF_LM_yL exch def) ( /FF_LM_mL exch def /FF_LM_cL exch def) ( FF_LM_kL 0 eq {1 FF_LM_cL sub 1 FF_LM_mL sub) ( 1 FF_LM_yL sub FF_LM_setrgbcolorL}) ( {1 FF_LM_kL sub dup dup) ( FF_LM_setrgbcolorL} ifelse) ( } def %END procedure setcmykcolorL) () (/setrgbcolor {%BEG procedure setrgbcolorL) ( /FF_LM_bL exch def /FF_LM_gL exch def) ( /FF_LM_rL exch def) ( FF_LM_rL FF_LM_gL FF_LM_bL) ( FF_LM_setrgbcolorL) ( } def %BEG procedure setrgbcolorL) () (/FF_LM_setrgbcolorL {%BEG FF_LM_setrgbcolorL) ( /FF_LM_b0L exch def /FF_LM_g0L exch def) ( /FF_LM_r0L exch def) ( FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if) ( FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if) ( FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if) ( /FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaL def) ( /FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaL def) ( /FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaL def) ( FF_LM_r1L FF_LM_g1L FF_LM_b1L) ( FF_LM_setrgbcolorL0} def %END FF_LM_setrgbcolorL) () (/FF_LM_transferL {%BEG FF_LM_transferL) ( {FF_LM_xchartg_gammaL}) ( FF_LM_transferL0} def %END FF_LM_transferL) (/settransfer {FF_LM_transferL} def) () (/FF_LM_colortransferL {%BEG FF_LM_colortransferL) ( {FF_LM_xchartg_gammaL} {FF_LM_xchartg_gammaL}) ( {FF_LM_xchartg_gammaL}) ( FF_LM_colortransferL0} def) ( %END FF_LM_colortransferL) (/setcolortransfer {FF_LM_colortransferL} def) (%END standard definitions of FF_LM_L) (} def %END 1MR-0000L special and standard definitions of Local (L) procedure) () (/iproc1MR 1 def) (iproc1MR 1 eq {1MR-0000L} if) (%****************************************************************************) ] def 0 1 87 {/i exch def %i=0,87 0 setgray x0 y0 i yd mul sub moveto i 01 eq i 21 eq or i 24 eq or i 30 eq or i 32 eq or i 82 eq or {1 0 0 setrgbcolor} if i 23 eq i 83 eq or {0 0 1 setrgbcolor} if ytexi i get show } for %i=0,87 /x1 3500 def /x2 x1 200 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, vergl.) 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 x2 y0 yd 4 mul sub moveto (External values of the Frame File (FF):) showen (Externe Werte der Rahmendatei (FF):) showde x2 y0 yd 5.3 mul sub moveto (xchart=0, 1, ..., 15) show x2 y0 yd 6.6 mul sub moveto (for the range 0,475 <= gammaL <=2,105) showen (f\374r den Bereich 0,475 <= gammaL <=2,105) showde x2 y0 yd 7.9 mul sub moveto (and inverse pairs 2-0,5, and 1,5-0,666.) showen (und inverse Paare 2-0,5 und 1,5-0,666.) showde x2 y0 yd 10.9 mul sub moveto (0 <= indexLi <= 20) show x2 y0 yd 12.2 mul sub moveto (definiton of gamma(indexLi).) showen (Definition von gamma(indexLi).) showde x2 y0 yd 18.8 mul sub moveto (Calculation of the table xyreh_1024) showen (Berechnung der Tabelle xyreh_1024) showde x2 y0 yd 20.1 mul sub moveto (for the value gamma=gammaLi(indexLi).) showen (f\374r den Wert gamma=gammaLi(indexLi).) showde x2 y0 yd 27.3 mul sub moveto (Application of the table xyreh_1024) showen (Anwendung der Tabelle xyreh_1024) showde x2 y0 yd 28.6 mul sub moveto (for the fast linearization method) showen (f\374r die schnelle Linearisierungsmethode) showde x2 y0 yd 29.9 mul sub moveto (of the inverse linearized output.) showen (der inversen linearisierten Ausgabe.) showde x2 y0 yd 34.0 mul sub moveto (The following standard definitions of the) showen (Die folgenden Normdefinitionen der) showde x2 y0 yd 35.3 mul sub moveto (Frame File Linearization method (FF_LM_L)) showen (Rahmendatei\255Linearisierungsmethode (FF_LM_L)) showde x2 y0 yd 36.6 mul sub moveto (serve for both vector and pixel graphic.) showen (dienen f\374r Vektor\255 und Pixelgrafik.) showde x2 y0 yd 37.9 mul sub moveto (These definitions are equal in most files.) showen (Die Definitionen sind in vielen Dateien gleich.) showde x3 y0 yd 41.0 mul sub moveto (Change setgray -> FF_LM_setrgbcolorL.) showen (\304nderung setgray -> FF_LM_setrgbcolorL.) showde x3 y0 yd 45.0 mul sub moveto (Change setcmykcolor -> FF_LM_setrgbcolorL.) showen (\304nderung setcmycolor -> FF_LM_setrgbcolorL.) showde x3 y0 yd 54.0 mul sub moveto (Change setrgbcolor -> FF_LM_setrgbcolorL.) showen (\304nderung setrgbcolor -> FF_LM_setrgbcolorL.) showde x3 y0 yd 61.0 mul sub moveto (Change FF_LM_setrgbcolorL -> FF_LM_setrgbcolorL0.) showen (\304nderung FF_LM_setrgbcolorL -> FF_LM_setrgbcolorL0.) showde x3 y0 yd 73.0 mul sub moveto (Change settransferL -> FF_LM_settransferL0.) showen (\304nderung settransferL -> FF_LM_settransferL0.) showde x3 y0 yd 78.0 mul sub moveto (Change setcolortransferL -> FF_LM_setcolortransferL0.) showen (\304nderung setcolortransferL -> FF_LM_setcolortransferL0.) showde 0 setgray showpage grestore %%Trailer