-}
scaledNode :: Topic -> Diagram B
scaledNode t = box <> centerXY txt
  where txt :: Diagram B
        txt     = texterific $ topicName t
        (th,tw) = (height txt, width txt)
        sf      = 1.5
        box     = roundedRect (tw * sf) (th * sf) 0.2