feat: Turtle.get/set_PathAnimation ( Fixes #117 )

Author: StartAutomating

Types/Turtle/get_PathAnimation.ps1

@@ -0,0 +1,3 @@
+if ($this.'.PathAnimation') {
+    return $this.'.PathAnimation'
+}

Types/Turtle/get_PathElement.ps1

@@ -5,9 +5,11 @@
     if ($this.StrokeWidth) { $this.StrokeWidth } else { '0.1%' }
 )' fill='$($this.Fill)' class='$(
     $this.PathClass -join ' '
-)' $(
+)' transform-origin='50% 50%' $(
     foreach ($pathAttributeName in $this.PathAttribute.Keys) {
         " $pathAttributeName='$($this.PathAttribute[$pathAttributeName])'"
     }
-) />"
+)>"
+if ($this.PathAnimation) {$this.PathAnimation}
+"</path>"
 ) -as [xml]

Types/Turtle/set_PathAnimation.ps1

@@ -0,0 +1,35 @@
+param(
+[PSObject]
+$PathAnimation
+)
+
+$newAnimation = @(foreach ($animation in $PathAnimation) {
+    if ($animation -is [Collections.IDictionary]) {
+        $animationCopy = [Ordered]@{} + $animation
+        if (-not $animationCopy['attributeType']) {
+            $animationCopy['attributeType'] = 'XML'
+        }
+        if (-not $animationCopy['attributeName']) {
+            $animationCopy['attributeName'] = 'transform'
+        }
+        if ($animationCopy.values -is [object[]]) {
+            $animationCopy['values'] = $animationCopy['values'] -join ';'
+        }
+
+        $elementName = 'animate'
+        if ($animationCopy['attributeName'] -eq 'transform') {
+            $elementName = 'animateTransform'
+        }
+        
+        "<$elementName $(
+            @(foreach ($key in $animationCopy.Keys) {
+                " $key='$([Web.HttpUtility]::HtmlAttributeEncode($animationCopy[$key]))'"
+            }) -join ''
+        )/>"
+    }
+    if ($animation -is [string]) {
+        $animation
+    }
+})
+
+$this | Add-Member -MemberType NoteProperty -Force -Name '.PathAnimation' -Value $newAnimation