imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0, 1} }]...