#!/usr/bin/perl

$bin = $ARGV[0];
$binimg = $ARGV[1];

$_=<STDIN>; ($g1,$g2,$g3,$xmin)=split;
$_=<STDIN>; ($g1,$g2,$g3,$xmax)=split;
$_=<STDIN>; ($g1,$g2,$g3,$g4,$ymin)=split;
$_=<STDIN>; ($g1,$g2,$g3,$g4,$ymax)=split;

$xmin*=$bin; $xmax*=$bin; $ymin*=$bin; $ymax*=$bin;

print "binfilt='[bini x=$xmin:$xmax:$binimg,y=$ymin:$ymax:$binimg]'\n";
