Quader wird Würfel
Author: Kristina Emmerling

Länge = 7 (slider from 0.0010 to 7, step 0.0010)
A = (0, -2)
B = Point(Circle[A, Länge])
a = Segment(A, B)
Höhe = 7 (slider from 0.0010 to 7, step 0.0010)
b = OrthogonalLine(B, a)
C = Point(Circle[B, Höhe])
c = Segment(B, C)
d = OrthogonalLine(C, c)
e = OrthogonalLine(A, a)
D = Intersect(e, d)
Breite = 7 (slider from 0.0010 to 7, step 0.0010)
E = Point(Circle[B, Breite])
f = Segment(B, E)
F = (12, 0)
g = Line(B, F)
h = Line(E, c)
i = Line(C, f)
k = Line(D, i)
l = Line(E, a)
m = Line(A, f)
p = Segment(A, D)
s = Segment(D, C)
J = Midpoint(B, E)
e_1 = Segment(B, J)
j = OrthogonalLine(J, c)
t = Line(J, c)
b_1 = Line(C, e_1)
G = Intersect(m, b_1)
H = Intersect(t, b_1)
r = Line(H, s)
a_1 = Line(D, b_1)
c_1 = Segment(H, C)
d_1 = Segment(H, J)
q = Line(D, c_1)
h_1 = Line(H, s)
I = Intersect(q, h_1)
n = Line(J, a)
f_1 = Line(A, e_1)
K = Intersect(f_1, n)
g_1 = Segment(D, I)
i_1 = Segment(I, H)
j_1 = Segment(I, K)
k_1 = Segment(K, J)
l_1 = Segment(K, A)