-
Notifications
You must be signed in to change notification settings - Fork 8
/
savefigs.m
30 lines (28 loc) · 1.4 KB
/
savefigs.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function ret = savefigs()
% This function allows you to quickly save all currently open figures with
% a custom filename for each in multiple formats. To use the function
% simply call savefigs with no arguments, then follow the prompts
%
% Upon execution this function will one-by-one bring each currently open
% figure to the foreground. Then it will supply a text prompt in the main
% console window asking you for a filename. It will save that figure to
% that filename in the .fig, .emf, .png, and .eps formats.
%
% The formats that it saves in can be changed by commenting out or adding
% lines below.
%
% Copyright 2010 Matthew Guidry
% matt.guidry ATT gmail DOTT com (Email reformatted for anti-spam)
hfigs = get(0, 'children') %Get list of figures
for m = 1:length(hfigs)
figure(hfigs(m)) %Bring Figure to foreground
filename = input('Filename? (0 to skip)\n', 's')%Prompt user
if strcmp(filename, '0') %Skip figure when user types 0
continue
else
saveas(hfigs(m), [filename '.fig']) %Matlab .FIG file
% saveas(hfigs(m), [filename '.emf']) %Windows Enhanced Meta-File (best for powerpoints)
saveas(hfigs(m), [filename '.png']) %Standard PNG graphics file (best for web)
% eval(['print -depsc2 ' filename]) %Enhanced Postscript (Level 2 color) (Best for LaTeX documents)
end
end