fix: Moore Fixes ( Fixes #370 )

Author: StartAutomating

Turtle.types.ps1xml

@@ -2226,17 +2226,24 @@ return $this
 .LINK
     https://en.wikipedia.org/wiki/Moore_curve
 .EXAMPLE
-    $turtle = New-Turtle
-    $turtle.MooreCurve().Pattern.Save("$pwd/MooreCurvePattern.svg")
+    turtle id moore1 moorecurve 42 1
+.EXAMPLE
+    turtle id moore2 moorecurve 42 2
+.EXAMPLE
+    turtle id moore3 moorecurve 42 3
+.EXAMPLE
+    turtle id moore4 moorecurve 42 4
 .EXAMPLE
     Move-Turtle MooreCurve 15 5 |
         Set-Turtle Stroke '#4488ff' |
         Save-Turtle "./MooreCurve.svg"
 #>
 param(
-    [double]$Size = 10,
-    [int]$Order = 4,
-    [double]$Angle = 90
+[double]$Size = $(
+    (Get-Random -Min 42 -Max 84) * (1,-1 |Get-Random)
+),
+[int]$Order = (2,3,4 | Get-Random),
+[double]$Angle = 90
 )        
 
 
@@ -2246,9 +2253,9 @@ return $this.LSystem(
         L = '-RF+LFL+FR-'
         R = '+LF-RFR-FL+'
     },
-    4, 
+    $Order,
     @{
-        F = { $this.Forward(10) }            
+        F = { $this.Forward($Size) }
         '\+' = { $this.Rotate(90) }            
         '-' = { $this.Rotate(-90) }
     }