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