	SUBROUTINE IFSTYL( LTYP, LWID )
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY,  JAN-1988
C
C	THIS ROUTINE SETS ACTIVE PLOTTING STYLUS
C	FOR SUBSEQUENT VECTOR GENERATIONS.
C
C	LTYP: ACTIVE LINE TYPE (SOFEWARE IMPLEMENTATION).
C
C		LTYP = 1: SOLID
C		LTYP = 2: DOTTED
C		LTYP = 3: 1 DOT CENTER
C		LTYP = 4: SHORT DASH
C		LTYP = 5: MEDIUM DASH
C		LTYP = 6: 3 DOT CENTER
C		LTYP = 7: LONG AND SHORT DASH
C		LTYP = 8: LOOSE DASH
C
C	LWID: ACTIVE LINE WIDTH NUMBER (HARDWARE IMPLEMENTATION).
C
	INCLUDE 'HP7221.CBS'
     	COMMON/IFDRAW_DASH/ IFID, IFIP, IFWD, DRES

     	IF( LTYP.EQ.LTY .AND. LWID.EQ.LWD ) RETURN
     	IF( IABS(LTYP).GT.0 ) THEN
     	    LTY = IABS(LTYP)
     	    IF( LTY.GT.8 ) LTY = 8
     	ENDIF
     	IF( IABS(LWID).GT.0 ) THEN
     	    LWD = IABS(LWID)
     	    IF( LWD.GT.9 ) LWD = 9
     	ENDIF
C
C  INITIALIZE LINE ATTRIBUTES...
C
     	IFID = 0		!LINE SEGMENT POINTER
     	IFIP = 2		!PEN UP/DOWN INDICATOR
     	IFWD = LWD		!LINE WIDTH FLAG
     	DRES = 0		!RESIDUAL DASH SEGMENT

999	RETURN
	END

     	SUBROUTINE IFSTYL_NOW( LTYP, LWID )
C
C	THIS ROUTINE REPORTS THE ACTIVE LINE TYPE AND LINE WIDTH.
C
     	INCLUDE 'HP7221.CBS'

     	LTYP = LTY
     	LWID = LWD

     	RETURN
     	END
