Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added light properly to scene

Browse Source
This commit is contained in:
Nicole Dresselhaus 2013-12-29 06:12:25 +01:00
parent 65934809d5
commit 14ce8c5986
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/Main.hs
View File

@ -68,7 +68,7 @@ display t =
GL.rotate (60) (Vector3 1.0 0.0 0.0 :: Vector3 GLfloat) GL.rotate (60) (Vector3 1.0 0.0 0.0 :: Vector3 GLfloat)
--GL.rotate (-20) (Vector3 0.0 1.0 0.0 :: Vector3 GLfloat) --GL.rotate (-20) (Vector3 0.0 1.0 0.0 :: Vector3 GLfloat)
translate (Vector3 (-15) (-10) (-15)::Vector3 GLfloat) translate (Vector3 (-15) (-10) (-15)::Vector3 GLfloat)
position (Light 0) $= Vertex4 0.0 0.0 (2.0) 1.0 position (Light 0) $= Vertex4 0.0 0.0 (20.0) 1.0
-- Instead of glBegin ... glEnd there is renderPrimitive. -- Instead of glBegin ... glEnd there is renderPrimitive.
--trace (show tiles) $ --trace (show tiles) $
@ -133,6 +133,27 @@ main = do
-- we are using wouldn't heve been setup yet) -- we are using wouldn't heve been setup yet)
Gtk.onRealize canvas $ GtkGL.withGLDrawingArea canvas $ \_ -> do Gtk.onRealize canvas $ GtkGL.withGLDrawingArea canvas $ \_ -> do
reconfigure canvasWidth canvasHeight reconfigure canvasWidth canvasHeight
materialAmbient Front $= Color4 0.4 0.4 0.4 1.0
materialDiffuse Front $= Color4 0.4 0.4 0.4 1.0
materialSpecular Front $= Color4 0.8 0.8 0.8 1.0
materialShininess Front $= 25.0
ambient (Light 0) $= Color4 0.3 0.3 0.3 1.0
diffuse (Light 0) $= Color4 1.0 1.0 1.0 1.0
specular (Light 0) $= Color4 0.8 0.8 0.8 1.0
lightModelAmbient $= Color4 0.2 0.2 0.2 1.0
lighting $= Enabled
light (Light 0) $= Enabled
depthFunc $= Just Less
clearColor $= Color4 0.0 0.0 0.0 0.0
drawBuffer $= BackBuffers
colorMaterial $= Just (Front, Diffuse)
texture Texture2D $= Enabled
shadeModel $= Smooth
return () return ()
{-clearColor $= (Color4 0.0 0.0 0.0 0.0) {-clearColor $= (Color4 0.0 0.0 0.0 0.0)
matrixMode $= Projection matrixMode $= Projection