Re: modifications to AGPWRT

From: Stephane_Ethier@XXXXXX
Date: Fri Feb 03 1995 - 08:19:33 MST


I don't exactly know what's wrong with Leslie Hartten's AGPWRT routine
but whenever I want to use PLCHHQ with Autograph, I add the following
version of AGPWRT to my program.

c-----------------------------------------------------------
      SUBROUTINE AGPWRT (PX,PY,CHRS,NCHS,ISIZ,IORI,ICEN)
      REAL*4 SIZE, ORIEN, CENTR, CSPACE, CSFL
      CHARACTER*(*) CHRS
C
      CALL PCGETR ('CS - CONSTANT SPACING FLAG',CSFL)
C
      IF (ICEN.NE.0) THEN
         CSPACE = 1.25
         CALL PCSETR ('CS - CONSTANT SPACING FLAG',CSPACE)
      ELSE
         CSPACE = 0.0
         CALL PCSETR ('CS - CONSTANT SPACING FLAG',CSPACE)
      END IF
C
      SIZE = 0.8*(ISIZ)
      ORIEN = REAL(IORI)
      CENTR = REAL(ICEN)
C
      CALL PLCHHQ (PX,PY,CHRS(1:NCHS),SIZE,ORIEN,CENTR)
C
      CALL PCSETR ('CS - CONSTANT SPACING FLAG',CSFL)
      RETURN
      END
c-----------------------------------------------------------

Stephane Ethier.



This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:45:31 MDT