Esempio

> S:=(sx,sy)->matrix(3,3,[[sx,0,0],[0,sy,0],[0,0,1]]):

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

>