#!/usr/bin/perl -w

$foo = 0;

open (VECTORS, "vectors") or die print "Cannot open 'vectors' file: $!\n";

while ($line = <VECTORS>) {
    if ($line =~ /\d/) {
	chomp $line;
	($vectorA[$foo], $angleA[$foo], $vectorB[$foo], $angleB[$foo]) = split " ", $line, 4;
	++$foo;
    }
}


$max_vectors = $foo;

for ($foo = 0; $foo <= $max_vectors; ++$foo) { 
    $X[$foo] += ($vectorA[$foo] * cos($angleA[$foo]));
    $X[$foo] += ($vectorB[$foo] * cos($angleB[$foo]));
}

for ($foo = 0; $foo <= $max_vectors; ++$foo) { 
    $Y[$foo] += ($vectorA[$foo] * sin($angleA[$foo]));
    $Y[$foo] += ($vectorB[$foo] * sin($angleB[$foo]));
}

# Must do more stuff here, ie. finish and convert to degrees after sin() and cos()

foreach $X (@X) {
    print "$X\n";
}

print "\nblah\n\n";

foreach $Y (@Y) {
    print "$Y\n";
}