Vergleich Vorder-Rückflächen
Author: K. Emmerling

Rückfläche bewegen

Bewege die Schieberegler nach links, um die Rückfläche mit der 
Deckfläche oder die Vorderfläche mit einer Seitfläche zu vergleichen.

Vorderfläche bewegen

A = (0, -2)
B = (8, -2)
a = Segment(A, B)
b_2 = OrthogonalLine(A, a)
c_2 = OrthogonalLine(B, a)
F = Point(c_2)
d_1 = OrthogonalLine(F, c_2)
E = Intersect(b_2, d_1)
e = Segment(B, F)
l = Segment(F, E)
h = Segment(E, A)
C = (10.5, 0.5)
b = Segment(B, C)
i_1 = Line(F, b)
j_1 = Line(E, i_1)
k_1 = Line(C, e)
G = Intersect(i_1, k_1)
l_1 = Line(G, l)
H = Intersect(j_1, l_1)
f = Segment(C, G)
i = Segment(G, F)
j = Segment(H, G)
k = Segment(E, H)
s = Line(H, e)
r = Line(H, h)
t = Line(C, l)
D = Intersect(r, t)
d = Segment(A, D)
c = Segment(D, C)
g = Segment(D, H)
m = 2.13 (slider from 0.0010 to 2.13, step 0.0010)
n = 12.649 (slider from 0.0010 to 12.649, step 0.0010)
I = Point(k)
J = Point(Circle[I, m])
p = Segment(I, J)
q = Line(J, c)
a_1 = Segment(H, J)
b_1 = Line(G, a_1)
K = Intersect(b_1, q)
Vieleck1, g_1, k_2, j_2, h_1 = Polygon(G, K, J, H)
L = (12, 5)
M = Point(Circle[L, n])
c_1 = Segment(L, M)
e_1 = Line(M, h)
f_1 = Line(A, c_1)
N = Intersect(f_1, e_1)
Vieleck2, b_3, n_1, m_1, f_2 = Polygon(B, N, M, F)