Method code for $math.transform_vect()

[Turn on line numbering]

---

arg m, v;
var x, outvect, flag;

if (m.length() == v.length() + 1) {
    v += [1.0];
    flag = 1;
}
outvect = map x in (m) to (.dot(x, v));
return flag ? outvect.subrange(1, outvect.length() - 1) : outvect;

---

["// Various Contributors, including: Miroslav Silovic, Bruce Mitchner, Nolan, Sean R. Lynch, Technobunny", "// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit"]