diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 21:04:54 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2018-06-06 21:04:54 (GMT) |
| commit | 6688918e7ff171d5d8f405a0b563861258431019 (patch) | |
| tree | 7325e74d49b26bdb661c66679d4260f2dd8950bd /ds9/library | |
| parent | 45f0a9da1052918eb9796ee5315bf4c80abdd4ad (diff) | |
| download | blt-6688918e7ff171d5d8f405a0b563861258431019.zip blt-6688918e7ff171d5d8f405a0b563861258431019.tar.gz blt-6688918e7ff171d5d8f405a0b563861258431019.tar.bz2 | |
add ds9 smooth send parser
Diffstat (limited to 'ds9/library')
| -rw-r--r-- | ds9/library/smooth.tcl | 17 | ||||
| -rw-r--r-- | ds9/library/source.tcl | 2 |
2 files changed, 8 insertions, 11 deletions
diff --git a/ds9/library/smooth.tcl b/ds9/library/smooth.tcl index f43f156..ca5a5d3 100644 --- a/ds9/library/smooth.tcl +++ b/ds9/library/smooth.tcl @@ -352,16 +352,11 @@ proc ProcessSmoothCmd {varname iname} { } proc ProcessSendSmoothCmd {proc id param {sock {}} {fn {}}} { - global smooth + global parse + set parse(proc) $proc + set parse(id) $id - switch -- [lindex $param 0] { - lock {$proc $id [ToYesNo $smooth(lock)]} - function {$proc $id "$smooth(function)\n"} - radius {$proc $id "$smooth(radius)\n"} - radiusminor {$proc $id "$smooth(radius,minor)\n"} - sigma {$proc $id "$smooth(sigma)\n"} - sigmaminor {$proc $id "$smooth(sigma,minor)\n"} - angle {$proc $id "$smooth(angle)\n"} - default {$proc $id [ToYesNo $smooth(view)]} - } + smoothsend::YY_FLUSH_BUFFER + smoothsend::yy_scan_string $param + smoothsend::yyparse } diff --git a/ds9/library/source.tcl b/ds9/library/source.tcl index 92e40a7..2867569 100644 --- a/ds9/library/source.tcl +++ b/ds9/library/source.tcl @@ -364,6 +364,8 @@ source $ds9(root)/library/sleepparser.tcl source $ds9(root)/library/sleeplex.tcl source $ds9(root)/library/smoothparser.tcl source $ds9(root)/library/smoothlex.tcl +source $ds9(root)/library/smoothsendparser.tcl +source $ds9(root)/library/smoothsendlex.tcl source $ds9(root)/library/smosaicirafparser.tcl source $ds9(root)/library/smosaiciraflex.tcl source $ds9(root)/library/smosaicwcsparser.tcl |