लेखक- श्रीरंजनी, आईटी फॉर चेंज, बेंगलुरु 
लाइसेंस- क्रियेटिव कॉमन्स शेयर-अलाइक लाइसेंस

भुजा_1 = 4.75 (slider from 2 to 10, step 0.05)
भुजा_2 = 4.8 (slider from 2 to 10, step 0.05)
α = 1.0471975511965976 rad (slider from 0 to 6.283185307179586, step 0.017453292519943295)
A = (2.763636363636363, -1.0109090909090905)
B = Point(Circle[A, भुजा_1])
a = Segment(A, B)
B' = Rotate(B, α, A)
β = Angle(B, A, B')
b = Ray(A, B')
c = Circle(A, भुजा_2)
C = Intersect(c, b, 1)
d = Segment(C, B)
e = Segment(A, C)

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)