CONSTRUCTION OF A SQUARE

PROPERTIES OF A SQUARE
*All the sides are equal and parallel.
*Each angle of a square is a rightangle.
*Diagonals bisect each other

Author:SHAILAJA.T.K.
Copyright: CC BY SA

side = 8 (slider from 1 to 30, step 1)
A = (3.6, -3.98)
B = Point(Circle[A, side])
f = Segment(A, B)
c = Circle(A, side)
d = Circle(B, side)
g = OrthogonalLine(A, f)
h = OrthogonalLine(B, f)
C = Intersect(c, g, 2)
D = Intersect(d, h, 2)
i = Line(C, f)
q1, a, c_1, d_1, b = Polygon(A, C, D, B)
α = Angle(B, A, C)
β = Angle(A, C, D)
γ = Angle(C, D, B)
δ = Angle(D, B, A)
Textq1: "Area of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + q1
Pointq1_1 = PointIn(q1)
text1: "Area of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + q1
Pointq1_2 = PointIn(q1)
perimeterq1 = Perimeter(q1)
text2: "Perimeter of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + perimeterq1
Pointq1 = PointIn(q1)
E = (-1.36, 5.6)
F = (-1.18, 3.7)
j = Segment(E, F)
k = Segment(A, D)
l = Segment(B, C)
G = Intersect(k, l)