summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Openpar.sci
blob: a3056f66111db95b5b0fb36a7a814fc227166283 (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
// 08.05.31

function Openpar(varargin)
  global Wfile FID;
  Nargs=length(varargin);
  Tmp=varargin(1);
  Tmp1=Strop(1,Tmp);
  if Tmp1=='\' | Tmp1=='¥' 
    Namestr=Tmp;
    N=2;
  else
    Namestr='\tmp';
    N=1;
  end
  Habastr=varargin(N);
  if Nargs>N
    Posstr='['+varargin(N+1)+']';
  else
    Posstr='[c]'
  end
  Openphr(Namestr);
  S='\begin{minipage}'+Posstr+'{'+Habastr+'}%';
  if Wfile=='default'
    mprintf('%s\n',S);
  else
    mfprintf(FID,'%s\n',S);
  end
endfunction