function test_plot_71()


stresstest_plot_desc = {'AAA_1','BBB_2','CCC_3','DDD'};

p_l_relativ_stress = rand(5,1) .* 10000;


xx = 1:1:length(p_l_relativ_stress)-1;
hs = figure(1);
clf;
barh(p_l_relativ_stress(1:4), 'facecolor', [1 1 0]);
h=get (gcf, 'currentaxes');
set(h,'ytick',xx);
stresstest_plot_desc = strrep(stresstest_plot_desc,"_","");
set(h,'yticklabel',stresstest_plot_desc(1:4));
xlabelstr = ['X Label'];
xlabel(xlabelstr,'fontsize',14);
title('Stresstest Results','fontsize',14);

grid on;
% save plotting
filename_plot_stress = strcat('./TEST_plot.png');
print (hs,filename_plot_stress, "-dpng", "-S600,300");


val = get(gcf,"papersize")
val = get(gcf,"PaperPosition")
val = get(gcf,"paperunits")
%~ set(gcf, "paperunits", "points", "papersize", [600, 300], 'PaperPosition', [0 0 600 300]);
%~ val = get(gcf,"papersize")
%~ val = get(gcf,"PaperPosition")
%~ val = get(gcf,"paperunits")

% here it fails
filename_plot_stress = strcat('./TEST_plot.pdf');
print (hs,filename_plot_stress, "-dpdf", "-S600,300");






end
