On Fri, Aug 19, 2016 at 2:42 PM, Bill Gosper <billgosper@gmail.com> wrote:

(E.g., area .00013.) gosper.org/00013.pdf (Bug in Mathematica's pdf renderer: Windings are iored vs xored. But you can see the little sucker near the Middle of [the] B&W Graphics.) --rwg

gosper.org/00013.png

Also, Julian bummed my winding # function:

turns[L_List] := Total@Mod[RotateLeft[#] - # &@Arg@L/π, 2, -1]/2

(Mathematica has run all afternoon trying to FullSimplify the exact expression for the area (=.00013...) to Root[5316527372659441 - ... - 182556260829602250752 #1^22 + 675821419082285056 #1^24 &, 13]