function [ ret ] = box( x1, y1, x2, y2, col )
%box Draws a box from (x1,y1) to (x2,y2) with color col

ret = -1;

line([x1 : x2], y1, 'Color', col);
line([x1 : x2], y2, 'Color', col);
line(x1, [y1 : y2], 'Color', col);
line(x2, [y1 : y2], 'Color', col);


ret = 0;
end