quadTreeMoments :: [QuadTree] -> Moments
quadTreeMoments ts = calculateMoments $ concatMap quadTreePixels ts
quadTreeMoments :: [QuadTree] -> Moments
quadTreeMoments ts = calculateMoments $ concatMap quadTreePixels ts
quadTreeMoments ts = calculateMoments $ concatMap quadTreePixels ts