[Haskell-cafe] HOpenGL shading problem

[Trin]

Hi,

last few days I spent making remake of glxgears. Nothing
fancy, I just wanted easily configurable gears. The current
performance is only about 70% of glxgears.
But I have a problem with shading. Whatever I have been trying,
I still don't understand how the shading can be activated. I have
light, I have color, but not even Flat shading.

Please can you give me a hand?

Thanks,
Martin

PS: I didn't find any attachment size policy for this list, so I hope 
that the attachment is small enough.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Gear.hs
Type: text/x-haskell
Size: 8124 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/haskell-cafe/attachments/20081113/ee4b72fa/Gear.bin
-------------- next part --------------
A non-text attachment was scrubbed...
Name: testGear2.hs
Type: text/x-haskell
Size: 4924 bytes
Desc: not available
Url : http://www.haskell.org/pipermail/haskell-cafe/attachments/20081113/ee4b72fa/testGear2.bin