frameGenerator NikolaV1 limit = return f
  where
    f :: G.FrameGen
    f _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- MN1.mandelbrotImage lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap
frameGenerator NikolaV1 limit = return f
  where
    f :: G.FrameGen
    f _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- MN1.mandelbrotImage lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap
frameGenerator NikolaV1 limit = return f
  where
    f :: G.FrameGen
    f _ (G.View lowx lowy highx highy) (sizeX, sizeY) = do
        bmap <- MN1.mandelbrotImage lowx lowy highx highy sizeX sizeY limit
        return $ bitmapToPicture bmap