-- TODO: | Sphere !Double

scaleShape :: Vec3 Double -> Shape -> Shape
scaleShape s (TriMesh m) = TriMesh (mapVertices (s*) m)
scaleShape :: Vec3 Double -> Shape -> Shape
scaleShape s (TriMesh m) = TriMesh (mapVertices (s*) m)
scaleShape s (TriMesh m) = TriMesh (mapVertices (s*) m)