Home on the Range

Continuing the series (1, 2, 3), this time with a minimal $7_7$ knot on the body-centered cubic lattice. Instead of viewing the projection of the knot as a bunch of balls connected by sticks, I'm filling it in with a solid color. As per the Polygon conventions, the points in the plane for which any path to the unbounded region crosses the boundary an odd number of times are colored dark purple, and the rest of the points in the plane are colored light grey.

As before, the coordinates are grabbed from Andrew Rechnitzer's site:

bcc77 = Standardize[
   Import["https://www.math.ubc.ca/~andrewr/knots/data/BCC77.dat"], Mean, 1 &];

Thanks to @J. M. for various code improvement suggestions, especially for the function $t \mapsto \frac{t^3}{1-3t(1-t)}$.

DynamicModule[{p, q, b, n, ?, pl, 
  cols = RGBColor /@ {"#621295", "#e3e7f1"}},
 Manipulate[
  ? = 2?/3 (#^3/(1 - 3 # (1 - #))) &[Mod[t, 1]];
  Which[t < 1 || t == 2,
   {p, q} = {{-1, 0, 0}, {0, 0, 1}};
   {n, b} = {p, q}.RotationMatrix[?, {-1, -1, 1}];,
   1 <= t < 2,
   {p, q} = {{0, 0, 1}, {0, -1, 0}};
   {n, b} = {p, q}.RotationMatrix[?, {1, -1, 1}];
   ];
  pl = bcc77.Transpose[{Cross[b, n], b}];
  Graphics[{Thickness[.005], JoinForm["Round"], cols[[1]], 
    CapForm["Round"], Polygon[pl]},
   ImageSize -> 540, PlotRange -> 4, Background -> cols[[-1]]],
  {t, 0, 2}]
 ]