Index: trunk/doc-rnd/devlog/poll_common/genhtml.sh
===================================================================
--- trunk/doc-rnd/devlog/poll_common/genhtml.sh	(revision 1520)
+++ trunk/doc-rnd/devlog/poll_common/genhtml.sh	(revision 1521)
@@ -4,6 +4,51 @@
 echo "<tr>"
 sed "s@^@<th>@" < header
 sed "s@^@<tr><td>@;s@\t@<td>@g" < poll.tsv
-echo '</table></body></html>'
+echo "<tr>"
+hl=`wc -l < header`
+for n in `seq $hl`
+do
+	./genpie.sh $n
+	fn=pie_col_$n.png
+	if test -f "$fn"
+	then
+		echo "<td><img src=\"$fn\">"
+	else
+		echo "<td>&nbsp;"
+	fi
+done
+
+echo '</table>'
+if test -f "legend.txt"
+then
+	echo "<p>"
+	echo "<h3> Legend </h3>"
+	echo "<pre>"
+	cat legend.txt
+	echo "</pre>"
+fi
+
+echo "<h3> Downloads </h3>"
+echo '<ul>'
+
+if test -f poll.csv
+then
+	echo '	<li><a href="poll.csv"> csv data </a> | <a href="header.csv"> csv header </a>'
+fi
+
+if test -f poll.tsv
+then
+	echo '	<li><a href="poll.tsv"> tsv data </a> (raw, no header)'
+fi
+
+if test -f legend.txt
+then
+	echo '	<li><a href="legend.txt"> legend </a>'
+fi
+
+echo '<ul>'
+
+echo '</body></html>'
 ) > poll.html
 
+
Index: trunk/doc-rnd/devlog/poll_common/genpie.sh
===================================================================
--- trunk/doc-rnd/devlog/poll_common/genpie.sh	(nonexistent)
+++ trunk/doc-rnd/devlog/poll_common/genpie.sh	(revision 1521)
@@ -0,0 +1,38 @@
+#!/bin/sh
+
+gen()
+{
+	awk -F "[\t]" -v "col=$1" '
+	BEGIN {
+		if (col < 0) {
+			col = -col
+			keep_na = 1
+		}
+	}
+	{
+		val=$col
+		if (val == "-") {
+			if (keep_na)
+				val="n/a"
+			else
+				next
+		}
+		split(val, VAL, "[+]")
+		for(n in VAL) {
+			VOTE[VAL[n]]++
+		}
+	}
+
+	END {
+		for(n in VOTE) {
+			print "@slice\n" VOTE[n]
+			print "@label\n" n
+		}
+	}
+	'
+}
+
+for n in $*
+do
+	(gen $n < poll.tsv | animpie && echo "screenshot \"pie_col_$n.png\"") | animator -H -x 150 -y 150
+done

Property changes on: trunk/doc-rnd/devlog/poll_common/genpie.sh
___________________________________________________________________
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property