feat: Turtle.FractalShrub ( Fixes #332 )

Author: StartAutomating

Types/Turtle/FractalShrub.ps1

@@ -0,0 +1,32 @@
+<#
+.SYNOPSIS
+    Draws a Fractal Shrub
+.DESCRIPTION
+    Draws a Fractal Shrub using an an L-System.
+
+    This is a modification of the fractal plant will less rotation
+.LINK
+    https://en.wikipedia.org/wiki/L-system#Example_7:_fractal_plant
+.EXAMPLE
+    turtle FractalShrub save ./FractalShrub.svg
+.EXAMPLE
+    turtle FractalShrub morph  save ./FractalShrubMorph.svg
+#>  
+param(
+    # The size of each segment
+    [double]$Size = 42,
+    # The order of magnitude (the number of times the L-system is expanded)
+    [int]$Order = 4,
+    # The angle of each segment
+    [double]$Angle = -25
+)
+return $this.Rotate(-90).LSystem('-X',  [Ordered]@{
+    'X' = 'F[[X]X]F[FX]X'
+    'F' = 'FF'
+}, $Order, [Ordered]@{
+    'F'  = { $this.Forward($Size) }
+    #'\+' = { $this.Rotate($angle)}
+    # '\-' = { $this.Rotate($angle * -1)}
+    '\[' = { $this.Push().Rotate($angle) }
+    '\]' = { $this.Pop().Rotate($angle * -1) }
+})