[x21,x22,x23,x24,x31,x32,x33,x34,x41,x42,x43,x44]
; combine transformations including mirror
; x21 - angle
; x22 - sx
; x23 - sy
; x24 - if 0 ->no mirror, if 1 ->mirror Y
;
if(x24.eq.0)  then
sa p,x21,x22,x23,x31,x32,x33,x41,x42,x43
x44=x34
else
x35=-x31
x36=-x32
sa p,x21,x22,x23,x35,x36,x33,x41,x42,x43
if(x34.eq.0) then
x44=1
else
x44=0
endif
endif
re