% Wif2AdhMapPlot2Tor
% Version #0.2 - date 28/06/05 (c) ? Godlewski
% This program may NOT be used outside ENTS
% Ce programme ne peut pas etre utilis? hors de l'ENST

% Pour tracer les r巗ultats de Wif0AdhMainTor

if InitFlag==1,
    InitFlag=2;
    
    
    TxMsFlag= zeros(1,NoMsTor); % for plot ? TOBECHECKED 04
    
    %- Numbering nodes for map plot
    BB = '%2d';
    %BB = '%3d';
    AA1 = num2str([1:NoMsTor]',BB); 
    %AA1 = num3str([1:NoMsTor]',BB); 
    for iMs=1:NoMs, AA(iMs,:) = [' ',AA1(iMs,:)]; end
    %- EndOf Numbering nodes
end


%Plot Graph  

figure(FigIndx)
hold on
[ItfXX, ItfYY]= gplot(ItfMatrTor,MsPosTor);
[XX, YY]=       gplot(CnxMatrTor,MsPosTor);
axis([-Marg MapSideX+2*Marg  -Marg MapSideY+2*Marg ])

h8 = plot(ItfXX, ItfYY,'c-');%edge Itf
h7 = plot(XX, YY,'b-');%edge Cnct
h6 = plot(MsPosTor(:,1),MsPosTor(:,2),'bo');%Node, Ms small circle
MsPos1Tor = MsPosTor;
%h5 = plot(MsPos1(:,1),MsPos1(:,2),'m.');%Node, Ms small disk
h1 = text(MsPos(:,1),MsPos(:,2),AA);%number

hold off

set(h8,'EraseMode','background','LineWidth',0.1);%edge Itf
set(h7,'EraseMode','background','LineWidth',0.5); %edge Cnx
set(h6,'EraseMode','background','MarkerSize',8);%Node, Ms small circle size
%set(h5,'EraseMode','background','MarkerSize',5);%Node, Ms small disk size

set(h6,'EraseMode','background','MarkerFaceColor',[1 1 1])%New04, this is the rigth way to fill the circle
%New04 [.49 1 .63] seems to be a color ... green
%New04 [1 0 0] is red
%New04 [0 1 0] is green
%New04 [0 0 1] is blue
%New04 [1 0 1] is violet
%New04 [0.1 0 0.1] is black - almost
%New04 [1 1 1] is white
%New04 [1 0.5 0.5] is red pink

% set(h1,'EraseMode','background')%number
set(h1,'EraseMode','background','FontSize',8)%number

% Following lines must be changed if mobility
[XX, YY] = gplot(CnxMatrTor,MsPosTor,'r');
[ItfXX, ItfYY] = gplot(ItfMatrTor,MsPosTor);

%EndOf First Plot Graph