-2.2, 1}, Background -> None, PlotRange -> All] Export["Wignerfunction_marginal_projection.png", ImageCrop[ Image[img, ImageResolution -> 800], {3080,...