frameGenerator RepaV3 limit = do
    gen <- MR3.mandelbrotImageGenerator
    return $ f gen
  where
    f gen _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- gen lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap
frameGenerator RepaV3 limit = do
    gen <- MR3.mandelbrotImageGenerator
    return $ f gen
  where
    f gen _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- gen lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap
frameGenerator RepaV3 limit = do
    gen <- MR3.mandelbrotImageGenerator
    return $ f gen
  where
    f gen _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- gen lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap