I'm trying to use AGCHCU with autograph to get coloured lines. I get
the coloured lines alright, and I get the expected debugging printouts
when I run the program.
Unfortunately, the top and bottom axes are also coloured. I have even
tried adding agchax calls to force the axes back to black.
AGCHCU appears to be failing with NCAR 4.0 on an SGI machine. The
example works correctly on an IBM RS6000 machine running NCAR 3.2.
Here is my agchcu. Any obvious mistakes?
----------------------------------------------------------------------
SUBROUTINE AGCHCU (IFLG,KDSH)
IMPLICIT NONE
INTEGER IFLG,KDSH
LOGICAL COLOURCURVES
INTEGER NCURVCOL,MAXNCURVCOL,ICURVCOL(7)
INTEGER IPATNE
CHARACTER PAT(26)*16
COMMON /CCCAGCHCU/ COLOURCURVES,NCURVCOL,MAXNCURVCOL,ICURVCOL,
$ PAT,IPATNE
INTEGER NCURRCOL
SAVE NCURRCOL
DATA NCURRCOL/0/
INTEGER I,K
REAL CR,CG,CB
WRITE(*,*)'AGCHCU: ',COLOURCURVES,IFLG
IF(COLOURCURVES) THEN
CDEBUG
C CALL GQCR(1,0,0,K,CR,CG,CB)
C WRITE(*,*)'BACK: ',CR,CG,CB
C CALL GQCR(1,1,0,K,CR,CG,CB)
C WRITE(*,*)'FORE: ',CR,CG,CB
C WRITE(*,*)'PATTERNS: ',NCURVCOL,(ICURVCOL(I),I=1,NCURVCOL)
C WRITE(*,*)NCURRCOL,IFLG,MOD(NCURRCOL,NCURVCOL),
C $ ICURVCOL(MOD(NCURRCOL,NCURVCOL)+1)-98
CDEBUG
IF(IFLG.EQ.0) THEN
WRITE(*,*) 'colour'
CALL GSPLCI(ICURVCOL(MOD(NCURRCOL,NCURVCOL)+1)-98)
IF((NCURRCOL/NCURVCOL).GT.0) THEN
CALL DASHDB(PAT(NCURRCOL/NCURVCOL))
ENDIF
NCURRCOL=NCURRCOL+1
ELSE
WRITE(*,*) 'black'
CALL GSPLCI(1)
ENDIF
ELSE
WRITE(*,*) 'not colourcurves'
CALL GSPLCI(1)
ENDIF
RETURN
END
----------------------------------------------------------------------
This archive was generated by hypermail 2b29 : Wed Jun 28 2000 - 09:45:39 MDT