www.pudn.com > distmesh.rar > drectangle0.m, change:2006-02-13,size:421b

function d=drectangle0(p,x1,x2,y1,y2)

%   Copyright (C) 2004-2006 Per-Olof Persson. See COPYRIGHT.TXT for details.

d1=y1-p(:,2);
d2=-y2+p(:,2);
d3=x1-p(:,1);
d4=-x2+p(:,1);

d5=sqrt(d1.^2+d3.^2);
d6=sqrt(d1.^2+d4.^2);
d7=sqrt(d2.^2+d3.^2);
d8=sqrt(d2.^2+d4.^2);

d=-min(min(min(-d1,-d2),-d3),-d4);

ix=d1>0 & d3>0;
d(ix)=d5(ix);
ix=d1>0 & d4>0;
d(ix)=d6(ix);
ix=d2>0 & d3>0;
d(ix)=d7(ix);
ix=d2>0 & d4>0;
d(ix)=d8(ix);