+-----------------------------------------------------------------+ | | | | A x | | x | | x | | x | | x o C | x o | | x o | | x o | | x o | | x o | | x o | | x o | | x o | Y .......................................* P | | o . x | | o . x | | o . x | | o . x | | o . x | | o . x | | o . x | | o . x | | o . x D | o . | | o . | | o . | B o . | | . | | . | +--------------------------------------.--------------------------+ X sub solve{ my( $a, $b, $c, $d ) = @_; my( $x, $y ); # Some trig :) return( $x, $y ); }