SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\CUMC-2606"];
Once[<< ../../Projects/Theta/Theta.m];
SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\CUMC-2606"];

Rasterize[TorusKnots=GraphicsGrid[
Partition[#,2]&[
ImageCompose[
PolyPlot[Θ[TorusKnot@@#], ImageSize->480],
TubePlot[TorusKnot@@#,ImageSize->240],
{Right,Bottom},{Right,Bottom}
]&/@{{13,2},{17,3},{13,5},{7,6}}
],
Spacings->{Scaled[0.3],Scaled[0.1]}
]]

Export["TorusKnots.pdf",TorusKnots]