Functions/SVG/Add-SvgSlice.ps1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
function Add-SvgSlice {
    [Diagnostics.CodeAnalysis.SuppressMessageAttribute(
        "PSUseSingularNouns", 
        "", 
        Justification = "Noun is singular"
    )]
    [CmdletBinding()]
    param(
        [Parameter(Mandatory)]
        #[ValidateNotNullOrEmpty()]
        [System.Xml.XmlElement]
        $Svg
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $CenterX
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $CenterY
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $Radius
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $StartAngle
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $EndAngle
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [int]
        $LineWidth = 1
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [string]
        $LineColor = 'grey'
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [float]
        $LineOpacity = 1
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [string]
        $FillColor = 'black'
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [float]
        $FillOpacity = 1
    )

    $element = $Svg.OwnerDocument.CreateElement('path')

    $CenterCoords = @{
        x = $CenterX
        y = $CenterY
    }
    $StartCoords = Get-CoordinatesFromAngle -Radius $Radius -Angle (Get-Radiant -Angle $StartAngle)
    $EndCoords   = Get-CoordinatesFromAngle -Radius $Radius -Angle (Get-Radiant -Angle $EndAngle)

    $StartCoords.x += $CenterCoords.x
    $StartCoords.y += $CenterCoords.y
    $EndCoords.x   += $CenterCoords.x
    $EndCoords.y   += $CenterCoords.y

    $d = 'M {0};{1} L {2};{3} A {4};{4} 0 0;0 {5};{6} z' -f $CenterCoords.x, $CenterCoords.y, $StartCoords.x, $StartCoords.y, $Radius, $EndCoords.x, $EndCoords.y
    $d = $d.Replace(',', '.').Replace(';', ',')
    $element.SetAttribute('d', $d)

    $element.SetAttribute('stroke', $LineColor)
    $element.SetAttribute('stroke-width', $LineWidth)
    $element.SetAttribute('stroke-opacity', $LineOpacity)
    $element.SetAttribute('opacity', $FillOpacity)
    $element.SetAttribute('fill', $FillColor)

    $Svg.AppendChild($element) | Out-Null
}