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

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