【发布时间】:2021-08-09 22:20:29
【问题描述】:
我正在使用 GLUT 在 Haskell 中编写显示回调
这里是开始:
display :: IORef Float -> IORef [(GLfloat , GLfloat ,GLfloat )] -> IORef Akkord-> DisplayCallback
display remain colors gespielt= do
clear [ ColorBuffer ]
renderPrimitive Quads $ do
--lots of things are rendered
最后我试图显示一种分数(gespielt):
g <- get gespielt
color3f 0 0 0
preservingMatrix $ do
renderString Fixed9By15 "Hallo"
flush
“你好”将被替换为 (Show g)
但结果是一样的,没有任何文字显示在任何地方
没有编译错误,我已尝试更改颜色和缩放文本
这是我从 haskell.org OpenGLTutorial 偷来的:
color3f :: GLfloat -> GLfloat -> GLfloat -> IO ()
color3f r g b = color $ Color3 r g (b :: GLfloat)
我在这里做错了什么?
【问题讨论】: