feat: Turtle.Leg ( Fixes #288 )

Author: StartAutomating

Turtle.types.ps1xml

@@ -27,6 +27,10 @@
         <Name>ArcR</Name>
         <ReferencedMemberName>ArcRight</ReferencedMemberName>
       </AliasProperty>
+      <AliasProperty>
+        <Name>Arm</Name>
+        <ReferencedMemberName>Leg</ReferencedMemberName>
+      </AliasProperty>
       <AliasProperty>
         <Name>Back</Name>
         <ReferencedMemberName>Backward</ReferencedMemberName>
@@ -1660,6 +1664,56 @@ param(
 $this.Rotate($Angle * -1)
                     </Script>
       </ScriptMethod>
+      <ScriptMethod>
+        <Name>Leg</Name>
+        <Script>
+                        &lt;#
+.SYNOPSIS
+    Draws a arm or a leg
+.DESCRIPTION
+    Instructs our Turtle to draw an arm or a leg.
+
+    Each segment of the arm or leg can be considered a pair of vectors.
+
+    Each pair will represent a leg length followed by a leg angle.
+.EXAMPLE
+    turtle push leg 42 90 42 90 pop push rotate -15 leg 42 90 42 90 pop rotate -30 leg 42 90 42 90
+.EXAMPLE
+    turtle rotate 90 rotate -15 push leg 21 15 pop rotate 30 push leg 21 -15 pop show 
+#&gt;
+param()
+
+$pairs = @()
+$pair = @()
+foreach ($arg in $args) {
+    if ($arg -is [ValueType]) {
+        if ($arg -is [Numerics.Vector2] -or 
+            $arg -is [Numerics.Vector3] -or 
+            $arg -is [Numerics.Vector4]
+        ) {
+            $pair += $arg.X
+            $pair += $arg.Y
+        } else {
+            $pair += $arg
+        }
+        
+    }
+    elseif ($arg -as [double]) {
+        $pair += $arg
+    }
+    if ($pair.Count -eq 2) {
+        $pairs += ,$pair
+        $pair = @()
+    }
+}
+
+foreach ($pair in $pairs) {
+    $this = $this.Forward($pair[0]).Rotate($pair[1])
+}
+return $this
+
+                    </Script>
+      </ScriptMethod>
       <ScriptMethod>
         <Name>LevyCurve</Name>
         <Script>