Functions/Charts/Add-RadarChart.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
function Add-RadarChart {
    [CmdletBinding()]
    param(
        [Parameter(Mandatory, ValueFromPipeline)]
        #[ValidateNotNullOrEmpty()]
        [System.Xml.XmlElement]
        $Svg
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $CenterX
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $CenterY
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $MaximumX
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $MaximumY
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [float]
        $Spacing
        ,
        [Parameter(Mandatory)]
        [ValidateNotNullOrEmpty()]
        [array]
        $Data
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [int]
        $LineWidth = 1
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [string]
        $LineColor = 'black'
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [float]
        $LineOpacity = 1
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [string]
        $FillColor = 'none'
        ,
        [Parameter()]
        [ValidateNotNullOrEmpty()]
        [float]
        $FillOpacity = 1
    )

    Add-SvgCircle $svg -CenterX $CenterX -CenterY $CenterY -Radius 2
    
    for ($y_i = 1; $y_i -le $MaximumY; ++$y_i) {
        $Points = @()
        for ($x_i = 0; $x_i -le $MaximumX; ++$x_i) {
            $Coordinates = Get-CoordinatesFromAngle -Radius ( $y_i * $Spacing ) -Angle ( Get-Radiant -Angle ( $x_i * 360 / $MaximumX ) )
            $Coordinates.x += $CenterX
            $Coordinates.y += $CenterY
            #Write-Host "x_i=$x_i y_i=$y_i"
            $Points += $Coordinates
        }
        Add-SvgPolygon $svg -Points $Points
    }

    $Points = @()
    foreach ($item in $Data) {
        $Coordinates = Get-CoordinatesFromAngle -Radius ( $item.y * $Spacing ) -Angle ( Get-Radiant -Angle ( $item.x * 360 / $MaximumX ) )
        $Coordinates.x += $CenterX
        $Coordinates.y += $CenterY
        $Points += $Coordinates
    }
    Add-SvgPolygon $svg -Points $Points -Color Red
}