sIze points for marker size 16: (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 % Clicking on an object other than a line, or striking a key on the keyboard aborts the command Copyright (c) 1996 by Prentice-Hall, Inc if isempty(Hf), error( No Figure Avaiable. ), end if length(get(O, Children))==1 figure(Hf) bring only figure forword end key=waitforbuttonpress if key key on keyboard pressed object selecte if st for i-1: 2: max( nargin-1, I Name=eval(sprintf(arg%.Of', 1), ) get Name argument if strcmp( value=eval(sprintf(arg%.0f, 1+1)); get value t(hl, color set(HI, Linestyle t(HI, Linestyle elseif strcmp(Name, width) value=abs(eval( value)% 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 % % Clicking on an object other than a line,or striking a key on the keyboard aborts the % command. % Copyright (c) 1996 by Prentice-Hall,Inc. Hf=mmgcf; if isempty(Hf),error( ‘No Figure Avaiable.’ ),end if length(get(0, ‘Children’ ))==1 figure(Hf) % bring only figure forword 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 if strcmp(Name, ‘color’ ) 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