summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Putcirmark.sci
blob: 63bc151fae01aa52eb2d96589bad7a3050bdc421 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// 09.11.26

function Putcirmark(TbL,Nrg,Mrg,Dt)
  if type(Dt)==10
    N=1; Pos=Dt; Str='';
  else
    N=length(Dt); Pos='l'; Str='\hspace*{2mm}';
  end;  
  for I=1:N
    Tmp1=Dt(I);
    Str=Str+'\cirmark';
    if I<N
      Str=Str+'\hspace{3mm}';
    end;
  end;
  Putcell(TbL,Nrg,Mrg,Pos,Str);
endfunction;