Changeset 3018


Ignore:
Timestamp:
02/10/10 17:53:41 (15 years ago)
Author:
Mathieu Morlighem
Message:

Now, everything can be changed in expmaster (markers,colors,width,...)

Location:
issm/trunk/src/m/utils/Exp
Files:
16 edited

Legend:

Unmodified
Added
Removed

  • issm/trunk/src/m/utils/Exp/expconcatenate.m

    r1 r3018  
    4848
    4949%call merge profile routine
    50 [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root);
     50[A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root,options);
    5151
    5252hold off

  • issm/trunk/src/m/utils/Exp/expcut.m

    r1 r3018  
    4848
    4949%call merge profile routine
    50 [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root);
     50[A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root,options);
    5151
    5252hold off

  • issm/trunk/src/m/utils/Exp/expmaster.m

    r2652 r3018  
    44%   this routine is used to create, modify, cut,... an Argus file (.exp)
    55%
    6 %   expmaster(newprofile)
     6%   expmaster(newprofile,'optionname',optionvalue)
    77%      creation of an argus file newprofile
    88%
    9 %   expmaster(newprofile,oldprofile)
    10 %      the modification of the file oldprofile will be saved in newprofile
    11 %
    12 %   expmaster(newprofile,oldprofile1,oldprofile2,...)
    13 %      the modification of the files oldprofile* will be saved in newprofile
     9%   Available options:
     10%      - include: include list of existing ARGUS files
     11%      - color: line color (default='r')
     12%      - selectioncolor: line color of selected profiles (default='b')
     13%      - linestyle (default='-')
     14%      - linewidth (default=1)
     15%      - marker (default='s')
     16%      - markersize (default=10)
     17%      - markeredgecolor (default='r')
    1418%
    1519%   Usage:
    1620%      expmaster(newfile,varargin)
     21%
     22%   Example:
     23%      expmaster('domain.exp','include',{'domain1.exp' 'domain2.exp'},'color','g','marker','+')
    1724%
    1825%   See also EXPDOC
    … …  
    2128if ~nargin | nargout
    2229        error('expmaster usage: expmaster(newfile,varargin)')
    23 elseif exist(newfile),
     30elseif exist(newfile,'file'),
    2431        %recursive call to expmaster if file already exists
    2532        if nargin==1,
    26                 expmaster(newfile,newfile);
     33                expmaster(newfile,'include',newfile,varargin{:});
    2734                return;
    2835        end
    … …  
    3643end
    3744
     45%recover options
     46options=pairoptions(varargin{:});
     47
     48%Add default options
     49options=addfielddefault(options,'color','r');
     50options=addfielddefault(options,'selectioncolor','b');
     51options=addfielddefault(options,'LineStyle','-');
     52options=addfielddefault(options,'LineWidth',1);
     53options=addfielddefault(options,'Marker','s');
     54options=addfielddefault(options,'MarkerSize',10);
     55options=addfielddefault(options,'MarkerEdgeColor','r');
     56
    3857%put all the argus profiles given in input in one structure A
    3958A=struct([]);
    … …  
    4160numpoints=0;
    4261closed=[];
    43 for i=1:nargin-1
    44         filename=varargin{i};
    45         if ~exist(filename),
    46                 error(['expmaster error message:, ' filename ' does not exist. Exiting...']);
    47         else
    48                 %read file
    49                 B=expread(filename,1);
    50                 %go through all profiles of B
    51                 for i=1:size(B,2)
    52                         %plug profile in A
    53                         if numprofiles
    54                                 A(numprofiles+1)=B(i);
    55                         else
    56                                 A=B(i);
    57                         end
    58                         %update numprofiles and numpoints
    59                         numpoints=numpoints+length(B(i).x);
    60                         numprofiles=numprofiles+1;
    61                         %figure out if the profile is closed or not
    62                         if (B(i).x(1)==B(i).x(end) & B(i).y(1)==B(i).y(end))
    63                                 closed(numprofiles)=1;
    64                         else
    65                                 closed(numprofiles)=0;
     62
     63%initialize the variables with files provided by 'include' option
     64if exist(options,'include'),
     65        files=getfieldvalueerr(options,'include');
     66        if ischar(files), files={files}; end
     67        for i=1:length(files),
     68                filename=files{i};
     69                if ~exist(filename,'file'),
     70                        error(['expmaster error message:, ' filename ' does not exist. Exiting...']);
     71                else
     72                        %read file
     73                        B=expread(filename,1);
     74                        %go through all profiles of B
     75                        for i=1:size(B,2)
     76                                %plug profile in A
     77                                if numprofiles
     78                                        A(numprofiles+1)=B(i);
     79                                else
     80                                        A=B(i);
     81                                end
     82                                %update numprofiles and numpoints
     83                                numpoints=numpoints+length(B(i).x);
     84                                numprofiles=numprofiles+1;
     85                                %figure out if the profile is closed or not
     86                                if (B(i).x(1)==B(i).x(end) & B(i).y(1)==B(i).y(end))
     87                                        closed(numprofiles)=1;
     88                                else
     89                                        closed(numprofiles)=0;
     90                                end
    6691                        end
    6792                end
    … …  
    96121
    97122%plot existing profile if any
    98 
    99123hold on
    100 if numprofiles
    101         for i=1:numprofiles
    102                 plot(A(i).x,A(i).y,'-r','MarkerSize',10);
    103         end
    104 end
    105124
    106125%Build backup structre for do and redo
    … …  
    125144        A(list)=[];
    126145        closed(list)=[];
     146
     147        %Now erase all that have been done and plot the new structure A as it is
     148        undoplots(prevplot);
     149        if numprofiles
     150                prevplot2=1;
     151                for i=1:numprofiles
     152                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
     153                        prevplot2=prevplot2+1;
     154                end
     155        end
    127156
    128157        %display menu
    … …  
    175204                case 1
    176205
    177                         [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot2,root);
     206                        [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot2,root,options);
    178207                        counter=counter+1;
    179208                        backup{counter,1}=A;
    … …  
    184213                case 2
    185214
    186                         [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot2,root);
     215                        [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot2,root,options);
    187216                        counter=counter+1;
    188217                        backup{counter,1}=A;
    … …  
    193222                case 3
    194223
    195                         [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot2,root);
     224                        [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot2,root,options);
    196225                        counter=counter+1;
    197226                        backup{counter,1}=A;
    … …  
    202231                case 4
    203232
    204                         [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root);
     233                        [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root,options);
    205234                        counter=counter+1;
    206235                        backup{counter,1}=A;
    … …  
    211240                case 5
    212241
    213                         [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root);
     242                        [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    214243                        counter=counter+1;
    215244                        backup{counter,1}=A;
    … …  
    220249                case 6
    221250
    222                         [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot2,root);
     251                        [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot2,root,options);
    223252                        counter=counter+1;
    224253                        backup{counter,1}=A;
    … …  
    229258                case 7
    230259
    231                         [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root);
     260                        [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root,options);
    232261                        counter=counter+1;
    233262                        backup{counter,1}=A;
    … …  
    238267                case 8
    239268
    240                         [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root);
     269                        [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root,options);
    241270                        counter=counter+1;
    242271                        backup{counter,1}=A;
    … …  
    247276                case 9
    248277
    249                         [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root);
     278                        [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    250279                        counter=counter+1;
    251280                        backup{counter,1}=A;
    … …  
    256285                case 10
    257286
    258                         [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root);
     287                        [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root,options);
    259288                        counter=counter+1;
    260289                        backup{counter,1}=A;
    … …  
    265294                case 11
    266295
    267                         [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root);
     296                        [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root,options);
    268297                        counter=counter+1;
    269298                        backup{counter,1}=A;
    … …  
    275304                case 12
    276305
    277                         [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root);
     306                        [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    278307                        counter=counter+1;
    279308                        backup{counter,1}=A;
    … …  
    293322        end
    294323
    295         %Now erase all that have been done and plot the new structure A as it is
    296         undoplots(prevplot);
    297         if numprofiles
    298                 prevplot2=1;
    299                 for i=1:numprofiles
    300                         plot(A(i).x,A(i).y,'-r','MarkerSize',10);
    301                         prevplot2=prevplot2+1;
    302                 end
    303         end
    304324end
    305325

  • issm/trunk/src/m/utils/Exp/expselect.m

    r1 r3018  
    4949
    5050%call merge profile routine
    51 [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root);
     51[A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    5252
    5353hold off

  • issm/trunk/src/m/utils/Exp/manipulation/addcontour.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%ADDCONTOUR - add a closed contour
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=addcontour(A,numprofiles,numpoints,closed,prevplot,root,options)
    99                   
    1010        title('click to add a point to the new profile, RETURN to exit','FontSize',14)
    … …  
    2525                        %plot everything
    2626                        undoplots(prevplot);
    27                         if length(x)
    28                                 plot(x,y,'-rs','MarkerSize',10);
    29                         end
    30                         plot(x,y,'rs','MarkerSize',10);
    31                         plot(x(end),y(end),'rs','MarkerSize',14);
     27                        plot(x,y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     28                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
     29                        plot(x(end),y(end),'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize')+2,'Marker',getfieldvalueerr(options,'Marker'));
    3230
    3331                else

  • issm/trunk/src/m/utils/Exp/manipulation/addendprofile.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%ADDENDPROFILE - add point at the end of a n existing profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=addendprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    4848        %plot the selected profile
    4949        hold on
    50         if length(x)
    51                 plot(x,y,'-rs','MarkerSize',10);
    52         end
    53         plot(x,y,'rs','MarkerSize',10);
    54         plot(x(end),y(end),'rs','MarkerSize',14);
    55 
     50        plot(x,y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     51                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
     52        plot(x(end),y(end),'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize')+2,'Marker',getfieldvalueerr(options,'Marker'));
    5653
    5754        loop=1;
    58 
    5955        while loop
    6056
    … …  
    6965                        %plot everything
    7066                        undoplots(prevplot);
    71                         if length(x)
    72                                 plot(x,y,'-rs','MarkerSize',10);
    73                         end
    74                         plot(x,y,'rs','MarkerSize',10);
    75                         plot(x(end),y(end),'rs','MarkerSize',14);
     67                        plot(x,y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     68                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
     69                        plot(x(end),y(end),'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize')+2,'Marker',getfieldvalueerr(options,'Marker'));
    7670
    7771                else

  • issm/trunk/src/m/utils/Exp/manipulation/addinsideprofile.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%ADDINSIDEPROFILE - add apoint inside a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=addinsideprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    1818        end       
    1919        hold on
    20         loop=1;
    2120
    2221        %plot squares
    2322        for i=1:numprofiles
    24                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     23                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     24                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    2525        end
    2626
     27        loop=1;
    2728        while loop
    2829
    … …  
    4445
    4546                        %highlight selected segment
    46                         plot([A(profsel).x(indsel) A(profsel).x(indsel+1)],[A(profsel).y(indsel) A(profsel).y(indsel+1)],'b-','MarkerSize',10);
     47                        plot([A(profsel).x(indsel) A(profsel).x(indsel+1)],[A(profsel).y(indsel) A(profsel).y(indsel+1)],...
     48                                'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     49                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    4750
    4851                        %next click
    … …  
    6164                                undoplots(prevplot);
    6265                                for i=1:numprofiles
    63                                         plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     66                                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     67                                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    6468                                end
    6569

  • issm/trunk/src/m/utils/Exp/manipulation/addprofile.m

    r1 r3018  
    1 function [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%ADDPROFILE - add a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=addprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99                   
    1010        title('click to add a point to the new profile, RETURN to exit','FontSize',14)
    … …  
    2525                        %plot everything
    2626                        undoplots(prevplot);
    27                         if length(x)
    28                                 plot(x,y,'-rs','MarkerSize',10);
    29                         end
    30                         plot(x,y,'rs','MarkerSize',10);
    31                         plot(x(end),y(end),'rs','MarkerSize',14);
     27                        plot(x,y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     28                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
     29                        plot(x(end),y(end),'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize')+2,'Marker',getfieldvalueerr(options,'Marker'));
    3230
    3331                else

  • issm/trunk/src/m/utils/Exp/manipulation/closeprofile.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%CLOSEPROFILE - close one or several profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=closeprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99
    1010        %some checks
    … …  
    4242                                %profile was in selection, remove it from the selection
    4343                                selection(find(selection==profsel))=[];
    44                                 %back to red
    45                                 plot(A(profsel).x,A(profsel).y,'-r','MarkerSize',10);
     44                                %back to regular color
     45                                plot(A(profsel).x,A(profsel).y,...
     46                                        'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    4647                        elseif closed(profsel),
    4748                                %profile already closed, do nothing
    … …  
    5051                                %add the profile to the list to be closed
    5152                                selection(end+1)=profsel;
    52                                 %in blue
    53                                 plot(A(profsel).x,A(profsel).y,'-b','MarkerSize',10);
     53                                %in selectioncolor
     54                                plot(A(profsel).x,A(profsel).y,...
     55                                        'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    5456                        end
    5557                else

  • issm/trunk/src/m/utils/Exp/manipulation/cutarea.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%CUTAREA - cut several point of a profile
    33%
    … …  
    99%
    1010%   Usage:
    11 %      [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root)
     11%      [A,numprofiles,numpoints,closed]=cutarea(A,numprofiles,numpoints,closed,prevplot,root,options)
    1212               
    1313        hold on
    … …  
    1616        %plot squares
    1717        for i=1:numprofiles
    18                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     18                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     19                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    1920        end
    2021
    … …  
    5556                                        selection=profsel;
    5657                                        points(end+1)=indsel;
    57                                         plot(A(selection).x,A(selection).y,'-b','MarkerSize',10);
     58                                        plot(A(profsel).x,A(profsel).y,...
     59                                                'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    5860                                        text(A(selection).x(indsel),A(selection).y(indsel),num2str(1),'FontSize',14,'background',[0.7 0.7 0.9]);
    5961                                end
    … …  
    135137                                                undoplots(prevplot);
    136138                                                for i=1:numprofiles
    137                                                         plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     139                                                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     140                                                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    138141                                                end
    139142                                                points=[];

  • issm/trunk/src/m/utils/Exp/manipulation/cutprofile.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%CUTPROFILE - cut a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=cutprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    1818        end       
    1919        hold on
    20         loop=1;
    2120
    2221        %plot squares
    2322        for i=1:numprofiles
    24                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     23                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     24                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    2525        end
    2626
     27        loop=1;
    2728        while loop
    2829
    … …  
    6768                                undoplots(prevplot);
    6869                                for i=1:numprofiles
    69                                         plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     70                                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     71                                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    7072                                end
    7173                        end

  • issm/trunk/src/m/utils/Exp/manipulation/mergeprofiles.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%MERGEPROFILES - merge profiles
    33%
    … …  
    77%
    88%   Usage:
    9 %      [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root)
     9%      [A,numprofiles,numpoints,closed]=mergeprofiles(A,numprofiles,numpoints,closed,prevplot,root,options)
    1010
    1111hold on
    … …  
    3333end
    3434
    35 %plot the tips
    36 plot(tips(:,1),tips(:,2),'rs','Markersize',10);
     35%plot the tips only
     36plot(tips(:,1),tips(:,2),...
     37        'LineStyle','none','MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    3738firsttip=1;
    3839
    … …  
    6970
    7071                        %plot selected tip
    71                         plot(tips(tip1,1),tips(tip1,2),'bs','MarkerSize',10);
    72                         plot(A(numprofile1).x,A(numprofile1).y,'-g');
     72                        plot(tips(tip1,1),tips(tip1,2),...
     73                                'LineStyle','none','MarkerEdgeColor',getfieldvalueerr(options,'selectioncolor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
     74                        plot(A(numprofile1).x,A(numprofile1).y,...
     75                                'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    7376
    7477                %second selection
    … …  
    133136                        undoplots(prevplot);
    134137                        for i=1:numprofiles
    135                                 plot(A(i).x,A(i).y,'-r','MarkerSize',10);
     138                                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    136139                        end
    137140                        if ~isempty(tips)
    138                                 plot(tips(:,1),tips(:,2),'rs','Markersize',10);
     141                                plot(tips(:,1),tips(:,2),...
     142                                        'LineStyle','none','MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    139143                        end
    140144

  • issm/trunk/src/m/utils/Exp/manipulation/modifyposition.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%MODIFYPOSITION - modify the prosition of a point of a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=modifyposition(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    1919        %plot squares
    2020        for i=1:numprofiles
    21                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     21                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     22                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    2223        end
    2324
    … …  
    3435
    3536                        %plot the point in blue
    36                         plot(A(profsel).x(indsel),A(profsel).y(indsel),'bs','MarkerSize',10);
     37                        plot(A(profsel).x(indsel),A(profsel).y(indsel),...
     38                                'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     39                                'MarkerEdgeColor',getfieldvalueerr(options,'selectioncolor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    3740
    3841                        %select new location
    … …  
    6063                                undoplots(prevplot);
    6164                                for i=1:numprofiles
    62                                         plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     65                                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     66                                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    6367                                end
    6468                        else

  • issm/trunk/src/m/utils/Exp/manipulation/removepoints.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%REMOVEPOINTS - remove a point from a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=removepoints(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    1919        %plot squares
    2020        for i=1:numprofiles
    21                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     21                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     22                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    2223        end
    2324
    … …  
    6869                        undoplots(prevplot);
    6970                        for i=1:numprofiles
    70                                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     71                                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     72                                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    7173                        end
    7274

  • issm/trunk/src/m/utils/Exp/manipulation/removeprofile.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%REMOVEPROFILE - delete a profile
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=removeprofile(A,numprofiles,numpoints,closed,prevplot,root,options)
    99
    1010        title('click on the profiles to be removed, RETURN to exit','FontSize',14)
    … …  
    3232                                %profile was in selection, remove it
    3333                                selection(find(selection==profsel))=[];
    34                                 %back to red
    35                                 plot(A(profsel).x,A(profsel).y,'-r','MarkerSize',10);
     34                                %back to regular color
     35                                plot(A(profsel).x,A(profsel).y,...
     36                                        'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    3637                        else
    3738                                %add the profile to the list to be removed
    3839                                selection(end+1)=profsel;
    39                                 %in blue
    40                                 plot(A(profsel).x,A(profsel).y,'-b','MarkerSize',10);
     40                                %in selectioncolor
     41                                plot(A(profsel).x,A(profsel).y,...
     42                                        'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    4143                        end
    4244                else

  • issm/trunk/src/m/utils/Exp/manipulation/removeseveralpoints.m

    r33 r3018  
    1 function [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root);
     1function [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root,options);
    22%REMOVESEVERALPOINTS - remove several point
    33%
    … …  
    66%
    77%   Usage:
    8 %      [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root)
     8%      [A,numprofiles,numpoints,closed]=removeseveralpoints(A,numprofiles,numpoints,closed,prevplot,root,options)
    99               
    1010        %some checks
    … …  
    2222        %plot squares
    2323        for i=1:numprofiles
    24                 plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     24                plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     25                        'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    2526        end
    2627
    … …  
    5758                                        selection=profsel;
    5859                                        points(end+1)=indsel;
    59                                         plot(A(selection).x,A(selection).y,'-b','MarkerSize',10);
     60                                        plot(A(profsel).x,A(profsel).y,...
     61                                                'color',getfieldvalueerr(options,'selectioncolor'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'));
    6062                                        text(A(selection).x(indsel),A(selection).y(indsel),num2str(1),'FontSize',14,'background',[0.7 0.7 0.9]);
    6163                                end
    … …  
    113115                                                undoplots(prevplot);
    114116                                                for i=1:numprofiles
    115                                                         plot(A(i).x,A(i).y,'-rs','MarkerSize',10);
     117                                                        plot(A(i).x,A(i).y,'color',getfieldvalueerr(options,'color'),'LineStyle',getfieldvalueerr(options,'LineStyle'),'LineWidth',getfieldvalueerr(options,'LineWidth'),...
     118                                                                'MarkerEdgeColor',getfieldvalueerr(options,'MarkerEdgeColor'),'MarkerSize',getfieldvalueerr(options,'MarkerSize'),'Marker',getfieldvalueerr(options,'Marker'));
    116119                                                end
    117120                                                points=[];
Note: See TracChangeset for help on using the changeset viewer.