如何向Haskell的着色器发送统一矩阵？

Question

试图从本质上做矩阵乘法，在阴影中的顶点上进行变换，但是它没有。

目前，我有这样的想法：

curMatrix <- get ((matrix $ Just $ Modelview 0)::StateVar(GLmatrix GLfloat))
       mc <- getMatrixComponents ColumnMajor curMatrix
setUniform p "uModelViewMatrix" mc 

setUniform是GLUtil包中的一个函数。是否需要将数组转换为Vec4 (Vec4)，还是有其他方法？

谢谢!

编辑：

我最终还是这么做了：

getMat :: [GLfloat] -> [V4 GLfloat]
getMat (a11:a12:a13:a14: 
        a21:a22:a23:a24:
        a31:a32:a33:a34:
        a41:a42:a43:a44:_) = [(V4 a11 a12 a13 a14),
                              (V4 a21 a22 a23 a24),
                              (V4 a31 a32 a33 a34),
                              (V4 a41 a42 a43 a44)]

呃，那似乎不起作用！

编辑2:我所说的不起作用的意思是，我把它设置为一个统一的变量，但是现在我的对象消失了！

Answer 1

开始工作了！它不起作用的主要原因是我没有使用投影矩阵。

请不要用棍子打我的坏/令人困惑的变量名称。

    mvMatrix <- get ((matrix $ Just $ Modelview 0)::StateVar(GLmatrix GLfloat))
    pMatrix <- get ((matrix $ Just Projection)::StateVar(GLmatrix GLfloat))
    mv <- getMatrixComponents ColumnMajor mvMatrix
    pm <-   getMatrixComponents ColumnMajor pMatrix
    let mvm = getMat mv
    let pM = getMat pm 
    let mvmp = mvm !*! pM
    setUniform p "uModelViewMatrix" mvmp

我的getMat函数如下：

getMat :: [GLfloat] -> V4 (V4 GLfloat)
getMat (a11:a12:a13:a14: 
            a21:a22:a23:a24:
            a31:a32:a33:a34:
            a41:a42:a43:a44:_) = V4 (V4 a11 a12 a13 a14)
             (V4 a21 a22 a23 a24)
             (V4 a31 a32 a33 a34)
             (V4 a41 a42 a43 a44)

我用的是线性包装。!*!插值函数是矩阵乘法。

这就像我想要的那样，太好了！希望它能帮到其他人！

Answer 2

Haskell的OpenGL绑定(当前为2.11.1.0)不公开统一矩阵值的函数。在bug跟踪器上已经多次报告了这一点：

• https://github.com/haskell-opengl/OpenGL/issues/68
• https://github.com/haskell-opengl/OpenGL/issues/33
• https://github.com/haskell-opengl/OpenGL/issues/14

尽管如此，如果您有一个满足Storable类型实例的数据类型，例如来自埃克米特/线性的M44 Float类型，则只需使用指向正确的OpenGLRaw绑定调用的原始指针即可。见这里的一个例子。