dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

plot the points

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-10 20:12:34 +00:00
parent 9b4cb45c16
commit 4bdd103bd5
1 changed files with 21 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
frontend/src/Main.elm
View File

@ -197,7 +197,7 @@ newModel msg model =
Loaded result -> Loaded result ->
case result of case result of
Ok trk -> { model | track = Debug.log "LOADED" (Present trk) } Ok trk -> { model | track = Present trk }
Err (Http.BadBody e) -> { model | track = Debug.log e (Failure "e") } Err (Http.BadBody e) -> { model | track = Debug.log e (Failure "e") }
Err e -> { model | track = Debug.log "unknown error" (Failure "e") } Err e -> { model | track = Debug.log "unknown error" (Failure "e") }
@ -215,36 +215,28 @@ tileImg zoom tilenumber = img [ width 256,
height 256, height 256,
src (tileUrl tilenumber zoom) ] [] src (tileUrl tilenumber zoom) ] []
trackView : List Point -> Svg Msg trackView : List Point -> Int -> Int -> Svg Msg
trackView points leftedge topedge =
let plot p =
trackView track = let (x, y) = pixelFromCoord (toCoord p.pos.lat p.pos.lon) 13
x_ = x - leftedge
y_ = y - topedge
in circle [ cx (px x_), cy (px y_), r "2" ] []
line = List.map plot points
in
svg svg
[H.style "width" "100%" [ H.style "width" "100%"
,H.style "height" "100%" , H.style "height" "100%"
,H.style "position" "absolute" , H.style "position" "absolute"
] ]
[ g [ g
[fill "none" [ fill "none"
,stroke "blue" , stroke "blue"
,strokeWidth "7" , strokeWidth "7"
,strokeOpacity "0.5"] , strokeOpacity "0.5"]
[ rect line
[ x "10" ]
, y "10"
, S.width "100"
, S.height "100"
, rx "15"
, ry "15"
]
[]
, circle
[ cx "50"
, cy "50"
, r "50"
]
[]
]]
px x = String.fromInt x ++ "px" px x = String.fromInt x ++ "px"
@ -270,7 +262,7 @@ canvas centre zoom width height track =
ys = List.range mintile.y maxtile.y ys = List.range mintile.y maxtile.y
epos e = Tuple.mapBoth floor floor e.pointer.clientPos epos e = Tuple.mapBoth floor floor e.pointer.clientPos
tv = case track of tv = case track of
Present t -> trackView t Present t -> trackView t leftedge topedge
Failure f -> Debug.log f (div [] [ text "failure", text f]) Failure f -> Debug.log f (div [] [ text "failure", text f])
Loading -> div [] [text "loading"] Loading -> div [] [text "loading"]
Empty -> div [] [text "no points"] Empty -> div [] [text "no points"]