-
Notifications
You must be signed in to change notification settings - Fork 1
/
DemoAF_PrintFig.m
79 lines (68 loc) · 2.18 KB
/
DemoAF_PrintFig.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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
%
% Demonstrations for introducting auditory filters
% DemoAF_PrintFig
% Irino, T.
% Created: 20 Mar 2010
% Modified: 20 Mar 2010
% Modified: 11 May 2010 (function)
% Modified: 25 Jun 2010 (eps)
% Modified: 27 Jul 2010 (SwEps = 0)
% Modified: 18 Aug 2010 (Linewidth)
% Modified: 2 Sep 2010 (No print on Octave)
% Modified: 25 May 2015 (introduction of SwPrint)
% Modified: 12 Dec 2017 (eval('print -deps -tiff ') --> NG MATLAB2017a)
% Modified: 21 Jan 2018 (print(Name, '-deps', '-tiff'))
% Modified: 17 Aug 2018 (if SwPrint == 2, set(gcf,'PaperPosition',[2 2 27 20]))
% Modified: 17 Apr 2020 (Win octave でもprintできた。)
% Modified: 17 Jul 2023 (Win Octave8.2.0で、epsが出力できずフリーズ。その行をコメントアウト。
%
%
function DemoAF_PrintFig(NameFig,SwPrint)
if nargin < 2, SwPrint = []; end
if length(SwPrint)==0, SwPrint = 1; end
%if exist('OCTAVE_VERSION') > 0,
% warning('No print on Octave.');
% SwPrint = 0;
% return;
%end;
if SwPrint < 1
warning(['No print. SwPrint = ' int2str(SwPrint) '.']);
return;
end
%% for MATLAB
set(0,'DefaultTextFontSize',12);
set(0,'DefaultAxesFontSize',12);
if 0
set(0,'DefaultAxesLinewidth', 1.0);
set(0,'DefaultLineLinewidth', 1.0);
set(0,'DefaultPatchLinewidth', 1.0);
end
set(gcf,'PaperOrientation','portrait');
set(gcf,'PaperUnits','centimeters');
set(gcf,'PaperPosition',[3 8 14 12]);
if SwPrint == 2 % for Excitation Pattern
%set(gcf,'PaperPosition',[2 2 20 20]);
set(gcf,'PaperPosition',[2 2 27 20]); % 17 Aug 18
end
drawnow
try
print(NameFig,'-dpng','-r300');
% 17 Jul 2023
% print(NameFig,'-deps'); % Win, Octave8.2.0ではフリーズする
% 21 Jan 2018
% print(NameFig,'-dpng','-r300');
% print(NameFig,'-deps','-tiff'); % -tiffがあるとエラーMATLAB2017a
catch
warning('No print available')
end
%str = ['print -dpng -r300 ' NameFig];
%eval(str);
%str = ['print -deps -tiff ' NameFig]; %両方とも出す。
%eval(str);
%SwEps = 1;
%SwEps = SwPrint;
%if SwEps >= 1,
%end;
%%%
%set(hx,'Interpreter','latex');
%set(hy,'Interpreter','latex');