r=3

A 2.3

A 2.4

φ = 2.356194490192345 rad (slider from 0.6632251157578453 to 3.12413936106985, step 0.017453292519943295)
O = Point(yAxis)
v: (2.0 * cos(φ) - 2.0, 0.5 * sin(φ))
u: (3.0 * cos(φ), -(3.0) * sin(φ))
P_n = Point(v)
R_n = Point(u)
a = Line(R_n, v)
b = Line(P_n, u)
Q_n = Intersect(b, a)
e = Circle(O, 2.95)
A = Point(e)
r = Segment(O, A)
g = false
P_3 = (-2.95, 0.45)
R_3 = (-1.5, -2.6)
Vieleck1, o, p_n, q_n, r_n = Polygon(O, P_n, Q_n, R_n)
c = Segment(O, P_3)
d = Segment(O, R_3)
f = Line(R_3, c)
h = Line(P_3, d)
Q_3 = Intersect(h, f)
Vieleck2, o_1, p_3, q_3, r_3 = Polygon(O, P_3, Q_3, R_3)
i = false