Date: 5 Octubre 2013

A = (6, 2)
O = (3, 2)
r = Segment(O, A)
c = Circle(O, A)
a = OrthogonalLine(O, r)
B = Intersect(c, a, 2)
C = Intersect(c, a, 1)
n_-lados = 7 (slider from 3 to 20, step 1)
D_1 = (2.2713714260855355, 3.43115325205324)
b = Ray(B, D_1)
d: Distance[B, C] / n_-lados
u = UnitVector(a)
v = UnitVector(b)
lista1 = Sequence(Translate[B, Vector[(((-u) * d) * i)]], i, 1, n_-lados)
lista2 = Sequence(Translate[B, Vector[(v * i / 2)]], i, 1, n_-lados)
lista3 = Sequence(Segment[Element[lista1, i], Element[lista2, i]], i, 1, n_-lados)
D = Translate(B, Vector[(((-u) * d) * 2)])
B'_1 = Translate(B, Vector[((v * 0.6) * n_-lados)])
e = Segment(B, B'_1)