feat: Turtle.TurtleMonotile ( Fixes #195 )

Author: StartAutomating

Turtle.types.ps1xml

@@ -2424,6 +2424,66 @@ return $this.LSystem('F++F++F',  [Ordered]@{
     'F'     = { $this.Forward($Size) }
 })
 
+                    </Script>
+      </ScriptMethod>
+      <ScriptMethod>
+        <Name>TurtleMonotile</Name>
+        <Script>
+                        &lt;#
+.SYNOPSIS
+    Draws a turtle aperiodic monotile.
+.DESCRIPTION
+    This function uses turtle graphics to draw an aperiodic monotile called a "Turtle"
+.EXAMPLE
+    turtle rotate -90 turtleMonotile 100 save ./turtleMonotile.svg
+.LINK
+    https://github.com/christianp/aperiodic-monotile/blob/main/turtle-monotile.logo
+#&gt;
+param(
+[double]
+$A = 100,
+
+[double]
+$B = 0
+)
+
+if (-not $B) {
+    $B = [Math]::Tan(60 * [Math]::PI / 180) * $A
+}
+
+return $this.
+    Rotate(90).
+    Forward($a).
+    Rotate(60).
+    Forward($a).
+    Rotate(-90).
+    Forward($b).
+    Rotate(60).
+    Forward($b).
+    Forward($b).
+    Rotate(60).
+    Forward($b).
+    Rotate(90).
+    Forward($a).
+    Rotate(-60).
+    Forward($a).
+    Rotate(90).
+    Forward($b).
+    Rotate(-60).
+    Forward($b).
+    Rotate(90).
+    Forward($a).
+    Rotate(60).
+    Forward($a).
+    Rotate(-90).
+    Forward($b).
+    Rotate(60).
+    Forward($b)
+
+return
+
+
+
                     </Script>
       </ScriptMethod>
       <ScriptMethod>