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

function Putrecmark(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
    Str=Str+'\recmark';
    if I<N
      Str=Str+'\hspace{3mm}';
    end;
  end;
  Putcell(TbL,Nrg,Mrg,Pos,Str);
endfunction;