From ccb2f6c90741946198b488cbab62636616c77084 Mon Sep 17 00:00:00 2001
From: Ed J <mohawk2@users.noreply.github.com>
Date: Wed, 29 Sep 2021 01:18:25 +0100
Subject: [PATCH] switch * cot to / tan since cot not in PDL

---
 src/perl/fbench.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/perl/fbench.pl b/src/perl/fbench.pl
index 4d05e9b..f53172f 100644
--- a/src/perl/fbench.pl
+++ b/src/perl/fbench.pl
@@ -184,8 +184,8 @@ sub transit_surface {
            my $sagitta = sin(($old_axis_slope_angle + $iang) / 2);
            $sagitta = 2 * $radius_of_curvature * $sagitta * $sagitta;
            $object_distance = (($radius_of_curvature * sin(
-              $old_axis_slope_angle + $iang)) *
-              cot($axis_slope_angle)) + $sagitta;
+              $old_axis_slope_angle + $iang)) /
+              tan($axis_slope_angle)) + $sagitta;
            return;
         }
         my $rang = -asin(($from_index / $to_index) *