Haskell SDL绑定:为什么SDL不在这里画一个圆圈？

Question

我想使用Haskell的SDL绑定来绘制简单的对象(三角形,圆形等).在Graphics.UI.SDL.Video中有一个绘制矩形的功能,可以正常工作.但我无法获得我用于绘制其他基元(在Graphics.UI.SDL.Primitives中)的函数.以下代码仅绘制一个矩形.我错过了什么想法？

module Main where

import Graphics.UI.SDL as SDL
import Graphics.UI.SDL.Color
import Graphics.UI.SDL.Primitives

main = do
    SDL.init [SDL.InitVideo]
    screen <- SDL.setVideoMode 500 500 32 [SDL.HWSurface]

    SDL.fillRect screen Nothing (SDL.Pixel 0x0000FF) 

    fillRect screen (Just (SDL.Rect 10 10 30 30)) (SDL.Pixel 0x00FF0000)
    filledCircle screen 40 40 50 (SDL.Pixel 0x00FF0000)

    SDL.flip screen

    delay 2000

    SDL.quit

Answer 1

你给fillCircle和fillRect的像素颜色的alpha分量设置为零; 试着SDL.Pixel 0x00FF00FF改为.filledCircle似乎尊重颜色的alpha组件,而fillRect显然不尊重.