> restart:
m:=[[0,0],[1,0],[1/2,-cos(Pi/6)],[0,0]]:
w:=[]:
t:=0.1:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:m:=[[-1,0],[0,0],[-1/2,-cos(Pi/6)],[-1,0]]:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:m:=[[-1,0],[0,0],[-1/2,cos(Pi/6)],[-1,0]]:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:m:=[[0,0],[1,0],[1/2,cos(Pi/6)],[0,0]]:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:m:=[[0,0],[-1/2,cos(Pi/6)],[1/2,cos(Pi/6)],[0,0]]:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:m:=[[0,0],[-1/2,-cos(Pi/6)],[1/2,-cos(Pi/6)],[0,0]]:
for k to 20 do w:=[op(w),m]:sm:=[m[2],m[3],m[1],m[2]]:m:=(1-t)*m+t*sm:od:plot(w,axes=none,scaling=constrained,color=blue);

>