kill(all);

V:matrix([r*cos(%theta), r*sin(%theta), 1])$ V;

T:matrix([1,0,t[x]],[0,1,t[y]],[0,0,1]);

S:matrix([s[x],0,0],[0,s[y],0],[0,0,1]);

S.T.V;