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

function Objname()
  global OBJFIGNO  OBJJOIN
  if OBJJOIN==0 then
    OBJFIGNO=OBJFIGNO+1;
    Gname="ketfig"+string(OBJFIGNO);
    Printobjstr("# "+Gname);
    Printobjstr("g "+Gname);
  end;
endfunction