figure('Units','normalized', ...
    'Name','BOUNDARIES', ...
  'Color',[0.8 0.8 0.8], ...
  'Position',[ 0.01375 0.20166 0.0925 0.52 ]);
h1021=uimenu('Label','BOUNDARIES');
uimenu('Parent',h1021, ...
  'Callback','help digitize', ...
  'Label','digitize');
uimenu('Parent',h1021, ...
  'Callback','help getpts', ...
  'Label','getpts');
uimenu('Parent',h1021, ...
  'Callback','help radiusfn', ...
  'Label','radiusfn');
uimenu('Parent',h1021, ...
  'Callback','help tangentfn', ...
  'Label','tangentfn');
uimenu('Parent',h1021, ...
  'Callback','help fourier', ...
  'Label','fourier');
uimenu('Parent',h1021, ...
  'Callback','help gui_pfourier', ...
  'Label','gui_pfourier');

%pcacov
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Callback','figure;[crds]=digitize(''molars.tif'');',...
  'Position',[0.156521739130435 0.803664921465969 0.695652173913043 0.120418848167539 ], ...
  'String','digitize');
%pcacorr
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Callback','figure;[crds grps]=getpts',...
  'Position',[ 0.165217391304348 0.659685863874346 0.695652173913043 0.120418848167539 ], ...
  'String','getpts');
%discrim
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Position',[ 0.165217391304348 0.520942408376963 0.704347826086957 0.117801047120419 ], ...
  'Callback','[r,theta,perim] = radiusfn(crds)',...
  'String','radiusfn');
%sizefree
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Position',[ 0.156521739130435 0.37434554973822 0.704347826086957 0.117801047120419 ], ...
  'Callback','figure;[theta1,perim1] = tangentfn(crds)',...
  'String','tangentfn');
%mahal
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Position',[ 0.156521739130435 0.230366492146597 0.704347826086957 0.117801047120419 ], ...
  'Callback','figure; [a,b,phase,ampl] = fourier(crds)',...
  'String','fourier');
%classify
uicontrol('Units','normalized', ...
  'BackgroundColor',[ 0.175783932249943 0.959990844586862 0.134416723887999 ], ...
  'Position',[ 0.165217391304348 0.0863874345549738 0.704347826086957 0.117801047120419 ], ...
  'Callback','gui_pfourier',...
  'String','pfourier');
%
