Hi Alex,
I have not looked at all of the code in the notebook. There is a problem with the code that generates the list of points. Try replacing it with
Table[If[betweengle[k] < \[Pi]/2, jump = (2 jump)/3; point[k], point[k]], {k, 1, 11}]
