	SUBROUTINE IFFONT( IFONT )
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY, JUNE-1988
C
C	THIS ROUTINE SELECTS ACTIVE FONT FOR TEXT DRAWING.
C
C	IFONT = 1: STANDARD FONT AS DEFINED IN "IFINIT".
C	IFONT = 2: ITALIC STANDARD FONT.
C	IFONT = 3: BOLDFACE STANDARD FONT.
C
     	INCLUDE 'HP7550.CBS'

     	IF( IFONT.EQ.IFN .OR. IFONT.LT.1 .OR. IFONT.GT.3 ) GOTO 999

     	IF( IFONT.EQ.2 .OR. IFN.EQ.2 ) THEN
    	    IF( IPL.GT.NBS-10 ) CALL IFINIT_DUMP
    	    IPB(IPL+1) = 'S'
    	    IPB(IPL+2) = 'L'
    	    IPL = IPL + 2
    	    IF( IFONT.EQ.2 ) CALL IFDRAW_CDFF( TAN(15.0*D2R) )
    	    IF(   IFN.EQ.2 ) CALL IFDRAW_CDFF( 0.0 )
     	ENDIF

     	IFN = IFONT

999	RETURN
	END

