Campbell PC208 Instruction Manual download pdf (Page 41)

ELSE

CALL NUMAXIS(XTICK+0.1,YTICK,YLABEL, XW,YH,NXPIX

& , NYPIX,2, .FALSE.) !!!! NO LOG PLOT ON YAXIS

ENDIF

10 CONTINUE

RETURN

END SUBROUTINE PLOTYTICK

!=========================================================

SUBROUTINE NUMAXIS(WXP,WYP,VALUE,XW,YH,NXPIX,NYPIX,NAXIS, LOGPLOT)

! THE MAJOR TICKS

!=========================================================

USE DFLIB

IMPLICIT NONE

REAL*8 WXP, DWXP, WYP, DWYP, VALUE, XW,YH

INTEGER NXPIX, NYPIX, CHEI, CWID

INTEGER I, STATUS, NPOINTS/1/, NAXIS, TLEN

INTEGER NCBEG, NCEND, NC1,NC2,NC3

CHARACTER*16 TEMPSTR, FMS, LOGSTR

LOGICAL LOGPLOT

TYPE (XYCOORD) XY

TYPE (WXYCOORD) WXY

TYPE (WINDOWCONFIG) WINC

TYPE (FONTINFO) FONT

COMMON WINC

! ... get the font information

STATUS = INITIALIZEFONTS()

I = SETFONT("T'COURIER NEW'H20W10")

I = GETFONTINFO(FONT)

CWID = FONT.PIXWIDTH

CHEI = FONT.PIXHEIGHT

! ... get the tick value

WRITE(FMS,'(A5,I2,A1)') '(F10.',NPOINTS,')'

WRITE(TEMPSTR,FMS) VALUE

! ... trim the string for leading blanks

NCBEG = 1

DO WHILE(TEMPSTR(NCBEG:NCBEG) .EQ.'')

NCBEG = NCBEG+1

END DO

NCEND = NCBEG + LEN_TRIM(TEMPSTR(NCBEG:))-1

! ... add in the exponent for a log scale

IF(LOGPLOT) THEN

LOGSTR = '1E'//TEMPSTR(NCBEG:NCEND)

CALL NCSTRING(LOGSTR,NC1)

TEMPSTR(1:NC1) = LOGSTR(1:NC1)

NCBEG = 1

NCEND = NC1

ENDIF

TLEN = GETGTEXTEXTENT(TEMPSTR(NCBEG:NCEND))

! ... add an offset for the text (to centre it on the ticks)

IF(NAXIS.EQ.1) THEN

DWYP = 0.0

DWXP = -((REAL(TLEN)/2.)/REAL(NXPIX)*XW)

ELSE

DWYP = ((REAL(CHEI)/2.)/REAL(NYPIX)*YH)

DWXP = -((REAL(TLEN) )/REAL(NXPIX)*XW)

ENDIF

CALL MOVETO_W(WXP+DWXP,WYP+DWYP,WXY)

CALL SETGTEXTROTATION(0)

CALL OUTGTEXT( TEMPSTR(NCBEG:NCEND))

RETURN

END SUBROUTINE NUMAXIS

C==========================================================

SUBROUTINE AXISSET(LOW, HIGH, RSCALE, NTICKS, DTICKS)

1 2 ... 36 37 38 39 40 41 42 43 44 45 46 ... 53 54

Comments to this Manuals

No comments

Campbell PC208 Instruction Manual Page 41

Comments to this Manuals

Related products and manuals for Software Campbell PC208