In[]:=
StringArt[p1_,p2_,p3_,offset_,gap_]:=Table[Line[{(1-i)p1+ip2,(1-i)p2+ip3}],{i,offset,1-offset,gap}];
In[]:=
Manipulate[Module[{cols,θ1,θ2,t},cols=RGBColor/@{"#D83C65","#4F1567"};t=π/6(1-Cos[s]);Graphics[{cols[[1]],Thickness[.002],Table[θ1=ψ-t;θ2=ψ+t;StringArt[{Cos[θ1],Sin[θ1]},{0,0},{Cos[θ2+2π/3],Sin[θ2+2π/3]},1/40,1/20],{ψ,π/6,2π,2π/3}]},ImageSize->540,Background->cols[[2]],PlotRange->Sqrt[2]]],{s,0,2π},SaveDefinitions->True]
Out[]=
