%!PS-Adobe-3.0 EPSF-3.0 egl91-3n %%BoundingBox: 70 83 420 335 %START PDFDE011.EPS /pdfmark13 where {pop} {userdict /pdfmark13 /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: http://farbe.li.tu-berlin.de/egl9/egl9.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:2023070112000) /ModDate (D:20230701112000) /DOCINFO pdfmark13 [ /View [ /FitB ] /DOCVIEW pdfmark13 %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 % !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 /str {8 string } bind def /RV {150 /Times-Roman FS} bind def /RS {190 /Times-Roman FS} bind def /RK {240 /Times-Roman FS} bind def /RM {290 /Times-Roman FS} bind def /RG {340 /Times-Roman FS} bind def /RIV {150 /Times-Italic FS} bind def /RIS {190 /Times-Italic FS} bind def /RIK {240 /Times-Italic FS} bind def /RIM {290 /Times-Italic FS} bind def /RIG {340 /Times-Italic FS} bind def /RBV {150 /Times-Bold FS} bind def /RBS {190 /Times-Bold FS} bind def /RBK {240 /Times-Bold FS} bind def /RBM {290 /Times-Bold FS} bind def /RBG {340 /Times-Bold FS} bind def /RBIV {150 /Times-BoldItalic FS} bind def /RBIS {190 /Times-BoldItalic FS} bind def /RBIK {240 /Times-BoldItalic FS} bind def /RBIM {290 /Times-BoldItalic FS} bind def /RBIG {340 /Times-BoldItalic FS} bind def /TV {150 /Times-ISOL1 FS} bind def /TS {190 /Times-ISOL1 FS} bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIV {150 /TimesI-ISOL1 FS} bind def /TIS {190 /TimesI-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBV {150 /TimesB-ISOL1 FS} bind def /TBS {190 /TimesB-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIV {150 /TimesBI-ISOL1 FS} bind def /TBIS {190 /TimesBI-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /TBSN {-20 -60 rmoveto TBV (N) show 0 60 rmoveto TBS} bind def /TBSU {-20 -60 rmoveto TBV (U) show 0 60 rmoveto TBS} bind def /TBSW {-20 -60 rmoveto TBV (W) show 0 60 rmoveto TBS} bind def /TBSY {-20 -60 rmoveto TBV (Y) show 0 60 rmoveto TBS} bind def /TBMN {-20 -60 rmoveto TBK (N) show 0 60 rmoveto TBM} bind def /TBMU {-20 -60 rmoveto TBK (U) show 0 60 rmoveto TBM} bind def /TBMW {-20 -60 rmoveto TBK (W) show 0 60 rmoveto TBM} bind def /TBMY {-20 -60 rmoveto TBK (Y) show 0 60 rmoveto TBM} bind def /TBM0N {-20 -60 rmoveto TBK (0N) show 0 60 rmoveto TBM} bind def /TBM0U {-20 -60 rmoveto TBK (0U) show 0 60 rmoveto TBM} bind def /TBM0W {-20 -60 rmoveto TBK (0W) show 0 60 rmoveto TBM} bind def /TBM0Y {-20 -60 rmoveto TBK (0Y) show 0 60 rmoveto TBM} bind def /TBM0i {-20 -60 rmoveto TBK (0i) show 0 60 rmoveto TBM} bind def /TBM05 {-20 -60 rmoveto TBK (05) show 0 60 rmoveto TBM} bind def /TBMtN {-20 -60 rmoveto TBK (tN) show 0 60 rmoveto TBM} bind def /TBMtU {-20 -60 rmoveto TBK (tU) show 0 60 rmoveto TBM} bind def /TBMtW {-20 -60 rmoveto TBK (tW) show 0 60 rmoveto TBM} bind def /TBMtY {-20 -60 rmoveto TBK (tY) show 0 60 rmoveto TBM} bind def /TBMta {-20 -60 rmoveto TBK (ta) show 0 60 rmoveto TBM} bind def /TBMi {-20 -60 rmoveto TBK (i) show 0 60 rmoveto TBM} bind def /TBMref {-20 -60 rmoveto TBK (ref) show 0 60 rmoveto TBM} bind def /TBM0ref {-20 -60 rmoveto TBK (0ref) show 0 60 rmoveto TBM} bind def /TBM1ref {-20 -60 rmoveto TBK (1ref) show 0 60 rmoveto TBM} bind def /TBM2ref {-20 -60 rmoveto TBK (2ref) show 0 60 rmoveto TBM} bind def /TBM0aN {-20 -60 rmoveto TBK (0aN) show 0 60 rmoveto TBM} bind def /TBM0aU {-20 -60 rmoveto TBK (0aU) show 0 60 rmoveto TBM} bind def /TBM0aW {-20 -60 rmoveto TBK (0aW) show 0 60 rmoveto TBM} bind def /TBM0aY {-20 -60 rmoveto TBK (0aY) show 0 60 rmoveto TBM} bind def /TBM0ai {-20 -60 rmoveto TBK (0ai) show 0 60 rmoveto TBM} bind def /TBM05a {-20 -60 rmoveto TBK (05a) show 0 60 rmoveto TBM} bind def /TBMtaN {-20 -60 rmoveto TBK (taN) show 0 60 rmoveto TBM} bind def /TBMtaU {-20 -60 rmoveto TBK (taU) show 0 60 rmoveto TBM} bind def /TBMtaW {-20 -60 rmoveto TBK (taW) show 0 60 rmoveto TBM} bind def /TBMtaY {-20 -60 rmoveto TBK (taY) show 0 60 rmoveto TBM} bind def /TBMtaiU {-20 -60 rmoveto TBK (taiU) show 0 60 rmoveto TBM} bind def /TBMtaiW {-20 -60 rmoveto TBK (taiW) show 0 60 rmoveto TBM} bind def /TBM0a {-20 -60 rmoveto TBK (0a) show 0 60 rmoveto TBM} bind def /TBMai {-20 -60 rmoveto TBK (ai) show 0 60 rmoveto TBM} bind def /TSN {-20 -60 rmoveto TV (N) show 0 60 rmoveto TS} bind def /TSU {-20 -60 rmoveto TV (U) show 0 60 rmoveto TS} bind def /TSW {-20 -60 rmoveto TV (W) show 0 60 rmoveto TS} bind def /TSY {-20 -60 rmoveto TV (Y) show 0 60 rmoveto TS} bind def /TMN {-20 -60 rmoveto TK (N) show 0 60 rmoveto TM} bind def /TMU {-20 -60 rmoveto TK (U) show 0 60 rmoveto TM} bind def /TMW {-20 -60 rmoveto TK (W) show 0 60 rmoveto TM} bind def /TMY {-20 -60 rmoveto TK (Y) show 0 60 rmoveto TM} bind def /TM0N {-20 -60 rmoveto TK (0N) show 0 60 rmoveto TM} bind def /TM0U {-20 -60 rmoveto TK (0U) show 0 60 rmoveto TM} bind def /TM0W {-20 -60 rmoveto TK (0W) show 0 60 rmoveto TM} bind def /TM0Y {-20 -60 rmoveto TK (0Y) show 0 60 rmoveto TM} bind def /TMtN {-20 -60 rmoveto TK (tN) show 0 60 rmoveto TM} bind def /TMtU {-20 -60 rmoveto TK (tU) show 0 60 rmoveto TM} bind def /TMtW {-20 -60 rmoveto TK (tW) show 0 60 rmoveto TM} bind def /TMtY {-20 -60 rmoveto TK (tY) show 0 60 rmoveto TM} bind def /TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def /TMi {-20 -60 rmoveto TK (i) show 0 60 rmoveto TM} bind def /TM0aN {-20 -60 rmoveto TK (0aN) show 0 60 rmoveto TM} bind def /TM0aU {-20 -60 rmoveto TK (0aU) show 0 60 rmoveto TM} bind def /TM0aW {-20 -60 rmoveto TK (0aW) show 0 60 rmoveto TM} bind def /TM0aY {-20 -60 rmoveto TK (0aY) show 0 60 rmoveto TM} bind def /TMtaN {-20 -60 rmoveto TK (taN) show 0 60 rmoveto TM} bind def /TMtaU {-20 -60 rmoveto TK (taU) show 0 60 rmoveto TM} bind def /TMtaW {-20 -60 rmoveto TK (taW) show 0 60 rmoveto TM} bind def /TMtaY {-20 -60 rmoveto TK (taY) show 0 60 rmoveto TM} bind def /TMta {-20 -60 rmoveto TK (ta) show 0 60 rmoveto TM} bind def /TMi {-20 -60 rmoveto TK (ai) show 0 60 rmoveto TM} bind def /SV {150 /Symbol FS} bind def /SS {190 /Symbol FS} bind def /SK {240 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {340 /Symbol FS} bind def %XCHA01.PS BEG /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 /circ %x, y radius {dcirc 0 360 arc } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /colarcfi %x y c m y k {setcmyk_olvcolor circ fill} bind def /colarcst %x y width heigth c m y k {setcmyk_olvcolor circ stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfrz {0.0 1.0 1.0 0.5 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfgz {1.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfbz {1.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfcz {1.0 0.0 0.0 0.5 setcmyk_olvcolor} bind def /tfmz {0.0 1.0 0.0 0.5 setcmyk_olvcolor} bind def /tfyz {0.0 0.0 1.0 0.5 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def /cvishow {cvi 10 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 {0.4 add cvi 10 string cvs show} def /cvsshow1r {0.04 add 10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2r {0.004 add 100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3r {0.0004 add 1000 mul cvi 0.001 mul 7 string cvs show} def /DECODeXYZ* {dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse} bind def /DECODY_L* {/YYn Y Yn div def /YYnE3 YYn 0.3333 exp def /DE 24 116 div def /DE3 DE 3 exp def YYn DE3 gt {/FYYn YYnE3 def} {/FYYn 841 108 div YYn mul 16 116 div add def} ifelse /L* FYYn 116 mul 16 sub def } bind def /DECODL*_Y {/FYYn L* 16 add 116 div def /DE 24 116 div def L* 8 gt {/Y FYYn 3 exp Yn mul def} {/Y FYYn 16 116 div sub 108 841 div mul Yn mul def } ifelse } bind def /kTUB 40 5 log div def /TECODY_L* {/YYu Y Yu div def /L* YYu log kTUB mul def } bind def /TECODL*_Y {/FYYu L* kTUB div def /YYu 10 FYYu exp def /Y YYu Yu mul def } bind def /SECODY_L* {/YYu Y Yu div def /aSE 1.00 def /bSE 1.00 def /eSE 2.718282 def /betaSE 66.30 def %to get L*SE to +/-40 for Y=3,6 and 90 /xrSE YYu log def /L* bSE betaSE mul eSE xrSE exp eSE xrSE neg exp sub mul eSE xrSE exp eSE xrSE neg exp add div def } bind def %inverse SECODL*_Y not known %***************************************************** %%EndProlog gsave /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 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 3 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 /xchart xchart1 def /iref 2 def gsave %iYnor %0:W, 1:U %iber %Y range 0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54 %ispa %0:CIELAB, 1:TUBJND1 2:TUBJND2 /Yu 18 def /Yn 100 def %iYnor default=0, 0:white, 1:grey U /iYnor 1 def %0:white, 1:grey U %iber default=0, %Y range 0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54 /iber 4 def %0:3,6_90 1:3_108, 2:2,57_126, 3:1,8_180, 4:6_54 %ispa default=0, 0:CIELAB, 1:TUBJND1, 2:TUBJND2 /ispa 1 def %0:CIELAB, 1:TUBJND1, 2:TUBJND2 %iref default=0, 0:3,6, 1:1,8, 2:0,9 3:90, 108, 126, 180, 54 (for iber=0 to 4) /iref 2 def %0:3,6, 1:1,8, 2:0,9 3:90, 108, 126, 180, 54 (for iber=0 to 4) iref 0 eq {/Yxref 3.6 def} if iref 1 eq {/Yxref 1.8 def} if iref 2 eq {/Yxref 0.9 def} if iref 3 eq iber 0 eq and {/Yxref 090 def} if iref 3 eq iber 1 eq and {/Yxref 108 def} if iref 3 eq iber 2 eq and {/Yxref 126 def} if iref 3 eq iber 3 eq and {/Yxref 180 def} if iref 3 eq iber 4 eq and {/Yxref 054 def} if 5 /Times-ISOL1 FS 72 85 moveto (egl91-3n) show 72 90 translate /xwidth 12200 def /ywidth 8500 def 0.01 MM dup scale 15 setlinewidth 1 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath fill 0 setgray 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath stroke 0 ywidth 320 sub moveto 12200 0 rlineto stroke /ydel 300 def /L0a0i 9 array def %/L0a1i 9 array def %/L0a2i 9 array def %/L0a3i 9 array def /L0axi 9 array def /L0r0i 9 array def %/L0r1i 9 array def %/L0r2i 9 array def %/L0r3i 9 array def /L0rxi 9 array def /Y0a0i 9 array def %/Y0a1i 9 array def %/Y0a2i 9 array def %/Y0a3i 9 array def /Y0axi 9 array def /Y0r0i 9 array def %/Y0r1i 9 array def %/Y0r2i 9 array def %/Y0r3i 9 array def /Y0rxi 9 array def /Lta0i 9 array def %/Lta1i 9 array def %/Lta2i 9 array def %/Lta3i 9 array def /Ltaxi 9 array def /Ltl0i 9 array def %/Ltl1i 9 array def %/Ltl2i 9 array def %/Ltl3i 9 array def /Ltlxi 9 array def /Ltr0i 9 array def %/Ltr1i 9 array def %/Ltr2i 9 array def %/Ltr3i 9 array def /Ltrxi 9 array def /Yta0i 9 array def %/Yta1i 9 array def %/Yta2i 9 array def %/Yta3i 9 array def /Ytaxi 9 array def /Ytr0i 9 array def %/Ytr1i 9 array def %/Ytr2i 9 array def %/Ytr3i 9 array def /Ytrxi 9 array def /Da*0i 9 array def %/Da*1i 9 array def %/Da*2i 9 array def %/Da*3i 9 array def /Da*xi 9 array def %i 0 1 2 3 4 /YNti [(3,6) (3,0) (2,57) (1,8) (6,0)] def /YNi [ 3.6 3.0 2.57 1.8 6.0 ] def /YWti [(90) (108) (126) (180) (54) ] def /YWi [ 90 108 126 180 54 ] def /YNta YNti iber get def /YNa YNi iber get def /YWta YWti iber get def /YWa YWi iber get def /Yn 100 def /Yu 18 def %example /Y Ytaxi i get def TECODY_L* Ltaxi i L* put ispa 0 eq {/Y YNa def DECODY_L* /L0arnx L* def /Y YWa def DECODY_L* /L0arwx L* def} if ispa 1 eq {/Y YNa def TECODY_L* /L0arnx L* def /Y YWa def TECODY_L* /L0arwx L* def} if ispa 2 eq {/Y YNa def SECODY_L* /L0arnx L* def /Y YWa def SECODY_L* /L0arwx L* def} if /Y0arnx YNa def /Y0arwx YWa def /s 350 def /xdels 2000 def %s=series /xdelc s def %c=color=s /xdel2 s 2 mul def /ydel 0800 def /dcirc s 0.50 mul def /dcir2 dcirc 0.5 mul def /tcirc s 0.60 mul def /scaleY 0.75 def iber 3 eq {/scaleY 0.60 def} if /yscale 69 scaleY mul def /Da*0x L0arwx L0arnx sub 8 div def 0 1 08 {/i exch def L0axi i L0arnx Da*0x i mul add put L0rxi i L0axi i get L0arnx sub L0arwx L0arnx sub div put /L* L0axi i get def ispa 0 eq {DECODL*_Y} if ispa 1 eq {TECODL*_Y} if ispa 2 eq {SECODL*_Y} if %not known Y0axi i Y put Y0rxi i Y0axi i get Y0arnx sub Y0arwx Y0arnx sub div put } for iYnor 0 eq {%iYnor=0 W /Yfak Y0axi 8 get Y0axi 8 get Yxref add div def } {%iYnor=1 U /Yfak Y0axi 4 get Y0axi 4 get Yxref add div def } ifelse 0 1 08 {/i exch def Ytaxi i Y0axi i get Yxref add Yfak mul put /Y Ytaxi i get def ispa 0 eq {DECODY_L*} if ispa 1 eq {TECODY_L*} if ispa 2 eq {SECODY_L*} if Ltaxi i L* put } for 0 1 08 {/i exch def Ytrxi i Ytaxi i get Ytaxi 0 get sub Ytaxi 8 get Ytaxi 0 get sub div put Ltrxi i Ltaxi i get Ltaxi 0 get sub Ltaxi 8 get Ltaxi 0 get sub div put } for %************************************************** %Titeltext 50 8270 moveto TBM (9stufige Grauskalierung zwischen ) showde (Equal 9 step grey scaling between ) showen (9 pasos di gri con escala equal entre ) showes (Les 9 plages d'\351chelle de gris entre ) showfr (9 fasi di grigio con uguale la scalatura fra ) showit (9 trinn av gr\345 med samme skalering mellom ) showjp TBIM (L*) show TBM0aN TBM (=) show L0arnx cvsshow1 TBM ( und ) showde ( and ) showen ( y ) showes ( et ) showfr ( e ) showit ( og ) showjp TBIM (L*) show TBM0aW TBM (=) show L0arwx cvsshow1 TBM (, ) showde (, ) showen TBIM (Y) show TBM0ref TBM (=) show Yxref cvsshow1 iYnor 0 eq {%W-normalisation (, normalisation white ) showen (, Normierung Wei\337 ) showde TBIM (W) show TBM } if iYnor 1 eq {%G-normalisation (, normalisation grey ) showen (, Normierung Grau ) showde TBIM (U) show TBM } if /Ytrei 10 array def /Ytdii 10 array def %625*LINDA08_.DAT******************************************************** iref 0 eq {%iref=0 %03_15, 25_37, 47_59, 69_81, delta=12 /1DGam08_03 1.1339 def /alpha08_03 0.0001 def /linda08_03 [%BEG linda08_03 1.0000 0.0000 % 9 1.0000 1.0000 F,DELT, %I,V1,V2 0.8750 0.0012 % 8 0.8580 0.8750 F,DELT, %I,V1,V2 0.7500 0.0031 % 7 0.7180 0.7500 F,DELT, %I,V1,V2 0.6250 0.0033 % 6 0.5830 0.6250 F,DELT, %I,V1,V2 0.5000 0.0032 % 5 0.4520 0.5000 F,DELT, %I,V1,V2 0.3750 0.0004 % 4 0.3280 0.3750 F,DELT, %I,V1,V2 0.2500 -0.0029 % 3 0.2100 0.2500 F,DELT, %I,V1,V2 0.1250 -0.0077 % 2 0.1010 0.1250 F,DELT, %I,V1,V2 0.0001 -0.0002 % 1 0.0001 0.0001 F,DELT, %I,V1,V2 ] def %END linda08_03 0 1 8 {/i exch def %i=0,8 Ytrei i linda08_03 i 2 mul get put Ytdii i linda08_03 i 2 mul 1 add get put } for %i=0,8 /Gammax 1DGam08_03 def /alpha alpha08_03 def } if %iref=0 iref 1 eq {%iref=1 /1DGam08_07 1.0733 def /alpha08_07 0.0000 def /linda08_07 [%BEG linda_07 1.0000 0.0000 % 9 1.0000 1.0000 F,DELT, %I,V1,V2 0.8750 0.0013 % 8 0.8650 0.8750 F,DELT, %I,V1,V2 0.7500 0.0011 % 7 0.7330 0.7500 F,DELT, %I,V1,V2 0.6250 0.0015 % 6 0.6020 0.6250 F,DELT, %I,V1,V2 0.5000 0.0018 % 5 0.4730 0.5000 F,DELT, %I,V1,V2 0.3750 0.0006 % 4 0.3480 0.3750 F,DELT, %I,V1,V2 0.2500 -0.0016 % 3 0.2270 0.2500 F,DELT, %I,V1,V2 0.1250 -0.0043 % 2 0.1110 0.1250 F,DELT, %I,V1,V2 0.0001 -0.0001 % 1 0.0001 0.0001 F,DELT, %I,V1,V2 ] def %END linda08_07 0 1 8 {/i exch def %i=0,8 Ytrei i linda08_07 i 2 mul get put Ytdii i linda08_07 i 2 mul 1 add get put } for %i=0,8 /Gammax 1DGam08_07 def /alpha alpha08_07 def } if %iref=1 iref 2 eq {%iref=2 /1DGam08_13 1.0380 def /alpha08_13 0.0000 def /linda08_13 [%BEG linda08_13 1.0000 0.0000 % 9 1.0000 1.0000 F,DELT, %I,V1,V2 0.8750 0.0004 % 8 0.8700 0.8750 F,DELT, %I,V1,V2 0.7500 0.0006 % 7 0.7410 0.7500 F,DELT, %I,V1,V2 0.6250 0.0006 % 6 0.6130 0.6250 F,DELT, %I,V1,V2 0.5000 0.0006 % 5 0.4860 0.5000 F,DELT, %I,V1,V2 0.3750 -0.0001 % 4 0.3610 0.3750 F,DELT, %I,V1,V2 0.2500 -0.0002 % 3 0.2370 0.2500 F,DELT, %I,V1,V2 0.1250 -0.0018 % 2 0.1170 0.1250 F,DELT, %I,V1,V2 0.0001 0.0000 % 1 0.0001 0.0001 F,DELT, %I,V1,V2 ] def %END linda08_13 0 1 8 {/i exch def %i=0,8 Ytrei i linda08_13 i 2 mul get put Ytdii i linda08_13 i 2 mul 1 add get put } for %i=0,8 /Gammax 1DGam08_13 def /alpha alpha08_13 def } if %iref=2 iref 3 eq {%iref=3 /1DGam08_17 1.6198 def /alpha08_17 0.0034 def /linda08_17 [%BEG linda08_17 1.0000 0.0000 % 9 1.0000 1.0000 F,DELT, %I,V1,V2 0.8750 0.0156 % 8 0.7820 0.8750 F,DELT, %I,V1,V2 0.7500 0.0231 % 7 0.5960 0.7500 F,DELT, %I,V1,V2 0.6250 0.0229 % 6 0.4390 0.6250 F,DELT, %I,V1,V2 0.5000 0.0142 % 5 0.3100 0.5000 F,DELT, %I,V1,V2 0.3750 -0.0015 % 4 0.2050 0.3750 F,DELT, %I,V1,V2 0.2500 -0.0207 % 3 0.1200 0.2500 F,DELT, %I,V1,V2 0.1250 -0.0386 % 2 0.0530 0.1250 F,DELT, %I,V1,V2 0.0001 -0.0033 % 1 0.0001 0.0001 F,DELT, %I,V1,V2 ] def %END linda08_17 0 1 8 {/i exch def %i=0,8 Ytrei i linda08_17 i 2 mul get put Ytdii i linda08_17 i 2 mul 1 add get put } for %i=0,8 /Gammax 1DGam08_17 def /alpha alpha08_17 def } if %iref=3 %714********************************************************* %for scale test %0 1 0 setrgbcolor %100 0000 moveto 200 0 rlineto stroke 300 0000 moveto (0) show %1 0 0 setrgbcolor %100 1000 moveto 200 0 rlineto stroke 300 1000 moveto (1) show %100 2000 moveto 200 0 rlineto stroke 300 2000 moveto (2) show %100 3000 moveto 200 0 rlineto stroke 300 3000 moveto (3) show %100 4000 moveto 200 0 rlineto stroke 300 4000 moveto (4) show 0 setgray ispa 0 eq iber 0 eq and {/ypl -200 def} if ispa 0 eq iber 1 eq and {/ypl -500 def} if ispa 0 eq iber 2 eq and {/ypl -650 def} if ispa 0 eq iber 3 eq and {/ypl -500 def} if ispa 0 eq iber 4 eq and {/ypl -500 def} if ispa 1 ge {/ypl 2500 def} if 0 0300 ypl sub neg translate /xpos0 0700 def /ypos0 0300 def /xpos1 0700 def /ypos1 0300 100 yscale mul add def /TVGshift 060 def /ydels 1250 def /y0sc -1500 def 700 y0sc moveto 0 5000 300 add rlineto stroke % 0 1 2 3 4 5 ispa 0 eq {/ytext [( 0)( 25)( 50) ( 75)(100)] def} if ispa 0 eq iber 3 eq and {/ytext [( 0)( 30)( 60) ( 90)(120)] def} if ispa 1 ge {/ytext [(-50) (-25) ( 0)( 25)( 50)] def} if 0 1 4 {/i exch def %i=0,4 600 y0sc i ydels mul add moveto 200 0 rlineto stroke 100 y0sc i ydels mul add 100 sub moveto ytext i get show } for %i=0,4 700 080 sub y0sc 5100 add moveto 080 200 rlineto 080 -200 rlineto stroke 0 0300 ypl sub translate %STOP %**************************************************************** /xpos 0900 def %Titeltext at y=8270 /ypos2 7950 50 sub def 100 ypos2 moveto TIM (L*) show TM0aN TM (=) show L0axi 0 get cvsshow1r (, ) show TIM (L*) show TM0aU TM (=) show L0axi 4 get cvsshow1r (, ) show TIM (L*) show TM0aW TM (=) show L0axi 8 get cvsshow1r (, ) show TIM (Y) show TM0aN TM (=) show Y0axi 0 get cvsshow1r (, ) show TIM (Y) show TM0aU TM (=) show Y0axi 4 get cvsshow1r (, ) show TIM (Y) show TM0aW TM (=) show Y0axi 8 get cvsshow1r (, ) show TIM (C) show TM0aY TM (=) show TIM (Y) show TM0aW TM (:) show TIM (Y) show TM0aN TM (=) show Y0axi 8 get Y0axi 0 get div cvsshow1r %**************************************** 100 ypos2 0300 sub 075 sub moveto TIM (L*) show TMtaN TM (=) show Ltaxi 0 get cvsshow1r (, ) show TIM (L*) show TMtaU TM (=) show Ltaxi 4 get cvsshow1r (, ) show TIM (L*) show TMtaW TM (=) show Ltaxi 8 get cvsshow1r (, ) show TIM (Y) show TMtaN TM (=) show Ytaxi 0 get cvsshow1r (, ) show TIM (Y) show TMtaU TM (=) show Ytaxi 4 get cvsshow1r (, ) show TIM (Y) show TMtaW TM (=) show Ytaxi 8 get cvsshow1r (, ) show TIM (C) show TMtaY TM (=) show TIM (Y) show TMtaW TM (:) show TIM (Y) show TMtaN TM (=) show Ytaxi 8 get Ytaxi 0 get div cvsshow1r 0 0400 translate %text output regularity index tfb /yposr 6750 def %/ypos3 ypos1 yd1 sub 100 sub def %xpo1 xdd 0 mul add ypos3 TVGshift sub 1350 add moveto TBM %100 ypos3 TVGshift sub 1350 add moveto TBM 100 yposr moveto TBM (Regularity index according to ISO/IEC 15775:2022, ) showen (annex G for 5 and 9 steps) showen (Regularit\344tsindex nach ISO/IEC 15775:2022, ) showde (Anhang G f\374r 5 und 9 Stufen) showde 100 yposr 300 sub moveto TBM TBIM (g*) show TBM ( = 100 [) show SM (D) show TBIM (L*) show TBK 0 -30 rmoveto (min) show 0 30 rmoveto TBM (] / [) show SM (D) show TBIM (L*) show TBK 0 -30 rmoveto (max) show 0 30 rmoveto TBM (], ) show ispa 0 eq {%CIELAB TBIM (L*) show TBK 10 -50 rmoveto (CIELAB) show 0 50 rmoveto TBM ( = 116 [) show TBIM (Y/Y) show TBK 0 -50 rmoveto (n) show 0 50 rmoveto TBM (]) show TBK 0 80 rmoveto (1/3) show 0 -80 rmoveto TBM ( - 16) show TBM ( with ) showen ( mit ) showde TBIM (Y) show TBM ( >= 0,882, ) show TBIM (Y) show TBK 0 -50 rmoveto (n) show 0 50 rmoveto TBM (=100) show } if %CIELAB ispa 1 eq {%TUBJND1 TBIM (L*) show TBK 10 -50 rmoveto (TUBJND1) show 0 50 rmoveto TBM ( = 40 / log(5) [ log \050 ) show TBIM (Y/Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto TBM (\051 ]) show TBM ( with ) showen ( mit ) showde TBIM (Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto TBM (=18) show } if %TUBJND1 ispa 2 eq {%TUBJND2 TBIM (L*) show TBK 10 -50 rmoveto (TUBJND2) show 0 50 rmoveto TBM ( = 66,3 [) show TBM (e) show TBIK 0 80 rmoveto (x) show TBK 0 -40 rmoveto (r) show 0 -40 rmoveto TBM ( - ) show TBM (e) show TBIK 0 80 rmoveto (-x) show TBK 0 -40 rmoveto (r) show 0 -40 rmoveto TBM (] / [) show TBM (e) show TBIK 0 80 rmoveto (x) show TBK 0 -40 rmoveto (r) show 0 -40 rmoveto TBM ( + ) show TBM (e) show TBIK 0 80 rmoveto (-x) show TBK 0 -40 rmoveto (r) show 0 -40 rmoveto TBM (]=66,3 tanh\050) show TBIM (x) show TBK 0 -40 rmoveto (r) show 0 40 rmoveto TBM (\051, ) show TBIM (x) show TBK 0 -50 rmoveto (r) show 0 50 rmoveto TBM (=) show TBIM (Y/Y) show TBK 0 -50 rmoveto (u) show 0 50 rmoveto } if %TUBJND2 %***************************************** /proz_regu_index {%BEG proz_regu_index %assumption available /L*xai 9 array def %L0a0i, Lta0i, Ltl0i /delki 9 array def 0 1 8 {/i exch def %i=0,8 iregu 0 eq {%iregu=0 L*xai i L0axi i get put } if %iregu=0 iregu 1 eq {%iregu=1 L*xai i Ltaxi i get put } if %iregu=1 iregu 2 eq {%iregu=2 L*xai i Ltlxi i get put } if %iregu=2 } for %i=0,8 %*************************************************** 0 2 6 {/i exch def %i=0,2,6 delki i L*xai i 2 add get L*xai i get sub abs put } for %i=0,2,6 /MIN 999 def /MAX 001 def 0 2 6 {/i exch def %i=0,2,6 delki i get MIN lt {/MIN delki i get def} if delki i get MAX gt {/MAX delki i get def} if } for %i=0,2,6 /r5 MIN MAX div 100 mul def %*************************************************** 0 1 7 {/i exch def %i=0,1,7 delki i L*xai i 1 add get L*xai i get sub abs put } for %i=0,1,7 /MIN 999 def /MAX 001 def 0 1 7 {/i exch def %i=0,1,7 delki i get MIN lt {/MIN delki i get def} if delki i get MAX gt {/MAX delki i get def} if } for %i=0,1,7 /r9 MIN MAX div 100 mul def } bind def %END proz_regu_index %******************************************************** /xdd 800 def /xpo1 xpos def /1DGammax 1 Gammax div def 0 1 08 {/i exch def %i=0,08 Ltlxi i Ltaxi 0 get Ltaxi 8 get Ltaxi 0 get sub Ltrxi i get 1DGammax exp mul add put } for %i=0,08 /iregu 0 def proz_regu_index xpo1 xdd 1 mul add yposr 600 sub moveto TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto TBM (= ) show r5 cvishow (, ) show TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto TBM (= ) show r9 cvishow /iregu 1 def proz_regu_index xpo1 xdd 5 mul add yposr 600 sub moveto TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto TBM (= ) show r5 cvishow (, ) show TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto TBM (= ) show r9 cvishow /iregu 2 def proz_regu_index xpo1 xdd 10.7 mul add yposr 600 sub moveto TBIM (g*) show TBK -50 -100 rmoveto (5) show 0 100 rmoveto TBM (= ) show r5 cvishow (, ) show TBIM (g*) show TBK -50 -100 rmoveto (9) show 0 100 rmoveto TBM (= ) show r9 cvishow tfn /TBMe {-00 80 rmoveto TBK (1/) show Gammax cvsshow2r 0 -80 rmoveto TBM} bind def /yd1 -90 def /yposr1 yposr 950 sub def 100 yposr1 moveto TBIM (L*) show TBK 10 -40 rmoveto ispa 0 eq {(CIELAB) show} if ispa 1 eq {(TUBJND1) show} if ispa 2 eq {(TUBJND2) show} if 0 40 rmoveto TBM xpo1 xdd 1 mul add yposr1 moveto (intended output) showen (angestrebte Ausgabe) showde xpo1 xdd 5 mul add yposr1 moveto (real output) showen (reale Ausgabe) showde xpo1 xdd 10.7 mul add yposr1 moveto (linearized output) showen (linearisierte Ausgabe) showde /yd1 030 50 sub 100 sub def xpo1 xdd 0 mul add yposr1 300 sub moveto TBM (n0. i) show xpo1 xdd 1 mul add yposr1 300 sub moveto TBM (L*0a) show xpo1 xdd 2 mul add yposr1 300 sub moveto TBM (L*0r) show xpo1 xdd 3 mul add yposr1 300 sub moveto TBM (Y0a) show xpo1 xdd 4 mul add yposr1 300 sub moveto TBM (Y0r) show [50 50] 0 setdash xpo1 xdd 4.8 mul add yposr1 300 sub 150 add moveto 0 6600 neg rlineto stroke newpath [ ] 0 setdash xpo1 xdd 5 mul add yposr1 300 sub moveto TBM (L*ta) show xpo1 xdd 5.9 mul add yposr1 300 sub moveto TBM SM (D) show TBM (L*ta) show xpo1 xdd 7 mul add yposr1 300 sub moveto TBM (L*tr) show xpo1 xdd 8 mul add yposr1 300 sub moveto TBM (Yta) show xpo1 xdd 9.2 mul add 300 sub yposr1 300 sub moveto TBM ((L*tr)) show TBMe xpo1 xdd 10.7 mul add yposr1 300 sub moveto TBM (L*la) show xpo1 xdd 11.7 mul add yposr1 300 sub moveto tfb SM (D) show TBM (L*la) show tfn %********************************************************************* TK 0 1 8 {/i exch def %i=0,8 newpath /ypos L0axi i get yscale mul ypl add def L0rxi i get setgray xpos dcirc add ypos ypos0 add dcirc 0 360 arc i 08 lt {fill} {0 setgray stroke} ifelse 0 setgray } for %i=0,8 /x00 700 def /y00 L0axi i get yscale mul def %1 0 0 setrgbcolor %x00 y00 moveto 500 0 rlineto stroke %x00 y00 moveto 0 500 rlineto stroke 0 setgray 0 1 08 {/i exch def %i=0,08 /ypos L0axi i get yscale mul ypl add def i 1 ge {/ypox L0axi i 1 sub get L0axi i get L0axi i 1 sub get sub 0.5 mul add yscale mul ypl add def} if xpo1 xdd 0.5 mul add ypos ypos0 add TVGshift sub moveto i 1 add cvishowr xpo1 xdd 1 mul add ypos ypos0 add TVGshift sub moveto L0axi i get cvsshow1r xpo1 xdd 2 mul add ypos ypos0 add TVGshift sub moveto L0rxi i get cvsshow3r xpo1 xdd 3 mul add ypos ypos0 add TVGshift sub moveto Y0axi i get cvsshow1r xpo1 xdd 4 mul add ypos ypos0 add TVGshift sub moveto Y0rxi i get cvsshow3r xpo1 xdd 5 mul add ypos ypos0 add TVGshift sub moveto i 2 le iref 1 eq and {1 0 0 setrgbcolor} if Ltaxi i get cvsshow1r 0 setgray i 1 ge {%i>=1 i 2 le iref 1 eq and {1 0 0 setrgbcolor} if xpo1 xdd 6 mul add ypox ypos0 add TVGshift sub moveto tfb Ltaxi i get Ltaxi i 1 sub get sub cvsshow1r 0 setgray } if %i>=1 xpo1 xdd 7 mul add ypos ypos0 add TVGshift sub moveto Ltrxi i get cvsshow3r xpo1 xdd 8 mul add ypos ypos0 add TVGshift sub moveto Ytaxi i get cvsshow1r xpo1 xdd 9.2 mul add ypos ypos0 add TVGshift sub moveto Ltrxi i get 1DGammax exp cvsshow3r xpo1 xdd 10.7 mul add ypos ypos0 add TVGshift sub moveto Ltlxi i get cvsshow1r i 1 ge {%i>=1 xpo1 xdd 11.9 mul add ypox ypos0 add TVGshift sub moveto tfb Ltlxi i get Ltlxi i 1 sub get sub cvsshow1r 0 setgray } if %i>=1 } for %i=0,08 0 0400 neg translate tfb 0900 400 180 sub moveto SM (D) show TBIM (L*) show TBM0a TBM (=) show L0axi 8 get L0axi 7 get sub cvsshow1r %round 2900 400 180 sub moveto TBM ((i=1,2,...,8)) show /x0n 3000 def /y0n 0450 180 sub def x0n 1900 add y0n moveto TBM (normalisation: ) showen (Normierung: ) showde TBIM (Y) show iYnor 0 eq {TBMtaiW} {TBMtaiU} ifelse TBK (=) show TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse 100 050 rmoveto 1300 0 rlineto stroke iYnor 0 eq {/x1n 5300 def} {/x1n 5200 def} ifelse x0n x1n add y0n 130 add moveto TBIM (Y) show TBM0ai TBM (+) show TBIM (Y) show TBM0ref x0n x1n add 50 sub y0n 170 sub moveto TBIM (Y) show iYnor 0 eq {TBM0aW} {TBM0aU} ifelse TBM (+) show TBIM (Y) show TBM0ref showpage grestore %%Trailer