LINETOAR (W*32, W*64)

Module

USE IFQWIN

Syntax

result = LINETOAR (loc(fx), loc(fy), loc(tx) loc(ty), cnt)

fx	(Input) INTEGER(2). From x viewport coordinate array.
fy	(Input) INTEGER(2). From y viewport coordinate array.
tx	(Input) INTEGER(2). To x viewport coordinate array.
ty	(Input) INTEGER(2). To y viewport coordinate array.
cnt	(Input) INTEGER(4). Length of each coordinate array; all should be the same size.

Results

The result type is 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

Example

! Build for QuickWin or Standard Graphics

USE IFQWIN

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