I am trying to make a pretzel shape,but I cannot seem to get the loops even.
Eventually, I need to make the pretzel shape loop in 3D so I need to nail the 2D concept first. Here's what I have so far.
pts = {{0, 0, 0}, {2, 2, 0}, {4, 0, 0}, {1, 2, 0}, {2, 4, 0}, {3, 2, 0}};
curve = Graphics3D[BSplineCurve[points, SplineClosed -> True]];
Graphics3D[{BSplineCurve[pts, SplineClosed -> True], Green, Line[pts],
Red, Point[pts]}]
Any suggestions on how to proceed ?