Esempio

> Rot:=(x0,y0,t)->T(-x0,-y0)&*matrix(3,3,[cos(t),sin(t),0,-sin(t),cos(t),0,0,0,1])&*T(x0,y0):

> f1:=trasforma(figura,Rot(1,1,Pi/2));

> disegni({figura,f1});

>