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

replace circles with polyline

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

15
frontend/src/Main.elm
View File

@ -8,13 +8,14 @@ import Html.Events.Extra.Pointer as Pointer
import Maybe exposing (Maybe) import Maybe exposing (Maybe)
import Json.Decode as D import Json.Decode as D
import Http import Http
import Svg exposing (Svg, svg, rect, circle, g) import Svg exposing (Svg, svg, rect, circle, g, polyline)
import Svg.Attributes as S exposing import Svg.Attributes as S exposing
( viewBox ( viewBox
, x, y , x, y
, r, rx, ry , r, rx, ry
, cx, cy , cx, cy
, fill , fill
, points
, stroke, strokeWidth, strokeOpacity) , stroke, strokeWidth, strokeOpacity)
@ -221,8 +222,9 @@ trackView points leftedge topedge =
let (x, y) = pixelFromCoord (toCoord p.pos.lat p.pos.lon) 13 let (x, y) = pixelFromCoord (toCoord p.pos.lat p.pos.lon) 13
x_ = x - leftedge x_ = x - leftedge
y_ = y - topedge y_ = y - topedge
in circle [ cx (px x_), cy (px y_), r "2" ] [] in (String.fromInt x_) ++ ", " ++
line = List.map plot points (String.fromInt y_) ++ ", "
line = String.concat (List.map plot points)
in in
svg svg
[ H.style "width" "100%" [ H.style "width" "100%"
@ -234,7 +236,12 @@ trackView points leftedge topedge =
, stroke "blue" , stroke "blue"
, strokeWidth "7" , strokeWidth "7"
, strokeOpacity "0.5"] , strokeOpacity "0.5"]
line [
polyline
[ fill "none"
, S.points line
] []
]
] ]