! 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

! 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 = (115,115,115)
! THESE LINES ARE THE REST OF THE SURVEY
ELSE IF ((COLOR >= 32) && (COLOR <= 47)) THEN
  COLOR = (165,165,165)
! 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

