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

removed debug-output

Browse Source
This commit is contained in:
Nicole Dresselhaus 2013-12-29 18:32:10 +01:00
parent f3b218c44e
commit e1cad5786e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Main.hs
View File

@ -128,7 +128,7 @@ updateCamera state = do
d@((dx,dy,dz),(heading',pitch')) <- d@((dx,dy,dz),(heading',pitch')) <-
if any (/= 0.0) [dx,dy,dz,dpitch,dheading] then if any (/= 0.0) [dx,dy,dz,dpitch,dheading] then
preservingMatrix $ do preservingMatrix $ do
putStrLn $ unwords $ P.map show [dx,dy,dz,dpitch,dheading] -- putStrLn $ unwords $ P.map show [dx,dy,dz,dpitch,dheading]
loadIdentity loadIdentity
-- in direction of current heading and pitch -- in direction of current heading and pitch
@ -142,7 +142,7 @@ updateCamera state = do
-- get changes in location components -- get changes in location components
mat <- get (matrix Nothing) :: IO (GLmatrix GLfloat) mat <- get (matrix Nothing) :: IO (GLmatrix GLfloat)
comps <- getMatrixComponents ColumnMajor mat comps <- getMatrixComponents ColumnMajor mat
putStrLn $ show $ comps -- putStrLn $ show $ comps
let [dx', dy', dz', _] = drop 12 comps let [dx', dy', dz', _] = drop 12 comps
(heading', pitch') = (heading + dheading, pitch + dpitch) (heading', pitch') = (heading + dheading, pitch + dpitch)
return ((dx',dy',dz'),(heading',pitch')) return ((dx',dy',dz'),(heading',pitch'))
@ -213,7 +213,7 @@ keyEvent state press = do
ps <- if not press ps <- if not press
then return ps { keysPressed = fromIntegral code `IS.delete` kp } then return ps { keysPressed = fromIntegral code `IS.delete` kp }
else return ps { keysPressed = fromIntegral code `IS.insert` kp } else return ps { keysPressed = fromIntegral code `IS.insert` kp }
putStrLn $ unwords [name , show val, show code, show ps] -- trace (unwords [name , show val]) -- debugging -- putStrLn $ unwords [name , show val, show code, show ps] -- trace (unwords [name , show val]) -- debugging
-- process keys -- process keys
case press of case press of
-- on PRESS only -- on PRESS only