Changeset 883 for trunk/graceexport.tcl
- Timestamp:
- Dec 4, 2009 5:13:41 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/graceexport.tcl
- Property rcs:date changed from 2002/01/22 21:45:59 to 2006/07/31 18:28:43
- Property rcs:rev changed from 1.1 to 1.2
- Property rcs:lines set to +4 -2
r531 r883 196 196 # now get graph markers 197 197 foreach m [$graph_name marker names] { 198 if {[$graph_name marker type $m] == "line"} { 198 if {[$graph_name marker type $m] == "line" || \ 199 [$graph_name marker type $m] == "LineMarker"} { 199 200 set coords [$graph_name marker cget $m -coords] 200 201 if {[$graph_name marker cget $m -dashes] == {}} { … … 224 225 set coords [lrange $coords 2 end] 225 226 } 226 } elseif {[$graph_name marker type $m] == "text"} { 227 } elseif {[$graph_name marker type $m] == "text" || \ 228 [$graph_name marker type $m] == "TextMarker"} { 227 229 set coords [$graph_name marker cget $m -coords] 228 230 # leave a 5% margin for markers on plot limits
Note: See TracChangeset
for help on using the changeset viewer.