changed camera-height

This commit is contained in:
Nicole Dresselhaus 2014-05-16 19:06:05 +02:00
parent ffa45515c3
commit 2944d36703
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80

View File

@ -40,7 +40,7 @@ instance GLCamera Camera where
getCam (Flat (x',z') y') dist' xa' ya' =
lookAt (cpos ^+^ at') at' up
where
at' = V3 x y z
at' = V3 x (y+2) z
cpos = crot !* (V3 0 0 (-dist))
crot = (
(fromQuaternion $ axisAngle upmap (xa::CFloat))