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

Rasterize[DK300Unsheared=PolyPlot2[
Expand[Get["C:\\drorbn\\AcademicPensieve\\Projects\\HigherRank\\DunfieldKnots\\D300.m"][[2]]/.{T1->(Subscript[T, 1]),T2->(Subscript[T, 2])}][[2]],
Shear->False
]]

Export["DK300Unsheared.pdf",DK300Unsheared]