%MMLINE Set Line Properties Using Mouse.
% MMLINE waits for a mouse click on a line then
% applies the desired properties to the selected line.
% Properties are given in pairs, e.g., MMLINE name value ...
% Properties:
% NAME VALUE {default}
% color or an rgb in quotes: ''
% style [- -- : -.]
% mark
% width points for linewidth {0.5}
% size points for marker size (6)
% zap (n.a.) delete selected line
% Examples:
% MMLINE color r width 2 sets color to red and width to 2 points
% MMLINE mark + size 8 sets marker type to + and size to 8 points
% MMLINE color '' sets color to orange
%
% Clicking on an object other than a line, or striking
% a key on the keyboard aborts the command.
% D.C. Hanselman, University of Maine, Orono, ME, 04469
% 4/27/95
% Copyright (c) 1996 by Prentice-Hall, Inc.
Hf=mmgcf;
if isempty(Hf), error('No Figure Available.'), end
if length(get(0,'Children'))==1
figure(Hf) % bring only figure forward
end
key=waitforbuttonpress;
if key % key on keyboard pressed
return
else % object selected
Hl=gco;
if strcmp(get(Hl,'Type'),'line') % line object selected
for i=1:2:max(nargin-1,1)
name=eval(sprintf('arg%.0f',i),'[]'); % get name argument
if strcmp(name,'zap')
delete(Hl),return
end
value=eval(sprintf('arg%.0f',i+1),'[]'); % get value argument
if strcmp(name,'color')
if value(1)=='[',value=eval(value);end
set(Hl,'Color',value)
elseif strcmp(name,'style')
set(Hl,'Linestyle',value)
elseif strcmp(name,'mark')
set(Hl,'Linestyle',value)
elseif strcmp(name,'width')
value=abs(eval(value));
set(Hl,'LineWidth',value)
elseif strcmp(name,'size')
value=abs(eval(value));
set(Hl,'MarkerSize',value)
else
disp(['Unknown Property Name: ' name])
end
end
end
end 这钱太难赚了啊 下了，············:) 是中文的吗 呵呵呵呵呵呵呵呵呵呵呵呵呵呵呵呵 1# qjay612
看看再说！！
呵呵 % applies the desired properties to the selected line.
# p$ n) o* W& t" Z6 N% Properties are given in pairs, e.g., MMLINE name value ... L `& c: }2 o! G7 G
% Properties:
$ `. K& \3 ~: X8 y0 w; s" _! ?%
页:
1
[2]