summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Texnewctr.sci
blob: 03cabf81f6006d49c01888d9abf9472c7bc8fb78 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
// 10.01.21

function Texnewctr(N)
  if type(N)==10
    Str='\newcounter{'+N+'}';
    Texcom(Str);
  else
    for I=N
      Str='\newcounter{'+Texctr(I)+'}';
      Texcom(Str);
    end;
  end;
endfunction;