# **************************************************************
#	zpntbl.4bw
#	Modified 11/22/94 by Phil Faires
#       Modified 5/1/96 by Don Garlow to define Line Style 8
#	         5/8/96 pf...
#                6/21/96 by Don Garlow for ZDFS
# **************************************************************
#
#	This is the CALTRANS standard Pen Table for use
#	with 400 dpi plotters and the new (zdfs/zdfi) ZEH software.
#	It provides for dropout of levels 2-9,11 and for
#	colors 85-100.  This table also adjusts line weights
#	downward for dropout elements.
#       This table sets all elements to color 0 to avoid dithering.
#	(SEE STATEMENT BELOW REGARDING DROPOUT LINE STYLE)
#	* Dropout line style established as "random" dot pattern to
#	  provide better distinction of line values when plotting to
#	  reduced sized plots.   (5/8/96  pf)

# *************************************************************
# Define Line Style 8
# *************************************************************

INIT

line_style_def (8)="0.0075, 0.020, 0.010, 0.0225, 0.0125, 0.025, 0.010, 0.0225"

ENDINIT

# *************************************************************
# SET DROPOUTS ON LEVELS 2-9,11 AND COLORS 85-100
# *************************************************************

if ((level .in. {2-9,11}) .AND. COLOR .ni. {101-116}) then
	STYLE=8
ENDIF

if (COLOR .IN. {85-100}) THEN
	STYLE=8
ENDIF

# *************************************************************
# ADJUST DROPOUT WEIGHTS BY LEVEL 2-9,11 AND EXCLUDE COLORS 101-116
# *************************************************************

IF ((LEVEL .EQ. 9) .AND. WEIGHT .IN. {1-31}) THEN
	WEIGHT = 1
ENDIF

IF ((LEVEL .IN. {2-8,11}) .AND. COLOR .NI. {101-116}) THEN
	IF (WEIGHT .EQ. 1) THEN
		WEIGHT = 0
	ENDIF
ENDIF

# ************************************************************
#   This logic added by Don Garlow to set Line Style 1 to the
#   dropout line style (8), similar to IPLOT.
#
IF ((LEVEL .NI. {2-9,11}) .AND. STYLE .EQ. 1) THEN
        STYLE = 8
ENDIF
# *************************************************************

IF ((LEVEL .IN. {2-8,11}) .AND. COLOR .NI. {101-116}) THEN
	IF (WEIGHT .IN. {2-3} ) THEN
		WEIGHT = 1
	ENDIF
ENDIF

IF ((LEVEL .IN. {2-8,11}) .AND. COLOR .NI. {101-116}) THEN
	IF (WEIGHT .IN. {4-5}) THEN
		WEIGHT = 2
	ENDIF
ENDIF

IF ((LEVEL .IN. {2-8,11}) .AND. COLOR .NI. {101-116}) THEN
	IF (WEIGHT .IN. {6-7}) THEN
		WEIGHT = 3
	ENDIF
ENDIF	

IF ((LEVEL .IN. {2-8,11}) .AND. COLOR .NI. {101-116}) THEN
	IF (WEIGHT .IN. {8-31}) THEN
		WEIGHT = 4
	ENDIF
ENDIF

# *******************************************
# SET DROPOUT WEIGHT BY COLOR 85-100 SECTION
# *******************************************

IF (COLOR .IN. {85-100}) THEN
	IF (WEIGHT .EQ. 1) THEN
		WEIGHT = 0
	ENDIF
ENDIF

IF (COLOR .IN. {85-100}) THEN
	IF (WEIGHT .IN. {2-3}) THEN
		WEIGHT = 1
	ENDIF
ENDIF

IF (COLOR .IN. {85-100}) THEN
	IF (WEIGHT .IN. {4-5}) THEN
		WEIGHT = 2
	ENDIF
ENDIF

IF (COLOR .IN. {85-100}) THEN
	IF (WEIGHT .IN. {6-7}) THEN
		WEIGHT = 3
	ENDIF
ENDIF
	
IF (COLOR .IN. {85-100}) THEN
	IF (WEIGHT .IN. {8-31}) THEN
		WEIGHT = 4
	ENDIF
ENDIF

# ********************************************************
# REPLACE TEXT STRING WITH DATE/TIME/USER INFORMATION
# ********************************************************

IF (STRING .eqs. "$TIME") THEN
	REPLACE=.true.
ENDIF

IF (STRING .eqs. "$DATE") THEN
	REPLACE=.true.
ENDIF

IF (STRING .eqs. "$USER") THEN
	REPLACE=.true.
ENDIF

IF (STRING .eqs. "$REQUEST") THEN
	REPLACE=.true.
ENDIF

# *******************************************
# SET ALL COLORS TO BLACK TO PREVENT DITHER
# *******************************************

IF (LEVEL .IN. {1-64}) THEN
	COLOR=0
ENDIF
IF ((TYPE .EQ. 17) .AND. LEVEL .NI. {2-9,11}) THEN
    IF (COLOR .NI. {85-100}) THEN
	STYLE=0
    ENDIF 
ENDIF