drawGrads :: [GradData] -> Diagram SVG R2
drawGrads itvls = mconcat (map drawGrad itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_,e), Grad _ _ _) = last itvls
drawGrads :: [GradData] -> Diagram SVG R2
drawGrads itvls = mconcat (map drawGrad itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_,e), Grad _ _ _) = last itvls
drawGrads itvls = mconcat (map drawGrad itvls) <> lastKm
 where lastKm = translateX e $ rotate (1/4 @@ turn) $ textDef (showKm e)
       ((_,e), Grad _ _ _) = last itvls