octave_packages/geometry-1.5.0/polygons2d/distancePolygons.m

   1 ## Copyright (C) 2003-2011 David Legland <david.legland@grignon.inra.fr>
   2 ## Copyright (C) 2012 Adapted to Octave by Juan Pablo Carbajal <carbajal@ifi.uzh.ch>
   3 ## All rights reserved.
   4 ##
   5 ## Redistribution and use in source and binary forms, with or without
   6 ## modification, are permitted provided that the following conditions are met:
   7 ##
   8 ##     1 Redistributions of source code must retain the above copyright notice,
   9 ##       this list of conditions and the following disclaimer.
  10 ##     2 Redistributions in binary form must reproduce the above copyright
  11 ##       notice, this list of conditions and the following disclaimer in the
  12 ##       documentation and/or other materials provided with the distribution.
  13 ##
  14 ## THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ''AS IS''
  15 ## AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  16 ## IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  17 ## ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
  18 ## ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  19 ## DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  20 ## SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  21 ## CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  22 ## OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  23 ## OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  24 ##
  25 ## The views and conclusions contained in the software and documentation are
  26 ## those of the authors and should not be interpreted as representing official
  27 ## policies, either expressed or implied, of the copyright holders.
  28
  29 ## -*- texinfo -*-
  30 ## @deftypefn {Function File} {@var{dist} = } distancePolygons (@var{poly1},@var{poly2})
  31 ##  Compute the shortest distance between 2 polygons
  32 ##
  33 ## @end deftypefn
  34 function dist = distancePolygons(poly1, poly2)
  35
  36   # compute distance of each vertex of a polygon to the other polygon
  37   dist1   = min(distancePointPolygon(poly1, poly2));
  38   dist2   = min(distancePointPolygon(poly2, poly1));
  39
  40   # keep the minimum of the two distances
  41   dist = min(dist1, dist2);
  42
  43 endfunction