%!PS-Adobe-3.0 EPSF-3.0 fev90-7n %%BoundingBox: 70 82 842 622 %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/fev9/fev9.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:2024040112200) /ModDate (D:20240401112200) /DOCINFO pdfmark07 [ /View [ /Fit ] /DOCVIEW pdfmark07 %END PDFDE011 /halfg where {pop /half halfg def} {/half 0 def} ifelse /VisTol*ioL 1.00 def %Early Binding: needed for colour separation /setcmykcolorL {setcmykcolor} bind def /setgrayL {setgray} bind def /setrgbcolorL {setrgbcolor} bind def %/setcmykcolorG where {pop /setcmykcolorL setcmykcolorG def} if %/setgrayG where {pop /setgrayL setgrayG def} if %/setrgbcolorG where {pop /setrgbcolorL setcmykcolorG def} if /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 /CBKKK {160 /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 %********************************************************************* /setcmyknewL { %Ersatz setcolornewL durch setgray ausz 4 eq {pop pop pop /ccolor exch def 1 ccolor sub setgrayL} if %C-unbunt ausz 5 eq {pop pop /mcolor exch def pop 1 mcolor sub setgrayL} if %M-unbunt ausz 6 eq {pop /ycolor exch def pop pop 1 ycolor sub setgrayL} if %Y-unbunt ausz 7 eq {/ncolor exch def pop pop pop 1 ncolor sub setgrayL} if %N-unbunt ausz 8 eq {setcmykcolorL} if %F-bunt } bind def %END Procedure setcmyknewL %********************************************************************* %%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 0 def /colorm2 0 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 /cvishow255 {dup 99 le {(0) show} if dup 9 le {(0) show} if cvishow ( ) show} def /n1079show {n1079 9 le {(000) show} if n1079 10 ge n1079 99 le and {(00) show} if n1079 100 ge n1079 999 le and {(0) show} if n1079 cvishow } 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 /xchartg where {pop /xchartx xchartg def} {/xchartx 0 def} ifelse 72 90 translate /xchartk xchartx def /colorm 0 def /colormf where {pop /colorm colormf def} if %0 1 10 {/xchartk exch def %xchartk=0,10 xchartk 0 eq {/ausz 8 def /xchartt (A) def} if xchartk 1 eq {/ausz 8 def /xchartt (F) def} if xchartk 2 eq {/ausz 8 def /xchartt (F) def} if xchartk 3 eq {/ausz 8 def /xchartt (F) def} if xchartk 4 eq {/ausz 8 def /xchartt (F) def} if xchartk 5 eq {/ausz 8 def /xchartt (F) def} if xchartk 6 eq {/ausz 8 def /xchartt (F) def} if xchartk 7 eq {/ausz 4 def /xchartt (C) def} if xchartk 8 ge {/ausz 5 def /xchartt (M) def} if xchartk 9 eq {/ausz 6 def /xchartt (Y) def} if xchartk 10 ge {/ausz 7 def /xchartt (N) def} if gsave /xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def 7 /Times-ISOL1 FS 0 0 0 setrgbcolor 2 -6 moveto (fev90-7) show (n, ) show xchartk 1 add cvishow (/11, ) show (Test chart O with 40x27=1080 colours) showen (Pr\374fvorlage O 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 colorm 0 eq {%colorm=0 xchartk 0 eq {( rgb + cmy0 (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if xchartk 1 eq {( rgb (A_j + k26_n27)) show (, 000n (k), w (l), nnn0 (m), www (n)) show} if xchartk 2 eq {( rgb (A_n)) show} if xchartk 3 eq {( rgb (A_n)) show} if xchartk 4 eq {( rgb[8bit] (A_n)) show} if xchartk 5 eq {( cmy0 (A_n)) show} if xchartk 6 eq {( cmy0 (A_n)) show} if xchartk 7 eq {( c (A_n)) show} if xchartk 8 eq {( m (A_n)) show} if xchartk 9 eq {( y (A_n)) show} if xchartk 10 eq {( n (A_n)) show} if }%colorm=0 {%colorm=1 xchartk 0 eq {( rgb'* (A_n)) show} if xchartk 1 eq {( rgb'* (A_j + k26_n27)) show (, 000n'* (k), w'* (l), nnn0'* (m), www'* (n)) show} if xchartk 2 eq {( rgb'* (A_n)) show} if xchartk 3 eq {( rgb'* (A_n)) show} if xchartk 4 eq {( rgb'*[8bit] (A_n)) show} if xchartk 5 eq {( cmy0'* (A_n)) show} if xchartk 6 eq {( cmy0'* (A_n)) show} if xchartk 7 eq {( c'* (A_n)) show} if xchartk 8 eq {( m'* (A_n)) show} if xchartk 9 eq {( y'* (A_n)) show} if xchartk 10 eq {( n'* (A_n)) show} if }ifelse %colorm=1 (, colorm = ) show colorm cvishow (, separation = ) show xchartt show colorm 1 eq {(, cmy0*) show} if /xchartg where {pop /faktg xchartg 1 ge {1.10} {1.00} ifelse def} {/faktg 1.10 def} ifelse 0.01 MM faktg mul dup scale /xmin 650 3 div 2.2 mul def /ymax 15800 def xchartk 0 eq {/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 /o'*Fa 0.5 def /l'*Fa 0.5 def /v'*Fa 0.5 def /c*x 1 o'*Fa sub def /m*x 1 l'*Fa sub def /y*x 1 v'*Fa sub def /n*x 0 def o'*Fa l'*Fa v'*Fa setrgbcolor 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 %CBK %3x rgb_cmy /xss 600 def /yss xss def /xmins 650 3 div 2.2 mul def /ymaxs 15800 def /xds 600 def /xsd xss xds sub 0.5 mul def /ysd xss xds sub 0.5 mul def /TKK2 {200 3 div 2 mul /Times-ISOL1 FS} bind def TKK2 0 1 3 {/kx exch def %kx=0,3 /id 1 8 div def /rijn 81 array def %for intermediate storage /gijn 81 array def /bijn 81 array def /lmax 2 def /kx025 kx 0.25 mul def /n kx 243 mul 1 sub def 0 1 lmax {/l exch def %beg k=0,kmax /xadd kx xss 9 mul mul def /yadd l yss 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 argb brgb sub kx025 mul add def /b brgb def} if xchartj 1 eq {/r argb brgb argb sub kx025 mul add def /g argb def /b brgb def} if xchartj 2 eq {/r brgb def /g argb def /b brgb argb brgb sub kx025 mul add def} if xchartj 3 eq {/r brgb def /g argb brgb argb sub kx025 mul add def /b argb def} if xchartj 4 eq {/r brgb argb brgb sub kx025 mul add def /g brgb def /b argb def} if xchartj 5 eq {/r argb def /g brgb def /b argb brgb argb sub kx025 mul add 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 /k0 kx 4 idiv def /k1 kx k0 4 mul sub def %for output of l=0,lmax 0 1 08 {/j exch def %j=0,8 0 1 08 {/i exch def %i=0,8 /n1079 j 9 mul i add kx 81 mul add l 324 mul add def /j1 k1 9 mul j add def /j1$ tx1 j1 get def /i1 k0 9 mul i add l 9 mul add 1 add def /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 xmins xss j mul add xadd add xsd add def /ya ymaxs xss i mul sub yadd sub ysd add def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r*eF def /l'*Faa g*eF def /v'*Faa b*eF def } ifelse %colorm=0,1 xchartk 1 eq xchartk 3 eq or xchartk 4 eq or xchartk 6 eq or {%xchartk=1,3,4,6 or #1,3,4,6 1 1 1 setrgbcolor xa ya xd dup rec fill} %xchart=1,3,4,6 {%xchartk=0,2,5,7,8,9,10 xchartk 4 le {%xchartk<=4,>4 %only 0,2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } %only 0,2 { %only 5,7,8,9,10 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmyknewL xa ya xd dup rec fill } ifelse %xchartk<=4,>5 xchartk 0 eq {%xchartk=0 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmykcolor xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill } if %xchartk=0 } ifelse %xchartk=1,3,4,6 or =0,2,5,7,8,9,10 xchartk 1 eq {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 xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } if xchartk 2 eq {%xchart=2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } if %xchart=2 xchartk 3 eq {%xchart=3 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa cvsshow2 xa ya 290 add moveto l'*Faa cvsshow2 xa ya 150 add moveto v'*Faa cvsshow2 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=3 xchartk 4 eq {%xchart=4 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa 255 mul cvishow255 xa ya 290 add moveto l'*Faa 255 mul cvishow255 xa ya 150 add moveto v'*Faa 255 mul cvishow255 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=4 xchartk 6 eq {%xchart=6 0 0 0 setrgbcolor CBKK xa ya 450 add moveto 1 o'*Faa sub cvsshow2 xa ya 290 add moveto 1 l'*Faa sub cvsshow2 xa ya 150 add moveto 1 v'*Faa sub cvsshow2 xa ya 010 add moveto 0 cvsshow2 TKK2 } if %xchart=6 } for %i=0,7 } for %j=0,8 } for %end l=0,lmax } for %kx=0,3 %6wrgbcmy /n1079 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 /n1079 n1079 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 argb def /g argb def /b argb def colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r*eF def /l'*Faa g*eF def /v'*Faa b*eF def } ifelse %colorm=0,1 xchartk 1 eq xchartk 3 eq or xchartk 4 eq or xchartk 6 eq or {%xchartk=1,3,4,6 or #1,3,4,6 1 1 1 setrgbcolor xa ya xd dup rec fill} %xchart=1,3,4,6 {%xchartk=0,2,5,7,8,9,10 xchartk 4 le {%xchartk<=4,>4 %only 0,2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } %only 0,2 { %only 5,7,8,9,10 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmyknewL xa ya xd dup rec fill } ifelse %xchartk<=4,>5 xchartk 0 eq {%xchartk=0 %special color to 000n, w, cmy0, rgb l 0 eq {0 0 0 1 argb sub setcmykcolor} if l 1 eq {argb setgray} if l 2 eq {1 argb sub dup dup 0 setcmykcolor} if l 3 eq {argb dup dup setrgbcolor} if xa ya xd dup rec fill } if %xchartk=0 } ifelse %xchartk=1,3,4,6 or =0,2,5,7,8,9,10 xchartk 1 eq {%xchartk =1 0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow colorm 0 eq {%colorm=0,1 xa ya 320 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 180 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 040 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 }%colorm=0 {%colorm=1 xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } ifelse %colorm=0,1 } if %xchartk =1 xchartk 2 eq {%xchart=2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } if %xchart=2 xchartk 3 eq {%xchart=3 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa cvsshow2 xa ya 290 add moveto l'*Faa cvsshow2 xa ya 150 add moveto v'*Faa cvsshow2 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=3 xchartk 4 eq {%xchart=4 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa 255 mul cvishow255 xa ya 290 add moveto l'*Faa 255 mul cvishow255 xa ya 150 add moveto v'*Faa 255 mul cvishow255 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=4 xchartk 6 eq {%xchart=6 0 0 0 setrgbcolor CBKK xa ya 450 add moveto 1 o'*Faa sub cvsshow2 xa ya 290 add moveto 1 l'*Faa sub cvsshow2 xa ya 150 add moveto 1 v'*Faa sub cvsshow2 xa ya 010 add moveto 0 cvsshow2 TKK2 } if %xchart=6 } 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 /n1079 1071 def 0 1 07 {/i exch def %i=0,7 /n1079 n1079 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 colorm 0 eq {%colorm=0,1 /o'*Faa r def %for standard output /l'*Faa g def /v'*Faa b def } {r g b setrgbcolor %special default instead of 000n, w, cmyn, rgb /o'*Faa r*eF def /l'*Faa g*eF def /v'*Faa b*eF def } ifelse %colorm=0,1 xchartk 1 eq xchartk 3 eq or xchartk 4 eq or xchartk 6 eq or {%xchartk=1,3,4,6 or #1,3,4,6 1 1 1 setrgbcolor xa ya xd dup rec fill} %xchart=1,3,4,6 {%xchartk=0,2,5,7,8,9,10 xchartk 4 le {%xchartk<=4,>4 %only 0,2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } %only 0,2 { %only 5,7,8,9,10 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmyknewL xa ya xd dup rec fill } ifelse %xchartk<=4,>5 xchartk 0 eq {%xchartk=0 1 o'*Faa sub 1 l'*Faa sub 1 v'*Faa sub 0 setcmykcolor xa xd 0.25 mul add ya xd 0.25 mul add xd 0.5 mul dup rec fill } if %xchartk=0 } ifelse %xchartk=1,3,4,6 or =0,2,5,7,8,9,10 xchartk 1 eq {0 0 0 setrgbcolor xa ya 460 add moveto n1079show ( ) show j1$ show i1 9 le {(0) show} if i1 cvishow xa ya 320 add moveto o'*Faa cvsshow3 xa ya 180 add moveto l'*Faa cvsshow3 xa ya 040 add moveto v'*Faa cvsshow3 } if xchartk 2 eq {%xchart=2 o'*Faa l'*Faa v'*Faa setrgbcolor xa ya xd dup rec fill } if %xchart=2 xchartk 3 eq {%xchart=3 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa cvsshow2 xa ya 290 add moveto l'*Faa cvsshow2 xa ya 150 add moveto v'*Faa cvsshow2 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=3 xchartk 4 eq {%xchart=4 0 0 0 setrgbcolor CBKK xa ya 450 add moveto o'*Faa 255 mul cvishow255 xa ya 290 add moveto l'*Faa 255 mul cvishow255 xa ya 150 add moveto v'*Faa 255 mul cvishow255 xa ya 010 add moveto CBKKK (%) show n1079show (#) show TKK2 } if %xchart=4 xchartk 6 eq {%xchart=6 0 0 0 setrgbcolor CBKK xa ya 450 add moveto 1 o'*Faa sub cvsshow2 xa ya 290 add moveto 1 l'*Faa sub cvsshow2 xa ya 150 add moveto 1 v'*Faa sub cvsshow2 xa ya 010 add moveto 0 cvsshow2 TKK2 } if %xchart=6 } for %i=0,7 xchartk 1 eq xchartk 3 eq or xchartk 4 eq or xchartk 6 eq or {%xchartk=1,3,4,6 40 setlinewidth xchartk 4 le {1 0 0 setrgbcolor} {0 1 1 0 setcmykcolor} ifelse xmin 30 sub xsd add 09 xs mul add ysd moveto 0 17000 ysd sub rlineto stroke xmin 30 sub xsd add 18 xs mul add ysd moveto 0 17000 rlineto stroke xmin 30 sub xsd add 27 xs mul add ysd moveto 0 17000 rlineto stroke xmin 30 sub xsd add 36 xs mul add ysd moveto 0 17000 rlineto stroke 0 16370 09 ys mul sub moveto 24500 00 ys mul sub 0 rlineto stroke 0 16370 18 ys mul sub moveto 24500 04 ys mul sub 0 rlineto stroke xmin 30 sub xsd add 36 xs mul add 16370 25 ys mul sub moveto 04 ys mul 0 rlineto stroke } if %xchartk=1,3,4,6 showpage grestore %} for %xchartk=0,10 %%Trailer