%!PS-Adobe-3.0 EPSF-3.0 IE030-7N %%BoundingBox: 70 82 765 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: Image Technology) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@mac.com) /CreationDate (D:2009090112000) /ModDate (D:2009090112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %Early binding /sggray where {pop /slgray {sggray} bind def} {/slgray {setgray} bind def} ifelse /sgcmykcolor where {pop /slcmykcolor {sgcmykcolor} bind def} {/slcmykcolor {setcmykcolor} bind def} ifelse /sgrgbcolor where {pop /slrgbcolor {sgrgbcolor} bind def} {/slrgbcolor {setrgbcolor} bind def} ifelse /halfg where {pop /half halfg def} {/half 0 def} ifelse /VisTol*ioL 1.00 def /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string} bind def /languagelevel where {pop languagelevel} {1} ifelse /PSL12 exch def /dictende {counttomark 2 idiv dup dict begin {def} repeat pop currentdict end} bind def /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /Courier-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 /TK {250 /Times-ISOL1 FS} bind def /TM {300 /Times-ISOL1 FS} bind def /TG {350 /Times-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 /TBK {250 /TimesB-ISOL1 FS} bind def /TBM {300 /TimesB-ISOL1 FS} bind def /TBG {350 /TimesB-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 /CBKK {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 /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 /rem %x0, y0 width heigth {/heigth exch def /width exch def /y0 exch def /x0 exch def x0 width 0.5 mul add y0 heigth 0.5 mul add moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def %******************************************************************* /proc_ColTra*ioL {%BEG Procedure proc_Coltra*ioL Colour transformation 200909001 colorm 0 eq {%BEG colorm=0 with change of olv* by white (1-VisTol*ioL x 100%) /olvtrans 0 def %olvk*=olv* /setrgbcolor {/v* exch def /l* exch def /o* exch def %needs olv* for input to produce cmynx*ioL as output xcolorl 0 eq {trans_rgb3*_cmyn0*ioL} if xcolorl 1 eq {trans_rgb3*_cmyn4*ioL} if xcolorl 2 eq {trans_rgb3*_cmyn5*ioL} if xcolorl 3 eq {trans_rgb3*_cmyn6*ioL} if Iolv_cmyn 0 eq {o3*Fa l3*Fa v3*Fa slrgbcolor} {c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor} ifelse } def /setgray {/w*w exch def /v* w*w def /l* w*w def /o* w*w def %needs olv* for input to produce cmynx*ioL as output xcolorl 0 eq {trans_rgb3*_cmyn0*ioL} if xcolorl 1 eq {trans_rgb3*_cmyn4*ioL} if xcolorl 2 eq {trans_rgb3*_cmyn5*ioL} if xcolorl 3 eq {trans_rgb3*_cmyn6*ioL} if Iolv_cmyn 0 eq {xchartl 1 le {o3*Fa slgray} {o3*Fa l3*Fa v3*Fa slrgbcolor} ifelse } {c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor} ifelse } def /setcmykcolor {/n*n exch def /y*n exch def /m*n exch def /c*n exch def %standard cmy0* or 000n* for input n*n 0 eq {/o* 1 c*n sub def /l* 1 m*n sub def /v* 1 y*n sub def} {/o* 1 n*n sub def /l* 1 n*n sub def /v* 1 n*n sub def} ifelse %needs olv* for input to produce cmynx*ioL as output xcolorl 0 eq {trans_rgb3*_cmyn0*ioL} if xcolorl 1 eq {trans_rgb3*_cmyn4*ioL} if xcolorl 2 eq {trans_rgb3*_cmyn5*ioL} if xcolorl 3 eq {trans_rgb3*_cmyn6*ioL} if Iolv_cmyn 0 eq {n*n 0 eq {c*n m*n y*n 0.0 slcmykcolor} {0.0 0.0 0.0 n*n slcmykcolor} ifelse } {c4*Fa m4*Fa y4*Fa n4*Fa slcmykcolor} ifelse } def }%END colorm=0 {%BEG colorm=1 } ifelse %END colorm=1 %******************************************************************* /proc_olv_ncw*ioL {%BEG Procedure proc_olv_ncw*ioL 20090901 %assumes input of olv*, needs olvtrans=0 or 1 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 olvtrans 0 eq {%olvtrans /ok* o* def /lk* l* def /vk* v* def} {/ok* o* 1 o* sub 1 VisTol*ioL sub mul add def /lk* l* 1 l* sub 1 VisTol*ioL sub mul add def /vk* v* 1 v* sub 1 VisTol*ioL sub mul add def} ifelse /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 } def %END Procedure proc_olv_ncw*ioL 20090901 %******************************************************************* /trans_rgb3*_cmyn0*ioL {%BEG Procedure trans_rgb3*_cmyn0*ioL olv*->cmy0* %assumes input of olv* 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 /o3*Fa o* def /l3*Fa l* def /v3*Fa v* def /c3*Fa 1 o* sub def /m3*Fa 1 l* sub def /y3*Fa 1 v* sub def /c4*Fa c3*Fa def %n will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa 0 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 trans_rgb3*_cmyn0*ioL olv*->cmy0* %******************************************************************* /trans_rgb3*_cmyn4*ioL {%BEG Procedure trans_rgb3*_cmyn4*ioL aus ZE47 proc_olv_ncw*ioL /o3*Fa ok* def /l3*Fa lk* def /v3*Fa vk* def /c3*Fa 1 ok* sub def /m3*Fa 1 lk* sub def /y3*Fa 1 vk* sub def /c4*Fa c3*Fa lab*nFa sub def %at least one of cmy will be cero /m4*Fa m3*Fa lab*nFa sub def /y4*Fa y3*Fa lab*nFa sub def /n4*Fa lab*nFa 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 trans_rgb3*_cmyn4*ioL %******************************************************************* /trans_rgb3*_cmyn5*ioL {%BEG Procedure trans_rgb3*_cmyn5*ioL aus ZE48 proc_olv_ncw*ioL /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 /o3*Fa o*1 def /l3*Fa l*1 def /v3*Fa v*1 def /c3*Fa 1 o*1 sub def /m3*Fa 1 l*1 sub def /y3*Fa 1 v*1 sub def /c4*Fa c3*Fa def %at least one of cmy will be cero /m4*Fa m3*Fa def /y4*Fa y3*Fa def /n4*Fa lab*nFa 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 trans_rgb3*_cmyn5*ioL 'zm60'CMYN559G.PS aus ZE48 %******************************************************************* /trans_rgb3*_cmyn6*ioL {%BEG Procedure trans_rgb3*_cmyn6*ioL aus HE47 proc_olv_ncw*ioL /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 /o3*Fa o*1 def /l3*Fa l*1 def /v3*Fa v*1 def /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 1.0 exp def %cmyn6* %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 } bind def %END Procedure trans_rgb3*_cmyn6*ioL aus HE47 %******************************************************************* } bind def %BEG Procedure proc_ColTra*ioL Colour transformation 20090901 %******************************************************************* %%EndProlog gsave /lanind 0 def /lantex [(G) (E) (S) (N) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showm {6 lanind eq {show} {pop} ifelse} bind def /lanindg where {pop /lanind1 lanindg def /lanind2 lanindg def} {/lanind1 1 def /lanind2 1 def} ifelse /colormg where {pop /colorm1 colormg def /colorm2 colormg def} {/colorm1 1 def /colorm2 1 def} ifelse /xcolorg where {pop /xcolor1 xcolorg def /xcolor2 xcolorg def} {/xcolor1 0 def /xcolor2 0 def} ifelse /xchartg where {pop /xchart1 xchartg def /xchart2 xchartg def} {/xchart1 0 def /xchart2 0 def} ifelse /lanind lanind1 def %lanind1 1 lanind2 {/lanind exch def %output showpage /colorm colorm1 def %colorm1 1 colorm2 {/colorm exch def %output showpage /xcolor xcolor1 def %xcolor1 1 xcolor2 {/xcolor exch def %output showpage /xchart xchart1 def %xchart1 1 xchart2 {/xchart exch def %output showpage /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 /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 /nr1 27 array def /tx1 52 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) (09) (10) (11) (12) (13) (14) (15) (16) (17) (18) (19) (20) (21) (22) (23) (24) (25) (26) (27)] def /tx1 [(A) (B) (C) (D) (E) (F) (G) (H) (I) (J) (K) (L) (M) (N) (O) (P) (Q) (R) (S) (T) (U) (V) (W) (X) (Y) (Z) (a) (b) (c) (d) (e) (f) (g) (h) (i) (j) (k) (l) (m) (n) (o) (p) (q) (r) (s) (t) (u) (v) (w) (x) (y) (z)] def /xcolorg where {pop /xcolorx xcolorg def} {/xcolorx 2 def} ifelse /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse 72 90 translate /xcolorl xcolorx def /xchartl xchartx def %0 1 3 {/xcolorl exch def %00 1 3 {/xchartl exch def /Iolv_cmyn 1 def /olvtrans 0 def gsave colorm 1 eq {proc_ColTra*ioG} {proc_ColTra*ioL} ifelse /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 8 /Times-ISOL1 FS 12 -7 moveto (IE030-7) show colorm 0 eq {(N, ) show} {(F, ) show} ifelse (Test chart G with 40x27=1080 colours) showen (Pr\374fvorlage G mit 40x27=1080 Farben) showde (; digital equidistant 9 or 16 step colour scales;) showen (; digital gleichabst\344ndige 9 oder 16stufige Farbreihen;) showde ( Farbdaten in Spalte (A-n):) showde ( Colour data in column (A-n):) showen 8 /TimesB-ISOL1 FS xchartl 1 le {( rgb (A-j, n), 000n (k), w (l), nnn0 (m)) show} %xchartl<=1,>1 {Iolv_cmyn 0 eq {%Iolv_cmyn=0,1 ( rgb setrgbcolor) show } {xcolorl 0 eq {( cmy0* setcmykcolor) show} if xcolorl 1 eq {( cmy4* setcmykcolor) show} if xcolorl 2 eq {( cmy5* setcmykcolor) show} if xcolorl 3 eq {( cmy6* setcmykcolor) show} if } ifelse %Iolv_cmyn=0,1 } ifelse %xchartl<=1,>1 8 /Times-ISOL1 FS (, 5,4mm x 5,4mm) show (, Page ) showen (, Seite ) showde xchartl 1 add cvishow (/1) show /xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} {/faktg 1.00 def} ifelse 0.01 MM faktg mul dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def xchartl 3 le {/xd 800 3 div 2 mul def /yd 800 3 div 2 mul def} {/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def} ifelse /xsd xs xd sub 0.5 mul def /ysd xs xd sub 0.5 mul def /r*x 0.5 def /g*x 0.5 def /b*x 0.5 def /c*x 1 r*x sub def /m*x 1 g*x sub def /y*x 1 b*x sub def /n*x 0 def %Start-transformation r*x g*x b*x setrgbcolor /r*xt o3*Fa def /g*xt l3*Fa def /b*xt v3*Fa def /c*xt c4*Fa def /m*xt m4*Fa def /y*xt y4*Fa def /n*xt n4*Fa def colorm 1 eq {%colorm=1 /r*xm MTL_rs def /g*xm MTL_gs def /b*xm MTL_bs def /c*xm MTL_cs def /m*xm MTL_ms def /y*xm MTL_ys def /n*xm MTL_ns def } if %colorm=1 %Output-Transformations xchartl 1 le {%xchartl=0 r*x g*x b*x slrgbcolor } if %xchartl=0 xchartl 2 ge {%xchartl=2 Iolv_cmyn 0 eq {%Iolv_cmyn=0 colorm 0 eq {r*xt g*xt b*xt slrgbcolor} {r*xm g*xm b*xm slrgbcolor} ifelse }%Iolv_cmyn=0 {%Iolv_cmyn=1 colorm 0 eq {c*xt m*xt y*xt n*xt slcmykcolor} {c*xm m*xm y*xm n*xm slcmykcolor} ifelse } ifelse %Iolv_cmyn=0,1 } if %xchartl=2 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill 20 setlinewidth 500 3 div 2 mul /Times-ISOL1 FS 0 0 0 setrgbcolor 1 1 27 {/i exch def %i=1,27 /x xs 0.15 mul def /y 27.6 ys mul ys i mul sub def x y moveto nr1 i 1 sub get show } for %i=1,27 1 1 40 {/i exch def %i=1,36 /x xs i mul 000 add def /y 27.5 ys mul def x y moveto tx1 i 1 sub get show } for %i=1,36 /IMODE 0 def %input rgb for output LAB* %row no.1 and 2: 9xrgb /imax 08 def /jmax 08 def /kmax 08 def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 kmax {/k exch def %beg k=0,08 /k0 k 3 idiv def /k1 k k0 3 mul sub def /xadd k1 xs 9 mul mul def /yadd k0 xs 9 mul mul def 0 1 jmax {/j exch def %beg j=0,jmax 0 1 imax {/i exch def %beg i=0,imax /n i j 9 mul add k 81 mul add def /j1 j k1 9 mul add def /j1$ tx1 j1 get def /i1 i 1 add k0 9 mul add def /xa xmin j xs mul add xadd add xsd add def /ya ymax i ys mul sub yadd sub ysd add def /r k kmax div def /g j jmax div def /b i imax div def /r*x r def /g*x g def /b*x b def /c*x 1 r*x sub def /m*x 1 g*x sub def /y*x 1 b*x sub def /n*x 0 def %Start-transformation r*x g*x b*x setrgbcolor /r*xt o3*Fa def /g*xt l3*Fa def /b*xt v3*Fa def /c*xt c4*Fa def /m*xt m4*Fa def /y*xt y4*Fa def /n*xt n4*Fa def colorm 1 eq {%colorm=1 /r*xm MTL_rs def /g*xm MTL_gs def /b*xm MTL_bs def /c*xm MTL_cs def /m*xm MTL_ms def /y*xm MTL_ys def /n*xm MTL_ns def } if %colorm=1 %Output-Transformations xchartl 0 eq {%xchartl=0 r*x g*x b*x slrgbcolor } if %xchartl=0 xchartl 2 eq {%xchartl=2 Iolv_cmyn 0 eq {%Iolv_cmyn=0 colorm 0 eq {r*xt g*xt b*xt slrgbcolor} {r*xm g*xm b*xm slrgbcolor} ifelse }%Iolv_cmyn=0 {%Iolv_cmyn=1 colorm 0 eq {c*xt m*xt y*xt n*xt slcmykcolor} {c*xm m*xm y*xm n*xm slcmykcolor} ifelse } ifelse %Iolv_cmyn=0,1 } if %xchartl=2 xchartl 1 eq xchartl 3 eq or {1 1 1 setrgbcolor} if xa ya xd dup rec fill xchartl 1 eq xchartl 3 eq or {0 0 0 setrgbcolor Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 625 3 div 2 mul add moveto n 9 le {(000) show} if n 10 ge n 99 le and {(00) show} if n 100 ge n 999 le and {(0) show} if n cvishow ( ) show }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa xd add 220 sub ya 625 3 div 2 mul add moveto } ifelse %Iolv_cmyn=0,1 j1$ show i1 9 le {(0) show} if i1 cvishow Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {r*x cvsshow3} if xchartl 3 eq colorm 0 eq and {r*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {r*x cvsshow3} if xchartl 3 eq colorm 1 eq and {r*xm cvsshow3} if xa ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {g*x cvsshow3} if xchartl 3 eq colorm 0 eq and {g*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {g*x cvsshow3} if xchartl 3 eq colorm 1 eq and {g*xm cvsshow3} if xa ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {b*x cvsshow3} if xchartl 3 eq colorm 0 eq and {b*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {b*x cvsshow3} if xchartl 3 eq colorm 1 eq and {b*xm cvsshow3} if }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa 05 add ya 625 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {c*x cvsshow3} if xchartl 3 eq colorm 0 eq and {c*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {c*x cvsshow3} if xchartl 3 eq colorm 1 eq and {c*xm cvsshow3} if xa 05 add ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {m*x cvsshow3} if xchartl 3 eq colorm 0 eq and {m*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {m*x cvsshow3} if xchartl 3 eq colorm 1 eq and {m*xm cvsshow3} if xa 05 add ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {y*x cvsshow3} if xchartl 3 eq colorm 0 eq and {y*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {y*x cvsshow3} if xchartl 3 eq colorm 1 eq and {y*xm cvsshow3} if xa 05 add ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {n*x cvsshow3} if xchartl 3 eq colorm 0 eq and {n*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {n*x cvsshow3} if xchartl 3 eq colorm 1 eq and {n*xm cvsshow3} if } ifelse %Iolv_cmyn=0,1 } if } for %end i=0,jmax } for %end j=0,jmax } for %end k=0,kmax %3x rgbcmy /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /n 728 def 0 1 lmax {/l exch def %beg k=0,kmax /xadd 3 xs 9 mul mul def /yadd l ys 9 mul mul def %for intermediate storage of l=0,lmax 0 1 01 {/jchart exch def %jchart=0,1 /xchartj l jchart 3 mul add def 0 1 08 {/j exch def %j=0,7 /im 8 j sub def jchart 1 im {/i exch def %i=0,8 /ia 1 id j mul sub def /argb ia def /brgb ia i id mul sub def xchartj 0 eq {/r argb def /g brgb def /b brgb def} if xchartj 1 eq {/r argb def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb def} if xchartj 3 eq {/r brgb def /g argb def /b argb def} if xchartj 4 eq {/r brgb def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb def} if jchart 0 eq {/in i j add def /jn j def} {/in j def /jn i j add def} ifelse rijn in 9 mul jn add r put gijn in 9 mul jn add g put bijn in 9 mul jn add b put } for %i=0,7 } for %j=0,8 } for %jchart=0,1 %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /r rijn i j 9 mul add get def /g gijn i j 9 mul add get def /b bijn i j 9 mul add get def /xa xmin xs j mul add xadd add xsd add def /ya ymax xs i mul sub yadd sub ysd add def /r*x r def /g*x g def /b*x b def /c*x 1 r*x sub def /m*x 1 g*x sub def /y*x 1 b*x sub def /n*x 0 def %Start-transformation r*x g*x b*x setrgbcolor /r*xt o3*Fa def /g*xt l3*Fa def /b*xt v3*Fa def /c*xt c4*Fa def /m*xt m4*Fa def /y*xt y4*Fa def /n*xt n4*Fa def colorm 1 eq {%colorm=1 /r*xm MTL_rs def /g*xm MTL_gs def /b*xm MTL_bs def /c*xm MTL_cs def /m*xm MTL_ms def /y*xm MTL_ys def /n*xm MTL_ns def } if %colorm=1 %Output-Transformations xchartl 0 eq {%xchartl=0 r*x g*x b*x slrgbcolor } if %xchartl=0 xchartl 2 eq {%xchartl=2 Iolv_cmyn 0 eq {%Iolv_cmyn=0 colorm 0 eq {r*xt g*xt b*xt slrgbcolor} {r*xm g*xm b*xm slrgbcolor} ifelse }%Iolv_cmyn=0 {%Iolv_cmyn=1 colorm 0 eq {c*xt m*xt y*xt n*xt slcmykcolor} {c*xm m*xm y*xm n*xm slcmykcolor} ifelse } ifelse %Iolv_cmyn=0,1 } if %xchartl=2 xchartl 1 eq xchartl 3 eq or {1 1 1 setrgbcolor} if xa ya xd dup rec fill xchartl 1 eq xchartl 3 eq or {0 0 0 setrgbcolor /n n 1 add def /i1 i 1 add l 9 mul add def /j1 j 27 add def /j1$ tx1 j1 get def Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 625 3 div 2 mul add moveto n 9 le {(000) show} if n 10 ge n 99 le and {(00) show} if n 100 ge n 999 le and {(0) show} if n cvishow ( ) show }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa xd add 220 sub ya 625 3 div 2 mul add moveto } ifelse %Iolv_cmyn=0,1 j1$ show i1 9 le {(0) show} if i1 cvishow Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {r*x cvsshow3} if xchartl 3 eq colorm 0 eq and {r*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {r*x cvsshow3} if xchartl 3 eq colorm 1 eq and {r*xm cvsshow3} if xa ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {g*x cvsshow3} if xchartl 3 eq colorm 0 eq and {g*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {g*x cvsshow3} if xchartl 3 eq colorm 1 eq and {g*xm cvsshow3} if xa ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {b*x cvsshow3} if xchartl 3 eq colorm 0 eq and {b*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {b*x cvsshow3} if xchartl 3 eq colorm 1 eq and {b*xm cvsshow3} if }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa 05 add ya 625 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {c*x cvsshow3} if xchartl 3 eq colorm 0 eq and {c*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {c*x cvsshow3} if xchartl 3 eq colorm 1 eq and {c*xm cvsshow3} if xa 05 add ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {m*x cvsshow3} if xchartl 3 eq colorm 0 eq and {m*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {m*x cvsshow3} if xchartl 3 eq colorm 1 eq and {m*xm cvsshow3} if xa 05 add ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {y*x cvsshow3} if xchartl 3 eq colorm 0 eq and {y*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {y*x cvsshow3} if xchartl 3 eq colorm 1 eq and {y*xm cvsshow3} if xa 05 add ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {n*x cvsshow3} if xchartl 3 eq colorm 0 eq and {n*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {n*x cvsshow3} if xchartl 3 eq colorm 1 eq and {n*xm cvsshow3} if } ifelse %Iolv_cmyn=0,1 } if } for %i=0,7 } for %j=0,8 } for %end l=0,lmax %6wrgbcmy /n 971 /lmax 03 def %4 rows with geys /kmax 1 def %9 or 16 steps 0 1 kmax {/k exch def % k 0 eq {/jmax 08 def} {/jmax 15 def} ifelse 0 1 lmax {/l exch def %beg l=0,lmax /xadd 36 l add xs mul def /yadd k 9 xs mul mul def /j1 l 36 add def /j1$ tx1 j1 get def 0 1 jmax {/j exch def %j=0,08 /n n 1 add def /i1 j k 9 mul add 1 add def %9 steps, 16 steps /argb j jmax div def /xa xmin xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r*x argb def /g*x argb def /b*x argb def /c*x 1 r*x sub def /m*x 1 g*x sub def /y*x 1 b*x sub def /n*x 0 def %Start-transformation r*x g*x b*x setrgbcolor /r*xt o3*Fa def /g*xt l3*Fa def /b*xt v3*Fa def /c*xt c4*Fa def /m*xt m4*Fa def /y*xt y4*Fa def /n*xt n4*Fa def colorm 1 eq {%colorm=1 /r*xm MTL_rs def /g*xm MTL_gs def /b*xm MTL_bs def /c*xm MTL_cs def /m*xm MTL_ms def /y*xm MTL_ys def /n*xm MTL_ns def } if %colorm=1 %Output-Transformations xchartl 0 eq {%xchartl=0 l 0 eq {0 0 0 1 argb sub slcmykcolor} if l 1 eq {argb slgray} if l 2 eq {1 argb sub dup dup 0 slcmykcolor} if l 3 eq {argb dup dup slrgbcolor} if } if %xchartl=0 xchartl 2 eq {%xchartl=2 Iolv_cmyn 0 eq {%Iolv_cmyn=0 colorm 0 eq {r*xt g*xt b*xt slrgbcolor} {r*xm g*xm b*xm slrgbcolor} ifelse }%Iolv_cmyn=0 {%Iolv_cmyn=1 colorm 0 eq {c*xt m*xt y*xt n*xt slcmykcolor} {c*xm m*xm y*xm n*xm slcmykcolor} ifelse } ifelse %Iolv_cmyn=0,1 } if %xchartl=2 xchartl 1 eq xchartl 3 eq or {1 1 1 setrgbcolor} if xa ya xd dup rec fill xchartl 1 eq xchartl 3 eq or {0 0 0 setrgbcolor Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 625 3 div 2 mul add moveto n 9 le {(000) show} if n 10 ge n 99 le and {(00) show} if n 100 ge n 999 le and {(0) show} if n cvishow ( ) show }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa xd add 220 sub ya 625 3 div 2 mul add moveto } ifelse %Iolv_cmyn=0,1 j1$ show i1 9 le {(0) show} if i1 cvishow xchartl 1 eq {%xchartl=1 xa ya 425 3 div 2 mul add moveto l 0 eq l 2 eq or {(n*=) show 1 argb sub cvsshow3} if l 1 eq l 3 eq or {(w*=) show argb cvsshow3} if xa ya 225 3 div 2 mul add moveto l 0 eq {(000n*) show} if l 1 eq {(w*) show} if l 2 eq {(nnn0*) show} if l 3 eq {(www*) show} if xa ya 025 3 div 2 mul add moveto l 0 eq {(setcmyk) show} if l 1 eq {(setgray) show} if l 2 eq {(setcmyk) show} if l 3 eq {(setrgb) show} if }%xchartl=1 {%xchartl=3 Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 425 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {r*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {r*xm cvsshow3} if xa ya 225 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {g*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {g*xm cvsshow3} if xa ya 025 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {b*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {b*xm cvsshow3} if }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa 05 add ya 625 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {c*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {c*xm cvsshow3} if xa 05 add ya 425 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {m*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {m*xm cvsshow3} if xa 05 add ya 225 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {y*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {y*xm cvsshow3} if xa 05 add ya 025 3 div 2 mul add moveto xchartl 3 eq colorm 0 eq and {n*xt cvsshow3} if xchartl 3 eq colorm 1 eq and {n*xm cvsshow3} if } ifelse %Iolv_cmyn=0,1 }ifelse %xchartl=1,3 } if } for %j=0,jmax } for %l=0,lmax } for %k=0,kmax %basic colours 1072 - 1080 /basrgb 24 array def /basrgb [0 0 0 1 1 1 1 0 0 0 1 1 1 1 0 0 0 1 0 1 0 1 0 1 ] def /n 1071 def 0 1 7 {/i exch def %i=0,7 /n n 1 add def /i3 i 3 mul def /xadd 36 xs mul def /yadd 25 xs mul def i 0 eq {/l 0 def /j 0 def /j1$ (k) def /i1 26 def} if i 1 eq {/l 0 def /j 1 def /j1$ (k) def /i1 27 def} if i 2 eq {/l 1 def /j 0 def /j1$ (l) def /i1 26 def} if i 3 eq {/l 1 def /j 1 def /j1$ (l) def /i1 27 def} if i 4 eq {/l 2 def /j 0 def /j1$ (m) def /i1 26 def} if i 5 eq {/l 2 def /j 1 def /j1$ (m) def /i1 27 def} if i 6 eq {/l 3 def /j 0 def /j1$ (n) def /i1 26 def} if i 7 eq {/l 3 def /j 1 def /j1$ (n) def /i1 27 def} if /xa xmin xs l mul add xadd add xsd add def /ya ymax xs j mul sub yadd sub ysd add def /r basrgb i3 get def /g basrgb i3 1 add get def /b basrgb i3 2 add get def /r*x r def /g*x g def /b*x b def /c*x 1 r sub def /m*x 1 g sub def /y*x 1 b sub def /n*x 0 def %Start-transformation r*x g*x b*x setrgbcolor /r*xt o3*Fa def /g*xt l3*Fa def /b*xt v3*Fa def /c*xt c4*Fa def /m*xt m4*Fa def /y*xt y4*Fa def /n*xt n4*Fa def colorm 1 eq {%colorm=1 /r*xm MTL_rs def /g*xm MTL_gs def /b*xm MTL_bs def /c*xm MTL_cs def /m*xm MTL_ms def /y*xm MTL_ys def /n*xm MTL_ns def } if %colorm=1 %Output-Transformations xchartl 0 eq {%xchartl=0 r*x g*x b*x slrgbcolor } if %xchartl=0 xchartl 2 eq {%xchartl=2 Iolv_cmyn 0 eq {%Iolv_cmyn=0 colorm 0 eq {r*xt g*xt b*xt slrgbcolor} {r*xm g*xm b*xm slrgbcolor} ifelse }%Iolv_cmyn=0 {%Iolv_cmyn=1 colorm 0 eq {c*xt m*xt y*xt n*xt slcmykcolor} {c*xm m*xm y*xm n*xm slcmykcolor} ifelse } ifelse %Iolv_cmyn=0,1 } if %xchartl=2 xchartl 1 eq xchartl 3 eq or {1 1 1 setrgbcolor} if xa ya xd dup rec fill xchartl 1 eq xchartl 3 eq or {0 0 0 setrgbcolor Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 625 3 div 2 mul add moveto n 9 le {(000) show} if n 10 ge n 99 le and {(00) show} if n 100 ge n 999 le and {(0) show} if n cvishow ( ) show }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa xd add 220 sub ya 625 3 div 2 mul add moveto } ifelse %Iolv_cmyn=0,1 j1$ show i1 9 le {(0) show} if i1 cvishow Iolv_cmyn 0 eq {%Iolv_cmyn=0 xa ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {r*x cvsshow3} if xchartl 3 eq colorm 0 eq and {r*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {r*x cvsshow3} if xchartl 3 eq colorm 1 eq and {r*xm cvsshow3} if xa ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {g*x cvsshow3} if xchartl 3 eq colorm 0 eq and {g*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {g*x cvsshow3} if xchartl 3 eq colorm 1 eq and {g*xm cvsshow3} if xa ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {b*x cvsshow3} if xchartl 3 eq colorm 0 eq and {b*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {b*x cvsshow3} if xchartl 3 eq colorm 1 eq and {b*xm cvsshow3} if }%Iolv_cmyn=0 {%Iolv_cmyn=1 xa 05 add ya 625 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {c*x cvsshow3} if xchartl 3 eq colorm 0 eq and {c*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {c*x cvsshow3} if xchartl 3 eq colorm 1 eq and {c*xm cvsshow3} if xa 05 add ya 425 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {m*x cvsshow3} if xchartl 3 eq colorm 0 eq and {m*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {m*x cvsshow3} if xchartl 3 eq colorm 1 eq and {m*xm cvsshow3} if xa 05 add ya 225 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {y*x cvsshow3} if xchartl 3 eq colorm 0 eq and {y*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {y*x cvsshow3} if xchartl 3 eq colorm 1 eq and {y*xm cvsshow3} if xa 05 add ya 025 3 div 2 mul add moveto xchartl 1 eq colorm 0 eq and {n*x cvsshow3} if xchartl 3 eq colorm 0 eq and {n*xt cvsshow3} if xchartl 1 eq colorm 1 eq and {n*x cvsshow3} if xchartl 3 eq colorm 1 eq and {n*xm cvsshow3} if } ifelse %Iolv_cmyn=0,1 } if } for %i=0,7 showpage grestore %} for %xchartl=0,3 %} for %xcolorl=0,3 %%Trailer