%!PS-Adobe-3.0 EPSF-3.0 http://farbe.li.tu-berlin.de/AEW9/AEW90-3A 20200701
%%BoundingBox: 70 85 240 206
%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/AEW9/AEW9.HTM)
/Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1)
/Subject (goto: http://farbe.li.tu-berlin.de http://130.149.60.45/~farbmetrik)
/Keywords (image reproduction, colour devices)
/Creator (klaus.richter@mac.com)
/CreationDate (D:2020070112000)
/ModDate (D:2020070112000)
/DOCINFO pdfmark07
[ /View [ /Fit ]
/DOCVIEW pdfmark07
%END PDFDE011
%BEG AEW9 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301
%BEG 1MR-0000F.TXT, 1MR & relative gamma change 200301
/gammaFi 15 array def
/gammaFi %rel. gamma according to ISO 9241-306:2018
[0.475 0.550 0.625 0.700 0.775 0.849 0.924 1.000
1.081 1.176 1.290 1.428 1.600 1.818 2.105] def
/1MR-0000F {%BEG procedure 1MR-0000F
/FF_LM_setgrayF0 {setgray} bind def
/FF_LM_setrgbcolorF0 {setrgbcolor} bind def
/FF_LM_setcmykcolorF0 {setcmykcolor} bind def
/FF_LM_transferF0 {settransfer} bind def
/FF_LM_colortransferF0 {setcolortransfer} bind def
/FF_LM_xchartg_gammaF {gammaFi xchart get exp} def
/FF_LM_setrgbcolorF {%BEG FF_LM_setrgbcolorF
/FF_LM_b0L exch def /FF_LM_g0L exch def
/FF_LM_r0L exch def
FF_LM_r0L 0 le {/FF_LM_r0L 0.0001 def} if
FF_LM_g0L 0 le {/FF_LM_g0L 0.0001 def} if
FF_LM_b0L 0 le {/FF_LM_b0L 0.0001 def} if
/FF_LM_r1F FF_LM_r0L FF_LM_xchartg_gammaF def
/FF_LM_g1F FF_LM_g0L FF_LM_xchartg_gammaF def
/FF_LM_b1F FF_LM_b0L FF_LM_xchartg_gammaF def
FF_LM_r1F FF_LM_g1F FF_LM_b1F
FF_LM_setrgbcolorF0} def %END FF_LM_setrgbcolorF
/setgray {%BEG procedure setgrayF
dup dup FF_LM_setrgbcolorF
%STOPs
} def %END procedure setgrayF
%part2
/setcmykcolor {%BEG procedure setcmykcolorF
/FF_LM_k exch def /FF_LM_y exch def
/FF_LM_m exch def /FF_LM_c exch def
FF_LM_k 0 eq {1 FF_LM_c sub 1 FF_LM_m sub
1 FF_LM_y sub FF_LM_setrgbcolorF}
{1 FF_LM_k sub dup dup
FF_LM_setrgbcolorF} ifelse
%STOPc
} def %END procedure setcmykcolorF
/setrgbcolor {%BEG procedure setrgbcolorF
/FF_LM_b exch def /FF_LM_g exch def
/FF_LM_r exch def
FF_LM_r FF_LM_g FF_LM_b
FF_LM_setrgbcolorF
%STOPr
} def %BEG procedure setrgbcolorF
/FF_LM_transferF {%BEG FF_LM_transferF
{FF_LM_xchartg_gammaF}
FF_LM_transferF0} def %END FF_LM_transferF
/settransfer {FF_LM_transferF} def
/FF_LM_colortransferF {%BEG FF_LM_colortransferF
{FF_LM_xchartg_gammaF} {FF_LM_xchartg_gammaF}
{FF_LM_xchartg_gammaF}
FF_LM_colortransferF0} def
%END FF_LM_colortransferF
/setcolortransfer {FF_LM_colortransferF} def
} def %END procedure 1MR-0000F
/iproc1MR 1 def
%/1MR-0000G where {pop 1MR-0000G}{1MR-0000F} ifelse
iproc1MR 1 eq {1MR-0000F} if
%1MR-0000G
%END 1MR-0000F.TXT, 1MR & relative gamma change 200301
%END AEW9 EARLY BINDING IMAGE FILE (G) 1MR-0000F 200301
%******************************************************************
/xchart1f 07 def /xchart2f 07 def /xchartdf 01 def /xchartmf 08 def
/xchartf xchart1f def
%******************************************************************
/FS {findfont exch scalefont setfont} bind def
/MM {72 25.4 div mul} def /str {8 string } bind def
/A4querL {598 0 translate 90 rotate} 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 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
/tgv {0 0 1 setrgbcolor} 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
/colrecfi %x y width heigth c m y k
{setcmykcolor rec fill} bind def
/colrecst %x y width heigth c m y k
{setcmykcolor rec stroke} bind def
/cviht {dup 0 ge {0.49 add}{0.49 sub} ifelse cvi} def
/cvishow {dup 0 ge {0.5 add} {0.5 sub} ifelse
cvi 6 string cvs show} def
/cvsshow1 {dup 0 ge {0.05 add} {0.05 sub} ifelse
10 mul cvi 0.1 mul 7 string cvs show} def
/cvsshow2 {dup 0 ge {0.005 add} {0.005 sub} ifelse
100 mul cvi 0.01 mul 7 string cvs show} def
/cvsshow3 {dup 0 ge {0.0005 add} {0.0005 sub} ifelse
1000 mul cvi 0.001 mul 7 string cvs show} def
%/cvishow {cvi 6 string cvs show} def
%/cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show ( ) show} def
%/cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show ( ) show} def
%/cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show ( ) show} def
/cvsshow1g {/nxx exch def %example nxx=99.1/99.0
nxx 10 mul cvi /nxi exch def %nxi=991/990
nxi 10 idiv /nxa exch def %nxa=99
nxi nxa 10 mul sub /nxb exch def %nxb=1/0
nxa cvishow (,) show %nxa=99
nxb cvishow %nxb=1/0
} def
/cvsshow2g {/nxx exch def %example nxx=99.12/99,02/99,00
nxx 100 mul cvi /nxi exch def %nxi=9912/9902/00
nxi 100 idiv /nxa exch def %nxa=99
nxi nxa 100 mul sub /nxb exch def %nxb=12/02/00
nxa cvishow (,) show %nxb=99,
nxb 10 ge {nxb cvishow} if %nxb=12
nxb 1 ge
nxb 9 le and {(0) show nxb cvishow} if %nxb=02
nxb 0 eq {(00) show} if %nxb=00
} def
/cvsshow3g {/nxx exch def %example nxx=99.123/99.012/99.001/99.000
nxx 1000 mul cvi /nxi exch def %nxi=99123/99012/99001/99000
nxi 1000 idiv /nxa exch def %nxa=99
nxi nxa 1000 mul sub /nxb exch def %nxb=123/012/001/000
nxa cvishow (,) show %nxb=99,
nxb 100 ge {nxb cvishow} if %nxb=123/012/001/000
nxb 10 ge
nxb 99 le and {(0) show nxb cvishow} if %nxb=012
nxb 1 ge
nxb 9 le and {(00) show nxb cvishow} if %nxb=001
nxb 0 eq {(000) show} if %nxb=000
} def
%*******************************************************************
%%EndProlog
gsave
/lanind 1 def
/lantex [(G) (E) (S) (F) (I) (J) (M)] def
/showde {0 lanind eq {show} {pop} ifelse} bind def
/showen {1 lanind eq {show} {pop} ifelse} bind def
/showfr {2 lanind eq {show} {pop} ifelse} bind def
/showes {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
/showea {1 lanind le {show} {pop} ifelse} bind def
/showm {6 lanind eq {show} {pop} ifelse} bind 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
/lanind1 1 def /lanind2 1 def /lanindd 01 def /lanindm 01 def
/colorm1 00 def /colorm2 00 def /colormd 01 def /colormm 01 def
/deintp1 00 def /deintp2 00 def /deintpd 01 def /deintpm 01 def
/xcolor1 00 def /xcolor2 00 def /xcolord 01 def /xcolorm 01 def
/xchart1 07 def /xchart2 07 def /xchartd 01 def /xchartm 01 def
/pchart1 00 def /pchart2 00 def /pchartd 01 def /pchartm 03 def
/colsep1 00 def /colsep2 00 def /colsepd 01 def /colsepm 01 def
/pmetam1 00 def /pmetam2 00 def /pmetamd 01 def /pmetamm 01 def
/xchart3 00 def %free
/xchart4 00 def %test charts ISO/IEC 3, 2, 4; CIE R8-09 G, O, H
/xchart5 00 def %free
/lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def
/lanindd laninddf def /lanindm lanindmf def} if
/colormf where {pop /colorm1 colormf def /colorm2 colormf def
/colormd colormdf def /colormm colormmf def} if
/deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def
/deintpd deintpdf def /deintpm deintpmf def} if
/xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def
/xcolord xcolordf def /xcolorm xcolormf def} if
/xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def
/xchartd xchartdf def /xchartm xchartmf def} if
/xchart3f where {pop /xchart3 xchart3f def} if
/xchart4f where {pop /xchart4 xchart4f def} if
/xchart5f where {pop /xchart5 xchart5f def} if
/pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def
/pchartd pchartdf def /pchartm pchartmf def} if
/colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def
/colsepd colsepdf def /colsepm colsepmf def} if
/pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def
/pmetamd pmetamdf def /pmetamm pmetamf def} if
/lanind lanind1 def %
/colorm colorm1 def %
/deintp deintp1 def %
/xcolor xcolor1 def %
/xchart xchart1 def %
/pchart pchart1 def %
/colsep colsep1 def %
/pmetam pmetam1 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
%A4querL
/xcharx 0 def %fix page 1 of test chart
/colorml colorm def
%0 1 1 {/colorml exch def %colorml=0,1
/xcolorl xcolor def
%0 1 3 {/xcolorl exch def %xcolorl=0,3
/xchartl 2 def
%0 1 7 {/xchartl exch def %xchartl=0,7
/pchartl pchart def
%0 1 2 {/pchartl exch def %pchartl=0,2
colorml 0 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 0 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
colorml 1 eq deintp 0 eq and {/TxS () def /Txx (dd) def /Fxx (d) def} if
colorml 1 eq deintp 1 eq and {/TxS () def /Txx (de) def /Fxx (e) def} if
%xchart 0 eq {/Txx (-) def /Fxx (-) def} if
%gsave
%STOP1
%pchartl 0 eq {%pchartl=0 Y10-7N_AL49_JSO_1P1S.EPS
/TK {200 /Times-ISOL1 FS} bind def
/TS {200 /Times-ISOL1 FS} bind def
%***********************************************************************************
72 90 translate
%gsave
0.01 MM dup scale
20 setlinewidth
%0 0 24600 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey
%0 0 24600 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz
TK
0 setgray
/xbtex0 1 def
xbtex0 1 eq {%xbtex0=1
120 /Times-ISOL1 FS
050 -100 moveto
%(AEW90-7) show (A) show %A
%xchart 1 add cvishow
} if %xbtex0=1
%STOP2
/kchartl 0 def
/xchartl 2 def
%0 1 01 {/kchartl exch def %kchartl=0,01
/ktrans 12480 kchartl mul def
%0 1 07 {/xchartl exch def %xchartl=0,07
/xchart 7 def %for Gamma change
20 setlinewidth
% xchartl 0 eq { 100 ktrans add 13000 translate} if
% xchartl 1 eq { 6150 ktrans add 13000 translate} if
% xchartl 2 eq { 100 ktrans add 08740 translate} if
% xchartl 3 eq { 6150 ktrans add 08740 translate} if
% xchartl 4 eq { 100 ktrans add 04480 translate} if
% xchartl 5 eq { 6150 ktrans add 04480 translate} if
% xchartl 6 eq { 100 ktrans add 00220 translate} if
% xchartl 7 eq { 6150 ktrans add 00220 translate} if
0 setgray
120 /Times-ISOL1 FS
050 -100 moveto
kchartl 0 eq {(AEW90-) show}{(AEW91-) show} ifelse
xchartl 1 add cvishow
(A) show %A
/ioutg 1 def
ioutg 1 eq {%ioutg=1
/kheigh 120 def
/kheigk 100 def
/TIKN {kheigh /Times-ISOL1 FS} bind def
/TIKI {kheigh /TimesI-ISOL1 FS} bind def
/RIKN {kheigh /Times-Roman FS} bind def
/TIKK {kheigk /Times-ISOL1 FS} bind def
TIKN
(, Gamma ) showde
(, gamma ) showen
TIKI
(g) show
TIKK 0 -25 rmoveto (a) show 0 25 rmoveto
TIKN
(=) show
gammaFi xchart get 2.4 mul cvsshow3g (, ) show
TIKI
(g) show
0 -25 rmoveto TIKK (P) show 0 25 rmoveto
TIKN
(=) show
gammaFi xchart get cvsshow3g (, ) show
TIKI
(C) show
/xchartP xchart 1 add def
TIKK 0 -25 rmoveto (YP) show xchartP cvishow 0 25 rmoveto
xchartP 8 ge {%xchartP>=8
TIKN (=) show
TIKI (C) show
TIKK 0 -25 rmoveto (YN) show 8 xchartP 8 sub sub
cvishow 0 25 rmoveto
} if %xchartP>=8
} if %ioutg=1
30 setlinewidth
[ ] 0 setdash
%0.0 0.0 0.0 0.5 setcmykcolor
1 1 0 setrgbcolor
0 0 moveto 5400 0 rlineto 0 4000 rlineto -5400 0 rlineto
closepath fill
0 setgray
150 /Times-ISOL1 FS
gsave %start because of clip
0.084 MM dup scale
40 setlinewidth
/ymax1 16900 def
/xmax1 24600 def
0.5 setgray
0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath fill
0 setgray
0 0 moveto xmax1 0 rlineto 0 ymax1 rlineto xmax1 neg 0 rlineto
closepath stroke
/fakt 1 def
/iyt 32 fakt mul def %text size
/iyd 35 fakt mul def %line difference
xcharx 1 le {%xcharx<=1
} if %xcharx<=1
/xs 900 3 div 2 mul def /ys xs def /d2 xs 2 div def /d8 xs 8 div def
/xmin 650 3 div 2.2 mul def
/ymax 15800 def
%xcharx 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
/xd 900 3 div 2 mul def /yd 900 3 div 2 mul def
/xsd xs xd sub 0.5 mul def
/ysd xs xd sub 0.5 mul def
/xd2 xd 0.50 mul def
/xd4 xd 0.25 mul def
20 setlinewidth
500 3 div 2 mul /Times-ISOL1 FS
1 setgray
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
%( # ) show
0 setgray
/RGB*R0 1080 array def
/RGB*G0 1080 array def
/RGB*B0 1080 array def
/rgbcmyk 10000 array def %8640=8*1080: n rgb, cmyk
/n00 -1 def
TS
/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
/n1079 i j 9 mul add k 81 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
RGB*R0 n1079 r put
RGB*G0 n1079 g put
RGB*B0 n1079 b put
xcharx 0 eq {%xcharx=0
r g b setrgbcolor
xa ya xd dup rec fill
1 r sub 1 g sub 1 b sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r g b setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} 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
/n1079 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
/xcharxj 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
xcharxj 0 eq {/r argb def /g brgb def /b brgb def} if
xcharxj 1 eq {/r argb def /g argb def /b brgb def} if
xcharxj 2 eq {/r brgb def /g argb def /b brgb def} if
xcharxj 3 eq {/r brgb def /g argb def /b argb def} if
xcharxj 4 eq {/r brgb def /g brgb def /b argb def} if
xcharxj 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
/n1079 n1079 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 xmin xs j mul add xadd add xsd add def
/ya ymax xs i mul sub yadd sub ysd add def
xcharx 0 eq {%xcharx=0
r g b setrgbcolor
xa ya xd dup rec fill
1 r sub 1 g sub 1 b sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r g b setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} for %i=0,7
} for %j=0,8
} for %end l=0,lmax
%6wrgbcmy
/n1079 971 def
/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
xcharx 0 eq {%xcharx=0
l 0 eq {0 0 0 1 r sub setcmykcolor} if
l 1 eq {r setgray} if
l 2 eq {1 r sub 1 g sub 1 b sub 0 setcmykcolor} if
l 3 eq {r g b setrgbcolor} if
xa ya xd dup rec fill
1 r sub 1 g sub 1 b sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r g b setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} 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
xcharx 0 eq {%xcharx=0
r g b setrgbcolor
xa ya xd dup rec fill
1 r sub 1 g sub 1 b sub 0 setcmykcolor
xa xd4 add ya xd4 add xd2 dup rec fill
} if %xcharx=0
xcharx 1 eq {%xcharx=1
r g b setrgbcolor
xa ya xd dup rec fill
} if %xcharx=1
} for %i=0,7
xchart 4 eq
xchart 7 eq or {%xchart=4 or 7
150 setlinewidth
1 0 0 setrgbcolor
/xtransr 0100 def
/ytransr 0650 def
/xwdtr 24600 xtransr 2 mul add def
/ywdtr ymax1 ytransr add xtransr add def
xchart 4 eq {[400] 400 setdash} if
xtransr neg ytransr neg moveto xwdtr 0 rlineto 0 ywdtr rlineto xwdtr neg 0 rlineto
closepath stroke
xchart 4 eq {[ ] 0 setdash} if
} if %xchart=4 or 7
grestore %end because of clip
% xchartl 0 eq { 100 ktrans add neg 13000 neg translate} if
% xchartl 1 eq { 6150 ktrans add neg 13000 neg translate} if
% xchartl 2 eq { 100 ktrans add neg 08740 neg translate} if
% xchartl 3 eq { 6150 ktrans add neg 08740 neg translate} if
% xchartl 4 eq { 100 ktrans add neg 04480 neg translate} if
% xchartl 5 eq { 6150 ktrans add neg 04480 neg translate} if
% xchartl 6 eq { 100 ktrans add neg 00220 neg translate} if
% xchartl 7 eq { 6150 ktrans add neg 00220 neg translate} if
%} for %xchartl=0,07
%} for %kchartl=0,01
showpage
grestore
%} for %output with langind end
%%Trailer