Pensieve header: Make some images of a 4D knot using data from Ester Dalvit.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2013-07\\Vis4D"]

K= P@@@Partition[
ReadList["Dalvit/coords.txt", Real, 120*60*4],
4
];
KR = K;
Do[
j=RandomInteger[{1,k}];
If[j≠k, KR[[{k,j}]]=KR[[{j,k}]]],
{k,Length[KR],2,-1}
]

Graphics3D[K /. P[x_,y_,z_,t_] :> Sphere[{x,y,z}, 0.06]] // Rasterize

{t0,t1}={Min[Last/@ K], Max[Last /@ K]}

MakeImage["DalvitKnotCut",
Graphics3D[K /. P[x_,y_,z_,t_] :> If[z>0, {},{
Hue[((2(t1-t))/(3(t1-t0)))],
Sphere[{x,y,z}, 0.06]
}], ViewPoint-> {0,5,10}, Boxed -> False],
ImageSize -> {800}]

MakeImage["DalvitKnotFull",
Graphics3D[{
K /. P[x_,y_,z_,t_] :> {
Hue[((2(t1-t))/(3(t1-t0)))],
Sphere[{x,y,z}, 0.06]
}
}, ViewPoint-> {0,3,10}, Boxed -> False],
ImageSize -> {800}]