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.
# GPLOTV -- Plot a vector on an open graphics device. This routine is
# provided for the convenience of the user who does not need to exercise
# fine control over the details of how the plot is generated, but who may
# wish to select an output device other than stdgraph or who may wish to
# leave the device open for annotation.
procedure gploto (gp, v, npts, x1, x2, title)
pointer gp # graphics descriptor
real v[ARB] # data vector
int npts # number of data points
real x1, x2 # range of X in data vector
char title[ARB] # plot title
errchk gswind, gascale, glabax
begin
call gswind (gp, x1, x2, INDEF, INDEF)
call gascale (gp, v, npts, 2)
call glabax (gp, title, "", "")
call gvline (gp, v, npts, x1, x2)
end
|
