rename things more sensibly; now it can optimise but the edgewise vertex formula...

[moebius2.git] / oldmoebius-converter

diff --git a/oldmoebius-converter b/oldmoebius-converter
new file mode 100755 (executable)
index 0000000..cbe1799
--- /dev/null
+++ b/oldmoebius-converter
@@ -0,0 +1,40 @@
+#!/usr/bin/perl
+require 'library.pl';
+die unless @ARGV==4;
+($prime,$instructions,$aout,$output) = @ARGV;
+$output =~ s/^\-o// or die "$output ?";
+die if $prime =~ m/^\-/;
+die if $instructions =~ m/^\-/;
+
+$aoutin= "$output.aoutin.tmp";
+$initdata= "$output.initdata.tmp";
+
+run("cat $instructions >$aoutin");
+
+open A, ">>$aoutin" or die $!;
+
+use Math::Trig;
+
+sub initdata_prime_point_callback ($$$$) {
+    my ($u,$v,$comment,$floatformat) = @_; # SGT's coordinates
+    # v corresponds to the old program's t, roughly
+    printf(A "pointmap $floatformat $floatformat %s\n",
+          $v/(pi), $u, $comment)
+       or die $!;
+}
+
+sub initdata_return_vertex_transform () {
+    ($vertex[0],$vertex[2])= ($vertex[2],$vertex[0]);
+    map { $_ *= 0.7 } @vertex;
+    $vertex[1] *= -1;
+    $vertex[1] += 0.5;
+}
+
+initdata_process_prime();
+
+print A "quit\n" or die $!;
+close A or die $!;
+    
+run("./$aout <$aoutin >$initdata");
+
+make_initdata();