feat: Turtle.ArcLeft/ArcRight ( Fixes #118 )

Author: StartAutomating

Types/Turtle/Alias.psd1

@@ -16,4 +16,6 @@
     MoveTo = 'Teleport'
     Back = 'Backward'
     bk = 'Backward'
+    ArcR = 'ArcRight'
+    ArcL = 'ArcLeft'
 }

Types/Turtle/ArcLeft.ps1

@@ -0,0 +1,24 @@
+<#
+.SYNOPSIS
+    Arcs the turtle to the left
+.DESCRIPTION
+    Arcs the turtle to the left (counter-clockwise) a number of degrees.
+
+    For each degree, the turtle will move forward and rotate.
+.NOTES
+    The amount moved forward will be the portion of the circumference.
+#>
+param(
+# The radius of a the circle, were it to complete the arc.
+[double]
+$Radius = 10,
+
+# The angle of the arc
+[double]
+$Angle = 60
+)
+
+# Rather than duplicate logic, we will simply reverse the angle
+$angle *= -1
+# and arc to the "right".
+return $this.ArcRight($Radius, $Angle)

Types/Turtle/ArcRight.ps1

@@ -0,0 +1,34 @@
+<#
+.SYNOPSIS
+    Arcs the turtle to the right
+.DESCRIPTION
+    Arcs the turtle to the right (clockwise) a number of degrees.
+
+    For each degree, the turtle will move forward and rotate.
+.NOTES
+    The amount moved forward will be the portion of the circumference.
+#>
+param(
+# The radius of a the circle, were it to complete the arc.
+[double]
+$Radius = 10,
+
+# The angle of the arc
+[double]
+$Angle = 60
+)
+
+
+# Determine the absolute angle, for this
+$absAngle = [Math]::Abs($angle)
+$circumferenceStep = ([Math]::PI * 2 * $Radius) / $absAngle
+
+$iteration = $angle / [Math]::Floor($absAngle)
+$angleDelta = 0 
+$null = while ([Math]::Abs($angleDelta) -lt $absAngle) {
+    $this.Forward($circumferenceStep)
+    $this.Rotate($iteration)
+    $angleDelta+=$iteration
+}
+
+return $this