%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/feo2/feo20-7n 20240401 %%BoundingBox: 70 82 415 320 %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/feo2/feo2.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:2024040112000) /ModDate (D:20240401112000) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %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 % 40mm = 80*72/25.4 = 232; 232+90+13 = 335 % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /TV {120 /Times-ISOL1 FS} bind def /TL {160 /Times-ISOL1 FS} bind def /TS {200 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {280 /Times-ISOL1 FS} bind def /TG {320 /Times-ISOL1 FS} bind def /TIV {120 /TimesI-ISOL1 FS} bind def /TIL {160 /TimesI-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {280 /TimesI-ISOL1 FS} bind def /TIG {320 /TimesI-ISOL1 FS} bind def /TBV {120 /TimesB-ISOL1 FS} bind def /TBL {160 /TimesB-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {280 /TimesB-ISOL1 FS} bind def /TBG {320 /TimesB-ISOL1 FS} bind def /TBIV {120 /TimesBI-ISOL1 FS} bind def /TBIL {160 /TimesBI-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {280 /TimesBI-ISOL1 FS} bind def /TBIG {320 /TimesBI-ISOL1 FS} bind def /SV {120 /Symbol FS} bind def /SL {160 /Symbol FS} bind def /SS {200 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {280 /Symbol FS} bind def /SG {320 /Symbol FS} bind def /RV {120 /Times-Roman FS} bind def /RL {160 /Times-Roman FS} bind def /RS {200 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {280 /Times-Roman FS} bind def /RG {320 /Times-Roman FS} bind def /RIV {120 /Times-Italic FS} bind def /RIL {160 /Times-Italic FS} bind def /RIS {200 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {280 /Times-Italic FS} bind def /RIG {320 /Times-Italic FS} bind def /RBV {120 /Times-Bold FS} bind def /RBL {160 /Times-Bold FS} bind def /RBS {200 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {280 /Times-Bold FS} bind def /RBG {320 /Times-Bold FS} bind def /RBIV {120 /Times-BoldItalic FS} bind def /RBIL {160 /Times-BoldItalic FS} bind def /RBIS {200 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {280 /Times-BoldItalic FS} bind def /RBIG {320 /Times-BoldItalic FS} bind def /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmykcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmykcolor rec stroke} bind def /cvishowr {dup 0 ge {0.5 add} {0.5 sub} ifelse cvi 6 string cvs show} def /cvishow {cvi 6 string cvs show} def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def /cvishowr {/nxx exch def %example nxx=99.1/99.0 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 10 mul cvi /nxi exch def %nxi=991/990 nxi 10 idiv /nxa exch def %nxa=99 nxi nxa 10 mul sub /nxb exch def %nxb=1/0 nxa cvishow (,) show %nxa=99 nxb cvishow %nxb=1/0 } def /cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00 nxi 100 idiv /nxa exch def %nxa=99 nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00 nxa cvishow (,) show %nxb=99, nxb 10 ge {nxb cvishow} if %nxb=12 nxb 1 ge nxb 9 le and {(0) show nxb cvishow} if %nxb=02 nxb 0 eq {(00) show} if %nxb=00 } def /cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000 nxx 0 lt {(-) show /nxx nxx abs def} if nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000 nxi 1000 idiv /nxa exch def %nxa=99 nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000 nxa cvishow (,) show %nxb=99, nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000 nxb 10 ge nxb 99 le and {(0) show nxb cvishow} if %nxb=012 nxb 1 ge nxb 9 le and {(00) show nxb cvishow} if %nxb=001 nxb 0 eq {(000) show} if %nxb=000 } def %%EndProlog gsave %lanindL2 START 20000505 /lanind 1 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 {3 lanind eq {show} {pop} ifelse} bind def /showfr {2 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 1 def /lanind2 1 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 % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 72 90 translate 0.02 MM dup scale /xchartl 0 def %not used /ispace 2 def %LOG + 2:CIELAB_W, 3:CIELAB_U, 4:IECsRGB_W all three for YnU, YnW % %LOG + 2:CIELAB_W, 3:CIELAB_U, 4:IECsRGB_W all three for LrU, LrW % %5:ITUsRGB_W, 6:ITUsRGB_P2 both for LrU, LrW %fno0_7: choose for 4 tables: 2, 3, 4 and ispaca=1 with 4 %fno8: choose for 4 tables: 2, 3, 5 and ispaca=1 with 4 %fno9: choose for 4 tables: 2, 3, 6 and ispace=1 with 4 /ispaca 0 def %0/1: whithout/with additional IEC space %'fno8'Y10-7N.EPS is copied to 'fno9' with 'fnox'PROZ_FNO9.COM 0 setgray TV 100 -120 moveto (feo20-7n) show 30 setlinewidth /yhoe 4000 def /xwidth 6000 def 1 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke gsave %start because of clip %***************************************************************** /ix0 0030 def /iyd 0150 def %line distance /iyds 0165 def %line distance for equations /ix1 2000 def %left border /iy1 0200 def %down border /ix2 3400 def %right border /iy2 3800 def %top border /ixl ix2 ix1 sub def %x-size /iyl iy2 iy1 sub def %y-size /iym 3700 def %top line 0 setgray ix0 yhoe iyd 1 mul sub moveto TBL (Colourimetric scaling of achromatic colours ) showea (between peak white and black.) showea (Farbmetrische Skalierung von unbunten Farben ) showde (zwischen SpitzenWei\337 und Schwarz.) showde ix0 yhoe iyd 2 mul sub moveto TBL (Relations between tristimulus value ) showea (Beziehungen Hellbezugswert ) showde TBIL (Y, ) show TBL (luminance ) showea (Leuchtdichte ) showde TBIL (L) show TBL (, and lightness ) showea ( und Helligkeit ) showde TBIL (L* ) show TBL (of ISO\255standards) showea (nach ISO\255Normen) showde 20 setlinewidth %0 yhoe iyd 2 mul sub 40 sub moveto xwidth 0 rlineto stroke /yhod yhoe 500 sub def /iout 0 def iout 1 eq {%iout=1 ix0 yhod iyds 0 mul sub moveto TL (The ) showea (Die ) showde TIL (Weber\255Fechner) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL ( as ) showea TBIL (logarithmic ) showea TL (function of ) showea ( ist eine ) showde TBIL (logarithmische ) showde TL (Funktion von ) showde TIL (L) show 0 -30 rmoveto TV (rU) show 10 30 rmoveto TL (.) show ix0 yhod iyds 1 mul sub moveto TL (The ) showea (Die ) showde TIL (Stevens) show TL (\255Gesetz\255Helligkeit ) showde ( law describes the lightness ) showea TIL (L*) show -20 -30 rmoveto TV (CIELAB,U) show 0 30 rmoveto TL ( as ) showea TBIL (potential ) showea TL (function of ) showea ( ist eine ) showde TBIL (Potenzfunktion ) showde TL (von ) showde TIL (L) show 0 -30 rmoveto TV (rU) show 10 30 rmoveto TL (=) show TIL (Y) show TL (/5.) show ix0 yhod iyds 2 mul sub moveto TL %(IEC 61966\2552\2551 uses a similar potential function ) showea %(IEC 61966\2552\2551 benutzt eine \344hnliche Potenzfunktion ) showde %TIL (L*) show -10 -30 rmoveto TV (IEC) show 0 30 rmoveto %TIL ( = m ) show TIL (L) show %0 -30 rmoveto TV (rU) show 0 30 rmoveto %0 50 rmoveto TV (1/2,4) show 0 -50 rmoveto %TL (.) show TBIL (L*) show -30 -30 rmoveto TBV (CIELAB,U) show 0 30 rmoveto TBL ( = 116 ) show TBIL (L) show 0 -30 rmoveto TBV (rU) show 0 30 rmoveto 0 50 rmoveto TBV (1/3) show 0 -50 rmoveto 20 0 rmoveto TBL (-16 = c ) show 0 -30 rmoveto TBV (u) show 0 30 rmoveto TBIL (L) show 0 -30 rmoveto TBV (rU) show 0 30 rmoveto 0 50 rmoveto TBV (1/3) show 0 -50 rmoveto 20 0 rmoveto TBL (-16) show TBL (, ) show TBL (Approximation: ) showea (N\344herung: ) showde TBIL (L*) show -10 -30 rmoveto TBV (IEC,sRGB) show 0 30 rmoveto TBL ( = 50 ) show TBIL (L) show 0 -30 rmoveto TBV (rU) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto % 5700 yhod iyds 2 mul sub moveto TL ([1]) show ix0 yhod iyds 3.1 mul sub moveto TL (The ) showea (Das ) showde TIL (Weber\255Fechner) show TL (\255Gesetz ist \344quivalent zur Gleichung: ) showde ( law is equivalent to the equation: ) showea SL (D) show TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL ( = ) show TIL (c) show 20 0 rmoveto TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto 5700 yhod iyds 3.1 mul sub moveto TL ([2]) show 0 setgray TL ix0 yhod iyds 4.2 mul sub moveto TIL (Integration ) show TL (leads to the logarithmic equation: ) showea (f\374hrt zur logarithmischen Gleichung: ) showde TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (=t) show TV 0 -30 rmoveto (U) 0 30 rmoveto 20 0 rmoveto TL (log\050) show TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (\051.) show 5700 yhod iyds 4.2 mul sub moveto TL ([3]) show ix0 yhod iyds 5.3 mul sub moveto TIL (Derivation ) showea (Ableitung ) showde TL (leads for ) showea (f\374hrt f\374r ) showde SL (D) show TIL (L*) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (=1 ) show TL (to the linear equation: ) showea (zur linearen Gleichung: ) showde TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (/) show SL (D) show TIL (L) show 0 -30 rmoveto TV (rU) show 0 30 rmoveto TL (=t=57.) show 5700 yhod iyds 5.3 mul sub moveto TL ([4]) show ix0 yhod iyds 6.4 mul sub moveto TL (For ) showea (f\374r ) showde TBIL (adjacent ) showea (aneinandergrenzende ) showde TL (colours in offices the standard contrast range is ) showea (Farben im B\374ro ist der NormKontrastbereich ) showde TBL (25:1) show TL (=100:4) show (.) show } if %iout=0 %************************************************************** %allows to mark squares by colours /iy00i [0 0 0 0 0 0] def /iy01i [0 0 0 0 0 0] def /iy02i [0 0 0 0 0 0] def /iy03i [0 0 0 0 0 0] def %********************************************************************** % 0 1 2 3 4 5 6 /ixi [0030 1100 1850 2850 3850 4850 6000] def %P2 0 1 2 3 4 5 /ty10i [() (450) (1000) (25) () ()] def %/ty11i [() (=20*25) (=40*25) () () ()] def /ty11i [() (=18*25) (=40*25) () () ()] def /iy10i [0 0 0 0 0 0] def /iy11i [0 0 0 0 0 0] def %P1 0 1 2 3 4 5 /ty12i [() (224) (448) (11,2) () ()] def %/ty13i [() (=20*11,2)(=40*11,2) () () ()] def /ty13i [() (=18*11,2)(=40*11,2) () () ()] def /iy12i [0 0 0 0 0 0] def /iy13i [0 0 0 0 0 0] def %W 0 1 2 3 4 5 /ty14i [() (90) (200) (5) () ()] def %/ty15i [() (=20*5) (=40*5) () () ()] def /ty15i [() (=18*5) (=40*5) () () ()] def /iy14i [0 0 0 0 0 0] def /iy15i [0 0 0 0 0 0] def %U 0 1 2 3 4 5 /ty16i [() (18) (40) (1) () ()] def %/ty17i [() () () () () ()] def /ty17i [() (=18*1) (40*1) () () ()] def /iy16i [0 0 0 0 0 0] def /iy17i [0 0 0 0 0 0] def %N 0 1 2 3 4 5 /ty18i [() (3,6) (8) (0,20) () ()] def %/ty19i [() (=20/5) (40/5) () () ()] def /ty19i [() (=18/5) (40/5) () () ()] def /iy18i [0 0 0 0 0 0] def /iy19i [0 0 0 0 0 0] def %p1 0 1 2 3 4 5 /ty20i [() (2,5) (5,7) (0,14) () ()] def %/ty21i [() (=20/11,2)(40/7) () () ()] def /ty21i [() (=18/7) (40/7) () () ()] def /iy20i [0 0 0 0 0 0] def /iy21i [0 0 0 0 0 0] def %p2 0 1 2 3 4 5 /ty22i [() (1,8) (4) (0,10) () ()] def %/ty23i [() (=20/11,2)(40/10) () () ()] def /ty23i [() (=18/10) (40/10) () () ()] def /iy22i [0 0 0 0 0 0] def /iy23i [0 0 0 0 0 0] def %********************************************************************** /proz_Y_L*_CIELAB_W {%BEG proz_Y_L*_CIELAB_W /YQ Ynref 100.00 div def /A_CIELAB_W 116 def YQ 0 lt {/YQ 0.00000001 def} if /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ 0.33333333 exp A_CIELAB_W mul 16 sub} ifelse def } bind def %END proz_Y_L*_CIELAB_W %********************************************************************** /proz_Y_L*_CIELAB_U {%BEG proz_Y_L*_CIELAB_U /YQ Ynref 100.00 div def /YQ2 Ynref 20.00 div def /Ynr20 20 def /A_CIELAB_U 20 100 div 0.33333333 exp 116 mul def /L*ref YQ 0.008856 lt {903.3 YQ mul} {YQ2 0.33333333 exp A_CIELAB_U mul 16 sub} ifelse def } bind def %END proz_Y_L*_CIELAB_U %********************************************************************** /proz_Y_L*_IECsRGB_W {%BEG proz_Y_L*_IECsRGB_W /YQ Ynref 100.00 div def /A_IECsRGB_W 100 def /L*ref YQ 1 2.4 div exp A_IECsRGB_W mul def } bind def %END proz_Y_L*_IECsRGB_W %********************************************************************** /proz_Y_L*_IECsRGB_U {%BEG proz_Y_L*_IECsRGB_U /YQ Ynref 20.00 div def /A_IECsRGB_U 20 100 div 1 2.4 div exp 100 mul def /L*ref YQ 1 2.4 div exp A_IECsRGB_U mul def } bind def %END proz_Y_L*_IECsRGB_U %********************************************************************** /proz_Y_L*_TUBLOG_W {%BEG proz_Y_L*_TUBLOG_W /YQ Ynref 100.00 div def /A_TUBLOG_W 100.00 20.00 div 40 mul 5 log div def /L*ref YQ 1 2.4 div exp A_TUBLOG_W mul def } bind def %END proz_Y_L*_TUBLOG_W %********************************************************************** /proz_Y_L*_TUBLOG_U {%BEG proz_Y_L*_TUBLOG_U /YQ Ynref 20 div def /A_TUBLOG_U 50 5 log div def /L*ref YQ log A_TUBLOG_U mul def } bind def %END proz_Y_L*_TUBLOG_U /Y_refi 7 array def /L*refi 7 array def % p2 p1 N U W P1 P2 % 0 1 2 3 4 5 6 /Y_refi [1.8 2.5 4 20 100 224 500] def %Y_refi 3 Y_refi 2 get 5.0 mul 1.00 mul put %U 20 %Y_refi 4 Y_refi 2 get 25.0 mul 1.00 mul put %W 100 %Y_refi 5 Y_refi 2 get 25.0 mul 2.24 mul put %P1 224 %Y_refi 6 Y_refi 2 get 125.0 mul 1.00 mul put %P1 500 /L_reUi 7 array def /L_reWi 7 array def 0 1 6 {/i exch def %i=0,6 L_reUi i Y_refi i get 20 div put L_reWi i Y_refi i get 100 div put } for %i=0,6 %********************************************************************** /iyd 190 def /iyd2 iyd 2 mul def /ixs 030 def /iytab 2000 iyd 7.8 mul add def /iyi 50 array def 0 1 3 {/i exch def %i=0,3 iyi i 2 mul 0 add iytab i iyd2 mul sub put iyi i 2 mul 1 add iytab i iyd2 mul sub iyd sub 20 add put } for %i=0,3 %$STOP2 /yhod1 iytab 300 add def 0 setgray 0 1 5 {/i exch def iy00i i get 0 eq {1 1 1 setrgbcolor} if iy00i i get 1 eq {1 1 0 setrgbcolor} if iy00i i get 2 eq {0 1 0 setrgbcolor} if iy00i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 00 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy01i i get 0 eq {1 1 1 setrgbcolor} if iy01i i get 1 eq {1 1 0 setrgbcolor} if iy01i i get 2 eq {0 1 0 setrgbcolor} if iy01i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 01 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TBL ixi 4 get iyi 00 get moveto ispace 2 eq {(CIELAB) show 0 -50 rmoveto (W) show 0 50 rmoveto} if ispace 3 eq {(CIELAB) show 0 -50 rmoveto (U) show 0 50 rmoveto} if ispace 4 eq {(IECsRGB) show 0 -50 rmoveto (W) show 0 50 rmoveto} if ispaca 1 eq {ixi 2 get iyi 00 get moveto (IECsRGB) show 0 -50 rmoveto (W) show 0 50 rmoveto ixi 2 get iyi 01 get moveto (lightness) showea (Helligkeit) showde } if ixi 4 get iyi 01 get moveto (lightness) showea (Helligkeit) showde ixi 5 get iyi 00 get moveto (TUBLOG) show 0 -50 rmoveto (U) show 0 50 rmoveto ixi 5 get iyi 01 get moveto (lightness) showea (Helligkeit) showde 0 setgray 0 1 5 {/i exch def iy02i i get 0 eq {1 1 1 setrgbcolor} if iy02i i get 1 eq {1 1 0 setrgbcolor} if iy02i i get 2 eq {0 1 0 setrgbcolor} if iy02i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 02 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy03i i get 0 eq {1 1 1 setrgbcolor} if iy03i i get 1 eq {1 1 0 setrgbcolor} if iy03i i get 2 eq {0 1 0 setrgbcolor} if iy03i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iyi 03 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray /xp 480 def /yp 20 def %L* ispace 2 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto 0 -50 rmoveto (W) show 0 50 rmoveto} if ispace 3 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show -20 -30 rmoveto TBV (CIELAB) show 0 30 rmoveto 0 -50 rmoveto (U) show 0 50 rmoveto} if ispace 4 eq {ixi 4 get iyi 02 get 20 add moveto TBIL (L*) show -20 -30 rmoveto TBV (IECsRGB) show 0 30 rmoveto 0 -50 rmoveto (W) show 0 50 rmoveto} if ispaca 1 eq {ixi 2 get iyi 02 get 20 add moveto TBIL (L*) show -20 -30 rmoveto TBV (IECsRGB) show 0 30 rmoveto 0 -50 rmoveto (W) show 0 50 rmoveto} if %L*r ixi 5 get iyi 02 get 20 add moveto TBIL (L*) show -0 -30 rmoveto TBV (TUBLOG) show 0 30 rmoveto 0 -50 rmoveto (U) show 0 50 rmoveto 0 setgray ispaca 0 eq {%ispaca=0 %[cd/m2] ixi 2 get iyi 03 get moveto %1 0 0 setrgbcolor TBL ([cd/m) show 0 50 rmoveto TBV (2) show 0 -50 rmoveto TBL (]) show } if %ispaca=0 %=L/Lz ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (U) show 0 30 rmoveto ispace 2 eq {%CIELAB_W %=Lr(1/3) ixi 4 get iyi 03 get moveto -10 0 rmoveto TBL (=c) show 0 -30 rmoveto TBV (W) show 0 30 rmoveto 0 0 rmoveto TBIL (L) show 0 -30 rmoveto TBV (nW) show 0 30 rmoveto 0 50 rmoveto TBV (1/3) show 0 -50 rmoveto 0 0 rmoveto TBL (-16) show } if ispace 3 eq {%CIELAB_U %=Lr(1/3) ixi 4 get iyi 03 get moveto TBL (=d) show 0 -30 rmoveto TBV (U) show 0 30 rmoveto 0 0 rmoveto TBIL (L) show 0 -30 rmoveto TBV (nU) show 0 30 rmoveto 0 50 rmoveto TBV (1/3) show 0 -50 rmoveto 0 0 rmoveto TBL (-16) show } if ispace 4 eq {%IECsRGB_W %=Lr(1/2,4) ixi 4 get iyi 03 get moveto TBL (=s) show 0 -30 rmoveto TBV (W) show 0 30 rmoveto 20 0 rmoveto TBIL (L) show 0 -30 rmoveto TBV (nW) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto } if ispaca 1 eq {%IECsRGB_W %=Lr(1/2,4) ixi 2 get iyi 03 get moveto TBL (=s) show 0 -30 rmoveto TBV (W) show 0 30 rmoveto 20 0 rmoveto TBIL (L) show 0 -30 rmoveto TBV (nW) show 0 30 rmoveto 0 50 rmoveto TBV (1/2,4) show 0 -50 rmoveto } if %=k log(Lr) ixi 5 get iyi 03 get moveto TBL (=t) show 0 -30 rmoveto TBV (U) show 0 30 rmoveto 20 0 rmoveto TBL (log\050) show TBIL (L) show 0 -30 rmoveto TBV (nU) show 0 30 rmoveto TBL (\051+50) show 0 setgray %*********************************************************************** /iy1i 50 array def /iytab1 2000 iyd 3.8 mul add def %definition iy1i:10_23 0 1 6 {/i exch def %i=0,6 iy1i i 2 mul 10 add iytab1 i iyd2 mul sub put iy1i i 2 mul 11 add iytab1 i iyd2 mul sub iyd sub 20 add put } for %i=0,6 0 1 5 {/i exch def iy10i i get 0 eq {1 1 1 setrgbcolor} if iy10i i get 1 eq {1 1 0 setrgbcolor} if iy10i i get 2 eq {0 1 0 setrgbcolor} if iy10i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 10 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy11i i get 0 eq {1 1 1 setrgbcolor} if iy11i i get 1 eq {1 1 0 setrgbcolor} if iy11i i get 2 eq {0 1 0 setrgbcolor} if iy11i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 11 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iy1i 10 get moveto ty10i 0 get show ixi 1 get iy1i 10 get moveto ty10i 1 get show ispaca 0 eq {ixi 2 get iy1i 10 get moveto ty10i 2 get show} if ixi 3 get iy1i 10 get moveto ty10i 3 get show ixi 0 get iy1i 11 get moveto ty11i 0 get show ixi 1 get iy1i 11 get moveto ty11i 1 get show ispaca 0 eq {ixi 2 get iy1i 11 get moveto ty11i 2 get show} if ixi 3 get iy1i 11 get moveto ty11i 3 get show TL ixi 0 get iy1i 12 get moveto ty12i 0 get show ixi 1 get iy1i 12 get moveto ty12i 1 get show ispaca 0 eq {ixi 2 get iy1i 12 get moveto ty12i 2 get show} if ixi 3 get iy1i 12 get moveto ty12i 3 get show ixi 0 get iy1i 13 get moveto ty13i 0 get show ixi 1 get iy1i 13 get moveto ty13i 1 get show ispaca 0 eq {ixi 2 get iy1i 13 get moveto ty13i 2 get show} if ixi 3 get iy1i 13 get moveto ty13i 3 get show TL ixi 0 get iy1i 14 get moveto ty14i 0 get show ixi 1 get iy1i 14 get moveto ty14i 1 get show ispaca 0 eq {ixi 2 get iy1i 14 get moveto ty14i 2 get show} if ixi 3 get iy1i 14 get moveto ty14i 3 get show ixi 0 get iy1i 15 get moveto ty15i 0 get show ixi 1 get iy1i 15 get moveto ty15i 1 get show ispaca 0 eq {ixi 2 get iy1i 15 get moveto ty15i 2 get show} if ixi 3 get iy1i 15 get moveto ty15i 3 get show 0 1 5 {/i exch def iy16i i get 0 eq {1 1 1 setrgbcolor} if iy16i i get 1 eq {1 1 0 setrgbcolor} if iy16i i get 2 eq {0 1 0 setrgbcolor} if iy16i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 16 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy17i i get 0 eq {1 1 1 setrgbcolor} if iy17i i get 1 eq {1 1 0 setrgbcolor} if iy17i i get 2 eq {0 1 0 setrgbcolor} if iy17i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 17 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iy1i 16 get moveto ty16i 0 get show ixi 1 get iy1i 16 get moveto ty16i 1 get show ispaca 0 eq {ixi 2 get iy1i 16 get moveto ty16i 2 get show} if ixi 3 get iy1i 16 get moveto ty16i 3 get show ixi 0 get iy1i 17 get moveto ty17i 0 get show ixi 1 get iy1i 17 get moveto ty17i 1 get show ispaca 0 eq {ixi 2 get iy1i 17 get moveto ty17i 2 get show} if ixi 3 get iy1i 17 get moveto ty17i 3 get show 0 1 5 {/i exch def iy18i i get 0 eq {1 1 1 setrgbcolor} if iy18i i get 1 eq {1 1 0 setrgbcolor} if iy18i i get 2 eq {0 1 0 setrgbcolor} if iy18i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 18 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy19i i get 0 eq {1 1 1 setrgbcolor} if iy19i i get 1 eq {1 1 0 setrgbcolor} if iy19i i get 2 eq {0 1 0 setrgbcolor} if iy19i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 19 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iy1i 18 get moveto ty18i 0 get show ixi 1 get iy1i 18 get moveto ty18i 1 get show ispaca 0 eq {ixi 2 get iy1i 18 get moveto ty18i 2 get show} if ixi 3 get iy1i 18 get moveto ty18i 3 get show ixi 0 get iy1i 19 get moveto ty19i 0 get show ixi 1 get iy1i 19 get moveto ty19i 1 get show ispaca 0 eq {ixi 2 get iy1i 19 get moveto ty19i 2 get show} if ixi 3 get iy1i 19 get moveto ty19i 3 get show 0 1 5 {/i exch def iy20i i get 0 eq {1 1 1 setrgbcolor} if iy20i i get 1 eq {1 1 0 setrgbcolor} if iy20i i get 2 eq {0 1 0 setrgbcolor} if iy20i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 20 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy21i i get 0 eq {1 1 1 setrgbcolor} if iy21i i get 1 eq {1 1 0 setrgbcolor} if iy21i i get 2 eq {0 1 0 setrgbcolor} if iy21i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 21 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iy1i 20 get moveto ty20i 0 get show ixi 1 get iy1i 20 get moveto ty20i 1 get show ispaca 0 eq {ixi 2 get iy1i 20 get moveto ty20i 2 get show} if ixi 3 get iy1i 20 get moveto ty20i 3 get show ixi 0 get iy1i 21 get moveto ty21i 0 get show ixi 1 get iy1i 21 get moveto ty21i 1 get show ispaca 0 eq {ixi 2 get iy1i 21 get moveto ty21i 2 get show} if ixi 3 get iy1i 21 get moveto ty21i 3 get show 0 1 5 {/i exch def iy22i i get 0 eq {1 1 1 setrgbcolor} if iy22i i get 1 eq {1 1 0 setrgbcolor} if iy22i i get 2 eq {0 1 0 setrgbcolor} if iy22i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 22 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 1 5 {/i exch def iy23i i get 0 eq {1 1 1 setrgbcolor} if iy23i i get 1 eq {1 1 0 setrgbcolor} if iy23i i get 2 eq {0 1 0 setrgbcolor} if iy23i i get 3 eq {1 0 0 setrgbcolor} if ixi i get ixs sub iy1i 23 get ixs sub moveto /ixd ixi i 1 add get ixi i get sub def ixd 0 rlineto 0 iyd rlineto ixd neg 0 rlineto closepath fill } for 0 setgray TL ixi 0 get iy1i 22 get moveto ty22i 0 get show ixi 1 get iy1i 22 get moveto ty22i 1 get show ispaca 0 eq {ixi 2 get iy1i 22 get moveto ty22i 2 get show} if ixi 3 get iy1i 22 get moveto ty22i 3 get show ixi 0 get iy1i 23 get moveto ty23i 0 get show ixi 1 get iy1i 23 get moveto ty23i 1 get show ispaca 0 eq {ixi 2 get iy1i 23 get moveto ty23i 2 get show} if ixi 3 get iy1i 23 get moveto ty23i 3 get show TBL ixi 0 get iyi 00 get moveto (Colour \050light) showea (Farbe \050Licht) showde ixi 0 get iyi 01 get moveto (or paper\051) showea (oder Papier\051) showde ixi 1 get iyi 00 get moveto (tristimu\255) showea (Norm\255) showde ixi 1 get iyi 01 get moveto (lus values) showea (farbwert) showde ispaca 0 eq {%ispaca=0 ixi 2 get iyi 00 get moveto (HDR display) showea (HDR\255Display\255) showde ixi 2 get iyi 01 get moveto (luminance) showea (Leuchtdichte) showde } if %spaca=0 ixi 3 get iyi 00 get moveto (relative) showea (relative) showde ixi 3 get iyi 01 get moveto (luminance) showea (Leuchtdichte) showde ixi 0 get iyi 02 get moveto (Contrast W:N) showea (Kontrast W:N) showde ixi 1 get iyi 02 get moveto TBIL (Y) show ispaca 0 eq {ixi 2 get iyi 02 get moveto TBIL (L) show} if ixi 0 get iyi 03 get moveto TBL ((25:1=100:4)) show ixi 1 get iyi 03 get moveto TL (\0505) show 0 40 rmoveto TV (0,5) show 0 -40 rmoveto TL (=2,24) show TL ixi 0 get iy1i 10 get moveto (White P2) showea (Wei\337 P2) showde ixi 0 get iy1i 11 get moveto ((light)) showea ((Licht)) showde ixi 0 get iy1i 12 get moveto (White P1) showea (Wei\337 P1) showde ixi 0 get iy1i 13 get moveto ((light)) showea ((Licht)) showde ixi 0 get iy1i 14 get moveto (White W \050fluo\255) showea (Wei\337 W \050Fluo\255) showde ixi 0 get iy1i 15 get moveto (recent paper\051) showea (reszenspapier\051) showde %ixi 0 get iy1i 14 get moveto (light Grey H) showea (Hellgrau H) showde %ixi 0 get iy1i 15 get moveto ((paper)) showea ((Papier)) showde ixi 0 get iy1i 16 get moveto (Grey U) showea (Grau U) showde ixi 0 get iy1i 17 get moveto ((paper)) showea ((Papier)) showde %ixi 0 get iy1i 18 get moveto (dark Grey D) showea (Dunkelgrau D) showde %ixi 0 get iy1i 19 get moveto ((paper)) showea ((Papier)) showde ixi 0 get iy1i 18 get moveto (Black N) showea (Schwarz N) showde ixi 0 get iy1i 19 get moveto ((paper)) showea ((Papier)) showde ixi 0 get iy1i 20 get moveto (Black p1) showea (Schwarz p1) showde ixi 0 get iy1i 21 get moveto ((glossy paper)) showea ((Glanzpapier)) showde ixi 0 get iy1i 22 get moveto (Black p2) showea (Schwarz p2) showde ixi 0 get iy1i 23 get moveto ((glossy paper)) showea ((Glanzpapier)) showde ispace 2 eq {%CIELAB_W TL 0 1 6 {/i exch def %i=0,6 /Ynref Y_refi i get def proz_Y_L*_CIELAB_W L*refi i L*ref put ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=c\050) show L_reWi i get 0.005 add cvsshow2g %with rounding (\051) show TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show ixi 4 get iy1i 22 i 2 mul sub get moveto L*refi i get cvishow (=50) show L*refi i get 50 sub dup 0 ge {(+) show}{(-) show} ifelse abs cvishow } for } if %CIELAB_W ispace 3 eq {%CIELAB_U TL 0 1 6 {/i exch def %i=0,6 /Ynref Y_refi i get def proz_Y_L*_CIELAB_U L*refi i L*ref put ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=c\050) show L_reUi i get 0.005 add cvsshow2g %with rounding (\051) show TV 0 50 rmoveto (1/3) show 0 -50 rmoveto TL (-16) show ixi 4 get iy1i 22 i 2 mul sub get moveto L*refi i get cvishow (=50) show L*refi i get 50 sub dup 0 ge {(+) show}{(-) show} ifelse abs cvishow } for %CIELAB_U } if %CIELAB_U ispace 4 eq {%IECsRGB_W TL 0 1 6 {/i exch def %i=0,6 /Ynref Y_refi i get def proz_Y_L*_IECsRGB_W L*refi i L*ref put ixi 4 get iy1i 23 i 2 mul sub get moveto TL (=s\050) show L_reWi i get 0.005 add cvsshow2g %with rounding (\051) show TV 0 50 rmoveto (1/2,4) show TL ixi 4 get iy1i 22 i 2 mul sub get moveto L*refi i get cvishow (=50) show L*refi i get 50 sub dup 0 ge {(+) show}{(-) show} ifelse abs cvishow } for %i=0,6 } if %ispace=4 %log allways TL 0 1 6 {/i exch def %i=0,6 /Ynref Y_refi i get def proz_Y_L*_TUBLOG_U L*refi i L*ref put ixi 5 get iy1i 23 i 2 mul sub get moveto TL (=t log\050) show L_reUi i get 0.005 add cvsshow2g %with rounding (\051+50) show ixi 5 get iy1i 22 i 2 mul sub get moveto L*refi i get 50 add cvishow (=50) show L*refi i get 2 add dup 0 ge {(+) show}{(-) show} ifelse abs cvishow } for %i=0,6 ispaca 1 eq {%ispaca %BEG special additional IECsRGB_W TL 0 1 6 {/i exch def %i=0,6 /Ynref Y_refi i get def proz_Y_L*_IECsRGB_W L*refi i L*ref put ixi 2 get iy1i 23 i 2 mul sub get moveto TL (=s\050) show L_reWi i get 0.005 add cvsshow2g %with rounding (\051) show TV 0 50 rmoveto (1/2,4) show TL ixi 2 get iy1i 22 i 2 mul sub get moveto L*refi i get cvishow (=50) show L*refi i get 50 sub dup 0 ge {(+) show}{(-) show} ifelse abs cvishow } for %i=0,6 } if %ispaca=1 ixi 3 get iyi 02 get moveto TBIL (L) show 0 -30 rmoveto TBV (rU) show 0 30 rmoveto ixi 3 get iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (U) show 0 30 rmoveto /xp 480 def ixi 3 get xp add iyi 02 get moveto TBIL (L) show 0 -30 rmoveto TBV (rW) show 0 30 rmoveto ixi 3 get xp add iyi 03 get moveto TBIL (=L/L) show 0 -30 rmoveto TBV (W) show 0 30 rmoveto TL ixi 3 get xp add iy1i 10 get moveto (2,24) show ixi 3 get xp add iy1i 12 get moveto (1,00) show ixi 3 get xp add iy1i 14 get moveto (0,45) show ixi 3 get xp add iy1i 16 get moveto (0,20) show ixi 3 get xp add iy1i 18 get moveto (0,09) show ixi 3 get xp add iy1i 20 get moveto (0,04) show ixi 3 get xp add iy1i 22 get moveto (0,022) show 20 setlinewidth /lupt iytab iyd 1 mul add 40 sub def /llot iytab iyd 17 mul sub 40 sub def /ldit lupt llot sub def 0 lupt 20 add moveto xwidth 0 rlineto stroke %line upper table 1 1 5 {/i exch def %i=1,5 ixi i get ixs sub llot moveto 0 ldit rlineto stroke } for %i=1,5 %Lu/Lw special vertical line ixi 3 get xp add 20 sub llot 00 sub iyd 0 mul sub moveto 0 ldit iyd 2 mul sub -20 add rlineto stroke %horizontal lines top 1 2 3 {/i exch def %i=1,2,3 0 iyi i get 60 sub moveto xwidth 0 rlineto stroke } for %i=1,2,3 %horizontal lines 1 2 13 {/i exch def %i=1,13,2 0 iy1i i 10 add get 60 sub moveto xwidth 0 rlineto stroke } for %i=1,13,2 ix0 0070 moveto TL (It is valid: ) showea (Es gilt: ) showde ispace 2 eq {%CIELAB_W TL (CIELAB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (: c) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (=c) show TL (=116, ) show } if %CIELAB_W ispace 3 eq {%CIELAB_U TL (CIELAB) show TV 0 -30 rmoveto (U) show 0 30 rmoveto TL (: d) show TV 0 -30 rmoveto (U) show 0 30 rmoveto TL (=d) show TL (=66, ) show } if %CIELAB_U ispace 4 eq {%IECsRGB_W TL (IECsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (: s) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (=s) show TL (=100, ) show } if %IECsRGB_W ispaca 1 eq {%IECsRGB_W TL (IECsRGB) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (: s) show TV 0 -30 rmoveto (W) show 0 30 rmoveto TL (=s) show TL (=100, ) show } if %IECsRGB_W TL (TUBLOG) show TV 0 -30 rmoveto (U) show 0 30 rmoveto TL (: t) show TV 0 -30 rmoveto (U) show 0 30 rmoveto TL (=t) show TL (=) show TL (50/log(5)=72) show /yhoe 4000 def /xwidth xwidth def 15 setlinewidth 0 0 moveto xwidth 0 rlineto 0 yhoe rlineto xwidth neg 0 rlineto closepath stroke %***************************************************************** grestore %end because of clip showpage grestore %%Trailer