SetDirectory["C:\\drorbn\\AcademicPensieve\\Projects\\Theta"];
<< Theta.m

Θ[Knot[5,2]]

PolyPlot[Θ[Knot[5,2]]]

PolyPlot[Θ[Knot[5,2]], Labeled->True]

PolyPlot[Θ[Knot[5,2]], Labeled->True, Shear->False]