はFreeglutはここでWindowsの

Question

にハスケルで動作するように取得できません、私は仕事に取得しようとしている私のソースコードです：Main.hsで

：Bindings.hsで

import Graphics.Rendering.OpenGL 
import Graphics.UI.GLUT 
import Bindings 
import Data.IORef 
main = do 
    (progname,_) <- getArgsAndInitialize 
    createWindow "Hello World" 
    reshapeCallback $= Just reshape 
    keyboardMouseCallback $= Just keyboardMouse 
    angle <- newIORef 0.0 
    displayCallback $= display 
    idleCallback $= Just idle 
    mouseWheelCallback $= Just mouseWheel 
    mainLoop 

：

module Bindings where 
import Graphics.Rendering.OpenGL 
import Graphics.UI.GLUT 

display :: IO() 
display = return() 

overlayDisplay :: IO() 
overlayDisplay = return() 

visibility :: Visibility -> IO() 
visibility v = return() 

reshape :: Size -> IO() 
reshape s@(Size w h) = do 
    viewport $= (Position 0 0, s) 

close :: IO() 
close = return() 

keyboardMouse :: Key -> KeyState -> Modifiers -> Position -> IO() 
keyboardMouse key state modifiers position = return() 

mouseWheel :: WheelNumber -> WheelDirection -> Position -> IO() 
mouseWheel wn wd p = return() 

idle :: IO() 
idle = return() 

私は私のコードでfreeglut拡張子の正常なglut32.dllとどれを使用する場合、それは動作しますが、私はfreeglut拡張機能を使用します。

main: user error (unknown GLUT entry glutInit) 

は、私は通常のglut32を使用します。

私がfreeglut.dll使用する場合は、glut32.dllに名前を変更し、私の.exeファイルと同じフォルダに入れて、それは私にエラーを与えます。

main: user error (unknown GLUT entry glutMouseWheelFunc) 

Answer 1

あなたはMingwをからfreeglutの.lib/.dllファイルを使用するか、それを自分でコンパイルする必要があります：私はエラーを取得するのと同じ方法でDLL。 http://www.transmissionzero.co.uk/software/freeglut-devel/

から

Answer 2

1. ダウンロードGLUTファイルをコピーfreeglut-MinGW-3.0.0-1.mp.zip\freeglut\bin\x64\freeglut.dllglut32.dll

として名前を変更し

C:\Windows\System32に私はこの問題を解決し、これは他の人を助けることができる願っています。