choose_profile_limits: lines(varargin) - 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)

lines(varargin)

function LineHndls = lines(varargin)
%
% lines.m--Like line.m, but line is coloured according to value of c...
% c should be scaled to some colourmap (i.e., red to blue? jet?)
% Tricky part is getting colourmap not to get overloaded...use 
% get(0,factoryFigureDithermap)?
%
% Syntax: LineHndls = lines(x,y,<z>)
%
% e.g.,   t = -pi:pi/500:pi; x=sin(5*t); y=cos(3*t); z=t; 
%         %c=log([1:length(t)]);
%         c=(t+pi).^0.5;
%         LineHndls = lines(x,y,z,c,spring(64));

% Developed in Matlab 6.1.0.450 (R12.1) on SUN OS 5.8.
% Kevin Bartlett(bartlett@soest.hawaii.edu), 2002/02/22, 13:38
%------------------------------------------------------------------------------

% Parse the input arguments.
if nargin>5,
   error([mfilename '.m--Too many input arguments.']);
end % if 

x = varargin{1};
y = varargin{2};

for ArgCount = 3:nargin,

   if all(size(varargin{ArgCount}(:))==size(x(:))),

      if exist('z')~=1,
         z=varargin{ArgCount};
      elseif exist('c')~=1,
         c=varargin{ArgCount};
      else
         error([mfilename '.m--Line colour specification must be nx3']);
      end % if

   else

      if exist('CMap')==0,
         CMap = varargin{ArgCount};
      else
         error([mfilename '.m--Line colour specification defined more than once.']);
      end % if      
      
   end % if

end % for

% Use defaults for c and CMap if not specified.
if exist('CMap')==0,
   CMap = get(gcf,'colormap');
end % if

if exist('c')==0,
   if exist('z')==1,
      c = z;
   else
      c = [1:length(x)];
   end % if
end % if

% Index the supplied colourmap.
ColourIndex = round(interp1([min(c) max(c)],[1 length(CMap)],c));
keyboard
% Only make as many lines as there are separate colour segments.
GroupedIndex = groupneighbours(ColourIndex);
unique(ColourIndex)


NumLines = length(x)-1;
LineHndls = NaN * ones(NumLines,1);

for LineCount = 1:NumLines,

   if exist('z')==1,
      LineHndls(LineCount) = line([x(LineCount) x(LineCount+1)],[y(LineCount) y(LineCount+1)],[z(LineCount) z(LineCount+1)]);
   else
      LineHndls(LineCount) = line([x(LineCount) x(LineCount+1)],[y(LineCount) y(LineCount+1)]);
   end % if

   set(LineHndls(LineCount),'color',CMap(ColourIndex(LineCount),:));

end % for

Highlights from choose_profile_limits

Highlights from
choose_profile_limits