aboutsummaryrefslogtreecommitdiff
path: root/src/graph/PS/fillwol.ps
blob: 4980732bafcaf7ac1cc9c4efbd42ac678e80bccb (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
% operand stack configuration in order to use psDrawFilled:
%		psFillwOL
%		XPoint[0].y
%		XPoint[0].x
%		n
%		...
%		XPoint[n].y
%		XPoint[n].x
%		graphics-context dictionary
% this draws lines connecting all the points and fills the
% region with background color (default: 1, or white).

/psFillwOutline
        {	gsave
                newpath
                yVal moveto
                1 sub {
                        yVal lineto
                } repeat
		closepath
		begin installGC
			gsave fill grestore	%% fills with foreground color
		0 setgray stroke grestore end }	%% outline it with black
        def