Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/pglcur.dc2 Дата изменения: Wed Oct 31 05:16:10 2001 Дата индексирования: Fri Jan 16 01:17:44 2009 Кодировка: Поисковые слова: http astrokuban.info astrokuban

Name: PGLCUR

Purpose: draw a line using the cursor

Category: GRAPHICS

File: pgplot.src

Author: T.J. Pearson

Use: see description below.

Description:

SUBROUTINE PGLCUR (MAXPT, NPT, X, Y)
INTEGER MAXPT, NPT
REAL X(*), Y(*)

Interactive routine for user to enter a polyline by use of
the cursor. Routine allows user to Add and Delete vertices;
vertices are joined by straight-line segments.

Arguments:
MAXPT (input) : maximum number of points that may be accepted.
NPT (in/out) : number of points entered; should be zero on
first call.
X (in/out) : array of x-coordinates (dimension at least MAXPT).
Y (in/out) : array of y-coordinates (dimension at least MAXPT).

Notes:

(1) On return from the program, cursor points are returned in
the order they were entered. Routine may be (re-)called with points
already defined in X,Y (# in NPT), and they will be plotted
first, before editing.

(2) User commands: the user types single-character commands
after positioning the cursor: the following are accepted:
A (Add) - add point at current cursor location.
D (Delete) - delete last-entered point.
X (eXit) - leave subroutine.

Updates: Oct 16, 1998: JPT automatically extracted from source.