Hi, I couldn't get your code running to verify you didn't include enough to run the whole program, but I did notice that `main` and `reshape` methods set different zNear values: 1 and 0.01 respectively. How are you translating the object?
I am taking a graphics class and I have a problem I have not been able to
resolve. When I translate along the Z axis objects are clipped before their
size changes. It almost seems likes its stuck using a ortho prjojection some
how. That being said the clip plan is very close and to me does not resemble
the one I set in gluPerspective. It starts to clip after being translated
-0.6 units down the z axis.
Attached is the code that I use to setup the projection matrix.
main = do
(progname, _) ← getArgsAndInitialize
--initialContextVersion 3 0
createWindow "Ben Christy Assignment 2"
windowSize $= Size 800 600
matrixMode $= Projection
loadIdentity
depthFunc $= Just Less
viewport $= (Position 0 0, Size 800 600)
perspective 60 1.333 1 1200
--tableModel ← initModelVBO (vertexTupleListToVertexList table)
changesRef ← newIORef Map.empty
sceneRef ← newIORef buildSSG
balloonState ← newIORef There
balloonZTarget ← newIORef 4
balloonZStart ← newIORef 0
balloonStep ← newIORef 0
balloonNumSteps ← newIORef 0
reshapeCallback $= Just reshape
displayCallback $= (displayScene sceneRef changesRef )
--addTimerCallback 10 (animate sceneRef changesRef balloonState
balloonZTarget balloonZStart balloonStep balloonNumSteps)
keyboardMouseCallback $= Just (handleInput sceneRef changesRef)
mainLoop
reshape (Size w h) = do
print "resize"
matrixMode $= Projection
loadIdentity
depthFunc $= Just Less
viewport $= (Position 0 0, Size w h)
perspective 60 1.333 0.01 1200
matrixMode $= Modelview 1
loadIdentity
postRedisplay Nothing