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

Name: PGLINE

Purpose: draw a polyline (curve defined by line-segments)

Category: GRAPHICS

File: pgplot.src

Author: T.J. Pearson

Use: see description below.

Description:

SUBROUTINE PGLINE (N, XPTS, YPTS)
INTEGER N
REAL XPTS(*), YPTS(*)

Primitive routine to draw a Polyline. A polyline is one or more
connected straight-line segments. The polyline is drawn using
the current setting of attributes color-index, line-style, and
line-width. The polyline is clipped at the edge of the window.
Points of which either the XPTS or the YPTS value is BLANK, will
be skipped.

Arguments:
N (input) : number of points defining the line; the line
consists of (N-1) straight-line segments.
N should be greater than 1 (if it is 1 or less,
nothing will be drawn).
XPTS (input) : world x-coordinates of the points.
YPTS (input) : world y-coordinates of the points.

The dimension of arrays X and Y must be greater than or equal to N.
The "pen position" is changed to (X(N),Y(N)) in world coordinates
(if N > 1).

Updates: Oct 16, 1998: JPT automatically extracted from source.
Mar 7, 2000: JPT modified for skipping BLANK coordinates.