# LINETOAR (W*S)

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 IFQWIN

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.

## 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

Parent topic: Graphics Library Routines

## See Also

LINETO
LINETOAREX
LOC
SETCOLORRGB
SETLINESTYLE
SETWRITEMODE