17 lines
451 B
Perl
17 lines
451 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
my $output_filename = $ARGV[0] or die "no args";
|
||
|
|
my $tmp_grid_file = "$output_filename.grid.txt";
|
||
|
|
|
||
|
|
system("grid.py > $tmp_grid_file");
|
||
|
|
|
||
|
|
|
||
|
|
system("cat $tmp_grid_file | qdelaunay GD2 s > $output_filename.txt\n" );
|
||
|
|
system("cat $tmp_grid_file | qdelaunay GD2 s Qt > ${output_filename}_qt.txt\n");
|
||
|
|
system("cat $tmp_grid_file | qdelaunay GD2 s QJ > ${output_filename}_qj.txt\n");
|
||
|
|
|
||
|
|
unlink($tmp_grid_file);
|