Perfect, that works. Thanks.
You can try ImageCompose:
ImageCompose
ImageCompose[g1, Graphics3D[{p1}, AbsoluteOptions[g1]]]