feat: Turtle.HatMonotile ( Fixes #196 )

Author: James Brundage

Types/Turtle/HatMonotile.ps1

@@ -0,0 +1,51 @@
+<#
+.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
+#>
+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)