    computeS .
    extend (Z :. (1 :: Int) :. All :. All) .
    makeFilter2DInverse .
    fromUnboxed (Z :. numR2Freqs :. numR2Freqs) . VS.convert $
    pinwheel
  let pinwheel1 =
        computeS $
        createFrequencyArray
          numR2Freqs