Zoomable Line Charts
The main objective of this package is to draw line charts which have:
- mouse drag zoom
- reasonable time axes
See it in action: https://ralfnorthman.github.io/elm-zoom-plot/
Sample code:
import ZoomPlot as Plot
type alias Point =
{ x : Float, y : Float }
myPoints =
[ Point 11 120
, Point 12 121
, Point 13 120.5
, Point 14 119.5
]
type alias Model =
{ plotState : Plot.State Point }
init : Model
init =
{ plotState = Plot.init }
type Msg
= ToPlot (Plot.Msg Point)
update : Msg -> Model -> Model
update msg model =
case msg of
ToPlot plotMsg ->
{ model
| plotState =
Plot.update
plotMsg
model.plotState
}
view : Model -> Html Msg
view model =
Plot.points
{ toMsg = ToPlot
, data = myPoints
}
|> Plot.drawHtml model.plotState
