summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Objjoin.sci
blob: e8a80ff3798ef68f37d19f6373c67aa1f8271a9e (plain)
1
2
3
4
5
6
7
8
9
// s: 2014.09.07

function Out=Objjoin(varargin)
  global OBJJOIN
  if length(varargin)>0
    OBJJOIN=abs(sign(varargin(1)))
  end;
  Out=OBJJOIN
endfunction