plotting – How to get ViewProjection matrix from 3D plot

How to get View$*$Projection Matrix from 3D plot?

The following is an example of 3D plot:

ClearAll[graph, eyePt, lookPt, upDir, fov];
eyePt = {278, -800, 273};
lookPt = {278, 0, 273};
upDir = {0, 0, 1};
fov = 0.6545;
graph = Graphics3D[{Blue,
    {
     Polygon[{{552.799988`, 0.`, 0.`}, {549.599976`, 559.200012`, 
        0.`}, {556.`, 559.200012`, 548.799988`}}]
     }
    }];
Show[graph, Lighting -> {{"Ambient", White}},
 Boxed -> False, Axes -> False, AxesLabel -> {"X", "Y", "Z"},
 ViewVector -> {eyePt, lookPt}, ViewVertical -> upDir, 
 ViewAngle -> fov, ImageSize -> Medium]