String art

A = (1.207810524210148, 7.055793720768387)
B = (1.2504701517534709, -3.353155399802278)
다각형1, a, b, c, d, C, D = Polygon(A, B, 4)
n = 51 (slider from 5 to 100, step 1)
L1 = Sequence((t / n * A) + ((1 - t / n) * B), t, 1, n - 1)
L2 = Sequence((t / n * B) + ((1 - t / n) * C), t, 1, n - 1)
L3 = Sequence((t / n * C) + ((1 - t / n) * D), t, 1, n - 1)
L4 = Sequence((t / n * D) + ((1 - t / n) * A), t, 1, n - 1)
seg1 = Sequence(Segment[Element[L1, t], Element[L2, t]], t, 1, n - 1)
seg2 = Sequence(Segment[Element[L2, t], Element[L3, t]], t, 1, n - 1)
seg3 = Sequence(Segment[Element[L3, t], Element[L4, t]], t, 1, n - 1)
seg4 = Sequence(Segment[Element[L4, t], Element[L1, t]], t, 1, n - 1)