% ShowNSTar
close all
figure
set(gcf,'Position',[100,100,800,800],'Color','k')
axis equal off
hold on
DrawNstar(1,3,16,'r','b','m')
shg
hold off