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

Author: StartAutomating

Types/Turtle/Alias.psd1

@@ -51,6 +51,7 @@
     # Common transposition errors
     FlowerStar = 'StarFlower'
     FlowerGolden = 'GoldenFlower'
+    PetalFlower = 'FlowerPetal'
 
     # Technically accurate aliases to more helpful names
     Href = 'Link'    

Types/Turtle/Arc.ps1

@@ -11,11 +11,11 @@
 param(
 # The X Radius of the arc.
 [double]
-$RadiusX,
+$RadiusX = $(Get-Random -Min -42 -Max 42),
 
 # The Y Radius of the arc.
 [double]
-$RadiusY,
+$RadiusY = $(Get-Random -Min -42 -Max 42),
 
 # The rotation along the x-axis.
 [double]
@@ -25,22 +25,26 @@ $Rotation = 0,
 # If set to 0, will draw a small arc
 [ValidateSet(0,1, "Large", "Small", $true, $false)]
 [PSObject]
-$IsLargeArc = 1,
+$IsLargeArc = $(1,0 | Get-Random),
 
 # By default, the arc will be drawn clockwise
 # If this is set to 1, the arc will be drawn counterclockwise
 # If set to 1, will draw an arc counterclockwise
 [ValidateSet(0, 1, 'Clockwise','CounterclockWise', 'cw', 'ccw', $true, $false)]
 [PSObject]
-$IsCounterClockwise = 0,
+$IsCounterClockwise = $(1,0 | Get-Random),
 
 # The deltaX 
 [double]
-$DeltaX,
+$DeltaX = $(
+    (Get-Random -Min 42 -Max 84) * (1,-1 | Get-Random)
+),
 
 # The deltaY 
 [double]
-$DeltaY
+$DeltaY = $(
+    (Get-Random -Min 42 -Max 84) * (1,-1 | Get-Random)
+)
 )
 
 if ($DeltaX -or $DeltaY) {

Types/Turtle/ArcLeft.ps1

@@ -11,11 +11,11 @@
 param(
 # The radius of a the circle, were it to complete the arc.
 [double]
-$Radius = 10,
+$Radius = (Get-Random -Min 42 -Max 84),
 
 # The angle of the arc
 [double]
-$Angle = 60
+$Angle = (Get-Random -Min 30 -Max 90)
 )
 
 # Rather than duplicate logic, we will simply reverse the angle

Types/Turtle/ArcRight.ps1

@@ -11,11 +11,11 @@
 param(
 # The radius of a the circle, were it to complete the arc.
 [double]
-$Radius = 10,
+$Radius = (Get-Random -Min 42 -Max 84),
 
 # The angle of the arc
 [double]
-$Angle = 60,
+$Angle = (Get-Random -Min 30 -Max 90),
 
 # The number of steps.  If not provided, will default to half of the angle.
 [int]

Types/Turtle/Backward.ps1

@@ -4,16 +4,12 @@
 .DESCRIPTION
     Moves the turtle backwards by a specified distance.
 .EXAMPLE
-    Move-Turtle Forward 10 | 
-        Move-Turtle Backward 5 | 
-        Move-Turtle Rotate 90 | 
-        Move-Turtle Forward 20 | 
-        Save-Turtle ./DrawT.svg
+    turtle id 'tshape' forward 10 backward 5 rotate 90 forward 20    
 #>
 param(
 # The distance to move backwards
 [double]
-$Distance = 10
+$Distance = (Get-Random -Min 10 -Max 100)
 )
 
 $this.Forward($Distance * -1)

Types/Turtle/BarGraph.ps1

@@ -43,9 +43,22 @@ param(
 [double[]]$Points
 )
 
+if ($width -and -not $Height) {
+    $height = $width
+} elseif ($height -and -not $Width) {
+    $width = $height
+} elseif (-not $width -and -not $height) {
+    $width = (Get-Random -Min 10 -Max 100) * (1,-1| Get-Random)
+    $height = (Get-Random -Min 10 -Max 100)
+}
+
 
 # If there were no points, we are drawing nothing, so return ourself.
-if (-not $points) { return $this}
+if (-not $points) { 
+    $points = foreach ($n in 1..(Get-Random -Min 4 -Max 20)) {
+        Get-Random -Min 0 -Max 100
+    }
+}
 
 # Divide the width by the number of points to get a very snug bar graph
 $barWidth = $width / $points.Length

Types/Turtle/BezierCurve.ps1

@@ -26,19 +26,19 @@
 param(
 # The X control point
 [double]
-$ControlX,
+$ControlX = (Get-Random -Max 42),
 
 # The Y control point
 [double]
-$ControlY,
+$ControlY = (Get-Random -Max 42),
 
 # The delta X
 [double]
-$DeltaX,
+$DeltaX = (Get-Random -Min 0 -Max 100),
 
 # The delta Y
 [double]
-$DeltaY
+$DeltaY = (Get-Random -Min 0 -Max 100)
 )
 
 

Types/Turtle/BoardFractal.ps1

@@ -16,9 +16,9 @@
 #>
 param(
 # The size of each segment
-[double]$Size = 200,
+[double]$Size = (Get-Random -Min 100 -Max 200),
 # The order of magnitude (the number of expansions)
-[int]$Order = 4,
+[int]$Order = (2,3,4 | Get-Random),
 # The default angle.
 [double]$Angle = 90
 )

Types/Turtle/BoxFractal.ps1

@@ -17,8 +17,8 @@
     $turtle.Pattern.Save("$pwd/BoxFractal2.svg")
 #>
 param(
-    [double]$Size = 20,
-    [int]$Order = 4,
+    [double]$Size = (Get-Random -Min 21 -Max 42),
+    [int]$Order = (2,3,4 | Get-Random),
     [double]$Angle = 90
 )
 return $this.LSystem('F-F-F-F',  [Ordered]@{

Types/Turtle/CircleArc.ps1

@@ -26,11 +26,15 @@
 param(
 # The radius of the circle
 [double]
-$Radius = 42,
+$Radius = $(
+    (Get-Random -Min 42 -Max 84) *(1,-1|Get-Random)
+),
 
 # The angle of the arc 
 [double]
-$Angle = 30
+$Angle =  $(
+    (Get-Random -Min 30 -Max 90) *(1,-1|Get-Random)
+)
 )
 
 # If we wanted an angle that was a multiple of 360