fix: Turtle.set_PatternAnimation ease of use ( Fixes #26 )

Allowing dictionary values

Author: StartAutomating

Turtle.types.ps1xml

@@ -1578,11 +1578,35 @@ $segments -join '' -as [xml]
                     </GetScriptBlock>
         <SetScriptBlock>
                         param(
-[string]
+[PSObject]
 $PatternAnimation
 )
 
-$this | Add-Member -MemberType NoteProperty -Force -Name '.PatternAnimation' -Value $PatternAnimation
+$newAnimation = @(foreach ($animation in $PatternAnimation) {
+    if ($animation -is [Collections.IDictionary]) {
+        $animationCopy = [Ordered]@{} + $animation
+        if (-not $animationCopy['attributeType']) {
+            $animationCopy['attributeType'] = 'XML'
+        }
+        if (-not $animationCopy['attributeName']) {
+            $animationCopy['attributeName'] = 'patternTransform'
+        }
+        if ($animationCopy.values -is [object[]]) {
+            $animationCopy['values'] = $animationCopy['values'] -join ';'
+        }
+        
+        "&lt;animateTransform $(
+            @(foreach ($key in $animationCopy.Keys) {
+                " $key='$([Web.HttpUtility]::HtmlAttributeEncode($animationCopy[$key]))'"
+            }) -join ''
+        )/&gt;"
+    }
+    if ($animation -is [string]) {
+        $animation
+    }
+})
+
+$this | Add-Member -MemberType NoteProperty -Force -Name '.PatternAnimation' -Value $newAnimation
 
                     </SetScriptBlock>
       </ScriptProperty>