GanttChart

let ganttChartDataList = [
    [
        ganttChartDataPoint.x [
            xDataPoint.start (System.DateOnly.Parse "2009-01-01")
            xDataPoint.end' (System.DateOnly.Parse "2009-02-28")
        ]
        ganttChartDataPoint.y "Job A"
        ganttChartDataPoint.legend "Alex"
        ganttChartDataPoint.color Fui.dataVizPallete.color1
        ganttChartDataPoint.gradient ("#4760D5", "#637CEF")
    ]
    [
        ganttChartDataPoint.x [
            xDataPoint.start (System.DateOnly.Parse "2009-03-05")
            xDataPoint.end' (System.DateOnly.Parse "2009-04-15")
        ]
        ganttChartDataPoint.y "Job B"
        ganttChartDataPoint.legend "Alex"
        ganttChartDataPoint.color Fui.dataVizPallete.color1
        ganttChartDataPoint.gradient ("#4760D5", "#637CEF")
    ]
    [
        ganttChartDataPoint.x [
            xDataPoint.start (System.DateOnly.Parse "2009-02-20")
            xDataPoint.end' (System.DateOnly.Parse "2009-05-30")
        ]
        ganttChartDataPoint.y "Job C"
        ganttChartDataPoint.legend "Max"
        ganttChartDataPoint.color Fui.dataVizPallete.color2
        ganttChartDataPoint.gradient ("#E61C99", "#EE5FB7")
    ]
]

Fui.ganttChart [
    ganttChart.data ganttChartDataList
    ganttChart.showYAxisLables true
    ganttChart.width 500
    ganttChart.height 300
    ganttChart.enableGradient true
    ganttChart.roundCorners true
]