diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-12 18:07:57 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-12 18:07:57 (GMT) |
commit | e4366300aca0d6d4ad10f7ab58c5b3176715b611 (patch) | |
tree | 8f977973ec15479f1a6ff0aae4a76a9ec8dcfaf5 /ds9/library/3d.tcl | |
parent | 550ef7c4a7e97d1113c7b790d7294906680e37e0 (diff) | |
download | blt-e4366300aca0d6d4ad10f7ab58c5b3176715b611.zip blt-e4366300aca0d6d4ad10f7ab58c5b3176715b611.tar.gz blt-e4366300aca0d6d4ad10f7ab58c5b3176715b611.tar.bz2 |
add 3d ds9 parser
Diffstat (limited to 'ds9/library/3d.tcl')
-rw-r--r-- | ds9/library/3d.tcl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/ds9/library/3d.tcl b/ds9/library/3d.tcl index 9e9f04a..9b258ec 100644 --- a/ds9/library/3d.tcl +++ b/ds9/library/3d.tcl @@ -462,6 +462,20 @@ proc PrefsDialog3d {} { proc Process3DCmd {varname iname} { upvar $varname var + upvar $iname ii + + global threed + + 3DDialog + + threed::YY_FLUSH_BUFFER + threed::yy_scan_string [lrange $var $ii end] + threed::yyparse + incr ii [expr $threed::yycnt-1] +} + +proc oProcess3DCmd {varname iname} { + upvar $varname var upvar $iname i global threed |