Ellipse from two vectors, 2

The tool

MajorAxis[O, A, B, prv]

prv, a free point Gives points C, D. Objects which transform the ellipse (here, points A, B, O) should update SetValue[prv, C]