summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Writeobjpoint.sci
blob: ae51bf8b1a7d274b9e0d7bf51e513aa24f1d2c64 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
// s : 2014.06.22

function Out=Writeobjpoint(P)
  global OBJFMT OBJSCALE NPOINT;
  X=sprintf(OBJFMT,P(1)*OBJSCALE);
  Y=sprintf(OBJFMT,P(2)*OBJSCALE);
  Z=sprintf(OBJFMT,P(3)*OBJSCALE);
  Str="v "+X+" "+Y+" "+Z;
  Printobjstr(Str)
  NPOINT=NPOINT+1
  Out=NPOINT;
endfunction