function draw_wireframe( h, point, edge, color )
  
  figure( h );
  clf
  view(3)
  hold on
  for i = 1:length( edge )
    x = [point( 1, edge(i,:) )];
    y = [point( 2, edge(i,:) )];
    z = [point( 3, edge(i,:) )];
% $$$     x = [point( 1, edge(i,1) ), point( 1, edge(i,2) )];
% $$$     y = [point( 2, edge(i,1) ), point( 2, edge(i,2) )];
% $$$     z = [point( 3, edge(i,1) ), point( 3, edge(i,2) )];
    plot3( x, y, z, color );
  end
