vrml_select_points

(tmp_for_tar/vrml.doc/vrml_select_points.m)

Function Synopsis

s = vrml_select_points (x, state)

Help text

 s = vrml_select_points (x, state) - vrml code for selecting 3D points

 x     : 3 x P  : 3D points
 state : P      : 0-1 matrix specifying currently selected points
      or Q      : List of indices of currently selected points
                                                    Default=zeros(1,P)

 s     : string : vrml code representing points in x as spheres that
                  change color (green to/from blue) when clicked upon.

 See  select_3D_points()  for complete 3D point selection interface.

 Last modified: December 2000

Listing of function file tmp_for_tar/vrml.doc/vrml_select_points.m

## s = vrml_select_points (x, state) - vrml code for selecting 3D points
##
## x     : 3 x P  : 3D points
## state : P      : 0-1 matrix specifying currently selected points
##      or Q      : List of indices of currently selected points
##                                                    Default=zeros(1,P)
##
## s     : string : vrml code representing points in x as spheres that
##                  change color (green to/from blue) when clicked upon.
## 
## See  select_3D_points()  for complete 3D point selection interface.


## Author:        Etienne Grossmann  <etienne@isr.ist.utl.pt>
## Last modified: December 2000

function s = vrml_select_points (x, state)

P = columns (x);

if nargin < 2,
  state = zeros (1,P);		# Default : nothing pre-selected
else
  state = state(:)';
  if length (state) != P || any (state != 1 & state != 0),
    state = loose (state, P)';
  end
end

diam = 0.1 * mean (sqrt (sum ((x-mean(x')'*ones(1,P)).^2))) ;

## For odb
## Depends: defSpeakSphere.wrl
proto = "defSpeakSphere.wrl" ;

s0 = slurp_file (proto);

				# Pre-selected spheres will be lighter-colored
col1 = [0.4;0.4;0.9]*ones(1,P);
if any (state),
  col1(:,find(state)) = [0.6;0.6;0.8]*ones(1,sum(state));
end

tp = "SpeakSphere {col1 %8.3f %8.3f %8.3f state %i pos %8.3g %8.3g %8.3g scale %8.3g %8.3g %8.3g tag "%i"}\n";

s1 = sprintf (tp, [col1; state; x; diam*ones(3,P);1:P]);

s = [s0,s1];