($Gori,$Gend,$alnXori,$alnYori,$alnXend,$alnYend) = @ARGV;

$GX0 = &calcula_punt_mig($Gori,$Gend);
$AX0 = &calcula_punt_mig($alnXori,$alnXend);
$AY0 = &calcula_punt_mig($alnYori,$alnYend);

$GY0 = int(($GX0 * $AY0) / $AX0);
$GX0 = int($GX0);

print "[$Gori,$Gend] X ($alnXori,$alnYori)--($alnXend,$alnYend) : (AX0,AY0) =
($AX0,$AY0) : X0 = $GX0 : Y0 = $GY0\n";

sub calcula_punt_mig() {

    my ($o,$e) = @_;

    return (($e - $o + 1) / 2) + $o - 1;

}