diff options
| -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 |