%!PS-Adobe-3.0 EPSF-3.0 ggk10-7N %%BoundingBox: 70 82 770 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: farbe.li.tu-berlin.de/ggk1/ggk1.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:2024060112200) /ModDate (D:20240601112200) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 %Early binding, no sggray, sgcmykcolor, sgrgbcolor available in Y10M00ZEX6_R.PS /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_ColTrak*ioL {%BEG Procedure proc_ColTrak*ioL Colour transformation 201009001 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 trans_rgb3*_cmynl*ioL o3*Fa l3*Fa v3*Fa slrgbcolor } 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 trans_rgb3*_cmynl*ioL o3*Fa l3*Fa v3*Fa slrgbcolor } 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 trans_rgb3*_cmynl*ioL o3*Fa l3*Fa v3*Fa slrgbcolor } def }%END colorm=0 {%BEG colorm=1 } ifelse %END colorm=1 %******************************************************************* /proc_olv_ncw*ioL {%BEG Procedure proc_olv_ncw*ioL 20100901 %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 20100901 %******************************************************************* /trans_rgb3*_cmynl*ioL {%BEG Procedure trans_rgb3*_cmynl*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 %determine lab*cFa proc_olv_ncw*ioL %kk 0 1 2 3 4 5 6 7 /kx [1.00 0.95 0.90 0.85 0.80 0.75 0.70 0.65] def %lab*cFa 0 eq {/oa* o* kx mul def % /la* l* kx mul def % /va* v* kx mul def % } if %lab*cFa 1 eq {/oc* o* def % /lc* l* def % /vc* v* def % } if /o*c o* def %c=chromatic /l*c l* def /v*c v* def /o*a o*c kx kk get mul def %a=achromatic /l*a l*c kx kk get mul def /v*a v*c kx kk get mul def /o3*Fa o*a o*c o*a sub lab*cFa mul add def /l3*Fa l*a l*c l*a sub lab*cFa mul add def /v3*Fa v*a v*c v*a sub lab*cFa mul add def /c3*Fa 1 o3*Fa sub def /m3*Fa 1 l3*Fa sub def /y3*Fa 1 v3*Fa 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*_cmynl*ioL olv*->cmy0* } bind def %BEG Procedure proc_ColTrak*ioL Colour transformation 20100901 %******************************************************************* %%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 0 def /lanind2 0 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 /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf 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 0 def} ifelse /xchartf where {pop /xchartx xchartf def} {/xchartx 0 def} ifelse /colormg where {pop /colorm colormg def} {/colorm 0 def} ifelse 72 90 translate /xchartk xchartx def %00 1 15 {/xchartk exch def /kk xchartk 2 idiv def /nk xchartk xchartk 2 idiv 2 mul sub def /xchartl nk 2 add def /Iolv_cmyn 0 def /olvtrans 0 def gsave colorm 1 eq {proc_ColTrak*ioG} {proc_ColTrak*ioL} ifelse /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 7 /Times-ISOL1 FS 12 -6 moveto (ggk10-7N, ) show xchartk 1 add cvishow (/16) show 0.01 MM 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 20 setlinewidth 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath fill 0 setgray 0 0 moveto 24500 0 rlineto 0 17000 rlineto 24500 neg 0 rlineto closepath stroke 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 %xchartk=0,15 %%Trailer