Author: Exox Mi

A = (3, 0)
d = 1 (slider from 0 to 10, step 0.1)
n = 50 (slider from 0 to 100, step 10)
a = 50 (slider from 0 to 100, step 1)
b = Line(A + (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * d), A + (1.0, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * d))
c = Line(A + (-1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0, d), A + (1.0, d))
lista1 = Sequence(Line[A, Rotate[A + (1.0, 0.0), s * 180.0 * ° / n, A]], s, 1.0, n)