Graphics Function: Draws a line between each x,y point in the from-array to each corresponding x,y point in the to-array.
Module: USE DFLIB
Syntax
Results:
The result is of type INTEGER(2). The result is a nonzero value if successful; otherwise, zero.
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.
Compatibility
STANDARD GRAPHICS QUICKWIN GRAPHICS
See Also: LINETO, LINETOAREX, LOC, SETCOLORRGB, SETLINESTYLE, SETWRITEMODE
Example
! Build for QuickWin or Standard Graphics
USE DFLIB
integer(2) fx(3),fy(3),tx(3),ty(3),result
integer(4) cnt, i
! load the points
do i = 1,3
!from here
fx(i) =20*i
fy(i) =10
!to there
tx(i) =20*i
ty(i) =60
end do
! draw the lines all at once
! 3 white vertical lines in upper left corner
result = LINETOAR(loc(fx),loc(fy),loc(tx),loc(ty), 3)
end