Function calculateTextDimensions