feat: Lucky turtle and random defaults ( Fixes #363, Fixes #366 )

Randomizing sierpinski triangle, square, and star

Author: StartAutomating

Types/Turtle/Lucky.ps1

@@ -4,7 +4,7 @@ $luckyArgs = @(
 
     $shapes = @(
         "flower", "starflower", "goldenflower", 'triflower',    
-        "arcygon", "polygon", 
+        "arcygon", "polygon", 'star',
         "square", "circle", "rectangle", 'righttriangle',
         "sierpinskitriangle","sierpinskiarrowheadcurve",
         "sierpinskicurve","sierpinskisquarecurve",

Types/Turtle/SierpinskiTriangle.ps1

@@ -23,8 +23,8 @@
     $turtle.Pattern.Save("$pwd/SierpinskiTriangle2.svg")
 #>
 param(
-    [double]$Size = 200,
-    [int]$Order = 2,
+    [double]$Size = (Get-Random -Min 42 -Max 84),
+    [int]$Order = $(Get-Random -Min 3 -Max 5),
     [double]$Angle = 120
 )
 return $this.LSystem('F-G-G',  [Ordered]@{

Types/Turtle/Square.ps1

@@ -1,4 +1,14 @@
-param([double]$Size = 50)
+<#
+.SYNOPSIS
+    Draws a square
+.DESCRIPTION
+    Draws a square using Turtle graphics
+.EXAMPLE
+    turtle square 42    
+#>
+param(
+[double]$Size = $(Get-Random -Min 21 -Max 42)
+)
 $null = foreach ($n in 1..4) {
     $this.Forward($Size)
     $this.Rotate(90)

Types/Turtle/Star.ps1

@@ -20,9 +20,9 @@
 #>
 param(
     # The approximate size of the star
-    [double]$Size = 50,
+    [double]$Size = $(Get-Random -Min 21 -Max 42),
     # The number of points in the star
-    [int]$Points = 6
+    [int]$Points = $(Get-Random -Min 5 -Max 7)
 )
 
 # To determine the angle, divide 360 by the number of points