Visible to Intel only — GUID: GUID-CCF51976-5BEA-4184-94BE-A279BFEC3D3D
Visible to Intel only — GUID: GUID-CCF51976-5BEA-4184-94BE-A279BFEC3D3D
POLYLINEQQ
Graphics Function: Draws a line between each successive x, y point in a given array. This routine is only available for Windows.
USE IFQWIN
result = POLYLINEQQ (points,cnt)
points |
(Input) An array of DF_POINT objects. The derived type DF_POINT is defined in IFQWIN.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. |
The result type is 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.
! Build for QuickWin or Standard Graphics
USE IFQWIN
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