summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Closepicture.sci
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;