quadTreePixels t = [(x,y) | x <- [tx..tx+ts-1], y <- [ty..ty+ts-1]]
  where
    tx = quadTreeX t
    ty = quadTreeY t
    ts = quadTreeSize t
quadTreePixels t = [(x,y) | x <- [tx..tx+ts-1], y <- [ty..ty+ts-1]]
  where
    tx = quadTreeX t
    ty = quadTreeY t
    ts = quadTreeSize t
quadTreePixels t = [(x,y) | x <- [tx..tx+ts-1], y <- [ty..ty+ts-1]]
  where
    tx = quadTreeX t
    ty = quadTreeY t
    ts = quadTreeSize t