透明/Alpha与haskell GLUT绑定
使用,我以两种方式修改了: 在initialDisplayMode中添加了AlphaComponent。 将颜色更改为不透明度为0.5的Color4。 我希望它显示一个半透明的白色正方形,背景是红色。相反,它显示一个纯白的正方形,就好像不透明度被忽略一样。我不明白为什么这不起作用透明/Alpha与haskell GLUT绑定,haskell,opengl,glut,Haskell,Opengl,Glut,使用,我以两种方式修改了: 在initialDisplayMode中添加了AlphaComponent。 将颜色更改为不透明度为0.5的Color4。 我希望它显示一个半透明的白色正方形,背景是红色。相反,它显示一个纯白的正方形,就好像不透明度被忽略一样。我不明白为什么这不起作用 import Graphics.UI.GLUT display :: DisplayCallback display = do -- clear all pixels clear [ ColorBuffe
import Graphics.UI.GLUT
display :: DisplayCallback
display = do
-- clear all pixels
clear [ ColorBuffer ]
-- draw white polygon (rectangle) with corners at
-- (0.25, 0.25, 0.0) and (0.75, 0.75, 0.0)
-- CHANGE #2
color (Color4 1.0 1.0 (1.0 :: GLfloat) 0.5)
-- resolve overloading, not needed in "real" programs
let vertex3f = vertex :: Vertex3 GLfloat -> IO ()
renderPrimitive Polygon $ mapM_ vertex3f [
Vertex3 0.25 0.25 0.0,
Vertex3 0.75 0.25 0.0,
Vertex3 0.75 0.75 0.0,
Vertex3 0.25 0.75 0.0]
-- don't wait!
-- start processing buffered OpenGL routines
flush
myInit :: IO ()
myInit = do
-- select clearing color
clearColor $= Color4 0.7 0 0 0
-- initialize viewing values
matrixMode $= Projection
loadIdentity
ortho 0 1 0 1 (-1) 1
-- Declare initial window size, position, and display mode (single buffer and
-- RGBA). Open window with "hello" in its title bar. Call initialization
-- routines. Register callback function to display graphics. Enter main loop and
-- process events.
main :: IO ()
main = do
_ <- getArgsAndInitialize
-- CHANGE #1
initialDisplayMode $= [ SingleBuffered, RGBMode, WithAlphaComponent ]
initialWindowSize $= Size 250 250
initialWindowPosition $= Position 100 100
_ <- createWindow "hello"
myInit
displayCallback $= display
mainLoop
从这个例子中可以看出
您可能需要启用alpha混合。在C中,这是用glEnableGL_混合物完成的。不确定,你在哈斯克尔是怎么做到的。
-- Initialize alpha blending function.
myInit :: IO ()
myInit = do
blend $= Enabled
blendFunc $= (SrcAlpha, OneMinusSrcAlpha)
shadeModel $= Flat
clearColor $= Color4 0 0 0 0