$x$

$y$

w

h

t

A = (0, 0)
t = 0.75 (slider from 0.25 to 2.5, step 0.125)
i: (1, 0)
j: (0, 1)
C2: A + ((2 * t) * (i + j))
w = 12 (slider from 3 to 12)
h = 7.82 (slider from 3 to 12)
F: C2 - (i * t)
B: A + (w * i)
C1: B - (i * t)
H: A + (h * j)
D: C1 + (j * t)
C3: H - (j * t)
E: C2 - (j * t)
G: C3 + (i * t)
list: {Segment[A, B], CircleArc[C1, B, D], Segment[D, E], CircleArc[C2, F, E], Segment[F, G], CircleArc[C3, G, H], Segment[H, A]}
A': A + (w * i) + (h * j) + ((0.707 * i) * t)
B': A' - (w * i)
C1': B' + (i * t)
D': C1' - (j * t)
C2': A' - ((2 * t) * (i + j))
E': C2' + (j * t)
F': C2' + (i * t)
H': A' - (h * j)
C3': H' + (j * t)
G': C3' - (i * t)
list': {Segment[A', B'], CircleArc[C1', B', D'], Segment[D', E'], CircleArc[C2', F', E'], Segment[F', G'], CircleArc[C3', G', H'], Segment[H', A']}
J = Point(list)
J' = Point(list')
K: J + (0, 0)
K': J' + (0, 0)
loc1 = Locus(K, J)
loc' = Locus(K', J')
O = Midpoint(Segment[A, A'])
xaxis = Vector(O, O + ((w / 2 + 2) * i))
yaxis = Vector(O, O + ((h / 2 + 2) * j))
dim1 = Segment(A - (0.25 * i), A - (2 * i))
dim2 = Segment(H - (0.25 * i), H - (2 * i))
dim3 = Segment(A - (0.25 * j), A - (2 * j))
dim5 = Segment(H' - (0.25 * j), H' - (2 * j))
dim4 = Segment(H' - ((i * 0.707) * t) - (0.25 * j), H' - ((i * 0.707) * t) - (2 * j))
dim6 = Vector(Midpoint[dim1], Midpoint[dim2])
dim7 = Vector(Midpoint[dim3], Midpoint[dim4])
dim8 = Segment(Midpoint[dim4], Midpoint[dim5])
dim6' = Vector(Midpoint[dim2], Midpoint[dim1])
dim7' = Vector(Midpoint[dim4], Midpoint[dim3])
xbar: w / 4
ybar: h / 4
P = (2.8926195000000003, 2.0940354999999995)
P' = Mirror(P, O)
tr: A' + ((i + j) * 3)
bl: A - ((i + j) * 3)