drawCtrl :: Double -> Diagram B
drawCtrl y = circle ctrlRad # fc black # translateY y
drawCtrl :: Double -> Diagram B
drawCtrl y = circle ctrlRad # fc black # translateY y
drawCtrl y = circle ctrlRad # fc black # translateY y