-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 ".\\HGamer3D\\Bindings\\Ogre\\EnumVertexAnimationType.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE TypeSynonymInstances #-} -- This source file is part of HGamer3D -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- -- (c) 2011, 2012 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. -- -- EnumVertexAnimationType.chs -- module HGamer3D.Bindings.Ogre.EnumVertexAnimationType where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) import HGamer3D.Data.HG3DClass import HGamer3D.Data.Vector import HGamer3D.Data.Colour import HGamer3D.Data.Angle data EnumVertexAnimationType = -- | No animation. VAT_NONE -- | Morph animation is made up of many interpolated snapshot keyframes. | VAT_MORPH -- | Pose animation is made up of a single delta pose keyframe. | VAT_POSE deriving (Eq) instance Enum EnumVertexAnimationType where fromEnum VAT_NONE = 0 fromEnum VAT_MORPH = 1 fromEnum VAT_POSE = 2 toEnum 0 = VAT_NONE toEnum 1 = VAT_MORPH toEnum 2 = VAT_POSE toEnum unmatched = error ("EnumVertexAnimationType.toEnum: Cannot match " ++ show unmatched)