feat: Turtle.HatMonotile ( Fixes #196 )

Author: StartAutomating

Turtle.types.ps1xml

@@ -788,6 +788,63 @@ return $this.Step(
 )
                     </Script>
       </ScriptMethod>
+      <ScriptMethod>
+        <Name>HatMonotile</Name>
+        <Script>
+                        &lt;#
+.SYNOPSIS
+    Draws a hat aperiodic monotile.
+.DESCRIPTION
+    This function uses turtle graphics to draw an aperiodic monotile called a "Hat"
+.EXAMPLE
+    turtle rotate -90 hatMonotile 100 save ./hatMonotile.svg
+.LINK
+    https://github.com/christianp/aperiodic-monotile/blob/main/hat-monotile.logo
+#&gt;
+param(
+[double]
+$A = 100,
+
+[double]
+$B = 0
+)
+
+if (-not $B) {
+    $B = [Math]::Tan(60 * [Math]::PI / 180) * $A
+}
+
+
+return $this.
+    Forward($b).
+    Rotate(90).
+    Forward($a).
+    Left(60).
+    Forward($a).
+    Rotate(90).
+    Forward($b).
+    Rotate(60).
+    Forward($b).
+    Left(90).
+    Forward($a).
+    Rotate(60).
+    Forward($a).
+    Rotate(90).
+    Forward($b).
+    Rotate(60).
+    Forward($b).
+    Left(90).
+    Forward($a).
+    Rotate(60).
+    Forward($a).
+    Forward($a).
+    Rotate(60).
+    Forward($a).
+    Rotate(90).
+    Forward($b).
+    Left(60)
+
+                    </Script>
+      </ScriptMethod>
       <ScriptMethod>
         <Name>HilbertCurve</Name>
         <Script>