POLYLINEQQ

Graphics Function: Draws a line between each sucessive x, y point in a given array.

Module: USE DFLIB

Syntax

result = POLYLINEQQ (points, cnt)

points
(Input) An array of DF_POINT objects. The derived type DF_POINT is defined in DFLIB.F90 as:

type DF_POINT
  sequence
  integer(4) x
  integer(4) y
end type DF_POINT

cnt
(Input) INTEGER(4). Number of elements in the points array. On Windows 9* systems, cnt must be less than or equal to 16383. This is a limitation of the operating system.

Results:

The result is of type INTEGER(4). The result is a nonzero value if successful; otherwise, zero.

POLYLINEQQ uses the viewport-coordinate system.

The lines are drawn using the current graphics color, logical write mode, and line style. The graphics color is set with SETCOLORRGB, the write mode with SETWRITEMODE, and the line style with SETLINESTYLE.

The current graphics position is not used or changed as it is in the LINETO function.

Compatibility

STANDARD GRAPHICS QUICKWIN GRAPHICS

See Also: LINETO, LINETOAREX, SETCOLORRGB, SETLINESTYLE, SETWRITEMODE

Example

  ! Build for QuickWin or Standard Graphics
  USE DFLIB
  TYPE(DF_POINT) points(12)
  integer(4) result
  integer(4) cnt, i
  ! load the points
  do i = 1,12,2
    points(i).x =20*i
    points(i).y =10
    points(i+1).x =20*i
    points(i+1).y =60
  end do
  ! A sawtooth pattern will appear in the upper left corner
  result = POLYLINEQQ(points, 12)
  end