blob: a3f345cbe6b80215da5704acc57044854a482b88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
//
// 08.12.17
// 09.02.20
// 10.04.12
function Closepicture(varargin)
global Wfile FID MEMORI MEMORINow ULEN MilliIn;
Nargs=length(varargin);
if Nargs==0
Drwxy();
elseif varargin(1)==1
Drwxy();
end
if Wfile=='default'
mprintf('%s','\end{picture}}%');
else
mfprintf(FID,'%s','\end{picture}}%');
end
// MEMORI=MEMORINow*1000/2.54/MilliIn;
Setunitlen('1cm');
endfunction;
|