blob: a07a89d1e73336b1a9d091035ae8e93c169ed72b (
plain)
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 Kyorihensuu(varargin)
if length(varargin)==0
FL='default';
else
FL=varargin(1);
if FL==''
FL='tmp.tex'
end
end
StrM=[...
'\newlength{\Width}%',...
'\newlength{\Height}%',...
'\newlength{\Depth}%'...
];
if FL~='default'
Fid=mopen(FL,'w');
mprintf('%s\n\n','Writing to '+FL);
end;
for I=1:size(StrM,2)
Str=StrM(I);
mprintf('%s\n',Str);
if FL~='default'
mfprintf(Fid,'%s\n',Str);
end
end
if FL~='default'
mclose(Fid)
end
endfunction
|