Construction of a parallelogram (using sliders, text box, input bar)

side1 = 24 (slider from 1 to 30, step 1)
side2 = 15 (slider from 1 to 30, step 1)
angle = 1.9198621771937625 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = (0.7723948134093366, -6.146340513886468)
B = Point(Circle[A, side1])
f = Segment(A, B)
B' = Rotate(B, angle, A)
α = Angle(B, A, B')
g = Ray(A, B')
c = Circle(A, side2)
C = Intersect(c, g, 1)
h = Segment(C, A)
i = Line(C, f)
j = Line(B, h)
D = Intersect(i, j)
k = Segment(C, D)
l = Segment(D, B)
β = Angle(A, C, D)
γ = Angle(C, D, B)
δ = Angle(D, B, A)
q1, a, c_1, d, b = Polygon(A, C, D, B)
sumofmeasuresofanglesofaparallelogram: α + β + γ + δ
sumofadjacentangles: α + β
text2: "The sum of measures of the angles of a parallelogram = 360°
Sum of the measures= " + α + "+" + β + "+" + γ + "+" + δ + "=" + sumofmeasuresofanglesofaparallelogram + "
Adjacent angles are supplementary. " + α + "+" + β + "=" + sumofadjacentangles + ""
m = Segment(A, D)
n = Segment(C, B)
E = Intersect(m, n)
p = Segment(C, E)
q = Segment(A, E)
Textq1: "Area of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + q1
Pointq1_1 = PointIn(q1)
perimeterq1 = Perimeter(q1)
text3: "Perimeter of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + perimeterq1
Pointq1_2 = PointIn(q1)
e = Perimeter(q1)
text4: "Perimeter of  " + (Name[A]) + (Name[C]) + (Name[D]) + (Name[B]) + " = " + e
Pointq1 = PointIn(q1)