fix: Fixing Turtle StrokeWidth ( Fixes #16 )

Author: James Brundage

Types/Turtle/get_Pattern.ps1

@@ -1,7 +1,7 @@
 param()
 $segments = @(
-$viewX = [Math]::Max($this.Maximum.X, $this.Minimum.X * -1)
-$viewY = [Math]::Max($this.Maximum.Y, $this.Minimum.Y * -1)
+$viewX = $this.Maximum.X + ($this.Minimum.X * -1)
+$viewY = $this.Maximum.Y + ($this.Minimum.Y * -1)
 "<svg xmlns='http://www.w3.org/2000/svg' width='100%' height='100%'>"
 "<defs>"
     "<pattern id='turtle-pattern' patternUnits='userSpaceOnUse' width='$viewX' height='$viewY' transform-origin='50% 50%'$(
@@ -16,6 +16,8 @@ $viewY = [Math]::Max($this.Maximum.Y, $this.Minimum.Y * -1)
         $(if ($this.PatternAnimation) { $this.PatternAnimation })
         "<path id='turtle-path' d='$($this.PathData)' stroke='$(
             if ($this.Stroke) { $this.Stroke } else { 'black' }
+        )' stroke-width='$(
+            if ($this.StrokeWidth) { $this.StrokeWidth } else { '0.1%' }
         )' fill='transparent'/>"
     "</pattern>"
 "</defs>"

Types/Turtle/get_SVG.ps1

@@ -1,14 +1,14 @@
 param()
 @(
 
-$viewX = [Math]::Max($this.Maximum.X, $this.Minimum.X * -1)
-$viewY = [Math]::Max($this.Maximum.Y, $this.Minimum.Y * -1)
+$viewX = $this.Maximum.X + ($this.Minimum.X * -1)
+$viewY = $this.Maximum.Y + ($this.Minimum.Y * -1)
 
 "<svg xmlns='http://www.w3.org/2000/svg' viewBox='0 0 $viewX $viewY' transform-origin='50% 50%' width='100%' height='100%'>"
     "<path id='turtle-path' transform-origin='50% 50%' d='$($this.PathData)' stroke='$(
         if ($this.Stroke) { $this.Stroke } else { '#4488ff' }
-    )' stroke-thickness='$(
-        if ($this.StrokeThickness) { $this.StrokeThickness } else { '0.1%' }
+    )' stroke-width='$(
+        if ($this.StrokeWidth) { $this.StrokeWidth } else { '0.1%' }
     )' fill='transparent'/>"
 "</svg>"
 ) -join '' -as [xml]

Types/Turtle/get_StrokeThickness.ps1

@@ -0,0 +1,5 @@
+if ($this.'.StrokeWidth') {
+    return $this.'.StrokeWidth'
+} else {
+    return '0.1%'
+}

Types/Turtle/get_StrokeWidth.ps1

@@ -1,12 +1,15 @@
 param()
 
-@(
-    $viewX = [Math]::Max($this.Maximum.X, $this.Minimum.X * -1)
-    $viewY = [Math]::Max($this.Maximum.Y, $this.Minimum.Y * -1)
+$viewX = $this.Maximum.X + ($this.Minimum.X * -1)
+$viewY = $this.Maximum.Y + ($this.Minimum.Y * -1)
+
+@(    
     "<svg xmlns='http://www.w3.org/2000/svg' width='100%' height='100%'>"
         "<symbol id='turtle-symbol' viewBox='0 0 $viewX $viewY' transform-origin='50% 50%'>"
             "<path id='turtle-path' transform-origin='50% 50%' d='$($this.PathData)' stroke='$(
                 if ($this.Stroke) { $this.Stroke } else { 'black' }
+            )' stroke-width='$(
+                if ($this.StrokeWidth) { $this.StrokeWidth } else { '0.1%' }
             )' fill='transparent'/>"
         "</symbol>"
         "<use href='#turtle-symbol' width='100%' height='100%' />"

Types/Turtle/get_Symbol.ps1

@@ -1,3 +1,3 @@
 param([string]$value)
 
-$this | Add-Member -MemberType NoteProperty -Force -Name '.StrokeThickness' -Value $value
+$this | Add-Member -MemberType NoteProperty -Force -Name '.StrokeWidth' -Value $value