blob: 1d3b5080983b5cad2e3b193171e4f8cc5798db16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
% operand stack configuration in order to use psDraw:
% psDraw
% vlist[0].y
% vlist[0].x
% n
% ...
% vlist[n].y
% vlist[n].x
% graphics-context dictionary
% to draw lines connecting points in vlist[0] to vlist[n]
/psDraw
{ gsave
newpath
yVal moveto %% set currentpoint
1 sub { %% loop to draw lines.
yVal lineto
} repeat
begin installGC stroke end %% draw in foreground color
grestore }
def
|
