Geogera: Algorithm Bezier Curve Steps

Bezier Curve
1 Point A
2 Point B
3 Segment a Segment [A, B]
4 Point C
5 Segment b Segment [A, C]
6 Number n
7 List listAB Sequence[A + i / n (B - A), i, 1, n]
8 List listAC Sequence[A + i / n (C - A), i, 1, n]
9 List list3 Sequence[Segment[Element[listAB, i], Element[listAC, n - i]], i, 1, n]
10 List listBC Sequence[C + i / n (B - C), i, 1, n]
11 List list5 Sequence[Segment[Element[listAB, i], Element[listBC, n - i]], i, 1, n]
12 Segment c Segment [C, B]
13 List listCB Sequence[B + i / n (C - B), i, 1, n]
14 List list6 Sequence[Segment[Element[listAC, i], Element[listCB, n - i]], i, 1, n]