par2 = 1 (slider from 0 to 1, step 0.1)
B = (16.95635680080464, 2.066349338527029)
A = (5.02, 1.32)
C, t1 = TriânguloRetânguloDadaaHipotenusa(A, B)
pol2, j, k, l, m, F, G = Polygon(C, B, 4)
t = Line(F, G)
pol1, f, g, h, i, D, E = Polygon(A, C, 4)
s = Line(E, D)
J = Intersect(s, t)
a = Line(J, C)
pol3, n, p, q, r, H, I = Polygon(B, A, 4)
K = Intersect(a, n)
w: K - C
par1 = 1 (slider from 0 to 1, step 0.1)
v: J - D
Q1: A
Q3: D + (par1 * v) + (par2 * w)
Q4: E + (par1 * v)
Q2: C + (par2 * w)
q1, q1_1, q2, q3, q4 = Polygon(Q1, Q2, Q3, Q4)

Tool: Triângulo Equilátero (command TriânguloEquilátero)
Selecione dois vértices do triângulo
Input: A, B
Output: t

A: (3, 5)
B: (5, 3)
t, f, g, h, C = Polygon(A, B, 3)

Tool: Triângulo Retângulo (command TriânguloRetângulo)
Selecione os vértices de um cateto
Input: A, B
Output: C, t

r = Line(A, B)
s = OrthogonalLine(A, r)
C = Point(s)
t, c, a, b = Polygon(A, B, C)

Tool: Triângulo Retângulo Dada a Hipotenusa (command TriânguloRetânguloDadaaHipotenusa)
Selecione os pontos da hipotenusa
Input: A, B
Output: C, t1

c = Semicircle(A, B)
C = Point(c)
t1, c_1, a, b = Polygon(A, B, C)