Author: Daniel Mentrard

El plano visto por encima

Moved el plano

j = 2.2 (slider from -4 to 4, step 0.1)
h = -2.1 (slider from -5 to 5, step 0.1)
L: (j, 0.0)
l = Line(L, yAxis)
O = Intersect(xAxis, yAxis)
c = Circle(O, 4.0)
H: (0.0, h)
d = OrthogonalLine(H, yAxis)
B = Intersect(c, d, 1.0)
C = Intersect(c, d, 2.0)
r = 0.40000000000000036 (slider from -5 to 5, step 0.1)
C1 = Dilate(C, r, H)
a = 0.3599999999999999 (slider from -3.14 to 3.14, step 0.1)
C2 = Rotate(C1, a, H)
C4 = Mirror(C2, H)
C5 = Mirror(C4, yAxis)
e = Conic(B, C4, C5, C, C2)
N, P = Intersect(e, l)
g = Circle(H, 0.2)
b = Segment(H, N)
f = Segment(O, N)
A = Intersect(g, b)
D, E = Intersect(g, yAxis)
u = Vector(H, A)
F = Translate(E, u)
poly1, h_1, a_1, f_1, e_1 = Polygon(H, A, F, E)
J = Mirror(N, xAxis)
K = Mirror(N, H)
k = Circle(H, 6.0)
i = Line(H, xAxis)
G, M = Intersect(k, i)
p = Circle(H, r + 0.4)
Q, R = Intersect(p, yAxis)
m = Line(Q, i)
n = Line(R, i)
q = Circle(H, 5.0)
S, T = Intersect(q, m)
s = Line(T, M)
t = Line(S, G)
U = Intersect(n, t)
V = Intersect(s, n)
poly2, s_1, t_1, v, u_1 = Polygon(S, T, V, U)
a1 = Segment(H, K)
poly3, s_2, t_2, v_1, u_2 = Polygon(S, T, V, U)
I, W = Intersect(c, yAxis)
Z = Point(xAxis)
A1 = Mirror(Z, O)
B1 = (1.3152727272727291, 2.942181818181818)
c1 = Conic(I, B1, Z, W, A1)
D1 = Point(xAxis)
E1 = Point(xAxis)
F1 = (2, 3)
d1 = Conic(I, F1, D1, W, E1)
G1 = Point(xAxis)
H1 = Point(xAxis)
I1 = (0.7352727272727292, 2.6821818181818182)
e1 = Conic(I, I1, G1, W, H1)
f1 = Conic(B, C4, C5, C, C2)
J1 = (10.37527272727273, 2.962181818181818)
b1 = Segment(H, B)
g1 = Circle(J1, b1 / 3.0)
i1 = Line(J1, yAxis)
k1 = Circle(J1, 2.3)
h1 = Line(J1, xAxis)
L1, M1 = Intersect(k1, h1)
p1 = Circle(J1, 1.7)
N1, O1 = Intersect(p1, i1)
j1 = Line(N1, h1)
l1 = Line(L1, i1)
m1 = Line(O1, h1)
n1 = Line(M1, i1)
P1 = Intersect(j1, l1)
Q1 = Intersect(l1, m1)
R1 = Intersect(j1, n1)
S1 = Intersect(m1, n1)
poly4, p1_1, r1, s1, q1 = Polygon(P1, R1, S1, Q1)
t1 = Circle(J1, b1 / 3.0)
poly5, p1_2, r1_1, s1_1, q1_1 = Polygon(P1, R1, S1, Q1)
a2 = Segment(I, W)