+ return 0;
+}
+
+sub project_cylinder_need_subdivide () {
+ foreach my $t (@$triangles) {
+ next unless project_cylinder_triangle_need_subdivide $t;
+ return 1;
+ }
+ return 0;
+}
+
+sub project_cylinder_tri {
+ my ($t) = @_;
+
+ #print STDERR 'PROJECT', Dumper($t);
+
+ my $radius = $project_cylinder_radius;