So I have a set of bounded diophantine equations that specify lines on the plane. I want to make mathematica plot the intersection of two of these equations so I can see what they look like. 

So far I have something like:

> 
> Solve[0 < x - y < 3 && -1 < 2 x - y < 2, {x, y}, Integers]
> 
> 
> 

which returns some structure like:

> 
> {{x -> -2, y -> -4}, {x -> -1, y -> -3}, {x -> -1, y -> -2}, {x -> 0, 
>  y -> -1}}
> 
> 
> 

but how can I now make mathematica plot this so I can see the resulting shape. Preferably I would like the plot to consider every 'point' to be a 1x1 square.

Also, I wonder if there is a better way to do such things. Thanks.