Clear[x,lengh,lengh2]

coor2=Table[0,{13},{2}];
coor1=N[{{1,0},{1-Sqrt[3],1},{1,2},{1,0}}];
ListPlot[coor1,PlotJoined->True,Axes->False,PlotRange->{{1-Sqrt[3],2},{0,2}}];
x=1;
z0=SessionTime[];
Do[   
lengh=Part[Dimensions[coor1],1]-1;
lengh2=Part[Dimensions[coor2],1]-1;
If[lengh>1000,skp=100,skp=10];
If[lengh<100,skp=1];


Do[
x1=N[coor1[[x,1]]];
x2=N[coor1[[x+1,1]]];
y1=N[coor1[[x,2]]];
y2=N[coor1[[x+1,2]]];
x3=(1/3)(x2-x1)+x1;
y3=(1/3)(y2-y1)+y1;
x4=(2/3)(x2-x1)+x1;
y4=(2/3)(y2-y1)+y1;
x5=(1/2)(x4-x3)+x3;
y5=(1/2)(y4-y3)+y3;
d=Sqrt[(y4-y3)^2 + (x4-x3)^2] * Sqrt[3]/2;
If[(N[x4]-N[x3])==0,m=0;mp=0,m=(y4-y3)/(x4-x3);mp=-m^-1];
bb=y5-mp*x5;
n=y5-bb;
b=(-2*x5-2mp*n);
a=(mp^2+1);
c=(x5^2+n^2-d^2);
x61=(-b+Sqrt[b^2-4a*c])/(2a);
x62=(-b-Sqrt[b^2-4a*c])/(2a);
If[N[y1<y2],x6=x62,];
If[N[y1>y2],x6=x61,];
y6=x6*mp+bb;
coor2=ReplacePart[coor2,{x1,y1},4x-3];
coor2=ReplacePart[coor2,{x3,y3},4x-2];
coor2=ReplacePart[coor2,{x6,y6},4x-1];
coor2=ReplacePart[coor2,{x4,y4},4x];
coor2=ReplacePart[coor2,{x2,y2},4x+1];
z1=SessionTime[]-z0;
z5=z1;
z6=z1*(lengh-x);
z1=Mod[z1*(lengh-x),60];
z2=Mod[z6/60,60];
z3=z6/360;
z1=Floor[z1];
z2=Floor[z2];
z3=Floor[z3];
z0=SessionTime[];
If[Floor[x/skp]*skp==x,Print[lengh,"   ",x,"   ",z5,"   ","TimeLeft=",z3,":",z2,":",z1]];
z4=SessionTime[];
,{x,lengh}];
coor1=coor2;
coor2=Table[0,{(lengh2)*4+1},{2}];
ListPlot[coor1,Axes->False,PlotJoined->True,PlotRange->{{1-Sqrt[3],2},{0,2}}];
,{5}]