blob: 929fab44c6dfd6aef734ad7c443219ba025cf70c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# GVLINE -- Vector polyline. Draw a line connecting the points (X[i],V[i]),
# where the X[i] are evenly distributed from X1 to X2.
procedure gvline (gp, v, npts, x1, x2)
pointer gp # graphics descriptor
real v[ARB] # Y coordinates of the polyline
int npts # number of polyline points
real x1, x2 # range of X coordinates of the polyline
int i
real dx
begin
if (npts > 1) {
dx = (x2 - x1) / (npts - 1)
call gamove (gp, x1, v[1])
do i = 2, npts
call gadraw (gp, (i-1) * dx + x1, v[i])
}
end
|
