How to create a program in mathematica that automatically adjusts a perfect circle inside the drop shape so that the outside parts of the circle are added part by part and returns us a value? As in the attached figure.