summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texctr.sci
blob: 2a8b08ca5c95b0db918bb4b2411459cd28768048 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//
// 2010.05.15

function Out=Texctr(N)
  if type(N)==1
    Alpha='abcdefghijklmnopqrstuvwxyz';
    Out='ketpicctr'+part(Alpha,N);
  else
    if part(N,1)=='\'
      Out=part(N,2:length(N));
    else
      Out=N;
    end;
  end;
endfunction