c = 1.5 (slider from -5 to 5, step 0.1)
b = 0
a = 3
f(x) = log(x - a) / log(c) + b
A = (3, 8)
C = (10, 8)
Point(f)
B_1 = Point(f)
P, c_1, a_1, b_1 = Polygon(A, B_1, C)
Point(f)
B_2 = Point(f)
Q, c_2, a_2, b_2 = Polygon(A, B_2, C)
M = Midpoint(A, C)
d = OrthogonalLine(M, b_1)
B_3 = Intersect(f, d, (7.033333333333333, 3.5))
R, c_3, a_3, d_1 = Polygon(A, B_3, C)