home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d2xx / d267 / diglib.lha / Diglib / diglib.zoo / diglib / CLLINE.FOR < prev    next >
Text File  |  1989-06-20  |  433b  |  18 lines
  1.         SUBROUTINE CLLINE(X1,Y1,X2,Y2)
  2. C
  3. C       THIS SUBROUTINE DRAWS THE LINE FROM X1,Y1 TO X2,Y2 WITH
  4. C       THE APPROPIATE CLIPPING
  5. C
  6.         INCLUDE PLTSIZ.PRM
  7. C
  8.         DIMENSION AREA(4)
  9. C
  10.         CALL GSSCLP(XVSTRT,XVSTRT+XVLEN,YVSTRT,YVSTRT+YVLEN,AREA)
  11.         CALL SCALE(X1,Y1,VX,VY)
  12.         CALL GSMOVE(VX,VY)
  13.         CALL SCALE(X2,Y2,VX,VY)
  14.         CALL GSDRAW(VX,VY)
  15.         CALL GSRCLP(AREA)
  16.         RETURN
  17.         END
  18.