# Copy and paste. If you want to see again, just paste SumAng() SumAng = function() { BF=3; HF=2.5; BOXW(0,12, 0,10) x=c(0.5,11,1); y=c(2.5,0.5,10); L=3; polyC(x,y,"yellow") wait(2) D1=dirArrow1(x[1],y[1],x[2],y[2]); D2=dirArrow1(x[2],y[2],x[3],y[3]); D3=dirArrow1(x[3],y[3],x[1],y[1]) A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(A1,A2,D1,L, "blue"); Direction(A1,A2,D1,L/2, "red") wait(2) A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(A1,A2-0.3,D1,L, "blue"); Direction(A1,A2-0.3,D1,L/2, "red") wait(2) Arrow(A1+(B1-A1)/2,A2+(B2-A2)/2,D1,0.01, "black") wait(2) Direction(B1,B2,D1+180,L, "red"); Direction(B1,B2,D1+180,L/2, "blue") wait(2) for(e in 1:13) arc(B1,B2, 1.3-e/10, D2,D1-180, "brown") Direction(B1,B2,D1+180,L, "red"); Direction(B1,B2,D1+180,L/2, "blue") A1=x[2];A2=y[2]; B1=x[3]; B2=y[3]; Direction(A1,A2,D2,L, "red"); Direction(A1,A2,D2,L/2, "blue") wait(2) Arrow(A1+(B1-A1)/2,A2+(B2-A2)/2,D2,0.01, "black") wait(2) Direction(B1,B2,D2+180,L, "blue"); Direction(B1,B2,D2+180,L/2, "red") wait(2) for(e in 1:13) arc(B1,B2, 1.3-e/10, D2+180,D3, "seagreen") Direction(B1,B2,D2+180,L, "blue"); Direction(B1,B2,D2+180,L/2, "red") A1=x[3];A2=y[3]; B1=x[1]; B2=y[1]; Direction(A1,A2,D3,L, "blue"); Direction(A1,A2,D3,L/2, "red") wait(2) Arrow(A1+(B1-A1)/2,A2+(B2-A2)/2,D3,0.01, "black") wait(2) Direction(B1,B2,D3+180,L, "red"); Direction(B1,B2,D3+180,L/2, "blue") wait(2) for(e in 1:13) arc(B1,B2, 1.3-e/10, D3+180,D1, "orange") Direction(B1,B2,D3+180,L, "red"); Direction(B1,B2,D3+180,L/2, "blue") # A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(A1,A2,D1,L, "blue"); Direction(A1,A2,D1,L/2, "red") A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(A1,A2,D1,L, "red"); Direction(A1,A2,D1,L/2, "blue") wait(2) A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(8.5,7.38,D1,L, "blue"); Direction(8.5,7.38,D1,L/2, "red") A1=x[1];A2=y[1]; B1=x[2]; B2=y[2]; Direction(5,8,D1,L, "red"); Direction(5,8,D1,L/2, "blue") arcd(8.5,8, 1.7, D1-360,D1-180, "brown"); text(8.65,9.1,"180",font=4); text(8.65,8.3,"degrees") } SumAng()