! PEN TABLE FOR HALF SIZE SHADING ONLY
! FOR MICROSTATION V8 WITH NEW COLOR TABLE 
! LAST MODIFICATION 8/26/03 BY DH
! REMEMBER 255 IS WHITE ON A PRINT
! 0 IS BLACK ON A PRINT
! FOR TITLE SHEET LOCATION FLAGS MAKE SURE COLOR # FALLS IN CORRECT RANGE
! FOR A BLACKED OUT BACKGROUND (IE 255) THEN MAKE SURE YOUR FILL TYPE IS OPAQUE, NOT OUTLINED
! IPLOT CAN NOT DISCERN BETWEEN TWO COLORS ON ONE ELEMENT
! WITH OUTLINE FILL THE OUTLINE IS THE ACTIVE ELEMENT COLOR AND THE FILL IS A SEPERATE COLOR
! IPLOT READS THE ACTIVE ELEMENT COLOR AND PRINTS THE ENTIRE ELEMENT WITH THIS COLOR THUS A BLACK FILL

If (weight==0) then
 thickness = (0.002)
endif

If (weight==1) then
 thickness = (0.004)
endif

If (weight==2) then
 thickness = (0.006)
endif

If (weight==3) then
 thickness = (0.008)
endif

If (weight==4) then
 thickness = (0.010)
endif

If (weight==5) then
 thickness = (0.012)
endif

If (weight==6) then
 thickness = (0.014)
endif

If (weight==7) then
 thickness = (0.016)
endif

If (weight==8) then
 thickness = (0.018)
endif

If (weight==9) then
 thickness = (0.020)
endif

If (weight==10) then
 thickness = (0.022)
endif

If (weight==11) then
 thickness = (0.024)
endif

If (weight==12) then
 thickness = (0.026)
endif

If (weight==13) then
 thickness = (0.028)
endif

If (weight==14) then
 thickness = (0.030)
endif

If (weight==15) then
 thickness = (0.032)
endif

If (weight==16) then
 thickness = (0.034)
endif

If (weight==17) then
 thickness = (0.036)
endif

If (weight==18) then
 thickness = (0.038)
endif

If (weight==19) then
 thickness = (0.040)
endif 

! THESE LINES ARE THE DESIGN LINES
IF ((COLOR >= 0) && (COLOR <= 15)) THEN
  COLOR = (0,0,0)
! THESE LINES ARE THE EXISTING UTILITY LINES
ELSE IF ((COLOR >= 16) && (COLOR <= 31)) THEN
  COLOR = (125,125,125)
! THESE LINES ARE THE REST OF THE SURVEY
ELSE IF ((COLOR >= 32) && (COLOR <= 47)) THEN
  COLOR = (160,160,160)
! THESE ARE RESERVED FOR LATER USE (EMPTY SPACE)
ELSE IF ((COLOR >= 48) && (COLOR <= 49)) THEN
  COLOR = (255,255,255)
! THESE ARE THE EXISTING CONTOURS AND PROFILE, XSECT GRID LINES
ELSE IF ((COLOR >= 50) && (COLOR <= 51)) THEN
  COLOR = (185,185,185)
ELSE
  COLOR = (255,255,255)
ENDIF


! Pen Table for showing date, time, user, & file on plots (STAMP.TBL)
IF (CHARACTERS .EQ. 'DD-MMM-YYYY HH:MM') THEN
  CHARACTERS = SYTIME
ENDIF
IF (CHARACTERS .EQ. '$USERNAME$') THEN
  CHARACTERS = USERNAME
ENDIF
IF (CHARACTERS .EQ. '$$$$$$$$$FILENAME$$$$$$$$') THEN
  CHARACTERS = DGNSPEC
ENDIF

