Intro Demo for String Art
1. Plot two points on the screen using the point tool, A and B.
2. Type in the Input line: AB=Segment[A,B]
3. Create an Integer slider, n, by using the slider tool 2nd left on the right.
4. Divide the segment AB into n parts by typing the following in the Input line:
list_{AB} = Sequence[A + i / n (B - A), i, 1, n]
5. Plot a third point, C, on the screen.
6. Type in the Input line: AC=Segment[A,C]
7. Divide the segment AC into n parts by typing the following in the Input line:
list_{AC} = Sequence[A + i / n (C - A), i, 1, n]
8. Create segments between point in Segment AB and Segment AC
line01 = Sequence[Segment[Element[list_{AB}, i], Element[list_{AC}, n - i]], i, 1, n]