applyTransform :: Transform -> Object -> Object
applyTransform t2 (Primitive k t1 s) = Primitive k (combineTransforms t2 t1) s
applyTransform :: Transform -> Object -> Object
applyTransform t2 (Primitive k t1 s) = Primitive k (combineTransforms t2 t1) s
applyTransform t2 (Primitive k t1 s) = Primitive k (combineTransforms t2 t1) s