function [hplotp, hplotl]=plotpath(SIGMAP,hplotp,nnls_s,istep,hplotl)
% See select_path
% It plots stress path 

% Plot iloc-th stretch
% --------------------
PNT = SIGMAP{1} ;
hplotp(end+1) = plot(PNT(1),PNT(2),'ro');
for iloc = 1:nnls_s
    INCSIGMA = SIGMAP{iloc+1}-SIGMAP{iloc} ;
    for i = 1:istep(iloc)
        PNTb = PNT ;
        PNT = PNT+INCSIGMA* ;
        LINE = [PNTb ; PNT]  ;
        hplotp(end+1) = plot(PNT(1) ,PNT(2),'ro');
        hplotl(end+1) = plot(LINE(:,1) ,LINE(:,2),'r','LineWidth',1,'LineStyle','--');
    end
end