combineTransforms :: Transform -> Transform -> Transform
combineTransforms (m2, m2') (m1, m1') = (m2 `mmult` m1, m1' `mmult` m2')
combineTransforms :: Transform -> Transform -> Transform
combineTransforms (m2, m2') (m1, m1') = (m2 `mmult` m1, m1' `mmult` m2')
combineTransforms (m2, m2') (m1, m1') = (m2 `mmult` m1, m1' `mmult` m2')