+
+sub initdata_prime_point_callback ($$$$) {
+ my ($u,$v,$comment,$floatformat) = @_; # SGT's coordinates
+ for ($k=0; $k<3; $k++) {
+ printf(G "print %s( $floatformat, $floatformat ) ;%s\n",
+ qw(x y z)[$k], $u, $v, $comment)
+ or die $!;
+ }
+}
+
+sub initdata_return_vertex_transform () {
+ $vertex[1] *= -1;
+}
+
+initdata_process_prime();
+