####################################################################
#### Section for replacing plot wrapper text with information
#### 1-20-96 TMUHLEN for implementing laser printers on NT nodes
#### 11-20-97 BMS Added grayscale priorities
#### 11-20-97 Glen Lyall changed from 230 to 228 grayscale priorities
#### 12-31-98 BMS Added 227-229 color change to 235 for pavement shading
####
#### 04-10-01 WMANDER Created this new pen table for TIF plots
####
####################################################################
if (color == 200) then
  color = 238
endif
if (color > 226) then
  priority = 5
else
  priority = 10
endif
if (color .IN. 227, 228, 229) then
  fill_color = 235
  color = 235
endif


IF (WEIGHT .LT. 2) THEN
        WEIGHT = 0
ELSE IF (WEIGHT .LT. 4) THEN
        WEIGHT = 1
ELSE IF (WEIGHT .LT. 6) THEN
        WEIGHT = 2
ELSE IF (WEIGHT .LT. 8) THEN
        WEIGHT = 3
ELSE IF (WEIGHT .LT. 11) THEN
        WEIGHT = 4 
ELSE
        WEIGHT = 7
ENDIF


if (type == text) then
  midline_joint=circle
  switch (characters)
     case 'XXXXXXXXXXSYSTEMTIME' ? 
       characters=sytime
     case 'XXXXXXXUSERNAME' ?
       characters=username
     case 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXDGNSPEC' ?
       characters=dgnspec
  endswitch
endif

if (type == text) then
  midline_joint=circle
  switch (characters)
     case 'SYSTEMTIME' ? 
       characters=sytime
     case 'USERNAME' ?
       characters=username
     case 'DGNSPEC' ?
       characters=dgnspec
  endswitch
endif
####################################################################