transformsToStrings :: Transform -> String
transformsToStrings (Translate x y)   = "translate(" ++ show x ++ " " ++ show y ++ ") "
transformsToStrings (Scale x y)       = "scale(" ++ show x ++ " " ++ show y ++ ") "
transformsToStrings Identity          = "scale(1 1) "
transformsToStrings (Rotate x )       = "rotate(" ++ show x ++ ") "
transformsToStrings (Compose t1 t2)   = transformsToStrings t1 ++ " " ++ transformsToStrings t2

transformBuilder :: Transform -> S.Attribute
transformBuilder x = A.transform $ I.stringValue $ transformsToStrings x