comparison toolboxes/FullBNT-1.0.7/KPMtools/plotBox.m @ 0:e9a9cd732c1e tip

first hg version after svn

+function [h, ht] =plotBox(box, col, str)
+% function h=plotBox(box, col, str)
+%
+% box = [xlow xhigh ylow yhigh]
+% col = color (default - red)
+% str = string printed at center (default '')
+
+if nargin < 2, col = 'r'; end
+if nargin < 3, str = ''; end
+
+box = double(box); % fails on single
+
+h = plot([box(1) box(2) box(2) box(1) box(1)], [ box(3) box(3) box(4) box(4) box(3)]);
+set(h, 'color', col);
+set(h, 'linewidth', 2);
+if ~isempty(str)
+  xc = mean(box(1:2));
+  yc = mean(box(3:4));
+  ht = text(xc, yc, str);
+else
+  ht = [];
+end