genFooImage x y = PicTypes.PixelRGB8 (fromIntegral x) (fromIntegral y) 128
genFooImage x y = PicTypes.PixelRGB8 (fromIntegral x) (fromIntegral y) 128
genFooImage x y = PicTypes.PixelRGB8 (fromIntegral x) (fromIntegral y) 128