Composite Transformations

> SA := evalm( S &* A ); # shear, then compress

> AS := evalm( A &* S ); # compress, then shear

> Nst := evalm( SA &* N );

> Nts := evalm( AS &* N );

> pointplot( Nst, opts, color=BLUE );

> pointplot( Nts, opts, color=RED );

> display( [ %, %% ] );

>