diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-02-26 19:05:37 +0100 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-02-26 19:05:37 +0100 |
commit | 3d2f2fba9af44efa5ee729eab59c9968114745fa (patch) | |
tree | 6ef6b8dff4f0fb2b9d72a1f137f402fe63648225 /lc/Prelude.lc | |
parent | 8002915b62b20c784879f5de011f8af02a4da167 (diff) |
fix build
Diffstat (limited to 'lc/Prelude.lc')
-rw-r--r-- | lc/Prelude.lc | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lc/Prelude.lc b/lc/Prelude.lc index ce9ad9af..66060066 100644 --- a/lc/Prelude.lc +++ b/lc/Prelude.lc | |||
@@ -360,7 +360,10 @@ translateBefore4 :: Vec 3 Float -> Mat 4 4 Float -> Mat 4 4 Float | |||
360 | translateBefore4 v p4 = M44F r1 r2 r3 (ext0 u + r4) | 360 | translateBefore4 v p4 = M44F r1 r2 r3 (ext0 u + r4) |
361 | where | 361 | where |
362 | ext0 a = V4 a%x a%y a%z 0 | 362 | ext0 a = V4 a%x a%y a%z 0 |
363 | (M44F r1 r2 r3 r4) = p4 | 363 | r1 = p4 *. V4 1 0 0 0 |
364 | r2 = p4 *. V4 0 1 0 0 | ||
365 | r3 = p4 *. V4 0 0 1 0 | ||
366 | r4 = p4 *. V4 0 0 0 1 | ||
364 | u = v .* M33F r1%xyz r2%xyz r3%xyz | 367 | u = v .* M33F r1%xyz r2%xyz r3%xyz |
365 | 368 | ||
366 | -- | Camera transformation matrix. | 369 | -- | Camera transformation matrix. |