+#no warnings qw(recursion);
+
+sub maybe_subdivide_triangle ($$$$) {
+ my ($t, $ok, $changed, $edge_need_subdivide_fn) = @_;
+
+ printf STDERR
+ "%11.6f,%11.6f,%11.6f / ".
+ "%11.6f,%11.6f,%11.6f / ".
+ "%11.6f,%11.6f,%11.6f %-40s ",
+ $t->[0][0], $t->[0][1], $t->[0][2],
+ $t->[1][0], $t->[1][1], $t->[1][2],
+ $t->[2][0], $t->[2][1], $t->[2][2],
+ $t->[3];
+