Sequence of perpendicular segments
Script
A = (-2, 1)
B = (2, 3)
f = Segment(A, B)
n = Slider(2, 10, 1, 1, 200, false, true, false, false)
Ln = 1..(n-1)
LP = Zip(Point(f, k/n), k, Ln)
size = 0.5
LS1 = Zip(Intersect(PerpendicularLine(P, f), Circle(P, size), 1), P, LP)
LS2 = Zip(Intersect(PerpendicularLine(P, f), Circle(P, size), 2), P, LP)
LS = Zip(Segment(P, Q), P, LS1, Q, LS2)