feat: Turtle.Duration ( Fixes #153 )

Author: StartAutomating

Types/Turtle/get_Duration.ps1

@@ -0,0 +1,8 @@
+<#
+.SYNOPSIS
+    Gets the duration
+.DESCRIPTION
+    Gets the default duration of animations and morphs.
+#>
+if ($this.'.Duration') { return $this.'.Duration'}
+return

Types/Turtle/set_Duration.ps1

@@ -0,0 +1,21 @@
+<#
+.SYNOPSIS
+    Sets the duration
+.DESCRIPTION
+    Sets the default duration used for morphs and other animations.
+#>
+param(
+# The value to set
+$value
+)
+
+foreach ($v in $value) {
+    if ($v -is [Timespan]) {
+        $this | Add-Member NoteProperty '.Duration' $v -Force
+    } elseif ($v -is [double] -or $v -is [int]) {
+        $this | Add-Member NoteProperty '.Duration' ([TimeSpan]::FromSeconds($v)) -Force
+    } else {
+        Write-Warning "'$Value' is not a number or timespan"
+    }
+}
+

Types/Turtle/set_PathAnimation.ps1

@@ -36,6 +36,11 @@ $newAnimation = @(foreach ($animation in $PathAnimation) {
         if ($animationCopy['attributeName'] -eq 'transform') {
             $elementName = 'animateTransform'
         }
+
+
+        if (-not $animationCopy['dur'] -and $this.Duration) {
+            $animationCopy['dur'] = "$($this.Duration.TotalSeconds)s"
+        }
 
         "<$elementName $(
             @(foreach ($key in $animationCopy.Keys) {