fn area_under_curve(raw: Vec<(Time, usize)>, width: f64, height: f64) -> Polygon