diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2021-01-03 14:48:23 +0000 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2021-01-03 14:48:23 +0000 |
| commit | 787772e5288274c045ae2b63752436a5076aea60 (patch) | |
| tree | 9bbbe702a5fc6bd402fd8d1399a06ecc7885104c | |
| parent | 7fac2a80c61aab48910b27d07d4ddbb404536dd3 (diff) | |
| download | Vivant-master.tar.gz Vivant-master.zip | |
| -rw-r--r-- | src/Vivant.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Vivant.hs b/src/Vivant.hs index 5335b30..e552b42 100644 --- a/src/Vivant.hs +++ b/src/Vivant.hs @@ -304,8 +304,8 @@ initResources = do toRadians :: Float -> Float toRadians = (*) (pi / 180) -scaledMat :: V4 (V4 Float) -> V4 (V4 Float) -scaledMat n = (n * identity) & _w . _w .~ 1 +scaledMat :: Float -> M44 Float +scaledMat n = (n *!! identity) & _w . _w .~ 1 castV3 :: V3 a -> GL.Vector3 a castV3 (V3 a b c) = GL.Vector3 a b c |