diff options
author | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
---|---|---|
committer | N.N. <matju@users.sourceforge.net> | 2010-01-05 17:50:51 +0000 |
commit | 39ba8a640bd178fd732d945760df7eef3e2c1e1a (patch) | |
tree | b59fa5bc00fcbb6389ea3ebf2c7ee8b9ced1daa8 /externals/gridflow/doc/make_index.tcl | |
parent | 8cabe6dabadf2422240ff4e9d5f5f8c95622b682 (diff) |
no gridflow snapshots in pure-data svn
svn path=/trunk/; revision=12888
Diffstat (limited to 'externals/gridflow/doc/make_index.tcl')
-rw-r--r-- | externals/gridflow/doc/make_index.tcl | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/externals/gridflow/doc/make_index.tcl b/externals/gridflow/doc/make_index.tcl deleted file mode 100644 index 8b95003e..00000000 --- a/externals/gridflow/doc/make_index.tcl +++ /dev/null @@ -1,29 +0,0 @@ -proc say {k v} {set ::say($k) $v} -proc category {k} {} -source locale/english.tcl -puts "#N canvas 0 0 560 480 10 ;" -set y 50 -foreach k [lsort [array names ::say *]] { - set v $::say($k) - if {$k == "#"} {set k "# +"} - if {$k == "#fold"} {set k "#fold +"} - if {$k == "#scan"} {set k "#scan +"} - if {$k == "#outer"} {set k "#outer +"} - if {$k == "#cast"} {set k "#cast i"} - if {$k == "#for"} {set k "#for 0 4 1"} - if {$k == "#redim"} {set k "#redim ()"} - if {$k == "receives"} {set k "receives \$0-"} - if {$k == "send39"} {set k "send39 \$0-patchname"} - set w [string length $k] - regsub "\\$" $k "\\$" k - if {$w<3} {set w 3} - set w [expr {$w*6+2}] - if {$k == "#color"} {set w 156} - puts "#X obj [expr 160-$w] $y $k;" - regsub "," $v " \\, " v - regsub ";" $v " \\; " v - regsub "\\$" $v "\\$" v - puts "#X text 180 $y $v;" - if {$k == "#color"} {incr y 40} - incr y 32 -} |