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

    $ColorScheme = @( 'Red', 'Blue', 'Yellow', 'Green', 'Grey' )

    for ($CurrentSeries = 0; $CurrentSeries -lt $Data.Length; ++$CurrentSeries) {

        $LowerPoints = @()
        $UpperPoints = @()
        for ($i = 0; $i -lt $Data[$CurrentSeries].Length; ++$i) {
            $x = $Data[$CurrentSeries][$i].x

            $y = 0
            for ($j = 0; $j -lt ($CurrentSeries); ++$j) {
                $y += $Data[$j][$i].y
            }

            $LowerPoints += @{ x = $x; y = $y }
            $y2 = $Data[$CurrentSeries][$i].y
            $UpperPoints += @{ x = $x; y = $($y + $y2) }
        }

        # create line with fill
        [array]::Reverse($UpperPoints)
        $Points = $LowerPoints + $UpperPoints

        Add-SvgLine $svg -Points $Points -Color $ColorScheme[$CurrentSeries] -Width $LineWidth -Opacity $LineOpacity -FillColor $ColorScheme[$CurrentSeries]
    }
}