Srface
Author: Daniel Mentrard

v

Premještanjem pravokutnog trokuta dobija se pravokutnik površine P=av

h 

L

A = L x h

L

h 

α = 1.2566370614359172 rad (slider from 0.2617993877991494 to 2.8797932657906435, step 0.017453292519943295)
b = 2.6 (slider from 1 to 3, step 0.1)
a = 3.7 (slider from 3 to 7, step 0.1)
p = Line((-4.0, 0.0), (4.0, 0.0))
A = Point(p)
B = Intersect(Circle[A, a], p, 2.0)
C_1 = Rotate(B, α, A)
D = Intersect(Circle[A, b], Ray[A, C_1])
C, C_3 = Intersect(Circle[D, a], Circle[B, b])
P, a_1, b_1, c, d = Polygon(A, B, C, D)
g = OrthogonalLine(C, a_1)
F = Intersect(g, a_1)
h = Segment(F, C)
e = OrthogonalLine(D, a_1)
E = Intersect(e, a_1)
f = Segment(D, E)
Ver = 0 (slider from 0 to 1, step 0.1)
A': (x(A) + Ver * a, y(A))
D': (x(D) + Ver * a, y(D))
E': (x(E) + Ver * a, y(E))
Dio1, d', a', e' = Polygon(A', E', D')
Dio2, e_1, b_2, c_1, d_1 = Polygon(E, B, C, D)
B': (x(B) - Ver * a, y(B))
F': (x(F) - Ver * a, y(F))
C'_1: (x(C) - Ver * a, y(C))
Dio3, C', f', b' = Polygon(F', B', C'_1)
Dio4, f_1, a_2, d_2, c_2 = Polygon(F, A, D, C)
V = Midpoint(C, D)
V_1 = Midpoint(F, C)
V_2 = Midpoint(E, D)
G = Point(Dio1)
poly1, k, l, m, n = Polygon(D, C, B, A)
poly2, i, j, q = Polygon(A', E', D')
poly3, r, s, t, a1 = Polygon(E, B, C, D)
H = Point(xAxis)
u = Vector(A, H)
D'_1 = Translate(D, u)
C'_2 = Translate(C, u)
B'_1 = Translate(B, u)
A'_1 = Translate(A, u)
poly1', d'_1, c'_2, b'_1, a'_1 = Polygon(D'_1, C'_2, B'_1, A'_1)
poly4, d'_2, c'_1, b'_2, h_1 = Polygon(D'_1, C'_2, B'_1, H)
E'' = Translate(E', u)
D'' = Translate(D', u)
D'_2 = Translate(D, u)
E'_1 = Translate(E, u)
b1 = Segment(D'_2, E'_1)
I = Midpoint(b1)
J = Midpoint(d'_1)