%!PS-Adobe-3.0 EPSF-3.0 WG080-7N.EPS %%BoundingBox: 70 83 800 580 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/WG08/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.45/~farbmetrik) /Keywords (image reproduction, colour devices, colour vision) /Creator (klaus.richter@mac.com) /CreationDate (D:2015040112000) /ModDate (D:2015040112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def %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 /TBGG {500 /TimesBI-ISOL1 FS} bind def /TBIK {250 /TimesBI-ISOL1 FS} bind def /TBIM {300 /TimesBI-ISOL1 FS} bind def /TBIG {350 /TimesBI-ISOL1 FS} bind def /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 /ibshownG {TBM -50 -50 rmoveto show 0 50 rmoveto TBG} bind def /ibshow0G {TBM -00 -50 rmoveto show 0 50 rmoveto TBG} bind def /ishownG {TM -50 -50 rmoveto show 0 50 rmoveto TG } bind def /ishow0G {TM -00 -50 rmoveto show 0 50 rmoveto TG } bind def /ibshownM {TBK -50 -50 rmoveto show 0 50 rmoveto TBM} bind def /ibshow0M {TBK -00 -50 rmoveto show 0 50 rmoveto TBM} bind def /ishownM {TK -50 -50 rmoveto show 0 50 rmoveto TM } bind def /ishow0M {TK -00 -50 rmoveto show 0 50 rmoveto TM } 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 %******************************************************************* %%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 /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 0 def /lanind2 0 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 0 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 57 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def} if %colorm=1, deintp=1 xchart xchart3 lt {/Txx (-) def} if %always independent of intended output gsave %LANINDL2 END /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 /cvishowr {0.4 add 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 /cvsshow3r {1000 mul 0.4 add cvi 0.001 mul 7 string cvs show} def /cvi3show {/ix exch def /ixt ix 0.4 add def %round ix 1000 ge {/ixt ix 1000 sub def} if ixt 0 eq ixt 1000 eq or {(000) show} if ixt 0 gt ixt 9 le and {(00) show ixt cvishow} if ixt 10 ge ixt 99 le and {(0) show ixt cvishow} if ixt 100 ge ixt 999 le and {ixt cvishow} if } def /nr1 57 array def /tc1 57 array def /nr1 [(01) (02) (03) (04) (05) (06) (07) (08) %R00Y-R88Y (09) (10) (11) (12) (13) (14) (15) (16) %Y00G-Y87G (17) (18) (19) (20) (21) (22) (23) (24) %G00C-G87C (25) (26) (27) (28) (29) (30) (31) (32) %C00B-C87B (33) (34) (35) (36) (37) (38) (39) (40) %B00M-B87M (41) (42) (43) (44) (45) (46) (47) (48) %M00R-M87R (49) (50) (51) (52) (53) (54) (55) (56) %N00W-N88W (57) %N99W ] def /tc1 [(R000Y) (R125Y) (R250Y) (R375Y) (R500Y) (R625Y) (R750Y) (R875Y) %R000Y-R875Y (Y000G) (Y125G) (Y250G) (Y375G) (Y500G) (Y625G) (Y750G) (Y875G) %Y000G-Y875G (G000C) (G125C) (G250C) (G375C) (G500C) (G625C) (G750C) (G875C) %G000C-G875C (C000B) (C125B) (C250B) (C375B) (C500B) (C625B) (C750B) (C875B) %C000B-C875B (B000M) (B125M) (B250M) (B375M) (B500M) (B625M) (B750M) (B875M) %B000M-B875M (M000R) (M125R) (M250R) (M375R) (M500R) (M625R) (M750R) (M875R) %M000R-M875R (N000W) (N125W) (N250W) (N375W) (N500W) (N625W) (N750W) (N875W) %N000W-N875W (N99W) %N99W ] def /rx 57 array def /gx 57 array def /bx 57 array def 0 1 56 {/i exch def %i=0,57 rx i 0 put gx i 0 put bx i 0 put } for %i=0,57 00 1 07 {/i exch def %i=0,7 %o00y-o88y rx i 1 put gx i i 0 sub 0.125 mul put } for %i=0,7 08 1 15 {/i exch def %i=8,15 %y00l-y88l rx i 1 i 8 sub 0.125 mul sub put gx i 1 put } for %i=8,15 16 1 23 {/i exch def %i=16,23 %l00c-l88c gx i 1 put bx i i 16 sub 0.125 mul put } for %i=16,23 24 1 31 {/i exch def %i=24,31 %c00v-c88v gx i 1 i 24 sub 0.125 mul sub put bx i 1 put } for %i=24,31 32 1 39 {/i exch def %i=32,39 %v00m-v88m bx i 1 put rx i i 32 sub 0.125 mul put } for %i=32,39 40 1 47 {/i exch def %i=40,47 %m00o-m88o bx i 1 i 40 sub 0.125 mul sub put rx i 1 put } for %i=40,47 48 1 55 {/i exch def %i=48,55 %n00w-n88w rx i i 48 sub 0.125 mul put gx i i 48 sub 0.125 mul put bx i i 48 sub 0.125 mul put } for %i=48,55 56 1 56 {/i exch def %i=56 %w rx i 1 put gx i 1 put bx i 1 put } for %i=56 %STOP0 % /rx2 2001 array def /gx2 2001 array def /bx2 2001 array def /tx1 2001 array def /tx2 2001 array def /nrx 2001 array def 0 1 2000 {/i exch def %i=0,2000 rx2 i 0 put gx2 i 0 put bx2 i 0 put } for %i=0,2000 000 1 199 {/i exch def %i=0,199 %o000y-975y rx2 i 1 put gx2 i i 0 sub 0.005 mul put tx1 i (R) put tx2 i (Y) put nrx i i 0 sub 0.005 mul 1000 mul put } for %i=0,199 200 1 399 {/i exch def %i=200,399 %y000l-y975l rx2 i 1 i 200 sub 0.005 mul sub put gx2 i 1 put tx1 i (Y) put tx2 i (G) put nrx i i 200 sub 0.005 mul 1000 mul put } for %i=200,399 400 1 599 {/i exch def %i=400,599 %l000c-l975c gx2 i 1 put bx2 i i 400 sub 0.005 mul put tx1 i (G) put tx2 i (C) put nrx i i 400 sub 0.005 mul 1000 mul put } for %i=400,599 600 1 799 {/i exch def %i=600,799 %c000v-c975v gx2 i 1 i 600 sub 0.005 mul sub put bx2 i 1 put tx1 i (C) put tx2 i (B) put nrx i i 600 sub 0.005 mul 1000 mul put } for %i=600,799 800 1 999 {/i exch def %i=800,999 %v000m-v975m bx2 i 1 put rx2 i i 800 sub 0.005 mul put tx1 i (B) put tx2 i (M) put nrx i i 800 sub 0.005 mul 1000 mul put } for %i=800,999 1000 1 1199 {/i exch def %i=1000,1199 %m000o-m975o bx2 i 1 i 1000 sub 0.005 mul sub put rx2 i 1 put tx1 i (M) put tx2 i (R) put nrx i i 1000 sub 0.005 mul 1000 mul put } for %i=1000,1199 1200 1 1399 {/i exch def %i=1200,1399 %o000y-975y rx2 i 1 put gx2 i i 1200 sub 0.005 mul put tx1 i (R) put tx2 i (Y) put nrx i i 1200 sub 0.005 mul 1000 mul put } for %i=1200,1399 1400 1 1599 {/i exch def %i=1400,1599 %y000l-y975l rx2 i 1 i 1400 sub 0.005 mul sub put gx2 i 1 put tx1 i (Y) put tx2 i (G) put nrx i i 1400 sub 0.005 mul 1000 mul put } for %i=1400,1599 1600 1 1799 {/i exch def %i=1600,1799 %l000c-l975c gx2 i 1 put bx2 i i 1600 sub 0.005 mul put tx1 i (G) put tx2 i (C) put nrx i i 1600 sub 0.005 mul 1000 mul put } for %i=1600,1799 1800 1 1999 {/i exch def %i=1800,1999 %c000v-c975v gx2 i 1 i 1800 sub 0.005 mul sub put bx2 i 1 put tx1 i (C) put tx2 i (B) put nrx i i 1800 sub 0.005 mul 1000 mul put } for %i=1800,1999 %rx2 240 rx2 0 get put %gx2 240 gx2 0 get put %bx2 240 bx2 0 get put %STOP1 72 90 translate /xchartl xchart def /ipage 0 def %00 1 1199 {/xchartl exch def %xchartl=0,1199 = 0,23 = 24 steps /xchartl xchart 50 idiv 25 mul def /xchartx1 xchartl def /xchartx2 xchartx1 50 add def /xchartx xchart xchartx1 sub def /ipage ipage 1 add def gsave 8 /Times-ISOL1 FS 12 0 moveto (WG080-7N) show ( Test chart with 1200 colours) showea ( Pr\374fvorlage mit 1200 Farben) showde (; digital equidistant 24 step hue circle) showea (; digitaler gleichabst\344ndiger 24stufiger Bunttonkreis) showde (, Page ) showea (, Seite ) showde xchart 1 add cvishow (/1200) show 0.01 MM 1.00 mul dup scale 0 200 translate %Start-transformation %0.5 0.5 0.5 setrgbcolor 1.0 1.0 1.0 setrgbcolor 0 0 moveto 25500 0 rlineto 0 17000 rlineto 25500 neg 0 rlineto closepath fill %/xt 1000 def %/yt 1000 def %0.5 0.5 0.5 setrgbcolor %xt yt moveto 25500 xt 2 mul sub 0 rlineto 0 17000 yt 2 mul sub rlineto % 25500 xt 2 mul sub neg 0 rlineto closepath fill 0.0 dup dup setrgbcolor 0 0 moveto 25500 0 rlineto 0 17000 rlineto 25500 neg 0 rlineto closepath stroke 20 setlinewidth /xd 2500 def /yd 2500 def /xm 12750 def /ym 08500 def /xls xm 3 xd mul sub def /xrs xm 1 xd mul add def /yt1 ym 1 yd mul add def /yt2 ym 2 yd mul sub def /xlq xm xd sub def /ylq xm 3 xd mul sub def /yt3 1500 def TBG %left 0 setgray /x0 1600 def /x1 4200 def /x2 5400 def /x3 6600 def /y1 9900 def /y2 9500 def /y3 8900 def /y4 8500 def x0 y1 moveto (l0) showea (l0) showde (, ) show xchartl cvishow (, ) show xchartx cvishow TBIG x1 y1 moveto (r*) show (d) ibshownG x2 y1 moveto (g*) show (d) ibshownG x3 y1 moveto (b*) show (d) ibshownG x0 y2 moveto xchartl 25 div cvishowr (, ) show tc1 xchartl 25 idiv get show x1 y2 moveto rx2 xchartl get cvsshow3r x2 y2 moveto gx2 xchartl get cvsshow3r x3 y2 moveto bx2 xchartl get cvsshow3r TBG 0 setgray x0 y3 moveto (l0, l1) showea (l0, l1) showde TBIG x1 y3 moveto (r*) show (2d) ibshownG x2 y3 moveto (g*) show (2d) ibshownG x3 y3 moveto (b*) show (2d) ibshownG x0 y4 moveto xchartl 25 div cvishowr (, ) show xchartx xchartl sub cvishow (, ) show %tx1 xchartx get show tx1 xchartx get show nrx xchartx get cvi3show tx2 xchartx get show x1 y4 moveto rx2 xchartx get cvsshow3r x2 y4 moveto gx2 xchartx get cvsshow3r x3 y4 moveto bx2 xchartx get cvsshow3r rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xls yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xls xd add 20 sub yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill %STOP2 TBG %right 0 setgray /x0 x0 16500 add def /x1 x1 16500 add def /x2 x2 16500 add def /x3 x3 16500 add def /y1 9900 def /y2 9500 def /y3 8900 def /y4 8500 def x0 y1 moveto (r0) showea (r0) showde (, ) show xchartl 600 add cvishow (, ) show xchartx 600 add cvishow x1 y1 moveto TBG (1-) show TBIG (r*) show (d) ibshownG x2 y1 moveto TBG (1-) show TBIG (g*) show (d) ibshownG x3 y1 moveto TBG (1-) show TBIG (b*) show (d) ibshownG x0 y2 moveto xchartl 25 div 24 add cvishowr (, ) show tc1 xchartl 25 idiv 24 add get show x1 y2 moveto 1 rx2 xchartl get sub cvsshow3r x2 y2 moveto 1 gx2 xchartl get sub cvsshow3r x3 y2 moveto 1 bx2 xchartl get sub cvsshow3r TBG 0 setgray x0 y3 moveto (r0, r1) showea (r0, r1) showde x1 y3 moveto TBG (1-) show TBIG (r*) show (2d) ibshownG x2 y3 moveto TBG (1-) show TBIG (g*) show (2d) ibshownG x3 y3 moveto TBG (1-) show TBIG (b*) show (2d) ibshownG x0 y4 moveto xchartl 25 div 24 add cvishowr (, ) show xchartx xchartl sub cvishow (, ) show %tx1 xchartx get show tx1 xchartx 600 add get show nrx xchartx 600 add get cvi3show tx2 xchartx 600 add get show x1 y4 moveto 1 rx2 xchartx get sub cvsshow3r x2 y4 moveto 1 gx2 xchartx get sub cvsshow3r x3 y4 moveto 1 bx2 xchartx get sub cvsshow3r 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor xrs yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor xrs xd add 20 sub yt1 moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill %STOP3 %squares %left /xlq xm xd sub def /ylq xm 3 xd mul sub def /xd 2500 def /yd 2500 def /xl 125 def /yl 125 def /xc xd xl idiv 1 sub def /yc yd yl idiv 1 sub def /w2 2 sqrt def /w07 w2 0.5 mul def /xk xl w07 mul def /yk yl w07 mul def %translation /xt 1 w07 sub 0.5 mul xl mul def /yt 1 w07 sub 0.5 mul yl mul def rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xlq ylq moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor 0 1 xc {/xi exch def 0 1 yc {/yi exch def xlq xt add xl xi mul add ylq yt add yl yi mul add moveto xk 0 rlineto 0 yk rlineto xk neg 0 rlineto closepath fill } for } for %STOP4 /iout 1 def iout 1 eq {%iout=1 %right /xlq xm def /ylq xm 3 xd mul sub def rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xlq ylq moveto xd 0 rlineto 0 yd rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor 0 1 xc {/xi exch def 0 1 yc {/yi exch def xlq xt add xl xi mul add ylq yt add yl yi mul add moveto xk 0 rlineto 0 yk rlineto xk neg 0 rlineto closepath fill } for } for } if %iout=1 %STOP5 /iout 1 def iout 1 eq {%iout=1 %lines /xd 2500 def /yd 2500 def /xl 125 def /yl 125 def /xl 062 def /yl 062 def /yl1 yl 1 add def /yl2 yl 2 add def /iy yd yl idiv 1 sub def %/iy 0 def %left /xlq xm xd 1.5 mul add def /ylq xm 3 xd mul sub def 0 2 iy {/i exch def rx2 xchartl get gx2 xchartl get bx2 xchartl get setrgbcolor xlq ylq yl i mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartl get sub 1 gx2 xchartl get sub 1 bx2 xchartl get sub setrgbcolor xlq ylq yl i 1 add mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill } for %i=0,iy %right /xlq xm xd 2.5 mul add def /ylq xm 3 xd mul sub def 0 2 iy {/i exch def rx2 xchartx get gx2 xchartx get bx2 xchartx get setrgbcolor xlq ylq yl i mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill 1 rx2 xchartx get sub 1 gx2 xchartx get sub 1 bx2 xchartx get sub setrgbcolor xlq ylq yl i 1 add mul add moveto xd 0 rlineto 0 yl2 rlineto xd neg 0 rlineto closepath fill } for %i=0,iy } if %iout=1 /xd 2500 def /xg0 xm 4.5 xd mul sub def 48 1 56 {/i exch def %i=48,56 %grey series rx i get gx i get bx i get setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath fill } for %i=48,56 48 1 48 {/i exch def %i=48,48 white frame 1 1 1 setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath stroke } for %i=48,48 52 4 56 {/i exch def %i=56,56 black frame 0 0 0 setrgbcolor xg0 i 48 sub xd mul add yt3 moveto xd 0 rlineto 0 xd rlineto xd neg 0 rlineto closepath stroke } for %i=56,56 %STOP6 0 200 neg translate showpage grestore %} for %xchart=0,1199 %%Trailer