####################################################################
#### 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
#### 10-19-06 WCM Commented out top two if statements (color == 200 and color > 226) - no longer needed
####################################################################
#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


################################ Added by Wayne Mander 05-01-01
################################ Due to the nature of the 'color' command in IPLOT,
################################ if color is applied to an element, then it is applied
################################ to area fills and patterns as well.  That is why we are
################################ currently not using the color command on complex shapes
################################ and simple shapes.
#If (type <> complex_shape) then
#	If (type <> shape) then
#		If (color == 0) then
#			color = (0,0,0)
#		endif
#	endif
#endif


# Section removed on 04-25-06 by Wayne Mander (plotters it was written for are no longer used)
#
#If (color == 0) then					# Catch everything that is white
#	If (type .NI. complex_shape, shape) then	# If not shape, do next
#		color = (0,0,0)				# Color is black
#	endif
#endif



################################ Added by Dennis Olson, removed by Wayne Mander 05-01-01
#If (color == 0) then
#  	color = (0,0,0)
#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


####################################################################