A = (-3, 6)
a = OrthogonalLine(A, yAxis)
B = Point(a)
b = OrthogonalLine(B, a)
C = Point(a)
c = OrthogonalLine(C, a)
D = Point(b)
d = OrthogonalLine(D, b)
E = Intersect(c, d)
e, f = AngularBisector(b, d)
g, h = AngularBisector(c, d)
i, j = AngularBisector(a, b)
k, l = AngularBisector(a, c)
F = Point(f)
m = Line(F, d)
G = Intersect(h, m)
n = OrthogonalLine(G, m)
p = OrthogonalLine(F, m)
H = Intersect(i, p)
I = Intersect(k, n)
q = Segment(D, E)
r = Segment(E, G)
s = Segment(G, F)
t = Segment(F, D)
a_1 = Segment(B, C)
b_1 = Segment(C, I)
c_1 = Segment(I, H)
d_1 = Segment(H, B)
e_1 = Segment(B, D)
f_1 = Segment(C, E)
g_1 = Segment(I, G)
h_1 = Segment(H, F)
krok = 13 (slider from 1 to 13, step 0.01)
J = Point(Segment[D, E], krok - 1)
i_1 = Segment(D, J)
K = Point(Segment[E, C], krok - 2)
j_1 = Segment(E, K)
L = Point(Segment[C, B], krok - 3)
k_1 = Segment(C, L)
M = Point(Segment[B, D], krok - 4)
l_1 = Segment(B, M)
N = Point(Segment[E, G], krok - 6)
m_1 = Segment(E, N)
O = Point(Segment[D, F], krok - 5)
n_1 = Segment(D, O)
P = Point(Segment[C, I], krok - 7)
p_1 = Segment(C, P)
Q = Point(Segment[B, H], krok - 8)
q_1 = Segment(B, Q)
R = Point(Segment[H, F], krok - 12)
S = Point(Segment[F, G], krok - 9)
s_1 = Segment(F, S)
T = Point(Segment[G, I], krok - 10)
t_1 = Segment(G, T)
U = Point(Segment[I, H], krok - 11)
a_2 = Segment(I, U)
r_1 = Segment(H, R)
b_2 = Segment(H, R)
V = Point(f)
W = Point(d)
Z = Point(b)
u = Vector(D, Z)
v = Vector(D, V)
w = Vector(D, W)