Haskell，单击鼠标更改绘图颜色

Question

我想制作一个 haskell 程序，在窗口中绘制一些形状。当我在窗口内单击时，形状的颜色应该改变。

我想出了这个：

testDemo points =
runGraphics $
    do 
        w <- openWindow "Test" (480, 550)
        colorRef <- newIORef Green
        let 
            loop0 = do
                        color <- readIORef colorRef
                        e <- getWindowEvent w
                        case e of
                            Button {pt=pt, isDown=isDown}
                                | isDown && color == Green -> writeIORef colorRef Red
                                | isDown && color == Red -> writeIORef colorRef Green
                            _ -> return ()
                        color <- readIORef colorRef
                        drawInWindow w (withColor color (polyline points))
                        loop0

        color <- readIORef colorRef
        drawInWindow w (withColor color (polyline points))
        loop0

它有点管用。 问题是，我认为窗口事件几乎总是被触发，因此所有内容都一直被绘制，这使得速度变慢。 我怎样才能做到只有在注册点击时才更改绘图？

Answer 1

首先，getWindowEvent 将阻塞直到下一个事件发生，因此所有内容都只在事件上绘制。如果您认为窗口事件触发得太频繁，那么您可以将事件打印到标准输出以找出触发了哪个事件并忽略它（例如，跳过除 Button 事件之外的所有事件的绘制）。

顺便说一句：你不需要 IORef，你可以通过循环传递当前颜色。

testDemo points =
runGraphics $
    do 
        w <- openWindow "Test" (480, 550)
        let 
            loop0 color = do
                        e <- getWindowEvent w
                        let newColor = case e of
                                         Button {pt=pt, isDown=isDown}
                                           | isDown && color == Green -> Red
                                           | isDown && color == Red -> Green
                                         _ -> color
                        when (newColor != color) (drawInWindow w (withColor color (polyline points)))
                        loop0 color

        let color = Red
        drawInWindow w (withColor color (polyline points))
        loop0 color

（代码没有经过编译器测试，所以......）

Answer 2

感谢您的回答。
我根据我对代码应该做什么的理解稍微修改了代码。

testDemo points =
runGraphics $
    do 
        w <- openWindow "Test" (480, 550)
        let 
            loop0 color = do
                        e <- getWindowEvent w
                        let newColor = case e of
                                         Button {pt=pt, isDown=isDown}
                                           | isDown && color == Green -> Red
                                           | isDown && color == Red -> Green
                                         _ -> color
                        when (newColor /= color) (drawInWindow w (withColor newColor (polyline points)))
                        loop0 newColor
        let color = Green
        drawInWindow w (withColor color (polyline points))
        loop0 color

但结果有点粗略。有时颜色会立即改变，有时则需要很长时间。我相信这可能是一些更新问题，因为当我关闭窗口时，我看到在窗口消失之前发生了颜色更改。
有什么想法吗？

Answer 3

如果我在绘制新东西之前调用clearWindow，这会有所帮助。我真的不明白为什么。它可能会安排重绘窗口吗？
很高兴知道，但总的来说，问题现在已经解决了。