---------- ---------- ---------- ---------- ---------- ---------- ---------- ---------- # You can make figures that are not easy to construct with other software. # How to draw equilateral but not equiangular polygons. BF=3; HF=3 PLANE(0,10, 0,10); co="brown" L=5; x1=1; y1=1 a = 80; Directio(x1,y1, a,L, co); x2=Directionx; y2=Directiony a = 35; Directio(x2,y2, a,L, co); x3=Directionx; y3=Directiony a = -60; Directio(x3,y3, a,L, co); x4=Directionx; y4=Directiony # Traced three sides, I find the last vertex intersecting the two circles # of radius L centered on the 1st and the 4th point Q = circle_circle(x1,y1,L, x4,y4,L); Q # [1] 3.5362943 5.3089687 5.9277069 0.1528252 x5 = Q[1]; y5 = Q[2] line(x5,y5, x4,y4, co); line(x5,y5, x1,y1, co) # I traced the outline; now, if I want, I give color to the polygon polyC(c(x1,x2,x3,x4,x5),c(y1,y2,y3,y4,y5),"yellow") # PLANE(0,10, 0,10); co="brown" L=6; x1=1; y1=1 a = 90; Directio(x1,y1, a,L, co); x2=Directionx; y2=Directiony a = 0; Directio(x2,y2, a,L, co); x3=Directionx; y3=Directiony a = -60; Directio(x3,y3, a,L, co); x4=Directionx; y4=Directiony Q = circle_circle(x1,y1,L, x4,y4,L); Q # [1] 5.148757 5.334491 5.851243 -2.530644 x5 = Q[1]; y5 = Q[2] line(x5,y5, x4,y4, co); line(x5,y5, x1,y1, co) # polyC(c(x1,x2,x3,x4,x5),c(y1,y2,y3,y4,y5),"yellow")