For a personal project involving a coordinate system for navigating the galaxy using 36/38 equidistant points around a circle, I need to find all intersections between 3+ lines using 3 pairs of points (6 unique points) so that it makes a valid "Address", I have looked up many articles on this website and all that I could find involved intersections between two lines only.
I started off doing this to visualize the lines themselves:
lines = CirclePoints[36];
Graphics[{Black, Line@Subsets[lines, {2}]}]
Then I managed to adapt the code to show two line intersections:
lines=Line/@Subsets[CirclePoints[36],2];
pts=Graphics`Mesh`FindIntersections[lines];
Graphics[{{Thickness[0.0005],lines},{Directive[Red,PointSize[0.005]],Point[pts]}}]
The code above works for less than 21 points but any higher and it displays nothing, I suspect its because of an old function, aside from that issue I am lost on how to check specifically for 3+ line intersections while ignoring just 2 line ones, is such a thing possible?