Home » Archimedes archive » Zipped Apps » ArtWorks » !ArtWorks/Auto/!PathTool/PathProcs
!ArtWorks/Auto/!PathTool/PathProcs
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » ArtWorks |
| Filename: | !ArtWorks/Auto/!PathTool/PathProcs |
| Read OK: | ✔ |
| File size: | 181D bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
currentdict/setcmykcolor known{}{/setcmykcolor{dup 5 -1 roll add dup 1 gt
{pop 1}if 1 exch sub 4 1 roll dup 4 -1 roll add dup 1 gt{pop 1}if 1 exch sub
3 1 roll add dup 1 gt{pop 1}if 1 exch sub setrgbcolor}bd}ifelse/p_render{
}def/p_count 0 def/vis_flag true def/aca{/v_wr 0 def/v_fc 0 def/v_fm 0 def
/v_fy 0 def/v_fk 0 def/v_sc 0 def/v_sm 0 def/v_sy 0 def/v_sk 0 def/v_ft 0
def/v_sa -1 def/v_ea -1 def 0.25 setlinewidth[]0 setdash 0 setlinejoin 0
setlinecap}bd aca/ar{}bd/arr{pop pop pop pop pop pop pop}bd/ae{pop pop pop
pop pop pop}bd/aoa{pop}bd/apl{pop}bd/apc{}bd/aof{pop pop}bd/aafs{pop pop pop
}bd/O{pop}bd/R{pop}bd/axop{pop pop pop pop}bd/k{/v_fk exch def/v_fy exch def
/v_fm exch def/v_fc exch def/v_ft 0 def}bd/K{/v_sk exch def/v_sy exch def
/v_sm exch def/v_sc exch def}bd/a_tc{exch pop 1 exch sub dup 3 -1 roll exch
div exch dup 4 -1 roll exch div 3 1 roll dup 5 -1 roll exch div 4 1 roll 5
-1 roll exch div 4 1 roll}bd/x{a_tc k}bd/X{a_tc K}bd/awr{/v_wr exch def}bd/w
{setlinewidth}bd/j{setlinejoin}bd/J{dup 3 eq{pop}{setlinecap}ifelse}bd/d
{setdash}bd/asc{pop pop J}bd/aec{pop pop J}bd/asah{pop pop pop}bd/aeah{pop
pop pop}bd/m{moveto}bd/l{lineto}bd/c{curveto}bd/Bx{4 copy 5 1 roll 4 2 roll
5 -1 roll m l l l closepath}bd/arrows_list 4 array def arrows_list 0{0 -36 m
72 0 l 0 36 l 0 -36 l closepath eofill}put arrows_list 1{-18 -36 m 72 0 l
-18 36 l 0 0 l -18 -36 l closepath eofill}put arrows_list 2{34 -36 m 56.5
-36 70 -22.5 70 0 c 70 22.5 56.5 36 34 36 c 11.5 36 -2 22.5 -2 0 c -2 -22.5
11.5 -36 34 -36 c closepath eofill}put arrows_list 3{-4 0 m 6 36 l 36 36 l
26 0 l 36 -36 l 6 -36 l -4 0 l closepath eofill}put/asah{pop pop/v_sa exch
def}bd/aeah{pop pop/v_ea exch def}bd/asat{gsave[7 1 roll]concat arrows_list
v_sa get exec grestore}bd/aeat{gsave[7 1 roll]concat arrows_list v_ea get
exec grestore}bd/a_fp{gsave v_ft 0 eq{v_fc v_fm v_fy v_fk setcmykcolor v_wr
0 eq{fill}{eofill}ifelse}{v_ft 1 eq{linearfill}{radialfill}ifelse}ifelse
grestore}bd/*u{/p_count p_count 1 add def}bd/*U{/p_count p_count 1 sub def
p_count 0 eq{vis_flag{p_render}{newpath}ifelse}if}bd/B{/p_render{a_fp v_sc
v_sm v_sy v_sk setcmykcolor stroke}bd p_count 0 eq{vis_flag{p_render}
{newpath}ifelse}if}bd/b{closepath B}bd/F{/p_render{a_fp newpath}bd p_count 0
eq{vis_flag{p_render}{newpath}ifelse}if}bd/f{closepath F}bd/S{/p_render{v_sc
v_sm v_sy v_sk setcmykcolor stroke}bd p_count 0 eq{vis_flag{p_render}
{newpath}ifelse}if}bd/s{closepath S}bd/H{/p_render{newpath}bd p_count 0 eq
{vis_flag{p_render}{newpath}ifelse}if}bd/h{closepath H}bd/Min{2 copy gt{exch
}if pop}bd/Max{2 copy lt{exch}if pop}bd/NumSteps{sub 3 1 roll sub dtransform
matrix defaultmatrix idtransform dup mul exch dup mul add sqrt currentscreen
pop pop 72 exch div div}bd/S_eoclip{currentflat{{eoclip}stopped{dup
currentflat exch sub 20 gt{([Error: PathTooComplex; OffendingCommand: eoclip
]\n) print flush exit}{currentflat 2 add setflat}ifelse}{exit}ifelse}loop
setflat}bind def/S_clip{currentflat{{clip}stopped{dup currentflat exch sub
20 gt{([Error: PathTooComplex; OffendingCommand: clip]\n) print flush exit}
{currentflat 2 add setflat}ifelse}{exit}ifelse}loop setflat}bind def
/S_eofill{currentflat{{eofill}stopped{dup currentflat exch sub 20 gt{(
[Error: PathTooComplex; OffendingCommand: eofill]\n) print flush exit}
{currentflat 2 add setflat}ifelse}{exit}ifelse}loop setflat}bind def
/linearfill{pathbbox/ClipHighY exch def/ClipHighX exch def/ClipLowY exch def
/ClipLowX exch def v_wr 1 eq{S_eoclip}{S_clip}ifelse startX endX eq startY
endY eq and sC eC eq sM eM eq and sY eY eq and sK eK eq and or{sC sM sY sK
setcmykcolor newpath ClipLowX ClipLowY ClipHighX ClipHighY Bx S_eofill}{endX
startX sub dup mul endY startY sub dup mul add sqrt/distance exch def endY
startY sub endX startX sub atan newpath ClipLowX ClipLowY ClipHighX
ClipHighY Bx startX startY translate rotate pathbbox/ClipHighY exch def
/ClipHighX exch def/ClipLowY exch def/ClipLowX exch def eC eM eY eK
setcmykcolor newpath ClipLowX ClipLowY ClipHighX ClipHighY Bx S_eofill sC sM
sY sK setcmykcolor newpath ClipLowX ClipLowY 0 ClipHighY Bx S_eofill eC 255
mul sC 255 mul sub abs eM 255 mul sM 255 mul sub abs Max eY 255 mul sY 255
mul sub abs Max eK 255 mul sK 255 mul sub abs Max endY startY endX startX
NumSteps Min 256 Min ceiling dup 0 eq{pop 1}if/Steps exch def/incC eC sC sub
Steps div def/incM eM sM sub Steps div def/incY eY sY sub Steps div def/incK
eK sK sub Steps div def/incD distance Steps div def/startX 0 def 0 1 Steps 1
sub{sC sM sY sK setcmykcolor/sC sC incC add def/sM sM incM add def/sY sY
incY add def/sK sK incK add def newpath startX ClipLowY startX incD add dup
/startX exch def ClipHighY Bx S_eofill pop}for}ifelse}bind def/radialfill
{pathbbox/ClipHighY exch def/ClipHighX exch def/ClipLowY exch def/ClipLowX
exch def v_wr 1 eq{S_eoclip}{S_clip}ifelse startX endX eq startY endY eq and
sC eC eq sM eM eq and sY eY eq and sK eK eq and or{eC eM eY eK setcmykcolor
newpath ClipLowX ClipLowY ClipHighX ClipHighY Bx S_eofill}{endX startX sub
dup mul endY startY sub dup mul add sqrt/distance exch def eC eM eY eK
setcmykcolor newpath ClipLowX ClipLowY ClipHighX ClipHighY Bx S_eofill eC
255 mul sC 255 mul sub abs eM 255 mul sM 255 mul sub abs Max eY 255 mul sY
255 mul sub abs Max eK 255 mul sK 255 mul sub abs Max endY startY endX
startX NumSteps Min 256 Min ceiling dup 0 eq{pop 1}if/Steps exch def/incC eC
sC sub Steps div def/incM eM sM sub Steps div def/incY eY sY sub Steps div
def/incK eK sK sub Steps div def/incD distance Steps div def/distance 0 def
0 1 Steps 1 sub{sC sM sY sK setcmykcolor/sC sC incC add def/sM sM incM add
def/sY sY incY add def/sK sK incK add def newpath startX startY distance 0
360 arc closepath distance incD add dup/distance exch def 0 rmoveto startX
startY distance 0 360 arc closepath S_eofill pop}for}ifelse}bind def/az{
/endY exch def/endX exch def/startY exch def/startX exch def/eK exch def/eY
exch def/eM exch def/eC exch def/sK exch def/sY exch def/sM exch def/sC exch
def/v_ft exch def}bd/ax{16 4 roll a_tc 14 4 roll a_tc 12 4 roll az}bd/axm{
/endY exch def/endX exch def/startY exch def/startX exch def}bd/alyr{pop pop
1 eq{true}{false}ifelse/vis_flag exch def pop pop}bd
00000000 63 75 72 72 65 6e 74 64 69 63 74 2f 73 65 74 63 |currentdict/setc|
00000010 6d 79 6b 63 6f 6c 6f 72 20 6b 6e 6f 77 6e 7b 7d |mykcolor known{}|
00000020 7b 2f 73 65 74 63 6d 79 6b 63 6f 6c 6f 72 7b 64 |{/setcmykcolor{d|
00000030 75 70 20 35 20 2d 31 20 72 6f 6c 6c 20 61 64 64 |up 5 -1 roll add|
00000040 20 64 75 70 20 31 20 67 74 0a 7b 70 6f 70 20 31 | dup 1 gt.{pop 1|
00000050 7d 69 66 20 31 20 65 78 63 68 20 73 75 62 20 34 |}if 1 exch sub 4|
00000060 20 31 20 72 6f 6c 6c 20 64 75 70 20 34 20 2d 31 | 1 roll dup 4 -1|
00000070 20 72 6f 6c 6c 20 61 64 64 20 64 75 70 20 31 20 | roll add dup 1 |
00000080 67 74 7b 70 6f 70 20 31 7d 69 66 20 31 20 65 78 |gt{pop 1}if 1 ex|
00000090 63 68 20 73 75 62 0a 33 20 31 20 72 6f 6c 6c 20 |ch sub.3 1 roll |
000000a0 61 64 64 20 64 75 70 20 31 20 67 74 7b 70 6f 70 |add dup 1 gt{pop|
000000b0 20 31 7d 69 66 20 31 20 65 78 63 68 20 73 75 62 | 1}if 1 exch sub|
000000c0 20 73 65 74 72 67 62 63 6f 6c 6f 72 7d 62 64 7d | setrgbcolor}bd}|
000000d0 69 66 65 6c 73 65 2f 70 5f 72 65 6e 64 65 72 7b |ifelse/p_render{|
000000e0 0a 7d 64 65 66 2f 70 5f 63 6f 75 6e 74 20 30 20 |.}def/p_count 0 |
000000f0 64 65 66 2f 76 69 73 5f 66 6c 61 67 20 74 72 75 |def/vis_flag tru|
00000100 65 20 64 65 66 2f 61 63 61 7b 2f 76 5f 77 72 20 |e def/aca{/v_wr |
00000110 30 20 64 65 66 2f 76 5f 66 63 20 30 20 64 65 66 |0 def/v_fc 0 def|
00000120 2f 76 5f 66 6d 20 30 20 64 65 66 0a 2f 76 5f 66 |/v_fm 0 def./v_f|
00000130 79 20 30 20 64 65 66 2f 76 5f 66 6b 20 30 20 64 |y 0 def/v_fk 0 d|
00000140 65 66 2f 76 5f 73 63 20 30 20 64 65 66 2f 76 5f |ef/v_sc 0 def/v_|
00000150 73 6d 20 30 20 64 65 66 2f 76 5f 73 79 20 30 20 |sm 0 def/v_sy 0 |
00000160 64 65 66 2f 76 5f 73 6b 20 30 20 64 65 66 2f 76 |def/v_sk 0 def/v|
00000170 5f 66 74 20 30 0a 64 65 66 2f 76 5f 73 61 20 2d |_ft 0.def/v_sa -|
00000180 31 20 64 65 66 2f 76 5f 65 61 20 2d 31 20 64 65 |1 def/v_ea -1 de|
00000190 66 20 30 2e 32 35 20 73 65 74 6c 69 6e 65 77 69 |f 0.25 setlinewi|
000001a0 64 74 68 5b 5d 30 20 73 65 74 64 61 73 68 20 30 |dth[]0 setdash 0|
000001b0 20 73 65 74 6c 69 6e 65 6a 6f 69 6e 20 30 0a 73 | setlinejoin 0.s|
000001c0 65 74 6c 69 6e 65 63 61 70 7d 62 64 20 61 63 61 |etlinecap}bd aca|
000001d0 2f 61 72 7b 7d 62 64 2f 61 72 72 7b 70 6f 70 20 |/ar{}bd/arr{pop |
000001e0 70 6f 70 20 70 6f 70 20 70 6f 70 20 70 6f 70 20 |pop pop pop pop |
000001f0 70 6f 70 20 70 6f 70 7d 62 64 2f 61 65 7b 70 6f |pop pop}bd/ae{po|
00000200 70 20 70 6f 70 20 70 6f 70 0a 70 6f 70 20 70 6f |p pop pop.pop po|
00000210 70 20 70 6f 70 7d 62 64 2f 61 6f 61 7b 70 6f 70 |p pop}bd/aoa{pop|
00000220 7d 62 64 2f 61 70 6c 7b 70 6f 70 7d 62 64 2f 61 |}bd/apl{pop}bd/a|
00000230 70 63 7b 7d 62 64 2f 61 6f 66 7b 70 6f 70 20 70 |pc{}bd/aof{pop p|
00000240 6f 70 7d 62 64 2f 61 61 66 73 7b 70 6f 70 20 70 |op}bd/aafs{pop p|
00000250 6f 70 20 70 6f 70 0a 7d 62 64 2f 4f 7b 70 6f 70 |op pop.}bd/O{pop|
00000260 7d 62 64 2f 52 7b 70 6f 70 7d 62 64 2f 61 78 6f |}bd/R{pop}bd/axo|
00000270 70 7b 70 6f 70 20 70 6f 70 20 70 6f 70 20 70 6f |p{pop pop pop po|
00000280 70 7d 62 64 2f 6b 7b 2f 76 5f 66 6b 20 65 78 63 |p}bd/k{/v_fk exc|
00000290 68 20 64 65 66 2f 76 5f 66 79 20 65 78 63 68 20 |h def/v_fy exch |
000002a0 64 65 66 0a 2f 76 5f 66 6d 20 65 78 63 68 20 64 |def./v_fm exch d|
000002b0 65 66 2f 76 5f 66 63 20 65 78 63 68 20 64 65 66 |ef/v_fc exch def|
000002c0 2f 76 5f 66 74 20 30 20 64 65 66 7d 62 64 2f 4b |/v_ft 0 def}bd/K|
000002d0 7b 2f 76 5f 73 6b 20 65 78 63 68 20 64 65 66 2f |{/v_sk exch def/|
000002e0 76 5f 73 79 20 65 78 63 68 20 64 65 66 0a 2f 76 |v_sy exch def./v|
000002f0 5f 73 6d 20 65 78 63 68 20 64 65 66 2f 76 5f 73 |_sm exch def/v_s|
00000300 63 20 65 78 63 68 20 64 65 66 7d 62 64 2f 61 5f |c exch def}bd/a_|
00000310 74 63 7b 65 78 63 68 20 70 6f 70 20 31 20 65 78 |tc{exch pop 1 ex|
00000320 63 68 20 73 75 62 20 64 75 70 20 33 20 2d 31 20 |ch sub dup 3 -1 |
00000330 72 6f 6c 6c 20 65 78 63 68 0a 64 69 76 20 65 78 |roll exch.div ex|
00000340 63 68 20 64 75 70 20 34 20 2d 31 20 72 6f 6c 6c |ch dup 4 -1 roll|
00000350 20 65 78 63 68 20 64 69 76 20 33 20 31 20 72 6f | exch div 3 1 ro|
00000360 6c 6c 20 64 75 70 20 35 20 2d 31 20 72 6f 6c 6c |ll dup 5 -1 roll|
00000370 20 65 78 63 68 20 64 69 76 20 34 20 31 20 72 6f | exch div 4 1 ro|
00000380 6c 6c 20 35 0a 2d 31 20 72 6f 6c 6c 20 65 78 63 |ll 5.-1 roll exc|
00000390 68 20 64 69 76 20 34 20 31 20 72 6f 6c 6c 7d 62 |h div 4 1 roll}b|
000003a0 64 2f 78 7b 61 5f 74 63 20 6b 7d 62 64 2f 58 7b |d/x{a_tc k}bd/X{|
000003b0 61 5f 74 63 20 4b 7d 62 64 2f 61 77 72 7b 2f 76 |a_tc K}bd/awr{/v|
000003c0 5f 77 72 20 65 78 63 68 20 64 65 66 7d 62 64 2f |_wr exch def}bd/|
000003d0 77 0a 7b 73 65 74 6c 69 6e 65 77 69 64 74 68 7d |w.{setlinewidth}|
000003e0 62 64 2f 6a 7b 73 65 74 6c 69 6e 65 6a 6f 69 6e |bd/j{setlinejoin|
000003f0 7d 62 64 2f 4a 7b 64 75 70 20 33 20 65 71 7b 70 |}bd/J{dup 3 eq{p|
00000400 6f 70 7d 7b 73 65 74 6c 69 6e 65 63 61 70 7d 69 |op}{setlinecap}i|
00000410 66 65 6c 73 65 7d 62 64 2f 64 0a 7b 73 65 74 64 |felse}bd/d.{setd|
00000420 61 73 68 7d 62 64 2f 61 73 63 7b 70 6f 70 20 70 |ash}bd/asc{pop p|
00000430 6f 70 20 4a 7d 62 64 2f 61 65 63 7b 70 6f 70 20 |op J}bd/aec{pop |
00000440 70 6f 70 20 4a 7d 62 64 2f 61 73 61 68 7b 70 6f |pop J}bd/asah{po|
00000450 70 20 70 6f 70 20 70 6f 70 7d 62 64 2f 61 65 61 |p pop pop}bd/aea|
00000460 68 7b 70 6f 70 0a 70 6f 70 20 70 6f 70 7d 62 64 |h{pop.pop pop}bd|
00000470 2f 6d 7b 6d 6f 76 65 74 6f 7d 62 64 2f 6c 7b 6c |/m{moveto}bd/l{l|
00000480 69 6e 65 74 6f 7d 62 64 2f 63 7b 63 75 72 76 65 |ineto}bd/c{curve|
00000490 74 6f 7d 62 64 2f 42 78 7b 34 20 63 6f 70 79 20 |to}bd/Bx{4 copy |
000004a0 35 20 31 20 72 6f 6c 6c 20 34 20 32 20 72 6f 6c |5 1 roll 4 2 rol|
000004b0 6c 0a 35 20 2d 31 20 72 6f 6c 6c 20 6d 20 6c 20 |l.5 -1 roll m l |
000004c0 6c 20 6c 20 63 6c 6f 73 65 70 61 74 68 7d 62 64 |l l closepath}bd|
000004d0 2f 61 72 72 6f 77 73 5f 6c 69 73 74 20 34 20 61 |/arrows_list 4 a|
000004e0 72 72 61 79 20 64 65 66 20 61 72 72 6f 77 73 5f |rray def arrows_|
000004f0 6c 69 73 74 20 30 7b 30 20 2d 33 36 20 6d 0a 37 |list 0{0 -36 m.7|
00000500 32 20 30 20 6c 20 30 20 33 36 20 6c 20 30 20 2d |2 0 l 0 36 l 0 -|
00000510 33 36 20 6c 20 63 6c 6f 73 65 70 61 74 68 20 65 |36 l closepath e|
00000520 6f 66 69 6c 6c 7d 70 75 74 20 61 72 72 6f 77 73 |ofill}put arrows|
00000530 5f 6c 69 73 74 20 31 7b 2d 31 38 20 2d 33 36 20 |_list 1{-18 -36 |
00000540 6d 20 37 32 20 30 20 6c 0a 2d 31 38 20 33 36 20 |m 72 0 l.-18 36 |
00000550 6c 20 30 20 30 20 6c 20 2d 31 38 20 2d 33 36 20 |l 0 0 l -18 -36 |
00000560 6c 20 63 6c 6f 73 65 70 61 74 68 20 65 6f 66 69 |l closepath eofi|
00000570 6c 6c 7d 70 75 74 20 61 72 72 6f 77 73 5f 6c 69 |ll}put arrows_li|
00000580 73 74 20 32 7b 33 34 20 2d 33 36 20 6d 20 35 36 |st 2{34 -36 m 56|
00000590 2e 35 0a 2d 33 36 20 37 30 20 2d 32 32 2e 35 20 |.5.-36 70 -22.5 |
000005a0 37 30 20 30 20 63 20 37 30 20 32 32 2e 35 20 35 |70 0 c 70 22.5 5|
000005b0 36 2e 35 20 33 36 20 33 34 20 33 36 20 63 20 31 |6.5 36 34 36 c 1|
000005c0 31 2e 35 20 33 36 20 2d 32 20 32 32 2e 35 20 2d |1.5 36 -2 22.5 -|
000005d0 32 20 30 20 63 20 2d 32 20 2d 32 32 2e 35 0a 31 |2 0 c -2 -22.5.1|
000005e0 31 2e 35 20 2d 33 36 20 33 34 20 2d 33 36 20 63 |1.5 -36 34 -36 c|
000005f0 20 63 6c 6f 73 65 70 61 74 68 20 65 6f 66 69 6c | closepath eofil|
00000600 6c 7d 70 75 74 20 61 72 72 6f 77 73 5f 6c 69 73 |l}put arrows_lis|
00000610 74 20 33 7b 2d 34 20 30 20 6d 20 36 20 33 36 20 |t 3{-4 0 m 6 36 |
00000620 6c 20 33 36 20 33 36 20 6c 0a 32 36 20 30 20 6c |l 36 36 l.26 0 l|
00000630 20 33 36 20 2d 33 36 20 6c 20 36 20 2d 33 36 20 | 36 -36 l 6 -36 |
00000640 6c 20 2d 34 20 30 20 6c 20 63 6c 6f 73 65 70 61 |l -4 0 l closepa|
00000650 74 68 20 65 6f 66 69 6c 6c 7d 70 75 74 2f 61 73 |th eofill}put/as|
00000660 61 68 7b 70 6f 70 20 70 6f 70 2f 76 5f 73 61 20 |ah{pop pop/v_sa |
00000670 65 78 63 68 0a 64 65 66 7d 62 64 2f 61 65 61 68 |exch.def}bd/aeah|
00000680 7b 70 6f 70 20 70 6f 70 2f 76 5f 65 61 20 65 78 |{pop pop/v_ea ex|
00000690 63 68 20 64 65 66 7d 62 64 2f 61 73 61 74 7b 67 |ch def}bd/asat{g|
000006a0 73 61 76 65 5b 37 20 31 20 72 6f 6c 6c 5d 63 6f |save[7 1 roll]co|
000006b0 6e 63 61 74 20 61 72 72 6f 77 73 5f 6c 69 73 74 |ncat arrows_list|
000006c0 0a 76 5f 73 61 20 67 65 74 20 65 78 65 63 20 67 |.v_sa get exec g|
000006d0 72 65 73 74 6f 72 65 7d 62 64 2f 61 65 61 74 7b |restore}bd/aeat{|
000006e0 67 73 61 76 65 5b 37 20 31 20 72 6f 6c 6c 5d 63 |gsave[7 1 roll]c|
000006f0 6f 6e 63 61 74 20 61 72 72 6f 77 73 5f 6c 69 73 |oncat arrows_lis|
00000700 74 20 76 5f 65 61 20 67 65 74 0a 65 78 65 63 20 |t v_ea get.exec |
00000710 67 72 65 73 74 6f 72 65 7d 62 64 2f 61 5f 66 70 |grestore}bd/a_fp|
00000720 7b 67 73 61 76 65 20 76 5f 66 74 20 30 20 65 71 |{gsave v_ft 0 eq|
00000730 7b 76 5f 66 63 20 76 5f 66 6d 20 76 5f 66 79 20 |{v_fc v_fm v_fy |
00000740 76 5f 66 6b 20 73 65 74 63 6d 79 6b 63 6f 6c 6f |v_fk setcmykcolo|
00000750 72 20 76 5f 77 72 0a 30 20 65 71 7b 66 69 6c 6c |r v_wr.0 eq{fill|
00000760 7d 7b 65 6f 66 69 6c 6c 7d 69 66 65 6c 73 65 7d |}{eofill}ifelse}|
00000770 7b 76 5f 66 74 20 31 20 65 71 7b 6c 69 6e 65 61 |{v_ft 1 eq{linea|
00000780 72 66 69 6c 6c 7d 7b 72 61 64 69 61 6c 66 69 6c |rfill}{radialfil|
00000790 6c 7d 69 66 65 6c 73 65 7d 69 66 65 6c 73 65 0a |l}ifelse}ifelse.|
000007a0 67 72 65 73 74 6f 72 65 7d 62 64 2f 2a 75 7b 2f |grestore}bd/*u{/|
000007b0 70 5f 63 6f 75 6e 74 20 70 5f 63 6f 75 6e 74 20 |p_count p_count |
000007c0 31 20 61 64 64 20 64 65 66 7d 62 64 2f 2a 55 7b |1 add def}bd/*U{|
000007d0 2f 70 5f 63 6f 75 6e 74 20 70 5f 63 6f 75 6e 74 |/p_count p_count|
000007e0 20 31 20 73 75 62 20 64 65 66 0a 70 5f 63 6f 75 | 1 sub def.p_cou|
000007f0 6e 74 20 30 20 65 71 7b 76 69 73 5f 66 6c 61 67 |nt 0 eq{vis_flag|
00000800 7b 70 5f 72 65 6e 64 65 72 7d 7b 6e 65 77 70 61 |{p_render}{newpa|
00000810 74 68 7d 69 66 65 6c 73 65 7d 69 66 7d 62 64 2f |th}ifelse}if}bd/|
00000820 42 7b 2f 70 5f 72 65 6e 64 65 72 7b 61 5f 66 70 |B{/p_render{a_fp|
00000830 20 76 5f 73 63 0a 76 5f 73 6d 20 76 5f 73 79 20 | v_sc.v_sm v_sy |
00000840 76 5f 73 6b 20 73 65 74 63 6d 79 6b 63 6f 6c 6f |v_sk setcmykcolo|
00000850 72 20 73 74 72 6f 6b 65 7d 62 64 20 70 5f 63 6f |r stroke}bd p_co|
00000860 75 6e 74 20 30 20 65 71 7b 76 69 73 5f 66 6c 61 |unt 0 eq{vis_fla|
00000870 67 7b 70 5f 72 65 6e 64 65 72 7d 0a 7b 6e 65 77 |g{p_render}.{new|
00000880 70 61 74 68 7d 69 66 65 6c 73 65 7d 69 66 7d 62 |path}ifelse}if}b|
00000890 64 2f 62 7b 63 6c 6f 73 65 70 61 74 68 20 42 7d |d/b{closepath B}|
000008a0 62 64 2f 46 7b 2f 70 5f 72 65 6e 64 65 72 7b 61 |bd/F{/p_render{a|
000008b0 5f 66 70 20 6e 65 77 70 61 74 68 7d 62 64 20 70 |_fp newpath}bd p|
000008c0 5f 63 6f 75 6e 74 20 30 0a 65 71 7b 76 69 73 5f |_count 0.eq{vis_|
000008d0 66 6c 61 67 7b 70 5f 72 65 6e 64 65 72 7d 7b 6e |flag{p_render}{n|
000008e0 65 77 70 61 74 68 7d 69 66 65 6c 73 65 7d 69 66 |ewpath}ifelse}if|
000008f0 7d 62 64 2f 66 7b 63 6c 6f 73 65 70 61 74 68 20 |}bd/f{closepath |
00000900 46 7d 62 64 2f 53 7b 2f 70 5f 72 65 6e 64 65 72 |F}bd/S{/p_render|
00000910 7b 76 5f 73 63 0a 76 5f 73 6d 20 76 5f 73 79 20 |{v_sc.v_sm v_sy |
00000920 76 5f 73 6b 20 73 65 74 63 6d 79 6b 63 6f 6c 6f |v_sk setcmykcolo|
00000930 72 20 73 74 72 6f 6b 65 7d 62 64 20 70 5f 63 6f |r stroke}bd p_co|
00000940 75 6e 74 20 30 20 65 71 7b 76 69 73 5f 66 6c 61 |unt 0 eq{vis_fla|
00000950 67 7b 70 5f 72 65 6e 64 65 72 7d 0a 7b 6e 65 77 |g{p_render}.{new|
00000960 70 61 74 68 7d 69 66 65 6c 73 65 7d 69 66 7d 62 |path}ifelse}if}b|
00000970 64 2f 73 7b 63 6c 6f 73 65 70 61 74 68 20 53 7d |d/s{closepath S}|
00000980 62 64 2f 48 7b 2f 70 5f 72 65 6e 64 65 72 7b 6e |bd/H{/p_render{n|
00000990 65 77 70 61 74 68 7d 62 64 20 70 5f 63 6f 75 6e |ewpath}bd p_coun|
000009a0 74 20 30 20 65 71 0a 7b 76 69 73 5f 66 6c 61 67 |t 0 eq.{vis_flag|
000009b0 7b 70 5f 72 65 6e 64 65 72 7d 7b 6e 65 77 70 61 |{p_render}{newpa|
000009c0 74 68 7d 69 66 65 6c 73 65 7d 69 66 7d 62 64 2f |th}ifelse}if}bd/|
000009d0 68 7b 63 6c 6f 73 65 70 61 74 68 20 48 7d 62 64 |h{closepath H}bd|
000009e0 2f 4d 69 6e 7b 32 20 63 6f 70 79 20 67 74 7b 65 |/Min{2 copy gt{e|
000009f0 78 63 68 0a 7d 69 66 20 70 6f 70 7d 62 64 2f 4d |xch.}if pop}bd/M|
00000a00 61 78 7b 32 20 63 6f 70 79 20 6c 74 7b 65 78 63 |ax{2 copy lt{exc|
00000a10 68 7d 69 66 20 70 6f 70 7d 62 64 2f 4e 75 6d 53 |h}if pop}bd/NumS|
00000a20 74 65 70 73 7b 73 75 62 20 33 20 31 20 72 6f 6c |teps{sub 3 1 rol|
00000a30 6c 20 73 75 62 20 64 74 72 61 6e 73 66 6f 72 6d |l sub dtransform|
00000a40 0a 6d 61 74 72 69 78 20 64 65 66 61 75 6c 74 6d |.matrix defaultm|
00000a50 61 74 72 69 78 20 69 64 74 72 61 6e 73 66 6f 72 |atrix idtransfor|
00000a60 6d 20 64 75 70 20 6d 75 6c 20 65 78 63 68 20 64 |m dup mul exch d|
00000a70 75 70 20 6d 75 6c 20 61 64 64 20 73 71 72 74 20 |up mul add sqrt |
00000a80 63 75 72 72 65 6e 74 73 63 72 65 65 6e 0a 70 6f |currentscreen.po|
00000a90 70 20 70 6f 70 20 37 32 20 65 78 63 68 20 64 69 |p pop 72 exch di|
00000aa0 76 20 64 69 76 7d 62 64 2f 53 5f 65 6f 63 6c 69 |v div}bd/S_eocli|
00000ab0 70 7b 63 75 72 72 65 6e 74 66 6c 61 74 7b 7b 65 |p{currentflat{{e|
00000ac0 6f 63 6c 69 70 7d 73 74 6f 70 70 65 64 7b 64 75 |oclip}stopped{du|
00000ad0 70 0a 63 75 72 72 65 6e 74 66 6c 61 74 20 65 78 |p.currentflat ex|
00000ae0 63 68 20 73 75 62 20 32 30 20 67 74 7b 28 5b 45 |ch sub 20 gt{([E|
00000af0 72 72 6f 72 3a 20 50 61 74 68 54 6f 6f 43 6f 6d |rror: PathTooCom|
00000b00 70 6c 65 78 3b 20 4f 66 66 65 6e 64 69 6e 67 43 |plex; OffendingC|
00000b10 6f 6d 6d 61 6e 64 3a 20 65 6f 63 6c 69 70 0a 5d |ommand: eoclip.]|
00000b20 5c 6e 29 20 70 72 69 6e 74 20 66 6c 75 73 68 20 |\n) print flush |
00000b30 65 78 69 74 7d 7b 63 75 72 72 65 6e 74 66 6c 61 |exit}{currentfla|
00000b40 74 20 32 20 61 64 64 20 73 65 74 66 6c 61 74 7d |t 2 add setflat}|
00000b50 69 66 65 6c 73 65 7d 7b 65 78 69 74 7d 69 66 65 |ifelse}{exit}ife|
00000b60 6c 73 65 7d 6c 6f 6f 70 0a 73 65 74 66 6c 61 74 |lse}loop.setflat|
00000b70 7d 62 69 6e 64 20 64 65 66 2f 53 5f 63 6c 69 70 |}bind def/S_clip|
00000b80 7b 63 75 72 72 65 6e 74 66 6c 61 74 7b 7b 63 6c |{currentflat{{cl|
00000b90 69 70 7d 73 74 6f 70 70 65 64 7b 64 75 70 20 63 |ip}stopped{dup c|
00000ba0 75 72 72 65 6e 74 66 6c 61 74 20 65 78 63 68 20 |urrentflat exch |
00000bb0 73 75 62 0a 32 30 20 67 74 7b 28 5b 45 72 72 6f |sub.20 gt{([Erro|
00000bc0 72 3a 20 50 61 74 68 54 6f 6f 43 6f 6d 70 6c 65 |r: PathTooComple|
00000bd0 78 3b 20 4f 66 66 65 6e 64 69 6e 67 43 6f 6d 6d |x; OffendingComm|
00000be0 61 6e 64 3a 20 63 6c 69 70 5d 5c 6e 29 20 70 72 |and: clip]\n) pr|
00000bf0 69 6e 74 20 66 6c 75 73 68 20 65 78 69 74 7d 0a |int flush exit}.|
00000c00 7b 63 75 72 72 65 6e 74 66 6c 61 74 20 32 20 61 |{currentflat 2 a|
00000c10 64 64 20 73 65 74 66 6c 61 74 7d 69 66 65 6c 73 |dd setflat}ifels|
00000c20 65 7d 7b 65 78 69 74 7d 69 66 65 6c 73 65 7d 6c |e}{exit}ifelse}l|
00000c30 6f 6f 70 20 73 65 74 66 6c 61 74 7d 62 69 6e 64 |oop setflat}bind|
00000c40 20 64 65 66 0a 2f 53 5f 65 6f 66 69 6c 6c 7b 63 | def./S_eofill{c|
00000c50 75 72 72 65 6e 74 66 6c 61 74 7b 7b 65 6f 66 69 |urrentflat{{eofi|
00000c60 6c 6c 7d 73 74 6f 70 70 65 64 7b 64 75 70 20 63 |ll}stopped{dup c|
00000c70 75 72 72 65 6e 74 66 6c 61 74 20 65 78 63 68 20 |urrentflat exch |
00000c80 73 75 62 20 32 30 20 67 74 7b 28 0a 5b 45 72 72 |sub 20 gt{(.[Err|
00000c90 6f 72 3a 20 50 61 74 68 54 6f 6f 43 6f 6d 70 6c |or: PathTooCompl|
00000ca0 65 78 3b 20 4f 66 66 65 6e 64 69 6e 67 43 6f 6d |ex; OffendingCom|
00000cb0 6d 61 6e 64 3a 20 65 6f 66 69 6c 6c 5d 5c 6e 29 |mand: eofill]\n)|
00000cc0 20 70 72 69 6e 74 20 66 6c 75 73 68 20 65 78 69 | print flush exi|
00000cd0 74 7d 0a 7b 63 75 72 72 65 6e 74 66 6c 61 74 20 |t}.{currentflat |
00000ce0 32 20 61 64 64 20 73 65 74 66 6c 61 74 7d 69 66 |2 add setflat}if|
00000cf0 65 6c 73 65 7d 7b 65 78 69 74 7d 69 66 65 6c 73 |else}{exit}ifels|
00000d00 65 7d 6c 6f 6f 70 20 73 65 74 66 6c 61 74 7d 62 |e}loop setflat}b|
00000d10 69 6e 64 20 64 65 66 0a 2f 6c 69 6e 65 61 72 66 |ind def./linearf|
00000d20 69 6c 6c 7b 70 61 74 68 62 62 6f 78 2f 43 6c 69 |ill{pathbbox/Cli|
00000d30 70 48 69 67 68 59 20 65 78 63 68 20 64 65 66 2f |pHighY exch def/|
00000d40 43 6c 69 70 48 69 67 68 58 20 65 78 63 68 20 64 |ClipHighX exch d|
00000d50 65 66 2f 43 6c 69 70 4c 6f 77 59 20 65 78 63 68 |ef/ClipLowY exch|
00000d60 20 64 65 66 0a 2f 43 6c 69 70 4c 6f 77 58 20 65 | def./ClipLowX e|
00000d70 78 63 68 20 64 65 66 20 76 5f 77 72 20 31 20 65 |xch def v_wr 1 e|
00000d80 71 7b 53 5f 65 6f 63 6c 69 70 7d 7b 53 5f 63 6c |q{S_eoclip}{S_cl|
00000d90 69 70 7d 69 66 65 6c 73 65 20 73 74 61 72 74 58 |ip}ifelse startX|
00000da0 20 65 6e 64 58 20 65 71 20 73 74 61 72 74 59 0a | endX eq startY.|
00000db0 65 6e 64 59 20 65 71 20 61 6e 64 20 73 43 20 65 |endY eq and sC e|
00000dc0 43 20 65 71 20 73 4d 20 65 4d 20 65 71 20 61 6e |C eq sM eM eq an|
00000dd0 64 20 73 59 20 65 59 20 65 71 20 61 6e 64 20 73 |d sY eY eq and s|
00000de0 4b 20 65 4b 20 65 71 20 61 6e 64 20 6f 72 7b 73 |K eK eq and or{s|
00000df0 43 20 73 4d 20 73 59 20 73 4b 0a 73 65 74 63 6d |C sM sY sK.setcm|
00000e00 79 6b 63 6f 6c 6f 72 20 6e 65 77 70 61 74 68 20 |ykcolor newpath |
00000e10 43 6c 69 70 4c 6f 77 58 20 43 6c 69 70 4c 6f 77 |ClipLowX ClipLow|
00000e20 59 20 43 6c 69 70 48 69 67 68 58 20 43 6c 69 70 |Y ClipHighX Clip|
00000e30 48 69 67 68 59 20 42 78 20 53 5f 65 6f 66 69 6c |HighY Bx S_eofil|
00000e40 6c 7d 7b 65 6e 64 58 0a 73 74 61 72 74 58 20 73 |l}{endX.startX s|
00000e50 75 62 20 64 75 70 20 6d 75 6c 20 65 6e 64 59 20 |ub dup mul endY |
00000e60 73 74 61 72 74 59 20 73 75 62 20 64 75 70 20 6d |startY sub dup m|
00000e70 75 6c 20 61 64 64 20 73 71 72 74 2f 64 69 73 74 |ul add sqrt/dist|
00000e80 61 6e 63 65 20 65 78 63 68 20 64 65 66 20 65 6e |ance exch def en|
00000e90 64 59 0a 73 74 61 72 74 59 20 73 75 62 20 65 6e |dY.startY sub en|
00000ea0 64 58 20 73 74 61 72 74 58 20 73 75 62 20 61 74 |dX startX sub at|
00000eb0 61 6e 20 6e 65 77 70 61 74 68 20 43 6c 69 70 4c |an newpath ClipL|
00000ec0 6f 77 58 20 43 6c 69 70 4c 6f 77 59 20 43 6c 69 |owX ClipLowY Cli|
00000ed0 70 48 69 67 68 58 0a 43 6c 69 70 48 69 67 68 59 |pHighX.ClipHighY|
00000ee0 20 42 78 20 73 74 61 72 74 58 20 73 74 61 72 74 | Bx startX start|
00000ef0 59 20 74 72 61 6e 73 6c 61 74 65 20 72 6f 74 61 |Y translate rota|
00000f00 74 65 20 70 61 74 68 62 62 6f 78 2f 43 6c 69 70 |te pathbbox/Clip|
00000f10 48 69 67 68 59 20 65 78 63 68 20 64 65 66 0a 2f |HighY exch def./|
00000f20 43 6c 69 70 48 69 67 68 58 20 65 78 63 68 20 64 |ClipHighX exch d|
00000f30 65 66 2f 43 6c 69 70 4c 6f 77 59 20 65 78 63 68 |ef/ClipLowY exch|
00000f40 20 64 65 66 2f 43 6c 69 70 4c 6f 77 58 20 65 78 | def/ClipLowX ex|
00000f50 63 68 20 64 65 66 20 65 43 20 65 4d 20 65 59 20 |ch def eC eM eY |
00000f60 65 4b 0a 73 65 74 63 6d 79 6b 63 6f 6c 6f 72 20 |eK.setcmykcolor |
00000f70 6e 65 77 70 61 74 68 20 43 6c 69 70 4c 6f 77 58 |newpath ClipLowX|
00000f80 20 43 6c 69 70 4c 6f 77 59 20 43 6c 69 70 48 69 | ClipLowY ClipHi|
00000f90 67 68 58 20 43 6c 69 70 48 69 67 68 59 20 42 78 |ghX ClipHighY Bx|
00000fa0 20 53 5f 65 6f 66 69 6c 6c 20 73 43 20 73 4d 0a | S_eofill sC sM.|
00000fb0 73 59 20 73 4b 20 73 65 74 63 6d 79 6b 63 6f 6c |sY sK setcmykcol|
00000fc0 6f 72 20 6e 65 77 70 61 74 68 20 43 6c 69 70 4c |or newpath ClipL|
00000fd0 6f 77 58 20 43 6c 69 70 4c 6f 77 59 20 30 20 43 |owX ClipLowY 0 C|
00000fe0 6c 69 70 48 69 67 68 59 20 42 78 20 53 5f 65 6f |lipHighY Bx S_eo|
00000ff0 66 69 6c 6c 20 65 43 20 32 35 35 0a 6d 75 6c 20 |fill eC 255.mul |
00001000 73 43 20 32 35 35 20 6d 75 6c 20 73 75 62 20 61 |sC 255 mul sub a|
00001010 62 73 20 65 4d 20 32 35 35 20 6d 75 6c 20 73 4d |bs eM 255 mul sM|
00001020 20 32 35 35 20 6d 75 6c 20 73 75 62 20 61 62 73 | 255 mul sub abs|
00001030 20 4d 61 78 20 65 59 20 32 35 35 20 6d 75 6c 20 | Max eY 255 mul |
00001040 73 59 20 32 35 35 0a 6d 75 6c 20 73 75 62 20 61 |sY 255.mul sub a|
00001050 62 73 20 4d 61 78 20 65 4b 20 32 35 35 20 6d 75 |bs Max eK 255 mu|
00001060 6c 20 73 4b 20 32 35 35 20 6d 75 6c 20 73 75 62 |l sK 255 mul sub|
00001070 20 61 62 73 20 4d 61 78 20 65 6e 64 59 20 73 74 | abs Max endY st|
00001080 61 72 74 59 20 65 6e 64 58 20 73 74 61 72 74 58 |artY endX startX|
00001090 0a 4e 75 6d 53 74 65 70 73 20 4d 69 6e 20 32 35 |.NumSteps Min 25|
000010a0 36 20 4d 69 6e 20 63 65 69 6c 69 6e 67 20 64 75 |6 Min ceiling du|
000010b0 70 20 30 20 65 71 7b 70 6f 70 20 31 7d 69 66 2f |p 0 eq{pop 1}if/|
000010c0 53 74 65 70 73 20 65 78 63 68 20 64 65 66 2f 69 |Steps exch def/i|
000010d0 6e 63 43 20 65 43 20 73 43 20 73 75 62 0a 53 74 |ncC eC sC sub.St|
000010e0 65 70 73 20 64 69 76 20 64 65 66 2f 69 6e 63 4d |eps div def/incM|
000010f0 20 65 4d 20 73 4d 20 73 75 62 20 53 74 65 70 73 | eM sM sub Steps|
00001100 20 64 69 76 20 64 65 66 2f 69 6e 63 59 20 65 59 | div def/incY eY|
00001110 20 73 59 20 73 75 62 20 53 74 65 70 73 20 64 69 | sY sub Steps di|
00001120 76 20 64 65 66 2f 69 6e 63 4b 0a 65 4b 20 73 4b |v def/incK.eK sK|
00001130 20 73 75 62 20 53 74 65 70 73 20 64 69 76 20 64 | sub Steps div d|
00001140 65 66 2f 69 6e 63 44 20 64 69 73 74 61 6e 63 65 |ef/incD distance|
00001150 20 53 74 65 70 73 20 64 69 76 20 64 65 66 2f 73 | Steps div def/s|
00001160 74 61 72 74 58 20 30 20 64 65 66 20 30 20 31 20 |tartX 0 def 0 1 |
00001170 53 74 65 70 73 20 31 0a 73 75 62 7b 73 43 20 73 |Steps 1.sub{sC s|
00001180 4d 20 73 59 20 73 4b 20 73 65 74 63 6d 79 6b 63 |M sY sK setcmykc|
00001190 6f 6c 6f 72 2f 73 43 20 73 43 20 69 6e 63 43 20 |olor/sC sC incC |
000011a0 61 64 64 20 64 65 66 2f 73 4d 20 73 4d 20 69 6e |add def/sM sM in|
000011b0 63 4d 20 61 64 64 20 64 65 66 2f 73 59 20 73 59 |cM add def/sY sY|
000011c0 0a 69 6e 63 59 20 61 64 64 20 64 65 66 2f 73 4b |.incY add def/sK|
000011d0 20 73 4b 20 69 6e 63 4b 20 61 64 64 20 64 65 66 | sK incK add def|
000011e0 20 6e 65 77 70 61 74 68 20 73 74 61 72 74 58 20 | newpath startX |
000011f0 43 6c 69 70 4c 6f 77 59 20 73 74 61 72 74 58 20 |ClipLowY startX |
00001200 69 6e 63 44 20 61 64 64 20 64 75 70 0a 2f 73 74 |incD add dup./st|
00001210 61 72 74 58 20 65 78 63 68 20 64 65 66 20 43 6c |artX exch def Cl|
00001220 69 70 48 69 67 68 59 20 42 78 20 53 5f 65 6f 66 |ipHighY Bx S_eof|
00001230 69 6c 6c 20 70 6f 70 7d 66 6f 72 7d 69 66 65 6c |ill pop}for}ifel|
00001240 73 65 7d 62 69 6e 64 20 64 65 66 2f 72 61 64 69 |se}bind def/radi|
00001250 61 6c 66 69 6c 6c 0a 7b 70 61 74 68 62 62 6f 78 |alfill.{pathbbox|
00001260 2f 43 6c 69 70 48 69 67 68 59 20 65 78 63 68 20 |/ClipHighY exch |
00001270 64 65 66 2f 43 6c 69 70 48 69 67 68 58 20 65 78 |def/ClipHighX ex|
00001280 63 68 20 64 65 66 2f 43 6c 69 70 4c 6f 77 59 20 |ch def/ClipLowY |
00001290 65 78 63 68 20 64 65 66 2f 43 6c 69 70 4c 6f 77 |exch def/ClipLow|
000012a0 58 0a 65 78 63 68 20 64 65 66 20 76 5f 77 72 20 |X.exch def v_wr |
000012b0 31 20 65 71 7b 53 5f 65 6f 63 6c 69 70 7d 7b 53 |1 eq{S_eoclip}{S|
000012c0 5f 63 6c 69 70 7d 69 66 65 6c 73 65 20 73 74 61 |_clip}ifelse sta|
000012d0 72 74 58 20 65 6e 64 58 20 65 71 20 73 74 61 72 |rtX endX eq star|
000012e0 74 59 20 65 6e 64 59 20 65 71 20 61 6e 64 0a 73 |tY endY eq and.s|
000012f0 43 20 65 43 20 65 71 20 73 4d 20 65 4d 20 65 71 |C eC eq sM eM eq|
00001300 20 61 6e 64 20 73 59 20 65 59 20 65 71 20 61 6e | and sY eY eq an|
00001310 64 20 73 4b 20 65 4b 20 65 71 20 61 6e 64 20 6f |d sK eK eq and o|
00001320 72 7b 65 43 20 65 4d 20 65 59 20 65 4b 20 73 65 |r{eC eM eY eK se|
00001330 74 63 6d 79 6b 63 6f 6c 6f 72 0a 6e 65 77 70 61 |tcmykcolor.newpa|
00001340 74 68 20 43 6c 69 70 4c 6f 77 58 20 43 6c 69 70 |th ClipLowX Clip|
00001350 4c 6f 77 59 20 43 6c 69 70 48 69 67 68 58 20 43 |LowY ClipHighX C|
00001360 6c 69 70 48 69 67 68 59 20 42 78 20 53 5f 65 6f |lipHighY Bx S_eo|
00001370 66 69 6c 6c 7d 7b 65 6e 64 58 20 73 74 61 72 74 |fill}{endX start|
00001380 58 20 73 75 62 0a 64 75 70 20 6d 75 6c 20 65 6e |X sub.dup mul en|
00001390 64 59 20 73 74 61 72 74 59 20 73 75 62 20 64 75 |dY startY sub du|
000013a0 70 20 6d 75 6c 20 61 64 64 20 73 71 72 74 2f 64 |p mul add sqrt/d|
000013b0 69 73 74 61 6e 63 65 20 65 78 63 68 20 64 65 66 |istance exch def|
000013c0 20 65 43 20 65 4d 20 65 59 20 65 4b 0a 73 65 74 | eC eM eY eK.set|
000013d0 63 6d 79 6b 63 6f 6c 6f 72 20 6e 65 77 70 61 74 |cmykcolor newpat|
000013e0 68 20 43 6c 69 70 4c 6f 77 58 20 43 6c 69 70 4c |h ClipLowX ClipL|
000013f0 6f 77 59 20 43 6c 69 70 48 69 67 68 58 20 43 6c |owY ClipHighX Cl|
00001400 69 70 48 69 67 68 59 20 42 78 20 53 5f 65 6f 66 |ipHighY Bx S_eof|
00001410 69 6c 6c 20 65 43 0a 32 35 35 20 6d 75 6c 20 73 |ill eC.255 mul s|
00001420 43 20 32 35 35 20 6d 75 6c 20 73 75 62 20 61 62 |C 255 mul sub ab|
00001430 73 20 65 4d 20 32 35 35 20 6d 75 6c 20 73 4d 20 |s eM 255 mul sM |
00001440 32 35 35 20 6d 75 6c 20 73 75 62 20 61 62 73 20 |255 mul sub abs |
00001450 4d 61 78 20 65 59 20 32 35 35 20 6d 75 6c 20 73 |Max eY 255 mul s|
00001460 59 0a 32 35 35 20 6d 75 6c 20 73 75 62 20 61 62 |Y.255 mul sub ab|
00001470 73 20 4d 61 78 20 65 4b 20 32 35 35 20 6d 75 6c |s Max eK 255 mul|
00001480 20 73 4b 20 32 35 35 20 6d 75 6c 20 73 75 62 20 | sK 255 mul sub |
00001490 61 62 73 20 4d 61 78 20 65 6e 64 59 20 73 74 61 |abs Max endY sta|
000014a0 72 74 59 20 65 6e 64 58 0a 73 74 61 72 74 58 20 |rtY endX.startX |
000014b0 4e 75 6d 53 74 65 70 73 20 4d 69 6e 20 32 35 36 |NumSteps Min 256|
000014c0 20 4d 69 6e 20 63 65 69 6c 69 6e 67 20 64 75 70 | Min ceiling dup|
000014d0 20 30 20 65 71 7b 70 6f 70 20 31 7d 69 66 2f 53 | 0 eq{pop 1}if/S|
000014e0 74 65 70 73 20 65 78 63 68 20 64 65 66 2f 69 6e |teps exch def/in|
000014f0 63 43 20 65 43 0a 73 43 20 73 75 62 20 53 74 65 |cC eC.sC sub Ste|
00001500 70 73 20 64 69 76 20 64 65 66 2f 69 6e 63 4d 20 |ps div def/incM |
00001510 65 4d 20 73 4d 20 73 75 62 20 53 74 65 70 73 20 |eM sM sub Steps |
00001520 64 69 76 20 64 65 66 2f 69 6e 63 59 20 65 59 20 |div def/incY eY |
00001530 73 59 20 73 75 62 20 53 74 65 70 73 20 64 69 76 |sY sub Steps div|
00001540 0a 64 65 66 2f 69 6e 63 4b 20 65 4b 20 73 4b 20 |.def/incK eK sK |
00001550 73 75 62 20 53 74 65 70 73 20 64 69 76 20 64 65 |sub Steps div de|
00001560 66 2f 69 6e 63 44 20 64 69 73 74 61 6e 63 65 20 |f/incD distance |
00001570 53 74 65 70 73 20 64 69 76 20 64 65 66 2f 64 69 |Steps div def/di|
00001580 73 74 61 6e 63 65 20 30 20 64 65 66 0a 30 20 31 |stance 0 def.0 1|
00001590 20 53 74 65 70 73 20 31 20 73 75 62 7b 73 43 20 | Steps 1 sub{sC |
000015a0 73 4d 20 73 59 20 73 4b 20 73 65 74 63 6d 79 6b |sM sY sK setcmyk|
000015b0 63 6f 6c 6f 72 2f 73 43 20 73 43 20 69 6e 63 43 |color/sC sC incC|
000015c0 20 61 64 64 20 64 65 66 2f 73 4d 20 73 4d 20 69 | add def/sM sM i|
000015d0 6e 63 4d 20 61 64 64 0a 64 65 66 2f 73 59 20 73 |ncM add.def/sY s|
000015e0 59 20 69 6e 63 59 20 61 64 64 20 64 65 66 2f 73 |Y incY add def/s|
000015f0 4b 20 73 4b 20 69 6e 63 4b 20 61 64 64 20 64 65 |K sK incK add de|
00001600 66 20 6e 65 77 70 61 74 68 20 73 74 61 72 74 58 |f newpath startX|
00001610 20 73 74 61 72 74 59 20 64 69 73 74 61 6e 63 65 | startY distance|
00001620 20 30 0a 33 36 30 20 61 72 63 20 63 6c 6f 73 65 | 0.360 arc close|
00001630 70 61 74 68 20 64 69 73 74 61 6e 63 65 20 69 6e |path distance in|
00001640 63 44 20 61 64 64 20 64 75 70 2f 64 69 73 74 61 |cD add dup/dista|
00001650 6e 63 65 20 65 78 63 68 20 64 65 66 20 30 20 72 |nce exch def 0 r|
00001660 6d 6f 76 65 74 6f 20 73 74 61 72 74 58 0a 73 74 |moveto startX.st|
00001670 61 72 74 59 20 64 69 73 74 61 6e 63 65 20 30 20 |artY distance 0 |
00001680 33 36 30 20 61 72 63 20 63 6c 6f 73 65 70 61 74 |360 arc closepat|
00001690 68 20 53 5f 65 6f 66 69 6c 6c 20 70 6f 70 7d 66 |h S_eofill pop}f|
000016a0 6f 72 7d 69 66 65 6c 73 65 7d 62 69 6e 64 20 64 |or}ifelse}bind d|
000016b0 65 66 2f 61 7a 7b 0a 2f 65 6e 64 59 20 65 78 63 |ef/az{./endY exc|
000016c0 68 20 64 65 66 2f 65 6e 64 58 20 65 78 63 68 20 |h def/endX exch |
000016d0 64 65 66 2f 73 74 61 72 74 59 20 65 78 63 68 20 |def/startY exch |
000016e0 64 65 66 2f 73 74 61 72 74 58 20 65 78 63 68 20 |def/startX exch |
000016f0 64 65 66 2f 65 4b 20 65 78 63 68 20 64 65 66 2f |def/eK exch def/|
00001700 65 59 0a 65 78 63 68 20 64 65 66 2f 65 4d 20 65 |eY.exch def/eM e|
00001710 78 63 68 20 64 65 66 2f 65 43 20 65 78 63 68 20 |xch def/eC exch |
00001720 64 65 66 2f 73 4b 20 65 78 63 68 20 64 65 66 2f |def/sK exch def/|
00001730 73 59 20 65 78 63 68 20 64 65 66 2f 73 4d 20 65 |sY exch def/sM e|
00001740 78 63 68 20 64 65 66 2f 73 43 20 65 78 63 68 0a |xch def/sC exch.|
00001750 64 65 66 2f 76 5f 66 74 20 65 78 63 68 20 64 65 |def/v_ft exch de|
00001760 66 7d 62 64 2f 61 78 7b 31 36 20 34 20 72 6f 6c |f}bd/ax{16 4 rol|
00001770 6c 20 61 5f 74 63 20 31 34 20 34 20 72 6f 6c 6c |l a_tc 14 4 roll|
00001780 20 61 5f 74 63 20 31 32 20 34 20 72 6f 6c 6c 20 | a_tc 12 4 roll |
00001790 61 7a 7d 62 64 2f 61 78 6d 7b 0a 2f 65 6e 64 59 |az}bd/axm{./endY|
000017a0 20 65 78 63 68 20 64 65 66 2f 65 6e 64 58 20 65 | exch def/endX e|
000017b0 78 63 68 20 64 65 66 2f 73 74 61 72 74 59 20 65 |xch def/startY e|
000017c0 78 63 68 20 64 65 66 2f 73 74 61 72 74 58 20 65 |xch def/startX e|
000017d0 78 63 68 20 64 65 66 7d 62 64 2f 61 6c 79 72 7b |xch def}bd/alyr{|
000017e0 70 6f 70 20 70 6f 70 0a 31 20 65 71 7b 74 72 75 |pop pop.1 eq{tru|
000017f0 65 7d 7b 66 61 6c 73 65 7d 69 66 65 6c 73 65 2f |e}{false}ifelse/|
00001800 76 69 73 5f 66 6c 61 67 20 65 78 63 68 20 64 65 |vis_flag exch de|
00001810 66 20 70 6f 70 20 70 6f 70 7d 62 64 0a |f pop pop}bd.|
0000181d 
.