diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 17:38:41 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2016-10-27 17:38:41 (GMT) |
commit | 5b44fb0d6530c4ff66a446afb69933aa8ffd014f (patch) | |
tree | e059f66d1f612e21fe9d83f9620c8715530353ec /funtools/test.tcl | |
parent | da2e3d212171bbe64c1af39114fd067308656990 (diff) | |
parent | 23c7930d27fe11c4655e1291a07a821dbbaba78d (diff) | |
download | blt-5b44fb0d6530c4ff66a446afb69933aa8ffd014f.zip blt-5b44fb0d6530c4ff66a446afb69933aa8ffd014f.tar.gz blt-5b44fb0d6530c4ff66a446afb69933aa8ffd014f.tar.bz2 |
Merge commit '23c7930d27fe11c4655e1291a07a821dbbaba78d' 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 +} + |