Color Exploration 3

KDSC=KnotData[{"TorusKnot",{4,7}},"SpaceCurve"];
KDD=KnotData[{"TorusKnot", {4,7}},"KnotDiagramData"];
VLCR=Values[ColorData["Legacy","ColorRules"]];
Graphics3D[{Flatten[Table[{VLCR[[Floor[t/.033+1]]],
Text["☸",KDSC[t]]},{t,0,2Pi,.033}]],
LightBlue,Opacity[.05],EdgeForm[None],
Cuboid[{-3,-3,-1},{3,3,1}]},
Boxed->False,ImageSize->500]->
Graphics[Transpose[{Table[RGBColor@@RandomReal[{0,1},3],
{Length[#]}],#}],ImageSize->300]&@KDD