! 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

# Pen Table for Full Size Shading and Printing on the Xerox 8830.
# Note:  IPlot is unable to do any dithering where the 'Line Weight' is equal to zero. 
# Therefore, when the 'COLOR' varible is not equal to '(0,0,0)' and the 'Line Weight is equal to 'zero',
# the modification to this pen table will increase the 'Line Weight' to 'one' in order for the 'Shading' 
# to be done.
#
# 25 NOV 03
# Steve Kimble
# (304)558-2678

############################################Line weight thickness###########

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

##############################################shading#################

IF ((COLOR >= 0) && (COLOR <= 15)) THEN
 COLOR = (0,0,0)
ENDIF

IF ((COLOR >= 16) && (COLOR <= 31)) then 
 COLOR = (145,145,145)
ENDIF

IF ((COLOR >= 32) && (COLOR <= 47)) then 
 COLOR = (165,165,165)
ENDIF

IF ((COLOR >= 48) && (COLOR <= 49)) then 
 COLOR = (255,255,255)
ENDIF

IF ((COLOR >= 50) && (COLOR <= 51)) then 
 COLOR = (185,185,185)
ENDIF

IF (COLOR >= 52)  THEN
 COLOR = (255,255,255)
ENDIF

#########################################plot titles##################

! 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

