drawH :: Double -> Diagram B
drawH t = (symb <> base)  # translateY t
  where symb = drawChar 'H'
        base = square (1.7*targetRad)
             # lw thin
             # fc white
drawH :: Double -> Diagram B
drawH t = (symb <> base)  # translateY t
  where symb = drawChar 'H'
        base = square (1.7*targetRad)
             # lw thin
             # fc white
drawH t = (symb <> base)  # translateY t
  where symb = drawChar 'H'
        base = square (1.7*targetRad)
             # lw thin
             # fc white