PDP-10 Archive: decus/20-0049/linplt.for from decuslib20-02

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0049/linplt.for

There is 1 other file named linplt.for in the archive. Click here to see a list.

      SUBROUTINE LINPLT(XCOORD,YCOORD,XFIRST,YFIRST,XFINAL,YFINAL,
     1                  XWIDTH,YWIDTH,XCORNR,YCORNR, LASTX, LASTY)
C     LINPLT                                                    09/20/67
C     GENPLT-II PROGRAM TO CONTINUE PREVIOUS LINE TO NEW COORDINATES
C
C     DONALD BARTH, C/O K.B. WIBERG, DEPT. OF CHEMISTRY, YALE UNIVERSITY
C
C     SUBROUTINE LINPLT ARGUMENT LIST DEFINITIONS.
C
C     XCOORD = X OR HORIZONTAL COORDINATE TO WHICH LINE IS TO BE PLOTTED
C     YCOORD = Y OR VERTICAL COORDINATE TO WHICH LINE IS TO BE PLOTTED
C     XFIRST = X COORDINATE COORESPONDING TO LEFT EDGE OF PLOT AREA.
C     YFIRST = Y COORDINATE COORESPONDING TO LOWER EDGE OF PLOT AREA.
C     XFINAL = X COORDINATE COORESPONDING TO RIGHT EDGE OF PLOT AREA.
C     YFINAL = Y COORDINATE COORESPONDING TO UPPER EDGE OF PLOT AREA.
C     XWIDTH = HORIZONTAL WIDTH OF PLOT AREA.
C     YWIDTH = VERTICAL HEIGHT OF PLOT AREA.
C     XCORNR = X DISTANCE FROM PLOTTING TABLE ORIGIN TO LEFT PLOT EDGE.
C     YCORNR = Y DISTANCE FROM PLOTTING TABLE ORIGIN TO LOWER PLOT EDGE.
C     LASTX  = LAST X GRID COORDINATE PLOTTED.
C     LASTY  = LAST Y GRID COORDINATE PLOTTED.
C
       COMMON/PPARM/FACTOR,OFSETX,OFSETY,IERR,IPEN,NTAPE,MODE,IPOINT,
     1IFREER,ILINE
      MODE = ILINE
      NEWX=FACTOR*(XCORNR+(XWIDTH*(XCOORD-XFIRST)/(XFINAL-XFIRST)))
     . + OFSETX
      NEWY=FACTOR*(YCORNR+(YWIDTH*(YCOORD-YFIRST)/(YFINAL-YFIRST)))
     . + OFSETY
      CALL PENDWN(LASTX,LASTY,NEWX,NEWY)
      RETURN
      END