vec2atan

diff --git a/generate-board b/generate-board
index d99c43187fdf9fe5580ee029cbd50488c81254b1..3e4e9bc689a1ef3c8c006bdce1e0263626e472ef 100755 (executable)
--- a/generate-board
+++ b/generate-board
@@ -175,13 +175,14 @@ sub prvec ($) {
 }
 
 sub mkvec ($$) { Math::GSL::Vector->new(\@_) }
+sub vec2atan ($) { my ($dir) = @_; atan2 $dir->get(1), $dir->get(0); }
 
 sub transform_coordinates () {
   # Adjusts coordinates in graph to be [0,0] .. top right (scaled)
   # until it's all in PostScript points
   my @or = map { $region{$_}{Centre} } @{ $c{OrientRegions} };
   my $dir = $or[1] - $or[0];
-  my $theta = atan2 $dir->get(1), $dir->get(0);
+  my $theta = vec2atan($dir);
   my $rotateby = (90. - $c{OrientBearing}) * ((TAU)/360.) - $theta;
   my $s = sin($rotateby);
   my $c = cos($rotateby);