Der Parameter k verschiebt 
den Punkt P zwischen A und B.

Aus der Glasscheibe ABC soll eine rechteckige 
Scheibe PQRS mit möglichst großem 
Flächeninhalt ausgeschnitten werden.

k = 2.5500000000000003 (slider from 0 to 4, step 0.05)
A = Point(xAxis)
B = Point(xAxis)
C = (0, 8)
a = OrthogonalLine(C, xAxis)
b = OrthogonalLine(C, a)
c = OrthogonalLine(A, xAxis)
P: (k - 4, 0)
d = OrthogonalLine(P, xAxis)
g(x) = 2 x + 8
e = Segment(A, C)
f = Line(P, e)
E = Intersect(f, xAxis)
S = Intersect(f, yAxis)
h = OrthogonalLine(P, e)
i = OrthogonalLine(S, e)
Q = Intersect(h, e)
R = Intersect(i, e)
Q_1, g_1, p, f_1, h_1 = Polygon(Q, P, S, R)
I: (k, Q_1)
T, c_1, a_1, b_1 = Polygon(A, B, C)