4 ($prime,$instructions,$aout,$output) = @ARGV;
5 $output =~ s/^\-o// or die "$output ?";
6 die if $prime =~ m/^\-/;
7 die if $instructions =~ m/^\-/;
9 $aoutin= "$output.aoutin.tmp";
10 $initdata= "$output.initdata.tmp";
12 run("cat $instructions >$aoutin");
14 open A, ">>$aoutin" or die $!;
18 sub initdata_prime_point_callback ($$$$) {
19 my ($u,$v,$comment,$floatformat) = @_; # SGT's coordinates
20 # v corresponds to the old program's t, roughly
21 printf(A "pointmap $floatformat $floatformat %s\n",
22 $v/(pi), $u, $comment)
26 sub initdata_return_vertex_transform () {
27 ($vertex[0],$vertex[2])= ($vertex[2],$vertex[0]);
28 map { $_ *= 0.7 } @vertex;
33 initdata_process_prime();
35 print A "quit\n" or die $!;
38 run("./$aout <$aoutin >$initdata");