A = (-0.19669363122592998, -6.676755361971758, 0)
D = (-0.014591618155758823, -3.0147265759895774, 0)
C = Point(Circle[D, Distance[A, D], Segment[A, D]])
a, B, A1, D1, C1, B1, граньABCD, граньADHE, граньABFE, граньBCGF, граньCDHG, граньEFGH, реброAD, реброAB, реброBC, реброCD, реброAE, реброDH, реброEH, реброEF, реброBF, реброFG, реброCG, реброGH = Cube(A, D, C)
E = Point(реброDH)
F = Point(реброCG)
K = Point(реброBF)
f = Line(F, K)
g = Line(C, D)
X = Intersect(g, f)
h = Line(E, K)
i = Line(B, D)
Y = Intersect(h, i)
j = Line(X, Y)
k = Line(A, D)
Z = Intersect(k, j)
l = Line(K, Z)
H = Intersect(l, реброAE)
m = Segment(H, K)
n = Segment(K, F)
p = Segment(F, E)
q = Segment(E, H)
G = Intersect(j, реброAD)
r = Segment(E, G)
s = Segment(G, Z)
t = Segment(Z, K)