par3 = 1 (slider from 0 to 1, step 0.1)
A = (0.23835748363484166, 0.4306441032808417)
B = (13.804289334030187, 1.1768873233449493)
pol3, n, p, q, r, H, I = Polygon(B, A, 4)
u: H - A
par2 = 1 (slider from 0 to 1, step 0.1)
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)
K = Intersect(a, n)
w: K - C
par1 = 1 (slider from 0 to 1, step 0.1)
v: J - D
Q3: D + (par1 * v) + (par2 * w) + (par3 * u)
Q4: E + (par1 * v) + (par3 * u)
Q2: C + (par2 * w) + (par3 * u)
Q1: A + (par3 * u)
pol4, q1, 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)