#!/usr/bin/perl

$minx = 1e300;
$miny = 1e300;
$minz = 1e300;
$maxx = -1e300;
$maxx = -1e300;
$maxx = -1e300;

my $filename = $ARGV[0];
my $varlabel = $ARGV[1];
open (my $inp, "<$filename");

while (<$inp>) {
  if (/vertex\s+([-+]?[0-9]*\.?[0-9]+)\s+([-+]?[0-9]*\.?[0-9]+)\s+([-+]?[0-9]*\.?[0-9]+)/) {
    $minx = $minx < $1 ? $minx : $1;
    $maxx = $maxx > $1 ? $maxx : $1;
    $miny = $miny < $2 ? $miny : $2;
    $maxy = $maxy > $2 ? $maxy : $2;
    $minz = $minz < $3 ? $minz : $3;
    $maxz = $maxz > $3 ? $maxz : $3;
  }
}

print $varlabel."min = [".$minx.", ".$miny.", ".$minz."];\n";
print $varlabel."max = [".$maxx.", ".$maxy.", ".$maxz."];\n";