Types/Turtle/SierpinskiTriangle.ps1
|
<# .SYNOPSIS Generates a Sierpinski Triangle. .DESCRIPTION Generates a Sierpinski Triangle using turtle graphics. .LINK https://en.wikipedia.org/wiki/Sierpi%C5%84ski_triangle .EXAMPLE $turtle.SierpinskiTriangle().Pattern.Save("$pwd/SierpinskiTriangle.svg") .EXAMPLE $turtle.Clear() $turtle.SierpinskiTriangle(10,6) $turtle.PatternTransform = @{ 'scale' = 0.9 } $turtle.PatternAnimation = " <animateTransform attributeName='patternTransform' attributeType='XML' type='scale' values='1;0.9;1' dur='19s' repeatCount='indefinite' additive='sum' /> <animateTransform attributeName='patternTransform' attributeType='XML' type='skewY' values='0;-30;30;-30;0' dur='67s' repeatCount='indefinite' additive='sum' /> <animateTransform attributeName='patternTransform' attributeType='XML' type='skewX' values='0;-30;30;-30;0' dur='83s' repeatCount='indefinite' additive='sum' /> <animateTransform attributeName='patternTransform' attributeType='XML' type='rotate' values='0;360' dur='163s' repeatCount='indefinite' additive='sum' /> <animateTransform attributeName='patternTransform' attributeType='XML' type='translate' values='0 0;200 200;0 0' dur='283s' repeatCount='indefinite' additive='sum' /> " $turtle.Pattern.Save("$pwd/SierpinskiTriangle2.svg") #> param( [double]$Size = 200, [int]$Order = 2, [double]$Angle = 120 ) return $this.LSystem('F-G-G', [Ordered]@{ F = 'F-G+F+G-F' G = 'GG' }, $Order, [Ordered]@{ '\+' = { $this.Rotate($Angle) } '-' = { $this.Rotate($Angle * -1) } '[FG]' = { $this.Forward($Size) } }) |