function draw_solid( h, point, face, color )
  
  figure( h );
  clf
  view(3)
  hold on
  for i = 1:length( face )
    fp = face(i).p;
    x = [point( 1, fp )];
    y = [point( 2, fp )];
    z = [point( 3, fp )];
    fill3( x, y, z, color );
  end
