In[]:=
DynamicModule[{cols,f},cols=RGBColor/@{"#bcd6c0","#f56791","#46454d"};f[θ_]:=Piecewise[{{0,θ<0},{π/6(1/2-1/2Cos[πθ]),0<=θ<1},{π/6,1<=θ<2},{π/6(3/2-1/2Cos[πθ]),2<=θ<3},{π/3,θ>=3}}];Manipulate[Graphics[{Thickness[.005],Table[{Blend[cols[[{1,2,1}]],3/πf[(j+3)/6+θ]],Line[{Sqrt[3](i+(-1)^j/4),3/2j}+#&/@{#,-#}&[{Cos[2πk/3+(-1)^(i+j)f[(j+3)/6+θ]],Sin[2πk/3+(-1)^(i+j)f[(j+3)/6+θ]]}]]},{i,-3,3},{j,-3,3},{k,0,2}]},PlotRange->5,ImageSize->540,Background->cols[[3]]],{θ,-1,3}]]
Out[]=
