Many students want to divide a curve for string art. For a semicircle:

Two sliders:[br]n is an interger slider 1...30[br]r is a real value for a radius of a circle 0...10 by 0.1[br]curve01 = Sequence[Curve[radius cos(t), radius sin(t), t, i, i + π / n], i, 0, π - π / n, π / n][br]points = Sequence[(radius cos(i), radius sin(i)), i, 0, π, π / n]