"label.heatmap" = function(segment.table, size = 1)
{
	for(i in 1:nrow(segment.table)) {
		segments(segment.table[i, 1], segment.table[i, 2], segment.table[i, 3], segment.table[i, 4])
		text(segment.table[i, 6], segment.table[i, 5], dimnames(segment.table)[[1]][i], crt = 90, cex = size, adj = 1)
		segments(segment.table[i, 2], segment.table[i, 1], segment.table[i, 4] * 0.66, segment.table[i, 3])
		text(segment.table[i, 5] * 0.66, segment.table[i, 6], dimnames(segment.table)[[1]][i], cex = size, adj = 1)
	}
}