-- This source file is part of HGamer3D
-- (A project to enable 3D game development in Haskell)
-- For the latest info, see http://www.hgamer3d.org
--
-- (c) 2011 - 2015 Peter Althainz
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
--     http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.

-- HGamer3D/Graphics3D/Geometry.hs

-- | Module providing the Geometry type
module HGamer3D.Graphics3D.Geometry

(
        Shape (..),
        Geometry (..),
        ctGeometry
)

where

import Data.MessagePack
import Data.Text

import HGamer3D.Data
import HGamer3D.Graphics3D.Material

-- | A shape is a basic geometric form
data Shape =   Sphere 
                | Cube
                | Plane
                | Cylinder
                | Pyramid
                | Torus
                deriving (Eq, Show)

instance ComponentClass Shape where
    toObj shape = case shape of
                    Sphere -> (ObjectInt 1)
                    Cube -> (ObjectInt 2)
                    Plane -> (ObjectInt 3)
                    Cylinder -> (ObjectInt 4)
                    Pyramid -> (ObjectInt 5)
                    Torus -> (ObjectInt 6)
    fromObj (ObjectInt i) = case i of
                    1 -> Sphere
                    2 -> Cube
                    3 -> Plane
                    4 -> Cylinder
                    5 -> Pyramid
                    6 -> Torus
                    
-- | A geometry is the basic drawable item, it can be a shape or a mesh loaded from a resource
data Geometry = ShapeGeometry Shape
                | ResourceGeometry Text
                deriving (Eq, Show)

-- | Component Type for the Geometry
ctGeometry :: ComponentType Geometry
ctGeometry = ComponentType 0xee433d1a4b964591 

instance ComponentClass Geometry where
        toObj (ShapeGeometry sh) = ObjectArray [ObjectInt 1, toObj sh]
        toObj (ResourceGeometry mesh) = ObjectArray [ObjectInt 2, toObj mesh]
        fromObj (ObjectArray [ObjectInt 1, sh_ob])  = ShapeGeometry (fromObj sh_ob) 
        fromObj (ObjectArray [ObjectInt 2, mesh_o])  = ResourceGeometry (fromObj mesh_o)