04.02.03.01 / Subroutine library

All PVT documentation can be found under PHIGS Validation Tests - Overview. Also, you may return to the Table of PVT subroutines.

Functions and subroutines within this library:

  loctx1
  loctx2
End of directory

04.02.03.01 / loctx1
C  *********************************************************
C  *                                                       *
C  *    SUBROUTINE 04.02.03.01/loctx1                      *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      SUBROUTINE LOCTX1 (YLOC, XVAL, SCF)

C  LOCTX1 draws a text string at the real y-location corresponding
C  to the integer index given in YLOC, scaled down by SCF

      INTEGER    YLOC

      REAL       XVAL, YLOCEL, SCF

      CALL PTX (XVAL/SCF, YLOCEL(YLOC)/SCF, 'Phigs')

      END


04.02.03.01 / loctx2
C  *********************************************************
C  *                                                       *
C  *    SUBROUTINE 04.02.03.01/loctx2                      *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      SUBROUTINE LOCTX2 (YLOC, XVAL)

C  LOCTX2 draws a text string at the real y-location corresponding
C  to the integer index given in YLOC, and puts a polymarker at
C  the text position.

      INTEGER    YLOC

      REAL       XVAL, YLOCEL, XA(1),YA(1)

      XA(1) = XVAL
      YA(1) = YLOCEL(YLOC)
      CALL PPM (1, XA,YA)
      CALL PTX (XVAL, YLOCEL(YLOC), 'Phigs')

      END