weight_base=0.0045
weight_delta=0.003
weight=weight

!if (area_fill .ne. true) then
!color = 'black'
!endif
!***************************************************************************
! PUT USERNAME, TIME, DATE AND FILE NAME OF PLOT
!***************************************************************************

IF (CHARACTERS  .eq.  '$$PEN-TABLE$$') THEN
    CHARACTERS = ip_pen_table
ELSE IF (CHARACTERS  .eq.  '$$SCALE$$') THEN
    CHARACTERS = ip_scale
ELSE IF (CHARACTERS  .eq.  '$$QUEUE$$') THEN
    CHARACTERS = ip_queue
ELSE IF (CHARACTERS  .eq.  '$$ENVIRONMENT$$') THEN
    CHARACTERS = ip_environment
ENDIF

ENVR_VARIABLE="COMPUTERNAME"
IF (CHARACTERS  .eq.  '$$$$$$SYSTIME$$$$$') THEN
    CHARACTERS = SYTIME
ELSE IF (CHARACTERS  .eq.  '$$$$$$$$$$$$$$$$DGN$$$$$$$$$$$$$$$$') THEN
    CHARACTERS = DGNSPEC
ELSE IF (CHARACTERS  .eq.  '$$$$USERNAME$$$$') THEN
    CHARACTERS = USERNAME + "   AT " + ENVR_VALUE


!**********************************************************
! THIS SECTION WILL ALLOW FOR AREA FILL OF BITSTREAM FONTS.
!**********************************************************
ELSE IF (TYPE  .eq.  TEXT) THEN
!	AREA_FILL = .TRUE.
!    COLOR = 'black'
    PRIORITY = 100
ENDIF

!************************************************************
! THIS SECTION MAKES TEXT OF FONT 0-84 black AND PLOT ON TOP
!************************************************************
IF ((TYPE == TEXT) AND (FONT .IN. 0-84)) THEN
    COLOR='black'
    Priority =100
ENDIF

!**************************************************************
! These lines were added to make structures over-print shapes
! Adapted by Ross from work of Bobby Porter
!**************************************************************
if (level .eq. 6)then
    if (type .in. 3,4,6,11,12,14,15,16)then
        if (color .eq. 3)then
            Priority =45
        endif
    endif
endif

!*************************************************************
! these lines were added to make VARIOUS shapes low priority
! Adapted by Ross from work of Bobby Porter
!*************************************************************

if (level.eq.3) then
    if (type.in.6,14,15) then
        if ((color.eq.19).and.
            (style.eq.0).and.
            (weight.eq.1))then      ! MONOLITHIC CONCRETE ISLANDS/ SIDEWALK
            boundary_display=true
            area_fill=true
            fill_color= (233,233,233)
            Priority =-50
        endif
    else if ((color.eq.19).and.
                 (style.eq.5).and.
                 (weight.eq.7))then     ! HAZARDOUS MATERIAL
            Priority =-100
    endif    
else if (LEVEL_NAME .in. "Prop*sidewalk*","Prop Conc*Island*") then
		boundary_display=true
            	area_fill=true
            	fill_color= (233,233,233)
!!!            	Priority =-50
endif


!****************************************************************
! plot map cls for high,medium,and low quality wetland bound as exist
! "ncmap WLB Exi' added by gplott 06/21/00
!****************************************************************
 if ((cls_name .eq. 'ncmap WLB HQ')||
      (cls_name .eq. 'ncmap WLB LQ')||
      (cls_name .eq. 'ncmap WLB MQ'))then
    color= (0,0,0)
    cls_name = 'ncmap WLB Exi'
 endif

!****************************************************************
! ROADS Plot all plots solid even though the queues are setup to dither
!****************************************************************


! RAILROADS
IF (LEVEL  .eq.  4) THEN
    IF (COLOR  .eq.  7) THEN
        IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  6) THEN
                STYLE = (.18,.02)	!.18,.02
            ENDIF
        ENDIF
    ENDIF

! ROADS
ELSE IF (LEVEL  .eq.  3) THEN
    IF (COLOR  .in.  4,18.32) THEN
        IF (STYLE  .eq.  5 ) THEN
            IF (WEIGHT  .eq.  1) THEN
                STYLE = (.18,.04)       !.18,.03
            ENDIF
        ELSE IF (STYLE  .eq.  1) THEN
            IF (WEIGHT  .eq.  1) THEN
                STYLE = (.04,.03)           !.04,.02
            ENDIF
        ELSE IF (STYLE  .eq.  3) THEN
            IF (WEIGHT  .eq.  1) THEN
                STYLE = (.30,.04)       !.30,.03
            ELSE IF (WEIGHT  .eq.  3) THEN
                STYLE = (.30,.04)       !.30,.03
            ENDIF
        ELSE IF (cls_name .eq. 'ncmap EOP') THEN
                COLOR = (0,0,0)
        ENDIF
    ENDIF

! MAJOR STRUCTURES

ELSE IF (LEVEL  .eq.  5) THEN
    IF (COLOR  .eq.  6) THEN
        IF (WEIGHT  .eq.  3) THEN
            IF (STYLE  .eq.  3) THEN
                STYLE = (.15,.02)                 !BRIDGES,TUNNELS,BOX
            ENDIF                                        !CULVERTS
        ENDIF
    ENDIF

! MINOR STRUCTURES

ELSE IF (LEVEL  .eq.  6) THEN
    IF (COLOR  .eq.  6) THEN
        IF (WEIGHT  .eq.  3) THEN
            IF (STYLE  .eq.  2) THEN
                STYLE = (.15,.02)	!.15, .02     !FOOTBRIDGES
            ENDIF
        ELSE IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  1) THEN
                STYLE = (.04,.02)	!.04, .02      ! PAVED DITCHES OR GUTTER
            ELSE IF (STYLE  .eq.  3) THEN
                STYLE = (.30,.04)       !.30,.03
            ENDIF
        ENDIF
    ENDIF

! BUILDING & OTHER CULTURE
ELSE IF (LEVEL  .eq.  8) THEN
    IF (COLOR  .eq.  6) THEN
        IF (WEIGHT  .eq.  3) THEN
            IF (STYLE  .eq.  3) THEN
                STYLE = (.18,.02)	!.18, .02  !FOUNDATIONS
            ENDIF
        ELSE IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  3) THEN
                STYLE = (.25,.05)	!.25, .05 AREA LOOKOUTS
            ELSE IF (STYLE  .eq.  5) THEN
                STYLE = (.04,.02)	!.04, .02 U/G TANKS
            ENDIF
        ENDIF
    ENDIF

!HYDRO

ELSE IF (LEVEL  .eq.  9) THEN
    IF (COLOR  .eq.  3) THEN
        IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  1) THEN
                STYLE = (.10,.02)	!.10, .02
            ENDIF
        ENDIF
    ENDIF
ELSE IF (LEVEL  .eq.  10) THEN
    IF (COLOR  .eq.  1) THEN
        IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  6) THEN
                STYLE = (.60,.02,.02,.02,.02,.02,.02,.03)  !SAME POOL OR RESERVOIR
            ELSE IF (STYLE  .eq.  3) THEN
                STYLE = (.25,.05)       !.25, .05
            ELSE IF (STYLE  .eq.  7) THEN
                STYLE = (1.5,.02,.02,.02,.02,.02,.02,.03) !SAME
            ENDIF
        ENDIF
    ENDIF

ELSE IF (LEVEL  .eq.  11) THEN
    IF (COLOR  .eq.  2) THEN
        IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  3) THEN
                STYLE = (.25,.05)
            ELSE IF (STYLE  .eq.  2) THEN
                STYLE = (.10,.02)
            ENDIF
        ENDIF
    ENDIF

!BOUNDARIES AND PROPERTY

ELSE IF (LEVEL  .eq.  12) THEN
    IF (COLOR  .eq.  0) THEN
        IF (WEIGHT  .eq.  4) THEN
            IF (STYLE  .eq.  6) THEN
               STYLE = (.55,.02)	!.55, .02
            ELSE IF (cls_name .eq. 'ncmap Bdy Sta') then
               color = (0,0,0)
            ENDIF
        ELSE IF (WEIGHT  .eq.  1) THEN
            IF (STYLE  .eq.  6) THEN
                STYLE = (.55,.02)	!.55, .02
            else if (cls_name .eq. 'ncmap Bdy Cou') then
                          color = (0,0,0)                                          ! black
            ELSE IF (STYLE  .eq.  2) THEN
                STYLE = (.55,.02)	!.55, .02
            else if (cls_name .eq. 'ncmap Bdy Twna') then
                         color = (0,0,0)                                          ! black
            ELSE IF (STYLE  .eq.  7) THEN
                STYLE = (.10,.10,.20,.10)	!.10,.10,.20,.10
             else if (cls_name .eq. 'ncmap Bdy Cit') then
                        color = (0,0,0)                                          ! black
            ELSE IF (STYLE  .eq.  4) THEN
                STYLE = (.40,.10)	!.40, .10
             else if (cls_name .eq. 'ncmap Bdy Res') then
                        color = (0,0,0)                                          ! black
            ENDIF
        ENDIF
    ELSE IF (COLOR  .eq.  5) THEN
        IF (WEIGHT  .eq.  3) THEN
            IF (STYLE  .eq.  3) THEN
                STYLE = (1.0,.10)		!1, .10
             ELSE IF (style .eq. 3 or cls_name .eq. 'ncmap Bdy PL') then
                 COLOR = (0,0,0)
            ENDIF
        ENDIF
    ENDIF

! RIGHT OF WAY &EASEMENTS

ELSE IF (LEVEL  .eq.  13) THEN
    IF (WEIGHT  .eq.  1) THEN
         IF (COLOR  .eq.  5 AND STYLE .eq.3) THEN
              STYLE = (.70,.05)                             ! EXISTING ROW LINE
         ELSE IF (COLOR .eq. 5 and cls_name .eq. 'ncmap ROW Exi') THEN
              STYLE = (.70,.05)	!.70, .05 	    EXITING ROW LINE CLS
         ELSE IF (COLOR .eq. 5 and cls_name .eq. 'ncmap Eas Exi') THEN
                STYLE = (.70,.05)	!.70, .05         EXISTING EASEMENT CLS
          ENDIF
    ENDIF
 ENDIF

!********************************************
!INTERMEDIATE & INDEX CONTOURS for Hydro
! added 10/10/02 by sca
!********************************************
IF (LEVEL .eq. 49) THEN
	IF ((COLOR .in. 5,6) && (STYLE .eq. 0) && (WEIGHT .in. 1,2,3,4)) THEN
		COLOR =(180,180,180)
	ENDIF
ELSE IF (level_name == "DTM Contours *")THEN 
	COLOR = (180,180,180)		
ENDIF

!********************************************		
!APPROXIMATE INTERMEDIATE & INDEX CONTOURS
!********************************************
IF (LEVEL  .in.  60,61) THEN
    IF (COLOR  .in.  0,7) THEN
        IF (WEIGHT  .in.  1,3) THEN
            IF (STYLE  .eq.  2) THEN
                STYLE = (1,.10)		!1, .10
!            ELSE IF (STYLE  .eq.  2) THEN
!                STYLE = (.5,.05)	!.5, .05
            ENDIF
        ENDIF
    ENDIF
ENDIF


!****************************************************
! THIS SECTION WILL MAKE ALL PLN OR PS but Not PSH FILES WT=0, CO=black
! NAME OF PLN1-PLN10
!****************************************************
IF ( ( LNAME.IN.'PLN*','PS*' ) and (LNAME .NE. '*PSH*') )THEN
    WEIGHT = 0
    COLOR='black'
ENDIF

!****************************************************************************
! The following is an incorporation of FILL.TBL
! as written by Robert Hayes, 12/01/93
! To fill in solid black at the plotter cells that are
! filled areas otherwise they will be grey shaded to approximate their color.
! This is also to accomodate cells with the same name that were created with
! lines and linestrings so that they will look filled in.
!****************************************************************************
IF (HEADER_TYPE .IN. CELL,SHARED_CELL) THEN
    IF (CELLNAME .EQ. 'LT*' )THEN
        FILL_COLOR='black'
        IF (LEVEL .EQ. 14) THEN
            IF (TYPE .EQ. 4) THEN
                IF (COLOR .EQ. 4) THEN
                    WEIGHT = 6
                    COLOR = 'black'
                ENDIF
            ENDIF
        ENDIF
    ELSE IF (CELLNAME .EQ. 'PRRM' )THEN
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'SUPER*' ) THEN
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'PARR*') THEN
        FILL_COLOR='black'
        IF (LEVEL .IN. 1,18)THEN
            IF (COLOR .EQ. 1) THEN
                IF (TYPE .EQ. 4) THEN
                    WEIGHT = 3
                ENDIF
            ENDIF
        ENDIF
    ELSE IF (CELLNAME .EQ. 'NARR*' ) THEN
        FILL_COLOR='black'
        IF (LEVEL .EQ. 1) THEN
            IF (COLOR .EQ. 4) THEN
                IF (TYPE .IN. 3,16) THEN
                    IF (WEIGHT .EQ. 4)THEN
                        WEIGHT = 4
                        COLOR = 'black'
                    ENDIF
                ENDIF
            ENDIF
        ENDIF
    ELSE IF (CELLNAME .EQ. 'TERM2') THEN
        FILL_COLOR = 'black'
        IF (COLOR .EQ. 3) THEN
            IF (WEIGHT .EQ. 1) THEN
                IF (TYPE .IN. 4,17) THEN
                    WEIGHT = 2
                    COLOR = 'black'
                ENDIF
            ENDIF
        ENDIF
    ELSE IF (CELLNAME .EQ. '*TERM*') THEN   !any cell with TERM in name
        FILL_COLOR = 'black'                   !ETERM (easement terminator)
    ELSE IF (CELLNAME .EQ. 'EQCIR' ) THEN    !Equality circle
        IF (LNAME .EQ. 'PLN*')THEN
            FILL_COLOR=(230,230,230)
        ELSE
            FILL_COLOR='black'
        ENDIF
    ELSE IF (CELLNAME .EQ. 'RWCON') THEN
        IF (TYPE .EQ. 6)THEN
            FILL_COLOR='black'
        ELSE IF (TYPE .EQ. 15) THEN
            AREA_FILL=FALSE
       ENDIF
    !********************************
    !This section is for hydro cells
    !********************************
    ELSE IF (CELLNAME .EQ. '*DI') THEN   !DI & NDI (narrow DI)
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. '*GI') THEN   !GI, 2GI, 3GI
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. '*CB') THEN    !Catch Basin & OTCB
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'JB*') THEN    !JB & JBWMHC. Junction Box &
        FILL_COLOR='black'                  !Junction Bow w/ManHole Cover
    ELSE IF (CELLNAME .EQ. 'COLLAR') THEN !Collar terminator
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'FDP') THEN    !Funnel Drain Pipe
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'SB') THEN     !Spring Box
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'MH') THEN   !Man Hole
        FILL_COLOR='black'
    ELSE IF (CELLNAME .EQ. 'IN') THEN
        FILL_COLOR='black'
    ENDIF
ENDIF

!**********************************************************
! THIS FILLS black THE SHAPE FOR THE SUPERA (SUPER ARROW)
! IF IT'S DROPPED AS A CELL.
!**********************************************************
IF (TYPE .IN. 6) THEN
    IF (COLOR .EQ. 9) THEN
        IF (WEIGHT .EQ. 1) THEN
            IF (LEVEL .EQ. 4) THEN
                FILL_COLOR = 'black'
            ENDIF
        ENDIF
    ENDIF
ENDIF

!***************************************
! This blackens the scale on all sheets
!***************************************
IF (TYPE .EQ. SHAPE) THEN
    IF (COLOR .EQ. 2) THEN
        IF (WEIGHT .IN. 0,2) THEN
            IF (LEVEL .IN. 38,40) THEN
                IF (STYLE .EQ. 0) THEN
                    FILL_COLOR = 'black'
                ENDIF
            ENDIF
        ENDIF
    ENDIF
ENDIF


IF (LEVEL .IN. 18,40) THEN
    IF (LNAME .NE. 'PLN*') THEN
        COLOR = 'black'
        weight = 3
        Priority =5
    ENDIF
ENDIF

!************************************************************************
! THIS SECTION WILL BLANK THE BACKGROUND FOR HYDRO CELLS AND TITLE BLOCK
! IT WILL SHADE THE BACKGROUND FOR PRELIM AND INCOMP PLAN STICKERS,
! WILL BLANK  BACKGROUND FOR SHAPES (LV=4, CO=4, WT=3) AND WILL ALLOW
! YOU TO DRAW INSIDE THOSE SHAPES.
!
! plot hydro cell shapes black even when dropped
!************************************************************************
if (type .in. 2,6)then
    if (color .eq. 9) then
        if ((level_name .ni. "old_level_55", "Prop Rip Rap *","old_level_20")) then
            fill_color='black'
        endif
    endif
endif

!if (type .eq. 6)then
!    if (color .eq. 9)then
!        if (level .ne. 55) then
!            fill_color='black'
!        endif
!    endif
!endif

if (cellname .in. '*hd','pntlbk') then
    if (type .in. 2,6) then
        fill_color=(265,265,265)
        weight = 3
        Priority =4
        boundary_display=.true.
        boundary_color='black'
    endif
endif

if (cellname .in. 'dtlng','ltdt','rtdt','meddt') then
    if (type .in. 6,14) then
        fill_color=(250,250,250)
        Priority =4
        boundary_display= .true.
        boundary_color='black'
    else if (type .in. 3) then
        Priority =10
    endif
endif

!*****************************************
! this is for the yellow box on profiles
!*****************************************
if (type .in. 6,14,15) then
    if (level .eq. 4) then
        if (color .eq. 4) then
            if (weight .eq. 3) then
                fill_color=(250,250,250)
                Priority =4
                boundary_display=.true.
                boundary_color='black'
            endif
        endif
    endif
endif

!***************************************************
!this line allows you to draw inside the yellow box
!***************************************************
if (type .in. 3,6,14,15) then
    if (level .eq. 4) then
        if (weight .eq. 3) then
            Priority =8
        endif
    endif
endif

!**************************************************
! PLOT SOLID MISC. CELLS       CHRIS PARKER 5-1-95
!**************************************************
if (cellname .in. 'inc*','pre*') then
    if (type .eq. 6) then
        fill_color=(220,220,220)
        area_fill=.true.
        Priority =8
        boundary_display=.true.
        boundary_color='black'
    endif
endif

if (cellname .eq. 's') then
    color='black'
endif

!************************************************************************
! these lines were added due to diminsion lines on profiles not plotting
!************************************************************************
if (level .in. 1,2,3,6)then
    if (type .in. 3,4,11,12,15)then
        if (color .ne. 9)then
            if (type .ne. 2) then
                Priority =100
            endif
        endif
    endif
endif
!************************************************************************
!LINES ADDED TO NOT PLOT CERTAIN ELEMENTS IN THE DRAINAGE FILE 5/08/01
!************************************************************************
IF ( LNAME .eq.'drn*' ) THEN
    IF (LEVEL .EQ. 2) THEN
    	if (color .in. 3,5) then
       		IGNORE_ELEMENT = TRUE
       	endif
    ENDIF
ENDIF

IF (LNAME .EQ. 'drn*') THEN
	IF (CELLNAME .IN. '*plug*','elbow','tee') THEN
		IGNORE_ELEMENT = TRUE
	ENDIF
ENDIF

!*********************************************************************
! This section was added for utilities to force cells to plot black.
!*********************************************************************

IF (CELLNAME .in. 'pgv*','wplug*','pfh*','pwmv*','pmh*','pwm*','wred*','pcorp*') THEN    
	FILL_COLOR='black'
ELSE IF (CELLNAME .in. 'blowas*','arrow4','arrow2','sa*','sfa*','sfva*','wat*','wfa*') THEN
   	FILL_COLOR='black'
ELSE IF (CELLNAME .in. 'wva','wfva*','puemon','splug*','sred*','sthrc*','wthrc*') THEN
   	FILL_COLOR='black'
ENDIF

!!!!!!!!!!!!!!!
If (color .ne. 0) Then
	!If ((LEVEL .ne. 49) or (Level_Name .ne. "DTM Contours *")) Then
	If (Level_Name .ni. "DTM Contours *","Old_Level_49") Then
	color = 'black'
	Endif
EndIf	

!*********************************************************************
! Added to force baseline points (symbol) to plot dark. [Oak 1/11/06]
!*********************************************************************

IF (font == 119) THEN
          IF (CHARACTERS == ":") THEN
                  COLOR = 0
                  WEIGHT = 10
          ENDIF
  ENDIF

!*********************************************************************
! Increase weight of XSC proposed elements, levels 2 and 10.
!*********************************************************************

IF( IP_DESIGN == '*XPL*' OR IP_DESIGN == '*XSC*' ) THEN
	IF (TYPE .IN. 2,3,4,12)THEN
		IF (LEVEL .IN. 2,10) THEN
			WEIGHT = 3
		ENDIF
	ENDIF
	IF (LEVEL .IN. 41-44) THEN
		IF (COLOR .IN. 9,112) THEN
			IF (WEIGHT .EQ. 3 ) THEN
 	       		WEIGHT = 2
   			ENDIF
			PRIORITY = 1
		ENDIF
   	ENDIF
ENDIF   

############################################################
# Line 501  fixed incomplete plans sticker
# Line 557  makes power poles plot solid black

############################################################
# This section was added to correct SR numbers on County maps plotting
# as solid black blobs.

if(Cellname .EQ. 'Exist Cultural Cemetery') then                                  ; Cemetery
	area_fill = .true.
	fill_color = (255,255,255)
endif

If ((((Level_name .EQ. 'Exist Road Secondary*')&& (Type .NE. 2)&&(type .NE. 6)&&(type .EQ. 17)))) then
	fill_color = (255,255,255)
	area_fill =.true.
ENDIF

If ((Level_name .EQ. 'Exist Road Primary*')&& (Type .EQ. 6)) then
	fill_color = (255,255,255)
ENDIF

If ((Level_name .EQ. 'Exist Civil Demographics*')&& (Type .EQ. 17)) then
	fill_color = (255,255,255)
ENDIF