remove some onscreen garbage

This commit is contained in:
Daniel Barlow 2024-11-12 21:30:37 +00:00
parent 9b6ddd46d5
commit cfef807bf6

View File

@ -340,18 +340,13 @@ viewDiv model =
[canvasV])
, div [ style "width" (px portalWidth), style "height" "150"]
[ ifTrack model.track cadenceView ]
, div [] [ text (String.fromInt model.zoom ) ]
, div [] [ case model.track of
-- Present tk -> text (String.fromInt (List.length tk))
_ -> text "dgdfg"
]
, div [] [ text ("Zoom level " ++ (String.fromInt model.zoom)) ]
, button [ onClick ZoomOut ] [ text "-" ]
, button [ onClick ZoomIn ] [ text "+" ]
, button [ onClick (Scroll 0 -10) ] [ text "^" ]
, button [ onClick (Scroll 0 10) ] [ text "V" ]
, button [ onClick (Scroll -10 0) ] [ text "<" ]
, button [ onClick (Scroll 10 0) ] [ text ">" ]
-- , div [] [ text (Debug.toString (List.length model.track)) ]
]
view : Model -> Browser.Document Msg