Re: [wxhaskell-users] Where is the sample programm of wxHaskell OpenGL canvas using the HOpenGL binding?

[shelarcy <she...@ca...>]

On Wed, 07 Apr 2004 20:58:18 +0900, shelarcy 
<she...@ca...> wrote:
> I wrote redbook example, and I checked it out.
> Thank you for you and him.
>
> But I don't understand everything yet, so this isn't complete work.
> Hide Window Once, then you see work it.
>
> paintGL :: DC() -> Graphics.UI.WX.Rect -> IO ()
> paintGL dc rect = do
>      -- write your commands to do OpenGL things here.
>      myInit
>      display
>      reshape $ convWG $ rectSize rect
>      return ()

I reversed this code because GLUT original code's reshape is a
callback function.

paintGL :: DC() -> Graphics.UI.WX.Rect -> IO ()
paintGL dc rect = do
    -- write your commands to do OpenGL things here.
    myInit
    reshape $ convWG $ rectSize rect
    -- or reshape (GL.Size 500 500)
    display
    return ()

Then this programm became better, Code works correctly.
But if overlay the OpenGL canvas, then hide Graphics until hide window 
once.

-- 
shelarcy <she...@ca...>
http://page.freett.com/shelarcy/