Step 1 : Plot a circle
Step 2: Plot two point
Step3: Measure radius AC and AB

Step 4:  Circular Arc (remember this is also measured
anti clockwise)
Step 5: A, B, C
Step 6: Gets the arc; under Object Properties-colour it

Step 7: Another Circular Arc : A,C,B
Step 8: Under Object properties color it

Step 10: Animate the circle and show by moving the point, by changing the radius

Step 8: Plot a point D and Measure circumference
Step 9: In algebra panel, show arc length “d”and arc length “e”

radius = 4 (slider from 3 to 12, step 0.5)
A = (-3, 2.843636363636365)
c = Circle(A, radius)
B = Point(c)
C = Point(c)
d = CircleArc(A, B, C)
e = CircleArc(A, C, B)
Pointc_1 = PointIn(c)
a = Segment(A, C)
b = Segment(A, B)
D = Point(c)
circumferencec = Circumference(c)
Textc: "Circumference of " + (Name[c]) + " = " + circumferencec
Pointc = PointIn(c)
totalarc: d + e
text6: "Minor Arc length " + d + " + Major Arc length " + e + "   = Circumference= " + totalarc + " "

Tool: SquareTool
Tool2[ <Number>, <Point> ]
Input: side, A
Output: poly1

B = Point(Circle[A, side])
a = Segment(A, B)
c = Circle(A, side)
b = OrthogonalLine(A, a)
C = Intersect(c, b, 2)
d = Circle(C, side)
e = OrthogonalLine(C, b)
D = Intersect(d, e, 1)
poly1, a_1, b_1, d_1, c_1 = Polygon(A, B, D, C)