quantityReplicate :: (ResidualSpace, EuclideanSpace3D, [Vec3], Quantity) -- ^ The used residual space, untranslated package, translation vectors and quantity
               -> [(ResidualSpace, EuclideanSpace3D, [Vec3])] -- ^ A list with the same residual space, same untranslated package but selections of the translation vectors
                                                           -- for every q in [1..q]
quantityReplicate (r, e, vs, q) = fmap (\qi -> (r, e, take qi vs)) [1..q]
quantityReplicate :: (ResidualSpace, EuclideanSpace3D, [Vec3], Quantity) -- ^ The used residual space, untranslated package, translation vectors and quantity
               -> [(ResidualSpace, EuclideanSpace3D, [Vec3])]
quantityReplicate (r, e, vs, q) = fmap (\qi -> (r, e, take qi vs)) [1..q]
quantityReplicate (r, e, vs, q) = fmap (\qi -> (r, e, take qi vs)) [1..q]