haskell raytracing impulse response generator