summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/GRAPHIC/PS/starbrst.ps
blob: a2665e94cdd4e7e91cfb3ac1ede7b7a50e438a29 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
userdict begin
% Usage : -- starburstfill --
% Fill current path with "Star Burst"
/starburstfill {
10 dict begin
	pathbbox /uy exch def /ux exch def /ly exch def /lx exch def
	ux lx sub /xs exch def xs dup mul
	uy ly sub /ys exch def ys dup mul
	add sqrt /R exch def
	clip
	newpath
	lx xs 2 div add /xx exch def
	ly ys 2 div add /yy exch def
	0 2 359.9 {
		xx yy moveto
		dup cos R mul exch sin R mul rlineto
	} for
	stroke
end
} bind def

% Usage : <strings> starburstshow --
/starburstshow {
2 dict begin
	dup stringwidth /yw exch def /xw exch def gsave
	currentpoint newpath moveto
	false charpath starburstfill grestore xw yw rmoveto
end
} bind def
end