p=θ[GST48][[2]]
T1=(Subscript[T, 1]); T2=(Subscript[T, 2]);

Exponent[p,T1,Min]

crs=CoefficientRules[(T1^(m1=-Exponent[p,T1,Min]))(T2^(m2=-Exponent[p,T2,Min]))p,{T1,T2}]

max=Max@Abs[Last/@crs]

CMYKColor[1,0,0,0]

Lighter[Blue, 0.2]

Lighter[Blue, 0.8]

Graphics[crs/.({x1_,x2_}->c_):>{
Which[c==0,White,c>0,Lighter[Red,1-c/max], c<0, Lighter[Blue,1+c/max]],
Disk[(({{1, -1/2}, {0, (Sqrt[3])/2}})).{x1+m1,x2+m2},0.5]}]

(Subscript[PolyPlot, _,_])[0]=Graphics[{}];
(Subscript[PolyPlot, T1_,T2_])[p_]:=Module[{crs,m1,m2,mc},
crs=CoefficientRules[(T1^(m1=-Exponent[p,T1,Min]))(T2^(m2=-Exponent[p,T2,Min]))p,{T1,T2}];
mc=Max@Abs[Last/@crs];
Graphics[crs/.({x1_,x2_}->c_):>{
Which[
c==0,White,
c>0,Lighter[Red,1-c/mc],
 c<0, Lighter[Blue,1+c/mc]
],
Disk[(({{1, -1/2}, {0, (Sqrt[3])/2}})).{x1+m1,x2+m2},0.5]
}]
]

GraphicsGrid[Partition[Table[(Subscript[PolyPlot, (Subscript[T, 1]),(Subscript[T, 2])])[θ[K][[2]]], {K,AllKnots[{3,10}]}],20]]