Déplacez le point A sur la droite (OU).
Lorsque le triangle équilatéral est inscrit dans le carré,
il apparaît en vert,sinon il apparaît en rouge.

O = (0, 0)
U = (1, 0)
d = Line(O, U)
A = Point(d)
i = Vector(O, U)
V = Rotate(U, 90°, O)
j = Vector(O, V)
W = Translate(O, Vector[i + j])
poly1, o, u, w, v = Polygon(O, U, W, V)
t = CircleArc(O, U, V)
M = Rotate(U, 29.999999999999996°, O)
A_1 = Translate(O, Vector[Vector[O, A]])
B' = Mirror(A, M)
C' = Rotate(B', 59.99999999999999°, A)
T', a', b', c' = Polygon(A, B', C')
A_{min} = Dilate(U, 0.7320508075688772, O)
e = Segment(A_{min}, U)
B = Mirror(A, M)
C = Rotate(B, 59.99999999999999°, A)
T, c, a, b = Polygon(A, B, C)
A_{max} = Translate(O, Vector[Vector[O, U]])
P = Midpoint(a)
N = Midpoint(b)
N' = Midpoint(c')
P' = Midpoint(b')
G = Dilate(M, 0.6666666666666666, C)

Tool: Tracer un Carré (command Carré)
Deux points (le côté du carré)
Input: A, B
Output: C, D, a_1, b_1, c_1, d_1, poly1

a = Line(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
d = Circle(A, B)
e = Circle(B, A)
C = Intersect(d, b, 2)
D = Intersect(e, c, 2)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)