Bodem D otáčíme jehlanem.
Bodem R měníme výšku jehlanu.
Bodem B měníme rozměr podstavy jehlanu.

A = (-9.091499585749796, -2.78)
B = (-7.8304556752278405, -2.78)
C = (-7.742883181441594, 0.3)
c = Circle(C, Segment[A, B])
D = Point(c)
a = Line(D, C)
E = Intersect(c, a, 2)
b = OrthogonalLine(C, a)
F = Intersect(c, b, 1)
G = Intersect(c, b, 2)
mnohoúhelník1, f, d, g, e = Polygon(F, D, G, E)
H = (-6.42929577464789, 4.02)
I = (-1.735410107705055, -3.12)
h = Line(H, I)
i = Segment(B, A)
J = (2.450555095277548, 1.78)
u = Vector(C, J)
j = Line(F, u)
k = Line(G, u)
l = Line(D, u)
m = Line(E, u)
K = Intersect(b, h)
L = Intersect(a, h)
n = Line(L, J)
p = Line(K, J)
M = Intersect(j, p)
N = Intersect(k, p)
O = Intersect(l, n)
P = Intersect(m, n)
mnohoúhelník2, m_1, p_1, n_1, o = Polygon(M, P, N, O)
Q = (-9.599420049710028, 2.6)
R = (-9.389246064623034, 6.48)
v = Vector(Q, R)
w = (10.858989229494618, 0.4400000000000004)
J' = Translate(J, v)
q = Vector(J, J')
r = Segment(J', O)
s = Segment(J', N)
t = Segment(J', P)
a_1 = Segment(J', M)
mnohoúhelník3, j', o_1, n_2 = Polygon(O, N, J')
mnohoúhelník4, m_2, j'_1, o_2 = Polygon(J', O, M)
mnohoúhelník5, j'_2, m_3, p_2 = Polygon(M, P, J')
mnohoúhelník6, j'_3, n_3, p_3 = Polygon(N, P, J')
S = Midpoint(N, P)
b_1 = Segment(J', S)
c_1 = Segment(J, S)