%!PS-Adobe-3.0 EPSF-3.0 BG000-7N %%BoundingBox: 70 82 785 575 %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: http://farbe.li.tu-berlin.de/BG00/BG00.HTM) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2017070112000) /ModDate (D:20170701112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %special /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 1 def} ifelse /sfgray where {pop /slgray {sfgray} bind def} {/slgray {setgray} bind def} ifelse /sfrgbcolor where {pop /slrgbcolor {sfrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /sfcmykcolor where {pop /slcmykcolor {sfcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sfcmyknew where {pop /slcmyknew {sfcmyknew} bind def} {/slcmyknew {setcmyknew} bind def} ifelse %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 /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-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 /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TS {200 /Times-ISOL1 FS} bind def /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-ISOL1 FS} bind def /TIS {200 /TimesI-ISOL1 FS} bind def /TIK {250 /TimesI-ISOL1 FS} bind def /TIM {300 /TimesI-ISOL1 FS} bind def /TIG {350 /TimesI-ISOL1 FS} bind def /TBS {200 /TimesB-ISOL1 FS} bind def /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-ISOL1 FS} bind def /TBIS {200 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /SS {200 /Symbol FS} bind def /SK {250 /Symbol FS} bind def /SM {290 /Symbol FS} bind def /SG {350 /Symbol FS} bind def /CSS {115 /Courier-ISOL1 FS} bind def /CSK {140 /Courier-ISOL1 FS} bind def /CS {200 /Courier-ISOL1 FS} bind def /CK {250 /Courier-ISOL1 FS} bind def /CM {300 /Courier-ISOL1 FS} bind def /CG {350 /Courier-ISOL1 FS} bind def /CBSS {115 /CourierB-ISOL1 FS} bind def /CBSK {140 /CourierB-ISOL1 FS} bind def /CBS {200 /CourierB-ISOL1 FS} bind def /CBK {250 /CourierB-ISOL1 FS} bind def /CBM {300 /CourierB-ISOL1 FS} bind def /CBG {350 /CourierB-ISOL1 FS} bind def /ns {350 /Times-ISOL1 FS show} bind def /ks {350 /TimesI-ISOL1 FS show} bind def /bs {350 /TimesB-ISOL1 FS show} bind def /js {350 /TimesBI-ISOL1 FS show} bind def /ss {350 /Symbol FS show} bind def /is {300 /Times-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /es {300 /Times-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ib {300 /TimesB-ISOL1 FS 0 -90 rmoveto show 0 90 rmoveto} bind def /eb {300 /TimesB-ISOL1 FS 0 200 rmoveto show 0 -200 rmoveto} bind def /ip {300 /Times-ISOL1 FS 50 50 rmoveto (\267) show 50 -50 rmoveto} bind def %20% kleiner /ns2 {300 /Times-ISOL1 FS show TM} bind def /ks2 {300 /TimesI-ISOL1 FS show TM} bind def /bs2 {300 /TimesB-ISOL1 FS show TM} bind def /js2 {300 /TimesBI-ISOL1 FS show TM} bind def /ss2 {300 /Symbol FS show TM} bind def /is2 {250 /Times-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /es2 {250 /Times-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ib2 {250 /TimesB-ISOL1 FS 0 -70 rmoveto show 0 70 rmoveto TM} bind def /eb2 {250 /TimesB-ISOL1 FS 0 160 rmoveto show 0 -160 rmoveto TM} bind def /ip2 {250 /Times-ISOL1 FS 40 40 rmoveto (\267) show 40 -40 rmoveto TM} bind def %40% kleiner /ns4 {250 /Times-ISOL1 FS show TK} bind def /ks4 {250 /TimesI-ISOL1 FS show TK} bind def /bs4 {250 /TimesB-ISOL1 FS show TK} bind def /js4 {250 /TimesBI-ISOL1 FS show TK} bind def /ss4 {250 /Symbol FS show TK} bind def /is4 {200 /Times-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /es4 {200 /Times-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ib4 {200 /TimesB-ISOL1 FS 0 -60 rmoveto show 0 60 rmoveto TK} bind def /eb4 {200 /TimesB-ISOL1 FS 0 130 rmoveto show 0 -130 rmoveto TK} bind def /ip4 {200 /Times-ISOL1 FS 30 30 rmoveto (\267) show 30 -30 rmoveto TK} 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 /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 /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 10 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 10 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 10 string cvs show} def /cvsshow4 {10000 mul cvi 0.0001 mul 10 string cvs show} def /hexshow {/ihex exch def ihex 09 le {ihex cvishow} if ihex 10 eq {(A) show} if ihex 11 eq {(B) show} if ihex 12 eq {(C) show} if ihex 13 eq {(D) show} if ihex 14 eq {(E) show} if ihex 15 eq {(F) show} if } def %************************************* /cvi36show {1000 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi24show {100 mul /nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx cvi 8 string cvs show } def %******************************************* /cvi08show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx 9999999 le {(0) show} if nx 99999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi07show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx 9999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi06show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx 999999 le {(0) show} if nx cvi 10 string cvs show } def /cvi05show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx 99999 le {(0) show} if nx cvi 7 string cvs show } def /cvi04show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 9999 le {(0) show} if nx cvi 7 string cvs show } def /cvi03show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx cvi 7 string cvs show } def /cvi02show {/nx exch cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx cvi 6 string cvs show } def /cvi02nshow {/nx exch def %with round nx 0 eq {%nx=0 (00) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {(0) show} if nx 6 string cvs show } if %nx>=0 } def /cvi02xshow {/nx exch def %with round nx 0 eq {%nx=0 ( ) show nx cvi 6 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 6 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 99 le {( ) show} if nx 6 string cvs show } if %nx>=0 } def /cvi03nshow {/nx exch def %with round nx 0 eq {%nx=0 (000) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 /nx nx 0.5 add cvi def nx 9 le {(0) show} if nx 99 le {(0) show} if nx 999 le {(0) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 /nx nx 0.5 sub cvi def nx abs 9 le {(0) show} if nx abs 99 le {(0) show} if nx 7 string cvs show } if %nx>=0 } def /cvi03xshow {/nx exch cvi def %with round nx 0 eq {%nx=0 ( ) show nx cvi 7 string cvs show } if %nx>=0 nx 0 gt {%nx>=0 % /nx nx 0.5 add cvi def nx 9 le {( ) show} if nx 99 le {( ) show} if nx 999 le {( ) show} if nx 7 string cvs show } if nx 0 lt {%nx<0 % /nx nx 0.5 sub cvi def nx abs 9 le {( ) show} if nx abs 99 le {( ) show} if nx 7 string cvs show } if %nx>=0 } def %********************************************************************* /proc_trans_rgb3*_cmyn6*ioL {%BEG Procedure proc_trans_rgb3*_cmyn6*ioL %assumes input of olv*, 'zm60'CMYN559LT.PS o* 0 le {/o* 0.0000 def} if l* 0 le {/l* 0.0000 def} if v* 0 le {/v* 0.0000 def} if o* 1 ge {/o* 1.0000 def} if l* 1 ge {/l* 1.0000 def} if v* 1 ge {/v* 1.0000 def} if /ok* o* def /lk* l* def /vk* v* def /tdel 0 def vk* lk* ge lk* ok* ge and tdel 0 eq and % v* >= l* >= o* equal y* <= m* <= c* %sector C-V of C-M, C>=M: i*p=0 {/n*n 1 vk* sub def /w*w ok* def /m*w lk* def /tdel 1 def /isec 3 def } if % v* >= l* >= o* vk* ok* ge ok* lk* ge and tdel 0 eq and % v* >= o* >= l* equal y* <= c* <= m* %sector V-M of C-M, M>=C: i*p=1 {/n*n 1 vk* sub def /w*w lk* def /m*w ok* def /tdel 1 def /isec 4 def } if % v* >= o* >= l* ok* vk* ge vk* lk* ge and tdel 0 eq and % o* >= v* >= l* equal c* <= y* <= m* %sector M-O of M-Y, M>=Y: i*p=2 {/n*n 1 ok* sub def /w*w lk* def /m*w vk* def /tdel 1 def /isec 5 def } if % o* >= v* >= l* ok* lk* ge lk* vk* ge and tdel 0 eq and % o* >= l* >= v* equal c* <= m* <= y* %sector O-Y of M-Y, Y>=M: i*p=3 {/n*n 1 ok* sub def /w*w vk* def /m*w lk* def /tdel 1 def /isec 0 def } if % o* >= l* >= v* lk* ok* ge ok* vk* ge and tdel 0 eq and % l* >= o* >= v* equal m* <= c* <= y* %sector Y-L of Y-C, Y>=C: i*p=4 {/n*n 1 lk* sub def /w*w vk* def /m*w ok* def /tdel 1 def /isec 1 def } if % l* >= o* >= v* lk* vk* ge vk* ok* ge and tdel 0 eq and % l* >= v* >= o* equal m* <= y* <= c* %sector L-C of Y-C, C>=Y: i*p=5 {/n*n 1 lk* sub def /w*w ok* def /m*w vk* def /tdel 1 def /isec 2 def } if % l* >= v* >= o* %achromatic %W: ok*, lk*, vk* = 1.00 1.0 ok* sub abs 0.001 le 1.0 lk* sub abs 0.001 le and 1.0 vk* sub abs 0.001 le and %W special case {/n*n 0 def /w*w 1 def /m*w 1 def %W /isec 6 def } if %N: ok*, lk*, vk* <= 0.001 ok* abs 0.001 le lk* abs 0.001 le and vk* abs 0.001 le and %N special case {/n*n 1 def /w*w 0 def /m*w 0 def %N /isec 6 def } if %Achromatic ok* lk* sub abs 0.001 le lk* vk* sub abs 0.001 le and %Achromatic special case {/n*n 1 ok* sub def /w*w ok* def /m*w ok* def %grey /isec 6 def } if /lab*wFa w*w def /lab*nFa n*n def /lab*cFa 1 n*n sub w*w sub def /argb 1 lab*nFa sub def /brgb m*w def /crgb lab*wFa def /c* lab*cFa def /lab*tFa 1 lab*nFa sub lab*cFa 0.5 mul sub def isec 6 eq {%BEG isec=6 achromatic /o*1 1 def /l*1 1 def /v*1 1 def }%END isec=6 achromatic {%BEG isec#6 chromatic /o*1 ok* argb 0.000001 add div def /l*1 lk* argb 0.000001 add div def /v*1 vk* argb 0.000001 add div def } ifelse %END isec#6 /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c41*Fa c3*Fa def %at least one of cmy will be cero /m41*Fa m3*Fa def /y41*Fa y3*Fa def /n4*Fa lab*nFa def %change by deepness difference delta d* = c*S1 - c*S2 %use lab*cFa, lab*tFa for correction %equations of three lines %t* = 1 - 0.5 c* %t* = [t* / c*] c* %t* = [(t* + 0,18) / c*] c* - 0,18 %cut point S1 for nt=0,18: %c*s1 = 1 /[ t*F / c*F + 0,5 ] %cut point S2 for n=0,18: %c*s1 = (1 + nt) / [ (t*F + nt) / c*F + 0,5 ] %special case lab*cFa=0 and n=0,18 /nt 0.18 def lab*cFa 0 eq { %lab*cFa=0,#0 /c*S1 0 def /c*S2 0 def } %lab*cFa=0 { %lab*cFa#0 /c*S1 1 lab*tFa lab*cFa div 0.5 add div def /c*S2 1 nt add lab*tFa nt add lab*cFa div 0.5 add div def } ifelse %lab*cFa=0,#0 /c4*Fa c41*Fa c41*Fa c*S1 c*S2 sub mul sub def /m4*Fa m41*Fa m41*Fa c*S1 c*S2 sub mul sub def /y4*Fa y41*Fa y41*Fa c*S1 c*S2 sub mul sub def /o4*Fa 1 c4*Fa sub def /l4*Fa 1 m4*Fa sub def /v4*Fa 1 y4*Fa sub def /i4*Fa 1 n4*Fa sub def } def %END Procedure proc_trans_rgb3*_cmyn6*ioL 'zm60'CMYN559LT.PS %********************************************************************* /colsepl 0 def /xchart3 1 def /colorml 1 def colsepl 0 eq {%colsepl=0 cmyn6* /tLAB 0 def xchart3 1 ge {%xchart3>=1 'zm60'COLM559LT.PS cmyn6* 20120201 colorml 0 eq {%BEG colorml=0 /olvtrans 1 def %changes olv* to olvk* /setrgbcolor {/v* exch def /l* exch def /o* exch def % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew } def % /setcmykcolor {cmyk_olv*_cmyn4* % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def % proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew % } def }%END colorml=0 {%BEG colorml=1 /olvtrans 0 def %no change of olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew } def /setgray {dup dup /v* exch def /l* exch def /o* exch def % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew } def /setcmykcolor {cmyk_olv*_cmyn4* % o* l* v* % proc_rgb_rgb*'dy_LAB*'dy_rgb'*dy_*ioL % /v* exch def /l* exch def /o* exch def proc_trans_rgb3*_cmyn6*ioL %in: olv*, out: cmyn6 % c4*Fa m4*Fa y4*Fa n4*Fa % setcmyknew } def } ifelse %END colorml=1 }%END %xchart3>=0 {%BEG %xchart3=0 /setrgbcolor {/v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def % o* l* v* % slrgbcolor } def /setgray {dup dup /v* exch def /l* exch def /o* exch def /c4*Fa 1 o* sub def /m4*Fa 1 l* sub def /y4*Fa 1 v* sub def /n4*Fa 0 def % o* % slgray } def % /setcmykcolor {cmyk_olv*_cmyn4* % c4*Fa m4*Fa y4*Fa n4*Fa % slcmykcolor % } def } ifelse %END %xchart3=0 'zm60'COLM559LT.PS cmyn6* 20120301 } if %colsepl=0 cmyn6* %********************************************************************* /A4quer {598 0 tl 90 rotate} def %%EndProlog gsave /idecri 257 array def /idecgi 257 array def /idecbi 257 array def /idel 1000 255 div def 0 1 255 {/i exch def %i=0,255 idecri i i idel mul put idecgi i i idel mul put idecbi i i idel mul put } for %i=0,255 /fakt 1.30 def 0 setgray 20 setlinewidth /ymax 16500 250 sub def /ydel 195 fakt mul def /xdel0 550 fakt mul def /xdel1 420 fakt mul def /xdel2 330 fakt mul def /xdelx 100 fakt mul def /xdeli4 1100 fakt mul def /xdelrx 1550 fakt mul def /xdelgx 2000 fakt mul def /xdelbx 2450 fakt mul def /xdel0x 3000 fakt mul def /xdel1x xdel0x xdel0 3 mul add xdelx add def /xdel2x xdel1x xdel1 3 mul add xdelx add def /xdel2y xdel2x xdel2 3 mul add xdelx add 100 add def /xdel3x xdel2y 1350 add def /xdel4x xdel3x xdel0 3 mul add xdelx add def /xdel5x xdel4x xdel1 3 mul add xdelx add def /xdel5y xdel5x xdel2 3 mul add xdelx add 100 add def /xdel6x xdel5y 1350 add def /xdel7x xdel6x xdel0 4 mul add xdelx add def /xdel8x xdel7x xdel1 4 mul add xdelx add def %default values /lanind1 0 def /lanind2 0 def /lanindd 01 def /lanindm 01 def /xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xcolorm 01 def /xchart1 00 def /xchart2 00 def /xchartd 01 def /xchartm 01 def /pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 01 def /xchart3 01 def /xchart4 00 def /xchart5 00 def %usual change of default values /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} if /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} if /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def} if /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} if /xchart3f where {pop /xchart3 xchart3f def} if /xchart4f where {pop /xchart4 xchart4f def} if /xchart5f where {pop /xchart5 xchart5f def} if /lanind lanind1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /GSS$ where {pop /LSS$ GSS$ def} {/LSS$ (1) def} ifelse /GSC$ where {pop /LSC$ GSC$ def} {/LSC$ (N) def} ifelse /GSX$ where {pop /LSX$ GSX$ def} {/LSX$ (0) def} ifelse /GSY$ where {pop /LSY$ GSY$ def} {/LSY$ (0) def} ifelse /GEX$ where {pop /LEX$ GEX$ def} {/LEX$ (P.PS./PDF) def} ifelse /GEY$ where {pop /LEY$ GEY$ def} {/LEY$ (P.DAT) def} ifelse /IMES where {pop %/IMES IMES def } {/IMES 0 def} ifelse /pchartl pchart def %0 1 7 {/pchartl exch def %pchartl=0,7 /GPk 2.4 0.18 pchartl mul sub def /gPk GPk 2.4 div def /fexp {gPk exp} def /xcolorl xcolor def %0 1 0255 {/xcolorl exch def %xcolorl=0,0255 /xchartl xchart def %0 1 1023 {/xchartl exch def %xchartl=0,1023 /xchartx xchartl 4 idiv def /i4 xchartl xchartx 4 mul sub def gsave 6 /Times-ISOL1 FS 72 84 moveto ( BG000-7N, ) show pchartl cvishow (, GPk=) show GPk cvsshow2 (, gPk=) show gPk cvsshow3 (, pchartl=) show pchartl cvishow (, xcolorl=) show xcolorl cvishow (, xchartl=) show xchartl cvishow 72 90 translate 0.010 MM dup scale 20 setlinewidth 1 1 1 slrgbcolor 0 0 moveto 25000 0 rlineto 0 17000 rlineto 25000 neg 0 rlineto closepath fill 0 0 0 slrgbcolor 0 0 moveto 25000 0 rlineto 0 17000 rlineto 25000 neg 0 rlineto closepath stroke 195 fakt mul /CourierB-ISOL1 FS /ymaxt ymax ydel 2 mul add def 50 ymaxt moveto (GPk=) show GPk cvsshow2 (, gPk=) show gPk cvsshow3 (, pchartl=) show pchartl cvishow (, xcolorl=) show xcolorl cvishow (, xchartl=) show xchartl cvishow ( $) show /ymaxt ymax ydel add def 50 ymaxt moveto (n) show xdeli4 ymaxt moveto (i4) show xdelrx ymaxt moveto (rx) show xdelgx ymaxt moveto (gx) show xdelbx ymaxt moveto (bx) show xdel0x ymaxt moveto (rgbdec) show xdel1x ymaxt moveto (rgbint) show xdel2x ymaxt moveto (rgbhex) show xdel2y ymaxt moveto (n') show xdel3x ymaxt moveto (rgb'dec) show xdel4x ymaxt moveto (rgb'int) show xdel5x ymaxt moveto (rgb'hex) show xdel5y ymaxt moveto (k') show xdel6x ymaxt moveto (cmyn'dec) show xdel7x ymaxt moveto (cmyn'int) show xdel8x ymaxt moveto (cmyn'hex) show ( $) show /ydelx ydel 0.5 mul def 0 1 63 {/i exch def %i=0,63 /ix i i4 64 mul add def /ymaxai ymax i ydel mul sub i 32 ge {ydelx sub} if def 0050 ymaxai moveto i i4 64 mul add xchartx 256 mul add xcolorl 65536 mul add cvi07show xdeli4 ymaxai moveto i4 cvi02show /ir xcolorl def xdelrx ymaxai moveto ir cvi02show /ig xchartx def xdelgx ymaxai moveto ig cvi02show /ib ix def xdelbx ymaxai moveto ib cvi02show xdel0x xdel0 0 mul add ymaxai moveto /idecr idecri ir get cvi def idecr cvi03show xdel0x xdel0 1 mul add ymaxai moveto /idecg idecgi ig get cvi def idecg cvi03show xdel0x xdel0 2 mul add ymaxai moveto /idecb idecbi ib get cvi def idecb cvi03show xdel1x xdel1 0 mul add ymaxai moveto /iintr idecr 0.001 mul 255 mul 0.5 add cvi def iintr cvi02show xdel1x xdel1 1 mul add ymaxai moveto /iintg idecg 0.001 mul 255 mul 0.5 add cvi def iintg cvi02show xdel1x xdel1 2 mul add ymaxai moveto /iintb idecb 0.001 mul 255 mul 0.5 add cvi def iintb cvi02show xdel2x xdel2 0 mul add ymaxai moveto /ihex1r iintr 16 idiv def /ihex2r iintr iintr 16 idiv 16 mul sub def ihex1r hexshow ihex2r hexshow xdel2x xdel2 1 mul add ymaxai moveto /ihex1g iintg 16 idiv def /ihex2g iintg iintg 16 idiv 16 mul sub def ihex1g hexshow ihex2g hexshow xdel2x xdel2 2 mul add ymaxai moveto /ihex1b iintb 16 idiv def /ihex2b iintb iintb 16 idiv 16 mul sub def ihex1b hexshow ihex2b hexshow /iout 1 def iout 1 eq {%iout=1 %part 2 /jdecr idecr 0.001 mul fexp 1000 mul def /jdecg idecg 0.001 mul fexp 1000 mul def /jdecb idecb 0.001 mul fexp 1000 mul def /jintr jdecr 0.001 mul 255 mul 0.5 add cvi def /jintg jdecg 0.001 mul 255 mul 0.5 add cvi def /jintb jdecb 0.001 mul 255 mul 0.5 add cvi def xdel2y ymaxai moveto jintb jintg 256 mul add jintr 65536 mul add cvi07show xdel3x xdel0 0 mul add ymaxai moveto jdecr cvi03show xdel3x xdel0 1 mul add ymaxai moveto jdecg cvi03show xdel3x xdel0 2 mul add ymaxai moveto jdecb cvi03show xdel4x xdel1 0 mul add ymaxai moveto jintr cvi02show xdel4x xdel1 1 mul add ymaxai moveto jintg cvi02show xdel4x xdel1 2 mul add ymaxai moveto jintb cvi02show xdel5x xdel2 0 mul add ymaxai moveto /jhex1r jintr 16 idiv def /jhex2r jintr jintr 16 idiv 16 mul sub def jhex1r hexshow jhex2r hexshow xdel5x xdel2 1 mul add ymaxai moveto /jhex1g jintg 16 idiv def /jhex2g jintg jintg 16 idiv 16 mul sub def jhex1g hexshow jhex2g hexshow xdel5x xdel2 2 mul add ymaxai moveto /jhex1b jintb 16 idiv def /jhex2b jintb jintb 16 idiv 16 mul sub def jhex1b hexshow jhex2b hexshow } if %iout=1 %part3 %calculation c4*Fa, m4*Fa, y*Fa, n4*Fa jdecr 0.001 mul jdecg 0.001 mul jdecb 0.001 mul setrgbcolor %now available c4*Fa m4*Fa y4*Fa n4*Fa /jdecc c4*Fa 1000 mul def /jdecm m4*Fa 1000 mul def /jdecy y4*Fa 1000 mul def /jdecn n4*Fa 1000 mul def /jintc c4*Fa 255 mul 0.5 add cvi def /jintm m4*Fa 255 mul 0.5 add cvi def /jinty y4*Fa 255 mul 0.5 add cvi def /jintn n4*Fa 255 mul 0.5 add cvi def xdel5y ymaxai moveto jinty jintm 256 mul add jintc 65536 mul add cvi07show xdel6x xdel0 0 mul add ymaxai moveto jdecc cvi03show xdel6x xdel0 1 mul add ymaxai moveto jdecm cvi03show xdel6x xdel0 2 mul add ymaxai moveto jdecy cvi03show xdel6x xdel0 3 mul add ymaxai moveto jdecn cvi03show xdel7x xdel1 0 mul add ymaxai moveto jintc cvi02show xdel7x xdel1 1 mul add ymaxai moveto jintm cvi02show xdel7x xdel1 2 mul add ymaxai moveto jinty cvi02show xdel7x xdel1 3 mul add ymaxai moveto jintn cvi02show xdel8x xdel2 0 mul add ymaxai moveto /jhex1c jintc 16 idiv def /jhex2c jintc jintc 16 idiv 16 mul sub def jhex1c hexshow jhex2c hexshow xdel8x xdel2 1 mul add ymaxai moveto /jhex1m jintm 16 idiv def /jhex2m jintm jintm 16 idiv 16 mul sub def jhex1m hexshow jhex2m hexshow xdel8x xdel2 2 mul add ymaxai moveto /jhex1y jinty 16 idiv def /jhex2y jinty jinty 16 idiv 16 mul sub def jhex1y hexshow jhex2y hexshow xdel8x xdel2 3 mul add ymaxai moveto /jhex1n jintn 16 idiv def /jhex2n jintn jintn 16 idiv 16 mul sub def jhex1n hexshow jhex2n hexshow ( $) show } for %i=0,63 showpage grestore %} for %xchartl=0,1023 %} for %xcolorl=0,0255 %} for %pchartl=0,7 %%Trailer