choose_profile_limits: cpl_finish_box_drag(thisLineTag) - File Exchange

Code covered by the BSD License

Highlights from
choose_profile_limits

choose_profile_limits(varargi... % choose_profile_limits.m--A GUI to enable a user to choose the start and
cpl_makeguiobjects(varargin) % cpl_makeguiobjects--This m-file was generated automatically by fig2mfile.m.
resizeguifig(arg1,varargin) % resizeguifig.m--Resizes the current figure and the gui objects it
resizeguifonts(DeltaFontSize,... % resizeguifonts.m--Takes all the uicontrols in the current figure and
accept_control_callback() % accept_control_callback.m--Callback for "Accept" button.
cpl_drag_box_lines() % cpl_drag_box_lines.m--Callback for dragging the box lines.
cpl_finish_box_drag(thisLineT... % cpl_finish_box_drag.m--Callback to be invoked when one of the box lines
cpl_finish_crop_drag() % cpl_finish_crop_drag.m--Callback to be invoked when one of the crop lines
cpl_help()
cpl_reset_boxes(figNum) % cpl_reset_boxes.m--Resets the boxes to their default sizes (useful if
cpl_update(figNum) % cpl_update.m--Updates the graphical elements of the cpl GUI following a
draglines(varargin) % draglines.m--Permits mouse-dragging of lines in a plot.
full_ax_mouse_callback() % full_ax_mouse_callback.m--Callback for mouse clicks on the full-profile
groupneighbours(IndexIn) % groupneighbours.m--Takes a vector of numbers (usually an index to another
lines(varargin)
marker_control_callback() % marker_control_callback.m--Callback for "Marker" button.
parse_args(varargin) % parse_args.m--Parses input arguments for a client function. Arguments are
quit_control_callback() % quit_control_callback.m--Callback for "Quit" button.
reject_control_callback() % reject_control_callback.m--Callback for "Reject" button.
repositiongui(LeftAndBottom,v... % repositiongui.m--Repositions the gui figure window at the location given
skip_control_callback() % skip_control_callback.m--Callback for "Skip" button.
ydir(varargin)
helptext.m
View all files

from choose_profile_limits by Kevin Bartlett
Allows user to choose limits of oceanographic profile (e.g., CTD cast)

cpl_finish_box_drag(thisLineTag)

function [] = cpl_finish_box_drag(thisLineTag)
%
% cpl_finish_box_drag.m--Callback to be invoked when one of the box lines
% is dragged and released.
%
% Syntax: cpl_finish_box_drag(thisLineTag)

% Developed in Matlab 7.0.1.24704 (R14) Service Pack 1 on GLNX86.
% Kevin Bartlett (kpb@uvic.ca), 2006-03-21 10:57
%-------------------------------------------------------------------------

thisLine = findobj(gcbf,'Tag',thisLineTag);
%cpl_constants = get(gcbo,'userdata');
cpl_properties = getappdata(gcbo,'cpl_properties');

set(gcbo,'WindowButtonUpFcn','');

% Use the line's tag to find out if it is from a start box or an end box.
START = 0;
END = 1;

if strfind(thisLineTag,'startBox')
   boxType = START;
else
   boxType = END;   
end % if

% Do not allow a box to be dragged beyond the plot limits.
%thisLineXVal = unique(get(thisLine,'xdata'));
currPt = get(gca,'CurrentPoint');
xVal = currPt(1,1);

xlims = get(findobj(gcbf,'Tag','full_ax'),'xlim');

if xVal < min(xlims)
   xVal = min(xlims);
end % if
   
if xVal > max(xlims)
   xVal = max(xlims);
end % if

% Find out how far the drag point is from the corresponding crop line.
if boxType == START
   cropLine = findobj(gcbf,'Tag','full_ax_StartLine');
else
   cropLine = findobj(gcbf,'Tag','full_ax_EndLine');
end % if

cropX = unique(get(cropLine,'xdata'));
boxWidth = 2*abs(xVal - cropX);
boxWidthPct = (boxWidth/range(xlims))*100;
cpl_properties.boxWidthPct = boxWidthPct;
%set(gcbo,'userdata',cpl_constants);   
setappdata(gcbo,'cpl_properties',cpl_properties);

cpl_update(gcbo);

Highlights from choose_profile_limits

Highlights from
choose_profile_limits