inc2 = 0.41
b = Ray((0, 0), (0, 1))
B = Point(b)
C = Point(Segment[B / 2, B / 2 + (3.141592653589793 * y(B), 0)])
D: (x(C), 0)
v = Vector(D, Dilate[D, 0.75, C])
u = Vector((4, 3))
ancho: x(Corner[3] - Corner[4])
alto: y(Corner[4] - Corner[1])
inc = 1
a = Segment((0, 0), (10, 0))
E = Rotate(D, -2 * x(D) / y(B), C)
c = Circle(C, y(B) / 2)
d = Segment(C, E)
e = Segment((0, 0), D)
polígono1, k, l, m, n = Polygon((-4 * inc2, y(B) - 0.75 * inc2), (-4 * inc2, y(B) + 0.75 * inc2), (-1 * 7 * inc2, y(B) + 0.75 * inc2), (-1 * 7 * inc2, y(B) - 0.75 * inc2))
h = Segment(D, D - (0, inc))
polígono2, i, j, p, q = Polygon((x(D) - 1.8 * inc, -1 * inc), (x(D) - 1.8 * inc, -1 * 2.5 * inc), (x(D) + 1.8 * inc, -1 * 2.5 * inc), (x(D) + 1.8 * inc, -1 * inc))
texto2: "" + (y(B))
texto1: "" + (x(C))
D1: (x(C) - y(B) / 2, 0)
D2: (x(C) + y(B) / 2, 0)
E1 = Rotate(D1, -2 * x(D) / y(B), C)
E2 = Rotate(D2, -2 * x(D) / y(B), C)
f'_1 = Circle(C, D)
f = CircleArc(C, D, E)
r = Circle(C, d)
imagen1' = Dilate(imagen1, 0.75, C)
D' = Dilate(D, 0.75, C)
E' = Dilate(E, 0.75, C)
C' = Translate(C, Vector[u - v])
D'' = Translate(D', Vector[u - v])
E'' = Translate(E', Vector[u - v])
s = CircleArc(C', D'', E'')
O' = Dilate((0, 0), 0.75, B / 2)
O'' = Translate((0, 0), u)
t = Segment(O'', D'')
a_1 = Segment(E'', C')
b_1 = Segment(C, C')
c_1 = Circle(C', D'')
polígono3, d_1, o'', d'', d_2 = Polygon((0, 0), O'', D'', D)
e_1 = Segment(E, E'')
T1: D + (-1 * 1.35 * inc / 2, -1 * 2.1 * 0.95 * inc)
f_1 = Ray((0, -0.1), (0, -1))
lista1: {Polygon[(-1000, -1), (1000, -1), (1000, -1000), (-1000, -1000)]}
g = Segment(B, B - (4 * inc2, 0))
T2: B + (-1 * 3.75 * inc2 - 3 * inc2, -1 * 0.4 * inc2)
g_1 = Ray((-0.1, 0), (-1, 0))
lista2: {Polygon[(-0.5, 0.1), (-1000, 0.1), (-1000, -1000), (-0.5, -1000)]}
imagen1'' = Translate(Dilate[imagen1, 0.75, C], Vector[u - v])