diff options
Diffstat (limited to 'Spear/Scene/Light.hs')
| -rw-r--r-- | Spear/Scene/Light.hs | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/Spear/Scene/Light.hs b/Spear/Scene/Light.hs index f63b91d..fb4225b 100644 --- a/Spear/Scene/Light.hs +++ b/Spear/Scene/Light.hs | |||
| @@ -1,31 +1,31 @@ | |||
| 1 | module Spear.Scene.Light | 1 | module Spear.Scene.Light |
| 2 | ( | 2 | ( |
| 3 | Light(..) | 3 | Light(..) |
| 4 | ) | 4 | ) |
| 5 | where | 5 | where |
| 6 | 6 | ||
| 7 | 7 | ||
| 8 | import qualified Spear.Math.Matrix4 as M | 8 | import qualified Spear.Math.Matrix4 as M |
| 9 | import qualified Spear.Math.Spatial3 as S | 9 | import qualified Spear.Math.Spatial3 as S |
| 10 | import Spear.Math.Vector | 10 | import Spear.Math.Vector |
| 11 | 11 | ||
| 12 | 12 | ||
| 13 | data Light | 13 | data Light |
| 14 | = PointLight | 14 | = PointLight |
| 15 | { ambient :: Vector3 | 15 | { ambient :: Vector3 |
| 16 | , diffuse :: Vector3 | 16 | , diffuse :: Vector3 |
| 17 | , specular :: Vector3 | 17 | , specular :: Vector3 |
| 18 | , transform :: M.Matrix4 | 18 | , transform :: M.Matrix4 |
| 19 | } | 19 | } |
| 20 | | DirectionalLight | 20 | | DirectionalLight |
| 21 | { ambient :: Vector3 | 21 | { ambient :: Vector3 |
| 22 | , diffuse :: Vector3 | 22 | , diffuse :: Vector3 |
| 23 | , specular :: Vector3 | 23 | , specular :: Vector3 |
| 24 | , direction :: Vector3 | 24 | , direction :: Vector3 |
| 25 | } | 25 | } |
| 26 | | SpotLight | 26 | | SpotLight |
| 27 | { ambient :: Vector3 | 27 | { ambient :: Vector3 |
| 28 | , diffuse :: Vector3 | 28 | , diffuse :: Vector3 |
| 29 | , specular :: Vector3 | 29 | , specular :: Vector3 |
| 30 | , transform :: M.Matrix4 | 30 | , transform :: M.Matrix4 |
| 31 | } | 31 | } |