#!/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);