1 files changed, 3 insertions, 0 deletions

diff --git a/Spear/Math/Vector/Vector3.hs b/Spear/Math/Vector/Vector3.hs
index db5dc45..6ad4fe1 100644
--- a/Spear/Math/Vector/Vector3.hs
+++ b/Spear/Math/Vector/Vector3.hs
@@ -163,6 +163,9 @@ instance Vector Vector3 where
                 n = if n' == 0 then 1 else n'

             in ((1.0::Float) / n) * v

 

+    {-# INLINABLE scale #-}

+    scale s (Vector3 x y z) = Vector3 (s*x) (s*y) (s*z)

+

 

 sizeFloat = sizeOf (undefined :: CFloat)