src/graph/PS/drawpoint.ps


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

% operand stack configuration in order to use psDrawPoint:
%		psDrawPoint
%		y0
%		x0
%		graphics-context dictionary
% this draws a point at (x0, y0).

/psDrawPoint
        {	gsave
                newpath
                yVal moveto
                yVal lineto
		begin installGC stroke end       %%fills with foreground color
		grestore }
        def