lines = houghlines(X(:,:,1),T,R,peak,'FillGap',5,'MinLength',2);
figure, imshow(X), hold on
for k = 1:length(lines)
    xy = [lines(k).point1; lines(k).point2];
    plot(xy(:,1),xy(:,2),'LineWidth',2,'Color','red');
end
title('chess.jpg with houghlines');