T

a

b

b

δ = 0.5 (slider from 0.05 to 0.5, step 0.05)
B = (1.9697471074380155, 0.9886)
a = OrthogonalLine(B, xAxis)
E = Intersect(xAxis, a)
A = (-1.4666165289256194, -3.0477636363636367)
u = Vector(A, B)
C = (6.187928925619835, 2.734054545454546)
b = OrthogonalLine(B, yAxis)
D = Intersect(b, yAxis)
c = Segment(D, B)
d = Segment(B, E)
F = Point(a)
v = Vector(C, F)
e = OrthogonalLine(B, yAxis)
G = Point(e)
f = Segment(G, B)
g = Segment(F, E)
H: G + (0.0, 0.2)
I: G - (0.0, 0.2)
h = Line(H, f)
i = Line(I, f)
K: E - (δ, 0.0)
J: E + (δ, 0.0)
j = Line(J, d)
k = Line(K, d)
L = Point(h)
M = Point(i)
N = Point(i)
O = Point(h)
mnogokotnik1, l, m, n, o = Polygon(L, M, N, O)