img = -- IMG SNIP --;


{o, y, x} = {{486.2, 1083.5}, {517.8, 1235.06}, {700.9, 1077.19}};


trans = FindGeometricTransform[{  {0, 0}, {0, 1}, {1, 0} }, {o, y, 
    x} ][[2]]


TransformationFunction[ -- MATRIX SNIP -- ]


ImageTransformation[img, trans]

-- IMG SNIP --