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