t = 2.57601 (slider from 1.0E-5 to (2 * π), step 0.001)
n = 15 (slider from 10 to 20, step 1)
r: 1
C: (0, r)
O: (0, 0)
c = Circle(C, O)
ω: (2 * π) - t
R: ((2 * π) * r / ω)
C_R: (0, R)
c_R = Circle((0, R), R)
T = Rotate(O, ω, C_R)
s = Arc(c_R, O, T)
points = Sequence(Point[s, i / 2 / n], i, 0, (2 * n))
mcenters = Sequence(Point[Segment[Element[points, (2 * i) - 1], C_R], r / R], i, 1, n)
sectors = Sequence(Polygon[Element[points, (2 * i) - 1], Element[points, (2 * i)], Element[points, (2 * i) + 1], Element[mcenters, i]], i, 1, n)
a: 0
P: (((2 * π) * r), 0)
f = Segment(O, P)
b: 1

Tool: Tool3seg (command Tool3)
3 point -to - 3segment
Input: A, B, C
Output: h, f, g

f = Segment(A, B)
g = Segment(B, C)
h = Segment(C, A)

Tool: Tool2pointToLine
draw a pertentical line
Input: G, l
Output: n, J

m = OrthogonalLine(G, l)
J = Intersect(m, l)
n = Segment(G, J)