-R

O = Intersect(xAxis, yAxis)
R = Point(yAxis)
R' = Point(xAxis)
B' = Mirror(R, xAxis)
c = CircumcircleArc(R, R', B')
α = 0 rad (slider from 0 to 180*°, step 0.1*°)
M = Rotate(R, -α, O)
β = Angle(M, O, R)
a = Ray(O, M)
S = Mirror(R, a)
A = Midpoint(R, S)
B = Midpoint(R, A)
C = Midpoint(R, O)
b = Segment(O, B)
d = Segment(A, C)
D = Intersect(b, d)
e = OrthogonalLine(R, a)
A' = Intersect(e, a)
f = Segment(C, D)
g = Segment(D, A)
h = Segment(A', S)
A'' = Mirror(A', O)
S' = Mirror(S, O)
h' = Segment(A'', S')
A'_1 = Mirror(A, O)
D' = Mirror(D, O)
A'_2 = Mirror(A, O)
g' = Segment(D', A'_2)
C' = Mirror(C, O)
D'_1 = Mirror(D, O)
f' = Segment(C', D'_1)