Input := TopCut = r Cos[tsol]
Output = 0.964267 r
Input := BottomCut = - r Cos[tsol]
Output = -0.964267 r