A = (2.66253268292683, 0.09620858536585469)
B = (18.374825365853663, 1.0703707317073183)
a = Segment(A, B)
C = (1.1227280000000022, 7.575259902439027)
b = Segment(A, C)
n = 33 (slider from 0 to 100, step 1)
list1 = Sequence(A + i / n * (B - A), i, 1, n)
list2 = Sequence(A + i / n * (C - A), i, 1, n)
list3 = Sequence(Segment[Element[list1, i], Element[list2, n - i]], i, 1, n)
D = (18.060610170327195, 7.867247952218921)
c = Segment(B, D)
list4 = Sequence(D + i / n * (B - D), i, 1, n)
list5 = Sequence(Segment[Element[list1, i], Element[list4, n - i]], i, 1, n)
d = Segment(D, C)
list6 = Sequence(D + i / n * (C - D), i, 1, n)
list7 = Sequence(Segment[Element[list4, i], Element[list6, n - i]], i, 1, n)
list8 = Sequence(Segment[Element[list2, i], Element[list6, n - i]], i, 1, n)