Esquema

z1 = -0.00327
z2: 0.26 - z1
x1 = 4.57
inc: x1 / 6.0
i = Segment((-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 * 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 * 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 * 1.0 * 5.0 * x1 / 6.0, 0.0), (x1, 0.0))
N = Point(i)
h = Circle(N, 6.4126)
d = Circle(N, 9.6015)
J, K = Intersect(d, xAxis)
g = Semicircle(J, K)
j = Segment((-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 * 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 * 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 * x1, 0.0), (x(N) - inc + 0.01, 0.0))
O = Point(j)
f = LineBisector(O, N)
G = Intersect(g, f)
e = Circle(G, 5.6153)
E = Intersect(e, h, 1.0)
y1 = -1.2000000000000002
M = Intersect(f, xAxis)
A = (-6.83, -2.1)
B: A + (682.0 / 50.0, 0.0)
C: A + (0.0, 743.0 / 50.0)
E1: (x(O), y1) - (2.32, 0.0)
E2: E1 + (13.0 / 5.0, 0.0)
E4: E1 + (0.0, 77.0 / 50.0)
D1: (x(N), y1) + (2.32 - 13.0 / 5.0, 0.0)
D2: D1 + (13.0 / 5.0, 0.0)
D4: D1 + (0.0, 77.0 / 50.0)
G1: N - (1.0365, 0.54)
G2: G1 + (253.0 / 50.0, 0.0)
G4: G1 + (0.0, 532.0 / 50.0)
I: N + (-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 * 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 * 1.0 * 1.0 * 1.0 * 0.184, 9.6)
α = Angle(I, N, G)
G1': O + (x(N) - x(G2), -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 * 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 * 1.0 * 0.54)
G2': G1' + (253.0 / 50.0, 0.0)
G4': G1' + (0.0, 532.0 / 50.0)
c: 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 * 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 x = x(N)
k = Circle(O, 6.4226)
D = Intersect(e, k, 2.0)
F = Point(f)
q = Circle(D, 6.24)
p = Circle(E, 6.24)
T, U = Intersect(p, q)
β = Angle(D, E, T)
H2: E + (0.5781, -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 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.6594)
H1: H2 - (357.0 / 50.0, 0.0)
H4: H1 + (0.0, 77.0 / 50.0)
Q1: T - (1.4549, 0.3311)
Q2: Q1 + (149.0 / 50.0, 0.0)
Q4: Q1 + (0.0, 489.0 / 50.0)
V1 = (-4.26, 1.1)
d_1 = OrthogonalLine(V1, yAxis)
V2: V1 + (493.0 / (50.0 * 1.13), 0.0)
V4: V1 + (0.0, 154.0 / (50.0 * 1.13))
C1: G - (2.36, 2.5042)
C2: C1 + (236.0 / 50.0, 0.0)
C4: C1 + (0.0, 219.0 / 50.0)
P1: D - (0.5781, 0.6594)
P2: P1 + (357.0 / 50.0, 0.0)
P4: P1 + (0.0, 77.0 / 50.0)
imagen1 = Rotate(pataD, α, N)
imagen2 = Rotate(pataI, 2.0 * 3.141592653589793 - α, O)
imagen4 = Rotate(manoD, β, E)
imagen3 = Rotate(manoI, -1.0 * β, D)
esquema = false
a = Segment(O, D)
b = Segment(N, E)
l = Segment(D, G)
m = Segment(G, E)
n = Segment(D, T)
r = Segment(E, T)
s = Segment((-1.0 * 1.0 * 1.0 * x1, 0.0), (x1, 0.0))
lista2 = Sequence(Text["" + (s + 1.0), (-1.0 * 1.0 * x1 + s * x1 / 6.0 - 0.05, -1.0 * 1.0 * 0.25)], s, 0.0, 11.0)
lista1 = Sequence(Segment[(-1.0 * 1.0 * x1 + s * x1 / 6.0, 0.2), (-1.0 * 1.0 * x1 + s * x1 / 6.0, 0.0)], s, 0.0, 12.0)
lista3: {Segment[(x1 - 0.1, -1.0 * 1.0 * 0.1), (x1 - 0.1, -1.0 * 1.0 * 0.3)], Segment[(x1 - 0.1, -1.0 * 1.0 * 0.3), (x1 + 0.1, -1.0 * 1.0 * 0.3)], Segment[(x1 + 0.1, -1.0 * 1.0 * 0.3), (x1 + 0.1, -1.0 * 1.0 * 0.1)], Segment[(x1 + 0.1, -1.0 * 1.0 * 0.1), (x1 - 0.1, -1.0 * 1.0 * 0.1)]}