feat: Turtle.GosperCurve() ( Fixes #69 )

Author: StartAutomating

Turtle.types.ps1xml

@@ -236,6 +236,43 @@ if ($This.IsPenDown) {
 return $this
                     </Script>
       </ScriptMethod>
+      <ScriptMethod>
+        <Name>GosperCurve</Name>
+        <Script>
+                        &lt;#
+.EXAMPLE
+    $turtle.Clear().GosperCurve().Pattern.Save("$pwd/GosperCurve.svg")
+.EXAMPLE
+    $turtle.Clear()
+    $turtle.GosperCurve(20,1,60)
+    $turtle.PatternTransform = @{
+        'scale' = 0.5
+    }
+    
+    $turtle.PatternAnimation = "
+    &lt;animateTransform attributeName='patternTransform' attributeType='XML' type='scale' values='1;0.9;1' dur='19s' repeatCount='indefinite' additive='sum' /&gt;
+    &lt;animateTransform attributeName='patternTransform' attributeType='XML' type='skewY' values='30;-30;30' dur='67s' repeatCount='indefinite' additive='sum' /&gt;
+    &lt;animateTransform attributeName='patternTransform' attributeType='XML' type='skewX' values='30;-30;30' dur='83s' repeatCount='indefinite' additive='sum' /&gt;
+    "
+    $turtle.Pattern.Save("$pwd/GosperCurve2.svg")
+#&gt;
+param(
+    [double]$Size = 10,
+    [int]$Order = 4,
+    [double]$Angle = 60
+)        
+
+return $this.LSystem('A',  @{
+    A = 'A-B--B+A++AA+B-'
+    B = 'A-BB--B-A++A+B'
+}, $Order, ([Ordered]@{
+    '\+'    = { $this.Rotate($Angle) }
+    '[AB]'  = { $this.Forward($Size) }    
+    '-'     = { $this.Rotate($Angle * -1) }
+}))
+
+                    </Script>
+      </ScriptMethod>
       <ScriptMethod>
         <Name>HilbertCurve</Name>
         <Script>
@@ -580,7 +617,9 @@ return $this
     $turtle = New-Turtle
     $turtle.PeanoCurve().Pattern.Save("$pwd/PeanoCurve.svg")
 .EXAMPLE
-    Move-Turtle PeanoCurve 15 5
+    Move-Turtle PeanoCurve 15 5 |
+        Set-Turtle Stroke '#4488ff' |
+        Save-Turtle "./PeanoCurve.svg"
 #&gt;
 param(
     [double]$Size = 10,