mw = 10
Sequence[x = i, i, -mw, mw]
Sequence[y = j, j, -mw, mw]
Genten = (0,0)
A1 = (1,4)
A2 = (-2,1)
u = Vector[Genten, A1]
v = Vector[Genten, A2]
Sequence[Line[Translate[Genten,i*u], v], i , -mw, mw]
Sequence[Line[Translate[Genten,i*v], u], i , -mw, mw]
r1 = 1
### w = r1 * cos(t) * u + r1 * sin(t) * v
### x(r1 * cos(t) * u + r1 * sin(t) * v); y(r1 * cos(t) * u + r1 * sin(t) * v)
CC1 = Curve[x(r1 * cos(t) * u + r1 * sin(t) * v), y(r1 * cos(t) * u + r1 * sin(t) * v), t, 0, 2 * Pi]
CH1 = Curve[x(t*u + t^2 * v), y(t*u + t^2 * v), t, -mw, mw]
CC0 = Curve[r1 * cos(t), r1 * sin(t), t, 0, 2 * Pi]
CH0 = Curve[t, t^2, t, -mw, mw]