Plot3D[Re[BarnesG[x + I y]], {x, -4, 4}, {y, -4, 4}, Mesh -> None, PlotStyle -> Directive[Orange, Specularity[White, 30]], PlotPoints -> 35]