main :: IO ()
main = do
    gen <- getStdGen
    mutableCanvas <- generateCanvas width height gen
    frozenCanvas <- UV.freeze mutableCanvas
    let drawInstructions = vecToInstructions frozenCanvas
        white = PixelRGBA8 255 255 255 255
        img = renderDrawing width height white $ sequence_ drawInstructions
    writePng "image.png" img
main :: IO ()
main = do
    gen <- getStdGen
    mutableCanvas <- generateCanvas width height gen
    frozenCanvas <- UV.freeze mutableCanvas
    let drawInstructions = vecToInstructions frozenCanvas
        white = PixelRGBA8 255 255 255 255
        img = renderDrawing width height white $ sequence_ drawInstructions
    writePng "image.png" img
main = do
    gen <- getStdGen
    mutableCanvas <- generateCanvas width height gen
    frozenCanvas <- UV.freeze mutableCanvas
    let drawInstructions = vecToInstructions frozenCanvas
        white = PixelRGBA8 255 255 255 255
        img = renderDrawing width height white $ sequence_ drawInstructions
    writePng "image.png" img