drawRadis :: [RadiData] -> Diagram SVG R2
drawRadis itvls = mconcat (map drawRadi itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_, e), Radi _ _ _) = last itvls
drawRadis :: [RadiData] -> Diagram SVG R2
drawRadis itvls = mconcat (map drawRadi itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_, e), Radi _ _ _) = last itvls
drawRadis itvls = mconcat (map drawRadi itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_, e), Radi _ _ _) = last itvls