PlotBoundsEdgeNumber.m

Go to the documentation of this file.

function PlotBoundsEdgeNumber(varargin)
% function PlotBoundsEdgeNumber(varargin)
%   Write mesh boundaries edges numbers
%
% parameters:
%   Th  : mesh structure
%   RGBTextColors : set boundaries edges numbers colors
%   RGBEdgeColors : set boundaries box edges colors
%   BackgroundColor : set boundaries edges numbers background box colors
%   FontSize : set boundaries edges numbers font size
%   FontWeight : set boundaries edges numbers font weight to 'normal', 'bold','light' or 'demi'
%   EdgeColor : set boundaries edges numbers box edge color
%   LineStyle : set line style to 'none', '-','--','.' or '-.'
%   LineWidth : set line width 
%
% Example:
%  - %  @verbatim 
%   PlotMesh(Th,'Color',[0 0 0]);
%   RGBcolors=PlotBounds(Th,'LineWidth',2);
%   PlotBoundsEdgeNumber(Th,'RGBEdgeColors',RGBcolors,'Color',[0 0 0],'LineStyle','-','LineWidth',0.5);@endverbatim
%  \image html images/PlotBoundsEdgeNumber1.png "figure : PlotBoundsEdgeNumber(Th,...);" 
%  - %  @verbatim 
%   PlotMesh(Th,'Color',[0 0 0]);
%   RGBcolors=PlotBounds(Th,'LineWidth',2);
%   PlotBoundsEdgeNumber(Th,'RGBEdgeColors',RGBcolors,'Color',[0 0 0],'LineStyle','-','LineWidth',0.5);@endverbatim
%  \image html images/PlotBoundsEdgeNumber2.png "figure : PlotBoundsEdgeNumber(Th,...);"
p = inputParser; 
p.addRequired('Th', @isstruct);
%  
p.addParamValue('RGBTextColors', [], @isnumeric );
p.addParamValue('RGBEdgeColors', [], @isnumeric );
p.addParamValue('BackgroundColor', [1 1 1] , @isnumeric );
p.addParamValue('FontSize', 10, @isnumeric );
p.addParamValue('FontWeight', 'normal', @isstr );
p.addParamValue('Color', [0 0 0] , @isnumeric );
p.addParamValue('EdgeColor', [0 0 0] , @isnumeric );
p.addParamValue('LineWidth', 0.5 , @isnumeric );
p.addParamValue('LineStyle', 'none' , @isstr );

p.parse(varargin{:});

Th=p.Results.Th;

LB=unique(Th.bel);
amax=length(LB);

t=0:1/(amax-1):1;
if (isempty(p.Results.RGBTextColors))
  RGBTextColors=ones(amax,1)*p.Results.Color;
else
  RGBTextColors=p.Results.RGBTextColors;
end
if (isempty(p.Results.RGBEdgeColors))
  RGBEdgeColors=ones(amax,1)*p.Results.EdgeColor;
else
  RGBEdgeColors=p.Results.RGBEdgeColors;
end


PrevHold=SetHoldOn(true);
for i=1:amax
  I=find(Th.bel == LB(i));
  qa=(Th.q(:,Th.be(1,I))+Th.q(:,Th.be(2,I)))/2;
  text(qa(1,:),qa(2,:),num2str(I'),'BackgroundColor',p.Results.BackgroundColor, ...
                                'Color',RGBTextColors(i,:), ...
                                'FontSize',p.Results.FontSize, ...
                                'LineWidth',p.Results.LineWidth, ...
                                'LineStyle',p.Results.LineStyle, ...
                                'EdgeColor',RGBEdgeColors(i,:), ...
                                'FontWeight',p.Results.FontWeight, ...
                                'HorizontalAlignment','center');
%  for k=I
%    qa=(Th.q(:,Th.be(1,k))+Th.q(:,Th.be(2,k)))/2;
%    text(qa(1),qa(2),num2str(k),'BackgroundColor',p.Results.BackgroundColor, ...
%                                'Color',RGBTextColors(i,:), ...
%                                'FontSize',p.Results.FontSize, ...
%                                'LineWidth',p.Results.LineWidth, ...
%                                'LineStyle',p.Results.LineStyle, ...
%                                'EdgeColor',RGBEdgeColors(i,:), ...
%                                'HorizontalAlignment','center');
%  end
end
RestoreHold(PrevHold)