    function epsbild(nameps, nameeps);
%   Function EPSBILD.M zur Herstellung von Bildern
%   
%  nameps  - Name des .PS-Files  (max 8 Zeichen)
%  nameeps - Name des .EPS-Files (max 6 Zeichen)
%
% J. Lunze  
% 25.10.1998
%  version of 10.11.2015  for MATLAB 2015b  (Fig(k0).Number)
% für 11. Auflage: 18.4.2016
%
echo off
%
%     Figures as .EPS- or .PS-files
%
disp('');
Answer = input(' Bilder als Postscript-Dateien ? (j/n) >', 's');
if isempty(Answer)
   Answer = 'n';
end
if Answer == 'j' 
   fignorm;
   Fig=get(0, 'Children');
   for k0=1:size(Fig)
       figure(Fig(k0))
%       eval(['print -dps2 -append ', nameps])
   end;
   fignottl
   for k0=1:size(Fig)
       figure(Fig(k0));
       eval(['print -deps ', nameeps, num2str(Fig(k0).Number) '.eps']);
   end;
end;
