diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-25 20:57:49 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-25 20:57:49 (GMT) |
| commit | d1c4bf158203c4e8ec29fdeb83fd311e36320885 (patch) | |
| tree | 15874534e282f67505ce4af5ba805a1ff70ec43e /funtools/test.tcl | |
| parent | e19a18e035dc4d0e8e215f9b452bb9ef6f58b9d7 (diff) | |
| parent | 339420dd5dd874c41f6bab5808291fb4036dd022 (diff) | |
| download | blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.zip blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.tar.gz blt-d1c4bf158203c4e8ec29fdeb83fd311e36320885.tar.bz2 | |
Merge commit '339420dd5dd874c41f6bab5808291fb4036dd022' as 'funtools'
Diffstat (limited to 'funtools/test.tcl')
| -rw-r--r-- | funtools/test.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/funtools/test.tcl b/funtools/test.tcl new file mode 100644 index 0000000..4c944bf --- /dev/null +++ b/funtools/test.tcl @@ -0,0 +1,13 @@ +lappend auto_path . + +package require tclfun 1.0 + +# xx "cir(512,512,.1)" +# xx "cir(512,512,.1)&&pha==5" +# no spaces or else the quoting is a nightmare +proc xx { reg } { + set buf [fundisp "/home/eric/data/snr.ev\[$reg\]"] + puts "and the answer is ..." + puts $buf +} + |