Method code for $math.transform_vect()

[Turn off line numbering]

---

  1: arg m, v;
  2: var x, outvect, flag;
  3: 
  4: if (m.length() == v.length() + 1) {
  5:     v += [1.0];
  6:     flag = 1;
  7: }
  8: outvect = map x in (m) to (.dot(x, v));
  9: return flag ? outvect.subrange(1, outvect.length() - 1) : outvect;

---

// Miroslav Silovic
// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit