[Gridflow-cvs] [svn] commit: r5448 - in /trunk/doc: index.pd make_index.tcl

svn-gridflow at artengine.ca svn-gridflow at artengine.ca
Thu Apr 15 18:26:56 EDT 2010


Author: matju
Date: Thu Apr 15 18:26:51 2010
New Revision: 5448

Log:
use [doc_link] to link to [#io...] classes

Modified:
    trunk/doc/index.pd
    trunk/doc/make_index.tcl

Modified: trunk/doc/index.pd
==============================================================================
--- trunk/doc/index.pd (original)
+++ trunk/doc/index.pd Thu Apr 15 18:26:51 2010
@@ -1,4 +1,4 @@
-#N canvas 0 0 560 480 10 ;
+#N canvas 0 0 632 659 10 ;
 #X obj 138 50 # +;
 #X text 180 50 plain numeric operators on grids: + - * / etc;
 #X obj -6 82 #apply_colormap_channelwise;
@@ -79,33 +79,33 @@
 #X text 180 1305 open file or device for reading or download;
 #X obj 120 1337 #inner;
 #X text 180 1337 scalar ("dot") product \,  matrix product, tensor contraction, image channel remapping, etc.;
-#X obj 102 1369 #io.aalib;
+#X obj 40 1369 doc_link #io.aalib;
 #X text 180 1369 open an aalib window;
-#X obj 96 1401 #io.dc1394;
+#X obj 40 1401 doc_link #io.dc1394;
 #X text 180 1401 open a faiawaia "DC" camera (not DV) using a Linux-compatible OS;
-#X obj 108 1433 #io.grid;
+#X obj 40 1433 doc_link #io.grid;
 #X text 180 1433 read or write a .grid file (GridFlow storage format);
-#X obj 108 1465 #io.jpeg;
+#X obj 40 1465 doc_link #io.jpeg;
 #X text 180 1465 read or write a .jpeg file;
-#X obj 108 1497 #io.mpeg;
+#X obj 40 1497 doc_link #io.mpeg;
 #X text 180 1497 read a .mpeg video file;
-#X obj 114 1529 #io.png;
+#X obj 40 1529 doc_link #io.png;
 #X text 180 1529 read a .png image file;
-#X obj 114 1561 #io.ppm;
+#X obj 40 1561 doc_link #io.ppm;
 #X text 180 1561 read a .pbm or .pgm or .ppm image file or write a .ppm image file;
-#X obj 96 1593 #io.quartz;
+#X obj 40 1593 doc_link #io.quartz;
 #X text 180 1593 open a Quartz window (OSX);
-#X obj 48 1625 #io.quicktimeapple;
+#X obj 40 1625 doc_link #io.quicktimeapple;
 #X text 180 1625 read a .mov video file (OSX);
-#X obj 42 1657 #io.quicktimecamera;
+#X obj 40 1657 doc_link #io.quicktimecamera;
 #X text 180 1657 open a QuickTime Sequence Grabber (Camera / Video input) device;
-#X obj 66 1689 #io.quicktimehw;
+#X obj 40 1689 doc_link #io.quicktimehw;
 #X text 180 1689 read a .mov or .avi video file (Linux);
-#X obj 114 1721 #io.sdl;
+#X obj 40 1721 doc_link #io.sdl;
 #X text 180 1721 open a SDL window (Windows \, Linux,OSX);
-#X obj 84 1753 #io.videodev;
+#X obj 40 1753 doc_link #io.videodev;
 #X text 180 1753 open a V4L1 device (Linux-only interface for video cameras and video digitisers);
-#X obj 114 1785 #io.x11;
+#X obj 40 1785 doc_link #io.x11;
 #X text 180 1785 open a X11 window (Linux \, etc);
 #X obj 126 1817 #join;
 #X text 180 1817 join two grids together along any dimension;

Modified: trunk/doc/make_index.tcl
==============================================================================
--- trunk/doc/make_index.tcl (original)
+++ trunk/doc/make_index.tcl Thu Apr 15 18:26:51 2010
@@ -1,7 +1,7 @@
 proc say {k v} {set ::say($k) $v}
 proc category {k} {}
 source locale/english.tcl
-puts "#N canvas 0 0 560 480 10 ;"
+puts "#N canvas 0 0 632 659 10 ;"
 set y 50
 set n 0
 foreach k [lsort [array names ::say *]] {
@@ -20,6 +20,7 @@
 	if {$k=="#cluster_avg"} {set k "$k 4"}
 	if {$k == "#many"}      {set k "$k tgl 3 3"}
 	if {[regexp ^doc $k]}   {set k "\[$k\]"; set sel text}
+	if {[regexp ^#io $k]}   {set k "doc_link $k"}
 
 	set w [string length $k]
 	regsub "\\$" $k "\\$" k
@@ -31,6 +32,7 @@
 	if {$ok == "doremi"} {set w 105; set h 73}
 	if {$ok == "#color"} {set w 156; set h 55}
 	if {$ok == "display"} {set w 22}
+	if {[regexp ^doc_link $k]} {set w 120}
 
 	puts "#X $sel [expr 160-$w] $y $k;"
 	regsub "," $v " \\, " v



More information about the Gridflow-cvs mailing list