vb_merge_area

 Merge area for 2D cortex surface
  Iextract = vb_merge_area(Jarea, V)
 複数領域の合併

 Iextract : 新しい頂点リスト
 Jarea{n} : 頂点リスト(セルアレイ)

 Made by M. Sato 2004-3-28

 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function    Iextract = vb_merge_area(Jarea, V)
0002 % Merge area for 2D cortex surface
0003 %  Iextract = vb_merge_area(Jarea, V)
0004 % 複数領域の合併
0005 %
0006 % Iextract : 新しい頂点リスト
0007 % Jarea{n} : 頂点リスト(セルアレイ)
0008 %
0009 % Made by M. Sato 2004-3-28
0010 %
0011 % Copyright (C) 2011, ATR All Rights Reserved.
0012 % License : New BSD License(see VBMEG_LICENSE.txt)
0013 
0014 NV     = size(V,1); % Number of all vertex
0015 NJ     = size(Jarea,1);
0016 
0017 flag = zeros(NV,1);
0018 
0019 for n=1:NJ,
0020     indx     = Jarea{n};
0021 
0022     % Include n-th area
0023     flag(indx) = 1;
0024 end;
0025 
0026 Iextract = find( flag > 0 );