xVals=RandomVariate[UniformDistribution[],{10000,2}]

ListPlot[xVals,AspectRatio->1]

f[pair_]:={pair[[1]]+pair[[2]],pair[[1]]-pair[[2]]}
yVals=f/@xVals

ListPlot[yVals,AspectRatio->1]