Esempio

> R:=(a,b,c)->matrix(3,3,[[b^2-a^2,-2*a*b,0],[-2*a*b,a^2-b^2,0],[-2*a*c,-2*b*c,a^2+b^2]])/(a^2+b^2):

> disegni({figura,trasforma(figura,R(1,1,-2))});

>