Added local cropping code

Author: opcecco

fix_spectra/fix_click_menu.m

@@ -41,7 +41,7 @@ function fix_click_menu(hObject, eventdata, handles) %#ok<INUSD>
 ...%'','Set noise regions', ...
 	'','Load regions','Create signal map','Create new region', ...
        'Edit region','Delete region','Clear regions','Fix baseline', ...
-    '','Set reference','Normalize to reference','Zero regions', 'Sum normalize','Normalize to weight',...     
+    '','Crop','Set reference','Normalize to reference','Zero regions', 'Sum normalize','Normalize to weight',...     
     '','Save regions','Finalize','Save collections', ...
        'Merge processing logs','Merge locally' ...
        'Post collections','Save figures','Save images', ...
@@ -155,6 +155,17 @@ function fix_click_menu(hObject, eventdata, handles) %#ok<INUSD>
     plot_all;
 elseif strcmp(str{s},'Zero regions')
     zero_regions;
+elseif strcmp(str{s},'Crop')
+    collections = getappdata(gcf,'collections');
+    for c = 1:length(collections)
+        xminimum = str2double(inputdlg(['Collection ' num2str(c) ' - Crop out X values less than:'], 'Crop', 1, {num2str(min(collections{c}.x))}));
+        xmaximum = str2double(inputdlg(['Collection ' num2str(c) ' - Crop out X values greater than:'], 'Crop', 1, {num2str(max(collections{c}.x))}));
+        inds = find(round(collections{c}.x * 10000) / 10000 >= xminimum & round(collections{c}.x * 10000) / 10000 <= xmaximum);
+        collections{c}.x = collections{c}.x(inds);
+        collections{c}.Y = collections{c}.Y(inds, :);
+    end
+    setappdata(gcf,'collections',collections);
+    plot_all;
 elseif strcmp(str{s},'Set reference')
     prompt={'Left:','Right:','New position'};
     name='Set reference';