Index: cube-body.fawk
===================================================================
--- cube-body.fawk	(nonexistent)
+++ cube-body.fawk	(revision 38344)
@@ -0,0 +1,12 @@
+function main(ARGV)
+{
+
+commit(color(1,0,0,translate(0,3,0,cube(7.8,7.8,7.8))));
+
+POLY[];
+
+poly_append(POLY,1.52,0.15,1.47,0.16,1.44,0.17,1.41,0.2,1.39,0.24,1.38,0.28,1.31,1.08,1.38,1.9,1.39,1.94,1.41,1.97,1.44,1.99,1.47,2.0,6.33,2.0,6.36,1.99,6.39,1.97,6.41,1.94,6.42,1.9,6.49,1.08,6.42,0.28,6.41,0.24,6.39,0.2,6.36,0.17,6.33,0.16,6.28,0.15);
+
+commit(color(0.1, 0.1, 0.1, lin_extrude(2.25, POLY)));
+
+}