octave_packages/geometry-1.5.0/graphs/voronoi2d.m

   1 %% Copyright (C) 2007-2012 David Legland <david.legland@grignon.inra.fr>
   2 %% All rights reserved.
   3 %%
   4 %% Redistribution and use in source and binary forms, with or without
   5 %% modification, are permitted provided that the following conditions are met:
   6 %%
   7 %%   1 Redistributions of source code must retain the above copyright notice,
   8 %%   this list of conditions and the following disclaimer.
   9 %%   2 Redistributions in binary form must reproduce the above copyright
  10 %%   notice, this list of conditions and the following disclaimer in the
  11 %%   documentation and/or other materials provided with the distribution.
  12 %%
  13 %% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ''AS IS''
  14 %% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  15 %% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  16 %% ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
  17 %% ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  18 %% DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
  19 %% SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
  20 %% CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  21 %% OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
  22 %% OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  23 %%
  24 %% 2012 Adapted to Octave by Juan Pablo Carbajal <carbajal@ifi.uzh.ch>
  25
  26 %% -*- texinfo -*-
  27 %% @deftypefn {Function File} {[@var{nodes} @var{edges} @var{faces}] = } voronoi2d (@var{germs})
  28 %% Compute a voronoi diagram as a graph structure
  29 %%
  30 %% [NODES EDGES FACES] = voronoi2d(GERMS)
  31 %% GERMS an array of points with dimension 2
  32 %% NODES, EDGES, FACES: usual graph representation, FACES as cell array
  33 %%
  34 %% Example
  35 %% @example
  36 %%
  37 %% [n e f] = voronoi2d(rand(100, 2)*100);
  38 %% drawGraph(n, e);
  39 %%
  40 %% @end example
  41 %%
  42 %% @end deftypefn
  43
  44 function [nodes edges faces] = voronoi2d(germs)
  45   [V C] = voronoin(germs);
  46
  47   nodes = V(2:end, :);
  48   edges = zeros(0, 2);
  49   faces = {};
  50
  51   for i=1:length(C)
  52   cell = C{i};
  53   if ismember(1, cell)
  54     continue;
  55   end
  56
  57   cell = cell-1;
  58   edges = [edges; sort([cell' cell([2:end 1])'], 2)]; %#ok<AGROW>
  59   faces{length(faces)+1} = cell; %#ok<AGROW>
  60   end
  61
  62   edges = unique(edges, 'rows');
  63
  64 endfunction
  65
  66 %!demo
  67 %! [n e f] = voronoi2d(rand(100, 2)*100);
  68 %! drawGraph(n, e);
  69 %! axis tight