%!PS-Adobe-3.0 EPSF-3.0 hgc30-7N %%BoundingBox: 70 85 415 580 %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/hgc3/hgc3.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 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.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 {(hgc30-) show} {(hgc31-) 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 (/proc05_gammaL_xyreh {%BEG proc05_gammaL_xyreh) %01 (%BEG Local (L) gamma and calculation of 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) () (/gamma gammaLi indexFi 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) (/proc06_FF_LM_FLVLF {%BEG proc06_FF_LM_FLVLF) %22 ( /yed exch def) ( /yeh yed 1023 mul cvi def) ( /xinh yrehj yeh get def) ( xinh 1023 div) ( } def %END proc06_FF_LM_FLVLF) %27 () (} def %END proc05_gammaL_xyreh) %29 (%**********************************************************) %30 (/proc00_1MR_FLVLF {%BEG proc00_1MR_FLVLF) %31 (%main procedure Fast Linear Visual Local File (FLVLF)) () (/FF_LM_setgrayFLVLF0 {setgray} bind def) (/FF_LM_setrgbcolorFLVLF0 {setrgbcolor} bind def) (/FF_LM_setcmykcolorFLVLF0 {setcmykcolor} bind def) (/FF_LM_transferFLVLF0 {settransfer} bind def) (/FF_LM_colortransferFLVLF0 {setcolortransfer} bind def) () (/setgray {%BEG procedure setgrayFLVLF) %39 ( dup dup FF_LM_setrgbcolorFLVLF) ( } def %END procedure setgrayFLVLF) %41 () (/setcmykcolor {%BEG procedure setcmykcolorFLVLF) %43 (/FF_LM_kFLVLF exch def /FF_LM_yFLVLF exch def) (/FF_LM_mFLVLF exch def /FF_LM_cFLVLF exch def) (FF_LM_kFLVLF 0 eq {1 FF_LM_cFLVLF sub 1 FF_LM_mFLVLF sub) ( 1 FF_LM_yFLVLF sub FF_LM_setrgbcolorFLVLF}) ( {1 FF_LM_kFLVLF sub dup dup) ( FF_LM_setrgbcolorFLVLF} ifelse) ( } def %END procedure setcmykcolorFLVLF) %50 () (/setrgbcolor {%BEG procedure setrgbcolorFLVLF) %52 ( /FF_LM_bFLVLF exch def /FF_LM_gFLVLF exch def) ( /FF_LM_rFLVLF exch def) ( FF_LM_rFLVLF FF_LM_gFLVLF FF_LM_bFLVLF) ( FF_LM_setrgbcolorFLVLF) ( } def %BEG procedure setrgbcolorFLVLF) %57 () (/FF_LM_setrgbcolorFLVLF {%BEG FF_LM_setrgbcolorFLVLF) %59 ( /FF_LM_b0FLVLF exch def /FF_LM_g0FLVLF exch def) ( /FF_LM_r0FLVLF exch def) ( FF_LM_r0FLVLF 0 le {/FF_LM_r0FLVLF 0.0001 def} if) ( FF_LM_g0FLVLF 0 le {/FF_LM_g0FLVLF 0.0001 def} if) ( FF_LM_b0FLVLF 0 le {/FF_LM_b0FLVLF 0.0001 def} if) ( /FF_LM_r1FLVLF FF_LM_r0FLVLF proc06_FF_LM_FLVLF def) ( /FF_LM_g1FLVLF FF_LM_g0FLVLF proc06_FF_LM_FLVLF def) ( /FF_LM_b1FLVLF FF_LM_b0FLVLF proc06_FF_LM_FLVLF def) ( FF_LM_r1FLVLF FF_LM_g1FLVLF FF_LM_b1FLVLF) ( FF_LM_setrgbcolorFLVLF0} def %END FF_LM_setrgbcolorFLVLF) %69 () (/FF_LM_transferFLVLF {%BEG FF_LM_transferFLVLF) %71 ( {proc06_FF_LM_FLVLF}) ( FF_LM_transferFLVLF0} def %END FF_LM_transferFLVLF) (/settransfer {FF_LM_transferFLVLF} def) %74 () (/FF_LM_colortransferFLVLF {%BEG FF_LM_colortransferFLVLF) %76 ( {proc06_FF_LM_FLVLF} {proc06_FF_LM_FLVLF}) ( {proc06_FF_LM_FLVLF}) ( FF_LM_colortransferFLVLF0} def) (/setcolortransfer {FF_LM_colortransferFLVLF} def) %80 (} def %END proc00_1MR_FLVLF) %81 (%**********************************************************) (/indexFi 07 def %default for gammaL=1.000) %83 (/iproc1MR 1 def %optional application example) (iproc1MR 1 eq {%main Frame_File_Linearisation_Method (FF_LM)) ( proc00_1MR_FLVLF proc05_gammaL_xyreh} if) (%**********************************************************) %87 () ] def 0 1 87 {/i exch def %i=0,87 0 setgray x0 y0 i yd mul sub moveto i 21 eq i 26 eq or i 39 eq or i 41 eq or i 43 eq or i 50 eq or i 52 eq or i 59 eq or i 69 eq or i 71 eq or i 74 eq or i 76 eq or i 80 eq or i 87 eq or {1 0 0 setrgbcolor} if i 01 eq i 28 eq or i 30 eq or i 81 eq or i 86 eq or {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 200 add y0 yd 01 mul sub moveto %02 (%BEG proc05_gammaL_xyreh) show 1 0 0 setrgbcolor x1 200 add y0 yd 21 mul sub moveto %21 (%BEG proc06_FF_LM_FLVLF) show x1 200 add y0 yd 26 mul sub moveto %26 (%END proc06_FF_LM_FLVLF) show 0 0 1 setrgbcolor x1 200 add y0 yd 28 mul sub moveto (%END proc05_gammaL_xyreh) show %28 0 0 1 setrgbcolor x1 200 add y0 yd 30 mul sub moveto (%BEG proc00_FF_LM_FLVLF) show %30 1 0 0 setrgbcolor x1 200 add y0 yd 39 mul sub moveto %39 (setgray -> FF_LM_setrgbcolorG) show x1 200 add y0 yd 43 mul sub moveto %43 (setcmykcolor -> FF_LM_setrgbcolorG) show x1 200 add y0 yd 52 mul sub moveto %52 (setrgbcolor -> FF_LM_setrgbcolorG) show x1 200 add y0 yd 59 mul sub moveto %59 (FF_LM_setrgbcolorG -> FF_LM_setrgbcolorG0) show x1 200 add y0 yd 71 mul sub moveto %71 (settransferG -> FF_LM_settransferG0) show x1 200 add y0 yd 76 mul sub moveto %76 (setcolortransferG->FF_LM_setcolortransferG0) show 0 0 1 setrgbcolor x1 200 add y0 yd 81 mul sub moveto (%END proc00_FF_LM_FLVLF) show %81 1 0 0 setrgbcolor x1 200 add y0 yd 85 mul sub moveto %85 (%Example: combined procedure) showen (%Beispiel: kombinierte Prozedur) showde 0 setgray showpage grestore %%Trailer