How to simplify the plot codes or provide a new method to obtain the ideal PDF?

f[x_, y_] := {{x, y, 30}, {-x, -y, 30}, {y, x, 30}, {-y, -x, 30}}

x = 1;
y = 2;

Apply[f, List[x, y]]

{{1, 2, 30}, {-1, -2, 30}, {2, 1, 30}, {-2, -1, 30}}