4 files changed, 16 insertions, 1 deletions

diff --git a/Spear/Math/Vector/Vector.hs b/Spear/Math/Vector/Vector.hs
index e7f6d53..d9cd64f 100644
--- a/Spear/Math/Vector/Vector.hs
+++ b/Spear/Math/Vector/Vector.hs
@@ -48,3 +48,6 @@ class
 
       -- | Normalise the given vector.
       normalise :: v -> v
+
+      -- | Scale the vector.
+      scale :: Float -> v -> v
diff --git a/Spear/Math/Vector/Vector2.hs b/Spear/Math/Vector/Vector2.hs
index 1ede3a9..b74cfef 100644
--- a/Spear/Math/Vector/Vector2.hs
+++ b/Spear/Math/Vector/Vector2.hs
@@ -33,7 +33,10 @@ type Position2 = Vector2
 

 

 -- | Represents a vector in 2D.

-data Vector2 = Vector2 {-# UNPACK #-} !Float {-# UNPACK #-} !Float deriving (Eq, Show)

+data Vector2 = Vector2

+    {-# UNPACK #-} !Float

+    {-# UNPACK #-} !Float

+    deriving (Eq, Show)

 

 

 instance Addition Vector2 Vector2 where

@@ -129,6 +132,9 @@ instance Vector Vector2 where
                 n = if n' == 0 then 1 else n'

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

 

+    {-# INLINABLE scale #-}

+    scale s (Vector2 x y) = Vector2 (s*x) (s*y)

+

 

 sizeFloat = sizeOf (undefined :: CFloat)

 

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)

 

diff --git a/Spear/Math/Vector/Vector4.hs b/Spear/Math/Vector/Vector4.hs
index 907295e..3ca27c9 100644
--- a/Spear/Math/Vector/Vector4.hs
+++ b/Spear/Math/Vector/Vector4.hs
@@ -161,6 +161,9 @@ instance Vector Vector4 where
                 n  = if n' == 0 then 1 else n'

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

 

+    {-# INLINABLE scale #-}

+    scale s (Vector4 x y z w) = Vector4 (s*x) (s*y) (s*z) (s*w)

+

 

 sizeFloat = sizeOf (undefined :: CFloat)