feat: Turtle.Towards() targets ( Fixes #211 )

Author: StartAutomating

Types/Turtle/Towards.ps1

@@ -4,16 +4,36 @@
 .DESCRIPTION
     Determines the angle from the turtle's current heading towards a point.
 #>
-param(
-# The X-coordinate
-[double]$X = 0,
-# The Y-coordinate
-[double]$Y = 0
-)
+param()
+
+$towards = $args
+
+$tx = 0.0
+$ty = 0.0
+
+$nCount = 0
+foreach ($toward in $towards) {
+    if ($toward -is [double] -or $toward -is [float] -or $toward -is [int]) {
+        if (-not ($nCount % 2)) {
+            $tx = $toward 
+        } else {
+            $ty = $toward
+        }
+        $nCount++    
+    }
+    elseif ($null -ne $toward.X -and $null -ne $toward.Y) {
+        $tx = $toward.x
+        $ty = $toward.y
+        $nCount+= 2        
+    }
+}
+
+$tx/=($nCount/2)
+$ty/=($nCount/2)
 
 # Determine the delta from the turtle's current position to the specified point
-$deltaX = $X - $this.Position.X 
-$deltaY = $Y - $this.Position.Y
+$deltaX = $tx - $this.Position.X 
+$deltaY = $ty - $this.Position.Y
 # Calculate the angle in radians and convert to degrees
 $angle = [Math]::Atan2($deltaY, $deltaX) * 180 / [Math]::PI
 # Return the angle minus the current heading (modulo 360)