A = (-3, 0.26)
f = Line(A + (1, 0), A + (1, 1))
r = 5
C: A + (0, -r)
r1 = 4.85
r2 = 4.65
r3 = 4.5
C1: A + (0, -r1)
C2: A + (0, -r2)
C3: A + (0, -r3)
r4 = 4.05
C4: A + (0, -r4)
B = Point(f)
a_1 = Line(A, B)
b_2 = OrthogonalLine(B, xAxis)
D: (x(B), y(A))
polígono1, a, b, d = Polygon(A, D, B)
α = Angle(D, A, B)
m = Slope(a_1)
texto1: "Pendiente\,=\,\frac{" + (abs(y(B - A)) * sgn(y(B - A)) * sgn(x(B - A))) + "}{" + (abs(x(B - A))) + "}\,=\," + m
α1: sgn(x(B - A)) * sgn(y(B - A)) * α
α2: α / °
texto3: "tan(" + (sgn(x(B - A)) * sgn(y(B - A)) * α2) + "º) = " + (tan(α1))
lista2 = Sequence(Segment[Rotate[C, (5 * k)°, A], Rotate[C2, (5 * k)°, A]], k, 18, 36)
c = Semicircle(A + (0, r), A + (0, -r))
lista1 = Sequence(Segment[Rotate[C, k°, A], Rotate[C1, k°, A]], k, 90, 180)
lista1b = Sequence(Segment[Rotate[C, k°, A], Rotate[C1, k°, A]], k, 0, 89)
lista2b = Sequence(Segment[Rotate[C, (5 * k)°, A], Rotate[C2, (5 * k)°, A]], k, 0, 17)
lista3 = Sequence(Segment[Rotate[C, (10 * k)°, A], Rotate[C3, (10 * k)°, A]], k, 9, 18)
lista3b = Sequence(Segment[Rotate[C, (10 * k)°, A], Rotate[C3, (10 * k)°, A]], k, 0, 8)
lista4 = Sequence(Text["" + ((k - 90)°), Rotate[C4, k°, A]], k, 90, 180, 10)
lista4b = Sequence(Text["" + (k - 90) + "º", Rotate[C4, k°, A]], k, 0, 80, 10)