can use original model now

[moebius2.git] / generator

diff --git a/generator b/generator
index 6cdbab295e8d404f1db559e5fdc590e62d53e2af..181285081d317dd1184404eb64b5596e8bd32d2b 100755 (executable)
--- a/generator
+++ b/generator
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 require 'library.pl';
 die unless @ARGV==4;
-($primer,$zinput,$options,$output) = @ARGV;
+($prime,$zinput,$options,$output) = @ARGV;
 $output =~ s/^\-o// or die "$output ?";
-die if $primer =~ m/^\-/;
+die if $prime =~ m/^\-/;
 die if $zinput =~ m/^\-/;
 
 die unless $options =~ m/^\-([gTa])$/;
@@ -31,10 +31,24 @@ for (;;) {
 }
 
 printf G "set print \"-\"\n" or die $!;
+
+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();
+
 close G or die $!;
 
-run("./$primer 'print ' '+-+' 'xyz' '( ' ', ' ');  # ' ".
-    "'print ' ', ' - >>$gnuplot");
 run("gnuplot $gnuplot >$initdata");
 
 make_initdata();