mw = 10
list1 = Sequence(x = i, i, (-mw), mw)
list2 = Sequence(y = j, j, (-mw), mw)
Genten = (0, 0)
A1 = (0.62, 2.48)
A2 = (-2.36, 1.82)
u = Vector(Genten, A1)
v = Vector(Genten, A2)
list3 = Sequence(Line[Translate[Genten, Vector[(i * u)]], v], i, (-mw), mw)
list4 = Sequence(Line[Translate[Genten, Vector[(i * v)]], u], i, (-mw), mw)
r1 = 1
a = CurveCartesian(x(((r1 * cos(t)) * u) + ((r1 * sin(t)) * v)), y(((r1 * cos(t)) * u) + ((r1 * sin(t)) * v)), t, 0, 6.283185307179586)
CH1 = CurveCartesian(x((t * u) + (t^(2) * v)), y((t * u) + (t^(2) * v)), t, (-mw), mw)
CC0 = CurveCartesian((r1 * cos(t)), (r1 * sin(t)), t, 0, 6.283185307179586)
CH0 = CurveCartesian(t, t^(2), t, (-mw), mw)