packages feed

HGamer3D-Ogre-Binding 0.2.1 → 0.3.0

raw patch · 318 files changed

+11441/−30040 lines, 318 filesdep +mtldep +transformersdep ~HGamer3D-Datasetup-changed

Dependencies added: mtl, transformers

Dependency ranges changed: HGamer3D-Data

Files

HGamer3D-Ogre-Binding.cabal view
@@ -1,13 +1,13 @@ Name:                HGamer3D-Ogre-Binding
-Version:             0.2.1
-Synopsis:            Windows Game Engine for the Haskell Programmer - Ogre Bindings
+Version:             0.3.0
+Synopsis:            Ogre Binding for HGamer3D
 Description:         
-   HGamer3D is a game engine for developing 3D games in the programming 
-   language Haskell. The game engine uses available libraries for 3D graphics, 
-   sound, input device handling, gui programming and other areas and make
-   those functions available for the Haskell programmer by providing  
-   a Haskell API on top of that. HGamer3D is available on Windows only.
-   
+   HGamer3D is a game engine for developing 3D games in the programming +   language Haskell. This package provides the Ogre binding. +   HGamer3D-Ogre-Binding is available on Windows and Linux. +   This binding does not claim to have full coverage of Ogre +   functionality, but only to support what is needed for the+   HGamer3D-Graphics3D package. 
 	
 License:             OtherLicense
@@ -18,12 +18,12 @@ Cabal-Version:       >=1.4
 Homepage:            http://www.hgamer3d.org
 Category:            Game Engine, Graphics
-Extra-source-files:  Setup.hs, include/ClassAnimation.h, include/ClassAnimationState.h, include/ClassAnimationStateSet.h, include/ClassAnimationTrack.h, include/ClassArchive.h, include/ClassArchiveManager.h, include/ClassBillboard.h, include/ClassBillboardChain.h, include/ClassBillboardChainFactory.h, include/ClassBillboardSet.h, include/ClassBillboardSetFactory.h, include/ClassBone.h, include/ClassCamera.h, include/ClassConfigFile.h, include/ClassControllerManager.h, include/ClassEntity.h, include/ClassEntityFactory.h, include/ClassException.h, include/ClassFrustum.h, include/ClassHG3DMessagePump.h, include/ClassLight.h, include/ClassLightFactory.h, include/ClassLog.h, include/ClassLogManager.h, include/ClassManualObject.h, include/ClassManualObjectFactory.h, include/ClassManualObjectSection.h, include/ClassMaterial.h, include/ClassMaterialManager.h, include/ClassMesh.h, include/ClassMeshManager.h, include/ClassMovableObject.h, include/ClassMovableObjectFactory.h, include/ClassMultiRenderTarget.h, include/ClassNode.h, include/ClassNodeAnimationTrack.h, include/ClassNumericAnimationTrack.h, include/ClassPtr.h, include/ClassRenderable.h, include/ClassRenderSystem.h, include/ClassRenderTarget.h, include/ClassRenderTexture.h, include/ClassRenderWindow.h, include/ClassResource.h, include/ClassResourceGroupManager.h, include/ClassResourceManager.h, include/ClassRoot.h, include/ClassSceneManager.h, include/ClassSceneManagerFactory.h, include/ClassSceneNode.h, include/ClassSkeleton.h, include/ClassSkeletonManager.h, include/ClassTextureManager.h, include/ClassTimeIndex.h, include/ClassVertexAnimationTrack.h, include/ClassViewport.h, include/ClassWindowEventUtilities.h, include/ClassWindowUtilsHG3D.h, include/EnumAnimationInterpolationMode.h, include/EnumAnimationRotationInterpolationMode.h, include/EnumAxisAlignedBoxCorner.h, include/EnumAxisAlignedBoxExtent.h, include/EnumBillboardChainTexCoordDirection.h, include/EnumBillboardOrigin.h, include/EnumBillboardRotationType.h, include/EnumBillboardType.h, include/EnumDataStreamAccessMode.h, include/EnumEntityVertexDataBindChoice.h, include/EnumExceptionCode.h, include/EnumFrustumPlane.h, include/EnumGpuProgramType.h, include/EnumLightType.h, include/EnumLoggingLevel.h, include/EnumLogMessageLevel.h, include/EnumMathAngleUnit.h, include/EnumMeshManagerMeshBuildType.h, include/EnumNodeTransformSpace.h, include/EnumOrientationMode.h, include/EnumProjectionType.h, include/EnumRenderOperationOperationType.h, include/EnumRenderTargetFrameBuffer.h, include/EnumRenderTargetStatFlags.h, include/EnumRootFrameEventTimeType.h, include/EnumSceneManagerBoxPlane.h, include/EnumSceneManagerIlluminationRenderStage.h, include/EnumSceneManagerPrefabType.h, include/EnumSceneManagerSpecialCaseRenderQueueMode.h, include/EnumSceneType.h, include/EnumSkeletonAnimationBlendMode.h, include/EnumStencilOperation.h, include/EnumTexCoordCalcMethod.h, include/EnumVertexAnimationTrackTargetMode.h, include/EnumVertexAnimationType.h, include/OgreDllDefines.h, include/StructColour.h, include/StructDegrees.h, include/StructHG3DClass.h, include/StructQuaternion.h, include/StructRadians.h, include/StructSharedPtr.h, include/StructVec2.h, include/StructVec3.h
+Extra-source-files:  Setup.hs, include/WindowUtilsHG3D.h, include/quaternion_struct.h, include/sharedptr_struct.h, include/radian_struct.h, include/vector2_struct.h, include/vector4_struct.h, include/hg3dstruct.h, include/vector3_struct.h, include/colorvalue_struct.h, include/degree_struct.h
 
 Library
-  Build-Depends:     base >= 3 && < 5,  HGamer3D-Data >= 0.2.0
+  Build-Depends:     base >= 3 && < 5, transformers>=0.3.0,mtl, HGamer3D-Data >= 0.3.0
 
-  Exposed-modules:   HGamer3D.Bindings.Ogre.Utils, HGamer3D.Bindings.Ogre.ClassPtr, HGamer3D.Bindings.Ogre.StructHG3DClass, HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode, HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode, HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxCorner, HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxExtent, HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection, HGamer3D.Bindings.Ogre.EnumBillboardOrigin, HGamer3D.Bindings.Ogre.EnumBillboardRotationType, HGamer3D.Bindings.Ogre.EnumBillboardType, HGamer3D.Bindings.Ogre.EnumDataStreamAccessMode, HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice, HGamer3D.Bindings.Ogre.EnumExceptionCode, HGamer3D.Bindings.Ogre.EnumFrustumPlane, HGamer3D.Bindings.Ogre.EnumGpuProgramType, HGamer3D.Bindings.Ogre.EnumLightType, HGamer3D.Bindings.Ogre.EnumLoggingLevel, HGamer3D.Bindings.Ogre.EnumLogMessageLevel, HGamer3D.Bindings.Ogre.EnumMathAngleUnit, HGamer3D.Bindings.Ogre.EnumMeshManagerMeshBuildType, HGamer3D.Bindings.Ogre.EnumNodeTransformSpace, HGamer3D.Bindings.Ogre.EnumOrientationMode, HGamer3D.Bindings.Ogre.EnumProjectionType, HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType, HGamer3D.Bindings.Ogre.EnumRenderTargetFrameBuffer, HGamer3D.Bindings.Ogre.EnumRenderTargetStatFlags, HGamer3D.Bindings.Ogre.EnumRootFrameEventTimeType, HGamer3D.Bindings.Ogre.EnumSceneManagerBoxPlane, HGamer3D.Bindings.Ogre.EnumSceneManagerIlluminationRenderStage, HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType, HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode, HGamer3D.Bindings.Ogre.EnumSceneType, HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode, HGamer3D.Bindings.Ogre.EnumStencilOperation, HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod, HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode, HGamer3D.Bindings.Ogre.EnumVertexAnimationType, HGamer3D.Bindings.Ogre.StructColour, HGamer3D.Bindings.Ogre.StructDegrees, HGamer3D.Bindings.Ogre.StructQuaternion, HGamer3D.Bindings.Ogre.StructRadians, HGamer3D.Bindings.Ogre.StructSharedPtr, HGamer3D.Bindings.Ogre.StructVec2, HGamer3D.Bindings.Ogre.StructVec3, HGamer3D.Bindings.Ogre.ClassAnimation, HGamer3D.Bindings.Ogre.ClassAnimationState, HGamer3D.Bindings.Ogre.ClassAnimationStateSet, HGamer3D.Bindings.Ogre.ClassAnimationTrack, HGamer3D.Bindings.Ogre.ClassArchive, HGamer3D.Bindings.Ogre.ClassArchiveManager, HGamer3D.Bindings.Ogre.ClassBillboard, HGamer3D.Bindings.Ogre.ClassBillboardChain, HGamer3D.Bindings.Ogre.ClassBillboardChainFactory, HGamer3D.Bindings.Ogre.ClassBillboardSet, HGamer3D.Bindings.Ogre.ClassBillboardSetFactory, HGamer3D.Bindings.Ogre.ClassBone, HGamer3D.Bindings.Ogre.ClassCamera, HGamer3D.Bindings.Ogre.ClassConfigFile, HGamer3D.Bindings.Ogre.ClassControllerManager, HGamer3D.Bindings.Ogre.ClassEntity, HGamer3D.Bindings.Ogre.ClassEntityFactory, HGamer3D.Bindings.Ogre.ClassException, HGamer3D.Bindings.Ogre.ClassFrustum, HGamer3D.Bindings.Ogre.ClassHG3DMessagePump, HGamer3D.Bindings.Ogre.ClassLight, HGamer3D.Bindings.Ogre.ClassLightFactory, HGamer3D.Bindings.Ogre.ClassLog, HGamer3D.Bindings.Ogre.ClassLogManager, HGamer3D.Bindings.Ogre.ClassManualObject, HGamer3D.Bindings.Ogre.ClassManualObjectFactory, HGamer3D.Bindings.Ogre.ClassManualObjectSection, HGamer3D.Bindings.Ogre.ClassMaterial, HGamer3D.Bindings.Ogre.ClassMaterialManager, HGamer3D.Bindings.Ogre.ClassMesh, HGamer3D.Bindings.Ogre.ClassMeshManager, HGamer3D.Bindings.Ogre.ClassMovableObject, HGamer3D.Bindings.Ogre.ClassMovableObjectFactory, HGamer3D.Bindings.Ogre.ClassMultiRenderTarget, HGamer3D.Bindings.Ogre.ClassNode, HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack, HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack, HGamer3D.Bindings.Ogre.ClassRenderable, HGamer3D.Bindings.Ogre.ClassRenderSystem, HGamer3D.Bindings.Ogre.ClassRenderTarget, HGamer3D.Bindings.Ogre.ClassRenderTexture, HGamer3D.Bindings.Ogre.ClassRenderWindow, HGamer3D.Bindings.Ogre.ClassResource, HGamer3D.Bindings.Ogre.ClassResourceGroupManager, HGamer3D.Bindings.Ogre.ClassResourceManager, HGamer3D.Bindings.Ogre.ClassRoot, HGamer3D.Bindings.Ogre.ClassSceneManager, HGamer3D.Bindings.Ogre.ClassSceneManagerFactory, HGamer3D.Bindings.Ogre.ClassSceneNode, HGamer3D.Bindings.Ogre.ClassSkeleton, HGamer3D.Bindings.Ogre.ClassSkeletonManager, HGamer3D.Bindings.Ogre.ClassTextureManager, HGamer3D.Bindings.Ogre.ClassTimeIndex, HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack, HGamer3D.Bindings.Ogre.ClassViewport, HGamer3D.Bindings.Ogre.ClassWindowEventUtilities, HGamer3D.Bindings.Ogre.ClassWindowUtilsHG3D
+  Exposed-modules:   HGamer3D.Bindings.Ogre.Utils, HGamer3D.Bindings.Ogre.StructHG3DClass, HGamer3D.Bindings.Ogre.ClassPtr, HGamer3D.Bindings.Ogre.EnumSceneType, HGamer3D.Bindings.Ogre.EnumProjectionType, HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice, HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType, HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxCorner, HGamer3D.Bindings.Ogre.EnumMeshManagerMeshBuildType, HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode, HGamer3D.Bindings.Ogre.EnumSceneManagerBoxPlane, HGamer3D.Bindings.Ogre.EnumLogMessageLevel, HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxExtent, HGamer3D.Bindings.Ogre.EnumSceneManagerIlluminationRenderStage, HGamer3D.Bindings.Ogre.EnumGpuProgramType, HGamer3D.Bindings.Ogre.EnumVertexAnimationType, HGamer3D.Bindings.Ogre.EnumBillboardType, HGamer3D.Bindings.Ogre.EnumStencilOperation, HGamer3D.Bindings.Ogre.EnumRenderTargetFrameBuffer, HGamer3D.Bindings.Ogre.EnumMathAngleUnit, HGamer3D.Bindings.Ogre.EnumLoggingLevel, HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode, HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode, HGamer3D.Bindings.Ogre.EnumRootFrameEventTimeType, HGamer3D.Bindings.Ogre.EnumBillboardRotationType, HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode, HGamer3D.Bindings.Ogre.EnumDataStreamAccessMode, HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType, HGamer3D.Bindings.Ogre.EnumRenderTargetStatFlags, HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode, HGamer3D.Bindings.Ogre.EnumNodeTransformSpace, HGamer3D.Bindings.Ogre.EnumFrustumPlane, HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection, HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod, HGamer3D.Bindings.Ogre.EnumBillboardOrigin, HGamer3D.Bindings.Ogre.EnumOrientationMode, HGamer3D.Bindings.Ogre.EnumExceptionCode, HGamer3D.Bindings.Ogre.EnumLightType, HGamer3D.Bindings.Ogre.StructVec2, HGamer3D.Bindings.Ogre.StructRadians, HGamer3D.Bindings.Ogre.StructDegrees, HGamer3D.Bindings.Ogre.StructSharedPtr, HGamer3D.Bindings.Ogre.StructVec3, HGamer3D.Bindings.Ogre.StructColour, HGamer3D.Bindings.Ogre.StructQuaternion, HGamer3D.Bindings.Ogre.ClassSceneManager, HGamer3D.Bindings.Ogre.ClassTimeIndex, HGamer3D.Bindings.Ogre.ClassMaterial, HGamer3D.Bindings.Ogre.ClassSkeleton, HGamer3D.Bindings.Ogre.ClassBillboard, HGamer3D.Bindings.Ogre.ClassMaterialManager, HGamer3D.Bindings.Ogre.ClassAnimationTrack, HGamer3D.Bindings.Ogre.ClassControllerManager, HGamer3D.Bindings.Ogre.ClassSkeletonManager, HGamer3D.Bindings.Ogre.ClassLog, HGamer3D.Bindings.Ogre.ClassArchive, HGamer3D.Bindings.Ogre.ClassBillboardChain, HGamer3D.Bindings.Ogre.ClassCamera, HGamer3D.Bindings.Ogre.ClassMultiRenderTarget, HGamer3D.Bindings.Ogre.ClassResourceGroupManager, HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack, HGamer3D.Bindings.Ogre.ClassBone, HGamer3D.Bindings.Ogre.ClassViewport, HGamer3D.Bindings.Ogre.ClassSceneManagerFactory, HGamer3D.Bindings.Ogre.ClassResource, HGamer3D.Bindings.Ogre.ClassRenderTexture, HGamer3D.Bindings.Ogre.ClassLightFactory, HGamer3D.Bindings.Ogre.ClassRenderable, HGamer3D.Bindings.Ogre.ClassEntity, HGamer3D.Bindings.Ogre.ClassWindowEventUtilities, HGamer3D.Bindings.Ogre.ClassAnimationState, HGamer3D.Bindings.Ogre.ClassRenderSystem, HGamer3D.Bindings.Ogre.ClassRenderWindow, HGamer3D.Bindings.Ogre.ClassAnimationStateSet, HGamer3D.Bindings.Ogre.ClassSceneNode, HGamer3D.Bindings.Ogre.ClassResourceManager, HGamer3D.Bindings.Ogre.ClassMovableObject, HGamer3D.Bindings.Ogre.ClassConfigFile, HGamer3D.Bindings.Ogre.ClassTextureManager, HGamer3D.Bindings.Ogre.ClassRoot, HGamer3D.Bindings.Ogre.ClassManualObjectSection, HGamer3D.Bindings.Ogre.ClassRenderTarget, HGamer3D.Bindings.Ogre.ClassAnimation, HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack, HGamer3D.Bindings.Ogre.ClassHG3DUtilities, HGamer3D.Bindings.Ogre.ClassLight, HGamer3D.Bindings.Ogre.ClassBillboardSetFactory, HGamer3D.Bindings.Ogre.ClassEntityFactory, HGamer3D.Bindings.Ogre.ClassBillboardChainFactory, HGamer3D.Bindings.Ogre.ClassException, HGamer3D.Bindings.Ogre.ClassArchiveManager, HGamer3D.Bindings.Ogre.ClassManualObjectFactory, HGamer3D.Bindings.Ogre.ClassManualObject, HGamer3D.Bindings.Ogre.ClassMesh, HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack, HGamer3D.Bindings.Ogre.ClassBillboardSet, HGamer3D.Bindings.Ogre.ClassMeshManager, HGamer3D.Bindings.Ogre.ClassFrustum, HGamer3D.Bindings.Ogre.ClassMovableObjectFactory, HGamer3D.Bindings.Ogre.ClassNode, HGamer3D.Bindings.Ogre.ClassLogManager
   Other-modules:     
 
   ghc-options:       
@@ -32,4 +32,7 @@   Include-dirs:      include
   Build-tools:       
   build-depends:     
-  extra-libraries:   
+  if os(windows)
+     extra-libraries:   hg3dogre030
+  else
+     extra-libraries:   hg3dogre030,OgreMain,OgrePaging,OgreProperty,OgreRTShaderSystem,OgreTerrain
+ HGamer3D/Bindings/Ogre/ClassAnimation.chs view
@@ -0,0 +1,274 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassAnimation.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassAnimation where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumVertexAnimationType #}+{# import HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode #}+{# import HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode #}+
+#include "ClassAnimation.h"
+{- function ~Animation -}+{#fun ogre_anm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_anm_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getLength -}+{#fun ogre_anm_getLength as getLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setLength -}+{#fun ogre_anm_setLength as setLength +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function createNodeTrack -}+{#fun ogre_anm_createNodeTrack as createNodeTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createNumericTrack -}+{#fun ogre_anm_createNumericTrack as createNumericTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createVertexTrack -}+{#fun ogre_anm_createVertexTrack as createVertexTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ cIntFromEnum `EnumVertexAnimationType' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createNodeTrack2 -}+{#fun ogre_anm_createNodeTrack2 as createNodeTrack2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumNodeTracks -}+{#fun ogre_anm_getNumNodeTracks as getNumNodeTracks +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNodeTrack -}+{#fun ogre_anm_getNodeTrack as getNodeTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasNodeTrack -}+{#fun ogre_anm_hasNodeTrack as hasNodeTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getNumNumericTracks -}+{#fun ogre_anm_getNumNumericTracks as getNumNumericTracks +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNumericTrack -}+{#fun ogre_anm_getNumericTrack as getNumericTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasNumericTrack -}+{#fun ogre_anm_hasNumericTrack as hasNumericTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getNumVertexTracks -}+{#fun ogre_anm_getNumVertexTracks as getNumVertexTracks +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getVertexTrack -}+{#fun ogre_anm_getVertexTrack as getVertexTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasVertexTrack -}+{#fun ogre_anm_hasVertexTrack as hasVertexTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyNodeTrack -}+{#fun ogre_anm_destroyNodeTrack as destroyNodeTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function destroyNumericTrack -}+{#fun ogre_anm_destroyNumericTrack as destroyNumericTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function destroyVertexTrack -}+{#fun ogre_anm_destroyVertexTrack as destroyVertexTrack +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function destroyAllTracks -}+{#fun ogre_anm_destroyAllTracks as destroyAllTracks +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllNodeTracks -}+{#fun ogre_anm_destroyAllNodeTracks as destroyAllNodeTracks +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllNumericTracks -}+{#fun ogre_anm_destroyAllNumericTracks as destroyAllNumericTracks +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllVertexTracks -}+{#fun ogre_anm_destroyAllVertexTracks as destroyAllVertexTracks +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function apply -}+{#fun ogre_anm_apply as apply +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function applyToNode -}+{#fun ogre_anm_applyToNode as applyToNode +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function apply2 -}+{#fun ogre_anm_apply2 as apply2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function apply4 -}+{#fun ogre_anm_apply4 as apply4 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}++{- function setInterpolationMode -}+{#fun ogre_anm_setInterpolationMode as setInterpolationMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumAnimationInterpolationMode' } -> `()'  #}++{- function getInterpolationMode -}+{#fun ogre_anm_getInterpolationMode as getInterpolationMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumAnimationInterpolationMode' peekEnumUtil*} -> `()'  #}++{- function setRotationInterpolationMode -}+{#fun ogre_anm_setRotationInterpolationMode as setRotationInterpolationMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumAnimationRotationInterpolationMode' } -> `()'  #}++{- function getRotationInterpolationMode -}+{#fun ogre_anm_getRotationInterpolationMode as getRotationInterpolationMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumAnimationRotationInterpolationMode' peekEnumUtil*} -> `()'  #}++{- function optimise -}+{#fun ogre_anm_optimise as optimise +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function clone -}+{#fun ogre_anm_clone as clone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setUseBaseKeyFrame -}+{#fun ogre_anm_setUseBaseKeyFrame as setUseBaseKeyFrame +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ realToFrac `Float' ,+ withCString* `String' } -> `()'  #}++{- function getUseBaseKeyFrame -}+{#fun ogre_anm_getUseBaseKeyFrame as getUseBaseKeyFrame +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getBaseKeyFrameTime -}+{#fun ogre_anm_getBaseKeyFrameTime as getBaseKeyFrameTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getBaseKeyFrameAnimationName -}+{#fun ogre_anm_getBaseKeyFrameAnimationName as getBaseKeyFrameAnimationName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setDefaultInterpolationMode -}+{#fun ogre_anm_setDefaultInterpolationMode as setDefaultInterpolationMode +{ cIntFromEnum `EnumAnimationInterpolationMode' } -> `()'  #}++{- function getDefaultInterpolationMode -}+{#fun ogre_anm_getDefaultInterpolationMode as getDefaultInterpolationMode +{ alloca- `EnumAnimationInterpolationMode' peekEnumUtil*} -> `()'  #}++{- function setDefaultRotationInterpolationMode -}+{#fun ogre_anm_setDefaultRotationInterpolationMode as setDefaultRotationInterpolationMode +{ cIntFromEnum `EnumAnimationRotationInterpolationMode' } -> `()'  #}++{- function getDefaultRotationInterpolationMode -}+{#fun ogre_anm_getDefaultRotationInterpolationMode as getDefaultRotationInterpolationMode +{ alloca- `EnumAnimationRotationInterpolationMode' peekEnumUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassAnimation.hs 
@@ -1,603 +0,0 @@--- 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\\ClassAnimation.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassAnimation.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassAnimation where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function ~Animation -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getLength -}
-getLength :: HG3DClass -> IO (Float)
-getLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLength'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setLength -}
-setLength :: HG3DClass -> Float -> IO ()
-setLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function createNodeTrack -}
-createNodeTrack :: HG3DClass -> Int -> IO (HG3DClass)
-createNodeTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  createNodeTrack'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function createNumericTrack -}
-createNumericTrack :: HG3DClass -> Int -> IO (HG3DClass)
-createNumericTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  createNumericTrack'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function createVertexTrack -}
-createVertexTrack :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass)
-createVertexTrack a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = cIntFromEnum a3} in 
-  alloca $ \a4' -> 
-  createVertexTrack'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function createNodeTrack2 -}
-createNodeTrack2 :: HG3DClass -> Int -> HG3DClass -> IO (HG3DClass)
-createNodeTrack2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createNodeTrack2'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getNumNodeTracks -}
-getNumNodeTracks :: HG3DClass -> IO (Int)
-getNumNodeTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumNodeTracks'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getNodeTrack -}
-getNodeTrack :: HG3DClass -> Int -> IO (HG3DClass)
-getNodeTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getNodeTrack'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function hasNodeTrack -}
-hasNodeTrack :: HG3DClass -> Int -> IO (Bool)
-hasNodeTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  hasNodeTrack'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getNumNumericTracks -}
-getNumNumericTracks :: HG3DClass -> IO (Int)
-getNumNumericTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumNumericTracks'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getNumericTrack -}
-getNumericTrack :: HG3DClass -> Int -> IO (HG3DClass)
-getNumericTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getNumericTrack'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function hasNumericTrack -}
-hasNumericTrack :: HG3DClass -> Int -> IO (Bool)
-hasNumericTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  hasNumericTrack'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getNumVertexTracks -}
-getNumVertexTracks :: HG3DClass -> IO (Int)
-getNumVertexTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumVertexTracks'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getVertexTrack -}
-getVertexTrack :: HG3DClass -> Int -> IO (HG3DClass)
-getVertexTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getVertexTrack'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function hasVertexTrack -}
-hasVertexTrack :: HG3DClass -> Int -> IO (Bool)
-hasVertexTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  hasVertexTrack'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyNodeTrack -}
-destroyNodeTrack :: HG3DClass -> Int -> IO ()
-destroyNodeTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  destroyNodeTrack'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyNumericTrack -}
-destroyNumericTrack :: HG3DClass -> Int -> IO ()
-destroyNumericTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  destroyNumericTrack'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyVertexTrack -}
-destroyVertexTrack :: HG3DClass -> Int -> IO ()
-destroyVertexTrack a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  destroyVertexTrack'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyAllTracks -}
-destroyAllTracks :: HG3DClass -> IO ()
-destroyAllTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllTracks'_ a1' >>= \res ->
-  return ()
-{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyAllNodeTracks -}
-destroyAllNodeTracks :: HG3DClass -> IO ()
-destroyAllNodeTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllNodeTracks'_ a1' >>= \res ->
-  return ()
-{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyAllNumericTracks -}
-destroyAllNumericTracks :: HG3DClass -> IO ()
-destroyAllNumericTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllNumericTracks'_ a1' >>= \res ->
-  return ()
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function destroyAllVertexTracks -}
-destroyAllVertexTracks :: HG3DClass -> IO ()
-destroyAllVertexTracks a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllVertexTracks'_ a1' >>= \res ->
-  return ()
-{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function apply -}
-apply :: HG3DClass -> Float -> Float -> Float -> IO ()
-apply a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  apply'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function applyToNode -}
-applyToNode :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO ()
-applyToNode a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  applyToNode'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function apply2 -}
-apply2 :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO ()
-apply2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  apply2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function apply4 -}
-apply4 :: HG3DClass -> HG3DClass -> Float -> Float -> Bool -> Bool -> IO ()
-apply4 a1 a2 a3 a4 a5 a6 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = fromBool a5} in 
-  let {a6' = fromBool a6} in 
-  apply4'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  return ()
-{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setInterpolationMode -}
-setInterpolationMode :: HG3DClass -> EnumAnimationInterpolationMode -> IO ()
-setInterpolationMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setInterpolationMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getInterpolationMode -}
-getInterpolationMode :: HG3DClass -> IO (EnumAnimationInterpolationMode)
-getInterpolationMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInterpolationMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setRotationInterpolationMode -}
-setRotationInterpolationMode :: HG3DClass -> EnumAnimationRotationInterpolationMode -> IO ()
-setRotationInterpolationMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setRotationInterpolationMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getRotationInterpolationMode -}
-getRotationInterpolationMode :: HG3DClass -> IO (EnumAnimationRotationInterpolationMode)
-getRotationInterpolationMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRotationInterpolationMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function optimise -}
-optimise :: HG3DClass -> Bool -> IO ()
-optimise a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  optimise'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function clone -}
-clone :: HG3DClass -> String -> IO (HG3DClass)
-clone a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  clone'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setUseBaseKeyFrame -}
-setUseBaseKeyFrame :: HG3DClass -> Bool -> Float -> String -> IO ()
-setUseBaseKeyFrame a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = realToFrac a3} in 
-  withCString a4 $ \a4' -> 
-  setUseBaseKeyFrame'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getUseBaseKeyFrame -}
-getUseBaseKeyFrame :: HG3DClass -> IO (Bool)
-getUseBaseKeyFrame a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseBaseKeyFrame'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getBaseKeyFrameTime -}
-getBaseKeyFrameTime :: HG3DClass -> IO (Float)
-getBaseKeyFrameTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBaseKeyFrameTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getBaseKeyFrameAnimationName -}
-getBaseKeyFrameAnimationName :: HG3DClass -> IO (String)
-getBaseKeyFrameAnimationName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getBaseKeyFrameAnimationName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setDefaultInterpolationMode -}
-setDefaultInterpolationMode :: EnumAnimationInterpolationMode -> IO ()
-setDefaultInterpolationMode a1 =
-  let {a1' = cIntFromEnum a1} in 
-  setDefaultInterpolationMode'_ a1' >>= \res ->
-  return ()
-{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getDefaultInterpolationMode -}
-getDefaultInterpolationMode :: IO (EnumAnimationInterpolationMode)
-getDefaultInterpolationMode =
-  alloca $ \a1' -> 
-  getDefaultInterpolationMode'_ a1' >>= \res ->
-  peekEnumUtil  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function setDefaultRotationInterpolationMode -}
-setDefaultRotationInterpolationMode :: EnumAnimationRotationInterpolationMode -> IO ()
-setDefaultRotationInterpolationMode a1 =
-  let {a1' = cIntFromEnum a1} in 
-  setDefaultRotationInterpolationMode'_ a1' >>= \res ->
-  return ()
-{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-{- function getDefaultRotationInterpolationMode -}
-getDefaultRotationInterpolationMode :: IO (EnumAnimationRotationInterpolationMode)
-getDefaultRotationInterpolationMode =
-  alloca $ \a1' -> 
-  getDefaultRotationInterpolationMode'_ a1' >>= \res ->
-  peekEnumUtil  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 276 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getLength"
-  getLength'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setLength"
-  setLength'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNodeTrack"
-  createNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNumericTrack"
-  createNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createVertexTrack"
-  createVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_createNodeTrack2"
-  createNodeTrack2'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumNodeTracks"
-  getNumNodeTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNodeTrack"
-  getNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasNodeTrack"
-  hasNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumNumericTracks"
-  getNumNumericTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumericTrack"
-  getNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasNumericTrack"
-  hasNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getNumVertexTracks"
-  getNumVertexTracks'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getVertexTrack"
-  getVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_hasVertexTrack"
-  hasVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyNodeTrack"
-  destroyNodeTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyNumericTrack"
-  destroyNumericTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyVertexTrack"
-  destroyVertexTrack'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllTracks"
-  destroyAllTracks'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllNodeTracks"
-  destroyAllNodeTracks'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllNumericTracks"
-  destroyAllNumericTracks'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destroyAllVertexTracks"
-  destroyAllVertexTracks'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply"
-  apply'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_applyToNode"
-  applyToNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply2"
-  apply2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_apply4"
-  apply4'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CInt -> (CInt -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setInterpolationMode"
-  setInterpolationMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getInterpolationMode"
-  getInterpolationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setRotationInterpolationMode"
-  setRotationInterpolationMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getRotationInterpolationMode"
-  getRotationInterpolationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_optimise"
-  optimise'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_clone"
-  clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setUseBaseKeyFrame"
-  setUseBaseKeyFrame'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getUseBaseKeyFrame"
-  getUseBaseKeyFrame'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getBaseKeyFrameTime"
-  getBaseKeyFrameTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getBaseKeyFrameAnimationName"
-  getBaseKeyFrameAnimationName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setDefaultInterpolationMode"
-  setDefaultInterpolationMode'_ :: (CInt -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getDefaultInterpolationMode"
-  getDefaultInterpolationMode'_ :: ((Ptr CInt) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_setDefaultRotationInterpolationMode"
-  setDefaultRotationInterpolationMode'_ :: (CInt -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_getDefaultRotationInterpolationMode"
-  getDefaultRotationInterpolationMode'_ :: ((Ptr CInt) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassAnimationState.chs view
@@ -0,0 +1,159 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassAnimationState.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassAnimationState where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassAnimationState.h"
+{- function AnimationState -}+{#fun ogre_anms_construct as new +{ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~AnimationState -}+{#fun ogre_anms_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getAnimationName -}+{#fun ogre_anms_getAnimationName as getAnimationName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTimePosition -}+{#fun ogre_anms_getTimePosition as getTimePosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setTimePosition -}+{#fun ogre_anms_setTimePosition as setTimePosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getLength -}+{#fun ogre_anms_getLength as getLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setLength -}+{#fun ogre_anms_setLength as setLength +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getWeight -}+{#fun ogre_anms_getWeight as getWeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setWeight -}+{#fun ogre_anms_setWeight as setWeight +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function addTime -}+{#fun ogre_anms_addTime as addTime +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function hasEnded -}+{#fun ogre_anms_hasEnded as hasEnded +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getEnabled -}+{#fun ogre_anms_getEnabled as getEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setEnabled -}+{#fun ogre_anms_setEnabled as setEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setLoop -}+{#fun ogre_anms_setLoop as setLoop +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getLoop -}+{#fun ogre_anms_getLoop as getLoop +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function copyStateFrom -}+{#fun ogre_anms_copyStateFrom as copyStateFrom +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getParent -}+{#fun ogre_anms_getParent as getParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBlendMask -}+{#fun ogre_anms_createBlendMask as createBlendMask +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ realToFrac `Float' } -> `()'  #}++{- function destroyBlendMask -}+{#fun ogre_anms_destroyBlendMask as destroyBlendMask +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasBlendMask -}+{#fun ogre_anms_hasBlendMask as hasBlendMask +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setBlendMaskEntry -}+{#fun ogre_anms_setBlendMaskEntry as setBlendMaskEntry +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ realToFrac `Float' } -> `()'  #}++{- function getBlendMaskEntry -}+{#fun ogre_anms_getBlendMaskEntry as getBlendMaskEntry +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassAnimationState.hs 
@@ -1,333 +0,0 @@--- 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\\ClassAnimationState.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassAnimationState.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassAnimationState where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function AnimationState -}
-new :: String -> HG3DClass -> Float -> Float -> Float -> Bool -> IO (HG3DClass)
-new a1 a2 a3 a4 a5 a6 =
-  withCString a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  let {a6' = fromBool a6} in 
-  alloca $ \a7' -> 
-  new'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
-  peek  a7'>>= \a7'' -> 
-  return (a7'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function ~AnimationState -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getAnimationName -}
-getAnimationName :: HG3DClass -> IO (String)
-getAnimationName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getAnimationName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getTimePosition -}
-getTimePosition :: HG3DClass -> IO (Float)
-getTimePosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTimePosition'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setTimePosition -}
-setTimePosition :: HG3DClass -> Float -> IO ()
-setTimePosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setTimePosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getLength -}
-getLength :: HG3DClass -> IO (Float)
-getLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLength'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setLength -}
-setLength :: HG3DClass -> Float -> IO ()
-setLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getWeight -}
-getWeight :: HG3DClass -> IO (Float)
-getWeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setWeight -}
-setWeight :: HG3DClass -> Float -> IO ()
-setWeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setWeight'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function addTime -}
-addTime :: HG3DClass -> Float -> IO ()
-addTime a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  addTime'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function hasEnded -}
-hasEnded :: HG3DClass -> IO (Bool)
-hasEnded a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasEnded'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getEnabled -}
-getEnabled :: HG3DClass -> IO (Bool)
-getEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setEnabled -}
-setEnabled :: HG3DClass -> Bool -> IO ()
-setEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setLoop -}
-setLoop :: HG3DClass -> Bool -> IO ()
-setLoop a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setLoop'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getLoop -}
-getLoop :: HG3DClass -> IO (Bool)
-getLoop a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLoop'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function copyStateFrom -}
-copyStateFrom :: HG3DClass -> HG3DClass -> IO ()
-copyStateFrom a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  copyStateFrom'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getParent -}
-getParent :: HG3DClass -> IO (HG3DClass)
-getParent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParent'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function createBlendMask -}
-createBlendMask :: HG3DClass -> Int -> Float -> IO ()
-createBlendMask a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = realToFrac a3} in 
-  createBlendMask'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function destroyBlendMask -}
-destroyBlendMask :: HG3DClass -> IO ()
-destroyBlendMask a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyBlendMask'_ a1' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function hasBlendMask -}
-hasBlendMask :: HG3DClass -> IO (Bool)
-hasBlendMask a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasBlendMask'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function setBlendMaskEntry -}
-setBlendMaskEntry :: HG3DClass -> Int -> Float -> IO ()
-setBlendMaskEntry a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = realToFrac a3} in 
-  setBlendMaskEntry'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-{- function getBlendMaskEntry -}
-getBlendMaskEntry :: HG3DClass -> Int -> IO (Float)
-getBlendMaskEntry a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getBlendMaskEntry'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> ((HG3DClassPtr) -> (IO ()))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getAnimationName"
-  getAnimationName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getTimePosition"
-  getTimePosition'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setTimePosition"
-  setTimePosition'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getLength"
-  getLength'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setLength"
-  setLength'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getWeight"
-  getWeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setWeight"
-  setWeight'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_addTime"
-  addTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_hasEnded"
-  hasEnded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getEnabled"
-  getEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setEnabled"
-  setEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setLoop"
-  setLoop'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getLoop"
-  getLoop'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_copyStateFrom"
-  copyStateFrom'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getParent"
-  getParent'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_createBlendMask"
-  createBlendMask'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_destroyBlendMask"
-  destroyBlendMask'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_hasBlendMask"
-  hasBlendMask'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_setBlendMaskEntry"
-  setBlendMaskEntry'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_getBlendMaskEntry"
-  getBlendMaskEntry'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CFloat) -> (IO ()))))
+ HGamer3D/Bindings/Ogre/ClassAnimationStateSet.chs view
@@ -0,0 +1,88 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassAnimationStateSet.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassAnimationStateSet where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassAnimationStateSet.h"
+{- function ~AnimationStateSet -}+{#fun ogre_ass_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createAnimationState -}+{#fun ogre_ass_createAnimationState as createAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimationState -}+{#fun ogre_ass_getAnimationState as getAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimationState -}+{#fun ogre_ass_hasAnimationState as hasAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeAnimationState -}+{#fun ogre_ass_removeAnimationState as removeAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeAllAnimationStates -}+{#fun ogre_ass_removeAllAnimationStates as removeAllAnimationStates +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function copyMatchingState -}+{#fun ogre_ass_copyMatchingState as copyMatchingState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasEnabledAnimationState -}+{#fun ogre_ass_hasEnabledAnimationState as hasEnabledAnimationState +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassAnimationStateSet.hs 
@@ -1,157 +0,0 @@--- 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\\ClassAnimationStateSet.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassAnimationStateSet.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassAnimationStateSet where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function ~AnimationStateSet -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function createAnimationState -}
-createAnimationState :: HG3DClass -> String -> Float -> Float -> Float -> Bool -> IO (HG3DClass)
-createAnimationState a1 a2 a3 a4 a5 a6 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  let {a6' = fromBool a6} in 
-  alloca $ \a7' -> 
-  createAnimationState'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
-  peek  a7'>>= \a7'' -> 
-  return (a7'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function getAnimationState -}
-getAnimationState :: HG3DClass -> String -> IO (HG3DClass)
-getAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimationState'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function hasAnimationState -}
-hasAnimationState :: HG3DClass -> String -> IO (Bool)
-hasAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimationState'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function removeAnimationState -}
-removeAnimationState :: HG3DClass -> String -> IO ()
-removeAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeAnimationState'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function removeAllAnimationStates -}
-removeAllAnimationStates :: HG3DClass -> IO ()
-removeAllAnimationStates a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllAnimationStates'_ a1' >>= \res ->
-  return ()
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function copyMatchingState -}
-copyMatchingState :: HG3DClass -> HG3DClass -> IO ()
-copyMatchingState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  copyMatchingState'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-{- function hasEnabledAnimationState -}
-hasEnabledAnimationState :: HG3DClass -> IO (Bool)
-hasEnabledAnimationState a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasEnabledAnimationState'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_createAnimationState"
-  createAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> ((HG3DClassPtr) -> (IO ()))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_getAnimationState"
-  getAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_hasAnimationState"
-  hasAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_removeAnimationState"
-  removeAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_removeAllAnimationStates"
-  removeAllAnimationStates'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_copyMatchingState"
-  copyMatchingState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_hasEnabledAnimationState"
-  hasEnabledAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassAnimationTrack.chs view
@@ -0,0 +1,87 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassAnimationTrack.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassAnimationTrack where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassAnimationTrack.h"
+{- function ~AnimationTrack -}+{#fun ogre_at_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getHandle -}+{#fun ogre_at_getHandle as getHandle +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNumKeyFrames -}+{#fun ogre_at_getNumKeyFrames as getNumKeyFrames +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function removeKeyFrame -}+{#fun ogre_at_removeKeyFrame as removeKeyFrame +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeAllKeyFrames -}+{#fun ogre_at_removeAllKeyFrames as removeAllKeyFrames +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function apply -}+{#fun ogre_at_apply as apply +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function hasNonZeroKeyFrames -}+{#fun ogre_at_hasNonZeroKeyFrames as hasNonZeroKeyFrames +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function optimise -}+{#fun ogre_at_optimise as optimise +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getParent -}+{#fun ogre_at_getParent as getParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassAnimationTrack.hs 
@@ -1,163 +0,0 @@--- 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\\ClassAnimationTrack.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassAnimationTrack.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassAnimationTrack where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function ~AnimationTrack -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function getHandle -}
-getHandle :: HG3DClass -> IO (Int)
-getHandle a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHandle'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function getNumKeyFrames -}
-getNumKeyFrames :: HG3DClass -> IO (Int)
-getNumKeyFrames a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumKeyFrames'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function removeKeyFrame -}
-removeKeyFrame :: HG3DClass -> Int -> IO ()
-removeKeyFrame a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeKeyFrame'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function removeAllKeyFrames -}
-removeAllKeyFrames :: HG3DClass -> IO ()
-removeAllKeyFrames a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllKeyFrames'_ a1' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function apply -}
-apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO ()
-apply a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  apply'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function hasNonZeroKeyFrames -}
-hasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
-hasNonZeroKeyFrames a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasNonZeroKeyFrames'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function optimise -}
-optimise :: HG3DClass -> IO ()
-optimise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  optimise'_ a1' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-{- function getParent -}
-getParent :: HG3DClass -> IO (HG3DClass)
-getParent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParent'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_getHandle"
-  getHandle'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_getNumKeyFrames"
-  getNumKeyFrames'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_removeKeyFrame"
-  removeKeyFrame'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_removeAllKeyFrames"
-  removeAllKeyFrames'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_apply"
-  apply'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_hasNonZeroKeyFrames"
-  hasNonZeroKeyFrames'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_optimise"
-  optimise'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_getParent"
-  getParent'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassArchive.chs view
@@ -0,0 +1,86 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassArchive.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassArchive where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassArchive.h"
+{- function ~Archive -}+{#fun ogre_arch_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_arch_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isCaseSensitive -}+{#fun ogre_arch_isCaseSensitive as isCaseSensitive +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function load -}+{#fun ogre_arch_load as load +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unload -}+{#fun ogre_arch_unload as unload +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isReadOnly -}+{#fun ogre_arch_isReadOnly as isReadOnly +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function remove -}+{#fun ogre_arch_remove as remove +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function exists -}+{#fun ogre_arch_exists as exists +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getType -}+{#fun ogre_arch_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassArchive.hs 
@@ -1,163 +0,0 @@--- 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\\ClassArchive.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassArchive.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassArchive where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function ~Archive -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function isCaseSensitive -}
-isCaseSensitive :: HG3DClass -> IO (Bool)
-isCaseSensitive a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isCaseSensitive'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function load -}
-load :: HG3DClass -> IO ()
-load a1 =
-  withHG3DClass a1 $ \a1' -> 
-  load'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function unload -}
-unload :: HG3DClass -> IO ()
-unload a1 =
-  withHG3DClass a1 $ \a1' -> 
-  unload'_ a1' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function isReadOnly -}
-isReadOnly :: HG3DClass -> IO (Bool)
-isReadOnly a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReadOnly'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function remove -}
-remove :: HG3DClass -> String -> IO ()
-remove a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  remove'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function exists -}
-exists :: HG3DClass -> String -> IO (Bool)
-exists a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  exists'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_isCaseSensitive"
-  isCaseSensitive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_load"
-  load'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_unload"
-  unload'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_isReadOnly"
-  isReadOnly'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_remove"
-  remove'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_exists"
-  exists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassArchiveManager.chs view
@@ -0,0 +1,72 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassArchiveManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassArchiveManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassArchiveManager.h"
+{- function ~ArchiveManager -}+{#fun ogre_archm_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function load -}+{#fun ogre_archm_load as load +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function unload -}+{#fun ogre_archm_unload as unload +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unload2 -}+{#fun ogre_archm_unload2 as unload2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_archm_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_archm_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassArchiveManager.hs 
@@ -1,126 +0,0 @@--- 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\\ClassArchiveManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassArchiveManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassArchiveManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function ~ArchiveManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function load -}
-load :: HG3DClass -> String -> String -> IO (HG3DClass)
-load a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  load'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function unload -}
-unload :: HG3DClass -> HG3DClass -> IO ()
-unload a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  unload'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function unload2 -}
-unload2 :: HG3DClass -> String -> IO ()
-unload2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  unload2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_load"
-  load'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_unload"
-  unload'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_unload2"
-  unload2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassBillboard.chs view
@@ -0,0 +1,139 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBillboard.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBillboard where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructRadians #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+
+#include "ClassBillboard.h"
+{- function Billboard -}+{#fun ogre_bbd_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Billboard -}+{#fun ogre_bbd_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getRotation -}+{#fun ogre_bbd_getRotation as getRotation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Radians' peekRadians*} -> `()'  #}++{- function setRotation -}+{#fun ogre_bbd_setRotation as setRotation +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function setPosition -}+{#fun ogre_bbd_setPosition as setPosition +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function setPosition2 -}+{#fun ogre_bbd_setPosition2 as setPosition2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function getPosition -}+{#fun ogre_bbd_getPosition as getPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setDimensions -}+{#fun ogre_bbd_setDimensions as setDimensions +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function resetDimensions -}+{#fun ogre_bbd_resetDimensions as resetDimensions +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setColour -}+{#fun ogre_bbd_setColour as setColour +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getColour -}+{#fun ogre_bbd_getColour as getColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function hasOwnDimensions -}+{#fun ogre_bbd_hasOwnDimensions as hasOwnDimensions +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getOwnWidth -}+{#fun ogre_bbd_getOwnWidth as getOwnWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getOwnHeight -}+{#fun ogre_bbd_getOwnHeight as getOwnHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isUseTexcoordRect -}+{#fun ogre_bbd_isUseTexcoordRect as isUseTexcoordRect +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setTexcoordIndex -}+{#fun ogre_bbd_setTexcoordIndex as setTexcoordIndex +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getTexcoordIndex -}+{#fun ogre_bbd_getTexcoordIndex as getTexcoordIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setTexcoordRect2 -}+{#fun ogre_bbd_setTexcoordRect2 as setTexcoordRect2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBillboard.hs 
@@ -1,286 +0,0 @@--- 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\\ClassBillboard.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBillboard.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBillboard where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.StructRadians
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function Billboard -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function ~Billboard -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getRotation -}
-getRotation :: HG3DClass -> IO (Radians)
-getRotation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRotation'_ a1' a2' >>= \res ->
-  peekRadians  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setRotation -}
-setRotation :: HG3DClass -> Radians -> IO ()
-setRotation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  setRotation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setPosition -}
-setPosition :: HG3DClass -> Vec3 -> IO ()
-setPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setPosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setPosition2 -}
-setPosition2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-setPosition2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setPosition2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getPosition -}
-getPosition :: HG3DClass -> IO (Vec3)
-getPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setDimensions -}
-setDimensions :: HG3DClass -> Float -> Float -> IO ()
-setDimensions a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setDimensions'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function resetDimensions -}
-resetDimensions :: HG3DClass -> IO ()
-resetDimensions a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetDimensions'_ a1' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setColour -}
-setColour :: HG3DClass -> Colour -> IO ()
-setColour a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setColour'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getColour -}
-getColour :: HG3DClass -> IO (Colour)
-getColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function hasOwnDimensions -}
-hasOwnDimensions :: HG3DClass -> IO (Bool)
-hasOwnDimensions a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasOwnDimensions'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getOwnWidth -}
-getOwnWidth :: HG3DClass -> IO (Float)
-getOwnWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOwnWidth'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getOwnHeight -}
-getOwnHeight :: HG3DClass -> IO (Float)
-getOwnHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOwnHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function isUseTexcoordRect -}
-isUseTexcoordRect :: HG3DClass -> IO (Bool)
-isUseTexcoordRect a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isUseTexcoordRect'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setTexcoordIndex -}
-setTexcoordIndex :: HG3DClass -> Int -> IO ()
-setTexcoordIndex a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setTexcoordIndex'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function getTexcoordIndex -}
-getTexcoordIndex :: HG3DClass -> IO (Int)
-getTexcoordIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTexcoordIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-{- function setTexcoordRect2 -}
-setTexcoordRect2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setTexcoordRect2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setTexcoordRect2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getRotation"
-  getRotation'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setRotation"
-  setRotation'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setPosition"
-  setPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setPosition2"
-  setPosition2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getPosition"
-  getPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setDimensions"
-  setDimensions'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_resetDimensions"
-  resetDimensions'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setColour"
-  setColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getColour"
-  getColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_hasOwnDimensions"
-  hasOwnDimensions'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getOwnWidth"
-  getOwnWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getOwnHeight"
-  getOwnHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_isUseTexcoordRect"
-  isUseTexcoordRect'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setTexcoordIndex"
-  setTexcoordIndex'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_getTexcoordIndex"
-  getTexcoordIndex'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_setTexcoordRect2"
-  setTexcoordRect2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
+ HGamer3D/Bindings/Ogre/ClassBillboardChain.chs view
@@ -0,0 +1,181 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBillboardChain.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBillboardChain where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+
+#include "ClassBillboardChain.h"
+{- function ~BillboardChain -}+{#fun ogre_bbdc_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setMaxChainElements -}+{#fun ogre_bbdc_setMaxChainElements as setMaxChainElements +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getMaxChainElements -}+{#fun ogre_bbdc_getMaxChainElements as getMaxChainElements +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setNumberOfChains -}+{#fun ogre_bbdc_setNumberOfChains as setNumberOfChains +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getNumberOfChains -}+{#fun ogre_bbdc_getNumberOfChains as getNumberOfChains +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setUseTextureCoords -}+{#fun ogre_bbdc_setUseTextureCoords as setUseTextureCoords +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseTextureCoords -}+{#fun ogre_bbdc_getUseTextureCoords as getUseTextureCoords +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setTextureCoordDirection -}+{#fun ogre_bbdc_setTextureCoordDirection as setTextureCoordDirection +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumBillboardChainTexCoordDirection' } -> `()'  #}++{- function getTextureCoordDirection -}+{#fun ogre_bbdc_getTextureCoordDirection as getTextureCoordDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumBillboardChainTexCoordDirection' peekEnumUtil*} -> `()'  #}++{- function setOtherTextureCoordRange -}+{#fun ogre_bbdc_setOtherTextureCoordRange as setOtherTextureCoordRange +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setUseVertexColours -}+{#fun ogre_bbdc_setUseVertexColours as setUseVertexColours +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseVertexColours -}+{#fun ogre_bbdc_getUseVertexColours as getUseVertexColours +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDynamic -}+{#fun ogre_bbdc_setDynamic as setDynamic +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getDynamic -}+{#fun ogre_bbdc_getDynamic as getDynamic +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeChainElement -}+{#fun ogre_bbdc_removeChainElement as removeChainElement +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getNumChainElements -}+{#fun ogre_bbdc_getNumChainElements as getNumChainElements +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function clearChain -}+{#fun ogre_bbdc_clearChain as clearChain +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function clearAllChains -}+{#fun ogre_bbdc_clearAllChains as clearAllChains +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setFaceCamera -}+{#fun ogre_bbdc_setFaceCamera as setFaceCamera +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getMaterialName -}+{#fun ogre_bbdc_getMaterialName as getMaterialName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setMaterialName -}+{#fun ogre_bbdc_setMaterialName as setMaterialName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_bbdc_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_bbdc_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMaterial -}+{#fun ogre_bbdc_getMaterial as getMaterial +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_bbdc_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function preRender -}+{#fun ogre_bbdc_preRender as preRender +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBillboardChain.hs 
@@ -1,388 +0,0 @@--- 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\\ClassBillboardChain.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBillboardChain.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBillboardChain where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function ~BillboardChain -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setMaxChainElements -}
-setMaxChainElements :: HG3DClass -> Int -> IO ()
-setMaxChainElements a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMaxChainElements'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getMaxChainElements -}
-getMaxChainElements :: HG3DClass -> IO (Int)
-getMaxChainElements a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaxChainElements'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setNumberOfChains -}
-setNumberOfChains :: HG3DClass -> Int -> IO ()
-setNumberOfChains a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setNumberOfChains'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getNumberOfChains -}
-getNumberOfChains :: HG3DClass -> IO (Int)
-getNumberOfChains a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumberOfChains'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setUseTextureCoords -}
-setUseTextureCoords :: HG3DClass -> Bool -> IO ()
-setUseTextureCoords a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseTextureCoords'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getUseTextureCoords -}
-getUseTextureCoords :: HG3DClass -> IO (Bool)
-getUseTextureCoords a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseTextureCoords'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setTextureCoordDirection -}
-setTextureCoordDirection :: HG3DClass -> EnumBillboardChainTexCoordDirection -> IO ()
-setTextureCoordDirection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setTextureCoordDirection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getTextureCoordDirection -}
-getTextureCoordDirection :: HG3DClass -> IO (EnumBillboardChainTexCoordDirection)
-getTextureCoordDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTextureCoordDirection'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setOtherTextureCoordRange -}
-setOtherTextureCoordRange :: HG3DClass -> Float -> Float -> IO ()
-setOtherTextureCoordRange a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setOtherTextureCoordRange'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setUseVertexColours -}
-setUseVertexColours :: HG3DClass -> Bool -> IO ()
-setUseVertexColours a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseVertexColours'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getUseVertexColours -}
-getUseVertexColours :: HG3DClass -> IO (Bool)
-getUseVertexColours a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseVertexColours'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setDynamic -}
-setDynamic :: HG3DClass -> Bool -> IO ()
-setDynamic a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDynamic'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getDynamic -}
-getDynamic :: HG3DClass -> IO (Bool)
-getDynamic a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDynamic'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function removeChainElement -}
-removeChainElement :: HG3DClass -> Int -> IO ()
-removeChainElement a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeChainElement'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getNumChainElements -}
-getNumChainElements :: HG3DClass -> Int -> IO (Int)
-getNumChainElements a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getNumChainElements'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function clearChain -}
-clearChain :: HG3DClass -> Int -> IO ()
-clearChain a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  clearChain'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function clearAllChains -}
-clearAllChains :: HG3DClass -> IO ()
-clearAllChains a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearAllChains'_ a1' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setFaceCamera -}
-setFaceCamera :: HG3DClass -> Bool -> Vec3 -> IO ()
-setFaceCamera a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withVec3 a3 $ \a3' -> 
-  setFaceCamera'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getMaterialName -}
-getMaterialName :: HG3DClass -> IO (String)
-getMaterialName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMaterialName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function setMaterialName -}
-setMaterialName :: HG3DClass -> String -> String -> IO ()
-setMaterialName a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setMaterialName'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getMaterial -}
-getMaterial :: HG3DClass -> IO (SharedPtr)
-getMaterial a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaterial'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-{- function preRender -}
-preRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO (Bool)
-preRender a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  preRender'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setMaxChainElements"
-  setMaxChainElements'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getMaxChainElements"
-  getMaxChainElements'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setNumberOfChains"
-  setNumberOfChains'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getNumberOfChains"
-  getNumberOfChains'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setUseTextureCoords"
-  setUseTextureCoords'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getUseTextureCoords"
-  getUseTextureCoords'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setTextureCoordDirection"
-  setTextureCoordDirection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getTextureCoordDirection"
-  getTextureCoordDirection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setOtherTextureCoordRange"
-  setOtherTextureCoordRange'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setUseVertexColours"
-  setUseVertexColours'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getUseVertexColours"
-  getUseVertexColours'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setDynamic"
-  setDynamic'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getDynamic"
-  getDynamic'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_removeChainElement"
-  removeChainElement'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getNumChainElements"
-  getNumChainElements'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_clearChain"
-  clearChain'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_clearAllChains"
-  clearAllChains'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setFaceCamera"
-  setFaceCamera'_ :: ((HG3DClassPtr) -> (CInt -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getMaterialName"
-  getMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_setMaterialName"
-  setMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getMaterial"
-  getMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_preRender"
-  preRender'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))))
+ HGamer3D/Bindings/Ogre/ClassBillboardChainFactory.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBillboardChainFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBillboardChainFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassBillboardChainFactory.h"
+{- function BillboardChainFactory -}+{#fun ogre_bbdcf_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~BillboardChainFactory -}+{#fun ogre_bbdcf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_bbdcf_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_bbdcf_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBillboardChainFactory.hs 
@@ -1,100 +0,0 @@--- 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\\ClassBillboardChainFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBillboardChainFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBillboardChainFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-
-{- function BillboardChainFactory -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-
-{- function ~BillboardChainFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs.h ogre_bbdcf_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs.h ogre_bbdcf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs.h ogre_bbdcf_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs.h ogre_bbdcf_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassBillboardSet.chs view
@@ -0,0 +1,312 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBillboardSet.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBillboardSet where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.EnumBillboardOrigin #}+{# import HGamer3D.Bindings.Ogre.EnumBillboardRotationType #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.EnumBillboardType #}+
+#include "ClassBillboardSet.h"
+{- function BillboardSet2 -}+{#fun ogre_bbs_construct as new +{ withCString* `String' ,+ fromIntegral `Int' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~BillboardSet -}+{#fun ogre_bbs_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createBillboard -}+{#fun ogre_bbs_createBillboard as createBillboard +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ withColour* `Colour' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBillboard2 -}+{#fun ogre_bbs_createBillboard2 as createBillboard2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ withColour* `Colour' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumBillboards -}+{#fun ogre_bbs_getNumBillboards as getNumBillboards +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setAutoextend -}+{#fun ogre_bbs_setAutoextend as setAutoextend +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getAutoextend -}+{#fun ogre_bbs_getAutoextend as getAutoextend +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSortingEnabled -}+{#fun ogre_bbs_setSortingEnabled as setSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getSortingEnabled -}+{#fun ogre_bbs_getSortingEnabled as getSortingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setPoolSize -}+{#fun ogre_bbs_setPoolSize as setPoolSize +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getPoolSize -}+{#fun ogre_bbs_getPoolSize as getPoolSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function clear -}+{#fun ogre_bbs_clear as clear +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getBillboard -}+{#fun ogre_bbs_getBillboard as getBillboard +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeBillboard -}+{#fun ogre_bbs_removeBillboard as removeBillboard +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeBillboard2 -}+{#fun ogre_bbs_removeBillboard2 as removeBillboard2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setBillboardOrigin -}+{#fun ogre_bbs_setBillboardOrigin as setBillboardOrigin +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumBillboardOrigin' } -> `()'  #}++{- function getBillboardOrigin -}+{#fun ogre_bbs_getBillboardOrigin as getBillboardOrigin +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumBillboardOrigin' peekEnumUtil*} -> `()'  #}++{- function setBillboardRotationType -}+{#fun ogre_bbs_setBillboardRotationType as setBillboardRotationType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumBillboardRotationType' } -> `()'  #}++{- function getBillboardRotationType -}+{#fun ogre_bbs_getBillboardRotationType as getBillboardRotationType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumBillboardRotationType' peekEnumUtil*} -> `()'  #}++{- function setDefaultDimensions -}+{#fun ogre_bbs_setDefaultDimensions as setDefaultDimensions +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setDefaultWidth -}+{#fun ogre_bbs_setDefaultWidth as setDefaultWidth +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDefaultWidth -}+{#fun ogre_bbs_getDefaultWidth as getDefaultWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setDefaultHeight -}+{#fun ogre_bbs_setDefaultHeight as setDefaultHeight +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDefaultHeight -}+{#fun ogre_bbs_getDefaultHeight as getDefaultHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setMaterialName -}+{#fun ogre_bbs_setMaterialName as setMaterialName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function getMaterialName -}+{#fun ogre_bbs_getMaterialName as getMaterialName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function beginBillboards -}+{#fun ogre_bbs_beginBillboards as beginBillboards +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function injectBillboard -}+{#fun ogre_bbs_injectBillboard as injectBillboard +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function endBillboards -}+{#fun ogre_bbs_endBillboards as endBillboards +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_bbs_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMaterial -}+{#fun ogre_bbs_getMaterial as getMaterial +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function setMaterial -}+{#fun ogre_bbs_setMaterial as setMaterial +{ withHG3DClass* `HG3DClass' ,+ withSharedPtr* `SharedPtr' } -> `()'  #}++{- function getCullIndividually -}+{#fun ogre_bbs_getCullIndividually as getCullIndividually +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setCullIndividually -}+{#fun ogre_bbs_setCullIndividually as setCullIndividually +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setBillboardType -}+{#fun ogre_bbs_setBillboardType as setBillboardType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumBillboardType' } -> `()'  #}++{- function getBillboardType -}+{#fun ogre_bbs_getBillboardType as getBillboardType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumBillboardType' peekEnumUtil*} -> `()'  #}++{- function setCommonDirection -}+{#fun ogre_bbs_setCommonDirection as setCommonDirection +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getCommonDirection -}+{#fun ogre_bbs_getCommonDirection as getCommonDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setCommonUpVector -}+{#fun ogre_bbs_setCommonUpVector as setCommonUpVector +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getCommonUpVector -}+{#fun ogre_bbs_getCommonUpVector as getCommonUpVector +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setUseAccurateFacing -}+{#fun ogre_bbs_setUseAccurateFacing as setUseAccurateFacing +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseAccurateFacing -}+{#fun ogre_bbs_getUseAccurateFacing as getUseAccurateFacing +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_bbs_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_bbs_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setBillboardsInWorldSpace -}+{#fun ogre_bbs_setBillboardsInWorldSpace as setBillboardsInWorldSpace +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setPointRenderingEnabled -}+{#fun ogre_bbs_setPointRenderingEnabled as setPointRenderingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isPointRenderingEnabled -}+{#fun ogre_bbs_isPointRenderingEnabled as isPointRenderingEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTypeFlags -}+{#fun ogre_bbs_getTypeFlags as getTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setAutoUpdate -}+{#fun ogre_bbs_setAutoUpdate as setAutoUpdate +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getAutoUpdate -}+{#fun ogre_bbs_getAutoUpdate as getAutoUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function notifyBillboardDataChanged -}+{#fun ogre_bbs_notifyBillboardDataChanged as notifyBillboardDataChanged +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBillboardSet.hs 
@@ -1,709 +0,0 @@--- 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\\ClassBillboardSet.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBillboardSet.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBillboardSet where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumBillboardOrigin
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumBillboardRotationType
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumBillboardType
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function BillboardSet2 -}
-new :: String -> Int -> Bool -> IO (HG3DClass)
-new a1 a2 a3 =
-  withCString a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromBool a3} in 
-  alloca $ \a4' -> 
-  new'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function ~BillboardSet -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function createBillboard -}
-createBillboard :: HG3DClass -> Vec3 -> Colour -> IO (HG3DClass)
-createBillboard a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  withColour a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createBillboard'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function createBillboard2 -}
-createBillboard2 :: HG3DClass -> Float -> Float -> Float -> Colour -> IO (HG3DClass)
-createBillboard2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  withColour a5 $ \a5' -> 
-  alloca $ \a6' -> 
-  createBillboard2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peek  a6'>>= \a6'' -> 
-  return (a6'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getNumBillboards -}
-getNumBillboards :: HG3DClass -> IO (Int)
-getNumBillboards a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumBillboards'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setAutoextend -}
-setAutoextend :: HG3DClass -> Bool -> IO ()
-setAutoextend a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoextend'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getAutoextend -}
-getAutoextend :: HG3DClass -> IO (Bool)
-getAutoextend a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoextend'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setSortingEnabled -}
-setSortingEnabled :: HG3DClass -> Bool -> IO ()
-setSortingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSortingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getSortingEnabled -}
-getSortingEnabled :: HG3DClass -> IO (Bool)
-getSortingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSortingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setPoolSize -}
-setPoolSize :: HG3DClass -> Int -> IO ()
-setPoolSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setPoolSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getPoolSize -}
-getPoolSize :: HG3DClass -> IO (Int)
-getPoolSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPoolSize'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function clear -}
-clear :: HG3DClass -> IO ()
-clear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clear'_ a1' >>= \res ->
-  return ()
-{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getBillboard -}
-getBillboard :: HG3DClass -> Int -> IO (HG3DClass)
-getBillboard a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getBillboard'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function removeBillboard -}
-removeBillboard :: HG3DClass -> Int -> IO ()
-removeBillboard a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeBillboard'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function removeBillboard2 -}
-removeBillboard2 :: HG3DClass -> HG3DClass -> IO ()
-removeBillboard2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeBillboard2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setBillboardOrigin -}
-setBillboardOrigin :: HG3DClass -> EnumBillboardOrigin -> IO ()
-setBillboardOrigin a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setBillboardOrigin'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getBillboardOrigin -}
-getBillboardOrigin :: HG3DClass -> IO (EnumBillboardOrigin)
-getBillboardOrigin a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBillboardOrigin'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setBillboardRotationType -}
-setBillboardRotationType :: HG3DClass -> EnumBillboardRotationType -> IO ()
-setBillboardRotationType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setBillboardRotationType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getBillboardRotationType -}
-getBillboardRotationType :: HG3DClass -> IO (EnumBillboardRotationType)
-getBillboardRotationType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBillboardRotationType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setDefaultDimensions -}
-setDefaultDimensions :: HG3DClass -> Float -> Float -> IO ()
-setDefaultDimensions a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setDefaultDimensions'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setDefaultWidth -}
-setDefaultWidth :: HG3DClass -> Float -> IO ()
-setDefaultWidth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDefaultWidth'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getDefaultWidth -}
-getDefaultWidth :: HG3DClass -> IO (Float)
-getDefaultWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultWidth'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setDefaultHeight -}
-setDefaultHeight :: HG3DClass -> Float -> IO ()
-setDefaultHeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDefaultHeight'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getDefaultHeight -}
-getDefaultHeight :: HG3DClass -> IO (Float)
-getDefaultHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setMaterialName -}
-setMaterialName :: HG3DClass -> String -> String -> IO ()
-setMaterialName a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setMaterialName'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getMaterialName -}
-getMaterialName :: HG3DClass -> IO (String)
-getMaterialName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMaterialName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function beginBillboards -}
-beginBillboards :: HG3DClass -> Int -> IO ()
-beginBillboards a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  beginBillboards'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function injectBillboard -}
-injectBillboard :: HG3DClass -> HG3DClass -> IO ()
-injectBillboard a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  injectBillboard'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function endBillboards -}
-endBillboards :: HG3DClass -> IO ()
-endBillboards a1 =
-  withHG3DClass a1 $ \a1' -> 
-  endBillboards'_ a1' >>= \res ->
-  return ()
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getMaterial -}
-getMaterial :: HG3DClass -> IO (SharedPtr)
-getMaterial a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaterial'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setMaterial -}
-setMaterial :: HG3DClass -> SharedPtr -> IO ()
-setMaterial a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withSharedPtr a2 $ \a2' -> 
-  setMaterial'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getCullIndividually -}
-getCullIndividually :: HG3DClass -> IO (Bool)
-getCullIndividually a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCullIndividually'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setCullIndividually -}
-setCullIndividually :: HG3DClass -> Bool -> IO ()
-setCullIndividually a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setCullIndividually'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setBillboardType -}
-setBillboardType :: HG3DClass -> EnumBillboardType -> IO ()
-setBillboardType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setBillboardType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getBillboardType -}
-getBillboardType :: HG3DClass -> IO (EnumBillboardType)
-getBillboardType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBillboardType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setCommonDirection -}
-setCommonDirection :: HG3DClass -> Vec3 -> IO ()
-setCommonDirection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setCommonDirection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getCommonDirection -}
-getCommonDirection :: HG3DClass -> IO (Vec3)
-getCommonDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCommonDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setCommonUpVector -}
-setCommonUpVector :: HG3DClass -> Vec3 -> IO ()
-setCommonUpVector a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setCommonUpVector'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 254 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getCommonUpVector -}
-getCommonUpVector :: HG3DClass -> IO (Vec3)
-getCommonUpVector a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCommonUpVector'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setUseAccurateFacing -}
-setUseAccurateFacing :: HG3DClass -> Bool -> IO ()
-setUseAccurateFacing a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseAccurateFacing'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getUseAccurateFacing -}
-getUseAccurateFacing :: HG3DClass -> IO (Bool)
-getUseAccurateFacing a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseAccurateFacing'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setBillboardsInWorldSpace -}
-setBillboardsInWorldSpace :: HG3DClass -> Bool -> IO ()
-setBillboardsInWorldSpace a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setBillboardsInWorldSpace'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setPointRenderingEnabled -}
-setPointRenderingEnabled :: HG3DClass -> Bool -> IO ()
-setPointRenderingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setPointRenderingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function isPointRenderingEnabled -}
-isPointRenderingEnabled :: HG3DClass -> IO (Bool)
-isPointRenderingEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPointRenderingEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getTypeFlags -}
-getTypeFlags :: HG3DClass -> IO (Int)
-getTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTypeFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 300 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function setAutoUpdate -}
-setAutoUpdate :: HG3DClass -> Bool -> IO ()
-setAutoUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 305 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function getAutoUpdate -}
-getAutoUpdate :: HG3DClass -> IO (Bool)
-getAutoUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoUpdate'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 310 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-{- function notifyBillboardDataChanged -}
-notifyBillboardDataChanged :: HG3DClass -> IO ()
-notifyBillboardDataChanged a1 =
-  withHG3DClass a1 $ \a1' -> 
-  notifyBillboardDataChanged'_ a1' >>= \res ->
-  return ()
-{-# LINE 314 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_construct"
-  new'_ :: ((Ptr CChar) -> (CUInt -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_createBillboard"
-  createBillboard'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((ColourPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_createBillboard2"
-  createBillboard2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> ((ColourPtr) -> ((HG3DClassPtr) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getNumBillboards"
-  getNumBillboards'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setAutoextend"
-  setAutoextend'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getAutoextend"
-  getAutoextend'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setSortingEnabled"
-  setSortingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getSortingEnabled"
-  getSortingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setPoolSize"
-  setPoolSize'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getPoolSize"
-  getPoolSize'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_clear"
-  clear'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getBillboard"
-  getBillboard'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_removeBillboard"
-  removeBillboard'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_removeBillboard2"
-  removeBillboard2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setBillboardOrigin"
-  setBillboardOrigin'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getBillboardOrigin"
-  getBillboardOrigin'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setBillboardRotationType"
-  setBillboardRotationType'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getBillboardRotationType"
-  getBillboardRotationType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setDefaultDimensions"
-  setDefaultDimensions'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setDefaultWidth"
-  setDefaultWidth'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getDefaultWidth"
-  getDefaultWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setDefaultHeight"
-  setDefaultHeight'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getDefaultHeight"
-  getDefaultHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setMaterialName"
-  setMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getMaterialName"
-  getMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_beginBillboards"
-  beginBillboards'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_injectBillboard"
-  injectBillboard'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_endBillboards"
-  endBillboards'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getMaterial"
-  getMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setMaterial"
-  setMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getCullIndividually"
-  getCullIndividually'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setCullIndividually"
-  setCullIndividually'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setBillboardType"
-  setBillboardType'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getBillboardType"
-  getBillboardType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setCommonDirection"
-  setCommonDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getCommonDirection"
-  getCommonDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setCommonUpVector"
-  setCommonUpVector'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getCommonUpVector"
-  getCommonUpVector'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setUseAccurateFacing"
-  setUseAccurateFacing'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getUseAccurateFacing"
-  getUseAccurateFacing'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setBillboardsInWorldSpace"
-  setBillboardsInWorldSpace'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setPointRenderingEnabled"
-  setPointRenderingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_isPointRenderingEnabled"
-  isPointRenderingEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getTypeFlags"
-  getTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_setAutoUpdate"
-  setAutoUpdate'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_getAutoUpdate"
-  getAutoUpdate'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_notifyBillboardDataChanged"
-  notifyBillboardDataChanged'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassBillboardSetFactory.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBillboardSetFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBillboardSetFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassBillboardSetFactory.h"
+{- function BillboardSetFactory -}+{#fun ogre_bbsf_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~BillboardSetFactory -}+{#fun ogre_bbsf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_bbsf_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_bbsf_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBillboardSetFactory.hs 
@@ -1,100 +0,0 @@--- 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\\ClassBillboardSetFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBillboardSetFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBillboardSetFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-
-{- function BillboardSetFactory -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-
-{- function ~BillboardSetFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs.h ogre_bbsf_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs.h ogre_bbsf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs.h ogre_bbsf_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs.h ogre_bbsf_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassBone.chs view
@@ -0,0 +1,85 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassBone.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassBone where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+
+#include "ClassBone.h"
+{- function ~Bone -}+{#fun ogre_bn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createChild -}+{#fun ogre_bn_createChild as createChild +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withVec3* `Vec3' ,+ withQuaternion* `Quaternion' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getHandle -}+{#fun ogre_bn_getHandle as getHandle +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setBindingPose -}+{#fun ogre_bn_setBindingPose as setBindingPose +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function reset -}+{#fun ogre_bn_reset as reset +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setManuallyControlled -}+{#fun ogre_bn_setManuallyControlled as setManuallyControlled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isManuallyControlled -}+{#fun ogre_bn_isManuallyControlled as isManuallyControlled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function needUpdate -}+{#fun ogre_bn_needUpdate as needUpdate +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassBone.hs 
@@ -1,155 +0,0 @@--- 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\\ClassBone.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassBone.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassBone where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function ~Bone -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function createChild -}
-createChild :: HG3DClass -> Int -> Vec3 -> Quaternion -> IO (HG3DClass)
-createChild a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withVec3 a3 $ \a3' -> 
-  withQuaternion a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  createChild'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function getHandle -}
-getHandle :: HG3DClass -> IO (Int)
-getHandle a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHandle'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function setBindingPose -}
-setBindingPose :: HG3DClass -> IO ()
-setBindingPose a1 =
-  withHG3DClass a1 $ \a1' -> 
-  setBindingPose'_ a1' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function reset -}
-reset :: HG3DClass -> IO ()
-reset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  reset'_ a1' >>= \res ->
-  return ()
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function setManuallyControlled -}
-setManuallyControlled :: HG3DClass -> Bool -> IO ()
-setManuallyControlled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setManuallyControlled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function isManuallyControlled -}
-isManuallyControlled :: HG3DClass -> IO (Bool)
-isManuallyControlled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isManuallyControlled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-{- function needUpdate -}
-needUpdate :: HG3DClass -> Bool -> IO ()
-needUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  needUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_createChild"
-  createChild'_ :: ((HG3DClassPtr) -> (CUShort -> ((Vec3Ptr) -> ((QuaternionPtr) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_getHandle"
-  getHandle'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_setBindingPose"
-  setBindingPose'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_reset"
-  reset'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_setManuallyControlled"
-  setManuallyControlled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_isManuallyControlled"
-  isManuallyControlled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_needUpdate"
-  needUpdate'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassCamera.chs view
@@ -0,0 +1,364 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassCamera.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassCamera where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructRadians #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+{# import HGamer3D.Bindings.Ogre.EnumFrustumPlane #}+
+#include "ClassCamera.h"
+{- function Camera -}+{#fun ogre_cam_construct as new +{ withCString* `String' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Camera -}+{#fun ogre_cam_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSceneManager -}+{#fun ogre_cam_getSceneManager as getSceneManager +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setPosition -}+{#fun ogre_cam_setPosition as setPosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setPosition2 -}+{#fun ogre_cam_setPosition2 as setPosition2 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getPosition -}+{#fun ogre_cam_getPosition as getPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function move -}+{#fun ogre_cam_move as move +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function moveRelative -}+{#fun ogre_cam_moveRelative as moveRelative +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function setDirection -}+{#fun ogre_cam_setDirection as setDirection +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setDirection2 -}+{#fun ogre_cam_setDirection2 as setDirection2 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getDirection -}+{#fun ogre_cam_getDirection as getDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getUp -}+{#fun ogre_cam_getUp as getUp +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getRight -}+{#fun ogre_cam_getRight as getRight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function lookAt -}+{#fun ogre_cam_lookAt as lookAt +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function lookAt2 -}+{#fun ogre_cam_lookAt2 as lookAt2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function roll -}+{#fun ogre_cam_roll as roll +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function yaw -}+{#fun ogre_cam_yaw as yaw +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function pitch -}+{#fun ogre_cam_pitch as pitch +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function rotate -}+{#fun ogre_cam_rotate as rotate +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ withRadians* `Radians' } -> `()'  #}++{- function rotate2 -}+{#fun ogre_cam_rotate2 as rotate2 +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' } -> `()'  #}++{- function setFixedYawAxis -}+{#fun ogre_cam_setFixedYawAxis as setFixedYawAxis +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getOrientation -}+{#fun ogre_cam_getOrientation as getOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function setOrientation -}+{#fun ogre_cam_setOrientation as setOrientation +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' } -> `()'  #}++{- function getDerivedOrientation -}+{#fun ogre_cam_getDerivedOrientation as getDerivedOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function getDerivedPosition -}+{#fun ogre_cam_getDerivedPosition as getDerivedPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getDerivedDirection -}+{#fun ogre_cam_getDerivedDirection as getDerivedDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getDerivedUp -}+{#fun ogre_cam_getDerivedUp as getDerivedUp +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getDerivedRight -}+{#fun ogre_cam_getDerivedRight as getDerivedRight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getRealOrientation -}+{#fun ogre_cam_getRealOrientation as getRealOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function getRealPosition -}+{#fun ogre_cam_getRealPosition as getRealPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getRealDirection -}+{#fun ogre_cam_getRealDirection as getRealDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getRealUp -}+{#fun ogre_cam_getRealUp as getRealUp +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getRealRight -}+{#fun ogre_cam_getRealRight as getRealRight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_cam_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setLodBias -}+{#fun ogre_cam_setLodBias as setLodBias +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getLodBias -}+{#fun ogre_cam_getLodBias as getLodBias +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setLodCamera -}+{#fun ogre_cam_setLodCamera as setLodCamera +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getLodCamera -}+{#fun ogre_cam_getLodCamera as getLodCamera +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setWindow -}+{#fun ogre_cam_setWindow as setWindow +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function resetWindow -}+{#fun ogre_cam_resetWindow as resetWindow +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isWindowSet -}+{#fun ogre_cam_isWindowSet as isWindowSet +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_cam_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAutoTrackTarget -}+{#fun ogre_cam_getAutoTrackTarget as getAutoTrackTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAutoTrackOffset -}+{#fun ogre_cam_getAutoTrackOffset as getAutoTrackOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getViewport -}+{#fun ogre_cam_getViewport as getViewport +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setAutoAspectRatio -}+{#fun ogre_cam_setAutoAspectRatio as setAutoAspectRatio +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getAutoAspectRatio -}+{#fun ogre_cam_getAutoAspectRatio as getAutoAspectRatio +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setCullingFrustum -}+{#fun ogre_cam_setCullingFrustum as setCullingFrustum +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getCullingFrustum -}+{#fun ogre_cam_getCullingFrustum as getCullingFrustum +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isVisible3 -}+{#fun ogre_cam_isVisible3 as isVisible3 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ alloca- `EnumFrustumPlane' peekEnumUtil*,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getWorldSpaceCorners -}+{#fun ogre_cam_getWorldSpaceCorners as getWorldSpaceCorners +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getNearClipDistance -}+{#fun ogre_cam_getNearClipDistance as getNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getFarClipDistance -}+{#fun ogre_cam_getFarClipDistance as getFarClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setUseRenderingDistance -}+{#fun ogre_cam_setUseRenderingDistance as setUseRenderingDistance +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseRenderingDistance -}+{#fun ogre_cam_getUseRenderingDistance as getUseRenderingDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function synchroniseBaseSettingsWith -}+{#fun ogre_cam_synchroniseBaseSettingsWith as synchroniseBaseSettingsWith +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getPositionForViewUpdate -}+{#fun ogre_cam_getPositionForViewUpdate as getPositionForViewUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getOrientationForViewUpdate -}+{#fun ogre_cam_getOrientationForViewUpdate as getOrientationForViewUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function setUseMinPixelSize -}+{#fun ogre_cam_setUseMinPixelSize as setUseMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseMinPixelSize -}+{#fun ogre_cam_getUseMinPixelSize as getUseMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPixelDisplayRatio -}+{#fun ogre_cam_getPixelDisplayRatio as getPixelDisplayRatio +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassCamera.hs 
@@ -1,841 +0,0 @@--- 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\\ClassCamera.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassCamera.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassCamera where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.StructRadians
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumFrustumPlane
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function Camera -}
-new :: String -> HG3DClass -> IO (HG3DClass)
-new a1 a2 =
-  withCString a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  new'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function ~Camera -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getSceneManager -}
-getSceneManager :: HG3DClass -> IO (HG3DClass)
-getSceneManager a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSceneManager'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setPosition -}
-setPosition :: HG3DClass -> Float -> Float -> Float -> IO ()
-setPosition a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setPosition'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setPosition2 -}
-setPosition2 :: HG3DClass -> Vec3 -> IO ()
-setPosition2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setPosition2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getPosition -}
-getPosition :: HG3DClass -> IO (Vec3)
-getPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function move -}
-move :: HG3DClass -> Vec3 -> IO ()
-move a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  move'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function moveRelative -}
-moveRelative :: HG3DClass -> Vec3 -> IO ()
-moveRelative a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  moveRelative'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setDirection -}
-setDirection :: HG3DClass -> Float -> Float -> Float -> IO ()
-setDirection a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setDirection'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setDirection2 -}
-setDirection2 :: HG3DClass -> Vec3 -> IO ()
-setDirection2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setDirection2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDirection -}
-getDirection :: HG3DClass -> IO (Vec3)
-getDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getUp -}
-getUp :: HG3DClass -> IO (Vec3)
-getUp a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUp'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRight -}
-getRight :: HG3DClass -> IO (Vec3)
-getRight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRight'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function lookAt -}
-lookAt :: HG3DClass -> Vec3 -> IO ()
-lookAt a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  lookAt'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function lookAt2 -}
-lookAt2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-lookAt2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  lookAt2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function roll -}
-roll :: HG3DClass -> Radians -> IO ()
-roll a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  roll'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function yaw -}
-yaw :: HG3DClass -> Radians -> IO ()
-yaw a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  yaw'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function pitch -}
-pitch :: HG3DClass -> Radians -> IO ()
-pitch a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  pitch'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function rotate -}
-rotate :: HG3DClass -> Vec3 -> Radians -> IO ()
-rotate a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  withRadians a3 $ \a3' -> 
-  rotate'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function rotate2 -}
-rotate2 :: HG3DClass -> Quaternion -> IO ()
-rotate2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  rotate2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setFixedYawAxis -}
-setFixedYawAxis :: HG3DClass -> Bool -> Vec3 -> IO ()
-setFixedYawAxis a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withVec3 a3 $ \a3' -> 
-  setFixedYawAxis'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getOrientation -}
-getOrientation :: HG3DClass -> IO (Quaternion)
-getOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientation'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setOrientation -}
-setOrientation :: HG3DClass -> Quaternion -> IO ()
-setOrientation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  setOrientation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDerivedOrientation -}
-getDerivedOrientation :: HG3DClass -> IO (Quaternion)
-getDerivedOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedOrientation'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 177 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDerivedPosition -}
-getDerivedPosition :: HG3DClass -> IO (Vec3)
-getDerivedPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDerivedDirection -}
-getDerivedDirection :: HG3DClass -> IO (Vec3)
-getDerivedDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDerivedUp -}
-getDerivedUp :: HG3DClass -> IO (Vec3)
-getDerivedUp a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedUp'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getDerivedRight -}
-getDerivedRight :: HG3DClass -> IO (Vec3)
-getDerivedRight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedRight'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRealOrientation -}
-getRealOrientation :: HG3DClass -> IO (Quaternion)
-getRealOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRealOrientation'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRealPosition -}
-getRealPosition :: HG3DClass -> IO (Vec3)
-getRealPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRealPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRealDirection -}
-getRealDirection :: HG3DClass -> IO (Vec3)
-getRealDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRealDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRealUp -}
-getRealUp :: HG3DClass -> IO (Vec3)
-getRealUp a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRealUp'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getRealRight -}
-getRealRight :: HG3DClass -> IO (Vec3)
-getRealRight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRealRight'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setLodBias -}
-setLodBias :: HG3DClass -> Float -> IO ()
-setLodBias a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setLodBias'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getLodBias -}
-getLodBias :: HG3DClass -> IO (Float)
-getLodBias a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLodBias'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setLodCamera -}
-setLodCamera :: HG3DClass -> HG3DClass -> IO ()
-setLodCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setLodCamera'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getLodCamera -}
-getLodCamera :: HG3DClass -> IO (HG3DClass)
-getLodCamera a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLodCamera'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setWindow -}
-setWindow :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setWindow a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setWindow'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function resetWindow -}
-resetWindow :: HG3DClass -> IO ()
-resetWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetWindow'_ a1' >>= \res ->
-  return ()
-{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function isWindowSet -}
-isWindowSet :: HG3DClass -> IO (Bool)
-isWindowSet a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isWindowSet'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getAutoTrackTarget -}
-getAutoTrackTarget :: HG3DClass -> IO (HG3DClass)
-getAutoTrackTarget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoTrackTarget'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getAutoTrackOffset -}
-getAutoTrackOffset :: HG3DClass -> IO (Vec3)
-getAutoTrackOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoTrackOffset'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 279 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getViewport -}
-getViewport :: HG3DClass -> IO (HG3DClass)
-getViewport a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getViewport'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setAutoAspectRatio -}
-setAutoAspectRatio :: HG3DClass -> Bool -> IO ()
-setAutoAspectRatio a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoAspectRatio'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 289 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getAutoAspectRatio -}
-getAutoAspectRatio :: HG3DClass -> IO (Bool)
-getAutoAspectRatio a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoAspectRatio'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 294 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setCullingFrustum -}
-setCullingFrustum :: HG3DClass -> HG3DClass -> IO ()
-setCullingFrustum a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setCullingFrustum'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 299 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getCullingFrustum -}
-getCullingFrustum :: HG3DClass -> IO (HG3DClass)
-getCullingFrustum a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCullingFrustum'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 304 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function isVisible3 -}
-isVisible3 :: HG3DClass -> Vec3 -> IO (EnumFrustumPlane, Bool)
-isVisible3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  isVisible3'_ a1' a2' a3' a4' >>= \res ->
-  peekEnumUtil  a3'>>= \a3'' -> 
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a3'', a4'')
-{-# LINE 311 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getWorldSpaceCorners -}
-getWorldSpaceCorners :: HG3DClass -> IO (Vec3)
-getWorldSpaceCorners a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWorldSpaceCorners'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 316 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getNearClipDistance -}
-getNearClipDistance :: HG3DClass -> IO (Float)
-getNearClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNearClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 321 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getFarClipDistance -}
-getFarClipDistance :: HG3DClass -> IO (Float)
-getFarClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFarClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 326 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setUseRenderingDistance -}
-setUseRenderingDistance :: HG3DClass -> Bool -> IO ()
-setUseRenderingDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseRenderingDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 331 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getUseRenderingDistance -}
-getUseRenderingDistance :: HG3DClass -> IO (Bool)
-getUseRenderingDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseRenderingDistance'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function synchroniseBaseSettingsWith -}
-synchroniseBaseSettingsWith :: HG3DClass -> HG3DClass -> IO ()
-synchroniseBaseSettingsWith a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  synchroniseBaseSettingsWith'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 341 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getPositionForViewUpdate -}
-getPositionForViewUpdate :: HG3DClass -> IO (Vec3)
-getPositionForViewUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPositionForViewUpdate'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 346 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getOrientationForViewUpdate -}
-getOrientationForViewUpdate :: HG3DClass -> IO (Quaternion)
-getOrientationForViewUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientationForViewUpdate'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 351 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function setUseMinPixelSize -}
-setUseMinPixelSize :: HG3DClass -> Bool -> IO ()
-setUseMinPixelSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseMinPixelSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 356 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getUseMinPixelSize -}
-getUseMinPixelSize :: HG3DClass -> IO (Bool)
-getUseMinPixelSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseMinPixelSize'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 361 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-{- function getPixelDisplayRatio -}
-getPixelDisplayRatio :: HG3DClass -> IO (Float)
-getPixelDisplayRatio a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPixelDisplayRatio'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 366 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getSceneManager"
-  getSceneManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setPosition"
-  setPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setPosition2"
-  setPosition2'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getPosition"
-  getPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_move"
-  move'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_moveRelative"
-  moveRelative'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setDirection"
-  setDirection'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setDirection2"
-  setDirection2'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDirection"
-  getDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getUp"
-  getUp'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRight"
-  getRight'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_lookAt"
-  lookAt'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_lookAt2"
-  lookAt2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_roll"
-  roll'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_yaw"
-  yaw'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_pitch"
-  pitch'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_rotate"
-  rotate'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((RadiansPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_rotate2"
-  rotate2'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setFixedYawAxis"
-  setFixedYawAxis'_ :: ((HG3DClassPtr) -> (CInt -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getOrientation"
-  getOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setOrientation"
-  setOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDerivedOrientation"
-  getDerivedOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDerivedPosition"
-  getDerivedPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDerivedDirection"
-  getDerivedDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDerivedUp"
-  getDerivedUp'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getDerivedRight"
-  getDerivedRight'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRealOrientation"
-  getRealOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRealPosition"
-  getRealPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRealDirection"
-  getRealDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRealUp"
-  getRealUp'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getRealRight"
-  getRealRight'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setLodBias"
-  setLodBias'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getLodBias"
-  getLodBias'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setLodCamera"
-  setLodCamera'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getLodCamera"
-  getLodCamera'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setWindow"
-  setWindow'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_resetWindow"
-  resetWindow'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_isWindowSet"
-  isWindowSet'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getAutoTrackTarget"
-  getAutoTrackTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getAutoTrackOffset"
-  getAutoTrackOffset'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getViewport"
-  getViewport'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setAutoAspectRatio"
-  setAutoAspectRatio'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getAutoAspectRatio"
-  getAutoAspectRatio'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setCullingFrustum"
-  setCullingFrustum'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getCullingFrustum"
-  getCullingFrustum'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_isVisible3"
-  isVisible3'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getWorldSpaceCorners"
-  getWorldSpaceCorners'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getNearClipDistance"
-  getNearClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getFarClipDistance"
-  getFarClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setUseRenderingDistance"
-  setUseRenderingDistance'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getUseRenderingDistance"
-  getUseRenderingDistance'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_synchroniseBaseSettingsWith"
-  synchroniseBaseSettingsWith'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getPositionForViewUpdate"
-  getPositionForViewUpdate'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getOrientationForViewUpdate"
-  getOrientationForViewUpdate'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_setUseMinPixelSize"
-  setUseMinPixelSize'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getUseMinPixelSize"
-  getUseMinPixelSize'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_getPixelDisplayRatio"
-  getPixelDisplayRatio'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassConfigFile.chs view
@@ -0,0 +1,93 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassConfigFile.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassConfigFile where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassConfigFile.h"
+{- function ConfigFile -}+{#fun ogre_cf_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ConfigFile -}+{#fun ogre_cf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function load -}+{#fun ogre_cf_load as load +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function load2 -}+{#fun ogre_cf_load2 as load2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function loadDirect -}+{#fun ogre_cf_loadDirect as loadDirect +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function loadFromResourceSystem -}+{#fun ogre_cf_loadFromResourceSystem as loadFromResourceSystem +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function getSetting -}+{#fun ogre_cf_getSetting as getSetting +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function clear -}+{#fun ogre_cf_clear as clear +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassConfigFile.hs 
@@ -1,160 +0,0 @@--- 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\\ClassConfigFile.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassConfigFile.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassConfigFile where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function ConfigFile -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function ~ConfigFile -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function load -}
-load :: HG3DClass -> String -> String -> Bool -> IO ()
-load a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  let {a4' = fromBool a4} in 
-  load'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function load2 -}
-load2 :: HG3DClass -> String -> String -> String -> Bool -> IO ()
-load2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  let {a5' = fromBool a5} in 
-  load2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function loadDirect -}
-loadDirect :: HG3DClass -> String -> String -> Bool -> IO ()
-loadDirect a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  let {a4' = fromBool a4} in 
-  loadDirect'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function loadFromResourceSystem -}
-loadFromResourceSystem :: HG3DClass -> String -> String -> String -> Bool -> IO ()
-loadFromResourceSystem a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  let {a5' = fromBool a5} in 
-  loadFromResourceSystem'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function getSetting -}
-getSetting :: HG3DClass -> String -> String -> String -> IO (String)
-getSetting a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  alloc64k $ \a5' -> 
-  getSetting'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekCString  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-{- function clear -}
-clear :: HG3DClass -> IO ()
-clear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clear'_ a1' >>= \res ->
-  return ()
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_load"
-  load'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_load2"
-  load2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_loadDirect"
-  loadDirect'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_loadFromResourceSystem"
-  loadFromResourceSystem'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_getSetting"
-  getSetting'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_clear"
-  clear'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassControllerManager.chs view
@@ -0,0 +1,97 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassControllerManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassControllerManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassControllerManager.h"
+{- function ControllerManager -}+{#fun ogre_cmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ControllerManager -}+{#fun ogre_cmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearControllers -}+{#fun ogre_cmgr_clearControllers as clearControllers +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function updateAllControllers -}+{#fun ogre_cmgr_updateAllControllers as updateAllControllers +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getTimeFactor -}+{#fun ogre_cmgr_getTimeFactor as getTimeFactor +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setTimeFactor -}+{#fun ogre_cmgr_setTimeFactor as setTimeFactor +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getFrameDelay -}+{#fun ogre_cmgr_getFrameDelay as getFrameDelay +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setFrameDelay -}+{#fun ogre_cmgr_setFrameDelay as setFrameDelay +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getElapsedTime -}+{#fun ogre_cmgr_getElapsedTime as getElapsedTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setElapsedTime -}+{#fun ogre_cmgr_setElapsedTime as setElapsedTime +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_cmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_cmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassControllerManager.hs 
@@ -1,196 +0,0 @@--- 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\\ClassControllerManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassControllerManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassControllerManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function ControllerManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function ~ControllerManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function clearControllers -}
-clearControllers :: HG3DClass -> IO ()
-clearControllers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearControllers'_ a1' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function updateAllControllers -}
-updateAllControllers :: HG3DClass -> IO ()
-updateAllControllers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  updateAllControllers'_ a1' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function getTimeFactor -}
-getTimeFactor :: HG3DClass -> IO (Float)
-getTimeFactor a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTimeFactor'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function setTimeFactor -}
-setTimeFactor :: HG3DClass -> Float -> IO ()
-setTimeFactor a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setTimeFactor'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function getFrameDelay -}
-getFrameDelay :: HG3DClass -> IO (Float)
-getFrameDelay a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFrameDelay'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function setFrameDelay -}
-setFrameDelay :: HG3DClass -> Float -> IO ()
-setFrameDelay a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setFrameDelay'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function getElapsedTime -}
-getElapsedTime :: HG3DClass -> IO (Float)
-getElapsedTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getElapsedTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function setElapsedTime -}
-setElapsedTime :: HG3DClass -> Float -> IO ()
-setElapsedTime a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setElapsedTime'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_clearControllers"
-  clearControllers'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_updateAllControllers"
-  updateAllControllers'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getTimeFactor"
-  getTimeFactor'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setTimeFactor"
-  setTimeFactor'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getFrameDelay"
-  getFrameDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setFrameDelay"
-  setFrameDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getElapsedTime"
-  getElapsedTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_setElapsedTime"
-  setElapsedTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassEntity.chs view
@@ -0,0 +1,238 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassEntity.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassEntity where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice #}+
+#include "ClassEntity.h"
+{- function ~Entity -}+{#fun ogre_ent_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMesh -}+{#fun ogre_ent_getMesh as getMesh +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getNumSubEntities -}+{#fun ogre_ent_getNumSubEntities as getNumSubEntities +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function clone -}+{#fun ogre_ent_clone as clone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setMaterialName -}+{#fun ogre_ent_setMaterialName as setMaterialName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setMaterial -}+{#fun ogre_ent_setMaterial as setMaterial +{ withHG3DClass* `HG3DClass' ,+ withSharedPtr* `SharedPtr' } -> `()'  #}++{- function getMovableType -}+{#fun ogre_ent_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getAnimationState -}+{#fun ogre_ent_getAnimationState as getAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimationState -}+{#fun ogre_ent_hasAnimationState as hasAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getAllAnimationStates -}+{#fun ogre_ent_getAllAnimationStates as getAllAnimationStates +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setDisplaySkeleton -}+{#fun ogre_ent_setDisplaySkeleton as setDisplaySkeleton +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getDisplaySkeleton -}+{#fun ogre_ent_getDisplaySkeleton as getDisplaySkeleton +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getManualLodLevel -}+{#fun ogre_ent_getManualLodLevel as getManualLodLevel +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumManualLodLevels -}+{#fun ogre_ent_getNumManualLodLevels as getNumManualLodLevels +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setPolygonModeOverrideable -}+{#fun ogre_ent_setPolygonModeOverrideable as setPolygonModeOverrideable +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function detachObjectFromBone -}+{#fun ogre_ent_detachObjectFromBone as detachObjectFromBone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachObjectFromBone2 -}+{#fun ogre_ent_detachObjectFromBone2 as detachObjectFromBone2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function detachAllObjectsFromBone -}+{#fun ogre_ent_detachAllObjectsFromBone as detachAllObjectsFromBone +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_ent_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function hasEdgeList -}+{#fun ogre_ent_hasEdgeList as hasEdgeList +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function hasSkeleton -}+{#fun ogre_ent_hasSkeleton as hasSkeleton +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHardwareAnimationEnabled -}+{#fun ogre_ent_isHardwareAnimationEnabled as isHardwareAnimationEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSoftwareAnimationRequests -}+{#fun ogre_ent_getSoftwareAnimationRequests as getSoftwareAnimationRequests +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSoftwareAnimationNormalsRequests -}+{#fun ogre_ent_getSoftwareAnimationNormalsRequests as getSoftwareAnimationNormalsRequests +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function addSoftwareAnimationRequest -}+{#fun ogre_ent_addSoftwareAnimationRequest as addSoftwareAnimationRequest +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function removeSoftwareAnimationRequest -}+{#fun ogre_ent_removeSoftwareAnimationRequest as removeSoftwareAnimationRequest +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function shareSkeletonInstanceWith -}+{#fun ogre_ent_shareSkeletonInstanceWith as shareSkeletonInstanceWith +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasVertexAnimation -}+{#fun ogre_ent_hasVertexAnimation as hasVertexAnimation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function stopSharingSkeletonInstance -}+{#fun ogre_ent_stopSharingSkeletonInstance as stopSharingSkeletonInstance +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function sharesSkeletonInstance -}+{#fun ogre_ent_sharesSkeletonInstance as sharesSkeletonInstance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function refreshAvailableAnimationState -}+{#fun ogre_ent_refreshAvailableAnimationState as refreshAvailableAnimationState +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function chooseVertexDataForBinding -}+{#fun ogre_ent_chooseVertexDataForBinding as chooseVertexDataForBinding +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `EnumEntityVertexDataBindChoice' peekEnumUtil*} -> `()'  #}++{- function isInitialised -}+{#fun ogre_ent_isInitialised as isInitialised +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function backgroundLoadingComplete -}+{#fun ogre_ent_backgroundLoadingComplete as backgroundLoadingComplete +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSkipAnimationStateUpdate -}+{#fun ogre_ent_setSkipAnimationStateUpdate as setSkipAnimationStateUpdate +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getSkipAnimationStateUpdate -}+{#fun ogre_ent_getSkipAnimationStateUpdate as getSkipAnimationStateUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setAlwaysUpdateMainSkeleton -}+{#fun ogre_ent_setAlwaysUpdateMainSkeleton as setAlwaysUpdateMainSkeleton +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getAlwaysUpdateMainSkeleton -}+{#fun ogre_ent_getAlwaysUpdateMainSkeleton as getAlwaysUpdateMainSkeleton +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassEntity.hs 
@@ -1,538 +0,0 @@--- 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\\ClassEntity.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassEntity.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassEntity where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function ~Entity -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getMesh -}
-getMesh :: HG3DClass -> IO (SharedPtr)
-getMesh a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMesh'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getNumSubEntities -}
-getNumSubEntities :: HG3DClass -> IO (Int)
-getNumSubEntities a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumSubEntities'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function clone -}
-clone :: HG3DClass -> String -> IO (HG3DClass)
-clone a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  clone'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setMaterialName -}
-setMaterialName :: HG3DClass -> String -> String -> IO ()
-setMaterialName a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setMaterialName'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setMaterial -}
-setMaterial :: HG3DClass -> SharedPtr -> IO ()
-setMaterial a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withSharedPtr a2 $ \a2' -> 
-  setMaterial'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getAnimationState -}
-getAnimationState :: HG3DClass -> String -> IO (HG3DClass)
-getAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimationState'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function hasAnimationState -}
-hasAnimationState :: HG3DClass -> String -> IO (Bool)
-hasAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimationState'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getAllAnimationStates -}
-getAllAnimationStates :: HG3DClass -> IO (HG3DClass)
-getAllAnimationStates a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAllAnimationStates'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setDisplaySkeleton -}
-setDisplaySkeleton :: HG3DClass -> Bool -> IO ()
-setDisplaySkeleton a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDisplaySkeleton'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getDisplaySkeleton -}
-getDisplaySkeleton :: HG3DClass -> IO (Bool)
-getDisplaySkeleton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDisplaySkeleton'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getManualLodLevel -}
-getManualLodLevel :: HG3DClass -> Int -> IO (HG3DClass)
-getManualLodLevel a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getManualLodLevel'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getNumManualLodLevels -}
-getNumManualLodLevels :: HG3DClass -> IO (Int)
-getNumManualLodLevels a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumManualLodLevels'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setPolygonModeOverrideable -}
-setPolygonModeOverrideable :: HG3DClass -> Bool -> IO ()
-setPolygonModeOverrideable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setPolygonModeOverrideable'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function detachObjectFromBone -}
-detachObjectFromBone :: HG3DClass -> String -> IO (HG3DClass)
-detachObjectFromBone a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  detachObjectFromBone'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function detachObjectFromBone2 -}
-detachObjectFromBone2 :: HG3DClass -> HG3DClass -> IO ()
-detachObjectFromBone2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  detachObjectFromBone2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function detachAllObjectsFromBone -}
-detachAllObjectsFromBone :: HG3DClass -> IO ()
-detachAllObjectsFromBone a1 =
-  withHG3DClass a1 $ \a1' -> 
-  detachAllObjectsFromBone'_ a1' >>= \res ->
-  return ()
-{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function hasEdgeList -}
-hasEdgeList :: HG3DClass -> IO (Bool)
-hasEdgeList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasEdgeList'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function hasSkeleton -}
-hasSkeleton :: HG3DClass -> IO (Bool)
-hasSkeleton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasSkeleton'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function isHardwareAnimationEnabled -}
-isHardwareAnimationEnabled :: HG3DClass -> IO (Bool)
-isHardwareAnimationEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHardwareAnimationEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getSoftwareAnimationRequests -}
-getSoftwareAnimationRequests :: HG3DClass -> IO (Int)
-getSoftwareAnimationRequests a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSoftwareAnimationRequests'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getSoftwareAnimationNormalsRequests -}
-getSoftwareAnimationNormalsRequests :: HG3DClass -> IO (Int)
-getSoftwareAnimationNormalsRequests a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSoftwareAnimationNormalsRequests'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function addSoftwareAnimationRequest -}
-addSoftwareAnimationRequest :: HG3DClass -> Bool -> IO ()
-addSoftwareAnimationRequest a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  addSoftwareAnimationRequest'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function removeSoftwareAnimationRequest -}
-removeSoftwareAnimationRequest :: HG3DClass -> Bool -> IO ()
-removeSoftwareAnimationRequest a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  removeSoftwareAnimationRequest'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function shareSkeletonInstanceWith -}
-shareSkeletonInstanceWith :: HG3DClass -> HG3DClass -> IO ()
-shareSkeletonInstanceWith a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  shareSkeletonInstanceWith'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function hasVertexAnimation -}
-hasVertexAnimation :: HG3DClass -> IO (Bool)
-hasVertexAnimation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasVertexAnimation'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function stopSharingSkeletonInstance -}
-stopSharingSkeletonInstance :: HG3DClass -> IO ()
-stopSharingSkeletonInstance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  stopSharingSkeletonInstance'_ a1' >>= \res ->
-  return ()
-{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function sharesSkeletonInstance -}
-sharesSkeletonInstance :: HG3DClass -> IO (Bool)
-sharesSkeletonInstance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  sharesSkeletonInstance'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function refreshAvailableAnimationState -}
-refreshAvailableAnimationState :: HG3DClass -> IO ()
-refreshAvailableAnimationState a1 =
-  withHG3DClass a1 $ \a1' -> 
-  refreshAvailableAnimationState'_ a1' >>= \res ->
-  return ()
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function chooseVertexDataForBinding -}
-chooseVertexDataForBinding :: HG3DClass -> Bool -> IO (EnumEntityVertexDataBindChoice)
-chooseVertexDataForBinding a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  alloca $ \a3' -> 
-  chooseVertexDataForBinding'_ a1' a2' a3' >>= \res ->
-  peekEnumUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function isInitialised -}
-isInitialised :: HG3DClass -> IO (Bool)
-isInitialised a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isInitialised'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function backgroundLoadingComplete -}
-backgroundLoadingComplete :: HG3DClass -> HG3DClass -> IO ()
-backgroundLoadingComplete a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  backgroundLoadingComplete'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setSkipAnimationStateUpdate -}
-setSkipAnimationStateUpdate :: HG3DClass -> Bool -> IO ()
-setSkipAnimationStateUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSkipAnimationStateUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getSkipAnimationStateUpdate -}
-getSkipAnimationStateUpdate :: HG3DClass -> IO (Bool)
-getSkipAnimationStateUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkipAnimationStateUpdate'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function setAlwaysUpdateMainSkeleton -}
-setAlwaysUpdateMainSkeleton :: HG3DClass -> Bool -> IO ()
-setAlwaysUpdateMainSkeleton a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAlwaysUpdateMainSkeleton'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-{- function getAlwaysUpdateMainSkeleton -}
-getAlwaysUpdateMainSkeleton :: HG3DClass -> IO (Bool)
-getAlwaysUpdateMainSkeleton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAlwaysUpdateMainSkeleton'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 240 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getMesh"
-  getMesh'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getNumSubEntities"
-  getNumSubEntities'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_clone"
-  clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setMaterialName"
-  setMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setMaterial"
-  setMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getAnimationState"
-  getAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_hasAnimationState"
-  hasAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getAllAnimationStates"
-  getAllAnimationStates'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setDisplaySkeleton"
-  setDisplaySkeleton'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getDisplaySkeleton"
-  getDisplaySkeleton'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getManualLodLevel"
-  getManualLodLevel'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getNumManualLodLevels"
-  getNumManualLodLevels'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setPolygonModeOverrideable"
-  setPolygonModeOverrideable'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_detachObjectFromBone"
-  detachObjectFromBone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_detachObjectFromBone2"
-  detachObjectFromBone2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_detachAllObjectsFromBone"
-  detachAllObjectsFromBone'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_hasEdgeList"
-  hasEdgeList'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_hasSkeleton"
-  hasSkeleton'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_isHardwareAnimationEnabled"
-  isHardwareAnimationEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getSoftwareAnimationRequests"
-  getSoftwareAnimationRequests'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getSoftwareAnimationNormalsRequests"
-  getSoftwareAnimationNormalsRequests'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_addSoftwareAnimationRequest"
-  addSoftwareAnimationRequest'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_removeSoftwareAnimationRequest"
-  removeSoftwareAnimationRequest'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_shareSkeletonInstanceWith"
-  shareSkeletonInstanceWith'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_hasVertexAnimation"
-  hasVertexAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_stopSharingSkeletonInstance"
-  stopSharingSkeletonInstance'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_sharesSkeletonInstance"
-  sharesSkeletonInstance'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_refreshAvailableAnimationState"
-  refreshAvailableAnimationState'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_chooseVertexDataForBinding"
-  chooseVertexDataForBinding'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_isInitialised"
-  isInitialised'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_backgroundLoadingComplete"
-  backgroundLoadingComplete'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setSkipAnimationStateUpdate"
-  setSkipAnimationStateUpdate'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getSkipAnimationStateUpdate"
-  getSkipAnimationStateUpdate'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_setAlwaysUpdateMainSkeleton"
-  setAlwaysUpdateMainSkeleton'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_getAlwaysUpdateMainSkeleton"
-  getAlwaysUpdateMainSkeleton'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassEntityFactory.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassEntityFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassEntityFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassEntityFactory.h"
+{- function EntityFactory -}+{#fun ogre_entf_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~EntityFactory -}+{#fun ogre_entf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_entf_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_entf_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassEntityFactory.hs 
@@ -1,100 +0,0 @@--- 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\\ClassEntityFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassEntityFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassEntityFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-
-{- function EntityFactory -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-
-{- function ~EntityFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs.h ogre_entf_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs.h ogre_entf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs.h ogre_entf_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs.h ogre_entf_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassException.chs view
@@ -0,0 +1,89 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassException.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassException where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassException.h"
+{- function Exception -}+{#fun ogre_exc_construct as new +{ fromIntegral `Int' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Exception -}+{#fun ogre_exc_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getFullDescription -}+{#fun ogre_exc_getFullDescription as getFullDescription +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getNumber -}+{#fun ogre_exc_getNumber as getNumber +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSource -}+{#fun ogre_exc_getSource as getSource +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getFile -}+{#fun ogre_exc_getFile as getFile +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getLine -}+{#fun ogre_exc_getLine as getLine +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getDescription -}+{#fun ogre_exc_getDescription as getDescription +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function what -}+{#fun ogre_exc_what as what +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassException.hs 
@@ -1,169 +0,0 @@--- 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\\ClassException.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassException.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassException where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function Exception -}
-new :: Int -> String -> String -> IO (HG3DClass)
-new a1 a2 a3 =
-  let {a1' = fromIntegral a1} in 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  new'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function ~Exception -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getFullDescription -}
-getFullDescription :: HG3DClass -> IO (String)
-getFullDescription a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getFullDescription'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getNumber -}
-getNumber :: HG3DClass -> IO (Int)
-getNumber a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumber'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getSource -}
-getSource :: HG3DClass -> IO (String)
-getSource a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getSource'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getFile -}
-getFile :: HG3DClass -> IO (String)
-getFile a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getFile'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getLine -}
-getLine :: HG3DClass -> IO (Int)
-getLine a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLine'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function getDescription -}
-getDescription :: HG3DClass -> IO (String)
-getDescription a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getDescription'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-{- function what -}
-what :: HG3DClass -> IO (String)
-what a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  what'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_construct"
-  new'_ :: (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getFullDescription"
-  getFullDescription'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getNumber"
-  getNumber'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getSource"
-  getSource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getFile"
-  getFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getLine"
-  getLine'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_getDescription"
-  getDescription'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_what"
-  what'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassFrustum.chs view
@@ -0,0 +1,268 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassFrustum.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassFrustum where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructRadians #}+{# import HGamer3D.Bindings.Ogre.StructVec2 #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.EnumFrustumPlane #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.EnumProjectionType #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+{# import HGamer3D.Bindings.Ogre.EnumOrientationMode #}+
+#include "ClassFrustum.h"
+{- function Frustum -}+{#fun ogre_frst_construct as new +{ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Frustum -}+{#fun ogre_frst_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setFOVy -}+{#fun ogre_frst_setFOVy as setFOVy +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function getFOVy -}+{#fun ogre_frst_getFOVy as getFOVy +{ withHG3DClass* `HG3DClass' ,+ alloca- `Radians' peekRadians*} -> `()'  #}++{- function setNearClipDistance -}+{#fun ogre_frst_setNearClipDistance as setNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getNearClipDistance -}+{#fun ogre_frst_getNearClipDistance as getNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setFarClipDistance -}+{#fun ogre_frst_setFarClipDistance as setFarClipDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getFarClipDistance -}+{#fun ogre_frst_getFarClipDistance as getFarClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setAspectRatio -}+{#fun ogre_frst_setAspectRatio as setAspectRatio +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getAspectRatio -}+{#fun ogre_frst_getAspectRatio as getAspectRatio +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setFrustumOffset -}+{#fun ogre_frst_setFrustumOffset as setFrustumOffset +{ withHG3DClass* `HG3DClass' ,+ withVec2* `Vec2' } -> `()'  #}++{- function setFrustumOffset2 -}+{#fun ogre_frst_setFrustumOffset2 as setFrustumOffset2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function getFrustumOffset -}+{#fun ogre_frst_getFrustumOffset as getFrustumOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec2' peekVec2*} -> `()'  #}++{- function setFocalLength -}+{#fun ogre_frst_setFocalLength as setFocalLength +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getFocalLength -}+{#fun ogre_frst_getFocalLength as getFocalLength +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setFrustumExtents -}+{#fun ogre_frst_setFrustumExtents as setFrustumExtents +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function resetFrustumExtents -}+{#fun ogre_frst_resetFrustumExtents as resetFrustumExtents +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getFrustumExtents -}+{#fun ogre_frst_getFrustumExtents as getFrustumExtents +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function isCustomViewMatrixEnabled -}+{#fun ogre_frst_isCustomViewMatrixEnabled as isCustomViewMatrixEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isCustomProjectionMatrixEnabled -}+{#fun ogre_frst_isCustomProjectionMatrixEnabled as isCustomProjectionMatrixEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVisible3 -}+{#fun ogre_frst_isVisible3 as isVisible3 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ alloca- `EnumFrustumPlane' peekEnumUtil*,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTypeFlags -}+{#fun ogre_frst_getTypeFlags as getTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_frst_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_frst_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getMaterial -}+{#fun ogre_frst_getMaterial as getMaterial +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_frst_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWorldSpaceCorners -}+{#fun ogre_frst_getWorldSpaceCorners as getWorldSpaceCorners +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setProjectionType -}+{#fun ogre_frst_setProjectionType as setProjectionType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumProjectionType' } -> `()'  #}++{- function getProjectionType -}+{#fun ogre_frst_getProjectionType as getProjectionType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumProjectionType' peekEnumUtil*} -> `()'  #}++{- function setOrthoWindow -}+{#fun ogre_frst_setOrthoWindow as setOrthoWindow +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setOrthoWindowHeight -}+{#fun ogre_frst_setOrthoWindowHeight as setOrthoWindowHeight +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setOrthoWindowWidth -}+{#fun ogre_frst_setOrthoWindowWidth as setOrthoWindowWidth +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getOrthoWindowHeight -}+{#fun ogre_frst_getOrthoWindowHeight as getOrthoWindowHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getOrthoWindowWidth -}+{#fun ogre_frst_getOrthoWindowWidth as getOrthoWindowWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function disableReflection -}+{#fun ogre_frst_disableReflection as disableReflection +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isReflected -}+{#fun ogre_frst_isReflected as isReflected +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function disableCustomNearClipPlane -}+{#fun ogre_frst_disableCustomNearClipPlane as disableCustomNearClipPlane +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isCustomNearClipPlaneEnabled -}+{#fun ogre_frst_isCustomNearClipPlaneEnabled as isCustomNearClipPlaneEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPositionForViewUpdate -}+{#fun ogre_frst_getPositionForViewUpdate as getPositionForViewUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getOrientationForViewUpdate -}+{#fun ogre_frst_getOrientationForViewUpdate as getOrientationForViewUpdate +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function setOrientationMode -}+{#fun ogre_frst_setOrientationMode as setOrientationMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumOrientationMode' } -> `()'  #}++{- function getOrientationMode -}+{#fun ogre_frst_getOrientationMode as getOrientationMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumOrientationMode' peekEnumUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassFrustum.hs 
@@ -1,608 +0,0 @@--- 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\\ClassFrustum.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassFrustum.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassFrustum where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructRadians
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec2
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumFrustumPlane
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumProjectionType
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumOrientationMode
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function Frustum -}
-new :: String -> IO (HG3DClass)
-new a1 =
-  withCString a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  new'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function ~Frustum -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFOVy -}
-setFOVy :: HG3DClass -> Radians -> IO ()
-setFOVy a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  setFOVy'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getFOVy -}
-getFOVy :: HG3DClass -> IO (Radians)
-getFOVy a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFOVy'_ a1' a2' >>= \res ->
-  peekRadians  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setNearClipDistance -}
-setNearClipDistance :: HG3DClass -> Float -> IO ()
-setNearClipDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setNearClipDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getNearClipDistance -}
-getNearClipDistance :: HG3DClass -> IO (Float)
-getNearClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNearClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFarClipDistance -}
-setFarClipDistance :: HG3DClass -> Float -> IO ()
-setFarClipDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setFarClipDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getFarClipDistance -}
-getFarClipDistance :: HG3DClass -> IO (Float)
-getFarClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFarClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setAspectRatio -}
-setAspectRatio :: HG3DClass -> Float -> IO ()
-setAspectRatio a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setAspectRatio'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getAspectRatio -}
-getAspectRatio :: HG3DClass -> IO (Float)
-getAspectRatio a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAspectRatio'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFrustumOffset -}
-setFrustumOffset :: HG3DClass -> Vec2 -> IO ()
-setFrustumOffset a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec2 a2 $ \a2' -> 
-  setFrustumOffset'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFrustumOffset2 -}
-setFrustumOffset2 :: HG3DClass -> Float -> Float -> IO ()
-setFrustumOffset2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setFrustumOffset2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getFrustumOffset -}
-getFrustumOffset :: HG3DClass -> IO (Vec2)
-getFrustumOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFrustumOffset'_ a1' a2' >>= \res ->
-  peekVec2  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFocalLength -}
-setFocalLength :: HG3DClass -> Float -> IO ()
-setFocalLength a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setFocalLength'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getFocalLength -}
-getFocalLength :: HG3DClass -> IO (Float)
-getFocalLength a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFocalLength'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setFrustumExtents -}
-setFrustumExtents :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setFrustumExtents a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setFrustumExtents'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function resetFrustumExtents -}
-resetFrustumExtents :: HG3DClass -> IO ()
-resetFrustumExtents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetFrustumExtents'_ a1' >>= \res ->
-  return ()
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getFrustumExtents -}
-getFrustumExtents :: HG3DClass -> IO (Float, Float, Float, Float)
-getFrustumExtents a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  alloca $ \a5' -> 
-  getFrustumExtents'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  peekFloatConv  a3'>>= \a3'' -> 
-  peekFloatConv  a4'>>= \a4'' -> 
-  peekFloatConv  a5'>>= \a5'' -> 
-  return (a2'', a3'', a4'', a5'')
-{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function isCustomViewMatrixEnabled -}
-isCustomViewMatrixEnabled :: HG3DClass -> IO (Bool)
-isCustomViewMatrixEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isCustomViewMatrixEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function isCustomProjectionMatrixEnabled -}
-isCustomProjectionMatrixEnabled :: HG3DClass -> IO (Bool)
-isCustomProjectionMatrixEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isCustomProjectionMatrixEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function isVisible3 -}
-isVisible3 :: HG3DClass -> Vec3 -> IO (EnumFrustumPlane, Bool)
-isVisible3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  isVisible3'_ a1' a2' a3' a4' >>= \res ->
-  peekEnumUtil  a3'>>= \a3'' -> 
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a3'', a4'')
-{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getTypeFlags -}
-getTypeFlags :: HG3DClass -> IO (Int)
-getTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTypeFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getMaterial -}
-getMaterial :: HG3DClass -> IO (SharedPtr)
-getMaterial a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaterial'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getWorldSpaceCorners -}
-getWorldSpaceCorners :: HG3DClass -> IO (Vec3)
-getWorldSpaceCorners a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWorldSpaceCorners'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setProjectionType -}
-setProjectionType :: HG3DClass -> EnumProjectionType -> IO ()
-setProjectionType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setProjectionType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 201 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getProjectionType -}
-getProjectionType :: HG3DClass -> IO (EnumProjectionType)
-getProjectionType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getProjectionType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setOrthoWindow -}
-setOrthoWindow :: HG3DClass -> Float -> Float -> IO ()
-setOrthoWindow a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setOrthoWindow'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setOrthoWindowHeight -}
-setOrthoWindowHeight :: HG3DClass -> Float -> IO ()
-setOrthoWindowHeight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setOrthoWindowHeight'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setOrthoWindowWidth -}
-setOrthoWindowWidth :: HG3DClass -> Float -> IO ()
-setOrthoWindowWidth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setOrthoWindowWidth'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getOrthoWindowHeight -}
-getOrthoWindowHeight :: HG3DClass -> IO (Float)
-getOrthoWindowHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrthoWindowHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getOrthoWindowWidth -}
-getOrthoWindowWidth :: HG3DClass -> IO (Float)
-getOrthoWindowWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrthoWindowWidth'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function disableReflection -}
-disableReflection :: HG3DClass -> IO ()
-disableReflection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  disableReflection'_ a1' >>= \res ->
-  return ()
-{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function isReflected -}
-isReflected :: HG3DClass -> IO (Bool)
-isReflected a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReflected'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function disableCustomNearClipPlane -}
-disableCustomNearClipPlane :: HG3DClass -> IO ()
-disableCustomNearClipPlane a1 =
-  withHG3DClass a1 $ \a1' -> 
-  disableCustomNearClipPlane'_ a1' >>= \res ->
-  return ()
-{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function isCustomNearClipPlaneEnabled -}
-isCustomNearClipPlaneEnabled :: HG3DClass -> IO (Bool)
-isCustomNearClipPlaneEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isCustomNearClipPlaneEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getPositionForViewUpdate -}
-getPositionForViewUpdate :: HG3DClass -> IO (Vec3)
-getPositionForViewUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPositionForViewUpdate'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getOrientationForViewUpdate -}
-getOrientationForViewUpdate :: HG3DClass -> IO (Quaternion)
-getOrientationForViewUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientationForViewUpdate'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function setOrientationMode -}
-setOrientationMode :: HG3DClass -> EnumOrientationMode -> IO ()
-setOrientationMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setOrientationMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-{- function getOrientationMode -}
-getOrientationMode :: HG3DClass -> IO (EnumOrientationMode)
-getOrientationMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientationMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFOVy"
-  setFOVy'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getFOVy"
-  getFOVy'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setNearClipDistance"
-  setNearClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getNearClipDistance"
-  getNearClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFarClipDistance"
-  setFarClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getFarClipDistance"
-  getFarClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setAspectRatio"
-  setAspectRatio'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getAspectRatio"
-  getAspectRatio'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFrustumOffset"
-  setFrustumOffset'_ :: ((HG3DClassPtr) -> ((Vec2Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFrustumOffset2"
-  setFrustumOffset2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getFrustumOffset"
-  getFrustumOffset'_ :: ((HG3DClassPtr) -> ((Vec2Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFocalLength"
-  setFocalLength'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getFocalLength"
-  getFocalLength'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setFrustumExtents"
-  setFrustumExtents'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_resetFrustumExtents"
-  resetFrustumExtents'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getFrustumExtents"
-  getFrustumExtents'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_isCustomViewMatrixEnabled"
-  isCustomViewMatrixEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_isCustomProjectionMatrixEnabled"
-  isCustomProjectionMatrixEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_isVisible3"
-  isVisible3'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getTypeFlags"
-  getTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getMaterial"
-  getMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getWorldSpaceCorners"
-  getWorldSpaceCorners'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setProjectionType"
-  setProjectionType'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getProjectionType"
-  getProjectionType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setOrthoWindow"
-  setOrthoWindow'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setOrthoWindowHeight"
-  setOrthoWindowHeight'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setOrthoWindowWidth"
-  setOrthoWindowWidth'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getOrthoWindowHeight"
-  getOrthoWindowHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getOrthoWindowWidth"
-  getOrthoWindowWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_disableReflection"
-  disableReflection'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_isReflected"
-  isReflected'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_disableCustomNearClipPlane"
-  disableCustomNearClipPlane'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_isCustomNearClipPlaneEnabled"
-  isCustomNearClipPlaneEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getPositionForViewUpdate"
-  getPositionForViewUpdate'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getOrientationForViewUpdate"
-  getOrientationForViewUpdate'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_setOrientationMode"
-  setOrientationMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_getOrientationMode"
-  getOrientationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
− HGamer3D/Bindings/Ogre/ClassHG3DMessagePump.hs 
@@ -1,138 +0,0 @@--- 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\\ClassHG3DMessagePump.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassHG3DMessagePump.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassHG3DMessagePump where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function HG3DMessagePump -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function ~HG3DMessagePump -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function messagePump -}
-messagePump :: HG3DClass -> IO ()
-messagePump a1 =
-  withHG3DClass a1 $ \a1' -> 
-  messagePump'_ a1' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function eventsPending -}
-eventsPending :: HG3DClass -> IO (Bool)
-eventsPending a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  eventsPending'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function getKeyUpEvent -}
-getKeyUpEvent :: HG3DClass -> IO (Int)
-getKeyUpEvent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getKeyUpEvent'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function getKeyDownEvent -}
-getKeyDownEvent :: HG3DClass -> IO (Int)
-getKeyDownEvent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getKeyDownEvent'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-{- function getCharEvent -}
-getCharEvent :: HG3DClass -> IO (Int)
-getCharEvent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCharEvent'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_messagePump"
-  messagePump'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_eventsPending"
-  eventsPending'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_getKeyUpEvent"
-  getKeyUpEvent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_getKeyDownEvent"
-  getKeyDownEvent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_getCharEvent"
-  getCharEvent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassHG3DUtilities.chs view
@@ -0,0 +1,56 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassHG3DUtilities.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassHG3DUtilities where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassHG3DUtilities.h"
+{- function getWindowHandle -}+{#fun ogre_hg3dutl_getWindowHandle as getWindowHandle +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setupCloseEventHandler -}+{#fun ogre_hg3dutl_setupCloseEventHandler as setupCloseEventHandler +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function checkQuitReceived -}+{#fun ogre_hg3dutl_checkQuitReceived as checkQuitReceived +{ alloca- `Int' peekIntConv*} -> `()'  #}+
+ HGamer3D/Bindings/Ogre/ClassLight.chs view
@@ -0,0 +1,293 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassLight.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassLight where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumLightType #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructRadians #}+
+#include "ClassLight.h"
+{- function Light2 -}+{#fun ogre_lgt_construct as new +{ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Light -}+{#fun ogre_lgt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setType -}+{#fun ogre_lgt_setType as setType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLightType' } -> `()'  #}++{- function getType -}+{#fun ogre_lgt_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumLightType' peekEnumUtil*} -> `()'  #}++{- function setDiffuseColour -}+{#fun ogre_lgt_setDiffuseColour as setDiffuseColour +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setDiffuseColour2 -}+{#fun ogre_lgt_setDiffuseColour2 as setDiffuseColour2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getDiffuseColour -}+{#fun ogre_lgt_getDiffuseColour as getDiffuseColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function setSpecularColour -}+{#fun ogre_lgt_setSpecularColour as setSpecularColour +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setSpecularColour2 -}+{#fun ogre_lgt_setSpecularColour2 as setSpecularColour2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getSpecularColour -}+{#fun ogre_lgt_getSpecularColour as getSpecularColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function setAttenuation -}+{#fun ogre_lgt_setAttenuation as setAttenuation +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function getAttenuationRange -}+{#fun ogre_lgt_getAttenuationRange as getAttenuationRange +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAttenuationConstant -}+{#fun ogre_lgt_getAttenuationConstant as getAttenuationConstant +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAttenuationLinear -}+{#fun ogre_lgt_getAttenuationLinear as getAttenuationLinear +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAttenuationQuadric -}+{#fun ogre_lgt_getAttenuationQuadric as getAttenuationQuadric +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setPosition -}+{#fun ogre_lgt_setPosition as setPosition +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setPosition2 -}+{#fun ogre_lgt_setPosition2 as setPosition2 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getPosition -}+{#fun ogre_lgt_getPosition as getPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setDirection -}+{#fun ogre_lgt_setDirection as setDirection +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setDirection2 -}+{#fun ogre_lgt_setDirection2 as setDirection2 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getDirection -}+{#fun ogre_lgt_getDirection as getDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setSpotlightRange -}+{#fun ogre_lgt_setSpotlightRange as setSpotlightRange +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' ,+ withRadians* `Radians' ,+ realToFrac `Float' } -> `()'  #}++{- function getSpotlightInnerAngle -}+{#fun ogre_lgt_getSpotlightInnerAngle as getSpotlightInnerAngle +{ withHG3DClass* `HG3DClass' ,+ alloca- `Radians' peekRadians*} -> `()'  #}++{- function getSpotlightOuterAngle -}+{#fun ogre_lgt_getSpotlightOuterAngle as getSpotlightOuterAngle +{ withHG3DClass* `HG3DClass' ,+ alloca- `Radians' peekRadians*} -> `()'  #}++{- function getSpotlightFalloff -}+{#fun ogre_lgt_getSpotlightFalloff as getSpotlightFalloff +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setSpotlightInnerAngle -}+{#fun ogre_lgt_setSpotlightInnerAngle as setSpotlightInnerAngle +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function setSpotlightOuterAngle -}+{#fun ogre_lgt_setSpotlightOuterAngle as setSpotlightOuterAngle +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' } -> `()'  #}++{- function setSpotlightFalloff -}+{#fun ogre_lgt_setSpotlightFalloff as setSpotlightFalloff +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setSpotlightNearClipDistance -}+{#fun ogre_lgt_setSpotlightNearClipDistance as setSpotlightNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getSpotlightNearClipDistance -}+{#fun ogre_lgt_getSpotlightNearClipDistance as getSpotlightNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setPowerScale -}+{#fun ogre_lgt_setPowerScale as setPowerScale +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getPowerScale -}+{#fun ogre_lgt_getPowerScale as getPowerScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_lgt_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getDerivedPosition -}+{#fun ogre_lgt_getDerivedPosition as getDerivedPosition +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getDerivedDirection -}+{#fun ogre_lgt_getDerivedDirection as getDerivedDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setVisible -}+{#fun ogre_lgt_setVisible as setVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_lgt_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getTypeFlags -}+{#fun ogre_lgt_getTypeFlags as getTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function resetCustomShadowCameraSetup -}+{#fun ogre_lgt_resetCustomShadowCameraSetup as resetCustomShadowCameraSetup +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setShadowFarDistance -}+{#fun ogre_lgt_setShadowFarDistance as setShadowFarDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function resetShadowFarDistance -}+{#fun ogre_lgt_resetShadowFarDistance as resetShadowFarDistance +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getShadowFarDistance -}+{#fun ogre_lgt_getShadowFarDistance as getShadowFarDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getShadowFarDistanceSquared -}+{#fun ogre_lgt_getShadowFarDistanceSquared as getShadowFarDistanceSquared +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setShadowNearClipDistance -}+{#fun ogre_lgt_setShadowNearClipDistance as setShadowNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getShadowNearClipDistance -}+{#fun ogre_lgt_getShadowNearClipDistance as getShadowNearClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setShadowFarClipDistance -}+{#fun ogre_lgt_setShadowFarClipDistance as setShadowFarClipDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getShadowFarClipDistance -}+{#fun ogre_lgt_getShadowFarClipDistance as getShadowFarClipDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassLight.hs 
@@ -1,659 +0,0 @@--- 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\\ClassLight.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassLight.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassLight where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLightType
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.StructRadians
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function Light2 -}
-new :: String -> IO (HG3DClass)
-new a1 =
-  withCString a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  new'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function ~Light -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setType -}
-setType :: HG3DClass -> EnumLightType -> IO ()
-setType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (EnumLightType)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setDiffuseColour -}
-setDiffuseColour :: HG3DClass -> Float -> Float -> Float -> IO ()
-setDiffuseColour a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setDiffuseColour'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setDiffuseColour2 -}
-setDiffuseColour2 :: HG3DClass -> Colour -> IO ()
-setDiffuseColour2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setDiffuseColour2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getDiffuseColour -}
-getDiffuseColour :: HG3DClass -> IO (Colour)
-getDiffuseColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDiffuseColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpecularColour -}
-setSpecularColour :: HG3DClass -> Float -> Float -> Float -> IO ()
-setSpecularColour a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setSpecularColour'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpecularColour2 -}
-setSpecularColour2 :: HG3DClass -> Colour -> IO ()
-setSpecularColour2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setSpecularColour2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getSpecularColour -}
-getSpecularColour :: HG3DClass -> IO (Colour)
-getSpecularColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpecularColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setAttenuation -}
-setAttenuation :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setAttenuation a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setAttenuation'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getAttenuationRange -}
-getAttenuationRange :: HG3DClass -> IO (Float)
-getAttenuationRange a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAttenuationRange'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getAttenuationConstant -}
-getAttenuationConstant :: HG3DClass -> IO (Float)
-getAttenuationConstant a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAttenuationConstant'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getAttenuationLinear -}
-getAttenuationLinear :: HG3DClass -> IO (Float)
-getAttenuationLinear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAttenuationLinear'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getAttenuationQuadric -}
-getAttenuationQuadric :: HG3DClass -> IO (Float)
-getAttenuationQuadric a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAttenuationQuadric'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setPosition -}
-setPosition :: HG3DClass -> Float -> Float -> Float -> IO ()
-setPosition a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setPosition'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setPosition2 -}
-setPosition2 :: HG3DClass -> Vec3 -> IO ()
-setPosition2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setPosition2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getPosition -}
-getPosition :: HG3DClass -> IO (Vec3)
-getPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setDirection -}
-setDirection :: HG3DClass -> Float -> Float -> Float -> IO ()
-setDirection a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setDirection'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setDirection2 -}
-setDirection2 :: HG3DClass -> Vec3 -> IO ()
-setDirection2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setDirection2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getDirection -}
-getDirection :: HG3DClass -> IO (Vec3)
-getDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpotlightRange -}
-setSpotlightRange :: HG3DClass -> Radians -> Radians -> Float -> IO ()
-setSpotlightRange a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  withRadians a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  setSpotlightRange'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getSpotlightInnerAngle -}
-getSpotlightInnerAngle :: HG3DClass -> IO (Radians)
-getSpotlightInnerAngle a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpotlightInnerAngle'_ a1' a2' >>= \res ->
-  peekRadians  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getSpotlightOuterAngle -}
-getSpotlightOuterAngle :: HG3DClass -> IO (Radians)
-getSpotlightOuterAngle a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpotlightOuterAngle'_ a1' a2' >>= \res ->
-  peekRadians  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getSpotlightFalloff -}
-getSpotlightFalloff :: HG3DClass -> IO (Float)
-getSpotlightFalloff a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpotlightFalloff'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpotlightInnerAngle -}
-setSpotlightInnerAngle :: HG3DClass -> Radians -> IO ()
-setSpotlightInnerAngle a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  setSpotlightInnerAngle'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpotlightOuterAngle -}
-setSpotlightOuterAngle :: HG3DClass -> Radians -> IO ()
-setSpotlightOuterAngle a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  setSpotlightOuterAngle'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpotlightFalloff -}
-setSpotlightFalloff :: HG3DClass -> Float -> IO ()
-setSpotlightFalloff a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setSpotlightFalloff'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 201 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setSpotlightNearClipDistance -}
-setSpotlightNearClipDistance :: HG3DClass -> Float -> IO ()
-setSpotlightNearClipDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setSpotlightNearClipDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getSpotlightNearClipDistance -}
-getSpotlightNearClipDistance :: HG3DClass -> IO (Float)
-getSpotlightNearClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpotlightNearClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setPowerScale -}
-setPowerScale :: HG3DClass -> Float -> IO ()
-setPowerScale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setPowerScale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getPowerScale -}
-getPowerScale :: HG3DClass -> IO (Float)
-getPowerScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPowerScale'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getDerivedPosition -}
-getDerivedPosition :: HG3DClass -> Bool -> IO (Vec3)
-getDerivedPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  alloca $ \a3' -> 
-  getDerivedPosition'_ a1' a2' a3' >>= \res ->
-  peekVec3  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getDerivedDirection -}
-getDerivedDirection :: HG3DClass -> IO (Vec3)
-getDerivedDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDerivedDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setVisible -}
-setVisible :: HG3DClass -> Bool -> IO ()
-setVisible a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVisible'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getTypeFlags -}
-getTypeFlags :: HG3DClass -> IO (Int)
-getTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTypeFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 252 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function resetCustomShadowCameraSetup -}
-resetCustomShadowCameraSetup :: HG3DClass -> IO ()
-resetCustomShadowCameraSetup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetCustomShadowCameraSetup'_ a1' >>= \res ->
-  return ()
-{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setShadowFarDistance -}
-setShadowFarDistance :: HG3DClass -> Float -> IO ()
-setShadowFarDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowFarDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function resetShadowFarDistance -}
-resetShadowFarDistance :: HG3DClass -> IO ()
-resetShadowFarDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetShadowFarDistance'_ a1' >>= \res ->
-  return ()
-{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getShadowFarDistance -}
-getShadowFarDistance :: HG3DClass -> IO (Float)
-getShadowFarDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowFarDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getShadowFarDistanceSquared -}
-getShadowFarDistanceSquared :: HG3DClass -> IO (Float)
-getShadowFarDistanceSquared a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowFarDistanceSquared'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setShadowNearClipDistance -}
-setShadowNearClipDistance :: HG3DClass -> Float -> IO ()
-setShadowNearClipDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowNearClipDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getShadowNearClipDistance -}
-getShadowNearClipDistance :: HG3DClass -> IO (Float)
-getShadowNearClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowNearClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function setShadowFarClipDistance -}
-setShadowFarClipDistance :: HG3DClass -> Float -> IO ()
-setShadowFarClipDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowFarClipDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-{- function getShadowFarClipDistance -}
-getShadowFarClipDistance :: HG3DClass -> IO (Float)
-getShadowFarClipDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowFarClipDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setType"
-  setType'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setDiffuseColour"
-  setDiffuseColour'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setDiffuseColour2"
-  setDiffuseColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getDiffuseColour"
-  getDiffuseColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpecularColour"
-  setSpecularColour'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpecularColour2"
-  setSpecularColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getSpecularColour"
-  getSpecularColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setAttenuation"
-  setAttenuation'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getAttenuationRange"
-  getAttenuationRange'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getAttenuationConstant"
-  getAttenuationConstant'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getAttenuationLinear"
-  getAttenuationLinear'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getAttenuationQuadric"
-  getAttenuationQuadric'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setPosition"
-  setPosition'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setPosition2"
-  setPosition2'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getPosition"
-  getPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setDirection"
-  setDirection'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setDirection2"
-  setDirection2'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getDirection"
-  getDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpotlightRange"
-  setSpotlightRange'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> ((RadiansPtr) -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getSpotlightInnerAngle"
-  getSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getSpotlightOuterAngle"
-  getSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getSpotlightFalloff"
-  getSpotlightFalloff'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpotlightInnerAngle"
-  setSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpotlightOuterAngle"
-  setSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpotlightFalloff"
-  setSpotlightFalloff'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setSpotlightNearClipDistance"
-  setSpotlightNearClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getSpotlightNearClipDistance"
-  getSpotlightNearClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setPowerScale"
-  setPowerScale'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getPowerScale"
-  getPowerScale'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getDerivedPosition"
-  getDerivedPosition'_ :: ((HG3DClassPtr) -> (CInt -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getDerivedDirection"
-  getDerivedDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setVisible"
-  setVisible'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getTypeFlags"
-  getTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_resetCustomShadowCameraSetup"
-  resetCustomShadowCameraSetup'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setShadowFarDistance"
-  setShadowFarDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_resetShadowFarDistance"
-  resetShadowFarDistance'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getShadowFarDistance"
-  getShadowFarDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getShadowFarDistanceSquared"
-  getShadowFarDistanceSquared'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setShadowNearClipDistance"
-  setShadowNearClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getShadowNearClipDistance"
-  getShadowNearClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_setShadowFarClipDistance"
-  setShadowFarClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_getShadowFarClipDistance"
-  getShadowFarClipDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassLightFactory.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassLightFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassLightFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassLightFactory.h"
+{- function LightFactory -}+{#fun ogre_lgtf_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~LightFactory -}+{#fun ogre_lgtf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_lgtf_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_lgtf_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassLightFactory.hs 
@@ -1,100 +0,0 @@--- 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\\ClassLightFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassLightFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassLightFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-
-{- function LightFactory -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-
-{- function ~LightFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs.h ogre_lgtf_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs.h ogre_lgtf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs.h ogre_lgtf_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs.h ogre_lgtf_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassLog.chs view
@@ -0,0 +1,96 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassLog.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassLog where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumLogMessageLevel #}+{# import HGamer3D.Bindings.Ogre.EnumLoggingLevel #}+
+#include "ClassLog.h"
+{- function ~Log -}+{#fun ogre_lg_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_lg_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isDebugOutputEnabled -}+{#fun ogre_lg_isDebugOutputEnabled as isDebugOutputEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isFileOutputSuppressed -}+{#fun ogre_lg_isFileOutputSuppressed as isFileOutputSuppressed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isTimeStampEnabled -}+{#fun ogre_lg_isTimeStampEnabled as isTimeStampEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function logMessage -}+{#fun ogre_lg_logMessage as logMessage +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumLogMessageLevel' ,+ fromBool `Bool' } -> `()'  #}++{- function setDebugOutputEnabled -}+{#fun ogre_lg_setDebugOutputEnabled as setDebugOutputEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setLogDetail -}+{#fun ogre_lg_setLogDetail as setLogDetail +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLoggingLevel' } -> `()'  #}++{- function setTimeStampEnabled -}+{#fun ogre_lg_setTimeStampEnabled as setTimeStampEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getLogDetail -}+{#fun ogre_lg_getLogDetail as getLogDetail +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumLoggingLevel' peekEnumUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassLog.hs 
@@ -1,182 +0,0 @@--- 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\\ClassLog.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassLog.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassLog where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLogMessageLevel
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLoggingLevel
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function ~Log -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function isDebugOutputEnabled -}
-isDebugOutputEnabled :: HG3DClass -> IO (Bool)
-isDebugOutputEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDebugOutputEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function isFileOutputSuppressed -}
-isFileOutputSuppressed :: HG3DClass -> IO (Bool)
-isFileOutputSuppressed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isFileOutputSuppressed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function isTimeStampEnabled -}
-isTimeStampEnabled :: HG3DClass -> IO (Bool)
-isTimeStampEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTimeStampEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function logMessage -}
-logMessage :: HG3DClass -> String -> EnumLogMessageLevel -> Bool -> IO ()
-logMessage a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  let {a4' = fromBool a4} in 
-  logMessage'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function setDebugOutputEnabled -}
-setDebugOutputEnabled :: HG3DClass -> Bool -> IO ()
-setDebugOutputEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDebugOutputEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function setLogDetail -}
-setLogDetail :: HG3DClass -> EnumLoggingLevel -> IO ()
-setLogDetail a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setLogDetail'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function setTimeStampEnabled -}
-setTimeStampEnabled :: HG3DClass -> Bool -> IO ()
-setTimeStampEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setTimeStampEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-{- function getLogDetail -}
-getLogDetail :: HG3DClass -> IO (EnumLoggingLevel)
-getLogDetail a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLogDetail'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_isDebugOutputEnabled"
-  isDebugOutputEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_isFileOutputSuppressed"
-  isFileOutputSuppressed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_isTimeStampEnabled"
-  isTimeStampEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_logMessage"
-  logMessage'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_setDebugOutputEnabled"
-  setDebugOutputEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_setLogDetail"
-  setLogDetail'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_setTimeStampEnabled"
-  setTimeStampEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_getLogDetail"
-  getLogDetail'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassLogManager.chs view
@@ -0,0 +1,112 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassLogManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassLogManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumLogMessageLevel #}+{# import HGamer3D.Bindings.Ogre.EnumLoggingLevel #}+
+#include "ClassLogManager.h"
+{- function ~LogManager -}+{#fun ogre_lmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createLog -}+{#fun ogre_lmgr_createLog as createLog +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' ,+ fromBool `Bool' ,+ fromBool `Bool' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getLog -}+{#fun ogre_lmgr_getLog as getLog +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDefaultLog -}+{#fun ogre_lmgr_getDefaultLog as getDefaultLog +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyLog -}+{#fun ogre_lmgr_destroyLog as destroyLog +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyLog2 -}+{#fun ogre_lmgr_destroyLog2 as destroyLog2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDefaultLog -}+{#fun ogre_lmgr_setDefaultLog as setDefaultLog +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function logMessage -}+{#fun ogre_lmgr_logMessage as logMessage +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumLogMessageLevel' ,+ fromBool `Bool' } -> `()'  #}++{- function logMessage2 -}+{#fun ogre_lmgr_logMessage2 as logMessage2 +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLogMessageLevel' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function setLogDetail -}+{#fun ogre_lmgr_setLogDetail as setLogDetail +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLoggingLevel' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_lmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_lmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassLogManager.hs 
@@ -1,213 +0,0 @@--- 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\\ClassLogManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassLogManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassLogManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLogMessageLevel
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLoggingLevel
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function ~LogManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function createLog -}
-createLog :: HG3DClass -> String -> Bool -> Bool -> Bool -> IO (HG3DClass)
-createLog a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  let {a4' = fromBool a4} in 
-  let {a5' = fromBool a5} in 
-  alloca $ \a6' -> 
-  createLog'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peek  a6'>>= \a6'' -> 
-  return (a6'')
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function getLog -}
-getLog :: HG3DClass -> String -> IO (HG3DClass)
-getLog a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getLog'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function getDefaultLog -}
-getDefaultLog :: HG3DClass -> IO (HG3DClass)
-getDefaultLog a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultLog'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function destroyLog -}
-destroyLog :: HG3DClass -> String -> IO ()
-destroyLog a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyLog'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function destroyLog2 -}
-destroyLog2 :: HG3DClass -> HG3DClass -> IO ()
-destroyLog2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyLog2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function setDefaultLog -}
-setDefaultLog :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-setDefaultLog a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  setDefaultLog'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function logMessage -}
-logMessage :: HG3DClass -> String -> EnumLogMessageLevel -> Bool -> IO ()
-logMessage a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  let {a4' = fromBool a4} in 
-  logMessage'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function logMessage2 -}
-logMessage2 :: HG3DClass -> EnumLogMessageLevel -> String -> Bool -> IO ()
-logMessage2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  withCString a3 $ \a3' -> 
-  let {a4' = fromBool a4} in 
-  logMessage2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function setLogDetail -}
-setLogDetail :: HG3DClass -> EnumLoggingLevel -> IO ()
-setLogDetail a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setLogDetail'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_createLog"
-  createLog'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CInt -> (CInt -> ((HG3DClassPtr) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_getLog"
-  getLog'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_getDefaultLog"
-  getDefaultLog'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_destroyLog"
-  destroyLog'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_destroyLog2"
-  destroyLog2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_setDefaultLog"
-  setDefaultLog'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_logMessage"
-  logMessage'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_logMessage2"
-  logMessage2'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_setLogDetail"
-  setLogDetail'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassManualObject.chs view
@@ -0,0 +1,283 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassManualObject.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassManualObject where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructVec2 #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+
+#include "ClassManualObject.h"
+{- function ManualObject -}+{#fun ogre_mno_construct as new +{ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ManualObject -}+{#fun ogre_mno_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clear -}+{#fun ogre_mno_clear as clear +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function estimateVertexCount -}+{#fun ogre_mno_estimateVertexCount as estimateVertexCount +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function estimateIndexCount -}+{#fun ogre_mno_estimateIndexCount as estimateIndexCount +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function begin -}+{#fun ogre_mno_begin as begin +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumRenderOperationOperationType' ,+ withCString* `String' } -> `()'  #}++{- function setDynamic -}+{#fun ogre_mno_setDynamic as setDynamic +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getDynamic -}+{#fun ogre_mno_getDynamic as getDynamic +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function beginUpdate -}+{#fun ogre_mno_beginUpdate as beginUpdate +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function position -}+{#fun ogre_mno_position as position +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function position2 -}+{#fun ogre_mno_position2 as position2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function normal -}+{#fun ogre_mno_normal as normal +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function normal2 -}+{#fun ogre_mno_normal2 as normal2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function tangent -}+{#fun ogre_mno_tangent as tangent +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function tangent2 -}+{#fun ogre_mno_tangent2 as tangent2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function textureCoord -}+{#fun ogre_mno_textureCoord as textureCoord +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function textureCoord2 -}+{#fun ogre_mno_textureCoord2 as textureCoord2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function textureCoord3 -}+{#fun ogre_mno_textureCoord3 as textureCoord3 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function textureCoord4 -}+{#fun ogre_mno_textureCoord4 as textureCoord4 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function textureCoord5 -}+{#fun ogre_mno_textureCoord5 as textureCoord5 +{ withHG3DClass* `HG3DClass' ,+ withVec2* `Vec2' } -> `()'  #}++{- function textureCoord6 -}+{#fun ogre_mno_textureCoord6 as textureCoord6 +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function colour -}+{#fun ogre_mno_colour as colour +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function colour2 -}+{#fun ogre_mno_colour2 as colour2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function index -}+{#fun ogre_mno_index as index +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function triangle -}+{#fun ogre_mno_triangle as triangle +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function quad -}+{#fun ogre_mno_quad as quad +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function getCurrentVertexCount -}+{#fun ogre_mno_getCurrentVertexCount as getCurrentVertexCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getCurrentIndexCount -}+{#fun ogre_mno_getCurrentIndexCount as getCurrentIndexCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function end -}+{#fun ogre_mno_end as end +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setMaterialName -}+{#fun ogre_mno_setMaterialName as setMaterialName +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function convertToMesh -}+{#fun ogre_mno_convertToMesh as convertToMesh +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function setUseIdentityProjection -}+{#fun ogre_mno_setUseIdentityProjection as setUseIdentityProjection +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseIdentityProjection -}+{#fun ogre_mno_getUseIdentityProjection as getUseIdentityProjection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setUseIdentityView -}+{#fun ogre_mno_setUseIdentityView as setUseIdentityView +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseIdentityView -}+{#fun ogre_mno_getUseIdentityView as getUseIdentityView +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSection -}+{#fun ogre_mno_getSection as getSection +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumSections -}+{#fun ogre_mno_getNumSections as getNumSections +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setKeepDeclarationOrder -}+{#fun ogre_mno_setKeepDeclarationOrder as setKeepDeclarationOrder +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getKeepDeclarationOrder -}+{#fun ogre_mno_getKeepDeclarationOrder as getKeepDeclarationOrder +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_mno_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_mno_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function hasEdgeList -}+{#fun ogre_mno_hasEdgeList as hasEdgeList +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassManualObject.hs 
@@ -1,605 +0,0 @@--- 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\\ClassManualObject.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassManualObject.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassManualObject where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec2
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function ManualObject -}
-new :: String -> IO (HG3DClass)
-new a1 =
-  withCString a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  new'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function ~ManualObject -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function clear -}
-clear :: HG3DClass -> IO ()
-clear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clear'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function estimateVertexCount -}
-estimateVertexCount :: HG3DClass -> Int -> IO ()
-estimateVertexCount a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  estimateVertexCount'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function estimateIndexCount -}
-estimateIndexCount :: HG3DClass -> Int -> IO ()
-estimateIndexCount a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  estimateIndexCount'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function begin -}
-begin :: HG3DClass -> String -> EnumRenderOperationOperationType -> String -> IO ()
-begin a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  withCString a4 $ \a4' -> 
-  begin'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function setDynamic -}
-setDynamic :: HG3DClass -> Bool -> IO ()
-setDynamic a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDynamic'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getDynamic -}
-getDynamic :: HG3DClass -> IO (Bool)
-getDynamic a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDynamic'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function beginUpdate -}
-beginUpdate :: HG3DClass -> Int -> IO ()
-beginUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  beginUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function position -}
-position :: HG3DClass -> Vec3 -> IO ()
-position a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  position'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function position2 -}
-position2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-position2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  position2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function normal -}
-normal :: HG3DClass -> Vec3 -> IO ()
-normal a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  normal'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function normal2 -}
-normal2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-normal2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  normal2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function tangent -}
-tangent :: HG3DClass -> Vec3 -> IO ()
-tangent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  tangent'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function tangent2 -}
-tangent2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-tangent2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  tangent2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord -}
-textureCoord :: HG3DClass -> Float -> IO ()
-textureCoord a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  textureCoord'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord2 -}
-textureCoord2 :: HG3DClass -> Float -> Float -> IO ()
-textureCoord2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  textureCoord2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord3 -}
-textureCoord3 :: HG3DClass -> Float -> Float -> Float -> IO ()
-textureCoord3 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  textureCoord3'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord4 -}
-textureCoord4 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-textureCoord4 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  textureCoord4'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord5 -}
-textureCoord5 :: HG3DClass -> Vec2 -> IO ()
-textureCoord5 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec2 a2 $ \a2' -> 
-  textureCoord5'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function textureCoord6 -}
-textureCoord6 :: HG3DClass -> Vec3 -> IO ()
-textureCoord6 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  textureCoord6'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function colour -}
-colour :: HG3DClass -> Colour -> IO ()
-colour a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  colour'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function colour2 -}
-colour2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-colour2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  colour2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function index -}
-index :: HG3DClass -> Int -> IO ()
-index a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  index'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function triangle -}
-triangle :: HG3DClass -> Int -> Int -> Int -> IO ()
-triangle a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  triangle'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function quad -}
-quad :: HG3DClass -> Int -> Int -> Int -> Int -> IO ()
-quad a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  let {a5' = fromIntegral a5} in 
-  quad'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getCurrentVertexCount -}
-getCurrentVertexCount :: HG3DClass -> IO (Int)
-getCurrentVertexCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentVertexCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getCurrentIndexCount -}
-getCurrentIndexCount :: HG3DClass -> IO (Int)
-getCurrentIndexCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentIndexCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function end -}
-end :: HG3DClass -> IO (HG3DClass)
-end a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  end'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function setMaterialName -}
-setMaterialName :: HG3DClass -> Int -> String -> String -> IO ()
-setMaterialName a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  setMaterialName'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function convertToMesh -}
-convertToMesh :: HG3DClass -> String -> String -> IO (SharedPtr)
-convertToMesh a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  convertToMesh'_ a1' a2' a3' a4' >>= \res ->
-  peekSharedPtr  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function setUseIdentityProjection -}
-setUseIdentityProjection :: HG3DClass -> Bool -> IO ()
-setUseIdentityProjection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseIdentityProjection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getUseIdentityProjection -}
-getUseIdentityProjection :: HG3DClass -> IO (Bool)
-getUseIdentityProjection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseIdentityProjection'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function setUseIdentityView -}
-setUseIdentityView :: HG3DClass -> Bool -> IO ()
-setUseIdentityView a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseIdentityView'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getUseIdentityView -}
-getUseIdentityView :: HG3DClass -> IO (Bool)
-getUseIdentityView a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseIdentityView'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getSection -}
-getSection :: HG3DClass -> Int -> IO (HG3DClass)
-getSection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getSection'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getNumSections -}
-getNumSections :: HG3DClass -> IO (Int)
-getNumSections a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumSections'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function setKeepDeclarationOrder -}
-setKeepDeclarationOrder :: HG3DClass -> Bool -> IO ()
-setKeepDeclarationOrder a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setKeepDeclarationOrder'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getKeepDeclarationOrder -}
-getKeepDeclarationOrder :: HG3DClass -> IO (Bool)
-getKeepDeclarationOrder a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getKeepDeclarationOrder'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-{- function hasEdgeList -}
-hasEdgeList :: HG3DClass -> IO (Bool)
-hasEdgeList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasEdgeList'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_construct"
-  new'_ :: ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_clear"
-  clear'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_estimateVertexCount"
-  estimateVertexCount'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_estimateIndexCount"
-  estimateIndexCount'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_begin"
-  begin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_setDynamic"
-  setDynamic'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getDynamic"
-  getDynamic'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_beginUpdate"
-  beginUpdate'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_position"
-  position'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_position2"
-  position2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_normal"
-  normal'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_normal2"
-  normal2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_tangent"
-  tangent'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_tangent2"
-  tangent2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord"
-  textureCoord'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord2"
-  textureCoord2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord3"
-  textureCoord3'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord4"
-  textureCoord4'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord5"
-  textureCoord5'_ :: ((HG3DClassPtr) -> ((Vec2Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_textureCoord6"
-  textureCoord6'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_colour"
-  colour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_colour2"
-  colour2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_index"
-  index'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_triangle"
-  triangle'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (CUInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_quad"
-  quad'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (CUInt -> (CUInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getCurrentVertexCount"
-  getCurrentVertexCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getCurrentIndexCount"
-  getCurrentIndexCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_end"
-  end'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_setMaterialName"
-  setMaterialName'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_convertToMesh"
-  convertToMesh'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((SharedPtrPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_setUseIdentityProjection"
-  setUseIdentityProjection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getUseIdentityProjection"
-  getUseIdentityProjection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_setUseIdentityView"
-  setUseIdentityView'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getUseIdentityView"
-  getUseIdentityView'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getSection"
-  getSection'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getNumSections"
-  getNumSections'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_setKeepDeclarationOrder"
-  setKeepDeclarationOrder'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getKeepDeclarationOrder"
-  getKeepDeclarationOrder'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_hasEdgeList"
-  hasEdgeList'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassManualObjectFactory.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassManualObjectFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassManualObjectFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassManualObjectFactory.h"
+{- function ManualObjectFactory -}+{#fun ogre_mnof_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ManualObjectFactory -}+{#fun ogre_mnof_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_mnof_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_mnof_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassManualObjectFactory.hs 
@@ -1,100 +0,0 @@--- 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\\ClassManualObjectFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassManualObjectFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassManualObjectFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-
-{- function ManualObjectFactory -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-
-{- function ~ManualObjectFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs.h ogre_mnof_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs.h ogre_mnof_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs.h ogre_mnof_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs.h ogre_mnof_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassManualObjectSection.chs view
@@ -0,0 +1,94 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassManualObjectSection.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassManualObjectSection where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+
+#include "ClassManualObjectSection.h"
+{- function ManualObjectSection -}+{#fun ogre_mnos_construct as new +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumRenderOperationOperationType' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ManualObjectSection -}+{#fun ogre_mnos_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMaterialName -}+{#fun ogre_mnos_getMaterialName as getMaterialName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getMaterialGroup -}+{#fun ogre_mnos_getMaterialGroup as getMaterialGroup +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setMaterialName -}+{#fun ogre_mnos_setMaterialName as setMaterialName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function set32BitIndices -}+{#fun ogre_mnos_set32BitIndices as set32BitIndices +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function get32BitIndices -}+{#fun ogre_mnos_get32BitIndices as get32BitIndices +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getMaterial -}+{#fun ogre_mnos_getMaterial as getMaterial +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_mnos_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassManualObjectSection.hs 
@@ -1,174 +0,0 @@--- 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\\ClassManualObjectSection.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassManualObjectSection.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassManualObjectSection where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function ManualObjectSection -}
-new :: HG3DClass -> String -> EnumRenderOperationOperationType -> String -> IO (HG3DClass)
-new a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  withCString a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  new'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function ~ManualObjectSection -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function getMaterialName -}
-getMaterialName :: HG3DClass -> IO (String)
-getMaterialName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMaterialName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function getMaterialGroup -}
-getMaterialGroup :: HG3DClass -> IO (String)
-getMaterialGroup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMaterialGroup'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function setMaterialName -}
-setMaterialName :: HG3DClass -> String -> String -> IO ()
-setMaterialName a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setMaterialName'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function set32BitIndices -}
-set32BitIndices :: HG3DClass -> Bool -> IO ()
-set32BitIndices a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  set32BitIndices'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function get32BitIndices -}
-get32BitIndices :: HG3DClass -> IO (Bool)
-get32BitIndices a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  get32BitIndices'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function getMaterial -}
-getMaterial :: HG3DClass -> IO (SharedPtr)
-getMaterial a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaterial'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_construct"
-  new'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_getMaterialName"
-  getMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_getMaterialGroup"
-  getMaterialGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_setMaterialName"
-  setMaterialName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_set32BitIndices"
-  set32BitIndices'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_get32BitIndices"
-  get32BitIndices'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_getMaterial"
-  getMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
+ HGamer3D/Bindings/Ogre/ClassMaterial.chs view
@@ -0,0 +1,228 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMaterial.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMaterial where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+
+#include "ClassMaterial.h"
+{- function ~Material -}+{#fun ogre_mtrl_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isTransparent -}+{#fun ogre_mtrl_isTransparent as isTransparent +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setReceiveShadows -}+{#fun ogre_mtrl_setReceiveShadows as setReceiveShadows +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getReceiveShadows -}+{#fun ogre_mtrl_getReceiveShadows as getReceiveShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setTransparencyCastsShadows -}+{#fun ogre_mtrl_setTransparencyCastsShadows as setTransparencyCastsShadows +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getTransparencyCastsShadows -}+{#fun ogre_mtrl_getTransparencyCastsShadows as getTransparencyCastsShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getNumTechniques -}+{#fun ogre_mtrl_getNumTechniques as getNumTechniques +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function removeTechnique -}+{#fun ogre_mtrl_removeTechnique as removeTechnique +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeAllTechniques -}+{#fun ogre_mtrl_removeAllTechniques as removeAllTechniques +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getNumSupportedTechniques -}+{#fun ogre_mtrl_getNumSupportedTechniques as getNumSupportedTechniques +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getUnsupportedTechniquesExplanation -}+{#fun ogre_mtrl_getUnsupportedTechniquesExplanation as getUnsupportedTechniquesExplanation +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getNumLodLevels -}+{#fun ogre_mtrl_getNumLodLevels as getNumLodLevels +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getNumLodLevels2 -}+{#fun ogre_mtrl_getNumLodLevels2 as getNumLodLevels2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function clone -}+{#fun ogre_mtrl_clone as clone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' ,+ withCString* `String' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function copyDetailsTo -}+{#fun ogre_mtrl_copyDetailsTo as copyDetailsTo +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function compile -}+{#fun ogre_mtrl_compile as compile +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setPointSize -}+{#fun ogre_mtrl_setPointSize as setPointSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setAmbient -}+{#fun ogre_mtrl_setAmbient as setAmbient +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setAmbient2 -}+{#fun ogre_mtrl_setAmbient2 as setAmbient2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function setDiffuse -}+{#fun ogre_mtrl_setDiffuse as setDiffuse +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setDiffuse2 -}+{#fun ogre_mtrl_setDiffuse2 as setDiffuse2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function setSpecular -}+{#fun ogre_mtrl_setSpecular as setSpecular +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setSpecular2 -}+{#fun ogre_mtrl_setSpecular2 as setSpecular2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function setShininess -}+{#fun ogre_mtrl_setShininess as setShininess +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setSelfIllumination -}+{#fun ogre_mtrl_setSelfIllumination as setSelfIllumination +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setSelfIllumination2 -}+{#fun ogre_mtrl_setSelfIllumination2 as setSelfIllumination2 +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function setDepthCheckEnabled -}+{#fun ogre_mtrl_setDepthCheckEnabled as setDepthCheckEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDepthWriteEnabled -}+{#fun ogre_mtrl_setDepthWriteEnabled as setDepthWriteEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setColourWriteEnabled -}+{#fun ogre_mtrl_setColourWriteEnabled as setColourWriteEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setLightingEnabled -}+{#fun ogre_mtrl_setLightingEnabled as setLightingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDepthBias -}+{#fun ogre_mtrl_setDepthBias as setDepthBias +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setTextureAnisotropy -}+{#fun ogre_mtrl_setTextureAnisotropy as setTextureAnisotropy +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function touch -}+{#fun ogre_mtrl_touch as touch +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getCompilationRequired -}+{#fun ogre_mtrl_getCompilationRequired as getCompilationRequired +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMaterial.hs 
@@ -1,488 +0,0 @@--- 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\\ClassMaterial.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMaterial.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMaterial where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function ~Material -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function isTransparent -}
-isTransparent :: HG3DClass -> IO (Bool)
-isTransparent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isTransparent'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setReceiveShadows -}
-setReceiveShadows :: HG3DClass -> Bool -> IO ()
-setReceiveShadows a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setReceiveShadows'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getReceiveShadows -}
-getReceiveShadows :: HG3DClass -> IO (Bool)
-getReceiveShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getReceiveShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setTransparencyCastsShadows -}
-setTransparencyCastsShadows :: HG3DClass -> Bool -> IO ()
-setTransparencyCastsShadows a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setTransparencyCastsShadows'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getTransparencyCastsShadows -}
-getTransparencyCastsShadows :: HG3DClass -> IO (Bool)
-getTransparencyCastsShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTransparencyCastsShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getNumTechniques -}
-getNumTechniques :: HG3DClass -> IO (Int)
-getNumTechniques a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumTechniques'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function removeTechnique -}
-removeTechnique :: HG3DClass -> Int -> IO ()
-removeTechnique a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeTechnique'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function removeAllTechniques -}
-removeAllTechniques :: HG3DClass -> IO ()
-removeAllTechniques a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllTechniques'_ a1' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getNumSupportedTechniques -}
-getNumSupportedTechniques :: HG3DClass -> IO (Int)
-getNumSupportedTechniques a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumSupportedTechniques'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getUnsupportedTechniquesExplanation -}
-getUnsupportedTechniquesExplanation :: HG3DClass -> IO (String)
-getUnsupportedTechniquesExplanation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getUnsupportedTechniquesExplanation'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getNumLodLevels -}
-getNumLodLevels :: HG3DClass -> Int -> IO (Int)
-getNumLodLevels a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getNumLodLevels'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getNumLodLevels2 -}
-getNumLodLevels2 :: HG3DClass -> String -> IO (Int)
-getNumLodLevels2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getNumLodLevels2'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function clone -}
-clone :: HG3DClass -> String -> Bool -> String -> IO (SharedPtr)
-clone a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  withCString a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  clone'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekSharedPtr  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function copyDetailsTo -}
-copyDetailsTo :: HG3DClass -> IO (SharedPtr)
-copyDetailsTo a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  copyDetailsTo'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function compile -}
-compile :: HG3DClass -> Bool -> IO ()
-compile a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  compile'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setPointSize -}
-setPointSize :: HG3DClass -> Float -> IO ()
-setPointSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setPointSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setAmbient -}
-setAmbient :: HG3DClass -> Float -> Float -> Float -> IO ()
-setAmbient a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setAmbient'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setAmbient2 -}
-setAmbient2 :: HG3DClass -> Colour -> IO ()
-setAmbient2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setAmbient2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setDiffuse -}
-setDiffuse :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setDiffuse a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setDiffuse'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setDiffuse2 -}
-setDiffuse2 :: HG3DClass -> Colour -> IO ()
-setDiffuse2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setDiffuse2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setSpecular -}
-setSpecular :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setSpecular a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setSpecular'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setSpecular2 -}
-setSpecular2 :: HG3DClass -> Colour -> IO ()
-setSpecular2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setSpecular2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setShininess -}
-setShininess :: HG3DClass -> Float -> IO ()
-setShininess a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShininess'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setSelfIllumination -}
-setSelfIllumination :: HG3DClass -> Float -> Float -> Float -> IO ()
-setSelfIllumination a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setSelfIllumination'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setSelfIllumination2 -}
-setSelfIllumination2 :: HG3DClass -> Colour -> IO ()
-setSelfIllumination2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setSelfIllumination2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setDepthCheckEnabled -}
-setDepthCheckEnabled :: HG3DClass -> Bool -> IO ()
-setDepthCheckEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDepthCheckEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setDepthWriteEnabled -}
-setDepthWriteEnabled :: HG3DClass -> Bool -> IO ()
-setDepthWriteEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDepthWriteEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setColourWriteEnabled -}
-setColourWriteEnabled :: HG3DClass -> Bool -> IO ()
-setColourWriteEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setColourWriteEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setLightingEnabled -}
-setLightingEnabled :: HG3DClass -> Bool -> IO ()
-setLightingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setLightingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setDepthBias -}
-setDepthBias :: HG3DClass -> Float -> Float -> IO ()
-setDepthBias a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  setDepthBias'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function setTextureAnisotropy -}
-setTextureAnisotropy :: HG3DClass -> Int -> IO ()
-setTextureAnisotropy a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setTextureAnisotropy'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function touch -}
-touch :: HG3DClass -> IO ()
-touch a1 =
-  withHG3DClass a1 $ \a1' -> 
-  touch'_ a1' >>= \res ->
-  return ()
-{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-{- function getCompilationRequired -}
-getCompilationRequired :: HG3DClass -> IO (Bool)
-getCompilationRequired a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCompilationRequired'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_isTransparent"
-  isTransparent'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setReceiveShadows"
-  setReceiveShadows'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getReceiveShadows"
-  getReceiveShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setTransparencyCastsShadows"
-  setTransparencyCastsShadows'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getTransparencyCastsShadows"
-  getTransparencyCastsShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getNumTechniques"
-  getNumTechniques'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_removeTechnique"
-  removeTechnique'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_removeAllTechniques"
-  removeAllTechniques'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getNumSupportedTechniques"
-  getNumSupportedTechniques'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getUnsupportedTechniquesExplanation"
-  getUnsupportedTechniquesExplanation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getNumLodLevels"
-  getNumLodLevels'_ :: ((HG3DClassPtr) -> (CUShort -> ((Ptr CUShort) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getNumLodLevels2"
-  getNumLodLevels2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CUShort) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_clone"
-  clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> ((Ptr CChar) -> ((SharedPtrPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_copyDetailsTo"
-  copyDetailsTo'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_compile"
-  compile'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setPointSize"
-  setPointSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setAmbient"
-  setAmbient'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setAmbient2"
-  setAmbient2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setDiffuse"
-  setDiffuse'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setDiffuse2"
-  setDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setSpecular"
-  setSpecular'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setSpecular2"
-  setSpecular2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setShininess"
-  setShininess'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setSelfIllumination"
-  setSelfIllumination'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setSelfIllumination2"
-  setSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setDepthCheckEnabled"
-  setDepthCheckEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setDepthWriteEnabled"
-  setDepthWriteEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setColourWriteEnabled"
-  setColourWriteEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setLightingEnabled"
-  setLightingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setDepthBias"
-  setDepthBias'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_setTextureAnisotropy"
-  setTextureAnisotropy'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_touch"
-  touch'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_getCompilationRequired"
-  getCompilationRequired'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassMaterialManager.chs view
@@ -0,0 +1,89 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMaterialManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMaterialManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+
+#include "ClassMaterialManager.h"
+{- function MaterialManager -}+{#fun ogre_mtrlmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~MaterialManager -}+{#fun ogre_mtrlmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function initialise -}+{#fun ogre_mtrlmgr_initialise as initialise +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDefaultAnisotropy -}+{#fun ogre_mtrlmgr_setDefaultAnisotropy as setDefaultAnisotropy +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getDefaultAnisotropy -}+{#fun ogre_mtrlmgr_getDefaultAnisotropy as getDefaultAnisotropy +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getDefaultSettings -}+{#fun ogre_mtrlmgr_getDefaultSettings as getDefaultSettings +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getActiveScheme -}+{#fun ogre_mtrlmgr_getActiveScheme as getActiveScheme +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setActiveScheme -}+{#fun ogre_mtrlmgr_setActiveScheme as setActiveScheme +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_mtrlmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_mtrlmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMaterialManager.hs 
@@ -1,175 +0,0 @@--- 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\\ClassMaterialManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMaterialManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMaterialManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function MaterialManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function ~MaterialManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function initialise -}
-initialise :: HG3DClass -> IO ()
-initialise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialise'_ a1' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function setDefaultAnisotropy -}
-setDefaultAnisotropy :: HG3DClass -> Int -> IO ()
-setDefaultAnisotropy a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setDefaultAnisotropy'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function getDefaultAnisotropy -}
-getDefaultAnisotropy :: HG3DClass -> IO (Int)
-getDefaultAnisotropy a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultAnisotropy'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function getDefaultSettings -}
-getDefaultSettings :: HG3DClass -> IO (SharedPtr)
-getDefaultSettings a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultSettings'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function getActiveScheme -}
-getActiveScheme :: HG3DClass -> IO (String)
-getActiveScheme a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getActiveScheme'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function setActiveScheme -}
-setActiveScheme :: HG3DClass -> String -> IO ()
-setActiveScheme a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setActiveScheme'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_initialise"
-  initialise'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_setDefaultAnisotropy"
-  setDefaultAnisotropy'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_getDefaultAnisotropy"
-  getDefaultAnisotropy'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_getDefaultSettings"
-  getDefaultSettings'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_getActiveScheme"
-  getActiveScheme'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_setActiveScheme"
-  setActiveScheme'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassMesh.chs view
@@ -0,0 +1,235 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMesh.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMesh where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.EnumVertexAnimationType #}+
+#include "ClassMesh.h"
+{- function ~Mesh -}+{#fun ogre_msh_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unnameSubMesh -}+{#fun ogre_msh_unnameSubMesh as unnameSubMesh +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getNumSubMeshes -}+{#fun ogre_msh_getNumSubMeshes as getNumSubMeshes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function destroySubMesh -}+{#fun ogre_msh_destroySubMesh as destroySubMesh +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function destroySubMesh2 -}+{#fun ogre_msh_destroySubMesh2 as destroySubMesh2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function clone -}+{#fun ogre_msh_clone as clone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getBoundingSphereRadius -}+{#fun ogre_msh_getBoundingSphereRadius as getBoundingSphereRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setSkeletonName -}+{#fun ogre_msh_setSkeletonName as setSkeletonName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function hasSkeleton -}+{#fun ogre_msh_hasSkeleton as hasSkeleton +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function hasVertexAnimation -}+{#fun ogre_msh_hasVertexAnimation as hasVertexAnimation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSkeleton -}+{#fun ogre_msh_getSkeleton as getSkeleton +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function getSkeletonName -}+{#fun ogre_msh_getSkeletonName as getSkeletonName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function clearBoneAssignments -}+{#fun ogre_msh_clearBoneAssignments as clearBoneAssignments +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createManualLodLevel -}+{#fun ogre_msh_createManualLodLevel as createManualLodLevel +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function isLodManual -}+{#fun ogre_msh_isLodManual as isLodManual +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeLodLevels -}+{#fun ogre_msh_removeLodLevels as removeLodLevels +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isVertexBufferShadowed -}+{#fun ogre_msh_isVertexBufferShadowed as isVertexBufferShadowed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isIndexBufferShadowed -}+{#fun ogre_msh_isIndexBufferShadowed as isIndexBufferShadowed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function buildEdgeList -}+{#fun ogre_msh_buildEdgeList as buildEdgeList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function freeEdgeList -}+{#fun ogre_msh_freeEdgeList as freeEdgeList +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function prepareForShadowVolume -}+{#fun ogre_msh_prepareForShadowVolume as prepareForShadowVolume +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isPreparedForShadowVolumes -}+{#fun ogre_msh_isPreparedForShadowVolumes as isPreparedForShadowVolumes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isEdgeListBuilt -}+{#fun ogre_msh_isEdgeListBuilt as isEdgeListBuilt +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setAutoBuildEdgeLists -}+{#fun ogre_msh_setAutoBuildEdgeLists as setAutoBuildEdgeLists +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getAutoBuildEdgeLists -}+{#fun ogre_msh_getAutoBuildEdgeLists as getAutoBuildEdgeLists +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSharedVertexDataAnimationType -}+{#fun ogre_msh_getSharedVertexDataAnimationType as getSharedVertexDataAnimationType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumVertexAnimationType' peekEnumUtil*} -> `()'  #}++{- function getSharedVertexDataAnimationIncludesNormals -}+{#fun ogre_msh_getSharedVertexDataAnimationIncludesNormals as getSharedVertexDataAnimationIncludesNormals +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function createAnimation -}+{#fun ogre_msh_createAnimation as createAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimation -}+{#fun ogre_msh_getAnimation as getAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimation -}+{#fun ogre_msh_hasAnimation as hasAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeAnimation -}+{#fun ogre_msh_removeAnimation as removeAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getNumAnimations -}+{#fun ogre_msh_getNumAnimations as getNumAnimations +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getAnimation2 -}+{#fun ogre_msh_getAnimation2 as getAnimation2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeAllAnimations -}+{#fun ogre_msh_removeAllAnimations as removeAllAnimations +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function updateMaterialForAllSubMeshes -}+{#fun ogre_msh_updateMaterialForAllSubMeshes as updateMaterialForAllSubMeshes +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getPoseCount -}+{#fun ogre_msh_getPoseCount as getPoseCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function removePose2 -}+{#fun ogre_msh_removePose2 as removePose2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeAllPoses -}+{#fun ogre_msh_removeAllPoses as removeAllPoses +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMesh.hs 
@@ -1,533 +0,0 @@--- 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\\ClassMesh.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMesh.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMesh where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function ~Mesh -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function unnameSubMesh -}
-unnameSubMesh :: HG3DClass -> String -> IO ()
-unnameSubMesh a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  unnameSubMesh'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getNumSubMeshes -}
-getNumSubMeshes :: HG3DClass -> IO (Int)
-getNumSubMeshes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumSubMeshes'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function destroySubMesh -}
-destroySubMesh :: HG3DClass -> Int -> IO ()
-destroySubMesh a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  destroySubMesh'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function destroySubMesh2 -}
-destroySubMesh2 :: HG3DClass -> String -> IO ()
-destroySubMesh2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroySubMesh2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function clone -}
-clone :: HG3DClass -> String -> String -> IO (SharedPtr)
-clone a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  clone'_ a1' a2' a3' a4' >>= \res ->
-  peekSharedPtr  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getBoundingSphereRadius -}
-getBoundingSphereRadius :: HG3DClass -> IO (Float)
-getBoundingSphereRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingSphereRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function setSkeletonName -}
-setSkeletonName :: HG3DClass -> String -> IO ()
-setSkeletonName a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setSkeletonName'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function hasSkeleton -}
-hasSkeleton :: HG3DClass -> IO (Bool)
-hasSkeleton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasSkeleton'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function hasVertexAnimation -}
-hasVertexAnimation :: HG3DClass -> IO (Bool)
-hasVertexAnimation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasVertexAnimation'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getSkeleton -}
-getSkeleton :: HG3DClass -> IO (SharedPtr)
-getSkeleton a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkeleton'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getSkeletonName -}
-getSkeletonName :: HG3DClass -> IO (String)
-getSkeletonName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getSkeletonName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function clearBoneAssignments -}
-clearBoneAssignments :: HG3DClass -> IO ()
-clearBoneAssignments a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearBoneAssignments'_ a1' >>= \res ->
-  return ()
-{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function createManualLodLevel -}
-createManualLodLevel :: HG3DClass -> Float -> String -> String -> IO ()
-createManualLodLevel a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  createManualLodLevel'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function isLodManual -}
-isLodManual :: HG3DClass -> IO (Bool)
-isLodManual a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isLodManual'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function removeLodLevels -}
-removeLodLevels :: HG3DClass -> IO ()
-removeLodLevels a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeLodLevels'_ a1' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function isVertexBufferShadowed -}
-isVertexBufferShadowed :: HG3DClass -> IO (Bool)
-isVertexBufferShadowed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVertexBufferShadowed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function isIndexBufferShadowed -}
-isIndexBufferShadowed :: HG3DClass -> IO (Bool)
-isIndexBufferShadowed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isIndexBufferShadowed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function buildEdgeList -}
-buildEdgeList :: HG3DClass -> IO ()
-buildEdgeList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  buildEdgeList'_ a1' >>= \res ->
-  return ()
-{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function freeEdgeList -}
-freeEdgeList :: HG3DClass -> IO ()
-freeEdgeList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  freeEdgeList'_ a1' >>= \res ->
-  return ()
-{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function prepareForShadowVolume -}
-prepareForShadowVolume :: HG3DClass -> IO ()
-prepareForShadowVolume a1 =
-  withHG3DClass a1 $ \a1' -> 
-  prepareForShadowVolume'_ a1' >>= \res ->
-  return ()
-{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function isPreparedForShadowVolumes -}
-isPreparedForShadowVolumes :: HG3DClass -> IO (Bool)
-isPreparedForShadowVolumes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPreparedForShadowVolumes'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function isEdgeListBuilt -}
-isEdgeListBuilt :: HG3DClass -> IO (Bool)
-isEdgeListBuilt a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isEdgeListBuilt'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function setAutoBuildEdgeLists -}
-setAutoBuildEdgeLists :: HG3DClass -> Bool -> IO ()
-setAutoBuildEdgeLists a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoBuildEdgeLists'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getAutoBuildEdgeLists -}
-getAutoBuildEdgeLists :: HG3DClass -> IO (Bool)
-getAutoBuildEdgeLists a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoBuildEdgeLists'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getSharedVertexDataAnimationType -}
-getSharedVertexDataAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
-getSharedVertexDataAnimationType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSharedVertexDataAnimationType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getSharedVertexDataAnimationIncludesNormals -}
-getSharedVertexDataAnimationIncludesNormals :: HG3DClass -> IO (Bool)
-getSharedVertexDataAnimationIncludesNormals a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSharedVertexDataAnimationIncludesNormals'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function createAnimation -}
-createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
-createAnimation a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  createAnimation'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getAnimation -}
-getAnimation :: HG3DClass -> String -> IO (HG3DClass)
-getAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimation'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function hasAnimation -}
-hasAnimation :: HG3DClass -> String -> IO (Bool)
-hasAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimation'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function removeAnimation -}
-removeAnimation :: HG3DClass -> String -> IO ()
-removeAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeAnimation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getNumAnimations -}
-getNumAnimations :: HG3DClass -> IO (Int)
-getNumAnimations a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumAnimations'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getAnimation2 -}
-getAnimation2 :: HG3DClass -> Int -> IO (HG3DClass)
-getAnimation2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getAnimation2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function removeAllAnimations -}
-removeAllAnimations :: HG3DClass -> IO ()
-removeAllAnimations a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllAnimations'_ a1' >>= \res ->
-  return ()
-{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function updateMaterialForAllSubMeshes -}
-updateMaterialForAllSubMeshes :: HG3DClass -> IO ()
-updateMaterialForAllSubMeshes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  updateMaterialForAllSubMeshes'_ a1' >>= \res ->
-  return ()
-{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function getPoseCount -}
-getPoseCount :: HG3DClass -> IO (Int)
-getPoseCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPoseCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function removePose2 -}
-removePose2 :: HG3DClass -> String -> IO ()
-removePose2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removePose2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-{- function removeAllPoses -}
-removeAllPoses :: HG3DClass -> IO ()
-removeAllPoses a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllPoses'_ a1' >>= \res ->
-  return ()
-{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_unnameSubMesh"
-  unnameSubMesh'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getNumSubMeshes"
-  getNumSubMeshes'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_destroySubMesh"
-  destroySubMesh'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_destroySubMesh2"
-  destroySubMesh2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_clone"
-  clone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((SharedPtrPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getBoundingSphereRadius"
-  getBoundingSphereRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_setSkeletonName"
-  setSkeletonName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_hasSkeleton"
-  hasSkeleton'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_hasVertexAnimation"
-  hasVertexAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getSkeleton"
-  getSkeleton'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getSkeletonName"
-  getSkeletonName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_clearBoneAssignments"
-  clearBoneAssignments'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_createManualLodLevel"
-  createManualLodLevel'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_isLodManual"
-  isLodManual'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_removeLodLevels"
-  removeLodLevels'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_isVertexBufferShadowed"
-  isVertexBufferShadowed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_isIndexBufferShadowed"
-  isIndexBufferShadowed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_buildEdgeList"
-  buildEdgeList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_freeEdgeList"
-  freeEdgeList'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_prepareForShadowVolume"
-  prepareForShadowVolume'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_isPreparedForShadowVolumes"
-  isPreparedForShadowVolumes'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_isEdgeListBuilt"
-  isEdgeListBuilt'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_setAutoBuildEdgeLists"
-  setAutoBuildEdgeLists'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getAutoBuildEdgeLists"
-  getAutoBuildEdgeLists'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getSharedVertexDataAnimationType"
-  getSharedVertexDataAnimationType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getSharedVertexDataAnimationIncludesNormals"
-  getSharedVertexDataAnimationIncludesNormals'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_createAnimation"
-  createAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getAnimation"
-  getAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_hasAnimation"
-  hasAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_removeAnimation"
-  removeAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getNumAnimations"
-  getNumAnimations'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getAnimation2"
-  getAnimation2'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_removeAllAnimations"
-  removeAllAnimations'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_updateMaterialForAllSubMeshes"
-  updateMaterialForAllSubMeshes'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_getPoseCount"
-  getPoseCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_removePose2"
-  removePose2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_removeAllPoses"
-  removeAllPoses'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassMeshManager.chs view
@@ -0,0 +1,84 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMeshManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMeshManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassMeshManager.h"
+{- function MeshManager -}+{#fun ogre_mshmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~MeshManager -}+{#fun ogre_mshmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setPrepareAllMeshesForShadowVolumes -}+{#fun ogre_mshmgr_setPrepareAllMeshesForShadowVolumes as setPrepareAllMeshesForShadowVolumes +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getPrepareAllMeshesForShadowVolumes -}+{#fun ogre_mshmgr_getPrepareAllMeshesForShadowVolumes as getPrepareAllMeshesForShadowVolumes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getBoundsPaddingFactor -}+{#fun ogre_mshmgr_getBoundsPaddingFactor as getBoundsPaddingFactor +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setBoundsPaddingFactor -}+{#fun ogre_mshmgr_setBoundsPaddingFactor as setBoundsPaddingFactor +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function loadResource -}+{#fun ogre_mshmgr_loadResource as loadResource +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_mshmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_mshmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMeshManager.hs 
@@ -1,161 +0,0 @@--- 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\\ClassMeshManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMeshManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMeshManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function MeshManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function ~MeshManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function setPrepareAllMeshesForShadowVolumes -}
-setPrepareAllMeshesForShadowVolumes :: HG3DClass -> Bool -> IO ()
-setPrepareAllMeshesForShadowVolumes a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setPrepareAllMeshesForShadowVolumes'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function getPrepareAllMeshesForShadowVolumes -}
-getPrepareAllMeshesForShadowVolumes :: HG3DClass -> IO (Bool)
-getPrepareAllMeshesForShadowVolumes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPrepareAllMeshesForShadowVolumes'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function getBoundsPaddingFactor -}
-getBoundsPaddingFactor :: HG3DClass -> IO (Float)
-getBoundsPaddingFactor a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundsPaddingFactor'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function setBoundsPaddingFactor -}
-setBoundsPaddingFactor :: HG3DClass -> Float -> IO ()
-setBoundsPaddingFactor a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setBoundsPaddingFactor'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function loadResource -}
-loadResource :: HG3DClass -> HG3DClass -> IO ()
-loadResource a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  loadResource'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_setPrepareAllMeshesForShadowVolumes"
-  setPrepareAllMeshesForShadowVolumes'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_getPrepareAllMeshesForShadowVolumes"
-  getPrepareAllMeshesForShadowVolumes'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_getBoundsPaddingFactor"
-  getBoundsPaddingFactor'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_setBoundsPaddingFactor"
-  setBoundsPaddingFactor'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_loadResource"
-  loadResource'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassMovableObject.chs view
@@ -0,0 +1,233 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMovableObject.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMovableObject where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassMovableObject.h"
+{- function ~MovableObject -}+{#fun ogre_mvo_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_mvo_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getMovableType -}+{#fun ogre_mvo_getMovableType as getMovableType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getParentNode -}+{#fun ogre_mvo_getParentNode as getParentNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getParentSceneNode -}+{#fun ogre_mvo_getParentSceneNode as getParentSceneNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isParentTagPoint -}+{#fun ogre_mvo_isParentTagPoint as isParentTagPoint +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isAttached -}+{#fun ogre_mvo_isAttached as isAttached +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function detachFromParent -}+{#fun ogre_mvo_detachFromParent as detachFromParent +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isInScene -}+{#fun ogre_mvo_isInScene as isInScene +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getBoundingRadius -}+{#fun ogre_mvo_getBoundingRadius as getBoundingRadius +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setVisible -}+{#fun ogre_mvo_setVisible as setVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getVisible -}+{#fun ogre_mvo_getVisible as getVisible +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isVisible -}+{#fun ogre_mvo_isVisible as isVisible +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setRenderingDistance -}+{#fun ogre_mvo_setRenderingDistance as setRenderingDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getRenderingDistance -}+{#fun ogre_mvo_getRenderingDistance as getRenderingDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setRenderingMinPixelSize -}+{#fun ogre_mvo_setRenderingMinPixelSize as setRenderingMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getRenderingMinPixelSize -}+{#fun ogre_mvo_getRenderingMinPixelSize as getRenderingMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setQueryFlags -}+{#fun ogre_mvo_setQueryFlags as setQueryFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function addQueryFlags -}+{#fun ogre_mvo_addQueryFlags as addQueryFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeQueryFlags -}+{#fun ogre_mvo_removeQueryFlags as removeQueryFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getQueryFlags -}+{#fun ogre_mvo_getQueryFlags as getQueryFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setVisibilityFlags -}+{#fun ogre_mvo_setVisibilityFlags as setVisibilityFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function addVisibilityFlags -}+{#fun ogre_mvo_addVisibilityFlags as addVisibilityFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeVisibilityFlags -}+{#fun ogre_mvo_removeVisibilityFlags as removeVisibilityFlags +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getVisibilityFlags -}+{#fun ogre_mvo_getVisibilityFlags as getVisibilityFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getLightMask -}+{#fun ogre_mvo_getLightMask as getLightMask +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setLightMask -}+{#fun ogre_mvo_setLightMask as setLightMask +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function hasEdgeList -}+{#fun ogre_mvo_hasEdgeList as hasEdgeList +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setCastShadows -}+{#fun ogre_mvo_setCastShadows as setCastShadows +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getCastShadows -}+{#fun ogre_mvo_getCastShadows as getCastShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getReceivesShadows -}+{#fun ogre_mvo_getReceivesShadows as getReceivesShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getPointExtrusionDistance -}+{#fun ogre_mvo_getPointExtrusionDistance as getPointExtrusionDistance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getTypeFlags -}+{#fun ogre_mvo_getTypeFlags as getTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setDebugDisplayEnabled -}+{#fun ogre_mvo_setDebugDisplayEnabled as setDebugDisplayEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isDebugDisplayEnabled -}+{#fun ogre_mvo_isDebugDisplayEnabled as isDebugDisplayEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDefaultQueryFlags -}+{#fun ogre_mvo_setDefaultQueryFlags as setDefaultQueryFlags +{ fromIntegral `Int' } -> `()'  #}++{- function getDefaultQueryFlags -}+{#fun ogre_mvo_getDefaultQueryFlags as getDefaultQueryFlags +{ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setDefaultVisibilityFlags -}+{#fun ogre_mvo_setDefaultVisibilityFlags as setDefaultVisibilityFlags +{ fromIntegral `Int' } -> `()'  #}++{- function getDefaultVisibilityFlags -}+{#fun ogre_mvo_getDefaultVisibilityFlags as getDefaultVisibilityFlags +{ alloca- `Int' peekIntConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMovableObject.hs 
@@ -1,538 +0,0 @@--- 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\\ClassMovableObject.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMovableObject.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMovableObject where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function ~MovableObject -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getMovableType -}
-getMovableType :: HG3DClass -> IO (String)
-getMovableType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMovableType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getParentNode -}
-getParentNode :: HG3DClass -> IO (HG3DClass)
-getParentNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParentNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getParentSceneNode -}
-getParentSceneNode :: HG3DClass -> IO (HG3DClass)
-getParentSceneNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParentSceneNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function isParentTagPoint -}
-isParentTagPoint :: HG3DClass -> IO (Bool)
-isParentTagPoint a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isParentTagPoint'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function isAttached -}
-isAttached :: HG3DClass -> IO (Bool)
-isAttached a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAttached'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function detachFromParent -}
-detachFromParent :: HG3DClass -> IO ()
-detachFromParent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  detachFromParent'_ a1' >>= \res ->
-  return ()
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function isInScene -}
-isInScene :: HG3DClass -> IO (Bool)
-isInScene a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isInScene'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getBoundingRadius -}
-getBoundingRadius :: HG3DClass -> IO (Float)
-getBoundingRadius a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBoundingRadius'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setVisible -}
-setVisible :: HG3DClass -> Bool -> IO ()
-setVisible a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVisible'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getVisible -}
-getVisible :: HG3DClass -> IO (Bool)
-getVisible a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVisible'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function isVisible -}
-isVisible :: HG3DClass -> IO (Bool)
-isVisible a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVisible'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setRenderingDistance -}
-setRenderingDistance :: HG3DClass -> Float -> IO ()
-setRenderingDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setRenderingDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getRenderingDistance -}
-getRenderingDistance :: HG3DClass -> IO (Float)
-getRenderingDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRenderingDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setRenderingMinPixelSize -}
-setRenderingMinPixelSize :: HG3DClass -> Float -> IO ()
-setRenderingMinPixelSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setRenderingMinPixelSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getRenderingMinPixelSize -}
-getRenderingMinPixelSize :: HG3DClass -> IO (Float)
-getRenderingMinPixelSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRenderingMinPixelSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setQueryFlags -}
-setQueryFlags :: HG3DClass -> Int -> IO ()
-setQueryFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setQueryFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function addQueryFlags -}
-addQueryFlags :: HG3DClass -> Int -> IO ()
-addQueryFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  addQueryFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function removeQueryFlags -}
-removeQueryFlags :: HG3DClass -> Int -> IO ()
-removeQueryFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeQueryFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getQueryFlags -}
-getQueryFlags :: HG3DClass -> IO (Int)
-getQueryFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getQueryFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setVisibilityFlags -}
-setVisibilityFlags :: HG3DClass -> Int -> IO ()
-setVisibilityFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setVisibilityFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function addVisibilityFlags -}
-addVisibilityFlags :: HG3DClass -> Int -> IO ()
-addVisibilityFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  addVisibilityFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function removeVisibilityFlags -}
-removeVisibilityFlags :: HG3DClass -> Int -> IO ()
-removeVisibilityFlags a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeVisibilityFlags'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getVisibilityFlags -}
-getVisibilityFlags :: HG3DClass -> IO (Int)
-getVisibilityFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVisibilityFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getLightMask -}
-getLightMask :: HG3DClass -> IO (Int)
-getLightMask a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLightMask'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setLightMask -}
-setLightMask :: HG3DClass -> Int -> IO ()
-setLightMask a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setLightMask'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function hasEdgeList -}
-hasEdgeList :: HG3DClass -> IO (Bool)
-hasEdgeList a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasEdgeList'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setCastShadows -}
-setCastShadows :: HG3DClass -> Bool -> IO ()
-setCastShadows a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setCastShadows'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getCastShadows -}
-getCastShadows :: HG3DClass -> IO (Bool)
-getCastShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCastShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getReceivesShadows -}
-getReceivesShadows :: HG3DClass -> IO (Bool)
-getReceivesShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getReceivesShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getPointExtrusionDistance -}
-getPointExtrusionDistance :: HG3DClass -> HG3DClass -> IO (Float)
-getPointExtrusionDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getPointExtrusionDistance'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getTypeFlags -}
-getTypeFlags :: HG3DClass -> IO (Int)
-getTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTypeFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setDebugDisplayEnabled -}
-setDebugDisplayEnabled :: HG3DClass -> Bool -> IO ()
-setDebugDisplayEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDebugDisplayEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function isDebugDisplayEnabled -}
-isDebugDisplayEnabled :: HG3DClass -> IO (Bool)
-isDebugDisplayEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDebugDisplayEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setDefaultQueryFlags -}
-setDefaultQueryFlags :: Int -> IO ()
-setDefaultQueryFlags a1 =
-  let {a1' = fromIntegral a1} in 
-  setDefaultQueryFlags'_ a1' >>= \res ->
-  return ()
-{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getDefaultQueryFlags -}
-getDefaultQueryFlags :: IO (Int)
-getDefaultQueryFlags =
-  alloca $ \a1' -> 
-  getDefaultQueryFlags'_ a1' >>= \res ->
-  peekIntConv  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function setDefaultVisibilityFlags -}
-setDefaultVisibilityFlags :: Int -> IO ()
-setDefaultVisibilityFlags a1 =
-  let {a1' = fromIntegral a1} in 
-  setDefaultVisibilityFlags'_ a1' >>= \res ->
-  return ()
-{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-{- function getDefaultVisibilityFlags -}
-getDefaultVisibilityFlags :: IO (Int)
-getDefaultVisibilityFlags =
-  alloca $ \a1' -> 
-  getDefaultVisibilityFlags'_ a1' >>= \res ->
-  peekIntConv  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getMovableType"
-  getMovableType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getParentNode"
-  getParentNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getParentSceneNode"
-  getParentSceneNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_isParentTagPoint"
-  isParentTagPoint'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_isAttached"
-  isAttached'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_detachFromParent"
-  detachFromParent'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_isInScene"
-  isInScene'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getBoundingRadius"
-  getBoundingRadius'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setVisible"
-  setVisible'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getVisible"
-  getVisible'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_isVisible"
-  isVisible'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setRenderingDistance"
-  setRenderingDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getRenderingDistance"
-  getRenderingDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setRenderingMinPixelSize"
-  setRenderingMinPixelSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getRenderingMinPixelSize"
-  getRenderingMinPixelSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setQueryFlags"
-  setQueryFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_addQueryFlags"
-  addQueryFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_removeQueryFlags"
-  removeQueryFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getQueryFlags"
-  getQueryFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setVisibilityFlags"
-  setVisibilityFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_addVisibilityFlags"
-  addVisibilityFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_removeVisibilityFlags"
-  removeVisibilityFlags'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getVisibilityFlags"
-  getVisibilityFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getLightMask"
-  getLightMask'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setLightMask"
-  setLightMask'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_hasEdgeList"
-  hasEdgeList'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setCastShadows"
-  setCastShadows'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getCastShadows"
-  getCastShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getReceivesShadows"
-  getReceivesShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getPointExtrusionDistance"
-  getPointExtrusionDistance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getTypeFlags"
-  getTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setDebugDisplayEnabled"
-  setDebugDisplayEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_isDebugDisplayEnabled"
-  isDebugDisplayEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setDefaultQueryFlags"
-  setDefaultQueryFlags'_ :: (CUInt -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getDefaultQueryFlags"
-  getDefaultQueryFlags'_ :: ((Ptr CUInt) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_setDefaultVisibilityFlags"
-  setDefaultVisibilityFlags'_ :: (CUInt -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_getDefaultVisibilityFlags"
-  getDefaultVisibilityFlags'_ :: ((Ptr CUInt) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassMovableObjectFactory.chs view
@@ -0,0 +1,67 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMovableObjectFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMovableObjectFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassMovableObjectFactory.h"
+{- function ~MovableObjectFactory -}+{#fun ogre_mvof_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getType -}+{#fun ogre_mvof_getType as getType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_mvof_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function requestTypeFlags -}+{#fun ogre_mvof_requestTypeFlags as requestTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTypeFlags -}+{#fun ogre_mvof_getTypeFlags as getTypeFlags +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMovableObjectFactory.hs 
@@ -1,114 +0,0 @@--- 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\\ClassMovableObjectFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMovableObjectFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMovableObjectFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-{- function ~MovableObjectFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-{- function getType -}
-getType :: HG3DClass -> IO (String)
-getType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-{- function requestTypeFlags -}
-requestTypeFlags :: HG3DClass -> IO (Bool)
-requestTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  requestTypeFlags'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-{- function getTypeFlags -}
-getTypeFlags :: HG3DClass -> IO (Int)
-getTypeFlags a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTypeFlags'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_getType"
-  getType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_requestTypeFlags"
-  requestTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_getTypeFlags"
-  getTypeFlags'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassMultiRenderTarget.chs view
@@ -0,0 +1,60 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassMultiRenderTarget.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassMultiRenderTarget where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassMultiRenderTarget.h"
+{- function bindSurface -}+{#fun ogre_mrt_bindSurface as bindSurface +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unbindSurface -}+{#fun ogre_mrt_unbindSurface as unbindSurface +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getBoundSurface -}+{#fun ogre_mrt_getBoundSurface as getBoundSurface +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassMultiRenderTarget.hs 
@@ -1,91 +0,0 @@--- 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\\ClassMultiRenderTarget.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassMultiRenderTarget.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassMultiRenderTarget where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-
-{- function bindSurface -}
-bindSurface :: HG3DClass -> Int -> HG3DClass -> IO ()
-bindSurface a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withHG3DClass a3 $ \a3' -> 
-  bindSurface'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-
-{- function unbindSurface -}
-unbindSurface :: HG3DClass -> Int -> IO ()
-unbindSurface a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  unbindSurface'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-
-{- function getBoundSurface -}
-getBoundSurface :: HG3DClass -> Int -> IO (HG3DClass)
-getBoundSurface a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getBoundSurface'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs.h ogre_mrt_bindSurface"
-  bindSurface'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs.h ogre_mrt_unbindSurface"
-  unbindSurface'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs.h ogre_mrt_getBoundSurface"
-  getBoundSurface'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
+ HGamer3D/Bindings/Ogre/ClassNode.chs view
@@ -0,0 +1,330 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassNode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassNode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.EnumNodeTransformSpace #}+{# import HGamer3D.Bindings.Ogre.StructRadians #}+
+#include "ClassNode.h"
+{- function ~Node -}+{#fun ogre_nd_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_nd_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getParent -}+{#fun ogre_nd_getParent as getParent +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getOrientation -}+{#fun ogre_nd_getOrientation as getOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function setOrientation -}+{#fun ogre_nd_setOrientation as setOrientation +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' } -> `()'  #}++{- function setOrientation2 -}+{#fun ogre_nd_setOrientation2 as setOrientation2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function resetOrientation -}+{#fun ogre_nd_resetOrientation as resetOrientation +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setPosition -}+{#fun ogre_nd_setPosition as setPosition +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function setPosition2 -}+{#fun ogre_nd_setPosition2 as setPosition2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function getPosition -}+{#fun ogre_nd_getPosition as getPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setScale -}+{#fun ogre_nd_setScale as setScale +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function setScale2 -}+{#fun ogre_nd_setScale2 as setScale2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function getScale -}+{#fun ogre_nd_getScale as getScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function setInheritOrientation -}+{#fun ogre_nd_setInheritOrientation as setInheritOrientation +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getInheritOrientation -}+{#fun ogre_nd_getInheritOrientation as getInheritOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setInheritScale -}+{#fun ogre_nd_setInheritScale as setInheritScale +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getInheritScale -}+{#fun ogre_nd_getInheritScale as getInheritScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function scale -}+{#fun ogre_nd_scale as scale +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' } -> `()'  #}++{- function scale2 -}+{#fun ogre_nd_scale2 as scale2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function translate -}+{#fun ogre_nd_translate as translate +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function translate2 -}+{#fun ogre_nd_translate2 as translate2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function roll -}+{#fun ogre_nd_roll as roll +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function pitch -}+{#fun ogre_nd_pitch as pitch +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function yaw -}+{#fun ogre_nd_yaw as yaw +{ withHG3DClass* `HG3DClass' ,+ withRadians* `Radians' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function rotate -}+{#fun ogre_nd_rotate as rotate +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ withRadians* `Radians' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function rotate2 -}+{#fun ogre_nd_rotate2 as rotate2 +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' ,+ cIntFromEnum `EnumNodeTransformSpace' } -> `()'  #}++{- function createChild -}+{#fun ogre_nd_createChild as createChild +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ withQuaternion* `Quaternion' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createChild2 -}+{#fun ogre_nd_createChild2 as createChild2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withVec3* `Vec3' ,+ withQuaternion* `Quaternion' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function addChild -}+{#fun ogre_nd_addChild as addChild +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function numChildren -}+{#fun ogre_nd_numChildren as numChildren +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getChild -}+{#fun ogre_nd_getChild as getChild +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getChild2 -}+{#fun ogre_nd_getChild2 as getChild2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeChild -}+{#fun ogre_nd_removeChild as removeChild +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeChild2 -}+{#fun ogre_nd_removeChild2 as removeChild2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeChild3 -}+{#fun ogre_nd_removeChild3 as removeChild3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeAllChildren -}+{#fun ogre_nd_removeAllChildren as removeAllChildren +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setInitialState -}+{#fun ogre_nd_setInitialState as setInitialState +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resetToInitialState -}+{#fun ogre_nd_resetToInitialState as resetToInitialState +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getInitialPosition -}+{#fun ogre_nd_getInitialPosition as getInitialPosition +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function convertWorldToLocalPosition -}+{#fun ogre_nd_convertWorldToLocalPosition as convertWorldToLocalPosition +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function convertLocalToWorldPosition -}+{#fun ogre_nd_convertLocalToWorldPosition as convertLocalToWorldPosition +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function convertWorldToLocalOrientation -}+{#fun ogre_nd_convertWorldToLocalOrientation as convertWorldToLocalOrientation +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function convertLocalToWorldOrientation -}+{#fun ogre_nd_convertLocalToWorldOrientation as convertLocalToWorldOrientation +{ withHG3DClass* `HG3DClass' ,+ withQuaternion* `Quaternion' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function getInitialOrientation -}+{#fun ogre_nd_getInitialOrientation as getInitialOrientation +{ withHG3DClass* `HG3DClass' ,+ alloca- `Quaternion' peekQuaternion*} -> `()'  #}++{- function getInitialScale -}+{#fun ogre_nd_getInitialScale as getInitialScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_nd_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function needUpdate -}+{#fun ogre_nd_needUpdate as needUpdate +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function requestUpdate -}+{#fun ogre_nd_requestUpdate as requestUpdate +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function cancelUpdate -}+{#fun ogre_nd_cancelUpdate as cancelUpdate +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function queueNeedUpdate -}+{#fun ogre_nd_queueNeedUpdate as queueNeedUpdate +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function processQueuedUpdates -}+{#fun ogre_nd_processQueuedUpdates as processQueuedUpdates +{ } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassNode.hs 
@@ -1,722 +0,0 @@--- 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\\ClassNode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassNode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassNode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumNodeTransformSpace
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructRadians
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function ~Node -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getParent -}
-getParent :: HG3DClass -> IO (HG3DClass)
-getParent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParent'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getOrientation -}
-getOrientation :: HG3DClass -> IO (Quaternion)
-getOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientation'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setOrientation -}
-setOrientation :: HG3DClass -> Quaternion -> IO ()
-setOrientation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  setOrientation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setOrientation2 -}
-setOrientation2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setOrientation2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setOrientation2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function resetOrientation -}
-resetOrientation :: HG3DClass -> IO ()
-resetOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetOrientation'_ a1' >>= \res ->
-  return ()
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setPosition -}
-setPosition :: HG3DClass -> Vec3 -> IO ()
-setPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setPosition'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setPosition2 -}
-setPosition2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-setPosition2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setPosition2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getPosition -}
-getPosition :: HG3DClass -> IO (Vec3)
-getPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setScale -}
-setScale :: HG3DClass -> Vec3 -> IO ()
-setScale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  setScale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setScale2 -}
-setScale2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-setScale2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setScale2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getScale -}
-getScale :: HG3DClass -> IO (Vec3)
-getScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getScale'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setInheritOrientation -}
-setInheritOrientation :: HG3DClass -> Bool -> IO ()
-setInheritOrientation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setInheritOrientation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getInheritOrientation -}
-getInheritOrientation :: HG3DClass -> IO (Bool)
-getInheritOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInheritOrientation'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setInheritScale -}
-setInheritScale :: HG3DClass -> Bool -> IO ()
-setInheritScale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setInheritScale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getInheritScale -}
-getInheritScale :: HG3DClass -> IO (Bool)
-getInheritScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInheritScale'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function scale -}
-scale :: HG3DClass -> Vec3 -> IO ()
-scale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  scale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function scale2 -}
-scale2 :: HG3DClass -> Float -> Float -> Float -> IO ()
-scale2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  scale2'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function translate -}
-translate :: HG3DClass -> Vec3 -> EnumNodeTransformSpace -> IO ()
-translate a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  translate'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function translate2 -}
-translate2 :: HG3DClass -> Float -> Float -> Float -> EnumNodeTransformSpace -> IO ()
-translate2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = cIntFromEnum a5} in 
-  translate2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function roll -}
-roll :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO ()
-roll a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  roll'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function pitch -}
-pitch :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO ()
-pitch a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  pitch'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 177 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function yaw -}
-yaw :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO ()
-yaw a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withRadians a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  yaw'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function rotate -}
-rotate :: HG3DClass -> Vec3 -> Radians -> EnumNodeTransformSpace -> IO ()
-rotate a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  withRadians a3 $ \a3' -> 
-  let {a4' = cIntFromEnum a4} in 
-  rotate'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function rotate2 -}
-rotate2 :: HG3DClass -> Quaternion -> EnumNodeTransformSpace -> IO ()
-rotate2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  rotate2'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function createChild -}
-createChild :: HG3DClass -> Vec3 -> Quaternion -> IO (HG3DClass)
-createChild a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  withQuaternion a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createChild'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 203 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function createChild2 -}
-createChild2 :: HG3DClass -> String -> Vec3 -> Quaternion -> IO (HG3DClass)
-createChild2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withVec3 a3 $ \a3' -> 
-  withQuaternion a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  createChild2'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function addChild -}
-addChild :: HG3DClass -> HG3DClass -> IO ()
-addChild a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  addChild'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function numChildren -}
-numChildren :: HG3DClass -> IO (Int)
-numChildren a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  numChildren'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getChild -}
-getChild :: HG3DClass -> Int -> IO (HG3DClass)
-getChild a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getChild'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getChild2 -}
-getChild2 :: HG3DClass -> String -> IO (HG3DClass)
-getChild2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getChild2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function removeChild -}
-removeChild :: HG3DClass -> Int -> IO (HG3DClass)
-removeChild a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  removeChild'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function removeChild2 -}
-removeChild2 :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-removeChild2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  removeChild2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function removeChild3 -}
-removeChild3 :: HG3DClass -> String -> IO (HG3DClass)
-removeChild3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  removeChild3'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function removeAllChildren -}
-removeAllChildren :: HG3DClass -> IO ()
-removeAllChildren a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllChildren'_ a1' >>= \res ->
-  return ()
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function setInitialState -}
-setInitialState :: HG3DClass -> IO ()
-setInitialState a1 =
-  withHG3DClass a1 $ \a1' -> 
-  setInitialState'_ a1' >>= \res ->
-  return ()
-{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function resetToInitialState -}
-resetToInitialState :: HG3DClass -> IO ()
-resetToInitialState a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetToInitialState'_ a1' >>= \res ->
-  return ()
-{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getInitialPosition -}
-getInitialPosition :: HG3DClass -> IO (Vec3)
-getInitialPosition a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInitialPosition'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function convertWorldToLocalPosition -}
-convertWorldToLocalPosition :: HG3DClass -> Vec3 -> IO (Vec3)
-convertWorldToLocalPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertWorldToLocalPosition'_ a1' a2' a3' >>= \res ->
-  peekVec3  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function convertLocalToWorldPosition -}
-convertLocalToWorldPosition :: HG3DClass -> Vec3 -> IO (Vec3)
-convertLocalToWorldPosition a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertLocalToWorldPosition'_ a1' a2' a3' >>= \res ->
-  peekVec3  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function convertWorldToLocalOrientation -}
-convertWorldToLocalOrientation :: HG3DClass -> Quaternion -> IO (Quaternion)
-convertWorldToLocalOrientation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertWorldToLocalOrientation'_ a1' a2' a3' >>= \res ->
-  peekQuaternion  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 286 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function convertLocalToWorldOrientation -}
-convertLocalToWorldOrientation :: HG3DClass -> Quaternion -> IO (Quaternion)
-convertLocalToWorldOrientation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withQuaternion a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertLocalToWorldOrientation'_ a1' a2' a3' >>= \res ->
-  peekQuaternion  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getInitialOrientation -}
-getInitialOrientation :: HG3DClass -> IO (Quaternion)
-getInitialOrientation a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInitialOrientation'_ a1' a2' >>= \res ->
-  peekQuaternion  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getInitialScale -}
-getInitialScale :: HG3DClass -> IO (Vec3)
-getInitialScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInitialScale'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 308 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function needUpdate -}
-needUpdate :: HG3DClass -> Bool -> IO ()
-needUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  needUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 313 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function requestUpdate -}
-requestUpdate :: HG3DClass -> HG3DClass -> Bool -> IO ()
-requestUpdate a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  requestUpdate'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 319 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function cancelUpdate -}
-cancelUpdate :: HG3DClass -> HG3DClass -> IO ()
-cancelUpdate a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  cancelUpdate'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 324 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function queueNeedUpdate -}
-queueNeedUpdate :: HG3DClass -> IO ()
-queueNeedUpdate a1 =
-  withHG3DClass a1 $ \a1' -> 
-  queueNeedUpdate'_ a1' >>= \res ->
-  return ()
-{-# LINE 328 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-{- function processQueuedUpdates -}
-processQueuedUpdates :: IO ()
-processQueuedUpdates =
-  processQueuedUpdates'_ >>= \res ->
-  return ()
-{-# LINE 332 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getParent"
-  getParent'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getOrientation"
-  getOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setOrientation"
-  setOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setOrientation2"
-  setOrientation2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_resetOrientation"
-  resetOrientation'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setPosition"
-  setPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setPosition2"
-  setPosition2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getPosition"
-  getPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setScale"
-  setScale'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setScale2"
-  setScale2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getScale"
-  getScale'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setInheritOrientation"
-  setInheritOrientation'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getInheritOrientation"
-  getInheritOrientation'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setInheritScale"
-  setInheritScale'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getInheritScale"
-  getInheritScale'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_scale"
-  scale'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_scale2"
-  scale2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_translate"
-  translate'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_translate2"
-  translate2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_roll"
-  roll'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_pitch"
-  pitch'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_yaw"
-  yaw'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_rotate"
-  rotate'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((RadiansPtr) -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_rotate2"
-  rotate2'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_createChild"
-  createChild'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((QuaternionPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_createChild2"
-  createChild2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Vec3Ptr) -> ((QuaternionPtr) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_addChild"
-  addChild'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_numChildren"
-  numChildren'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getChild"
-  getChild'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getChild2"
-  getChild2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_removeChild"
-  removeChild'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_removeChild2"
-  removeChild2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_removeChild3"
-  removeChild3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_removeAllChildren"
-  removeAllChildren'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_setInitialState"
-  setInitialState'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_resetToInitialState"
-  resetToInitialState'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getInitialPosition"
-  getInitialPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_convertWorldToLocalPosition"
-  convertWorldToLocalPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_convertLocalToWorldPosition"
-  convertLocalToWorldPosition'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_convertWorldToLocalOrientation"
-  convertWorldToLocalOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> ((QuaternionPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_convertLocalToWorldOrientation"
-  convertLocalToWorldOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> ((QuaternionPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getInitialOrientation"
-  getInitialOrientation'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getInitialScale"
-  getInitialScale'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_needUpdate"
-  needUpdate'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_requestUpdate"
-  requestUpdate'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_cancelUpdate"
-  cancelUpdate'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_queueNeedUpdate"
-  queueNeedUpdate'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_processQueuedUpdates"
-  processQueuedUpdates'_ :: (IO ())
+ HGamer3D/Bindings/Ogre/ClassNodeAnimationTrack.chs view
@@ -0,0 +1,97 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassNodeAnimationTrack.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassNodeAnimationTrack.h"
+{- function NodeAnimationTrack -}+{#fun ogre_noat_construct as new +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~NodeAnimationTrack -}+{#fun ogre_noat_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getAssociatedNode -}+{#fun ogre_noat_getAssociatedNode as getAssociatedNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setAssociatedNode -}+{#fun ogre_noat_setAssociatedNode as setAssociatedNode +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function applyToNode -}+{#fun ogre_noat_applyToNode as applyToNode +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setUseShortestRotationPath -}+{#fun ogre_noat_setUseShortestRotationPath as setUseShortestRotationPath +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseShortestRotationPath -}+{#fun ogre_noat_getUseShortestRotationPath as getUseShortestRotationPath +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function apply -}+{#fun ogre_noat_apply as apply +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function hasNonZeroKeyFrames -}+{#fun ogre_noat_hasNonZeroKeyFrames as hasNonZeroKeyFrames +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function optimise -}+{#fun ogre_noat_optimise as optimise +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassNodeAnimationTrack.hs 
@@ -1,180 +0,0 @@--- 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\\ClassNodeAnimationTrack.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassNodeAnimationTrack.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function NodeAnimationTrack -}
-new :: HG3DClass -> Int -> IO (HG3DClass)
-new a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  new'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function ~NodeAnimationTrack -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function getAssociatedNode -}
-getAssociatedNode :: HG3DClass -> IO (HG3DClass)
-getAssociatedNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAssociatedNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function setAssociatedNode -}
-setAssociatedNode :: HG3DClass -> HG3DClass -> IO ()
-setAssociatedNode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setAssociatedNode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function applyToNode -}
-applyToNode :: HG3DClass -> HG3DClass -> HG3DClass -> Float -> Float -> IO ()
-applyToNode a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  applyToNode'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function setUseShortestRotationPath -}
-setUseShortestRotationPath :: HG3DClass -> Bool -> IO ()
-setUseShortestRotationPath a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseShortestRotationPath'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function getUseShortestRotationPath -}
-getUseShortestRotationPath :: HG3DClass -> IO (Bool)
-getUseShortestRotationPath a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseShortestRotationPath'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function apply -}
-apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO ()
-apply a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  apply'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function hasNonZeroKeyFrames -}
-hasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
-hasNonZeroKeyFrames a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasNonZeroKeyFrames'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-{- function optimise -}
-optimise :: HG3DClass -> IO ()
-optimise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  optimise'_ a1' >>= \res ->
-  return ()
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_construct"
-  new'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_getAssociatedNode"
-  getAssociatedNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_setAssociatedNode"
-  setAssociatedNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_applyToNode"
-  applyToNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_setUseShortestRotationPath"
-  setUseShortestRotationPath'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_getUseShortestRotationPath"
-  getUseShortestRotationPath'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_apply"
-  apply'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_hasNonZeroKeyFrames"
-  hasNonZeroKeyFrames'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_optimise"
-  optimise'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassNumericAnimationTrack.chs view
@@ -0,0 +1,56 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassNumericAnimationTrack.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassNumericAnimationTrack.h"
+{- function NumericAnimationTrack -}+{#fun ogre_nuat_construct as new +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function apply -}+{#fun ogre_nuat_apply as apply +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassNumericAnimationTrack.hs 
@@ -1,80 +0,0 @@--- 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\\ClassNumericAnimationTrack.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassNumericAnimationTrack.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
-
-{- function NumericAnimationTrack -}
-new :: HG3DClass -> Int -> IO (HG3DClass)
-new a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  new'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
-
-{- function apply -}
-apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO ()
-apply a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  apply'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs.h ogre_nuat_construct"
-  new'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs.h ogre_nuat_apply"
-  apply'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))))
+ HGamer3D/Bindings/Ogre/ClassPtr.chs view
@@ -0,0 +1,154 @@+{-# LANGUAGE EmptyDataDecls #-}+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassPtr.chs
+
+-- Class Ptr Utilities+
+module HGamer3D.Bindings.Ogre.ClassPtr where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+
+#include "ClassPtr.h"
+{- class ClassAnimation -}+{#pointer *ClassAnimation as ClassAnimation#}+{- class ClassAnimationState -}+{#pointer *ClassAnimationState as ClassAnimationState#}+{- class ClassAnimationStateSet -}+{#pointer *ClassAnimationStateSet as ClassAnimationStateSet#}+{- class ClassAnimationTrack -}+{#pointer *ClassAnimationTrack as ClassAnimationTrack#}+{- class ClassArchive -}+{#pointer *ClassArchive as ClassArchive#}+{- class ClassArchiveManager -}+{#pointer *ClassArchiveManager as ClassArchiveManager#}+{- class ClassBillboard -}+{#pointer *ClassBillboard as ClassBillboard#}+{- class ClassBillboardChain -}+{#pointer *ClassBillboardChain as ClassBillboardChain#}+{- class ClassBillboardChainFactory -}+{#pointer *ClassBillboardChainFactory as ClassBillboardChainFactory#}+{- class ClassBillboardSet -}+{#pointer *ClassBillboardSet as ClassBillboardSet#}+{- class ClassBillboardSetFactory -}+{#pointer *ClassBillboardSetFactory as ClassBillboardSetFactory#}+{- class ClassBone -}+{#pointer *ClassBone as ClassBone#}+{- class ClassCamera -}+{#pointer *ClassCamera as ClassCamera#}+{- class ClassConfigFile -}+{#pointer *ClassConfigFile as ClassConfigFile#}+{- class ClassControllerManager -}+{#pointer *ClassControllerManager as ClassControllerManager#}+{- class ClassEntity -}+{#pointer *ClassEntity as ClassEntity#}+{- class ClassEntityFactory -}+{#pointer *ClassEntityFactory as ClassEntityFactory#}+{- class ClassException -}+{#pointer *ClassException as ClassException#}+{- class ClassFrustum -}+{#pointer *ClassFrustum as ClassFrustum#}+{- class ClassLight -}+{#pointer *ClassLight as ClassLight#}+{- class ClassLightFactory -}+{#pointer *ClassLightFactory as ClassLightFactory#}+{- class ClassLog -}+{#pointer *ClassLog as ClassLog#}+{- class ClassLogManager -}+{#pointer *ClassLogManager as ClassLogManager#}+{- class ClassManualObject -}+{#pointer *ClassManualObject as ClassManualObject#}+{- class ClassManualObjectFactory -}+{#pointer *ClassManualObjectFactory as ClassManualObjectFactory#}+{- class ClassManualObjectSection -}+{#pointer *ClassManualObjectSection as ClassManualObjectSection#}+{- class ClassMaterial -}+{#pointer *ClassMaterial as ClassMaterial#}+{- class ClassMaterialManager -}+{#pointer *ClassMaterialManager as ClassMaterialManager#}+{- class ClassMesh -}+{#pointer *ClassMesh as ClassMesh#}+{- class ClassMeshManager -}+{#pointer *ClassMeshManager as ClassMeshManager#}+{- class ClassMovableObject -}+{#pointer *ClassMovableObject as ClassMovableObject#}+{- class ClassMovableObjectFactory -}+{#pointer *ClassMovableObjectFactory as ClassMovableObjectFactory#}+{- class ClassMultiRenderTarget -}+{#pointer *ClassMultiRenderTarget as ClassMultiRenderTarget#}+{- class ClassNode -}+{#pointer *ClassNode as ClassNode#}+{- class ClassNodeAnimationTrack -}+{#pointer *ClassNodeAnimationTrack as ClassNodeAnimationTrack#}+{- class ClassNumericAnimationTrack -}+{#pointer *ClassNumericAnimationTrack as ClassNumericAnimationTrack#}+{- class ClassRenderable -}+{#pointer *ClassRenderable as ClassRenderable#}+{- class ClassRenderSystem -}+{#pointer *ClassRenderSystem as ClassRenderSystem#}+{- class ClassRenderTarget -}+{#pointer *ClassRenderTarget as ClassRenderTarget#}+{- class ClassRenderTexture -}+{#pointer *ClassRenderTexture as ClassRenderTexture#}+{- class ClassRenderWindow -}+{#pointer *ClassRenderWindow as ClassRenderWindow#}+{- class ClassResource -}+{#pointer *ClassResource as ClassResource#}+{- class ClassResourceGroupManager -}+{#pointer *ClassResourceGroupManager as ClassResourceGroupManager#}+{- class ClassResourceManager -}+{#pointer *ClassResourceManager as ClassResourceManager#}+{- class ClassRoot -}+{#pointer *ClassRoot as ClassRoot#}+{- class ClassSceneManager -}+{#pointer *ClassSceneManager as ClassSceneManager#}+{- class ClassSceneManagerFactory -}+{#pointer *ClassSceneManagerFactory as ClassSceneManagerFactory#}+{- class ClassSceneNode -}+{#pointer *ClassSceneNode as ClassSceneNode#}+{- class ClassSkeleton -}+{#pointer *ClassSkeleton as ClassSkeleton#}+{- class ClassSkeletonManager -}+{#pointer *ClassSkeletonManager as ClassSkeletonManager#}+{- class ClassTextureManager -}+{#pointer *ClassTextureManager as ClassTextureManager#}+{- class ClassTimeIndex -}+{#pointer *ClassTimeIndex as ClassTimeIndex#}+{- class ClassVertexAnimationTrack -}+{#pointer *ClassVertexAnimationTrack as ClassVertexAnimationTrack#}+{- class ClassViewport -}+{#pointer *ClassViewport as ClassViewport#}+{- class ClassWindowEventUtilities -}+{#pointer *ClassWindowEventUtilities as ClassWindowEventUtilities#}+{- class ClassHG3DUtilities -}+{#pointer *ClassHG3DUtilities as ClassHG3DUtilities#}
− HGamer3D/Bindings/Ogre/ClassPtr.hs 
@@ -1,219 +0,0 @@--- 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\\ClassPtr.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassPtr.chs
-
--- Class Ptr Utilities
-
-module HGamer3D.Bindings.Ogre.ClassPtr where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-
-{- class ClassAnimation -}
-type ClassAnimation = Ptr (())
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassAnimationState -}
-type ClassAnimationState = Ptr (())
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassAnimationStateSet -}
-type ClassAnimationStateSet = Ptr (())
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassAnimationTrack -}
-type ClassAnimationTrack = Ptr (())
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassArchive -}
-type ClassArchive = Ptr (())
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassArchiveManager -}
-type ClassArchiveManager = Ptr (())
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBillboard -}
-type ClassBillboard = Ptr (())
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBillboardChain -}
-type ClassBillboardChain = Ptr (())
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBillboardChainFactory -}
-type ClassBillboardChainFactory = Ptr (())
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBillboardSet -}
-type ClassBillboardSet = Ptr (())
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBillboardSetFactory -}
-type ClassBillboardSetFactory = Ptr (())
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassBone -}
-type ClassBone = Ptr (())
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassCamera -}
-type ClassCamera = Ptr (())
-{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassConfigFile -}
-type ClassConfigFile = Ptr (())
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassControllerManager -}
-type ClassControllerManager = Ptr (())
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassEntity -}
-type ClassEntity = Ptr (())
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassEntityFactory -}
-type ClassEntityFactory = Ptr (())
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassException -}
-type ClassException = Ptr (())
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassFrustum -}
-type ClassFrustum = Ptr (())
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassLight -}
-type ClassLight = Ptr (())
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassLightFactory -}
-type ClassLightFactory = Ptr (())
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassLog -}
-type ClassLog = Ptr (())
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassLogManager -}
-type ClassLogManager = Ptr (())
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassManualObject -}
-type ClassManualObject = Ptr (())
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassManualObjectFactory -}
-type ClassManualObjectFactory = Ptr (())
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassManualObjectSection -}
-type ClassManualObjectSection = Ptr (())
-{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMaterial -}
-type ClassMaterial = Ptr (())
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMaterialManager -}
-type ClassMaterialManager = Ptr (())
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMesh -}
-type ClassMesh = Ptr (())
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMeshManager -}
-type ClassMeshManager = Ptr (())
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMovableObject -}
-type ClassMovableObject = Ptr (())
-{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMovableObjectFactory -}
-type ClassMovableObjectFactory = Ptr (())
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassMultiRenderTarget -}
-type ClassMultiRenderTarget = Ptr (())
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassNode -}
-type ClassNode = Ptr (())
-{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassNodeAnimationTrack -}
-type ClassNodeAnimationTrack = Ptr (())
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassNumericAnimationTrack -}
-type ClassNumericAnimationTrack = Ptr (())
-{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRenderable -}
-type ClassRenderable = Ptr (())
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRenderSystem -}
-type ClassRenderSystem = Ptr (())
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRenderTarget -}
-type ClassRenderTarget = Ptr (())
-{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRenderTexture -}
-type ClassRenderTexture = Ptr (())
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRenderWindow -}
-type ClassRenderWindow = Ptr (())
-{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassResource -}
-type ClassResource = Ptr (())
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassResourceGroupManager -}
-type ClassResourceGroupManager = Ptr (())
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassResourceManager -}
-type ClassResourceManager = Ptr (())
-{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassRoot -}
-type ClassRoot = Ptr (())
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassSceneManager -}
-type ClassSceneManager = Ptr (())
-{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassSceneManagerFactory -}
-type ClassSceneManagerFactory = Ptr (())
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassSceneNode -}
-type ClassSceneNode = Ptr (())
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassSkeleton -}
-type ClassSkeleton = Ptr (())
-{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassSkeletonManager -}
-type ClassSkeletonManager = Ptr (())
-{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassTextureManager -}
-type ClassTextureManager = Ptr (())
-{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassTimeIndex -}
-type ClassTimeIndex = Ptr (())
-{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassVertexAnimationTrack -}
-type ClassVertexAnimationTrack = Ptr (())
-{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassViewport -}
-type ClassViewport = Ptr (())
-{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassWindowEventUtilities -}
-type ClassWindowEventUtilities = Ptr (())
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassWindowUtilsHG3D -}
-type ClassWindowUtilsHG3D = Ptr (())
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
-{- class ClassHG3DMessagePump -}
-type ClassHG3DMessagePump = Ptr (())
-{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
+ HGamer3D/Bindings/Ogre/ClassRenderSystem.chs view
@@ -0,0 +1,308 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRenderSystem.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRenderSystem where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.EnumGpuProgramType #}+
+#include "ClassRenderSystem.h"
+{- function ~RenderSystem -}+{#fun ogre_rds_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_rds_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setConfigOption -}+{#fun ogre_rds_setConfigOption as setConfigOption +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function validateConfigOptions -}+{#fun ogre_rds_validateConfigOptions as validateConfigOptions +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function reinitialise -}+{#fun ogre_rds_reinitialise as reinitialise +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function shutdown -}+{#fun ogre_rds_shutdown as shutdown +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setAmbientLight -}+{#fun ogre_rds_setAmbientLight as setAmbientLight +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setLightingEnabled -}+{#fun ogre_rds_setLightingEnabled as setLightingEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setWBufferEnabled -}+{#fun ogre_rds_setWBufferEnabled as setWBufferEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getWBufferEnabled -}+{#fun ogre_rds_getWBufferEnabled as getWBufferEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function createMultiRenderTarget -}+{#fun ogre_rds_createMultiRenderTarget as createMultiRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyRenderWindow -}+{#fun ogre_rds_destroyRenderWindow as destroyRenderWindow +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyRenderTexture -}+{#fun ogre_rds_destroyRenderTexture as destroyRenderTexture +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyRenderTarget -}+{#fun ogre_rds_destroyRenderTarget as destroyRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function attachRenderTarget -}+{#fun ogre_rds_attachRenderTarget as attachRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getRenderTarget -}+{#fun ogre_rds_getRenderTarget as getRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachRenderTarget -}+{#fun ogre_rds_detachRenderTarget as detachRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getErrorDescription -}+{#fun ogre_rds_getErrorDescription as getErrorDescription +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setWaitForVerticalBlank -}+{#fun ogre_rds_setWaitForVerticalBlank as setWaitForVerticalBlank +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getWaitForVerticalBlank -}+{#fun ogre_rds_getWaitForVerticalBlank as getWaitForVerticalBlank +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getGlobalNumberOfInstances -}+{#fun ogre_rds_getGlobalNumberOfInstances as getGlobalNumberOfInstances +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setGlobalNumberOfInstances -}+{#fun ogre_rds_setGlobalNumberOfInstances as setGlobalNumberOfInstances +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setDepthBufferFor -}+{#fun ogre_rds_setDepthBufferFor as setDepthBufferFor +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function areFixedFunctionLightsInViewSpace -}+{#fun ogre_rds_areFixedFunctionLightsInViewSpace as areFixedFunctionLightsInViewSpace +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function convertColourValue -}+{#fun ogre_rds_convertColourValue as convertColourValue +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setStencilCheckEnabled -}+{#fun ogre_rds_setStencilCheckEnabled as setStencilCheckEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setNormaliseNormals -}+{#fun ogre_rds_setNormaliseNormals as setNormaliseNormals +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function bindGpuProgramPassIterationParameters -}+{#fun ogre_rds_bindGpuProgramPassIterationParameters as bindGpuProgramPassIterationParameters +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumGpuProgramType' } -> `()'  #}++{- function unbindGpuProgram -}+{#fun ogre_rds_unbindGpuProgram as unbindGpuProgram +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumGpuProgramType' } -> `()'  #}++{- function isGpuProgramBound -}+{#fun ogre_rds_isGpuProgramBound as isGpuProgramBound +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumGpuProgramType' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function addClipPlane2 -}+{#fun ogre_rds_addClipPlane2 as addClipPlane2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function resetClipPlanes -}+{#fun ogre_rds_resetClipPlanes as resetClipPlanes +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setInvertVertexWinding -}+{#fun ogre_rds_setInvertVertexWinding as setInvertVertexWinding +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getInvertVertexWinding -}+{#fun ogre_rds_getInvertVertexWinding as getInvertVertexWinding +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setScissorTest -}+{#fun ogre_rds_setScissorTest as setScissorTest +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function clearFrameBuffer -}+{#fun ogre_rds_clearFrameBuffer as clearFrameBuffer +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withColour* `Colour' ,+ realToFrac `Float' ,+ fromIntegral `Int' } -> `()'  #}++{- function getHorizontalTexelOffset -}+{#fun ogre_rds_getHorizontalTexelOffset as getHorizontalTexelOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getVerticalTexelOffset -}+{#fun ogre_rds_getVerticalTexelOffset as getVerticalTexelOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMinimumDepthInputValue -}+{#fun ogre_rds_getMinimumDepthInputValue as getMinimumDepthInputValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getMaximumDepthInputValue -}+{#fun ogre_rds_getMaximumDepthInputValue as getMaximumDepthInputValue +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setCurrentPassIterationCount -}+{#fun ogre_rds_setCurrentPassIterationCount as setCurrentPassIterationCount +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setDeriveDepthBias -}+{#fun ogre_rds_setDeriveDepthBias as setDeriveDepthBias +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function preExtraThreadsStarted -}+{#fun ogre_rds_preExtraThreadsStarted as preExtraThreadsStarted +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function postExtraThreadsStarted -}+{#fun ogre_rds_postExtraThreadsStarted as postExtraThreadsStarted +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function registerThread -}+{#fun ogre_rds_registerThread as registerThread +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unregisterThread -}+{#fun ogre_rds_unregisterThread as unregisterThread +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getDisplayMonitorCount -}+{#fun ogre_rds_getDisplayMonitorCount as getDisplayMonitorCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function beginProfileEvent -}+{#fun ogre_rds_beginProfileEvent as beginProfileEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function endProfileEvent -}+{#fun ogre_rds_endProfileEvent as endProfileEvent +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function markProfileEvent -}+{#fun ogre_rds_markProfileEvent as markProfileEvent +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRenderSystem.hs 
@@ -1,712 +0,0 @@--- 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\\ClassRenderSystem.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRenderSystem.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRenderSystem where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumGpuProgramType
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function ~RenderSystem -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setConfigOption -}
-setConfigOption :: HG3DClass -> String -> String -> IO ()
-setConfigOption a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  setConfigOption'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function validateConfigOptions -}
-validateConfigOptions :: HG3DClass -> IO (String)
-validateConfigOptions a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  validateConfigOptions'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function reinitialise -}
-reinitialise :: HG3DClass -> IO ()
-reinitialise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  reinitialise'_ a1' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function shutdown -}
-shutdown :: HG3DClass -> IO ()
-shutdown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  shutdown'_ a1' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setAmbientLight -}
-setAmbientLight :: HG3DClass -> Float -> Float -> Float -> IO ()
-setAmbientLight a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  setAmbientLight'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setLightingEnabled -}
-setLightingEnabled :: HG3DClass -> Bool -> IO ()
-setLightingEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setLightingEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setWBufferEnabled -}
-setWBufferEnabled :: HG3DClass -> Bool -> IO ()
-setWBufferEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setWBufferEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getWBufferEnabled -}
-getWBufferEnabled :: HG3DClass -> IO (Bool)
-getWBufferEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWBufferEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function createMultiRenderTarget -}
-createMultiRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
-createMultiRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createMultiRenderTarget'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function destroyRenderWindow -}
-destroyRenderWindow :: HG3DClass -> String -> IO ()
-destroyRenderWindow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRenderWindow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function destroyRenderTexture -}
-destroyRenderTexture :: HG3DClass -> String -> IO ()
-destroyRenderTexture a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRenderTexture'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function destroyRenderTarget -}
-destroyRenderTarget :: HG3DClass -> String -> IO ()
-destroyRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRenderTarget'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function attachRenderTarget -}
-attachRenderTarget :: HG3DClass -> HG3DClass -> IO ()
-attachRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  attachRenderTarget'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getRenderTarget -}
-getRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
-getRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getRenderTarget'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function detachRenderTarget -}
-detachRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
-detachRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  detachRenderTarget'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getErrorDescription -}
-getErrorDescription :: HG3DClass -> Int -> IO (String)
-getErrorDescription a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloc64k $ \a3' -> 
-  getErrorDescription'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setWaitForVerticalBlank -}
-setWaitForVerticalBlank :: HG3DClass -> Bool -> IO ()
-setWaitForVerticalBlank a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setWaitForVerticalBlank'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getWaitForVerticalBlank -}
-getWaitForVerticalBlank :: HG3DClass -> IO (Bool)
-getWaitForVerticalBlank a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWaitForVerticalBlank'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getGlobalNumberOfInstances -}
-getGlobalNumberOfInstances :: HG3DClass -> IO (Int)
-getGlobalNumberOfInstances a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getGlobalNumberOfInstances'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setGlobalNumberOfInstances -}
-setGlobalNumberOfInstances :: HG3DClass -> Int -> IO ()
-setGlobalNumberOfInstances a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setGlobalNumberOfInstances'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setFixedPipelineEnabled -}
-setFixedPipelineEnabled :: HG3DClass -> Bool -> IO ()
-setFixedPipelineEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setFixedPipelineEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getFixedPipelineEnabled -}
-getFixedPipelineEnabled :: HG3DClass -> IO (Bool)
-getFixedPipelineEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFixedPipelineEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setDepthBufferFor -}
-setDepthBufferFor :: HG3DClass -> HG3DClass -> IO ()
-setDepthBufferFor a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setDepthBufferFor'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function areFixedFunctionLightsInViewSpace -}
-areFixedFunctionLightsInViewSpace :: HG3DClass -> IO (Bool)
-areFixedFunctionLightsInViewSpace a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  areFixedFunctionLightsInViewSpace'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function convertColourValue -}
-convertColourValue :: HG3DClass -> Colour -> IO (Int)
-convertColourValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertColourValue'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setStencilCheckEnabled -}
-setStencilCheckEnabled :: HG3DClass -> Bool -> IO ()
-setStencilCheckEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setStencilCheckEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setNormaliseNormals -}
-setNormaliseNormals :: HG3DClass -> Bool -> IO ()
-setNormaliseNormals a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setNormaliseNormals'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function bindGpuProgramPassIterationParameters -}
-bindGpuProgramPassIterationParameters :: HG3DClass -> EnumGpuProgramType -> IO ()
-bindGpuProgramPassIterationParameters a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  bindGpuProgramPassIterationParameters'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function unbindGpuProgram -}
-unbindGpuProgram :: HG3DClass -> EnumGpuProgramType -> IO ()
-unbindGpuProgram a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  unbindGpuProgram'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function isGpuProgramBound -}
-isGpuProgramBound :: HG3DClass -> EnumGpuProgramType -> IO (Bool)
-isGpuProgramBound a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  isGpuProgramBound'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function addClipPlane2 -}
-addClipPlane2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-addClipPlane2 a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  addClipPlane2'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function resetClipPlanes -}
-resetClipPlanes :: HG3DClass -> IO ()
-resetClipPlanes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetClipPlanes'_ a1' >>= \res ->
-  return ()
-{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setInvertVertexWinding -}
-setInvertVertexWinding :: HG3DClass -> Bool -> IO ()
-setInvertVertexWinding a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setInvertVertexWinding'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getInvertVertexWinding -}
-getInvertVertexWinding :: HG3DClass -> IO (Bool)
-getInvertVertexWinding a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getInvertVertexWinding'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setScissorTest -}
-setScissorTest :: HG3DClass -> Bool -> Int -> Int -> Int -> Int -> IO ()
-setScissorTest a1 a2 a3 a4 a5 a6 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  let {a5' = fromIntegral a5} in 
-  let {a6' = fromIntegral a6} in 
-  setScissorTest'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  return ()
-{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function clearFrameBuffer -}
-clearFrameBuffer :: HG3DClass -> Int -> Colour -> Float -> Int -> IO ()
-clearFrameBuffer a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withColour a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  let {a5' = fromIntegral a5} in 
-  clearFrameBuffer'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 252 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getHorizontalTexelOffset -}
-getHorizontalTexelOffset :: HG3DClass -> IO (Float)
-getHorizontalTexelOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHorizontalTexelOffset'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 257 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getVerticalTexelOffset -}
-getVerticalTexelOffset :: HG3DClass -> IO (Float)
-getVerticalTexelOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVerticalTexelOffset'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getMinimumDepthInputValue -}
-getMinimumDepthInputValue :: HG3DClass -> IO (Float)
-getMinimumDepthInputValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMinimumDepthInputValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 267 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getMaximumDepthInputValue -}
-getMaximumDepthInputValue :: HG3DClass -> IO (Float)
-getMaximumDepthInputValue a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaximumDepthInputValue'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setCurrentPassIterationCount -}
-setCurrentPassIterationCount :: HG3DClass -> Int -> IO ()
-setCurrentPassIterationCount a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setCurrentPassIterationCount'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 277 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function setDeriveDepthBias -}
-setDeriveDepthBias :: HG3DClass -> Bool -> Float -> Float -> Float -> IO ()
-setDeriveDepthBias a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setDeriveDepthBias'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function preExtraThreadsStarted -}
-preExtraThreadsStarted :: HG3DClass -> IO ()
-preExtraThreadsStarted a1 =
-  withHG3DClass a1 $ \a1' -> 
-  preExtraThreadsStarted'_ a1' >>= \res ->
-  return ()
-{-# LINE 289 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function postExtraThreadsStarted -}
-postExtraThreadsStarted :: HG3DClass -> IO ()
-postExtraThreadsStarted a1 =
-  withHG3DClass a1 $ \a1' -> 
-  postExtraThreadsStarted'_ a1' >>= \res ->
-  return ()
-{-# LINE 293 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function registerThread -}
-registerThread :: HG3DClass -> IO ()
-registerThread a1 =
-  withHG3DClass a1 $ \a1' -> 
-  registerThread'_ a1' >>= \res ->
-  return ()
-{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function unregisterThread -}
-unregisterThread :: HG3DClass -> IO ()
-unregisterThread a1 =
-  withHG3DClass a1 $ \a1' -> 
-  unregisterThread'_ a1' >>= \res ->
-  return ()
-{-# LINE 301 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function getDisplayMonitorCount -}
-getDisplayMonitorCount :: HG3DClass -> IO (Int)
-getDisplayMonitorCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDisplayMonitorCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 306 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function beginProfileEvent -}
-beginProfileEvent :: HG3DClass -> String -> IO ()
-beginProfileEvent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  beginProfileEvent'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 311 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function endProfileEvent -}
-endProfileEvent :: HG3DClass -> IO ()
-endProfileEvent a1 =
-  withHG3DClass a1 $ \a1' -> 
-  endProfileEvent'_ a1' >>= \res ->
-  return ()
-{-# LINE 315 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-{- function markProfileEvent -}
-markProfileEvent :: HG3DClass -> String -> IO ()
-markProfileEvent a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  markProfileEvent'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 320 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setConfigOption"
-  setConfigOption'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_validateConfigOptions"
-  validateConfigOptions'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_reinitialise"
-  reinitialise'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_shutdown"
-  shutdown'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setAmbientLight"
-  setAmbientLight'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setLightingEnabled"
-  setLightingEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setWBufferEnabled"
-  setWBufferEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getWBufferEnabled"
-  getWBufferEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_createMultiRenderTarget"
-  createMultiRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_destroyRenderWindow"
-  destroyRenderWindow'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_destroyRenderTexture"
-  destroyRenderTexture'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_destroyRenderTarget"
-  destroyRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_attachRenderTarget"
-  attachRenderTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getRenderTarget"
-  getRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_detachRenderTarget"
-  detachRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getErrorDescription"
-  getErrorDescription'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setWaitForVerticalBlank"
-  setWaitForVerticalBlank'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getWaitForVerticalBlank"
-  getWaitForVerticalBlank'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getGlobalNumberOfInstances"
-  getGlobalNumberOfInstances'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setGlobalNumberOfInstances"
-  setGlobalNumberOfInstances'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setFixedPipelineEnabled"
-  setFixedPipelineEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getFixedPipelineEnabled"
-  getFixedPipelineEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setDepthBufferFor"
-  setDepthBufferFor'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_areFixedFunctionLightsInViewSpace"
-  areFixedFunctionLightsInViewSpace'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_convertColourValue"
-  convertColourValue'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setStencilCheckEnabled"
-  setStencilCheckEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setNormaliseNormals"
-  setNormaliseNormals'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_bindGpuProgramPassIterationParameters"
-  bindGpuProgramPassIterationParameters'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_unbindGpuProgram"
-  unbindGpuProgram'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_isGpuProgramBound"
-  isGpuProgramBound'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_addClipPlane2"
-  addClipPlane2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_resetClipPlanes"
-  resetClipPlanes'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setInvertVertexWinding"
-  setInvertVertexWinding'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getInvertVertexWinding"
-  getInvertVertexWinding'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setScissorTest"
-  setScissorTest'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (CInt -> (CInt -> (CInt -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_clearFrameBuffer"
-  clearFrameBuffer'_ :: ((HG3DClassPtr) -> (CUInt -> ((ColourPtr) -> (CFloat -> (CUShort -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getHorizontalTexelOffset"
-  getHorizontalTexelOffset'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getVerticalTexelOffset"
-  getVerticalTexelOffset'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getMinimumDepthInputValue"
-  getMinimumDepthInputValue'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getMaximumDepthInputValue"
-  getMaximumDepthInputValue'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setCurrentPassIterationCount"
-  setCurrentPassIterationCount'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_setDeriveDepthBias"
-  setDeriveDepthBias'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_preExtraThreadsStarted"
-  preExtraThreadsStarted'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_postExtraThreadsStarted"
-  postExtraThreadsStarted'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_registerThread"
-  registerThread'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_unregisterThread"
-  unregisterThread'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_getDisplayMonitorCount"
-  getDisplayMonitorCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_beginProfileEvent"
-  beginProfileEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_endProfileEvent"
-  endProfileEvent'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_markProfileEvent"
-  markProfileEvent'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassRenderTarget.chs view
@@ -0,0 +1,254 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRenderTarget.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRenderTarget where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassRenderTarget.h"
+{- function ~RenderTarget -}+{#fun ogre_rtgt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_rtgt_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getMetrics -}+{#fun ogre_rtgt_getMetrics as getMetrics +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getWidth -}+{#fun ogre_rtgt_getWidth as getWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getHeight -}+{#fun ogre_rtgt_getHeight as getHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getColourDepth -}+{#fun ogre_rtgt_getColourDepth as getColourDepth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setDepthBufferPool -}+{#fun ogre_rtgt_setDepthBufferPool as setDepthBufferPool +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getDepthBufferPool -}+{#fun ogre_rtgt_getDepthBufferPool as getDepthBufferPool +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function detachDepthBuffer -}+{#fun ogre_rtgt_detachDepthBuffer as detachDepthBuffer +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function update -}+{#fun ogre_rtgt_update as update +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function swapBuffers -}+{#fun ogre_rtgt_swapBuffers as swapBuffers +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function addViewport -}+{#fun ogre_rtgt_addViewport as addViewport +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumViewports -}+{#fun ogre_rtgt_getNumViewports as getNumViewports +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getViewport -}+{#fun ogre_rtgt_getViewport as getViewport +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getViewportByZOrder -}+{#fun ogre_rtgt_getViewportByZOrder as getViewportByZOrder +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasViewportWithZOrder -}+{#fun ogre_rtgt_hasViewportWithZOrder as hasViewportWithZOrder +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeViewport -}+{#fun ogre_rtgt_removeViewport as removeViewport +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeAllViewports -}+{#fun ogre_rtgt_removeAllViewports as removeAllViewports +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getStatistics -}+{#fun ogre_rtgt_getStatistics as getStatistics +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getLastFPS -}+{#fun ogre_rtgt_getLastFPS as getLastFPS +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getAverageFPS -}+{#fun ogre_rtgt_getAverageFPS as getAverageFPS +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getBestFPS -}+{#fun ogre_rtgt_getBestFPS as getBestFPS +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWorstFPS -}+{#fun ogre_rtgt_getWorstFPS as getWorstFPS +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getBestFrameTime -}+{#fun ogre_rtgt_getBestFrameTime as getBestFrameTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWorstFrameTime -}+{#fun ogre_rtgt_getWorstFrameTime as getWorstFrameTime +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function resetStatistics -}+{#fun ogre_rtgt_resetStatistics as resetStatistics +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeAllListeners -}+{#fun ogre_rtgt_removeAllListeners as removeAllListeners +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isActive -}+{#fun ogre_rtgt_isActive as isActive +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setActive -}+{#fun ogre_rtgt_setActive as setActive +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setAutoUpdated -}+{#fun ogre_rtgt_setAutoUpdated as setAutoUpdated +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isAutoUpdated -}+{#fun ogre_rtgt_isAutoUpdated as isAutoUpdated +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function writeContentsToFile -}+{#fun ogre_rtgt_writeContentsToFile as writeContentsToFile +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function writeContentsToTimestampedFile -}+{#fun ogre_rtgt_writeContentsToTimestampedFile as writeContentsToTimestampedFile +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function requiresTextureFlipping -}+{#fun ogre_rtgt_requiresTextureFlipping as requiresTextureFlipping +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTriangleCount -}+{#fun ogre_rtgt_getTriangleCount as getTriangleCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getBatchCount -}+{#fun ogre_rtgt_getBatchCount as getBatchCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isPrimary -}+{#fun ogre_rtgt_isPrimary as isPrimary +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isHardwareGammaEnabled -}+{#fun ogre_rtgt_isHardwareGammaEnabled as isHardwareGammaEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getFSAA -}+{#fun ogre_rtgt_getFSAA as getFSAA +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getFSAAHint -}+{#fun ogre_rtgt_getFSAAHint as getFSAAHint +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRenderTarget.hs 
@@ -1,576 +0,0 @@--- 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\\ClassRenderTarget.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRenderTarget.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRenderTarget where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function ~RenderTarget -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getMetrics -}
-getMetrics :: HG3DClass -> IO (Int, Int, Int)
-getMetrics a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  getMetrics'_ a1' a2' a3' a4' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  peekIntConv  a3'>>= \a3'' -> 
-  peekIntConv  a4'>>= \a4'' -> 
-  return (a2'', a3'', a4'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getWidth -}
-getWidth :: HG3DClass -> IO (Int)
-getWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWidth'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getHeight -}
-getHeight :: HG3DClass -> IO (Int)
-getHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHeight'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getColourDepth -}
-getColourDepth :: HG3DClass -> IO (Int)
-getColourDepth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getColourDepth'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function setDepthBufferPool -}
-setDepthBufferPool :: HG3DClass -> Int -> IO ()
-setDepthBufferPool a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setDepthBufferPool'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getDepthBufferPool -}
-getDepthBufferPool :: HG3DClass -> IO (Int)
-getDepthBufferPool a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDepthBufferPool'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function detachDepthBuffer -}
-detachDepthBuffer :: HG3DClass -> IO ()
-detachDepthBuffer a1 =
-  withHG3DClass a1 $ \a1' -> 
-  detachDepthBuffer'_ a1' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function update -}
-update :: HG3DClass -> Bool -> IO ()
-update a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  update'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function swapBuffers -}
-swapBuffers :: HG3DClass -> Bool -> IO ()
-swapBuffers a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  swapBuffers'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function addViewport -}
-addViewport :: HG3DClass -> HG3DClass -> Int -> Float -> Float -> Float -> Float -> IO (HG3DClass)
-addViewport a1 a2 a3 a4 a5 a6 a7 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  let {a6' = realToFrac a6} in 
-  let {a7' = realToFrac a7} in 
-  alloca $ \a8' -> 
-  addViewport'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
-  peek  a8'>>= \a8'' -> 
-  return (a8'')
-{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getNumViewports -}
-getNumViewports :: HG3DClass -> IO (Int)
-getNumViewports a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumViewports'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getViewport -}
-getViewport :: HG3DClass -> Int -> IO (HG3DClass)
-getViewport a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getViewport'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getViewportByZOrder -}
-getViewportByZOrder :: HG3DClass -> Int -> IO (HG3DClass)
-getViewportByZOrder a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getViewportByZOrder'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function hasViewportWithZOrder -}
-hasViewportWithZOrder :: HG3DClass -> Int -> IO (Bool)
-hasViewportWithZOrder a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  hasViewportWithZOrder'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function removeViewport -}
-removeViewport :: HG3DClass -> Int -> IO ()
-removeViewport a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeViewport'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function removeAllViewports -}
-removeAllViewports :: HG3DClass -> IO ()
-removeAllViewports a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllViewports'_ a1' >>= \res ->
-  return ()
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getStatistics -}
-getStatistics :: HG3DClass -> IO (Float, Float, Float, Float)
-getStatistics a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  alloca $ \a5' -> 
-  getStatistics'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  peekFloatConv  a3'>>= \a3'' -> 
-  peekFloatConv  a4'>>= \a4'' -> 
-  peekFloatConv  a5'>>= \a5'' -> 
-  return (a2'', a3'', a4'', a5'')
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getLastFPS -}
-getLastFPS :: HG3DClass -> IO (Float)
-getLastFPS a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLastFPS'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getAverageFPS -}
-getAverageFPS :: HG3DClass -> IO (Float)
-getAverageFPS a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAverageFPS'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getBestFPS -}
-getBestFPS :: HG3DClass -> IO (Float)
-getBestFPS a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBestFPS'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getWorstFPS -}
-getWorstFPS :: HG3DClass -> IO (Float)
-getWorstFPS a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWorstFPS'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getBestFrameTime -}
-getBestFrameTime :: HG3DClass -> IO (Float)
-getBestFrameTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBestFrameTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getWorstFrameTime -}
-getWorstFrameTime :: HG3DClass -> IO (Float)
-getWorstFrameTime a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWorstFrameTime'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function resetStatistics -}
-resetStatistics :: HG3DClass -> IO ()
-resetStatistics a1 =
-  withHG3DClass a1 $ \a1' -> 
-  resetStatistics'_ a1' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function removeAllListeners -}
-removeAllListeners :: HG3DClass -> IO ()
-removeAllListeners a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllListeners'_ a1' >>= \res ->
-  return ()
-{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function isActive -}
-isActive :: HG3DClass -> IO (Bool)
-isActive a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isActive'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function setActive -}
-setActive :: HG3DClass -> Bool -> IO ()
-setActive a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setActive'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function setAutoUpdated -}
-setAutoUpdated :: HG3DClass -> Bool -> IO ()
-setAutoUpdated a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoUpdated'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function isAutoUpdated -}
-isAutoUpdated :: HG3DClass -> IO (Bool)
-isAutoUpdated a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoUpdated'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function writeContentsToFile -}
-writeContentsToFile :: HG3DClass -> String -> IO ()
-writeContentsToFile a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  writeContentsToFile'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function writeContentsToTimestampedFile -}
-writeContentsToTimestampedFile :: HG3DClass -> String -> String -> IO (String)
-writeContentsToTimestampedFile a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloc64k $ \a4' -> 
-  writeContentsToTimestampedFile'_ a1' a2' a3' a4' >>= \res ->
-  peekCString  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function requiresTextureFlipping -}
-requiresTextureFlipping :: HG3DClass -> IO (Bool)
-requiresTextureFlipping a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  requiresTextureFlipping'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getTriangleCount -}
-getTriangleCount :: HG3DClass -> IO (Int)
-getTriangleCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTriangleCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getBatchCount -}
-getBatchCount :: HG3DClass -> IO (Int)
-getBatchCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBatchCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function isPrimary -}
-isPrimary :: HG3DClass -> IO (Bool)
-isPrimary a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPrimary'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function isHardwareGammaEnabled -}
-isHardwareGammaEnabled :: HG3DClass -> IO (Bool)
-isHardwareGammaEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHardwareGammaEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getFSAA -}
-getFSAA :: HG3DClass -> IO (Int)
-getFSAA a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFSAA'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-{- function getFSAAHint -}
-getFSAAHint :: HG3DClass -> IO (String)
-getFSAAHint a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getFSAAHint'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getMetrics"
-  getMetrics'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> ((Ptr CUInt) -> ((Ptr CUInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getWidth"
-  getWidth'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getHeight"
-  getHeight'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getColourDepth"
-  getColourDepth'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_setDepthBufferPool"
-  setDepthBufferPool'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getDepthBufferPool"
-  getDepthBufferPool'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_detachDepthBuffer"
-  detachDepthBuffer'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_update"
-  update'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_swapBuffers"
-  swapBuffers'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_addViewport"
-  addViewport'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> ((HG3DClassPtr) -> (IO ())))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getNumViewports"
-  getNumViewports'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getViewport"
-  getViewport'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getViewportByZOrder"
-  getViewportByZOrder'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_hasViewportWithZOrder"
-  hasViewportWithZOrder'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_removeViewport"
-  removeViewport'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_removeAllViewports"
-  removeAllViewports'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getStatistics"
-  getStatistics'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> ((Ptr CFloat) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getLastFPS"
-  getLastFPS'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getAverageFPS"
-  getAverageFPS'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getBestFPS"
-  getBestFPS'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getWorstFPS"
-  getWorstFPS'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getBestFrameTime"
-  getBestFrameTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getWorstFrameTime"
-  getWorstFrameTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_resetStatistics"
-  resetStatistics'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_removeAllListeners"
-  removeAllListeners'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_isActive"
-  isActive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_setActive"
-  setActive'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_setAutoUpdated"
-  setAutoUpdated'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_isAutoUpdated"
-  isAutoUpdated'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_writeContentsToFile"
-  writeContentsToFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_writeContentsToTimestampedFile"
-  writeContentsToTimestampedFile'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_requiresTextureFlipping"
-  requiresTextureFlipping'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getTriangleCount"
-  getTriangleCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getBatchCount"
-  getBatchCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_isPrimary"
-  isPrimary'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_isHardwareGammaEnabled"
-  isHardwareGammaEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getFSAA"
-  getFSAA'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_getFSAAHint"
-  getFSAAHint'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassRenderTexture.chs view
@@ -0,0 +1,47 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRenderTexture.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRenderTexture where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassRenderTexture.h"
+{- function ~RenderTexture -}+{#fun ogre_rtx_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRenderTexture.hs 
@@ -1,63 +0,0 @@--- 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\\ClassRenderTexture.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRenderTexture.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRenderTexture where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
-
-{- function ~RenderTexture -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs.h ogre_rtx_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassRenderWindow.chs view
@@ -0,0 +1,149 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRenderWindow.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRenderWindow where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassRenderWindow.h"
+{- function setFullscreen -}+{#fun ogre_rw_setFullscreen as setFullscreen +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function destroy -}+{#fun ogre_rw_destroy as destroy +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function resize -}+{#fun ogre_rw_resize as resize +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function windowMovedOrResized -}+{#fun ogre_rw_windowMovedOrResized as windowMovedOrResized +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function reposition -}+{#fun ogre_rw_reposition as reposition +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ fromIntegral `Int' } -> `()'  #}++{- function isVisible -}+{#fun ogre_rw_isVisible as isVisible +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setVisible -}+{#fun ogre_rw_setVisible as setVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isHidden -}+{#fun ogre_rw_isHidden as isHidden +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setHidden -}+{#fun ogre_rw_setHidden as setHidden +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setVSyncEnabled -}+{#fun ogre_rw_setVSyncEnabled as setVSyncEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isVSyncEnabled -}+{#fun ogre_rw_isVSyncEnabled as isVSyncEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setVSyncInterval -}+{#fun ogre_rw_setVSyncInterval as setVSyncInterval +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getVSyncInterval -}+{#fun ogre_rw_getVSyncInterval as getVSyncInterval +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isActive -}+{#fun ogre_rw_isActive as isActive +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isClosed -}+{#fun ogre_rw_isClosed as isClosed +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isPrimary -}+{#fun ogre_rw_isPrimary as isPrimary +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isFullScreen -}+{#fun ogre_rw_isFullScreen as isFullScreen +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getMetrics -}+{#fun ogre_rw_getMetrics as getMetrics +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function isDeactivatedOnFocusChange -}+{#fun ogre_rw_isDeactivatedOnFocusChange as isDeactivatedOnFocusChange +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDeactivateOnFocusChange -}+{#fun ogre_rw_setDeactivateOnFocusChange as setDeactivateOnFocusChange +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRenderWindow.hs 
@@ -1,312 +0,0 @@--- 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\\ClassRenderWindow.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRenderWindow.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRenderWindow where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setFullscreen -}
-setFullscreen :: HG3DClass -> Bool -> Int -> Int -> IO ()
-setFullscreen a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromIntegral a3} in 
-  let {a4' = fromIntegral a4} in 
-  setFullscreen'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function destroy -}
-destroy :: HG3DClass -> IO ()
-destroy a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroy'_ a1' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function resize -}
-resize :: HG3DClass -> Int -> Int -> IO ()
-resize a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  resize'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function windowMovedOrResized -}
-windowMovedOrResized :: HG3DClass -> IO ()
-windowMovedOrResized a1 =
-  withHG3DClass a1 $ \a1' -> 
-  windowMovedOrResized'_ a1' >>= \res ->
-  return ()
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function reposition -}
-reposition :: HG3DClass -> Int -> Int -> IO ()
-reposition a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = fromIntegral a3} in 
-  reposition'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isVisible -}
-isVisible :: HG3DClass -> IO (Bool)
-isVisible a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVisible'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setVisible -}
-setVisible :: HG3DClass -> Bool -> IO ()
-setVisible a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVisible'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isHidden -}
-isHidden :: HG3DClass -> IO (Bool)
-isHidden a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isHidden'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setHidden -}
-setHidden :: HG3DClass -> Bool -> IO ()
-setHidden a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setHidden'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setVSyncEnabled -}
-setVSyncEnabled :: HG3DClass -> Bool -> IO ()
-setVSyncEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVSyncEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isVSyncEnabled -}
-isVSyncEnabled :: HG3DClass -> IO (Bool)
-isVSyncEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isVSyncEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setVSyncInterval -}
-setVSyncInterval :: HG3DClass -> Int -> IO ()
-setVSyncInterval a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setVSyncInterval'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function getVSyncInterval -}
-getVSyncInterval :: HG3DClass -> IO (Int)
-getVSyncInterval a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVSyncInterval'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isActive -}
-isActive :: HG3DClass -> IO (Bool)
-isActive a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isActive'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isClosed -}
-isClosed :: HG3DClass -> IO (Bool)
-isClosed a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isClosed'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isPrimary -}
-isPrimary :: HG3DClass -> IO (Bool)
-isPrimary a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPrimary'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isFullScreen -}
-isFullScreen :: HG3DClass -> IO (Bool)
-isFullScreen a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isFullScreen'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function getMetrics -}
-getMetrics :: HG3DClass -> IO (Int, Int, Int, Int, Int)
-getMetrics a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  alloca $ \a5' -> 
-  alloca $ \a6' -> 
-  getMetrics'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  peekIntConv  a3'>>= \a3'' -> 
-  peekIntConv  a4'>>= \a4'' -> 
-  peekIntConv  a5'>>= \a5'' -> 
-  peekIntConv  a6'>>= \a6'' -> 
-  return (a2'', a3'', a4'', a5'', a6'')
-{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function isDeactivatedOnFocusChange -}
-isDeactivatedOnFocusChange :: HG3DClass -> IO (Bool)
-isDeactivatedOnFocusChange a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isDeactivatedOnFocusChange'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-{- function setDeactivateOnFocusChange -}
-setDeactivateOnFocusChange :: HG3DClass -> Bool -> IO ()
-setDeactivateOnFocusChange a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDeactivateOnFocusChange'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setFullscreen"
-  setFullscreen'_ :: ((HG3DClassPtr) -> (CInt -> (CUInt -> (CUInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_destroy"
-  destroy'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_resize"
-  resize'_ :: ((HG3DClassPtr) -> (CUInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_windowMovedOrResized"
-  windowMovedOrResized'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_reposition"
-  reposition'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isVisible"
-  isVisible'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setVisible"
-  setVisible'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isHidden"
-  isHidden'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setHidden"
-  setHidden'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setVSyncEnabled"
-  setVSyncEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isVSyncEnabled"
-  isVSyncEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setVSyncInterval"
-  setVSyncInterval'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_getVSyncInterval"
-  getVSyncInterval'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isActive"
-  isActive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isClosed"
-  isClosed'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isPrimary"
-  isPrimary'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isFullScreen"
-  isFullScreen'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_getMetrics"
-  getMetrics'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> ((Ptr CUInt) -> ((Ptr CUInt) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_isDeactivatedOnFocusChange"
-  isDeactivatedOnFocusChange'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setDeactivateOnFocusChange"
-  setDeactivateOnFocusChange'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassRenderable.chs view
@@ -0,0 +1,123 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRenderable.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRenderable where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+
+#include "ClassRenderable.h"
+{- function ~Renderable -}+{#fun ogre_rndl_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMaterial -}+{#fun ogre_rndl_getMaterial as getMaterial +{ withHG3DClass* `HG3DClass' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function preRender -}+{#fun ogre_rndl_preRender as preRender +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function postRender -}+{#fun ogre_rndl_postRender as postRender +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getNumWorldTransforms -}+{#fun ogre_rndl_getNumWorldTransforms as getNumWorldTransforms +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setUseIdentityProjection -}+{#fun ogre_rndl_setUseIdentityProjection as setUseIdentityProjection +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseIdentityProjection -}+{#fun ogre_rndl_getUseIdentityProjection as getUseIdentityProjection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setUseIdentityView -}+{#fun ogre_rndl_setUseIdentityView as setUseIdentityView +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getUseIdentityView -}+{#fun ogre_rndl_getUseIdentityView as getUseIdentityView +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSquaredViewDepth -}+{#fun ogre_rndl_getSquaredViewDepth as getSquaredViewDepth +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getCastsShadows -}+{#fun ogre_rndl_getCastsShadows as getCastsShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeCustomParameter -}+{#fun ogre_rndl_removeCustomParameter as removeCustomParameter +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function hasCustomParameter -}+{#fun ogre_rndl_hasCustomParameter as hasCustomParameter +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setPolygonModeOverrideable -}+{#fun ogre_rndl_setPolygonModeOverrideable as setPolygonModeOverrideable +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getPolygonModeOverrideable -}+{#fun ogre_rndl_getPolygonModeOverrideable as getPolygonModeOverrideable +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRenderable.hs 
@@ -1,247 +0,0 @@--- 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\\ClassRenderable.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRenderable.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRenderable where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function ~Renderable -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getMaterial -}
-getMaterial :: HG3DClass -> IO (SharedPtr)
-getMaterial a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMaterial'_ a1' a2' >>= \res ->
-  peekSharedPtr  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function preRender -}
-preRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO (Bool)
-preRender a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  preRender'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function postRender -}
-postRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
-postRender a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  withHG3DClass a3 $ \a3' -> 
-  postRender'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getNumWorldTransforms -}
-getNumWorldTransforms :: HG3DClass -> IO (Int)
-getNumWorldTransforms a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumWorldTransforms'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function setUseIdentityProjection -}
-setUseIdentityProjection :: HG3DClass -> Bool -> IO ()
-setUseIdentityProjection a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseIdentityProjection'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getUseIdentityProjection -}
-getUseIdentityProjection :: HG3DClass -> IO (Bool)
-getUseIdentityProjection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseIdentityProjection'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function setUseIdentityView -}
-setUseIdentityView :: HG3DClass -> Bool -> IO ()
-setUseIdentityView a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setUseIdentityView'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getUseIdentityView -}
-getUseIdentityView :: HG3DClass -> IO (Bool)
-getUseIdentityView a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getUseIdentityView'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getSquaredViewDepth -}
-getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float)
-getSquaredViewDepth a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSquaredViewDepth'_ a1' a2' a3' >>= \res ->
-  peekFloatConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getCastsShadows -}
-getCastsShadows :: HG3DClass -> IO (Bool)
-getCastsShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCastsShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function removeCustomParameter -}
-removeCustomParameter :: HG3DClass -> Int -> IO ()
-removeCustomParameter a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeCustomParameter'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function hasCustomParameter -}
-hasCustomParameter :: HG3DClass -> Int -> IO (Bool)
-hasCustomParameter a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  hasCustomParameter'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function setPolygonModeOverrideable -}
-setPolygonModeOverrideable :: HG3DClass -> Bool -> IO ()
-setPolygonModeOverrideable a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setPolygonModeOverrideable'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-{- function getPolygonModeOverrideable -}
-getPolygonModeOverrideable :: HG3DClass -> IO (Bool)
-getPolygonModeOverrideable a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getPolygonModeOverrideable'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getMaterial"
-  getMaterial'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_preRender"
-  preRender'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_postRender"
-  postRender'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getNumWorldTransforms"
-  getNumWorldTransforms'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_setUseIdentityProjection"
-  setUseIdentityProjection'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getUseIdentityProjection"
-  getUseIdentityProjection'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_setUseIdentityView"
-  setUseIdentityView'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getUseIdentityView"
-  getUseIdentityView'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getSquaredViewDepth"
-  getSquaredViewDepth'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getCastsShadows"
-  getCastsShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_removeCustomParameter"
-  removeCustomParameter'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_hasCustomParameter"
-  hasCustomParameter'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_setPolygonModeOverrideable"
-  setPolygonModeOverrideable'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_getPolygonModeOverrideable"
-  getPolygonModeOverrideable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassResource.chs view
@@ -0,0 +1,143 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassResource.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassResource where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassResource.h"
+{- function ~Resource -}+{#fun ogre_rsrc_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function prepare -}+{#fun ogre_rsrc_prepare as prepare +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function load -}+{#fun ogre_rsrc_load as load +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function reload -}+{#fun ogre_rsrc_reload as reload +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isReloadable -}+{#fun ogre_rsrc_isReloadable as isReloadable +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isManuallyLoaded -}+{#fun ogre_rsrc_isManuallyLoaded as isManuallyLoaded +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function unload -}+{#fun ogre_rsrc_unload as unload +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSize -}+{#fun ogre_rsrc_getSize as getSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function touch -}+{#fun ogre_rsrc_touch as touch +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_rsrc_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function isPrepared -}+{#fun ogre_rsrc_isPrepared as isPrepared +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isLoaded -}+{#fun ogre_rsrc_isLoaded as isLoaded +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isLoading -}+{#fun ogre_rsrc_isLoading as isLoading +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isBackgroundLoaded -}+{#fun ogre_rsrc_isBackgroundLoaded as isBackgroundLoaded +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setBackgroundLoaded -}+{#fun ogre_rsrc_setBackgroundLoaded as setBackgroundLoaded +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function escalateLoading -}+{#fun ogre_rsrc_escalateLoading as escalateLoading +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getGroup -}+{#fun ogre_rsrc_getGroup as getGroup +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function changeGroupOwnership -}+{#fun ogre_rsrc_changeGroupOwnership as changeGroupOwnership +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getCreator -}+{#fun ogre_rsrc_getCreator as getCreator +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getOrigin -}+{#fun ogre_rsrc_getOrigin as getOrigin +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getStateCount -}+{#fun ogre_rsrc_getStateCount as getStateCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassResource.hs 
@@ -1,311 +0,0 @@--- 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\\ClassResource.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassResource.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassResource where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function ~Resource -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function prepare -}
-prepare :: HG3DClass -> Bool -> IO ()
-prepare a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  prepare'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function load -}
-load :: HG3DClass -> Bool -> IO ()
-load a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  load'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function reload -}
-reload :: HG3DClass -> IO ()
-reload a1 =
-  withHG3DClass a1 $ \a1' -> 
-  reload'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isReloadable -}
-isReloadable :: HG3DClass -> IO (Bool)
-isReloadable a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isReloadable'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isManuallyLoaded -}
-isManuallyLoaded :: HG3DClass -> IO (Bool)
-isManuallyLoaded a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isManuallyLoaded'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function unload -}
-unload :: HG3DClass -> IO ()
-unload a1 =
-  withHG3DClass a1 $ \a1' -> 
-  unload'_ a1' >>= \res ->
-  return ()
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getSize -}
-getSize :: HG3DClass -> IO (Int)
-getSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSize'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function touch -}
-touch :: HG3DClass -> IO ()
-touch a1 =
-  withHG3DClass a1 $ \a1' -> 
-  touch'_ a1' >>= \res ->
-  return ()
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isPrepared -}
-isPrepared :: HG3DClass -> IO (Bool)
-isPrepared a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isPrepared'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isLoaded -}
-isLoaded :: HG3DClass -> IO (Bool)
-isLoaded a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isLoaded'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isLoading -}
-isLoading :: HG3DClass -> IO (Bool)
-isLoading a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isLoading'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function isBackgroundLoaded -}
-isBackgroundLoaded :: HG3DClass -> IO (Bool)
-isBackgroundLoaded a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBackgroundLoaded'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function setBackgroundLoaded -}
-setBackgroundLoaded :: HG3DClass -> Bool -> IO ()
-setBackgroundLoaded a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setBackgroundLoaded'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function escalateLoading -}
-escalateLoading :: HG3DClass -> IO ()
-escalateLoading a1 =
-  withHG3DClass a1 $ \a1' -> 
-  escalateLoading'_ a1' >>= \res ->
-  return ()
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getGroup -}
-getGroup :: HG3DClass -> IO (String)
-getGroup a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getGroup'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function changeGroupOwnership -}
-changeGroupOwnership :: HG3DClass -> String -> IO ()
-changeGroupOwnership a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  changeGroupOwnership'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getCreator -}
-getCreator :: HG3DClass -> IO (HG3DClass)
-getCreator a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCreator'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getOrigin -}
-getOrigin :: HG3DClass -> IO (String)
-getOrigin a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getOrigin'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-{- function getStateCount -}
-getStateCount :: HG3DClass -> IO (Int)
-getStateCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getStateCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_prepare"
-  prepare'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_load"
-  load'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_reload"
-  reload'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isReloadable"
-  isReloadable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isManuallyLoaded"
-  isManuallyLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_unload"
-  unload'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getSize"
-  getSize'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_touch"
-  touch'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isPrepared"
-  isPrepared'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isLoaded"
-  isLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isLoading"
-  isLoading'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_isBackgroundLoaded"
-  isBackgroundLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_setBackgroundLoaded"
-  setBackgroundLoaded'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_escalateLoading"
-  escalateLoading'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getGroup"
-  getGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_changeGroupOwnership"
-  changeGroupOwnership'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getCreator"
-  getCreator'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getOrigin"
-  getOrigin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_getStateCount"
-  getStateCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassResourceGroupManager.chs view
@@ -0,0 +1,220 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassResourceGroupManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassResourceGroupManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassResourceGroupManager.h"
+{- function ResourceGroupManager -}+{#fun ogre_rgmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~ResourceGroupManager -}+{#fun ogre_rgmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createResourceGroup -}+{#fun ogre_rgmgr_createResourceGroup as createResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function initialiseResourceGroup -}+{#fun ogre_rgmgr_initialiseResourceGroup as initialiseResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function initialiseAllResourceGroups -}+{#fun ogre_rgmgr_initialiseAllResourceGroups as initialiseAllResourceGroups +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function prepareResourceGroup -}+{#fun ogre_rgmgr_prepareResourceGroup as prepareResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}++{- function loadResourceGroup -}+{#fun ogre_rgmgr_loadResourceGroup as loadResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}++{- function unloadResourceGroup -}+{#fun ogre_rgmgr_unloadResourceGroup as unloadResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function unloadUnreferencedResourcesInGroup -}+{#fun ogre_rgmgr_unloadUnreferencedResourcesInGroup as unloadUnreferencedResourcesInGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function clearResourceGroup -}+{#fun ogre_rgmgr_clearResourceGroup as clearResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyResourceGroup -}+{#fun ogre_rgmgr_destroyResourceGroup as destroyResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function isResourceGroupInitialised -}+{#fun ogre_rgmgr_isResourceGroupInitialised as isResourceGroupInitialised +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isResourceGroupLoaded -}+{#fun ogre_rgmgr_isResourceGroupLoaded as isResourceGroupLoaded +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function resourceGroupExists -}+{#fun ogre_rgmgr_resourceGroupExists as resourceGroupExists +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function addResourceLocation -}+{#fun ogre_rgmgr_addResourceLocation as addResourceLocation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function removeResourceLocation -}+{#fun ogre_rgmgr_removeResourceLocation as removeResourceLocation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function resourceLocationExists -}+{#fun ogre_rgmgr_resourceLocationExists as resourceLocationExists +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function undeclareResource -}+{#fun ogre_rgmgr_undeclareResource as undeclareResource +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function resourceExists -}+{#fun ogre_rgmgr_resourceExists as resourceExists +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function resourceExistsInAnyGroup -}+{#fun ogre_rgmgr_resourceExistsInAnyGroup as resourceExistsInAnyGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function findGroupContainingResource -}+{#fun ogre_rgmgr_findGroupContainingResource as findGroupContainingResource +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function deleteResource -}+{#fun ogre_rgmgr_deleteResource as deleteResource +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function deleteMatchingResources -}+{#fun ogre_rgmgr_deleteMatchingResources as deleteMatchingResources +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function setWorldResourceGroupName -}+{#fun ogre_rgmgr_setWorldResourceGroupName as setWorldResourceGroupName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getWorldResourceGroupName -}+{#fun ogre_rgmgr_getWorldResourceGroupName as getWorldResourceGroupName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function linkWorldGeometryToResourceGroup -}+{#fun ogre_rgmgr_linkWorldGeometryToResourceGroup as linkWorldGeometryToResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function unlinkWorldGeometryFromResourceGroup -}+{#fun ogre_rgmgr_unlinkWorldGeometryFromResourceGroup as unlinkWorldGeometryFromResourceGroup +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function isResourceGroupInGlobalPool -}+{#fun ogre_rgmgr_isResourceGroupInGlobalPool as isResourceGroupInGlobalPool +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function shutdownAll -}+{#fun ogre_rgmgr_shutdownAll as shutdownAll +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_rgmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_rgmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassResourceGroupManager.hs 
@@ -1,458 +0,0 @@--- 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\\ClassResourceGroupManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassResourceGroupManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassResourceGroupManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function ResourceGroupManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function ~ResourceGroupManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function createResourceGroup -}
-createResourceGroup :: HG3DClass -> String -> Bool -> IO ()
-createResourceGroup a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  createResourceGroup'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function initialiseResourceGroup -}
-initialiseResourceGroup :: HG3DClass -> String -> IO ()
-initialiseResourceGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  initialiseResourceGroup'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function initialiseAllResourceGroups -}
-initialiseAllResourceGroups :: HG3DClass -> IO ()
-initialiseAllResourceGroups a1 =
-  withHG3DClass a1 $ \a1' -> 
-  initialiseAllResourceGroups'_ a1' >>= \res ->
-  return ()
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function prepareResourceGroup -}
-prepareResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO ()
-prepareResourceGroup a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  let {a4' = fromBool a4} in 
-  prepareResourceGroup'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function loadResourceGroup -}
-loadResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO ()
-loadResourceGroup a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  let {a4' = fromBool a4} in 
-  loadResourceGroup'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function unloadResourceGroup -}
-unloadResourceGroup :: HG3DClass -> String -> Bool -> IO ()
-unloadResourceGroup a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  unloadResourceGroup'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function unloadUnreferencedResourcesInGroup -}
-unloadUnreferencedResourcesInGroup :: HG3DClass -> String -> Bool -> IO ()
-unloadUnreferencedResourcesInGroup a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  unloadUnreferencedResourcesInGroup'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function clearResourceGroup -}
-clearResourceGroup :: HG3DClass -> String -> IO ()
-clearResourceGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  clearResourceGroup'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function destroyResourceGroup -}
-destroyResourceGroup :: HG3DClass -> String -> IO ()
-destroyResourceGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyResourceGroup'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function isResourceGroupInitialised -}
-isResourceGroupInitialised :: HG3DClass -> String -> IO (Bool)
-isResourceGroupInitialised a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isResourceGroupInitialised'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function isResourceGroupLoaded -}
-isResourceGroupLoaded :: HG3DClass -> String -> IO (Bool)
-isResourceGroupLoaded a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isResourceGroupLoaded'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function resourceGroupExists -}
-resourceGroupExists :: HG3DClass -> String -> IO (Bool)
-resourceGroupExists a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  resourceGroupExists'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function addResourceLocation -}
-addResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO ()
-addResourceLocation a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  let {a5' = fromBool a5} in 
-  addResourceLocation'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function removeResourceLocation -}
-removeResourceLocation :: HG3DClass -> String -> String -> IO ()
-removeResourceLocation a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  removeResourceLocation'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function resourceLocationExists -}
-resourceLocationExists :: HG3DClass -> String -> String -> IO (Bool)
-resourceLocationExists a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  resourceLocationExists'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function undeclareResource -}
-undeclareResource :: HG3DClass -> String -> String -> IO ()
-undeclareResource a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  undeclareResource'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function resourceExists -}
-resourceExists :: HG3DClass -> String -> String -> IO (Bool)
-resourceExists a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  resourceExists'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function resourceExistsInAnyGroup -}
-resourceExistsInAnyGroup :: HG3DClass -> String -> IO (Bool)
-resourceExistsInAnyGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  resourceExistsInAnyGroup'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function findGroupContainingResource -}
-findGroupContainingResource :: HG3DClass -> String -> IO (String)
-findGroupContainingResource a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloc64k $ \a3' -> 
-  findGroupContainingResource'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function deleteResource -}
-deleteResource :: HG3DClass -> String -> String -> String -> IO ()
-deleteResource a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  deleteResource'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function deleteMatchingResources -}
-deleteMatchingResources :: HG3DClass -> String -> String -> String -> IO ()
-deleteMatchingResources a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  deleteMatchingResources'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function setWorldResourceGroupName -}
-setWorldResourceGroupName :: HG3DClass -> String -> IO ()
-setWorldResourceGroupName a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setWorldResourceGroupName'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function getWorldResourceGroupName -}
-getWorldResourceGroupName :: HG3DClass -> IO (String)
-getWorldResourceGroupName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getWorldResourceGroupName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function linkWorldGeometryToResourceGroup -}
-linkWorldGeometryToResourceGroup :: HG3DClass -> String -> String -> HG3DClass -> IO ()
-linkWorldGeometryToResourceGroup a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withHG3DClass a4 $ \a4' -> 
-  linkWorldGeometryToResourceGroup'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function unlinkWorldGeometryFromResourceGroup -}
-unlinkWorldGeometryFromResourceGroup :: HG3DClass -> String -> IO ()
-unlinkWorldGeometryFromResourceGroup a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  unlinkWorldGeometryFromResourceGroup'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function isResourceGroupInGlobalPool -}
-isResourceGroupInGlobalPool :: HG3DClass -> String -> IO (Bool)
-isResourceGroupInGlobalPool a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  isResourceGroupInGlobalPool'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function shutdownAll -}
-shutdownAll :: HG3DClass -> IO ()
-shutdownAll a1 =
-  withHG3DClass a1 $ \a1' -> 
-  shutdownAll'_ a1' >>= \res ->
-  return ()
-{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_createResourceGroup"
-  createResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_initialiseResourceGroup"
-  initialiseResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_initialiseAllResourceGroups"
-  initialiseAllResourceGroups'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_prepareResourceGroup"
-  prepareResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_loadResourceGroup"
-  loadResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (CInt -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_unloadResourceGroup"
-  unloadResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_unloadUnreferencedResourcesInGroup"
-  unloadUnreferencedResourcesInGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_clearResourceGroup"
-  clearResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_destroyResourceGroup"
-  destroyResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_isResourceGroupInitialised"
-  isResourceGroupInitialised'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_isResourceGroupLoaded"
-  isResourceGroupLoaded'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_resourceGroupExists"
-  resourceGroupExists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_addResourceLocation"
-  addResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_removeResourceLocation"
-  removeResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_resourceLocationExists"
-  resourceLocationExists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_undeclareResource"
-  undeclareResource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_resourceExists"
-  resourceExists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_resourceExistsInAnyGroup"
-  resourceExistsInAnyGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_findGroupContainingResource"
-  findGroupContainingResource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_deleteResource"
-  deleteResource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_deleteMatchingResources"
-  deleteMatchingResources'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_setWorldResourceGroupName"
-  setWorldResourceGroupName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_getWorldResourceGroupName"
-  getWorldResourceGroupName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_linkWorldGeometryToResourceGroup"
-  linkWorldGeometryToResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_unlinkWorldGeometryFromResourceGroup"
-  unlinkWorldGeometryFromResourceGroup'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_isResourceGroupInGlobalPool"
-  isResourceGroupInGlobalPool'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_shutdownAll"
-  shutdownAll'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassResourceManager.chs view
@@ -0,0 +1,136 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassResourceManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassResourceManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassResourceManager.h"
+{- function ~ResourceManager -}+{#fun ogre_rsrcmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setMemoryBudget -}+{#fun ogre_rsrcmgr_setMemoryBudget as setMemoryBudget +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getMemoryBudget -}+{#fun ogre_rsrcmgr_getMemoryBudget as getMemoryBudget +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getMemoryUsage -}+{#fun ogre_rsrcmgr_getMemoryUsage as getMemoryUsage +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function unload -}+{#fun ogre_rsrcmgr_unload as unload +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function unloadAll -}+{#fun ogre_rsrcmgr_unloadAll as unloadAll +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function reloadAll -}+{#fun ogre_rsrcmgr_reloadAll as reloadAll +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function unloadUnreferencedResources -}+{#fun ogre_rsrcmgr_unloadUnreferencedResources as unloadUnreferencedResources +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function reloadUnreferencedResources -}+{#fun ogre_rsrcmgr_reloadUnreferencedResources as reloadUnreferencedResources +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function remove2 -}+{#fun ogre_rsrcmgr_remove2 as remove2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeAll -}+{#fun ogre_rsrcmgr_removeAll as removeAll +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeUnreferencedResources -}+{#fun ogre_rsrcmgr_removeUnreferencedResources as removeUnreferencedResources +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function resourceExists -}+{#fun ogre_rsrcmgr_resourceExists as resourceExists +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getLoadingOrder -}+{#fun ogre_rsrcmgr_getLoadingOrder as getLoadingOrder +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getResourceType -}+{#fun ogre_rsrcmgr_getResourceType as getResourceType +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function setVerbose -}+{#fun ogre_rsrcmgr_setVerbose as setVerbose +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getVerbose -}+{#fun ogre_rsrcmgr_getVerbose as getVerbose +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyResourcePool2 -}+{#fun ogre_rsrcmgr_destroyResourcePool2 as destroyResourcePool2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllResourcePools -}+{#fun ogre_rsrcmgr_destroyAllResourcePools as destroyAllResourcePools +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassResourceManager.hs 
@@ -1,284 +0,0 @@--- 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\\ClassResourceManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassResourceManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassResourceManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function ~ResourceManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function setMemoryBudget -}
-setMemoryBudget :: HG3DClass -> Int -> IO ()
-setMemoryBudget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setMemoryBudget'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function getMemoryBudget -}
-getMemoryBudget :: HG3DClass -> IO (Int)
-getMemoryBudget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMemoryBudget'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function getMemoryUsage -}
-getMemoryUsage :: HG3DClass -> IO (Int)
-getMemoryUsage a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMemoryUsage'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function unload -}
-unload :: HG3DClass -> String -> IO ()
-unload a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  unload'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function unloadAll -}
-unloadAll :: HG3DClass -> Bool -> IO ()
-unloadAll a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  unloadAll'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function reloadAll -}
-reloadAll :: HG3DClass -> Bool -> IO ()
-reloadAll a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  reloadAll'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function unloadUnreferencedResources -}
-unloadUnreferencedResources :: HG3DClass -> Bool -> IO ()
-unloadUnreferencedResources a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  unloadUnreferencedResources'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function reloadUnreferencedResources -}
-reloadUnreferencedResources :: HG3DClass -> Bool -> IO ()
-reloadUnreferencedResources a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  reloadUnreferencedResources'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function remove2 -}
-remove2 :: HG3DClass -> String -> IO ()
-remove2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  remove2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function removeAll -}
-removeAll :: HG3DClass -> IO ()
-removeAll a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAll'_ a1' >>= \res ->
-  return ()
-{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function removeUnreferencedResources -}
-removeUnreferencedResources :: HG3DClass -> Bool -> IO ()
-removeUnreferencedResources a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  removeUnreferencedResources'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function resourceExists -}
-resourceExists :: HG3DClass -> String -> IO (Bool)
-resourceExists a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  resourceExists'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function getLoadingOrder -}
-getLoadingOrder :: HG3DClass -> IO (Float)
-getLoadingOrder a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLoadingOrder'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function getResourceType -}
-getResourceType :: HG3DClass -> IO (String)
-getResourceType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getResourceType'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function setVerbose -}
-setVerbose :: HG3DClass -> Bool -> IO ()
-setVerbose a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setVerbose'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function getVerbose -}
-getVerbose :: HG3DClass -> IO (Bool)
-getVerbose a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVerbose'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function destroyResourcePool2 -}
-destroyResourcePool2 :: HG3DClass -> String -> IO ()
-destroyResourcePool2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyResourcePool2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-{- function destroyAllResourcePools -}
-destroyAllResourcePools :: HG3DClass -> IO ()
-destroyAllResourcePools a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllResourcePools'_ a1' >>= \res ->
-  return ()
-{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_setMemoryBudget"
-  setMemoryBudget'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_getMemoryBudget"
-  getMemoryBudget'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_getMemoryUsage"
-  getMemoryUsage'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_unload"
-  unload'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_unloadAll"
-  unloadAll'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_reloadAll"
-  reloadAll'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_unloadUnreferencedResources"
-  unloadUnreferencedResources'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_reloadUnreferencedResources"
-  reloadUnreferencedResources'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_remove2"
-  remove2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_removeAll"
-  removeAll'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_removeUnreferencedResources"
-  removeUnreferencedResources'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_resourceExists"
-  resourceExists'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_getLoadingOrder"
-  getLoadingOrder'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_getResourceType"
-  getResourceType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_setVerbose"
-  setVerbose'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_getVerbose"
-  getVerbose'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_destroyResourcePool2"
-  destroyResourcePool2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_destroyAllResourcePools"
-  destroyAllResourcePools'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassRoot.chs view
@@ -0,0 +1,338 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassRoot.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassRoot where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+
+#include "ClassRoot.h"
+{- function Root -}+{#fun ogre_rt_construct as new +{ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Root -}+{#fun ogre_rt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function saveConfig -}+{#fun ogre_rt_saveConfig as saveConfig +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function restoreConfig -}+{#fun ogre_rt_restoreConfig as restoreConfig +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function showConfigDialog -}+{#fun ogre_rt_showConfigDialog as showConfigDialog +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function addRenderSystem -}+{#fun ogre_rt_addRenderSystem as addRenderSystem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getRenderSystemByName -}+{#fun ogre_rt_getRenderSystemByName as getRenderSystemByName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setRenderSystem -}+{#fun ogre_rt_setRenderSystem as setRenderSystem +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getRenderSystem -}+{#fun ogre_rt_getRenderSystem as getRenderSystem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function initialise -}+{#fun ogre_rt_initialise as initialise +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function isInitialised -}+{#fun ogre_rt_isInitialised as isInitialised +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getRemoveRenderQueueStructuresOnClear -}+{#fun ogre_rt_getRemoveRenderQueueStructuresOnClear as getRemoveRenderQueueStructuresOnClear +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setRemoveRenderQueueStructuresOnClear -}+{#fun ogre_rt_setRemoveRenderQueueStructuresOnClear as setRemoveRenderQueueStructuresOnClear +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function addSceneManagerFactory -}+{#fun ogre_rt_addSceneManagerFactory as addSceneManagerFactory +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function removeSceneManagerFactory -}+{#fun ogre_rt_removeSceneManagerFactory as removeSceneManagerFactory +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createSceneManager -}+{#fun ogre_rt_createSceneManager as createSceneManager +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroySceneManager -}+{#fun ogre_rt_destroySceneManager as destroySceneManager +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSceneManager -}+{#fun ogre_rt_getSceneManager as getSceneManager +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasSceneManager -}+{#fun ogre_rt_hasSceneManager as hasSceneManager +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTextureManager -}+{#fun ogre_rt_getTextureManager as getTextureManager +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getMeshManager -}+{#fun ogre_rt_getMeshManager as getMeshManager +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getErrorDescription -}+{#fun ogre_rt_getErrorDescription as getErrorDescription +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function queueEndRendering -}+{#fun ogre_rt_queueEndRendering as queueEndRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function startRendering -}+{#fun ogre_rt_startRendering as startRendering +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function renderOneFrame -}+{#fun ogre_rt_renderOneFrame as renderOneFrame +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function renderOneFrame2 -}+{#fun ogre_rt_renderOneFrame2 as renderOneFrame2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function shutdown -}+{#fun ogre_rt_shutdown as shutdown +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function addResourceLocation -}+{#fun ogre_rt_addResourceLocation as addResourceLocation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ fromBool `Bool' } -> `()'  #}++{- function removeResourceLocation -}+{#fun ogre_rt_removeResourceLocation as removeResourceLocation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function convertColourValue -}+{#fun ogre_rt_convertColourValue as convertColourValue +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getAutoCreatedWindow -}+{#fun ogre_rt_getAutoCreatedWindow as getAutoCreatedWindow +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachRenderTarget -}+{#fun ogre_rt_detachRenderTarget as detachRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachRenderTarget2 -}+{#fun ogre_rt_detachRenderTarget2 as detachRenderTarget2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyRenderTarget -}+{#fun ogre_rt_destroyRenderTarget as destroyRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyRenderTarget2 -}+{#fun ogre_rt_destroyRenderTarget2 as destroyRenderTarget2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getRenderTarget -}+{#fun ogre_rt_getRenderTarget as getRenderTarget +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function loadPlugin -}+{#fun ogre_rt_loadPlugin as loadPlugin +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function unloadPlugin -}+{#fun ogre_rt_unloadPlugin as unloadPlugin +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyRenderQueueInvocationSequence -}+{#fun ogre_rt_destroyRenderQueueInvocationSequence as destroyRenderQueueInvocationSequence +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllRenderQueueInvocationSequences -}+{#fun ogre_rt_destroyAllRenderQueueInvocationSequences as destroyAllRenderQueueInvocationSequences +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearEventTimes -}+{#fun ogre_rt_clearEventTimes as clearEventTimes +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setFrameSmoothingPeriod -}+{#fun ogre_rt_setFrameSmoothingPeriod as setFrameSmoothingPeriod +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getFrameSmoothingPeriod -}+{#fun ogre_rt_getFrameSmoothingPeriod as getFrameSmoothingPeriod +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function addMovableObjectFactory -}+{#fun ogre_rt_addMovableObjectFactory as addMovableObjectFactory +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function removeMovableObjectFactory -}+{#fun ogre_rt_removeMovableObjectFactory as removeMovableObjectFactory +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasMovableObjectFactory -}+{#fun ogre_rt_hasMovableObjectFactory as hasMovableObjectFactory +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getMovableObjectFactory -}+{#fun ogre_rt_getMovableObjectFactory as getMovableObjectFactory +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getDisplayMonitorCount -}+{#fun ogre_rt_getDisplayMonitorCount as getDisplayMonitorCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setBlendIndicesGpuRedundant -}+{#fun ogre_rt_setBlendIndicesGpuRedundant as setBlendIndicesGpuRedundant +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isBlendIndicesGpuRedundant -}+{#fun ogre_rt_isBlendIndicesGpuRedundant as isBlendIndicesGpuRedundant +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setBlendWeightsGpuRedundant -}+{#fun ogre_rt_setBlendWeightsGpuRedundant as setBlendWeightsGpuRedundant +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isBlendWeightsGpuRedundant -}+{#fun ogre_rt_isBlendWeightsGpuRedundant as isBlendWeightsGpuRedundant +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setDefaultMinPixelSize -}+{#fun ogre_rt_setDefaultMinPixelSize as setDefaultMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDefaultMinPixelSize -}+{#fun ogre_rt_getDefaultMinPixelSize as getDefaultMinPixelSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getSingleton -}+{#fun ogre_rt_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_rt_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassRoot.hs 
@@ -1,770 +0,0 @@--- 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\\ClassRoot.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassRoot.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassRoot where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function Root -}
-new :: String -> String -> String -> IO (HG3DClass)
-new a1 a2 a3 =
-  withCString a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  new'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function ~Root -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function saveConfig -}
-saveConfig :: HG3DClass -> IO ()
-saveConfig a1 =
-  withHG3DClass a1 $ \a1' -> 
-  saveConfig'_ a1' >>= \res ->
-  return ()
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function restoreConfig -}
-restoreConfig :: HG3DClass -> IO (Bool)
-restoreConfig a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  restoreConfig'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function showConfigDialog -}
-showConfigDialog :: HG3DClass -> IO (Bool)
-showConfigDialog a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  showConfigDialog'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function addRenderSystem -}
-addRenderSystem :: HG3DClass -> HG3DClass -> IO ()
-addRenderSystem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  addRenderSystem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getRenderSystemByName -}
-getRenderSystemByName :: HG3DClass -> String -> IO (HG3DClass)
-getRenderSystemByName a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getRenderSystemByName'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setRenderSystem -}
-setRenderSystem :: HG3DClass -> HG3DClass -> IO ()
-setRenderSystem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setRenderSystem'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getRenderSystem -}
-getRenderSystem :: HG3DClass -> IO (HG3DClass)
-getRenderSystem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRenderSystem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function initialise -}
-initialise :: HG3DClass -> Bool -> String -> String -> IO (HG3DClass)
-initialise a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  initialise'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function isInitialised -}
-isInitialised :: HG3DClass -> IO (Bool)
-isInitialised a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isInitialised'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getRemoveRenderQueueStructuresOnClear -}
-getRemoveRenderQueueStructuresOnClear :: HG3DClass -> IO (Bool)
-getRemoveRenderQueueStructuresOnClear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setRemoveRenderQueueStructuresOnClear -}
-setRemoveRenderQueueStructuresOnClear :: HG3DClass -> Bool -> IO ()
-setRemoveRenderQueueStructuresOnClear a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function addSceneManagerFactory -}
-addSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
-addSceneManagerFactory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  addSceneManagerFactory'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function removeSceneManagerFactory -}
-removeSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
-removeSceneManagerFactory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeSceneManagerFactory'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function createSceneManager -}
-createSceneManager :: HG3DClass -> String -> String -> IO (HG3DClass)
-createSceneManager a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createSceneManager'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function destroySceneManager -}
-destroySceneManager :: HG3DClass -> HG3DClass -> IO ()
-destroySceneManager a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroySceneManager'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getSceneManager -}
-getSceneManager :: HG3DClass -> String -> IO (HG3DClass)
-getSceneManager a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSceneManager'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function hasSceneManager -}
-hasSceneManager :: HG3DClass -> String -> IO (Bool)
-hasSceneManager a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasSceneManager'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getTextureManager -}
-getTextureManager :: HG3DClass -> IO (HG3DClass)
-getTextureManager a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTextureManager'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getMeshManager -}
-getMeshManager :: HG3DClass -> IO (HG3DClass)
-getMeshManager a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getMeshManager'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getErrorDescription -}
-getErrorDescription :: HG3DClass -> Int -> IO (String)
-getErrorDescription a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloc64k $ \a3' -> 
-  getErrorDescription'_ a1' a2' a3' >>= \res ->
-  peekCString  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function queueEndRendering -}
-queueEndRendering :: HG3DClass -> IO ()
-queueEndRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  queueEndRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function startRendering -}
-startRendering :: HG3DClass -> IO ()
-startRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  startRendering'_ a1' >>= \res ->
-  return ()
-{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function renderOneFrame -}
-renderOneFrame :: HG3DClass -> IO (Bool)
-renderOneFrame a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  renderOneFrame'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function renderOneFrame2 -}
-renderOneFrame2 :: HG3DClass -> Float -> IO (Bool)
-renderOneFrame2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  alloca $ \a3' -> 
-  renderOneFrame2'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function shutdown -}
-shutdown :: HG3DClass -> IO ()
-shutdown a1 =
-  withHG3DClass a1 $ \a1' -> 
-  shutdown'_ a1' >>= \res ->
-  return ()
-{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function addResourceLocation -}
-addResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO ()
-addResourceLocation a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  let {a5' = fromBool a5} in 
-  addResourceLocation'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function removeResourceLocation -}
-removeResourceLocation :: HG3DClass -> String -> String -> IO ()
-removeResourceLocation a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  removeResourceLocation'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function convertColourValue -}
-convertColourValue :: HG3DClass -> Colour -> IO (Int)
-convertColourValue a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  convertColourValue'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getAutoCreatedWindow -}
-getAutoCreatedWindow :: HG3DClass -> IO (HG3DClass)
-getAutoCreatedWindow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoCreatedWindow'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function detachRenderTarget -}
-detachRenderTarget :: HG3DClass -> HG3DClass -> IO (HG3DClass)
-detachRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  detachRenderTarget'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function detachRenderTarget2 -}
-detachRenderTarget2 :: HG3DClass -> String -> IO (HG3DClass)
-detachRenderTarget2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  detachRenderTarget2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function destroyRenderTarget -}
-destroyRenderTarget :: HG3DClass -> HG3DClass -> IO ()
-destroyRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyRenderTarget'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function destroyRenderTarget2 -}
-destroyRenderTarget2 :: HG3DClass -> String -> IO ()
-destroyRenderTarget2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRenderTarget2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getRenderTarget -}
-getRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
-getRenderTarget a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getRenderTarget'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function loadPlugin -}
-loadPlugin :: HG3DClass -> String -> IO ()
-loadPlugin a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  loadPlugin'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function unloadPlugin -}
-unloadPlugin :: HG3DClass -> String -> IO ()
-unloadPlugin a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  unloadPlugin'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function destroyRenderQueueInvocationSequence -}
-destroyRenderQueueInvocationSequence :: HG3DClass -> String -> IO ()
-destroyRenderQueueInvocationSequence a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRenderQueueInvocationSequence'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function destroyAllRenderQueueInvocationSequences -}
-destroyAllRenderQueueInvocationSequences :: HG3DClass -> IO ()
-destroyAllRenderQueueInvocationSequences a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllRenderQueueInvocationSequences'_ a1' >>= \res ->
-  return ()
-{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function clearEventTimes -}
-clearEventTimes :: HG3DClass -> IO ()
-clearEventTimes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearEventTimes'_ a1' >>= \res ->
-  return ()
-{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setFrameSmoothingPeriod -}
-setFrameSmoothingPeriod :: HG3DClass -> Float -> IO ()
-setFrameSmoothingPeriod a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setFrameSmoothingPeriod'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getFrameSmoothingPeriod -}
-getFrameSmoothingPeriod :: HG3DClass -> IO (Float)
-getFrameSmoothingPeriod a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFrameSmoothingPeriod'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function addMovableObjectFactory -}
-addMovableObjectFactory :: HG3DClass -> HG3DClass -> Bool -> IO ()
-addMovableObjectFactory a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = fromBool a3} in 
-  addMovableObjectFactory'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function removeMovableObjectFactory -}
-removeMovableObjectFactory :: HG3DClass -> HG3DClass -> IO ()
-removeMovableObjectFactory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  removeMovableObjectFactory'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function hasMovableObjectFactory -}
-hasMovableObjectFactory :: HG3DClass -> String -> IO (Bool)
-hasMovableObjectFactory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasMovableObjectFactory'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 291 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getMovableObjectFactory -}
-getMovableObjectFactory :: HG3DClass -> String -> IO (HG3DClass)
-getMovableObjectFactory a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getMovableObjectFactory'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getDisplayMonitorCount -}
-getDisplayMonitorCount :: HG3DClass -> IO (Int)
-getDisplayMonitorCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDisplayMonitorCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setBlendIndicesGpuRedundant -}
-setBlendIndicesGpuRedundant :: HG3DClass -> Bool -> IO ()
-setBlendIndicesGpuRedundant a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setBlendIndicesGpuRedundant'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 307 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function isBlendIndicesGpuRedundant -}
-isBlendIndicesGpuRedundant :: HG3DClass -> IO (Bool)
-isBlendIndicesGpuRedundant a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBlendIndicesGpuRedundant'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setBlendWeightsGpuRedundant -}
-setBlendWeightsGpuRedundant :: HG3DClass -> Bool -> IO ()
-setBlendWeightsGpuRedundant a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setBlendWeightsGpuRedundant'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 317 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function isBlendWeightsGpuRedundant -}
-isBlendWeightsGpuRedundant :: HG3DClass -> IO (Bool)
-isBlendWeightsGpuRedundant a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isBlendWeightsGpuRedundant'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 322 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function setDefaultMinPixelSize -}
-setDefaultMinPixelSize :: HG3DClass -> Float -> IO ()
-setDefaultMinPixelSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDefaultMinPixelSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 327 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getDefaultMinPixelSize -}
-getDefaultMinPixelSize :: HG3DClass -> IO (Float)
-getDefaultMinPixelSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultMinPixelSize'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 332 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 340 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_construct"
-  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_saveConfig"
-  saveConfig'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_restoreConfig"
-  restoreConfig'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_showConfigDialog"
-  showConfigDialog'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addRenderSystem"
-  addRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderSystemByName"
-  getRenderSystemByName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setRenderSystem"
-  setRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderSystem"
-  getRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_initialise"
-  initialise'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isInitialised"
-  isInitialised'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRemoveRenderQueueStructuresOnClear"
-  getRemoveRenderQueueStructuresOnClear'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setRemoveRenderQueueStructuresOnClear"
-  setRemoveRenderQueueStructuresOnClear'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addSceneManagerFactory"
-  addSceneManagerFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeSceneManagerFactory"
-  removeSceneManagerFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_createSceneManager"
-  createSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroySceneManager"
-  destroySceneManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSceneManager"
-  getSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_hasSceneManager"
-  hasSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getTextureManager"
-  getTextureManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getMeshManager"
-  getMeshManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getErrorDescription"
-  getErrorDescription'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_queueEndRendering"
-  queueEndRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_startRendering"
-  startRendering'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_renderOneFrame"
-  renderOneFrame'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_renderOneFrame2"
-  renderOneFrame2'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_shutdown"
-  shutdown'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addResourceLocation"
-  addResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeResourceLocation"
-  removeResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_convertColourValue"
-  convertColourValue'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((Ptr CUInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getAutoCreatedWindow"
-  getAutoCreatedWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_detachRenderTarget"
-  detachRenderTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_detachRenderTarget2"
-  detachRenderTarget2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderTarget"
-  destroyRenderTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderTarget2"
-  destroyRenderTarget2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderTarget"
-  getRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_loadPlugin"
-  loadPlugin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_unloadPlugin"
-  unloadPlugin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderQueueInvocationSequence"
-  destroyRenderQueueInvocationSequence'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyAllRenderQueueInvocationSequences"
-  destroyAllRenderQueueInvocationSequences'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_clearEventTimes"
-  clearEventTimes'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setFrameSmoothingPeriod"
-  setFrameSmoothingPeriod'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getFrameSmoothingPeriod"
-  getFrameSmoothingPeriod'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addMovableObjectFactory"
-  addMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeMovableObjectFactory"
-  removeMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_hasMovableObjectFactory"
-  hasMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getMovableObjectFactory"
-  getMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getDisplayMonitorCount"
-  getDisplayMonitorCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setBlendIndicesGpuRedundant"
-  setBlendIndicesGpuRedundant'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isBlendIndicesGpuRedundant"
-  isBlendIndicesGpuRedundant'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setBlendWeightsGpuRedundant"
-  setBlendWeightsGpuRedundant'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isBlendWeightsGpuRedundant"
-  isBlendWeightsGpuRedundant'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setDefaultMinPixelSize"
-  setDefaultMinPixelSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getDefaultMinPixelSize"
-  getDefaultMinPixelSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassSceneManager.chs view
@@ -0,0 +1,946 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassSceneManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassSceneManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructSharedPtr #}+{# import HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+{# import HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode #}+{# import HGamer3D.Bindings.Ogre.EnumLightType #}+
+#include "ClassSceneManager.h"
+{- function ~SceneManager -}+{#fun ogre_scmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getName -}+{#fun ogre_scmgr_getName as getName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getTypeName -}+{#fun ogre_scmgr_getTypeName as getTypeName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function createCamera -}+{#fun ogre_scmgr_createCamera as createCamera +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getCamera -}+{#fun ogre_scmgr_getCamera as getCamera +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasCamera -}+{#fun ogre_scmgr_hasCamera as hasCamera +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyCamera -}+{#fun ogre_scmgr_destroyCamera as destroyCamera +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyCamera2 -}+{#fun ogre_scmgr_destroyCamera2 as destroyCamera2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllCameras -}+{#fun ogre_scmgr_destroyAllCameras as destroyAllCameras +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createLight -}+{#fun ogre_scmgr_createLight as createLight +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createLight2 -}+{#fun ogre_scmgr_createLight2 as createLight2 +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getLight -}+{#fun ogre_scmgr_getLight as getLight +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasLight -}+{#fun ogre_scmgr_hasLight as hasLight +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyLight -}+{#fun ogre_scmgr_destroyLight as destroyLight +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyLight2 -}+{#fun ogre_scmgr_destroyLight2 as destroyLight2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllLights -}+{#fun ogre_scmgr_destroyAllLights as destroyAllLights +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createSceneNode -}+{#fun ogre_scmgr_createSceneNode as createSceneNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createSceneNode2 -}+{#fun ogre_scmgr_createSceneNode2 as createSceneNode2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroySceneNode -}+{#fun ogre_scmgr_destroySceneNode as destroySceneNode +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroySceneNode2 -}+{#fun ogre_scmgr_destroySceneNode2 as destroySceneNode2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getRootSceneNode -}+{#fun ogre_scmgr_getRootSceneNode as getRootSceneNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSceneNode -}+{#fun ogre_scmgr_getSceneNode as getSceneNode +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasSceneNode -}+{#fun ogre_scmgr_hasSceneNode as hasSceneNode +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function createEntity -}+{#fun ogre_scmgr_createEntity as createEntity +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createEntity2 -}+{#fun ogre_scmgr_createEntity2 as createEntity2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withSharedPtr* `SharedPtr' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createEntity3 -}+{#fun ogre_scmgr_createEntity3 as createEntity3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createEntity4 -}+{#fun ogre_scmgr_createEntity4 as createEntity4 +{ withHG3DClass* `HG3DClass' ,+ withSharedPtr* `SharedPtr' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createEntity5 -}+{#fun ogre_scmgr_createEntity5 as createEntity5 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ cIntFromEnum `EnumSceneManagerPrefabType' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createEntity6 -}+{#fun ogre_scmgr_createEntity6 as createEntity6 +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSceneManagerPrefabType' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getEntity -}+{#fun ogre_scmgr_getEntity as getEntity +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasEntity -}+{#fun ogre_scmgr_hasEntity as hasEntity +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyEntity -}+{#fun ogre_scmgr_destroyEntity as destroyEntity +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyEntity2 -}+{#fun ogre_scmgr_destroyEntity2 as destroyEntity2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllEntities -}+{#fun ogre_scmgr_destroyAllEntities as destroyAllEntities +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createManualObject -}+{#fun ogre_scmgr_createManualObject as createManualObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createManualObject2 -}+{#fun ogre_scmgr_createManualObject2 as createManualObject2 +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getManualObject -}+{#fun ogre_scmgr_getManualObject as getManualObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasManualObject -}+{#fun ogre_scmgr_hasManualObject as hasManualObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyManualObject -}+{#fun ogre_scmgr_destroyManualObject as destroyManualObject +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyManualObject2 -}+{#fun ogre_scmgr_destroyManualObject2 as destroyManualObject2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllManualObjects -}+{#fun ogre_scmgr_destroyAllManualObjects as destroyAllManualObjects +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createBillboardChain -}+{#fun ogre_scmgr_createBillboardChain as createBillboardChain +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBillboardChain2 -}+{#fun ogre_scmgr_createBillboardChain2 as createBillboardChain2 +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getBillboardChain -}+{#fun ogre_scmgr_getBillboardChain as getBillboardChain +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasBillboardChain -}+{#fun ogre_scmgr_hasBillboardChain as hasBillboardChain +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyBillboardChain -}+{#fun ogre_scmgr_destroyBillboardChain as destroyBillboardChain +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyBillboardChain2 -}+{#fun ogre_scmgr_destroyBillboardChain2 as destroyBillboardChain2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllBillboardChains -}+{#fun ogre_scmgr_destroyAllBillboardChains as destroyAllBillboardChains +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasRibbonTrail -}+{#fun ogre_scmgr_hasRibbonTrail as hasRibbonTrail +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyRibbonTrail2 -}+{#fun ogre_scmgr_destroyRibbonTrail2 as destroyRibbonTrail2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllRibbonTrails -}+{#fun ogre_scmgr_destroyAllRibbonTrails as destroyAllRibbonTrails +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasParticleSystem -}+{#fun ogre_scmgr_hasParticleSystem as hasParticleSystem +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyParticleSystem2 -}+{#fun ogre_scmgr_destroyParticleSystem2 as destroyParticleSystem2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllParticleSystems -}+{#fun ogre_scmgr_destroyAllParticleSystems as destroyAllParticleSystems +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearScene -}+{#fun ogre_scmgr_clearScene as clearScene +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setAmbientLight -}+{#fun ogre_scmgr_setAmbientLight as setAmbientLight +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getAmbientLight -}+{#fun ogre_scmgr_getAmbientLight as getAmbientLight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function prepareWorldGeometry -}+{#fun ogre_scmgr_prepareWorldGeometry as prepareWorldGeometry +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setWorldGeometry -}+{#fun ogre_scmgr_setWorldGeometry as setWorldGeometry +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function estimateWorldGeometry -}+{#fun ogre_scmgr_estimateWorldGeometry as estimateWorldGeometry +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function hasOption -}+{#fun ogre_scmgr_hasOption as hasOption +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSkyPlaneEnabled -}+{#fun ogre_scmgr_setSkyPlaneEnabled as setSkyPlaneEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isSkyPlaneEnabled -}+{#fun ogre_scmgr_isSkyPlaneEnabled as isSkyPlaneEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSkyPlaneNode -}+{#fun ogre_scmgr_getSkyPlaneNode as getSkyPlaneNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setSkyBox -}+{#fun ogre_scmgr_setSkyBox as setSkyBox +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withCString* `String' ,+ realToFrac `Float' ,+ fromBool `Bool' ,+ withQuaternion* `Quaternion' ,+ withCString* `String' } -> `()'  #}++{- function setSkyBoxEnabled -}+{#fun ogre_scmgr_setSkyBoxEnabled as setSkyBoxEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isSkyBoxEnabled -}+{#fun ogre_scmgr_isSkyBoxEnabled as isSkyBoxEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSkyBoxNode -}+{#fun ogre_scmgr_getSkyBoxNode as getSkyBoxNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setSkyDome -}+{#fun ogre_scmgr_setSkyDome as setSkyDome +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withCString* `String' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromBool `Bool' ,+ withQuaternion* `Quaternion' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ fromIntegral `Int' ,+ withCString* `String' } -> `()'  #}++{- function setSkyDomeEnabled -}+{#fun ogre_scmgr_setSkyDomeEnabled as setSkyDomeEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isSkyDomeEnabled -}+{#fun ogre_scmgr_isSkyDomeEnabled as isSkyDomeEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getSkyDomeNode -}+{#fun ogre_scmgr_getSkyDomeNode as getSkyDomeNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getFogColour -}+{#fun ogre_scmgr_getFogColour as getFogColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function getFogStart -}+{#fun ogre_scmgr_getFogStart as getFogStart +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getFogEnd -}+{#fun ogre_scmgr_getFogEnd as getFogEnd +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getFogDensity -}+{#fun ogre_scmgr_getFogDensity as getFogDensity +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function createBillboardSet -}+{#fun ogre_scmgr_createBillboardSet as createBillboardSet +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBillboardSet2 -}+{#fun ogre_scmgr_createBillboardSet2 as createBillboardSet2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getBillboardSet -}+{#fun ogre_scmgr_getBillboardSet as getBillboardSet +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasBillboardSet -}+{#fun ogre_scmgr_hasBillboardSet as hasBillboardSet +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyBillboardSet -}+{#fun ogre_scmgr_destroyBillboardSet as destroyBillboardSet +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyBillboardSet2 -}+{#fun ogre_scmgr_destroyBillboardSet2 as destroyBillboardSet2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllBillboardSets -}+{#fun ogre_scmgr_destroyAllBillboardSets as destroyAllBillboardSets +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDisplaySceneNodes -}+{#fun ogre_scmgr_setDisplaySceneNodes as setDisplaySceneNodes +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getDisplaySceneNodes -}+{#fun ogre_scmgr_getDisplaySceneNodes as getDisplaySceneNodes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function createAnimation -}+{#fun ogre_scmgr_createAnimation as createAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimation -}+{#fun ogre_scmgr_getAnimation as getAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimation -}+{#fun ogre_scmgr_hasAnimation as hasAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyAnimation -}+{#fun ogre_scmgr_destroyAnimation as destroyAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllAnimations -}+{#fun ogre_scmgr_destroyAllAnimations as destroyAllAnimations +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createAnimationState -}+{#fun ogre_scmgr_createAnimationState as createAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimationState -}+{#fun ogre_scmgr_getAnimationState as getAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimationState -}+{#fun ogre_scmgr_hasAnimationState as hasAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyAnimationState -}+{#fun ogre_scmgr_destroyAnimationState as destroyAnimationState +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllAnimationStates -}+{#fun ogre_scmgr_destroyAllAnimationStates as destroyAllAnimationStates +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clearSpecialCaseRenderQueues -}+{#fun ogre_scmgr_clearSpecialCaseRenderQueues as clearSpecialCaseRenderQueues +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setSpecialCaseRenderQueueMode -}+{#fun ogre_scmgr_setSpecialCaseRenderQueueMode as setSpecialCaseRenderQueueMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSceneManagerSpecialCaseRenderQueueMode' } -> `()'  #}++{- function getSpecialCaseRenderQueueMode -}+{#fun ogre_scmgr_getSpecialCaseRenderQueueMode as getSpecialCaseRenderQueueMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSceneManagerSpecialCaseRenderQueueMode' peekEnumUtil*} -> `()'  #}++{- function showBoundingBoxes -}+{#fun ogre_scmgr_showBoundingBoxes as showBoundingBoxes +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShowBoundingBoxes -}+{#fun ogre_scmgr_getShowBoundingBoxes as getShowBoundingBoxes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShowDebugShadows -}+{#fun ogre_scmgr_setShowDebugShadows as setShowDebugShadows +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShowDebugShadows -}+{#fun ogre_scmgr_getShowDebugShadows as getShowDebugShadows +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShadowColour -}+{#fun ogre_scmgr_setShadowColour as setShadowColour +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getShadowColour -}+{#fun ogre_scmgr_getShadowColour as getShadowColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function setShadowDirectionalLightExtrusionDistance -}+{#fun ogre_scmgr_setShadowDirectionalLightExtrusionDistance as setShadowDirectionalLightExtrusionDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getShadowDirectionalLightExtrusionDistance -}+{#fun ogre_scmgr_getShadowDirectionalLightExtrusionDistance as getShadowDirectionalLightExtrusionDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setShadowFarDistance -}+{#fun ogre_scmgr_setShadowFarDistance as setShadowFarDistance +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getShadowFarDistance -}+{#fun ogre_scmgr_getShadowFarDistance as getShadowFarDistance +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getShadowFarDistanceSquared -}+{#fun ogre_scmgr_getShadowFarDistanceSquared as getShadowFarDistanceSquared +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setShadowIndexBufferSize -}+{#fun ogre_scmgr_setShadowIndexBufferSize as setShadowIndexBufferSize +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getShadowIndexBufferSize -}+{#fun ogre_scmgr_getShadowIndexBufferSize as getShadowIndexBufferSize +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setShadowTextureSize -}+{#fun ogre_scmgr_setShadowTextureSize as setShadowTextureSize +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setShadowTextureFSAA -}+{#fun ogre_scmgr_setShadowTextureFSAA as setShadowTextureFSAA +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function setShadowTextureCount -}+{#fun ogre_scmgr_setShadowTextureCount as setShadowTextureCount +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getShadowTextureCount -}+{#fun ogre_scmgr_getShadowTextureCount as getShadowTextureCount +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setShadowTextureCountPerLightType -}+{#fun ogre_scmgr_setShadowTextureCountPerLightType as setShadowTextureCountPerLightType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLightType' ,+ fromIntegral `Int' } -> `()'  #}++{- function getShadowTextureCountPerLightType -}+{#fun ogre_scmgr_getShadowTextureCountPerLightType as getShadowTextureCountPerLightType +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumLightType' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getShadowTexture -}+{#fun ogre_scmgr_getShadowTexture as getShadowTexture +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `SharedPtr' peekSharedPtr*} -> `()'  #}++{- function setShadowDirLightTextureOffset -}+{#fun ogre_scmgr_setShadowDirLightTextureOffset as setShadowDirLightTextureOffset +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getShadowDirLightTextureOffset -}+{#fun ogre_scmgr_getShadowDirLightTextureOffset as getShadowDirLightTextureOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setShadowTextureFadeStart -}+{#fun ogre_scmgr_setShadowTextureFadeStart as setShadowTextureFadeStart +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setShadowTextureFadeEnd -}+{#fun ogre_scmgr_setShadowTextureFadeEnd as setShadowTextureFadeEnd +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function setShadowTextureSelfShadow -}+{#fun ogre_scmgr_setShadowTextureSelfShadow as setShadowTextureSelfShadow +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShadowTextureSelfShadow -}+{#fun ogre_scmgr_getShadowTextureSelfShadow as getShadowTextureSelfShadow +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShadowTextureCasterMaterial -}+{#fun ogre_scmgr_setShadowTextureCasterMaterial as setShadowTextureCasterMaterial +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setShadowTextureReceiverMaterial -}+{#fun ogre_scmgr_setShadowTextureReceiverMaterial as setShadowTextureReceiverMaterial +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setShadowCasterRenderBackFaces -}+{#fun ogre_scmgr_setShadowCasterRenderBackFaces as setShadowCasterRenderBackFaces +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShadowCasterRenderBackFaces -}+{#fun ogre_scmgr_getShadowCasterRenderBackFaces as getShadowCasterRenderBackFaces +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShadowUseInfiniteFarPlane -}+{#fun ogre_scmgr_setShadowUseInfiniteFarPlane as setShadowUseInfiniteFarPlane +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isShadowTechniqueStencilBased -}+{#fun ogre_scmgr_isShadowTechniqueStencilBased as isShadowTechniqueStencilBased +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isShadowTechniqueTextureBased -}+{#fun ogre_scmgr_isShadowTechniqueTextureBased as isShadowTechniqueTextureBased +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isShadowTechniqueModulative -}+{#fun ogre_scmgr_isShadowTechniqueModulative as isShadowTechniqueModulative +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isShadowTechniqueAdditive -}+{#fun ogre_scmgr_isShadowTechniqueAdditive as isShadowTechniqueAdditive +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isShadowTechniqueIntegrated -}+{#fun ogre_scmgr_isShadowTechniqueIntegrated as isShadowTechniqueIntegrated +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function isShadowTechniqueInUse -}+{#fun ogre_scmgr_isShadowTechniqueInUse as isShadowTechniqueInUse +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShadowUseLightClipPlanes -}+{#fun ogre_scmgr_setShadowUseLightClipPlanes as setShadowUseLightClipPlanes +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShadowUseLightClipPlanes -}+{#fun ogre_scmgr_getShadowUseLightClipPlanes as getShadowUseLightClipPlanes +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setLateMaterialResolving -}+{#fun ogre_scmgr_setLateMaterialResolving as setLateMaterialResolving +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isLateMaterialResolving -}+{#fun ogre_scmgr_isLateMaterialResolving as isLateMaterialResolving +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function hasStaticGeometry -}+{#fun ogre_scmgr_hasStaticGeometry as hasStaticGeometry +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyStaticGeometry2 -}+{#fun ogre_scmgr_destroyStaticGeometry2 as destroyStaticGeometry2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllStaticGeometry -}+{#fun ogre_scmgr_destroyAllStaticGeometry as destroyAllStaticGeometry +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyInstancedGeometry2 -}+{#fun ogre_scmgr_destroyInstancedGeometry2 as destroyInstancedGeometry2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllInstancedGeometry -}+{#fun ogre_scmgr_destroyAllInstancedGeometry as destroyAllInstancedGeometry +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function hasInstanceManager -}+{#fun ogre_scmgr_hasInstanceManager as hasInstanceManager +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function destroyInstanceManager -}+{#fun ogre_scmgr_destroyInstanceManager as destroyInstanceManager +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllInstanceManagers -}+{#fun ogre_scmgr_destroyAllInstanceManagers as destroyAllInstanceManagers +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyMovableObject -}+{#fun ogre_scmgr_destroyMovableObject as destroyMovableObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function destroyMovableObject2 -}+{#fun ogre_scmgr_destroyMovableObject2 as destroyMovableObject2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function destroyAllMovableObjectsByType -}+{#fun ogre_scmgr_destroyAllMovableObjectsByType as destroyAllMovableObjectsByType +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function destroyAllMovableObjects -}+{#fun ogre_scmgr_destroyAllMovableObjects as destroyAllMovableObjects +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getMovableObject -}+{#fun ogre_scmgr_getMovableObject as getMovableObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasMovableObject -}+{#fun ogre_scmgr_hasMovableObject as hasMovableObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function injectMovableObject -}+{#fun ogre_scmgr_injectMovableObject as injectMovableObject +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function extractMovableObject -}+{#fun ogre_scmgr_extractMovableObject as extractMovableObject +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withCString* `String' } -> `()'  #}++{- function extractMovableObject2 -}+{#fun ogre_scmgr_extractMovableObject2 as extractMovableObject2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function extractAllMovableObjectsByType -}+{#fun ogre_scmgr_extractAllMovableObjectsByType as extractAllMovableObjectsByType +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setVisibilityMask -}+{#fun ogre_scmgr_setVisibilityMask as setVisibilityMask +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getVisibilityMask -}+{#fun ogre_scmgr_getVisibilityMask as getVisibilityMask +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setFindVisibleObjects -}+{#fun ogre_scmgr_setFindVisibleObjects as setFindVisibleObjects +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getFindVisibleObjects -}+{#fun ogre_scmgr_getFindVisibleObjects as getFindVisibleObjects +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setNormaliseNormalsOnScale -}+{#fun ogre_scmgr_setNormaliseNormalsOnScale as setNormaliseNormalsOnScale +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getNormaliseNormalsOnScale -}+{#fun ogre_scmgr_getNormaliseNormalsOnScale as getNormaliseNormalsOnScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setFlipCullingOnNegativeScale -}+{#fun ogre_scmgr_setFlipCullingOnNegativeScale as setFlipCullingOnNegativeScale +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getFlipCullingOnNegativeScale -}+{#fun ogre_scmgr_getFlipCullingOnNegativeScale as getFlipCullingOnNegativeScale +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getDestinationRenderSystem -}+{#fun ogre_scmgr_getDestinationRenderSystem as getDestinationRenderSystem +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getCurrentViewport -}+{#fun ogre_scmgr_getCurrentViewport as getCurrentViewport +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setCameraRelativeRendering -}+{#fun ogre_scmgr_setCameraRelativeRendering as setCameraRelativeRendering +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getCameraRelativeRendering -}+{#fun ogre_scmgr_getCameraRelativeRendering as getCameraRelativeRendering +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassSceneManager.hs 
@@ -1,2233 +0,0 @@--- 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\\ClassSceneManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassSceneManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassSceneManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructSharedPtr
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumLightType
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function ~SceneManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getName -}
-getName :: HG3DClass -> IO (String)
-getName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getTypeName -}
-getTypeName :: HG3DClass -> IO (String)
-getTypeName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getTypeName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createCamera -}
-createCamera :: HG3DClass -> String -> IO (HG3DClass)
-createCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createCamera'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getCamera -}
-getCamera :: HG3DClass -> String -> IO (HG3DClass)
-getCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getCamera'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasCamera -}
-hasCamera :: HG3DClass -> String -> IO (Bool)
-hasCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasCamera'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyCamera -}
-destroyCamera :: HG3DClass -> HG3DClass -> IO ()
-destroyCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyCamera'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyCamera2 -}
-destroyCamera2 :: HG3DClass -> String -> IO ()
-destroyCamera2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyCamera2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllCameras -}
-destroyAllCameras :: HG3DClass -> IO ()
-destroyAllCameras a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllCameras'_ a1' >>= \res ->
-  return ()
-{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createLight -}
-createLight :: HG3DClass -> String -> IO (HG3DClass)
-createLight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createLight'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createLight2 -}
-createLight2 :: HG3DClass -> IO (HG3DClass)
-createLight2 a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  createLight2'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getLight -}
-getLight :: HG3DClass -> String -> IO (HG3DClass)
-getLight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getLight'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasLight -}
-hasLight :: HG3DClass -> String -> IO (Bool)
-hasLight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasLight'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyLight -}
-destroyLight :: HG3DClass -> String -> IO ()
-destroyLight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyLight'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyLight2 -}
-destroyLight2 :: HG3DClass -> HG3DClass -> IO ()
-destroyLight2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyLight2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllLights -}
-destroyAllLights :: HG3DClass -> IO ()
-destroyAllLights a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllLights'_ a1' >>= \res ->
-  return ()
-{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createSceneNode -}
-createSceneNode :: HG3DClass -> IO (HG3DClass)
-createSceneNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  createSceneNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createSceneNode2 -}
-createSceneNode2 :: HG3DClass -> String -> IO (HG3DClass)
-createSceneNode2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createSceneNode2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroySceneNode -}
-destroySceneNode :: HG3DClass -> String -> IO ()
-destroySceneNode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroySceneNode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroySceneNode2 -}
-destroySceneNode2 :: HG3DClass -> HG3DClass -> IO ()
-destroySceneNode2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroySceneNode2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getRootSceneNode -}
-getRootSceneNode :: HG3DClass -> IO (HG3DClass)
-getRootSceneNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRootSceneNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getSceneNode -}
-getSceneNode :: HG3DClass -> String -> IO (HG3DClass)
-getSceneNode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getSceneNode'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasSceneNode -}
-hasSceneNode :: HG3DClass -> String -> IO (Bool)
-hasSceneNode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasSceneNode'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity -}
-createEntity :: HG3DClass -> String -> String -> String -> IO (HG3DClass)
-createEntity a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  withCString a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  createEntity'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity2 -}
-createEntity2 :: HG3DClass -> String -> SharedPtr -> IO (HG3DClass)
-createEntity2 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withSharedPtr a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createEntity2'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity3 -}
-createEntity3 :: HG3DClass -> String -> IO (HG3DClass)
-createEntity3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createEntity3'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity4 -}
-createEntity4 :: HG3DClass -> SharedPtr -> IO (HG3DClass)
-createEntity4 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withSharedPtr a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createEntity4'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity5 -}
-createEntity5 :: HG3DClass -> String -> EnumSceneManagerPrefabType -> IO (HG3DClass)
-createEntity5 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = cIntFromEnum a3} in 
-  alloca $ \a4' -> 
-  createEntity5'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createEntity6 -}
-createEntity6 :: HG3DClass -> EnumSceneManagerPrefabType -> IO (HG3DClass)
-createEntity6 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  createEntity6'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getEntity -}
-getEntity :: HG3DClass -> String -> IO (HG3DClass)
-getEntity a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getEntity'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasEntity -}
-hasEntity :: HG3DClass -> String -> IO (Bool)
-hasEntity a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasEntity'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyEntity -}
-destroyEntity :: HG3DClass -> HG3DClass -> IO ()
-destroyEntity a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyEntity'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyEntity2 -}
-destroyEntity2 :: HG3DClass -> String -> IO ()
-destroyEntity2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyEntity2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllEntities -}
-destroyAllEntities :: HG3DClass -> IO ()
-destroyAllEntities a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllEntities'_ a1' >>= \res ->
-  return ()
-{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createManualObject -}
-createManualObject :: HG3DClass -> String -> IO (HG3DClass)
-createManualObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createManualObject'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createManualObject2 -}
-createManualObject2 :: HG3DClass -> IO (HG3DClass)
-createManualObject2 a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  createManualObject2'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getManualObject -}
-getManualObject :: HG3DClass -> String -> IO (HG3DClass)
-getManualObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getManualObject'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasManualObject -}
-hasManualObject :: HG3DClass -> String -> IO (Bool)
-hasManualObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasManualObject'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyManualObject -}
-destroyManualObject :: HG3DClass -> HG3DClass -> IO ()
-destroyManualObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyManualObject'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 266 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyManualObject2 -}
-destroyManualObject2 :: HG3DClass -> String -> IO ()
-destroyManualObject2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyManualObject2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 271 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllManualObjects -}
-destroyAllManualObjects :: HG3DClass -> IO ()
-destroyAllManualObjects a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllManualObjects'_ a1' >>= \res ->
-  return ()
-{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createBillboardChain -}
-createBillboardChain :: HG3DClass -> String -> IO (HG3DClass)
-createBillboardChain a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createBillboardChain'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 281 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createBillboardChain2 -}
-createBillboardChain2 :: HG3DClass -> IO (HG3DClass)
-createBillboardChain2 a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  createBillboardChain2'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 286 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getBillboardChain -}
-getBillboardChain :: HG3DClass -> String -> IO (HG3DClass)
-getBillboardChain a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getBillboardChain'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasBillboardChain -}
-hasBillboardChain :: HG3DClass -> String -> IO (Bool)
-hasBillboardChain a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasBillboardChain'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 298 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyBillboardChain -}
-destroyBillboardChain :: HG3DClass -> HG3DClass -> IO ()
-destroyBillboardChain a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyBillboardChain'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 303 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyBillboardChain2 -}
-destroyBillboardChain2 :: HG3DClass -> String -> IO ()
-destroyBillboardChain2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyBillboardChain2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 308 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllBillboardChains -}
-destroyAllBillboardChains :: HG3DClass -> IO ()
-destroyAllBillboardChains a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllBillboardChains'_ a1' >>= \res ->
-  return ()
-{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasRibbonTrail -}
-hasRibbonTrail :: HG3DClass -> String -> IO (Bool)
-hasRibbonTrail a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasRibbonTrail'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 318 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyRibbonTrail2 -}
-destroyRibbonTrail2 :: HG3DClass -> String -> IO ()
-destroyRibbonTrail2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyRibbonTrail2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 323 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllRibbonTrails -}
-destroyAllRibbonTrails :: HG3DClass -> IO ()
-destroyAllRibbonTrails a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllRibbonTrails'_ a1' >>= \res ->
-  return ()
-{-# LINE 327 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasParticleSystem -}
-hasParticleSystem :: HG3DClass -> String -> IO (Bool)
-hasParticleSystem a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasParticleSystem'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 333 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyParticleSystem2 -}
-destroyParticleSystem2 :: HG3DClass -> String -> IO ()
-destroyParticleSystem2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyParticleSystem2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 338 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllParticleSystems -}
-destroyAllParticleSystems :: HG3DClass -> IO ()
-destroyAllParticleSystems a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllParticleSystems'_ a1' >>= \res ->
-  return ()
-{-# LINE 342 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function clearScene -}
-clearScene :: HG3DClass -> IO ()
-clearScene a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearScene'_ a1' >>= \res ->
-  return ()
-{-# LINE 346 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setAmbientLight -}
-setAmbientLight :: HG3DClass -> Colour -> IO ()
-setAmbientLight a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setAmbientLight'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 351 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getAmbientLight -}
-getAmbientLight :: HG3DClass -> IO (Colour)
-getAmbientLight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAmbientLight'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 356 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function prepareWorldGeometry -}
-prepareWorldGeometry :: HG3DClass -> String -> IO ()
-prepareWorldGeometry a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  prepareWorldGeometry'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 361 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setWorldGeometry -}
-setWorldGeometry :: HG3DClass -> String -> IO ()
-setWorldGeometry a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setWorldGeometry'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 366 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function estimateWorldGeometry -}
-estimateWorldGeometry :: HG3DClass -> String -> IO (Int)
-estimateWorldGeometry a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  estimateWorldGeometry'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 372 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasOption -}
-hasOption :: HG3DClass -> String -> IO (Bool)
-hasOption a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasOption'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 378 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSkyPlaneEnabled -}
-setSkyPlaneEnabled :: HG3DClass -> Bool -> IO ()
-setSkyPlaneEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSkyPlaneEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 383 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isSkyPlaneEnabled -}
-isSkyPlaneEnabled :: HG3DClass -> IO (Bool)
-isSkyPlaneEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSkyPlaneEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 388 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getSkyPlaneNode -}
-getSkyPlaneNode :: HG3DClass -> IO (HG3DClass)
-getSkyPlaneNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkyPlaneNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 393 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSkyBox -}
-setSkyBox :: HG3DClass -> Bool -> String -> Float -> Bool -> Quaternion -> String -> IO ()
-setSkyBox a1 a2 a3 a4 a5 a6 a7 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withCString a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  let {a5' = fromBool a5} in 
-  withQuaternion a6 $ \a6' -> 
-  withCString a7 $ \a7' -> 
-  setSkyBox'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
-  return ()
-{-# LINE 403 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSkyBoxEnabled -}
-setSkyBoxEnabled :: HG3DClass -> Bool -> IO ()
-setSkyBoxEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSkyBoxEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 408 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isSkyBoxEnabled -}
-isSkyBoxEnabled :: HG3DClass -> IO (Bool)
-isSkyBoxEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSkyBoxEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 413 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getSkyBoxNode -}
-getSkyBoxNode :: HG3DClass -> IO (HG3DClass)
-getSkyBoxNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkyBoxNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 418 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSkyDome -}
-setSkyDome :: HG3DClass -> Bool -> String -> Float -> Float -> Float -> Bool -> Quaternion -> Int -> Int -> Int -> String -> IO ()
-setSkyDome a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withCString a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  let {a6' = realToFrac a6} in 
-  let {a7' = fromBool a7} in 
-  withQuaternion a8 $ \a8' -> 
-  let {a9' = fromIntegral a9} in 
-  let {a10' = fromIntegral a10} in 
-  let {a11' = fromIntegral a11} in 
-  withCString a12 $ \a12' -> 
-  setSkyDome'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
-  return ()
-{-# LINE 433 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSkyDomeEnabled -}
-setSkyDomeEnabled :: HG3DClass -> Bool -> IO ()
-setSkyDomeEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSkyDomeEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 438 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isSkyDomeEnabled -}
-isSkyDomeEnabled :: HG3DClass -> IO (Bool)
-isSkyDomeEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isSkyDomeEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 443 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getSkyDomeNode -}
-getSkyDomeNode :: HG3DClass -> IO (HG3DClass)
-getSkyDomeNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkyDomeNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 448 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFogColour -}
-getFogColour :: HG3DClass -> IO (Colour)
-getFogColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFogColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 453 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFogStart -}
-getFogStart :: HG3DClass -> IO (Float)
-getFogStart a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFogStart'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 458 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFogEnd -}
-getFogEnd :: HG3DClass -> IO (Float)
-getFogEnd a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFogEnd'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 463 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFogDensity -}
-getFogDensity :: HG3DClass -> IO (Float)
-getFogDensity a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFogDensity'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 468 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createBillboardSet -}
-createBillboardSet :: HG3DClass -> String -> Int -> IO (HG3DClass)
-createBillboardSet a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  createBillboardSet'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 475 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createBillboardSet2 -}
-createBillboardSet2 :: HG3DClass -> Int -> IO (HG3DClass)
-createBillboardSet2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  createBillboardSet2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 481 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getBillboardSet -}
-getBillboardSet :: HG3DClass -> String -> IO (HG3DClass)
-getBillboardSet a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getBillboardSet'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 487 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasBillboardSet -}
-hasBillboardSet :: HG3DClass -> String -> IO (Bool)
-hasBillboardSet a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasBillboardSet'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 493 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyBillboardSet -}
-destroyBillboardSet :: HG3DClass -> HG3DClass -> IO ()
-destroyBillboardSet a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyBillboardSet'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 498 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyBillboardSet2 -}
-destroyBillboardSet2 :: HG3DClass -> String -> IO ()
-destroyBillboardSet2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyBillboardSet2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 503 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllBillboardSets -}
-destroyAllBillboardSets :: HG3DClass -> IO ()
-destroyAllBillboardSets a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllBillboardSets'_ a1' >>= \res ->
-  return ()
-{-# LINE 507 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setDisplaySceneNodes -}
-setDisplaySceneNodes :: HG3DClass -> Bool -> IO ()
-setDisplaySceneNodes a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setDisplaySceneNodes'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 512 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getDisplaySceneNodes -}
-getDisplaySceneNodes :: HG3DClass -> IO (Bool)
-getDisplaySceneNodes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDisplaySceneNodes'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 517 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createAnimation -}
-createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
-createAnimation a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  createAnimation'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 524 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getAnimation -}
-getAnimation :: HG3DClass -> String -> IO (HG3DClass)
-getAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimation'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 530 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasAnimation -}
-hasAnimation :: HG3DClass -> String -> IO (Bool)
-hasAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimation'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 536 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAnimation -}
-destroyAnimation :: HG3DClass -> String -> IO ()
-destroyAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyAnimation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 541 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllAnimations -}
-destroyAllAnimations :: HG3DClass -> IO ()
-destroyAllAnimations a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllAnimations'_ a1' >>= \res ->
-  return ()
-{-# LINE 545 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function createAnimationState -}
-createAnimationState :: HG3DClass -> String -> IO (HG3DClass)
-createAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createAnimationState'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 551 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getAnimationState -}
-getAnimationState :: HG3DClass -> String -> IO (HG3DClass)
-getAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimationState'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 557 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasAnimationState -}
-hasAnimationState :: HG3DClass -> String -> IO (Bool)
-hasAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimationState'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 563 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAnimationState -}
-destroyAnimationState :: HG3DClass -> String -> IO ()
-destroyAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyAnimationState'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 568 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllAnimationStates -}
-destroyAllAnimationStates :: HG3DClass -> IO ()
-destroyAllAnimationStates a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllAnimationStates'_ a1' >>= \res ->
-  return ()
-{-# LINE 572 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function clearSpecialCaseRenderQueues -}
-clearSpecialCaseRenderQueues :: HG3DClass -> IO ()
-clearSpecialCaseRenderQueues a1 =
-  withHG3DClass a1 $ \a1' -> 
-  clearSpecialCaseRenderQueues'_ a1' >>= \res ->
-  return ()
-{-# LINE 576 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setSpecialCaseRenderQueueMode -}
-setSpecialCaseRenderQueueMode :: HG3DClass -> EnumSceneManagerSpecialCaseRenderQueueMode -> IO ()
-setSpecialCaseRenderQueueMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setSpecialCaseRenderQueueMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 581 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getSpecialCaseRenderQueueMode -}
-getSpecialCaseRenderQueueMode :: HG3DClass -> IO (EnumSceneManagerSpecialCaseRenderQueueMode)
-getSpecialCaseRenderQueueMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSpecialCaseRenderQueueMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 586 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function showBoundingBoxes -}
-showBoundingBoxes :: HG3DClass -> Bool -> IO ()
-showBoundingBoxes a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  showBoundingBoxes'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 591 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShowBoundingBoxes -}
-getShowBoundingBoxes :: HG3DClass -> IO (Bool)
-getShowBoundingBoxes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShowBoundingBoxes'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 596 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShowDebugShadows -}
-setShowDebugShadows :: HG3DClass -> Bool -> IO ()
-setShowDebugShadows a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShowDebugShadows'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 601 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShowDebugShadows -}
-getShowDebugShadows :: HG3DClass -> IO (Bool)
-getShowDebugShadows a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShowDebugShadows'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 606 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowColour -}
-setShadowColour :: HG3DClass -> Colour -> IO ()
-setShadowColour a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setShadowColour'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 611 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowColour -}
-getShadowColour :: HG3DClass -> IO (Colour)
-getShadowColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 616 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowDirectionalLightExtrusionDistance -}
-setShadowDirectionalLightExtrusionDistance :: HG3DClass -> Float -> IO ()
-setShadowDirectionalLightExtrusionDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 621 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowDirectionalLightExtrusionDistance -}
-getShadowDirectionalLightExtrusionDistance :: HG3DClass -> IO (Float)
-getShadowDirectionalLightExtrusionDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 626 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowFarDistance -}
-setShadowFarDistance :: HG3DClass -> Float -> IO ()
-setShadowFarDistance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowFarDistance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 631 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowFarDistance -}
-getShadowFarDistance :: HG3DClass -> IO (Float)
-getShadowFarDistance a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowFarDistance'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 636 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowFarDistanceSquared -}
-getShadowFarDistanceSquared :: HG3DClass -> IO (Float)
-getShadowFarDistanceSquared a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowFarDistanceSquared'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 641 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowIndexBufferSize -}
-setShadowIndexBufferSize :: HG3DClass -> Int -> IO ()
-setShadowIndexBufferSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setShadowIndexBufferSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 646 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowIndexBufferSize -}
-getShadowIndexBufferSize :: HG3DClass -> IO (Int)
-getShadowIndexBufferSize a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowIndexBufferSize'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 651 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureSize -}
-setShadowTextureSize :: HG3DClass -> Int -> IO ()
-setShadowTextureSize a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setShadowTextureSize'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 656 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureFSAA -}
-setShadowTextureFSAA :: HG3DClass -> Int -> IO ()
-setShadowTextureFSAA a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setShadowTextureFSAA'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 661 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureCount -}
-setShadowTextureCount :: HG3DClass -> Int -> IO ()
-setShadowTextureCount a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setShadowTextureCount'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 666 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowTextureCount -}
-getShadowTextureCount :: HG3DClass -> IO (Int)
-getShadowTextureCount a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowTextureCount'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 671 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureCountPerLightType -}
-setShadowTextureCountPerLightType :: HG3DClass -> EnumLightType -> Int -> IO ()
-setShadowTextureCountPerLightType a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  let {a3' = fromIntegral a3} in 
-  setShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 677 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowTextureCountPerLightType -}
-getShadowTextureCountPerLightType :: HG3DClass -> EnumLightType -> IO (Int)
-getShadowTextureCountPerLightType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  alloca $ \a3' -> 
-  getShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res ->
-  peekIntConv  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 683 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowTexture -}
-getShadowTexture :: HG3DClass -> Int -> IO (SharedPtr)
-getShadowTexture a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getShadowTexture'_ a1' a2' a3' >>= \res ->
-  peekSharedPtr  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 689 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowDirLightTextureOffset -}
-setShadowDirLightTextureOffset :: HG3DClass -> Float -> IO ()
-setShadowDirLightTextureOffset a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowDirLightTextureOffset'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 694 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowDirLightTextureOffset -}
-getShadowDirLightTextureOffset :: HG3DClass -> IO (Float)
-getShadowDirLightTextureOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowDirLightTextureOffset'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 699 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureFadeStart -}
-setShadowTextureFadeStart :: HG3DClass -> Float -> IO ()
-setShadowTextureFadeStart a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowTextureFadeStart'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 704 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureFadeEnd -}
-setShadowTextureFadeEnd :: HG3DClass -> Float -> IO ()
-setShadowTextureFadeEnd a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setShadowTextureFadeEnd'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 709 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureSelfShadow -}
-setShadowTextureSelfShadow :: HG3DClass -> Bool -> IO ()
-setShadowTextureSelfShadow a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShadowTextureSelfShadow'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 714 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowTextureSelfShadow -}
-getShadowTextureSelfShadow :: HG3DClass -> IO (Bool)
-getShadowTextureSelfShadow a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowTextureSelfShadow'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 719 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureCasterMaterial -}
-setShadowTextureCasterMaterial :: HG3DClass -> String -> IO ()
-setShadowTextureCasterMaterial a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setShadowTextureCasterMaterial'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 724 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowTextureReceiverMaterial -}
-setShadowTextureReceiverMaterial :: HG3DClass -> String -> IO ()
-setShadowTextureReceiverMaterial a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setShadowTextureReceiverMaterial'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 729 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowCasterRenderBackFaces -}
-setShadowCasterRenderBackFaces :: HG3DClass -> Bool -> IO ()
-setShadowCasterRenderBackFaces a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShadowCasterRenderBackFaces'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 734 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowCasterRenderBackFaces -}
-getShadowCasterRenderBackFaces :: HG3DClass -> IO (Bool)
-getShadowCasterRenderBackFaces a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowCasterRenderBackFaces'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 739 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowUseInfiniteFarPlane -}
-setShadowUseInfiniteFarPlane :: HG3DClass -> Bool -> IO ()
-setShadowUseInfiniteFarPlane a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShadowUseInfiniteFarPlane'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 744 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueStencilBased -}
-isShadowTechniqueStencilBased :: HG3DClass -> IO (Bool)
-isShadowTechniqueStencilBased a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueStencilBased'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 749 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueTextureBased -}
-isShadowTechniqueTextureBased :: HG3DClass -> IO (Bool)
-isShadowTechniqueTextureBased a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueTextureBased'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 754 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueModulative -}
-isShadowTechniqueModulative :: HG3DClass -> IO (Bool)
-isShadowTechniqueModulative a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueModulative'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 759 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueAdditive -}
-isShadowTechniqueAdditive :: HG3DClass -> IO (Bool)
-isShadowTechniqueAdditive a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueAdditive'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 764 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueIntegrated -}
-isShadowTechniqueIntegrated :: HG3DClass -> IO (Bool)
-isShadowTechniqueIntegrated a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueIntegrated'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 769 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isShadowTechniqueInUse -}
-isShadowTechniqueInUse :: HG3DClass -> IO (Bool)
-isShadowTechniqueInUse a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isShadowTechniqueInUse'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 774 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setShadowUseLightClipPlanes -}
-setShadowUseLightClipPlanes :: HG3DClass -> Bool -> IO ()
-setShadowUseLightClipPlanes a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShadowUseLightClipPlanes'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 779 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getShadowUseLightClipPlanes -}
-getShadowUseLightClipPlanes :: HG3DClass -> IO (Bool)
-getShadowUseLightClipPlanes a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowUseLightClipPlanes'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 784 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setLateMaterialResolving -}
-setLateMaterialResolving :: HG3DClass -> Bool -> IO ()
-setLateMaterialResolving a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setLateMaterialResolving'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 789 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function isLateMaterialResolving -}
-isLateMaterialResolving :: HG3DClass -> IO (Bool)
-isLateMaterialResolving a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isLateMaterialResolving'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 794 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasStaticGeometry -}
-hasStaticGeometry :: HG3DClass -> String -> IO (Bool)
-hasStaticGeometry a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasStaticGeometry'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 800 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyStaticGeometry2 -}
-destroyStaticGeometry2 :: HG3DClass -> String -> IO ()
-destroyStaticGeometry2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyStaticGeometry2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 805 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllStaticGeometry -}
-destroyAllStaticGeometry :: HG3DClass -> IO ()
-destroyAllStaticGeometry a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllStaticGeometry'_ a1' >>= \res ->
-  return ()
-{-# LINE 809 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyInstancedGeometry2 -}
-destroyInstancedGeometry2 :: HG3DClass -> String -> IO ()
-destroyInstancedGeometry2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyInstancedGeometry2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 814 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllInstancedGeometry -}
-destroyAllInstancedGeometry :: HG3DClass -> IO ()
-destroyAllInstancedGeometry a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllInstancedGeometry'_ a1' >>= \res ->
-  return ()
-{-# LINE 818 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasInstanceManager -}
-hasInstanceManager :: HG3DClass -> String -> IO (Bool)
-hasInstanceManager a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasInstanceManager'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 824 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyInstanceManager -}
-destroyInstanceManager :: HG3DClass -> String -> IO ()
-destroyInstanceManager a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyInstanceManager'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 829 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllInstanceManagers -}
-destroyAllInstanceManagers :: HG3DClass -> IO ()
-destroyAllInstanceManagers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllInstanceManagers'_ a1' >>= \res ->
-  return ()
-{-# LINE 833 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyMovableObject -}
-destroyMovableObject :: HG3DClass -> String -> String -> IO ()
-destroyMovableObject a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  destroyMovableObject'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 839 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyMovableObject2 -}
-destroyMovableObject2 :: HG3DClass -> HG3DClass -> IO ()
-destroyMovableObject2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyMovableObject2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 844 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllMovableObjectsByType -}
-destroyAllMovableObjectsByType :: HG3DClass -> String -> IO ()
-destroyAllMovableObjectsByType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  destroyAllMovableObjectsByType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 849 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function destroyAllMovableObjects -}
-destroyAllMovableObjects :: HG3DClass -> IO ()
-destroyAllMovableObjects a1 =
-  withHG3DClass a1 $ \a1' -> 
-  destroyAllMovableObjects'_ a1' >>= \res ->
-  return ()
-{-# LINE 853 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getMovableObject -}
-getMovableObject :: HG3DClass -> String -> String -> IO (HG3DClass)
-getMovableObject a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  getMovableObject'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 860 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function hasMovableObject -}
-hasMovableObject :: HG3DClass -> String -> String -> IO (Bool)
-hasMovableObject a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  hasMovableObject'_ a1' a2' a3' a4' >>= \res ->
-  peekBoolUtil  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 867 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function injectMovableObject -}
-injectMovableObject :: HG3DClass -> HG3DClass -> IO ()
-injectMovableObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  injectMovableObject'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 872 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function extractMovableObject -}
-extractMovableObject :: HG3DClass -> String -> String -> IO ()
-extractMovableObject a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withCString a3 $ \a3' -> 
-  extractMovableObject'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 878 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function extractMovableObject2 -}
-extractMovableObject2 :: HG3DClass -> HG3DClass -> IO ()
-extractMovableObject2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  extractMovableObject2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 883 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function extractAllMovableObjectsByType -}
-extractAllMovableObjectsByType :: HG3DClass -> String -> IO ()
-extractAllMovableObjectsByType a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  extractAllMovableObjectsByType'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 888 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setVisibilityMask -}
-setVisibilityMask :: HG3DClass -> Int -> IO ()
-setVisibilityMask a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setVisibilityMask'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 893 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getVisibilityMask -}
-getVisibilityMask :: HG3DClass -> IO (Int)
-getVisibilityMask a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVisibilityMask'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 898 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setFindVisibleObjects -}
-setFindVisibleObjects :: HG3DClass -> Bool -> IO ()
-setFindVisibleObjects a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setFindVisibleObjects'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 903 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFindVisibleObjects -}
-getFindVisibleObjects :: HG3DClass -> IO (Bool)
-getFindVisibleObjects a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFindVisibleObjects'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 908 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setNormaliseNormalsOnScale -}
-setNormaliseNormalsOnScale :: HG3DClass -> Bool -> IO ()
-setNormaliseNormalsOnScale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setNormaliseNormalsOnScale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 913 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getNormaliseNormalsOnScale -}
-getNormaliseNormalsOnScale :: HG3DClass -> IO (Bool)
-getNormaliseNormalsOnScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNormaliseNormalsOnScale'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 918 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setFlipCullingOnNegativeScale -}
-setFlipCullingOnNegativeScale :: HG3DClass -> Bool -> IO ()
-setFlipCullingOnNegativeScale a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setFlipCullingOnNegativeScale'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 923 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getFlipCullingOnNegativeScale -}
-getFlipCullingOnNegativeScale :: HG3DClass -> IO (Bool)
-getFlipCullingOnNegativeScale a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getFlipCullingOnNegativeScale'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 928 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getDestinationRenderSystem -}
-getDestinationRenderSystem :: HG3DClass -> IO (HG3DClass)
-getDestinationRenderSystem a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDestinationRenderSystem'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 933 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getCurrentViewport -}
-getCurrentViewport :: HG3DClass -> IO (HG3DClass)
-getCurrentViewport a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCurrentViewport'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 938 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function setCameraRelativeRendering -}
-setCameraRelativeRendering :: HG3DClass -> Bool -> IO ()
-setCameraRelativeRendering a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setCameraRelativeRendering'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 943 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-{- function getCameraRelativeRendering -}
-getCameraRelativeRendering :: HG3DClass -> IO (Bool)
-getCameraRelativeRendering a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCameraRelativeRendering'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 948 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getName"
-  getName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getTypeName"
-  getTypeName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createCamera"
-  createCamera'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getCamera"
-  getCamera'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasCamera"
-  hasCamera'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyCamera"
-  destroyCamera'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyCamera2"
-  destroyCamera2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllCameras"
-  destroyAllCameras'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createLight"
-  createLight'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createLight2"
-  createLight2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getLight"
-  getLight'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasLight"
-  hasLight'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyLight"
-  destroyLight'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyLight2"
-  destroyLight2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllLights"
-  destroyAllLights'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createSceneNode"
-  createSceneNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createSceneNode2"
-  createSceneNode2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroySceneNode"
-  destroySceneNode'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroySceneNode2"
-  destroySceneNode2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getRootSceneNode"
-  getRootSceneNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getSceneNode"
-  getSceneNode'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasSceneNode"
-  hasSceneNode'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity"
-  createEntity'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity2"
-  createEntity2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((SharedPtrPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity3"
-  createEntity3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity4"
-  createEntity4'_ :: ((HG3DClassPtr) -> ((SharedPtrPtr) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity5"
-  createEntity5'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createEntity6"
-  createEntity6'_ :: ((HG3DClassPtr) -> (CInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getEntity"
-  getEntity'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasEntity"
-  hasEntity'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyEntity"
-  destroyEntity'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyEntity2"
-  destroyEntity2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllEntities"
-  destroyAllEntities'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createManualObject"
-  createManualObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createManualObject2"
-  createManualObject2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getManualObject"
-  getManualObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasManualObject"
-  hasManualObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyManualObject"
-  destroyManualObject'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyManualObject2"
-  destroyManualObject2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllManualObjects"
-  destroyAllManualObjects'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createBillboardChain"
-  createBillboardChain'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createBillboardChain2"
-  createBillboardChain2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getBillboardChain"
-  getBillboardChain'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasBillboardChain"
-  hasBillboardChain'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyBillboardChain"
-  destroyBillboardChain'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyBillboardChain2"
-  destroyBillboardChain2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllBillboardChains"
-  destroyAllBillboardChains'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasRibbonTrail"
-  hasRibbonTrail'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyRibbonTrail2"
-  destroyRibbonTrail2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllRibbonTrails"
-  destroyAllRibbonTrails'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasParticleSystem"
-  hasParticleSystem'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyParticleSystem2"
-  destroyParticleSystem2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllParticleSystems"
-  destroyAllParticleSystems'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_clearScene"
-  clearScene'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setAmbientLight"
-  setAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getAmbientLight"
-  getAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_prepareWorldGeometry"
-  prepareWorldGeometry'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setWorldGeometry"
-  setWorldGeometry'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_estimateWorldGeometry"
-  estimateWorldGeometry'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasOption"
-  hasOption'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSkyPlaneEnabled"
-  setSkyPlaneEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isSkyPlaneEnabled"
-  isSkyPlaneEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getSkyPlaneNode"
-  getSkyPlaneNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSkyBox"
-  setSkyBox'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (CFloat -> (CInt -> ((QuaternionPtr) -> ((Ptr CChar) -> (IO ()))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSkyBoxEnabled"
-  setSkyBoxEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isSkyBoxEnabled"
-  isSkyBoxEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getSkyBoxNode"
-  getSkyBoxNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSkyDome"
-  setSkyDome'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> ((QuaternionPtr) -> (CInt -> (CInt -> (CInt -> ((Ptr CChar) -> (IO ())))))))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSkyDomeEnabled"
-  setSkyDomeEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isSkyDomeEnabled"
-  isSkyDomeEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getSkyDomeNode"
-  getSkyDomeNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFogColour"
-  getFogColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFogStart"
-  getFogStart'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFogEnd"
-  getFogEnd'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFogDensity"
-  getFogDensity'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createBillboardSet"
-  createBillboardSet'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CUInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createBillboardSet2"
-  createBillboardSet2'_ :: ((HG3DClassPtr) -> (CUInt -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getBillboardSet"
-  getBillboardSet'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasBillboardSet"
-  hasBillboardSet'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyBillboardSet"
-  destroyBillboardSet'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyBillboardSet2"
-  destroyBillboardSet2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllBillboardSets"
-  destroyAllBillboardSets'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setDisplaySceneNodes"
-  setDisplaySceneNodes'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getDisplaySceneNodes"
-  getDisplaySceneNodes'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createAnimation"
-  createAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getAnimation"
-  getAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasAnimation"
-  hasAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAnimation"
-  destroyAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllAnimations"
-  destroyAllAnimations'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_createAnimationState"
-  createAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getAnimationState"
-  getAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasAnimationState"
-  hasAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAnimationState"
-  destroyAnimationState'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllAnimationStates"
-  destroyAllAnimationStates'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_clearSpecialCaseRenderQueues"
-  clearSpecialCaseRenderQueues'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setSpecialCaseRenderQueueMode"
-  setSpecialCaseRenderQueueMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getSpecialCaseRenderQueueMode"
-  getSpecialCaseRenderQueueMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_showBoundingBoxes"
-  showBoundingBoxes'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShowBoundingBoxes"
-  getShowBoundingBoxes'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShowDebugShadows"
-  setShowDebugShadows'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShowDebugShadows"
-  getShowDebugShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowColour"
-  setShadowColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowColour"
-  getShadowColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowDirectionalLightExtrusionDistance"
-  setShadowDirectionalLightExtrusionDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowDirectionalLightExtrusionDistance"
-  getShadowDirectionalLightExtrusionDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowFarDistance"
-  setShadowFarDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowFarDistance"
-  getShadowFarDistance'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowFarDistanceSquared"
-  getShadowFarDistanceSquared'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowIndexBufferSize"
-  setShadowIndexBufferSize'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowIndexBufferSize"
-  getShadowIndexBufferSize'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureSize"
-  setShadowTextureSize'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureFSAA"
-  setShadowTextureFSAA'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureCount"
-  setShadowTextureCount'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowTextureCount"
-  getShadowTextureCount'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureCountPerLightType"
-  setShadowTextureCountPerLightType'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowTextureCountPerLightType"
-  getShadowTextureCountPerLightType'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowTexture"
-  getShadowTexture'_ :: ((HG3DClassPtr) -> (CInt -> ((SharedPtrPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowDirLightTextureOffset"
-  setShadowDirLightTextureOffset'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowDirLightTextureOffset"
-  getShadowDirLightTextureOffset'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureFadeStart"
-  setShadowTextureFadeStart'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureFadeEnd"
-  setShadowTextureFadeEnd'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureSelfShadow"
-  setShadowTextureSelfShadow'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowTextureSelfShadow"
-  getShadowTextureSelfShadow'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureCasterMaterial"
-  setShadowTextureCasterMaterial'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowTextureReceiverMaterial"
-  setShadowTextureReceiverMaterial'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowCasterRenderBackFaces"
-  setShadowCasterRenderBackFaces'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowCasterRenderBackFaces"
-  getShadowCasterRenderBackFaces'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowUseInfiniteFarPlane"
-  setShadowUseInfiniteFarPlane'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueStencilBased"
-  isShadowTechniqueStencilBased'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueTextureBased"
-  isShadowTechniqueTextureBased'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueModulative"
-  isShadowTechniqueModulative'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueAdditive"
-  isShadowTechniqueAdditive'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueIntegrated"
-  isShadowTechniqueIntegrated'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isShadowTechniqueInUse"
-  isShadowTechniqueInUse'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setShadowUseLightClipPlanes"
-  setShadowUseLightClipPlanes'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getShadowUseLightClipPlanes"
-  getShadowUseLightClipPlanes'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setLateMaterialResolving"
-  setLateMaterialResolving'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_isLateMaterialResolving"
-  isLateMaterialResolving'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasStaticGeometry"
-  hasStaticGeometry'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyStaticGeometry2"
-  destroyStaticGeometry2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllStaticGeometry"
-  destroyAllStaticGeometry'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyInstancedGeometry2"
-  destroyInstancedGeometry2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllInstancedGeometry"
-  destroyAllInstancedGeometry'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasInstanceManager"
-  hasInstanceManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyInstanceManager"
-  destroyInstanceManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllInstanceManagers"
-  destroyAllInstanceManagers'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyMovableObject"
-  destroyMovableObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyMovableObject2"
-  destroyMovableObject2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllMovableObjectsByType"
-  destroyAllMovableObjectsByType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destroyAllMovableObjects"
-  destroyAllMovableObjects'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getMovableObject"
-  getMovableObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_hasMovableObject"
-  hasMovableObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_injectMovableObject"
-  injectMovableObject'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_extractMovableObject"
-  extractMovableObject'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_extractMovableObject2"
-  extractMovableObject2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_extractAllMovableObjectsByType"
-  extractAllMovableObjectsByType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setVisibilityMask"
-  setVisibilityMask'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getVisibilityMask"
-  getVisibilityMask'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setFindVisibleObjects"
-  setFindVisibleObjects'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFindVisibleObjects"
-  getFindVisibleObjects'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setNormaliseNormalsOnScale"
-  setNormaliseNormalsOnScale'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getNormaliseNormalsOnScale"
-  getNormaliseNormalsOnScale'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setFlipCullingOnNegativeScale"
-  setFlipCullingOnNegativeScale'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getFlipCullingOnNegativeScale"
-  getFlipCullingOnNegativeScale'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getDestinationRenderSystem"
-  getDestinationRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getCurrentViewport"
-  getCurrentViewport'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_setCameraRelativeRendering"
-  setCameraRelativeRendering'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_getCameraRelativeRendering"
-  getCameraRelativeRendering'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassSceneManagerFactory.chs view
@@ -0,0 +1,58 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassSceneManagerFactory.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassSceneManagerFactory where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassSceneManagerFactory.h"
+{- function ~SceneManagerFactory -}+{#fun ogre_smf_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createInstance -}+{#fun ogre_smf_createInstance as createInstance +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function destroyInstance -}+{#fun ogre_smf_destroyInstance as destroyInstance +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassSceneManagerFactory.hs 
@@ -1,89 +0,0 @@--- 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\\ClassSceneManagerFactory.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassSceneManagerFactory.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassSceneManagerFactory where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-
-{- function ~SceneManagerFactory -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-
-{- function createInstance -}
-createInstance :: HG3DClass -> String -> IO (HG3DClass)
-createInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createInstance'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-
-{- function destroyInstance -}
-destroyInstance :: HG3DClass -> HG3DClass -> IO ()
-destroyInstance a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  destroyInstance'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs.h ogre_smf_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs.h ogre_smf_createInstance"
-  createInstance'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs.h ogre_smf_destroyInstance"
-  destroyInstance'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassSceneNode.chs view
@@ -0,0 +1,189 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassSceneNode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassSceneNode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructVec3 #}+{# import HGamer3D.Bindings.Ogre.StructQuaternion #}+
+#include "ClassSceneNode.h"
+{- function ~SceneNode -}+{#fun ogre_sn_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function attachObject -}+{#fun ogre_sn_attachObject as attachObject +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function numAttachedObjects -}+{#fun ogre_sn_numAttachedObjects as numAttachedObjects +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getAttachedObject -}+{#fun ogre_sn_getAttachedObject as getAttachedObject +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAttachedObject2 -}+{#fun ogre_sn_getAttachedObject2 as getAttachedObject2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachObject -}+{#fun ogre_sn_detachObject as detachObject +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachObject2 -}+{#fun ogre_sn_detachObject2 as detachObject2 +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function detachObject3 -}+{#fun ogre_sn_detachObject3 as detachObject3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function detachAllObjects -}+{#fun ogre_sn_detachAllObjects as detachAllObjects +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function isInSceneGraph -}+{#fun ogre_sn_isInSceneGraph as isInSceneGraph +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getCreator -}+{#fun ogre_sn_getCreator as getCreator +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function removeAndDestroyChild -}+{#fun ogre_sn_removeAndDestroyChild as removeAndDestroyChild +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function removeAndDestroyChild2 -}+{#fun ogre_sn_removeAndDestroyChild2 as removeAndDestroyChild2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function removeAndDestroyAllChildren -}+{#fun ogre_sn_removeAndDestroyAllChildren as removeAndDestroyAllChildren +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function showBoundingBox -}+{#fun ogre_sn_showBoundingBox as showBoundingBox +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function hideBoundingBox -}+{#fun ogre_sn_hideBoundingBox as hideBoundingBox +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShowBoundingBox -}+{#fun ogre_sn_getShowBoundingBox as getShowBoundingBox +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function createChildSceneNode -}+{#fun ogre_sn_createChildSceneNode as createChildSceneNode +{ withHG3DClass* `HG3DClass' ,+ withVec3* `Vec3' ,+ withQuaternion* `Quaternion' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createChildSceneNode2 -}+{#fun ogre_sn_createChildSceneNode2 as createChildSceneNode2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ withVec3* `Vec3' ,+ withQuaternion* `Quaternion' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setFixedYawAxis -}+{#fun ogre_sn_setFixedYawAxis as setFixedYawAxis +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ withVec3* `Vec3' } -> `()'  #}++{- function getAutoTrackTarget -}+{#fun ogre_sn_getAutoTrackTarget as getAutoTrackTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAutoTrackOffset -}+{#fun ogre_sn_getAutoTrackOffset as getAutoTrackOffset +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getAutoTrackLocalDirection -}+{#fun ogre_sn_getAutoTrackLocalDirection as getAutoTrackLocalDirection +{ withHG3DClass* `HG3DClass' ,+ alloca- `Vec3' peekVec3*} -> `()'  #}++{- function getParentSceneNode -}+{#fun ogre_sn_getParentSceneNode as getParentSceneNode +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setVisible -}+{#fun ogre_sn_setVisible as setVisible +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}++{- function flipVisibility -}+{#fun ogre_sn_flipVisibility as flipVisibility +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function setDebugDisplayEnabled -}+{#fun ogre_sn_setDebugDisplayEnabled as setDebugDisplayEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromBool `Bool' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassSceneNode.hs 
@@ -1,403 +0,0 @@--- 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\\ClassSceneNode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassSceneNode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassSceneNode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec3
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-import HGamer3D.Bindings.Ogre.StructQuaternion
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function ~SceneNode -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function attachObject -}
-attachObject :: HG3DClass -> HG3DClass -> IO ()
-attachObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  attachObject'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function numAttachedObjects -}
-numAttachedObjects :: HG3DClass -> IO (Int)
-numAttachedObjects a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  numAttachedObjects'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getAttachedObject -}
-getAttachedObject :: HG3DClass -> Int -> IO (HG3DClass)
-getAttachedObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getAttachedObject'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getAttachedObject2 -}
-getAttachedObject2 :: HG3DClass -> String -> IO (HG3DClass)
-getAttachedObject2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAttachedObject2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function detachObject -}
-detachObject :: HG3DClass -> Int -> IO (HG3DClass)
-detachObject a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  detachObject'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function detachObject2 -}
-detachObject2 :: HG3DClass -> HG3DClass -> IO ()
-detachObject2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  detachObject2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function detachObject3 -}
-detachObject3 :: HG3DClass -> String -> IO (HG3DClass)
-detachObject3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  detachObject3'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function detachAllObjects -}
-detachAllObjects :: HG3DClass -> IO ()
-detachAllObjects a1 =
-  withHG3DClass a1 $ \a1' -> 
-  detachAllObjects'_ a1' >>= \res ->
-  return ()
-{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function isInSceneGraph -}
-isInSceneGraph :: HG3DClass -> IO (Bool)
-isInSceneGraph a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isInSceneGraph'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getCreator -}
-getCreator :: HG3DClass -> IO (HG3DClass)
-getCreator a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCreator'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function removeAndDestroyChild -}
-removeAndDestroyChild :: HG3DClass -> String -> IO ()
-removeAndDestroyChild a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeAndDestroyChild'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function removeAndDestroyChild2 -}
-removeAndDestroyChild2 :: HG3DClass -> Int -> IO ()
-removeAndDestroyChild2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  removeAndDestroyChild2'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function removeAndDestroyAllChildren -}
-removeAndDestroyAllChildren :: HG3DClass -> IO ()
-removeAndDestroyAllChildren a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAndDestroyAllChildren'_ a1' >>= \res ->
-  return ()
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function showBoundingBox -}
-showBoundingBox :: HG3DClass -> Bool -> IO ()
-showBoundingBox a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  showBoundingBox'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function hideBoundingBox -}
-hideBoundingBox :: HG3DClass -> Bool -> IO ()
-hideBoundingBox a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  hideBoundingBox'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getShowBoundingBox -}
-getShowBoundingBox :: HG3DClass -> IO (Bool)
-getShowBoundingBox a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShowBoundingBox'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function createChildSceneNode -}
-createChildSceneNode :: HG3DClass -> Vec3 -> Quaternion -> IO (HG3DClass)
-createChildSceneNode a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec3 a2 $ \a2' -> 
-  withQuaternion a3 $ \a3' -> 
-  alloca $ \a4' -> 
-  createChildSceneNode'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function createChildSceneNode2 -}
-createChildSceneNode2 :: HG3DClass -> String -> Vec3 -> Quaternion -> IO (HG3DClass)
-createChildSceneNode2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  withVec3 a3 $ \a3' -> 
-  withQuaternion a4 $ \a4' -> 
-  alloca $ \a5' -> 
-  createChildSceneNode2'_ a1' a2' a3' a4' a5' >>= \res ->
-  peek  a5'>>= \a5'' -> 
-  return (a5'')
-{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function setFixedYawAxis -}
-setFixedYawAxis :: HG3DClass -> Bool -> Vec3 -> IO ()
-setFixedYawAxis a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  withVec3 a3 $ \a3' -> 
-  setFixedYawAxis'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getAutoTrackTarget -}
-getAutoTrackTarget :: HG3DClass -> IO (HG3DClass)
-getAutoTrackTarget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoTrackTarget'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getAutoTrackOffset -}
-getAutoTrackOffset :: HG3DClass -> IO (Vec3)
-getAutoTrackOffset a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoTrackOffset'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getAutoTrackLocalDirection -}
-getAutoTrackLocalDirection :: HG3DClass -> IO (Vec3)
-getAutoTrackLocalDirection a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAutoTrackLocalDirection'_ a1' a2' >>= \res ->
-  peekVec3  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function getParentSceneNode -}
-getParentSceneNode :: HG3DClass -> IO (HG3DClass)
-getParentSceneNode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getParentSceneNode'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function setVisible -}
-setVisible :: HG3DClass -> Bool -> Bool -> IO ()
-setVisible a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromBool a3} in 
-  setVisible'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function flipVisibility -}
-flipVisibility :: HG3DClass -> Bool -> IO ()
-flipVisibility a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  flipVisibility'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-{- function setDebugDisplayEnabled -}
-setDebugDisplayEnabled :: HG3DClass -> Bool -> Bool -> IO ()
-setDebugDisplayEnabled a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromBool a3} in 
-  setDebugDisplayEnabled'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_attachObject"
-  attachObject'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_numAttachedObjects"
-  numAttachedObjects'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getAttachedObject"
-  getAttachedObject'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getAttachedObject2"
-  getAttachedObject2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_detachObject"
-  detachObject'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_detachObject2"
-  detachObject2'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_detachObject3"
-  detachObject3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_detachAllObjects"
-  detachAllObjects'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_isInSceneGraph"
-  isInSceneGraph'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getCreator"
-  getCreator'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_removeAndDestroyChild"
-  removeAndDestroyChild'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_removeAndDestroyChild2"
-  removeAndDestroyChild2'_ :: ((HG3DClassPtr) -> (CUShort -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_removeAndDestroyAllChildren"
-  removeAndDestroyAllChildren'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_showBoundingBox"
-  showBoundingBox'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_hideBoundingBox"
-  hideBoundingBox'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getShowBoundingBox"
-  getShowBoundingBox'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_createChildSceneNode"
-  createChildSceneNode'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> ((QuaternionPtr) -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_createChildSceneNode2"
-  createChildSceneNode2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Vec3Ptr) -> ((QuaternionPtr) -> ((HG3DClassPtr) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_setFixedYawAxis"
-  setFixedYawAxis'_ :: ((HG3DClassPtr) -> (CInt -> ((Vec3Ptr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getAutoTrackTarget"
-  getAutoTrackTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getAutoTrackOffset"
-  getAutoTrackOffset'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getAutoTrackLocalDirection"
-  getAutoTrackLocalDirection'_ :: ((HG3DClassPtr) -> ((Vec3Ptr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_getParentSceneNode"
-  getParentSceneNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_setVisible"
-  setVisible'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_flipVisibility"
-  flipVisibility'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_setDebugDisplayEnabled"
-  setDebugDisplayEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
+ HGamer3D/Bindings/Ogre/ClassSkeleton.chs view
@@ -0,0 +1,184 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassSkeleton.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassSkeleton where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode #}+
+#include "ClassSkeleton.h"
+{- function ~Skeleton -}+{#fun ogre_skl_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function createBone -}+{#fun ogre_skl_createBone as createBone +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBone2 -}+{#fun ogre_skl_createBone2 as createBone2 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBone3 -}+{#fun ogre_skl_createBone3 as createBone3 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function createBone4 -}+{#fun ogre_skl_createBone4 as createBone4 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getNumBones -}+{#fun ogre_skl_getNumBones as getNumBones +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getRootBone -}+{#fun ogre_skl_getRootBone as getRootBone +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getBone -}+{#fun ogre_skl_getBone as getBone +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getBone2 -}+{#fun ogre_skl_getBone2 as getBone2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasBone -}+{#fun ogre_skl_hasBone as hasBone +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setBindingPose -}+{#fun ogre_skl_setBindingPose as setBindingPose +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function reset -}+{#fun ogre_skl_reset as reset +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function createAnimation -}+{#fun ogre_skl_createAnimation as createAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimation2 -}+{#fun ogre_skl_getAnimation2 as getAnimation2 +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasAnimation -}+{#fun ogre_skl_hasAnimation as hasAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function removeAnimation -}+{#fun ogre_skl_removeAnimation as removeAnimation +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function setAnimationState -}+{#fun ogre_skl_setAnimationState as setAnimationState +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getNumAnimations -}+{#fun ogre_skl_getNumAnimations as getNumAnimations +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getAnimation3 -}+{#fun ogre_skl_getAnimation3 as getAnimation3 +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getBlendMode -}+{#fun ogre_skl_getBlendMode as getBlendMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumSkeletonAnimationBlendMode' peekEnumUtil*} -> `()'  #}++{- function setBlendMode -}+{#fun ogre_skl_setBlendMode as setBlendMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumSkeletonAnimationBlendMode' } -> `()'  #}++{- function optimiseAllAnimations -}+{#fun ogre_skl_optimiseAllAnimations as optimiseAllAnimations +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function addLinkedSkeletonAnimationSource -}+{#fun ogre_skl_addLinkedSkeletonAnimationSource as addLinkedSkeletonAnimationSource +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' ,+ realToFrac `Float' } -> `()'  #}++{- function removeAllLinkedSkeletonAnimationSources -}+{#fun ogre_skl_removeAllLinkedSkeletonAnimationSources as removeAllLinkedSkeletonAnimationSources +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getManualBonesDirty -}+{#fun ogre_skl_getManualBonesDirty as getManualBonesDirty +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function hasManualBones -}+{#fun ogre_skl_hasManualBones as hasManualBones +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassSkeleton.hs 
@@ -1,393 +0,0 @@--- 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\\ClassSkeleton.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassSkeleton.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassSkeleton where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function ~Skeleton -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function createBone -}
-createBone :: HG3DClass -> IO (HG3DClass)
-createBone a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  createBone'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function createBone2 -}
-createBone2 :: HG3DClass -> Int -> IO (HG3DClass)
-createBone2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  createBone2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function createBone3 -}
-createBone3 :: HG3DClass -> String -> IO (HG3DClass)
-createBone3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  createBone3'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function createBone4 -}
-createBone4 :: HG3DClass -> String -> Int -> IO (HG3DClass)
-createBone4 a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  createBone4'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getNumBones -}
-getNumBones :: HG3DClass -> IO (Int)
-getNumBones a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumBones'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getRootBone -}
-getRootBone :: HG3DClass -> IO (HG3DClass)
-getRootBone a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getRootBone'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getBone -}
-getBone :: HG3DClass -> Int -> IO (HG3DClass)
-getBone a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getBone'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getBone2 -}
-getBone2 :: HG3DClass -> String -> IO (HG3DClass)
-getBone2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getBone2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function hasBone -}
-hasBone :: HG3DClass -> String -> IO (Bool)
-hasBone a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasBone'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function setBindingPose -}
-setBindingPose :: HG3DClass -> IO ()
-setBindingPose a1 =
-  withHG3DClass a1 $ \a1' -> 
-  setBindingPose'_ a1' >>= \res ->
-  return ()
-{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function reset -}
-reset :: HG3DClass -> Bool -> IO ()
-reset a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  reset'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function createAnimation -}
-createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
-createAnimation a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  alloca $ \a4' -> 
-  createAnimation'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getAnimation2 -}
-getAnimation2 :: HG3DClass -> String -> IO (HG3DClass)
-getAnimation2 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  getAnimation2'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function hasAnimation -}
-hasAnimation :: HG3DClass -> String -> IO (Bool)
-hasAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  alloca $ \a3' -> 
-  hasAnimation'_ a1' a2' a3' >>= \res ->
-  peekBoolUtil  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function removeAnimation -}
-removeAnimation :: HG3DClass -> String -> IO ()
-removeAnimation a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  removeAnimation'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function setAnimationState -}
-setAnimationState :: HG3DClass -> HG3DClass -> IO ()
-setAnimationState a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setAnimationState'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getNumAnimations -}
-getNumAnimations :: HG3DClass -> IO (Int)
-getNumAnimations a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getNumAnimations'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getAnimation3 -}
-getAnimation3 :: HG3DClass -> Int -> IO (HG3DClass)
-getAnimation3 a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  alloca $ \a3' -> 
-  getAnimation3'_ a1' a2' a3' >>= \res ->
-  peek  a3'>>= \a3'' -> 
-  return (a3'')
-{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getBlendMode -}
-getBlendMode :: HG3DClass -> IO (EnumSkeletonAnimationBlendMode)
-getBlendMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBlendMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function setBlendMode -}
-setBlendMode :: HG3DClass -> EnumSkeletonAnimationBlendMode -> IO ()
-setBlendMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setBlendMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function optimiseAllAnimations -}
-optimiseAllAnimations :: HG3DClass -> Bool -> IO ()
-optimiseAllAnimations a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  optimiseAllAnimations'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function addLinkedSkeletonAnimationSource -}
-addLinkedSkeletonAnimationSource :: HG3DClass -> String -> Float -> IO ()
-addLinkedSkeletonAnimationSource a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  addLinkedSkeletonAnimationSource'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function removeAllLinkedSkeletonAnimationSources -}
-removeAllLinkedSkeletonAnimationSources :: HG3DClass -> IO ()
-removeAllLinkedSkeletonAnimationSources a1 =
-  withHG3DClass a1 $ \a1' -> 
-  removeAllLinkedSkeletonAnimationSources'_ a1' >>= \res ->
-  return ()
-{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function getManualBonesDirty -}
-getManualBonesDirty :: HG3DClass -> IO (Bool)
-getManualBonesDirty a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getManualBonesDirty'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-{- function hasManualBones -}
-hasManualBones :: HG3DClass -> IO (Bool)
-hasManualBones a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasManualBones'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone"
-  createBone'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone2"
-  createBone2'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone3"
-  createBone3'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createBone4"
-  createBone4'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CUShort -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getNumBones"
-  getNumBones'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getRootBone"
-  getRootBone'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBone"
-  getBone'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBone2"
-  getBone2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasBone"
-  hasBone'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setBindingPose"
-  setBindingPose'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_reset"
-  reset'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_createAnimation"
-  createAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getAnimation2"
-  getAnimation2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasAnimation"
-  hasAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_removeAnimation"
-  removeAnimation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setAnimationState"
-  setAnimationState'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getNumAnimations"
-  getNumAnimations'_ :: ((HG3DClassPtr) -> ((Ptr CUShort) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getAnimation3"
-  getAnimation3'_ :: ((HG3DClassPtr) -> (CUShort -> ((HG3DClassPtr) -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getBlendMode"
-  getBlendMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_setBlendMode"
-  setBlendMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_optimiseAllAnimations"
-  optimiseAllAnimations'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_addLinkedSkeletonAnimationSource"
-  addLinkedSkeletonAnimationSource'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (CFloat -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_removeAllLinkedSkeletonAnimationSources"
-  removeAllLinkedSkeletonAnimationSources'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_getManualBonesDirty"
-  getManualBonesDirty'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_hasManualBones"
-  hasManualBones'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassSkeletonManager.chs view
@@ -0,0 +1,59 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassSkeletonManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassSkeletonManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassSkeletonManager.h"
+{- function SkeletonManager -}+{#fun ogre_sklmgr_construct as new +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~SkeletonManager -}+{#fun ogre_sklmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getSingleton -}+{#fun ogre_sklmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_sklmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassSkeletonManager.hs 
@@ -1,99 +0,0 @@--- 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\\ClassSkeletonManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassSkeletonManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassSkeletonManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-
-{- function SkeletonManager -}
-new :: IO (HG3DClass)
-new =
-  alloca $ \a1' -> 
-  new'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-
-{- function ~SkeletonManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs.h ogre_sklmgr_construct"
-  new'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs.h ogre_sklmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs.h ogre_sklmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs.h ogre_sklmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassTextureManager.chs view
@@ -0,0 +1,65 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassTextureManager.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassTextureManager where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassTextureManager.h"
+{- function ~TextureManager -}+{#fun ogre_txmgr_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function setDefaultNumMipmaps -}+{#fun ogre_txmgr_setDefaultNumMipmaps as setDefaultNumMipmaps +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getDefaultNumMipmaps -}+{#fun ogre_txmgr_getDefaultNumMipmaps as getDefaultNumMipmaps +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getSingleton -}+{#fun ogre_txmgr_getSingleton as getSingleton +{ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getSingletonPtr -}+{#fun ogre_txmgr_getSingletonPtr as getSingletonPtr +{ alloca- `HG3DClass' peek*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassTextureManager.hs 
@@ -1,112 +0,0 @@--- 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\\ClassTextureManager.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassTextureManager.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassTextureManager where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-{- function ~TextureManager -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-{- function setDefaultNumMipmaps -}
-setDefaultNumMipmaps :: HG3DClass -> Int -> IO ()
-setDefaultNumMipmaps a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setDefaultNumMipmaps'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-{- function getDefaultNumMipmaps -}
-getDefaultNumMipmaps :: HG3DClass -> IO (Int)
-getDefaultNumMipmaps a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDefaultNumMipmaps'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-{- function getSingleton -}
-getSingleton :: IO (HG3DClass)
-getSingleton =
-  alloca $ \a1' -> 
-  getSingleton'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-{- function getSingletonPtr -}
-getSingletonPtr :: IO (HG3DClass)
-getSingletonPtr =
-  alloca $ \a1' -> 
-  getSingletonPtr'_ a1' >>= \res ->
-  peek  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_setDefaultNumMipmaps"
-  setDefaultNumMipmaps'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_getDefaultNumMipmaps"
-  getDefaultNumMipmaps'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_getSingleton"
-  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_getSingletonPtr"
-  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassTimeIndex.chs view
@@ -0,0 +1,63 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassTimeIndex.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassTimeIndex where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassTimeIndex.h"
+{- function TimeIndex -}+{#fun ogre_tnx_construct as new +{ realToFrac `Float' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function hasKeyIndex -}+{#fun ogre_tnx_hasKeyIndex as hasKeyIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getTimePos -}+{#fun ogre_tnx_getTimePos as getTimePos +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getKeyIndex -}+{#fun ogre_tnx_getKeyIndex as getKeyIndex +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassTimeIndex.hs 
@@ -1,104 +0,0 @@--- 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\\ClassTimeIndex.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassTimeIndex.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassTimeIndex where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-
-{- function TimeIndex -}
-new :: Float -> IO (HG3DClass)
-new a1 =
-  let {a1' = realToFrac a1} in 
-  alloca $ \a2' -> 
-  new'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-
-{- function hasKeyIndex -}
-hasKeyIndex :: HG3DClass -> IO (Bool)
-hasKeyIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasKeyIndex'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-
-{- function getTimePos -}
-getTimePos :: HG3DClass -> IO (Float)
-getTimePos a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTimePos'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-
-{- function getKeyIndex -}
-getKeyIndex :: HG3DClass -> IO (Int)
-getKeyIndex a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getKeyIndex'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs.h ogre_tnx_construct"
-  new'_ :: (CFloat -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs.h ogre_tnx_hasKeyIndex"
-  hasKeyIndex'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs.h ogre_tnx_getTimePos"
-  getTimePos'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs.h ogre_tnx_getKeyIndex"
-  getKeyIndex'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
+ HGamer3D/Bindings/Ogre/ClassVertexAnimationTrack.chs view
@@ -0,0 +1,88 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassVertexAnimationTrack.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.EnumVertexAnimationType #}+{# import HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode #}+
+#include "ClassVertexAnimationTrack.h"
+{- function VertexAnimationTrack -}+{#fun ogre_vat_construct as new +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ cIntFromEnum `EnumVertexAnimationType' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getAnimationType -}+{#fun ogre_vat_getAnimationType as getAnimationType +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumVertexAnimationType' peekEnumUtil*} -> `()'  #}++{- function getVertexAnimationIncludesNormals -}+{#fun ogre_vat_getVertexAnimationIncludesNormals as getVertexAnimationIncludesNormals +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function apply -}+{#fun ogre_vat_apply as apply +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setTargetMode -}+{#fun ogre_vat_setTargetMode as setTargetMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumVertexAnimationTrackTargetMode' } -> `()'  #}++{- function getTargetMode -}+{#fun ogre_vat_getTargetMode as getTargetMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumVertexAnimationTrackTargetMode' peekEnumUtil*} -> `()'  #}++{- function hasNonZeroKeyFrames -}+{#fun ogre_vat_hasNonZeroKeyFrames as hasNonZeroKeyFrames +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function optimise -}+{#fun ogre_vat_optimise as optimise +{ withHG3DClass* `HG3DClass' } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassVertexAnimationTrack.hs 
@@ -1,160 +0,0 @@--- 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\\ClassVertexAnimationTrack.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassVertexAnimationTrack.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function VertexAnimationTrack -}
-new :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass)
-new a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  let {a3' = cIntFromEnum a3} in 
-  alloca $ \a4' -> 
-  new'_ a1' a2' a3' a4' >>= \res ->
-  peek  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function getAnimationType -}
-getAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
-getAnimationType a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getAnimationType'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function getVertexAnimationIncludesNormals -}
-getVertexAnimationIncludesNormals :: HG3DClass -> IO (Bool)
-getVertexAnimationIncludesNormals a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVertexAnimationIncludesNormals'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function apply -}
-apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO ()
-apply a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  apply'_ a1' a2' a3' a4' >>= \res ->
-  return ()
-{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function setTargetMode -}
-setTargetMode :: HG3DClass -> EnumVertexAnimationTrackTargetMode -> IO ()
-setTargetMode a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  setTargetMode'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function getTargetMode -}
-getTargetMode :: HG3DClass -> IO (EnumVertexAnimationTrackTargetMode)
-getTargetMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTargetMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function hasNonZeroKeyFrames -}
-hasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
-hasNonZeroKeyFrames a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  hasNonZeroKeyFrames'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-{- function optimise -}
-optimise :: HG3DClass -> IO ()
-optimise a1 =
-  withHG3DClass a1 $ \a1' -> 
-  optimise'_ a1' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_construct"
-  new'_ :: ((HG3DClassPtr) -> (CUShort -> (CInt -> ((HG3DClassPtr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getAnimationType"
-  getAnimationType'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getVertexAnimationIncludesNormals"
-  getVertexAnimationIncludesNormals'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_apply"
-  apply'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_setTargetMode"
-  setTargetMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_getTargetMode"
-  getTargetMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_hasNonZeroKeyFrames"
-  hasNonZeroKeyFrames'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_optimise"
-  optimise'_ :: ((HG3DClassPtr) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassViewport.chs view
@@ -0,0 +1,290 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassViewport.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassViewport where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+{# import HGamer3D.Bindings.Ogre.StructColour #}+{# import HGamer3D.Bindings.Ogre.EnumOrientationMode #}+{# import HGamer3D.Bindings.Ogre.StructVec2 #}+
+#include "ClassViewport.h"
+{- function Viewport -}+{#fun ogre_vprt_construct as new +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromIntegral `Int' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function ~Viewport -}+{#fun ogre_vprt_destruct as delete +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function update -}+{#fun ogre_vprt_update as update +{ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function clear -}+{#fun ogre_vprt_clear as clear +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' ,+ withColour* `Colour' ,+ realToFrac `Float' ,+ fromIntegral `Int' } -> `()'  #}++{- function getTarget -}+{#fun ogre_vprt_getTarget as getTarget +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function getCamera -}+{#fun ogre_vprt_getCamera as getCamera +{ withHG3DClass* `HG3DClass' ,+ alloca- `HG3DClass' peek*} -> `()'  #}++{- function setCamera -}+{#fun ogre_vprt_setCamera as setCamera +{ withHG3DClass* `HG3DClass' ,+ withHG3DClass* `HG3DClass' } -> `()'  #}++{- function getZOrder -}+{#fun ogre_vprt_getZOrder as getZOrder +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getLeft -}+{#fun ogre_vprt_getLeft as getLeft +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getTop -}+{#fun ogre_vprt_getTop as getTop +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getWidth -}+{#fun ogre_vprt_getWidth as getWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getHeight -}+{#fun ogre_vprt_getHeight as getHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function getActualLeft -}+{#fun ogre_vprt_getActualLeft as getActualLeft +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getActualTop -}+{#fun ogre_vprt_getActualTop as getActualTop +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getActualWidth -}+{#fun ogre_vprt_getActualWidth as getActualWidth +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function getActualHeight -}+{#fun ogre_vprt_getActualHeight as getActualHeight +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setDimensions -}+{#fun ogre_vprt_setDimensions as setDimensions +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ realToFrac `Float' } -> `()'  #}++{- function setOrientationMode -}+{#fun ogre_vprt_setOrientationMode as setOrientationMode +{ withHG3DClass* `HG3DClass' ,+ cIntFromEnum `EnumOrientationMode' ,+ fromBool `Bool' } -> `()'  #}++{- function getOrientationMode -}+{#fun ogre_vprt_getOrientationMode as getOrientationMode +{ withHG3DClass* `HG3DClass' ,+ alloca- `EnumOrientationMode' peekEnumUtil*} -> `()'  #}++{- function setBackgroundColour -}+{#fun ogre_vprt_setBackgroundColour as setBackgroundColour +{ withHG3DClass* `HG3DClass' ,+ withColour* `Colour' } -> `()'  #}++{- function getBackgroundColour -}+{#fun ogre_vprt_getBackgroundColour as getBackgroundColour +{ withHG3DClass* `HG3DClass' ,+ alloca- `Colour' peekColour*} -> `()'  #}++{- function setDepthClear -}+{#fun ogre_vprt_setDepthClear as setDepthClear +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' } -> `()'  #}++{- function getDepthClear -}+{#fun ogre_vprt_getDepthClear as getDepthClear +{ withHG3DClass* `HG3DClass' ,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setClearEveryFrame -}+{#fun ogre_vprt_setClearEveryFrame as setClearEveryFrame +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' ,+ fromIntegral `Int' } -> `()'  #}++{- function getClearEveryFrame -}+{#fun ogre_vprt_getClearEveryFrame as getClearEveryFrame +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function getClearBuffers -}+{#fun ogre_vprt_getClearBuffers as getClearBuffers +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setAutoUpdated -}+{#fun ogre_vprt_setAutoUpdated as setAutoUpdated +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function isAutoUpdated -}+{#fun ogre_vprt_isAutoUpdated as isAutoUpdated +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setMaterialScheme -}+{#fun ogre_vprt_setMaterialScheme as setMaterialScheme +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getMaterialScheme -}+{#fun ogre_vprt_getMaterialScheme as getMaterialScheme +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function getActualDimensions -}+{#fun ogre_vprt_getActualDimensions as getActualDimensions +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setOverlaysEnabled -}+{#fun ogre_vprt_setOverlaysEnabled as setOverlaysEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getOverlaysEnabled -}+{#fun ogre_vprt_getOverlaysEnabled as getOverlaysEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setSkiesEnabled -}+{#fun ogre_vprt_setSkiesEnabled as setSkiesEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getSkiesEnabled -}+{#fun ogre_vprt_getSkiesEnabled as getSkiesEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setShadowsEnabled -}+{#fun ogre_vprt_setShadowsEnabled as setShadowsEnabled +{ withHG3DClass* `HG3DClass' ,+ fromBool `Bool' } -> `()'  #}++{- function getShadowsEnabled -}+{#fun ogre_vprt_getShadowsEnabled as getShadowsEnabled +{ withHG3DClass* `HG3DClass' ,+ alloca- `Bool' peekBoolUtil*} -> `()'  #}++{- function setVisibilityMask -}+{#fun ogre_vprt_setVisibilityMask as setVisibilityMask +{ withHG3DClass* `HG3DClass' ,+ fromIntegral `Int' } -> `()'  #}++{- function getVisibilityMask -}+{#fun ogre_vprt_getVisibilityMask as getVisibilityMask +{ withHG3DClass* `HG3DClass' ,+ alloca- `Int' peekIntConv*} -> `()'  #}++{- function setRenderQueueInvocationSequenceName -}+{#fun ogre_vprt_setRenderQueueInvocationSequenceName as setRenderQueueInvocationSequenceName +{ withHG3DClass* `HG3DClass' ,+ withCString* `String' } -> `()'  #}++{- function getRenderQueueInvocationSequenceName -}+{#fun ogre_vprt_getRenderQueueInvocationSequenceName as getRenderQueueInvocationSequenceName +{ withHG3DClass* `HG3DClass' ,+ alloc64k- `String' peekCString*} -> `()'  #}++{- function pointOrientedToScreen -}+{#fun ogre_vprt_pointOrientedToScreen as pointOrientedToScreen +{ withHG3DClass* `HG3DClass' ,+ withVec2* `Vec2' ,+ fromIntegral `Int' ,+ alloca- `Vec2' peekVec2*} -> `()'  #}++{- function pointOrientedToScreen2 -}+{#fun ogre_vprt_pointOrientedToScreen2 as pointOrientedToScreen2 +{ withHG3DClass* `HG3DClass' ,+ realToFrac `Float' ,+ realToFrac `Float' ,+ fromIntegral `Int' ,+ alloca- `Float' peekFloatConv*,+ alloca- `Float' peekFloatConv*} -> `()'  #}++{- function setDefaultOrientationMode -}+{#fun ogre_vprt_setDefaultOrientationMode as setDefaultOrientationMode +{ cIntFromEnum `EnumOrientationMode' } -> `()'  #}++{- function getDefaultOrientationMode -}+{#fun ogre_vprt_getDefaultOrientationMode as getDefaultOrientationMode +{ alloca- `EnumOrientationMode' peekEnumUtil*} -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassViewport.hs 
@@ -1,649 +0,0 @@--- 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\\ClassViewport.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassViewport.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassViewport where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.StructColour
-{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.EnumOrientationMode
-{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.StructVec2
-{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function Viewport -}
-new :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> Float -> Int -> IO (HG3DClass)
-new a1 a2 a3 a4 a5 a6 a7 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  let {a6' = realToFrac a6} in 
-  let {a7' = fromIntegral a7} in 
-  alloca $ \a8' -> 
-  new'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
-  peek  a8'>>= \a8'' -> 
-  return (a8'')
-{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function ~Viewport -}
-delete :: HG3DClass -> IO ()
-delete a1 =
-  withHG3DClass a1 $ \a1' -> 
-  delete'_ a1' >>= \res ->
-  return ()
-{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function update -}
-update :: HG3DClass -> IO ()
-update a1 =
-  withHG3DClass a1 $ \a1' -> 
-  update'_ a1' >>= \res ->
-  return ()
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function clear -}
-clear :: HG3DClass -> Int -> Colour -> Float -> Int -> IO ()
-clear a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  withColour a3 $ \a3' -> 
-  let {a4' = realToFrac a4} in 
-  let {a5' = fromIntegral a5} in 
-  clear'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getTarget -}
-getTarget :: HG3DClass -> IO (HG3DClass)
-getTarget a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTarget'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getCamera -}
-getCamera :: HG3DClass -> IO (HG3DClass)
-getCamera a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getCamera'_ a1' a2' >>= \res ->
-  peek  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setCamera -}
-setCamera :: HG3DClass -> HG3DClass -> IO ()
-setCamera a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withHG3DClass a2 $ \a2' -> 
-  setCamera'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getZOrder -}
-getZOrder :: HG3DClass -> IO (Int)
-getZOrder a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getZOrder'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getLeft -}
-getLeft :: HG3DClass -> IO (Float)
-getLeft a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getLeft'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getTop -}
-getTop :: HG3DClass -> IO (Float)
-getTop a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getTop'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getWidth -}
-getWidth :: HG3DClass -> IO (Float)
-getWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getWidth'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getHeight -}
-getHeight :: HG3DClass -> IO (Float)
-getHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getHeight'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getActualLeft -}
-getActualLeft :: HG3DClass -> IO (Int)
-getActualLeft a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getActualLeft'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getActualTop -}
-getActualTop :: HG3DClass -> IO (Int)
-getActualTop a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getActualTop'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getActualWidth -}
-getActualWidth :: HG3DClass -> IO (Int)
-getActualWidth a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getActualWidth'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getActualHeight -}
-getActualHeight :: HG3DClass -> IO (Int)
-getActualHeight a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getActualHeight'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setDimensions -}
-setDimensions :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
-setDimensions a1 a2 a3 a4 a5 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = realToFrac a4} in 
-  let {a5' = realToFrac a5} in 
-  setDimensions'_ a1' a2' a3' a4' a5' >>= \res ->
-  return ()
-{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setOrientationMode -}
-setOrientationMode :: HG3DClass -> EnumOrientationMode -> Bool -> IO ()
-setOrientationMode a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = cIntFromEnum a2} in 
-  let {a3' = fromBool a3} in 
-  setOrientationMode'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getOrientationMode -}
-getOrientationMode :: HG3DClass -> IO (EnumOrientationMode)
-getOrientationMode a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOrientationMode'_ a1' a2' >>= \res ->
-  peekEnumUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setBackgroundColour -}
-setBackgroundColour :: HG3DClass -> Colour -> IO ()
-setBackgroundColour a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withColour a2 $ \a2' -> 
-  setBackgroundColour'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getBackgroundColour -}
-getBackgroundColour :: HG3DClass -> IO (Colour)
-getBackgroundColour a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getBackgroundColour'_ a1' a2' >>= \res ->
-  peekColour  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setDepthClear -}
-setDepthClear :: HG3DClass -> Float -> IO ()
-setDepthClear a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  setDepthClear'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getDepthClear -}
-getDepthClear :: HG3DClass -> IO (Float)
-getDepthClear a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getDepthClear'_ a1' a2' >>= \res ->
-  peekFloatConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setClearEveryFrame -}
-setClearEveryFrame :: HG3DClass -> Bool -> Int -> IO ()
-setClearEveryFrame a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  let {a3' = fromIntegral a3} in 
-  setClearEveryFrame'_ a1' a2' a3' >>= \res ->
-  return ()
-{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getClearEveryFrame -}
-getClearEveryFrame :: HG3DClass -> IO (Bool)
-getClearEveryFrame a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getClearEveryFrame'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getClearBuffers -}
-getClearBuffers :: HG3DClass -> IO (Int)
-getClearBuffers a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getClearBuffers'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setAutoUpdated -}
-setAutoUpdated :: HG3DClass -> Bool -> IO ()
-setAutoUpdated a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setAutoUpdated'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function isAutoUpdated -}
-isAutoUpdated :: HG3DClass -> IO (Bool)
-isAutoUpdated a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  isAutoUpdated'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setMaterialScheme -}
-setMaterialScheme :: HG3DClass -> String -> IO ()
-setMaterialScheme a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setMaterialScheme'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getMaterialScheme -}
-getMaterialScheme :: HG3DClass -> IO (String)
-getMaterialScheme a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getMaterialScheme'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getActualDimensions -}
-getActualDimensions :: HG3DClass -> IO (Int, Int, Int, Int)
-getActualDimensions a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  alloca $ \a5' -> 
-  getActualDimensions'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  peekIntConv  a3'>>= \a3'' -> 
-  peekIntConv  a4'>>= \a4'' -> 
-  peekIntConv  a5'>>= \a5'' -> 
-  return (a2'', a3'', a4'', a5'')
-{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setOverlaysEnabled -}
-setOverlaysEnabled :: HG3DClass -> Bool -> IO ()
-setOverlaysEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setOverlaysEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getOverlaysEnabled -}
-getOverlaysEnabled :: HG3DClass -> IO (Bool)
-getOverlaysEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getOverlaysEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setSkiesEnabled -}
-setSkiesEnabled :: HG3DClass -> Bool -> IO ()
-setSkiesEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setSkiesEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getSkiesEnabled -}
-getSkiesEnabled :: HG3DClass -> IO (Bool)
-getSkiesEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getSkiesEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setShadowsEnabled -}
-setShadowsEnabled :: HG3DClass -> Bool -> IO ()
-setShadowsEnabled a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromBool a2} in 
-  setShadowsEnabled'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 243 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getShadowsEnabled -}
-getShadowsEnabled :: HG3DClass -> IO (Bool)
-getShadowsEnabled a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getShadowsEnabled'_ a1' a2' >>= \res ->
-  peekBoolUtil  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 248 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setVisibilityMask -}
-setVisibilityMask :: HG3DClass -> Int -> IO ()
-setVisibilityMask a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = fromIntegral a2} in 
-  setVisibilityMask'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getVisibilityMask -}
-getVisibilityMask :: HG3DClass -> IO (Int)
-getVisibilityMask a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  getVisibilityMask'_ a1' a2' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setRenderQueueInvocationSequenceName -}
-setRenderQueueInvocationSequenceName :: HG3DClass -> String -> IO ()
-setRenderQueueInvocationSequenceName a1 a2 =
-  withHG3DClass a1 $ \a1' -> 
-  withCString a2 $ \a2' -> 
-  setRenderQueueInvocationSequenceName'_ a1' a2' >>= \res ->
-  return ()
-{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getRenderQueueInvocationSequenceName -}
-getRenderQueueInvocationSequenceName :: HG3DClass -> IO (String)
-getRenderQueueInvocationSequenceName a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloc64k $ \a2' -> 
-  getRenderQueueInvocationSequenceName'_ a1' a2' >>= \res ->
-  peekCString  a2'>>= \a2'' -> 
-  return (a2'')
-{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function pointOrientedToScreen -}
-pointOrientedToScreen :: HG3DClass -> Vec2 -> Int -> IO (Vec2)
-pointOrientedToScreen a1 a2 a3 =
-  withHG3DClass a1 $ \a1' -> 
-  withVec2 a2 $ \a2' -> 
-  let {a3' = fromIntegral a3} in 
-  alloca $ \a4' -> 
-  pointOrientedToScreen'_ a1' a2' a3' a4' >>= \res ->
-  peekVec2  a4'>>= \a4'' -> 
-  return (a4'')
-{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function pointOrientedToScreen2 -}
-pointOrientedToScreen2 :: HG3DClass -> Float -> Float -> Int -> IO (Float, Float)
-pointOrientedToScreen2 a1 a2 a3 a4 =
-  withHG3DClass a1 $ \a1' -> 
-  let {a2' = realToFrac a2} in 
-  let {a3' = realToFrac a3} in 
-  let {a4' = fromIntegral a4} in 
-  alloca $ \a5' -> 
-  alloca $ \a6' -> 
-  pointOrientedToScreen2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
-  peekFloatConv  a5'>>= \a5'' -> 
-  peekFloatConv  a6'>>= \a6'' -> 
-  return (a5'', a6'')
-{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function setDefaultOrientationMode -}
-setDefaultOrientationMode :: EnumOrientationMode -> IO ()
-setDefaultOrientationMode a1 =
-  let {a1' = cIntFromEnum a1} in 
-  setDefaultOrientationMode'_ a1' >>= \res ->
-  return ()
-{-# LINE 288 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-{- function getDefaultOrientationMode -}
-getDefaultOrientationMode :: IO (EnumOrientationMode)
-getDefaultOrientationMode =
-  alloca $ \a1' -> 
-  getDefaultOrientationMode'_ a1' >>= \res ->
-  peekEnumUtil  a1'>>= \a1'' -> 
-  return (a1'')
-{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_construct"
-  new'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (CInt -> ((HG3DClassPtr) -> (IO ())))))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_destruct"
-  delete'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_update"
-  update'_ :: ((HG3DClassPtr) -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_clear"
-  clear'_ :: ((HG3DClassPtr) -> (CUInt -> ((ColourPtr) -> (CFloat -> (CUShort -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getTarget"
-  getTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getCamera"
-  getCamera'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setCamera"
-  setCamera'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getZOrder"
-  getZOrder'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getLeft"
-  getLeft'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getTop"
-  getTop'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getWidth"
-  getWidth'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getHeight"
-  getHeight'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getActualLeft"
-  getActualLeft'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getActualTop"
-  getActualTop'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getActualWidth"
-  getActualWidth'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getActualHeight"
-  getActualHeight'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setDimensions"
-  setDimensions'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setOrientationMode"
-  setOrientationMode'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getOrientationMode"
-  getOrientationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setBackgroundColour"
-  setBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getBackgroundColour"
-  getBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setDepthClear"
-  setDepthClear'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getDepthClear"
-  getDepthClear'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setClearEveryFrame"
-  setClearEveryFrame'_ :: ((HG3DClassPtr) -> (CInt -> (CUInt -> (IO ()))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getClearEveryFrame"
-  getClearEveryFrame'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getClearBuffers"
-  getClearBuffers'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setAutoUpdated"
-  setAutoUpdated'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_isAutoUpdated"
-  isAutoUpdated'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setMaterialScheme"
-  setMaterialScheme'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getMaterialScheme"
-  getMaterialScheme'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getActualDimensions"
-  getActualDimensions'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> ((Ptr CInt) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setOverlaysEnabled"
-  setOverlaysEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getOverlaysEnabled"
-  getOverlaysEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setSkiesEnabled"
-  setSkiesEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getSkiesEnabled"
-  getSkiesEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setShadowsEnabled"
-  setShadowsEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getShadowsEnabled"
-  getShadowsEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setVisibilityMask"
-  setVisibilityMask'_ :: ((HG3DClassPtr) -> (CUInt -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getVisibilityMask"
-  getVisibilityMask'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setRenderQueueInvocationSequenceName"
-  setRenderQueueInvocationSequenceName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getRenderQueueInvocationSequenceName"
-  getRenderQueueInvocationSequenceName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_pointOrientedToScreen"
-  pointOrientedToScreen'_ :: ((HG3DClassPtr) -> ((Vec2Ptr) -> (CInt -> ((Vec2Ptr) -> (IO ())))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_pointOrientedToScreen2"
-  pointOrientedToScreen2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CInt -> ((Ptr CFloat) -> ((Ptr CFloat) -> (IO ())))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_setDefaultOrientationMode"
-  setDefaultOrientationMode'_ :: (CInt -> (IO ()))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_getDefaultOrientationMode"
-  getDefaultOrientationMode'_ :: ((Ptr CInt) -> (IO ()))
+ HGamer3D/Bindings/Ogre/ClassWindowEventUtilities.chs view
@@ -0,0 +1,47 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- ClassWindowEventUtilities.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.ClassWindowEventUtilities where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+{# import HGamer3D.Bindings.Ogre.Utils #}+{# import HGamer3D.Bindings.Ogre.ClassPtr #}+{# import HGamer3D.Bindings.Ogre.StructHG3DClass #}+
+#include "ClassWindowEventUtilities.h"
+{- function messagePump -}+{#fun ogre_weu_messagePump as messagePump +{ } -> `()'  #}+
− HGamer3D/Bindings/Ogre/ClassWindowEventUtilities.hs 
@@ -1,62 +0,0 @@--- 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\\ClassWindowEventUtilities.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassWindowEventUtilities.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassWindowEventUtilities where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
-
-{- function messagePump -}
-messagePump :: IO ()
-messagePump =
-  messagePump'_ >>= \res ->
-  return ()
-{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs.h ogre_weu_messagePump"
-  messagePump'_ :: (IO ())
− HGamer3D/Bindings/Ogre/ClassWindowUtilsHG3D.hs 
@@ -1,82 +0,0 @@--- 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\\ClassWindowUtilsHG3D.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- ClassWindowUtilsHG3D.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.ClassWindowUtilsHG3D where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-}
-import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-}
-import HGamer3D.Bindings.Ogre.StructHG3DClass
-{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-}
-
-{- function getWindowTopLeft -}
-getWindowTopLeft :: HG3DClass -> IO (Int, Int, Int, Int)
-getWindowTopLeft a1 =
-  withHG3DClass a1 $ \a1' -> 
-  alloca $ \a2' -> 
-  alloca $ \a3' -> 
-  alloca $ \a4' -> 
-  alloca $ \a5' -> 
-  getWindowTopLeft'_ a1' a2' a3' a4' a5' >>= \res ->
-  peekIntConv  a2'>>= \a2'' -> 
-  peekIntConv  a3'>>= \a3'' -> 
-  peekIntConv  a4'>>= \a4'' -> 
-  peekIntConv  a5'>>= \a5'' -> 
-  return (a2'', a3'', a4'', a5'')
-{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-}
-
-{- function showCursor -}
-showCursor :: Bool -> IO ()
-showCursor a1 =
-  let {a1' = fromBool a1} in 
-  showCursor'_ a1' >>= \res ->
-  return ()
-{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-}
-
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs.h ogre_wuhg3d_getWindowTopLeft"
-  getWindowTopLeft'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> ((Ptr CInt) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))))
-
-foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs.h ogre_wuhg3d_showCursor"
-  showCursor'_ :: (CInt -> (IO ()))
+ HGamer3D/Bindings/Ogre/EnumAnimationInterpolationMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumAnimationInterpolationMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumAnimationInterpolationMode.h"
+{#enum EnumAnimationInterpolationMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumAnimationInterpolationMode.hs 
@@ -1,49 +0,0 @@--- 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\\EnumAnimationInterpolationMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumAnimationInterpolationMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumAnimationInterpolationMode = IM_LINEAR
-                                    | IM_SPLINE
-                                    deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumAnimationRotationInterpolationMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumAnimationRotationInterpolationMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumAnimationRotationInterpolationMode.h"
+{#enum EnumAnimationRotationInterpolationMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumAnimationRotationInterpolationMode.hs 
@@ -1,49 +0,0 @@--- 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\\EnumAnimationRotationInterpolationMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumAnimationRotationInterpolationMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumAnimationRotationInterpolationMode = RIM_LINEAR
-                                            | RIM_SPHERICAL
-                                            deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxCorner.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumAxisAlignedBoxCorner.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxCorner where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumAxisAlignedBoxCorner.h"
+{#enum EnumAxisAlignedBoxCorner {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxCorner.hs 
@@ -1,74 +0,0 @@--- 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\\EnumAxisAlignedBoxCorner.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumAxisAlignedBoxCorner.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxCorner where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumAxisAlignedBoxCorner = CE_FAR_LEFT_BOTTOM
-                              | CE_FAR_LEFT_TOP
-                              | CE_FAR_RIGHT_TOP
-                              | CE_FAR_RIGHT_BOTTOM
-                              | CE_NEAR_RIGHT_BOTTOM
-                              | CE_NEAR_LEFT_BOTTOM
-                              | CE_NEAR_LEFT_TOP
-                              | CE_NEAR_RIGHT_TOP
-                              deriving (Eq)
-instance Enum EnumAxisAlignedBoxCorner where
-  fromEnum CE_FAR_LEFT_BOTTOM = 0
-  fromEnum CE_FAR_LEFT_TOP = 1
-  fromEnum CE_FAR_RIGHT_TOP = 2
-  fromEnum CE_FAR_RIGHT_BOTTOM = 3
-  fromEnum CE_NEAR_RIGHT_BOTTOM = 7
-  fromEnum CE_NEAR_LEFT_BOTTOM = 6
-  fromEnum CE_NEAR_LEFT_TOP = 5
-  fromEnum CE_NEAR_RIGHT_TOP = 4
-
-  toEnum 0 = CE_FAR_LEFT_BOTTOM
-  toEnum 1 = CE_FAR_LEFT_TOP
-  toEnum 2 = CE_FAR_RIGHT_TOP
-  toEnum 3 = CE_FAR_RIGHT_BOTTOM
-  toEnum 7 = CE_NEAR_RIGHT_BOTTOM
-  toEnum 6 = CE_NEAR_LEFT_BOTTOM
-  toEnum 5 = CE_NEAR_LEFT_TOP
-  toEnum 4 = CE_NEAR_RIGHT_TOP
-  toEnum unmatched = error ("EnumAxisAlignedBoxCorner.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxExtent.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumAxisAlignedBoxExtent.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxExtent where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumAxisAlignedBoxExtent.h"
+{#enum EnumAxisAlignedBoxExtent {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxExtent.hs 
@@ -1,50 +0,0 @@--- 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\\EnumAxisAlignedBoxExtent.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumAxisAlignedBoxExtent.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumAxisAlignedBoxExtent where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumAxisAlignedBoxExtent = EXTENT_NULL
-                              | EXTENT_FINITE
-                              | EXTENT_INFINITE
-                              deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumBillboardChainTexCoordDirection.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumBillboardChainTexCoordDirection.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumBillboardChainTexCoordDirection.h"
+{#enum EnumBillboardChainTexCoordDirection {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumBillboardChainTexCoordDirection.hs 
@@ -1,49 +0,0 @@--- 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\\EnumBillboardChainTexCoordDirection.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumBillboardChainTexCoordDirection.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumBillboardChainTexCoordDirection = TCD_U
-                                         | TCD_V
-                                         deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumBillboardOrigin.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumBillboardOrigin.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumBillboardOrigin where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumBillboardOrigin.h"
+{#enum EnumBillboardOrigin {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumBillboardOrigin.hs 
@@ -1,56 +0,0 @@--- 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\\EnumBillboardOrigin.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumBillboardOrigin.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumBillboardOrigin where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumBillboardOrigin = BBO_TOP_LEFT
-                         | BBO_TOP_CENTER
-                         | BBO_TOP_RIGHT
-                         | BBO_CENTER_LEFT
-                         | BBO_CENTER
-                         | BBO_CENTER_RIGHT
-                         | BBO_BOTTOM_LEFT
-                         | BBO_BOTTOM_CENTER
-                         | BBO_BOTTOM_RIGHT
-                         deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumBillboardRotationType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumBillboardRotationType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumBillboardRotationType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumBillboardRotationType.h"
+{#enum EnumBillboardRotationType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumBillboardRotationType.hs 
@@ -1,49 +0,0 @@--- 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\\EnumBillboardRotationType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumBillboardRotationType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumBillboardRotationType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumBillboardRotationType = BBR_VERTEX
-                               | BBR_TEXCOORD
-                               deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumBillboardType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumBillboardType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumBillboardType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumBillboardType.h"
+{#enum EnumBillboardType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumBillboardType.hs 
@@ -1,52 +0,0 @@--- 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\\EnumBillboardType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumBillboardType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumBillboardType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumBillboardType = BBT_POINT
-                       | BBT_ORIENTED_COMMON
-                       | BBT_ORIENTED_SELF
-                       | BBT_PERPENDICULAR_COMMON
-                       | BBT_PERPENDICULAR_SELF
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumDataStreamAccessMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumDataStreamAccessMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumDataStreamAccessMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumDataStreamAccessMode.h"
+{#enum EnumDataStreamAccessMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumDataStreamAccessMode.hs 
@@ -1,56 +0,0 @@--- 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\\EnumDataStreamAccessMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumDataStreamAccessMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumDataStreamAccessMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumDataStreamAccessMode = AM_READ
-                              | AM_WRITE
-                              deriving (Eq)
-instance Enum EnumDataStreamAccessMode where
-  fromEnum AM_READ = 1
-  fromEnum AM_WRITE = 2
-
-  toEnum 1 = AM_READ
-  toEnum 2 = AM_WRITE
-  toEnum unmatched = error ("EnumDataStreamAccessMode.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumEntityVertexDataBindChoice.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumEntityVertexDataBindChoice.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumEntityVertexDataBindChoice.h"
+{#enum EnumEntityVertexDataBindChoice {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumEntityVertexDataBindChoice.hs 
@@ -1,51 +0,0 @@--- 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\\EnumEntityVertexDataBindChoice.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumEntityVertexDataBindChoice.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumEntityVertexDataBindChoice = BIND_ORIGINAL
-                                    | BIND_SOFTWARE_SKELETAL
-                                    | BIND_SOFTWARE_MORPH
-                                    | BIND_HARDWARE_MORPH
-                                    deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumExceptionCode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumExceptionCode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumExceptionCode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumExceptionCode.h"
+{#enum EnumExceptionCode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumExceptionCode.hs 
@@ -1,57 +0,0 @@--- 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\\EnumExceptionCode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumExceptionCode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumExceptionCode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumExceptionCode = ERR_CANNOT_WRITE_TO_FILE
-                       | ERR_INVALID_STATE
-                       | ERR_INVALIDPARAMS
-                       | ERR_RENDERINGAPI_ERROR
-                       | ERR_DUPLICATE_ITEM
-                       | ERR_ITEM_NOT_FOUND
-                       | ERR_FILE_NOT_FOUND
-                       | ERR_INTERNAL_ERROR
-                       | ERR_RT_ASSERTION_FAILED
-                       | ERR_NOT_IMPLEMENTED
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumFrustumPlane.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumFrustumPlane.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumFrustumPlane where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumFrustumPlane.h"
+{#enum EnumFrustumPlane {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumFrustumPlane.hs 
@@ -1,68 +0,0 @@--- 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\\EnumFrustumPlane.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumFrustumPlane.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumFrustumPlane where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumFrustumPlane = FRUSTUM_PLANE_NEAR
-                      | FRUSTUM_PLANE_FAR
-                      | FRUSTUM_PLANE_LEFT
-                      | FRUSTUM_PLANE_RIGHT
-                      | FRUSTUM_PLANE_TOP
-                      | FRUSTUM_PLANE_BOTTOM
-                      deriving (Eq)
-instance Enum EnumFrustumPlane where
-  fromEnum FRUSTUM_PLANE_NEAR = 0
-  fromEnum FRUSTUM_PLANE_FAR = 1
-  fromEnum FRUSTUM_PLANE_LEFT = 2
-  fromEnum FRUSTUM_PLANE_RIGHT = 3
-  fromEnum FRUSTUM_PLANE_TOP = 4
-  fromEnum FRUSTUM_PLANE_BOTTOM = 5
-
-  toEnum 0 = FRUSTUM_PLANE_NEAR
-  toEnum 1 = FRUSTUM_PLANE_FAR
-  toEnum 2 = FRUSTUM_PLANE_LEFT
-  toEnum 3 = FRUSTUM_PLANE_RIGHT
-  toEnum 4 = FRUSTUM_PLANE_TOP
-  toEnum 5 = FRUSTUM_PLANE_BOTTOM
-  toEnum unmatched = error ("EnumFrustumPlane.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumGpuProgramType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumGpuProgramType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumGpuProgramType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumGpuProgramType.h"
+{#enum EnumGpuProgramType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumGpuProgramType.hs 
@@ -1,50 +0,0 @@--- 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\\EnumGpuProgramType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumGpuProgramType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumGpuProgramType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumGpuProgramType = GPT_VERTEX_PROGRAM
-                        | GPT_FRAGMENT_PROGRAM
-                        | GPT_GEOMETRY_PROGRAM
-                        deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumLightType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumLightType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumLightType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumLightType.h"
+{#enum EnumLightType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumLightType.hs 
@@ -1,59 +0,0 @@--- 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\\EnumLightType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumLightType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumLightType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumLightType = LT_POINT
-                   | LT_DIRECTIONAL
-                   | LT_SPOTLIGHT
-                   deriving (Eq)
-instance Enum EnumLightType where
-  fromEnum LT_POINT = 0
-  fromEnum LT_DIRECTIONAL = 1
-  fromEnum LT_SPOTLIGHT = 2
-
-  toEnum 0 = LT_POINT
-  toEnum 1 = LT_DIRECTIONAL
-  toEnum 2 = LT_SPOTLIGHT
-  toEnum unmatched = error ("EnumLightType.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumLogMessageLevel.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumLogMessageLevel.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumLogMessageLevel where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumLogMessageLevel.h"
+{#enum EnumLogMessageLevel {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumLogMessageLevel.hs 
@@ -1,59 +0,0 @@--- 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\\EnumLogMessageLevel.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumLogMessageLevel.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumLogMessageLevel where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumLogMessageLevel = LML_TRIVIAL
-                         | LML_NORMAL
-                         | LML_CRITICAL
-                         deriving (Eq)
-instance Enum EnumLogMessageLevel where
-  fromEnum LML_TRIVIAL = 1
-  fromEnum LML_NORMAL = 2
-  fromEnum LML_CRITICAL = 3
-
-  toEnum 1 = LML_TRIVIAL
-  toEnum 2 = LML_NORMAL
-  toEnum 3 = LML_CRITICAL
-  toEnum unmatched = error ("EnumLogMessageLevel.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumLoggingLevel.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumLoggingLevel.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumLoggingLevel where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumLoggingLevel.h"
+{#enum EnumLoggingLevel {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumLoggingLevel.hs 
@@ -1,59 +0,0 @@--- 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\\EnumLoggingLevel.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumLoggingLevel.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumLoggingLevel where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumLoggingLevel = LL_LOW
-                      | LL_NORMAL
-                      | LL_BOREME
-                      deriving (Eq)
-instance Enum EnumLoggingLevel where
-  fromEnum LL_LOW = 1
-  fromEnum LL_NORMAL = 2
-  fromEnum LL_BOREME = 3
-
-  toEnum 1 = LL_LOW
-  toEnum 2 = LL_NORMAL
-  toEnum 3 = LL_BOREME
-  toEnum unmatched = error ("EnumLoggingLevel.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumMathAngleUnit.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumMathAngleUnit.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumMathAngleUnit where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumMathAngleUnit.h"
+{#enum EnumMathAngleUnit {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumMathAngleUnit.hs 
@@ -1,49 +0,0 @@--- 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\\EnumMathAngleUnit.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumMathAngleUnit.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumMathAngleUnit where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumMathAngleUnit = AU_DEGREE
-                       | AU_RADIAN
-                       deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumMeshManagerMeshBuildType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumMeshManagerMeshBuildType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumMeshManagerMeshBuildType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumMeshManagerMeshBuildType.h"
+{#enum EnumMeshManagerMeshBuildType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumMeshManagerMeshBuildType.hs 
@@ -1,50 +0,0 @@--- 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\\EnumMeshManagerMeshBuildType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumMeshManagerMeshBuildType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumMeshManagerMeshBuildType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumMeshManagerMeshBuildType = MBT_PLANE
-                                  | MBT_CURVED_ILLUSION_PLANE
-                                  | MBT_CURVED_PLANE
-                                  deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumNodeTransformSpace.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumNodeTransformSpace.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumNodeTransformSpace where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumNodeTransformSpace.h"
+{#enum EnumNodeTransformSpace {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumNodeTransformSpace.hs 
@@ -1,50 +0,0 @@--- 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\\EnumNodeTransformSpace.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumNodeTransformSpace.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumNodeTransformSpace where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumNodeTransformSpace = TS_LOCAL
-                            | TS_PARENT
-                            | TS_WORLD
-                            deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumOrientationMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumOrientationMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumOrientationMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumOrientationMode.h"
+{#enum EnumOrientationMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumOrientationMode.hs 
@@ -1,71 +0,0 @@--- 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\\EnumOrientationMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumOrientationMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumOrientationMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumOrientationMode = OR_DEGREE_0
-                         | OR_DEGREE_90
-                         | OR_DEGREE_180
-                         | OR_DEGREE_270
-                         | OR_PORTRAIT
-                         | OR_LANDSCAPERIGHT
-                         | OR_LANDSCAPELEFT
-                         deriving (Eq)
-instance Enum EnumOrientationMode where
-  fromEnum OR_DEGREE_0 = 0
-  fromEnum OR_DEGREE_90 = 1
-  fromEnum OR_DEGREE_180 = 2
-  fromEnum OR_DEGREE_270 = 3
-  fromEnum OR_PORTRAIT = 0
-  fromEnum OR_LANDSCAPERIGHT = 1
-  fromEnum OR_LANDSCAPELEFT = 3
-
-  toEnum 0 = OR_DEGREE_0
-  toEnum 1 = OR_DEGREE_90
-  toEnum 2 = OR_DEGREE_180
-  toEnum 3 = OR_DEGREE_270
-  toEnum 0 = OR_PORTRAIT
-  toEnum 1 = OR_LANDSCAPERIGHT
-  toEnum 3 = OR_LANDSCAPELEFT
-  toEnum unmatched = error ("EnumOrientationMode.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumProjectionType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumProjectionType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumProjectionType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumProjectionType.h"
+{#enum EnumProjectionType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumProjectionType.hs 
@@ -1,49 +0,0 @@--- 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\\EnumProjectionType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumProjectionType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumProjectionType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumProjectionType = PT_ORTHOGRAPHIC
-                        | PT_PERSPECTIVE
-                        deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumRenderOperationOperationType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumRenderOperationOperationType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumRenderOperationOperationType.h"
+{#enum EnumRenderOperationOperationType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumRenderOperationOperationType.hs 
@@ -1,68 +0,0 @@--- 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\\EnumRenderOperationOperationType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumRenderOperationOperationType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumRenderOperationOperationType = OT_POINT_LIST
-                                      | OT_LINE_LIST
-                                      | OT_LINE_STRIP
-                                      | OT_TRIANGLE_LIST
-                                      | OT_TRIANGLE_STRIP
-                                      | OT_TRIANGLE_FAN
-                                      deriving (Eq)
-instance Enum EnumRenderOperationOperationType where
-  fromEnum OT_POINT_LIST = 1
-  fromEnum OT_LINE_LIST = 2
-  fromEnum OT_LINE_STRIP = 3
-  fromEnum OT_TRIANGLE_LIST = 4
-  fromEnum OT_TRIANGLE_STRIP = 5
-  fromEnum OT_TRIANGLE_FAN = 6
-
-  toEnum 1 = OT_POINT_LIST
-  toEnum 2 = OT_LINE_LIST
-  toEnum 3 = OT_LINE_STRIP
-  toEnum 4 = OT_TRIANGLE_LIST
-  toEnum 5 = OT_TRIANGLE_STRIP
-  toEnum 6 = OT_TRIANGLE_FAN
-  toEnum unmatched = error ("EnumRenderOperationOperationType.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumRenderTargetFrameBuffer.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumRenderTargetFrameBuffer.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumRenderTargetFrameBuffer where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumRenderTargetFrameBuffer.h"
+{#enum EnumRenderTargetFrameBuffer {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumRenderTargetFrameBuffer.hs 
@@ -1,50 +0,0 @@--- 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\\EnumRenderTargetFrameBuffer.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumRenderTargetFrameBuffer.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumRenderTargetFrameBuffer where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumRenderTargetFrameBuffer = FB_FRONT
-                                 | FB_BACK
-                                 | FB_AUTO
-                                 deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumRenderTargetStatFlags.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumRenderTargetStatFlags.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumRenderTargetStatFlags where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumRenderTargetStatFlags.h"
+{#enum EnumRenderTargetStatFlags {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumRenderTargetStatFlags.hs 
@@ -1,71 +0,0 @@--- 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\\EnumRenderTargetStatFlags.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumRenderTargetStatFlags.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumRenderTargetStatFlags where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumRenderTargetStatFlags = SF_NONE
-                               | SF_FPS
-                               | SF_AVG_FPS
-                               | SF_BEST_FPS
-                               | SF_WORST_FPS
-                               | SF_TRIANGLE_COUNT
-                               | SF_ALL
-                               deriving (Eq)
-instance Enum EnumRenderTargetStatFlags where
-  fromEnum SF_NONE = 0
-  fromEnum SF_FPS = 1
-  fromEnum SF_AVG_FPS = 2
-  fromEnum SF_BEST_FPS = 4
-  fromEnum SF_WORST_FPS = 8
-  fromEnum SF_TRIANGLE_COUNT = 16
-  fromEnum SF_ALL = 65535
-
-  toEnum 0 = SF_NONE
-  toEnum 1 = SF_FPS
-  toEnum 2 = SF_AVG_FPS
-  toEnum 4 = SF_BEST_FPS
-  toEnum 8 = SF_WORST_FPS
-  toEnum 16 = SF_TRIANGLE_COUNT
-  toEnum 65535 = SF_ALL
-  toEnum unmatched = error ("EnumRenderTargetStatFlags.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumRootFrameEventTimeType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumRootFrameEventTimeType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumRootFrameEventTimeType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumRootFrameEventTimeType.h"
+{#enum EnumRootFrameEventTimeType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumRootFrameEventTimeType.hs 
@@ -1,65 +0,0 @@--- 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\\EnumRootFrameEventTimeType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumRootFrameEventTimeType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumRootFrameEventTimeType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumRootFrameEventTimeType = FETT_ANY
-                                | FETT_STARTED
-                                | FETT_QUEUED
-                                | FETT_ENDED
-                                | FETT_COUNT
-                                deriving (Eq)
-instance Enum EnumRootFrameEventTimeType where
-  fromEnum FETT_ANY = 0
-  fromEnum FETT_STARTED = 1
-  fromEnum FETT_QUEUED = 2
-  fromEnum FETT_ENDED = 3
-  fromEnum FETT_COUNT = 4
-
-  toEnum 0 = FETT_ANY
-  toEnum 1 = FETT_STARTED
-  toEnum 2 = FETT_QUEUED
-  toEnum 3 = FETT_ENDED
-  toEnum 4 = FETT_COUNT
-  toEnum unmatched = error ("EnumRootFrameEventTimeType.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumSceneManagerBoxPlane.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSceneManagerBoxPlane.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSceneManagerBoxPlane where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSceneManagerBoxPlane.h"
+{#enum EnumSceneManagerBoxPlane {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSceneManagerBoxPlane.hs 
@@ -1,68 +0,0 @@--- 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\\EnumSceneManagerBoxPlane.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSceneManagerBoxPlane.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSceneManagerBoxPlane where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSceneManagerBoxPlane = BP_FRONT
-                              | BP_BACK
-                              | BP_LEFT
-                              | BP_RIGHT
-                              | BP_UP
-                              | BP_DOWN
-                              deriving (Eq)
-instance Enum EnumSceneManagerBoxPlane where
-  fromEnum BP_FRONT = 0
-  fromEnum BP_BACK = 1
-  fromEnum BP_LEFT = 2
-  fromEnum BP_RIGHT = 3
-  fromEnum BP_UP = 4
-  fromEnum BP_DOWN = 5
-
-  toEnum 0 = BP_FRONT
-  toEnum 1 = BP_BACK
-  toEnum 2 = BP_LEFT
-  toEnum 3 = BP_RIGHT
-  toEnum 4 = BP_UP
-  toEnum 5 = BP_DOWN
-  toEnum unmatched = error ("EnumSceneManagerBoxPlane.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumSceneManagerIlluminationRenderStage.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSceneManagerIlluminationRenderStage.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSceneManagerIlluminationRenderStage where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSceneManagerIlluminationRenderStage.h"
+{#enum EnumSceneManagerIlluminationRenderStage {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSceneManagerIlluminationRenderStage.hs 
@@ -1,50 +0,0 @@--- 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\\EnumSceneManagerIlluminationRenderStage.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSceneManagerIlluminationRenderStage.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSceneManagerIlluminationRenderStage where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSceneManagerIlluminationRenderStage = IRS_NONE
-                                             | IRS_RENDER_TO_TEXTURE
-                                             | IRS_RENDER_RECEIVER_PASS
-                                             deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumSceneManagerPrefabType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSceneManagerPrefabType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSceneManagerPrefabType.h"
+{#enum EnumSceneManagerPrefabType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSceneManagerPrefabType.hs 
@@ -1,50 +0,0 @@--- 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\\EnumSceneManagerPrefabType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSceneManagerPrefabType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSceneManagerPrefabType = PT_PLANE
-                                | PT_CUBE
-                                | PT_SPHERE
-                                deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumSceneManagerSpecialCaseRenderQueueMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSceneManagerSpecialCaseRenderQueueMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSceneManagerSpecialCaseRenderQueueMode.h"
+{#enum EnumSceneManagerSpecialCaseRenderQueueMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSceneManagerSpecialCaseRenderQueueMode.hs 
@@ -1,49 +0,0 @@--- 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\\EnumSceneManagerSpecialCaseRenderQueueMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSceneManagerSpecialCaseRenderQueueMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSceneManagerSpecialCaseRenderQueueMode = SCRQM_INCLUDE
-                                                | SCRQM_EXCLUDE
-                                                deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumSceneType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSceneType.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSceneType where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSceneType.h"
+{#enum EnumSceneType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSceneType.hs 
@@ -1,65 +0,0 @@--- 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\\EnumSceneType.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSceneType.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSceneType where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSceneType = ST_GENERIC
-                   | ST_EXTERIOR_CLOSE
-                   | ST_EXTERIOR_FAR
-                   | ST_EXTERIOR_REAL_FAR
-                   | ST_INTERIOR
-                   deriving (Eq)
-instance Enum EnumSceneType where
-  fromEnum ST_GENERIC = 1
-  fromEnum ST_EXTERIOR_CLOSE = 2
-  fromEnum ST_EXTERIOR_FAR = 4
-  fromEnum ST_EXTERIOR_REAL_FAR = 8
-  fromEnum ST_INTERIOR = 16
-
-  toEnum 1 = ST_GENERIC
-  toEnum 2 = ST_EXTERIOR_CLOSE
-  toEnum 4 = ST_EXTERIOR_FAR
-  toEnum 8 = ST_EXTERIOR_REAL_FAR
-  toEnum 16 = ST_INTERIOR
-  toEnum unmatched = error ("EnumSceneType.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumSkeletonAnimationBlendMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumSkeletonAnimationBlendMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumSkeletonAnimationBlendMode.h"
+{#enum EnumSkeletonAnimationBlendMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumSkeletonAnimationBlendMode.hs 
@@ -1,56 +0,0 @@--- 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\\EnumSkeletonAnimationBlendMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumSkeletonAnimationBlendMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumSkeletonAnimationBlendMode = ANIMBLEND_AVERAGE
-                                    | ANIMBLEND_CUMULATIVE
-                                    deriving (Eq)
-instance Enum EnumSkeletonAnimationBlendMode where
-  fromEnum ANIMBLEND_AVERAGE = 0
-  fromEnum ANIMBLEND_CUMULATIVE = 1
-
-  toEnum 0 = ANIMBLEND_AVERAGE
-  toEnum 1 = ANIMBLEND_CUMULATIVE
-  toEnum unmatched = error ("EnumSkeletonAnimationBlendMode.toEnum: Cannot match " ++ show unmatched)
+ HGamer3D/Bindings/Ogre/EnumStencilOperation.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumStencilOperation.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumStencilOperation where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumStencilOperation.h"
+{#enum EnumStencilOperation {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumStencilOperation.hs 
@@ -1,55 +0,0 @@--- 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\\EnumStencilOperation.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumStencilOperation.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumStencilOperation where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumStencilOperation = SOP_KEEP
-                          | SOP_ZERO
-                          | SOP_REPLACE
-                          | SOP_INCREMENT
-                          | SOP_DECREMENT
-                          | SOP_INCREMENT_WRAP
-                          | SOP_DECREMENT_WRAP
-                          | SOP_INVERT
-                          deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumTexCoordCalcMethod.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumTexCoordCalcMethod.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumTexCoordCalcMethod.h"
+{#enum EnumTexCoordCalcMethod {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumTexCoordCalcMethod.hs 
@@ -1,53 +0,0 @@--- 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\\EnumTexCoordCalcMethod.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumTexCoordCalcMethod.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumTexCoordCalcMethod = TEXCALC_NONE
-                            | TEXCALC_ENVIRONMENT_MAP
-                            | TEXCALC_ENVIRONMENT_MAP_PLANAR
-                            | TEXCALC_ENVIRONMENT_MAP_REFLECTION
-                            | TEXCALC_ENVIRONMENT_MAP_NORMAL
-                            | TEXCALC_PROJECTIVE_TEXTURE
-                            deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumVertexAnimationTrackTargetMode.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- EnumVertexAnimationTrackTargetMode.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumVertexAnimationTrackTargetMode.h"
+{#enum EnumVertexAnimationTrackTargetMode {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumVertexAnimationTrackTargetMode.hs 
@@ -1,49 +0,0 @@--- 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\\EnumVertexAnimationTrackTargetMode.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- EnumVertexAnimationTrackTargetMode.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumVertexAnimationTrackTargetMode = TM_SOFTWARE
-                                        | TM_HARDWARE
-                                        deriving (Enum,Eq)
+ HGamer3D/Bindings/Ogre/EnumVertexAnimationType.chs view
@@ -0,0 +1,41 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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 Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "EnumVertexAnimationType.h"
+{#enum EnumVertexAnimationType {} deriving (Eq)#}
− HGamer3D/Bindings/Ogre/EnumVertexAnimationType.hs 
@@ -1,59 +0,0 @@--- 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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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 Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-data EnumVertexAnimationType = VAT_NONE
-                             | VAT_MORPH
-                             | 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)
+ HGamer3D/Bindings/Ogre/StructColour.chs view
@@ -0,0 +1,67 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructColour.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructColour where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructColour.h"
++import Data.Bits+import HGamer3D.Data.Colour++instance Storable Colour where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof colourvalue_struct#}+  peek p = do+	r <- {#get colourvalue_struct.r #} p+	g <- {#get colourvalue_struct.g #} p+	b <- {#get colourvalue_struct.b #} p+	a <- {#get colourvalue_struct.a #} p+	let cv = Colour (realToFrac r) (realToFrac g) (realToFrac b) (realToFrac a)+	return cv+  poke p (Colour r g b a) = do+    {#set colourvalue_struct.r #} p (realToFrac r)+    {#set colourvalue_struct.g #} p (realToFrac g)+    {#set colourvalue_struct.b #} p (realToFrac b)+    {#set colourvalue_struct.a #} p (realToFrac a)+    +{#pointer *colourvalue_struct as ColourPtr -> Colour #}++withColour :: Colour -> (ColourPtr -> IO b) -> IO b+withColour = with+peekColour :: ColourPtr -> IO Colour+peekColour = peek+
− HGamer3D/Bindings/Ogre/StructColour.hs 
@@ -1,75 +0,0 @@--- 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\\StructColour.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructColour.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructColour where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Colour
-
-instance Storable Colour where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 16
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-}
-  peek p = do
-	r <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	g <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
-	b <- (\ptr -> do {peekByteOff ptr 8 ::IO CFloat}) p
-	a <- (\ptr -> do {peekByteOff ptr 12 ::IO CFloat}) p
-	let cv = Colour (realToFrac r) (realToFrac g) (realToFrac b) (realToFrac a)
-	return cv
-  poke p (Colour r g b a) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac r)
-    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac g)
-    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac b)
-    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac a)
-    
-type ColourPtr = Ptr (Colour)
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-}
-
-withColour :: Colour -> (ColourPtr -> IO b) -> IO b
-withColour = with
-peekColour :: ColourPtr -> IO Colour
-peekColour = peek
-
+ HGamer3D/Bindings/Ogre/StructDegrees.chs view
@@ -0,0 +1,61 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructDegrees.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructDegrees where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructDegrees.h"
++import Data.Bits+import HGamer3D.Data.Angle++instance Storable Degrees where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof degree_struct#}+  peek p = do+	d <- {#get degree_struct.d #} p+	let de = Degrees (realToFrac d)+	return de+  poke p (Degrees d) = do+    {#set degree_struct.d #} p (realToFrac d)+  +{#pointer *degree_struct as DegreesPtr -> Degrees #}++withDegrees :: Degrees -> (DegreesPtr -> IO b) -> IO b+withDegrees = with+peekDegrees :: DegreesPtr -> IO Degrees+peekDegrees = peek+
− HGamer3D/Bindings/Ogre/StructDegrees.hs 
@@ -1,69 +0,0 @@--- 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\\StructDegrees.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructDegrees.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructDegrees where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Angle
-
-instance Storable Degrees where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 4
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-}
-  peek p = do
-	d <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	let de = Degrees (realToFrac d)
-	return de
-  poke p (Degrees d) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac d)
-  
-type DegreesPtr = Ptr (Degrees)
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-}
-
-withDegrees :: Degrees -> (DegreesPtr -> IO b) -> IO b
-withDegrees = with
-peekDegrees :: DegreesPtr -> IO Degrees
-peekDegrees = peek
-
+ HGamer3D/Bindings/Ogre/StructHG3DClass.chs view
@@ -0,0 +1,54 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructHG3DClass.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructHG3DClass where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructHG3DClass.h"
++import Data.Bits+import HGamer3D.Data.HG3DClass++{#pointer *hg3dclass_struct as HG3DClassPtr -> HG3DClass #}++withHG3DClass :: HG3DClass -> (HG3DClassPtr -> IO b) -> IO b+withHG3DClass = with++peekHG3DClass :: HG3DClassPtr -> IO HG3DClass+peekHG3DClass = peek+++
− HGamer3D/Bindings/Ogre/StructHG3DClass.hs 
@@ -1,61 +0,0 @@--- 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\\StructHG3DClass.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructHG3DClass.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructHG3DClass where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.HG3DClass
-
-type HG3DClassPtr = Ptr (HG3DClass)
-{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\StructHG3DClass.chs" #-}
-
-withHG3DClass :: HG3DClass -> (HG3DClassPtr -> IO b) -> IO b
-withHG3DClass = with
-
-peekHG3DClass :: HG3DClassPtr -> IO HG3DClass
-peekHG3DClass = peek
-
-
-
+ HGamer3D/Bindings/Ogre/StructQuaternion.chs view
@@ -0,0 +1,76 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructQuaternion.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructQuaternion where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructQuaternion.h"
++import Data.Bits+import HGamer3D.Data.Vector++newtype Quat = Quat Quaternion++instance Storable Quat where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof quaternion_struct#}+  peek p = do+	fw <- {#get quaternion_struct.fw #} p+	fx <- {#get quaternion_struct.fx #} p+	fy <- {#get quaternion_struct.fy #} p+	fz <- {#get quaternion_struct.fz #} p+	let q = Quat ( Q (Vec4 (realToFrac fw) (realToFrac fx) (realToFrac fy) (realToFrac fz) ))+	return q+  poke p (Quat (Q ( Vec4 w x y z))) = do+    {#set quaternion_struct.fw #} p (realToFrac w)+    {#set quaternion_struct.fx #} p (realToFrac x)+    {#set quaternion_struct.fy #} p (realToFrac y)+    {#set quaternion_struct.fz #} p (realToFrac z)+ +type QuatPtr = Ptr (Quat)++{#pointer *quaternion_struct as QuaternionPtr -> Quaternion #}++withQuaternion :: Quaternion -> (QuaternionPtr -> IO b) -> IO b+withQuaternion q f = with q' f' where+     q' = Quat q+     f' p = f (castPtr p)+peekQuaternion p = do+   (Quat q) <- peek ((castPtr p)::QuatPtr)+   return q+++
− HGamer3D/Bindings/Ogre/StructQuaternion.hs 
@@ -1,84 +0,0 @@--- 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\\StructQuaternion.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructQuaternion.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructQuaternion where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Vector
-
-newtype Quat = Quat Quaternion
-
-instance Storable Quat where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 16
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-}
-  peek p = do
-	fw <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	fx <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
-	fy <- (\ptr -> do {peekByteOff ptr 8 ::IO CFloat}) p
-	fz <- (\ptr -> do {peekByteOff ptr 12 ::IO CFloat}) p
-	let q = Quat ( Q (Vec4 (realToFrac fw) (realToFrac fx) (realToFrac fy) (realToFrac fz) ))
-	return q
-  poke p (Quat (Q ( Vec4 w x y z))) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac w)
-    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac x)
-    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac y)
-    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac z)
- 
-type QuatPtr = Ptr (Quat)
-
-type QuaternionPtr = Ptr (Quaternion)
-{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-}
-
-withQuaternion :: Quaternion -> (QuaternionPtr -> IO b) -> IO b
-withQuaternion q f = with q' f' where
-     q' = Quat q
-     f' p = f (castPtr p)
-peekQuaternion p = do
-   (Quat q) <- peek ((castPtr p)::QuatPtr)
-   return q
-
-
-
+ HGamer3D/Bindings/Ogre/StructRadians.chs view
@@ -0,0 +1,62 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructRadians.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructRadians where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructRadians.h"
++import Data.Bits+import HGamer3D.Data.Angle++instance Storable Radians where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof radian_struct#}+  peek p = do+	r <- {#get radian_struct.r #} p+	let ra = Radians (realToFrac r)+	return ra+  poke p (Radians r) = do+    {#set radian_struct.r #} p (realToFrac r)+    +{#pointer *radian_struct as RadiansPtr -> Radians #}++withRadians :: Radians -> (RadiansPtr -> IO b) -> IO b+withRadians = with+peekRadians :: RadiansPtr -> IO Radians+peekRadians = peek++
− HGamer3D/Bindings/Ogre/StructRadians.hs 
@@ -1,70 +0,0 @@--- 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\\StructRadians.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructRadians.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructRadians where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Angle
-
-instance Storable Radians where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 4
-{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-}
-  peek p = do
-	r <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	let ra = Radians (realToFrac r)
-	return ra
-  poke p (Radians r) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac r)
-    
-type RadiansPtr = Ptr (Radians)
-{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-}
-
-withRadians :: Radians -> (RadiansPtr -> IO b) -> IO b
-withRadians = with
-peekRadians :: RadiansPtr -> IO Radians
-peekRadians = peek
-
-
+ HGamer3D/Bindings/Ogre/StructSharedPtr.chs view
@@ -0,0 +1,70 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructSharedPtr.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructSharedPtr where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructSharedPtr.h"
++import Data.Bits++data SharedPtr = SharedPtr {+  spPT :: Ptr (),+  spPCount :: Ptr (),+  spPFreeFunc :: Ptr ()+  } deriving (Eq, Show)++instance Storable SharedPtr where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof sharedptr_struct#}+  peek p = do+	pt <- {#get sharedptr_struct.pT #} p+	pc <- {#get sharedptr_struct.pCount #} p+	pf <- {#get sharedptr_struct.pFreeFunc #} p+	let sp = SharedPtr pt pc pf+	return sp+  poke p (SharedPtr pt pc pf) = do+    {#set sharedptr_struct.pT #} p pt+    {#set sharedptr_struct.pCount #} p pc+    {#set sharedptr_struct.pFreeFunc #} p pf+ +{#pointer *sharedptr_struct as SharedPtrPtr -> SharedPtr #}+   +withSharedPtr :: SharedPtr -> (SharedPtrPtr -> IO b) -> IO b+withSharedPtr = with+peekSharedPtr :: SharedPtrPtr -> IO SharedPtr+peekSharedPtr = peek+
− HGamer3D/Bindings/Ogre/StructSharedPtr.hs 
@@ -1,78 +0,0 @@--- 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\\StructSharedPtr.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructSharedPtr.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructSharedPtr where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-
-data SharedPtr = SharedPtr {
-  spPT :: Ptr (),
-  spPCount :: Ptr (),
-  spPFreeFunc :: Ptr ()
-  } deriving (Eq, Show)
-
-instance Storable SharedPtr where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 12
-{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-}
-  peek p = do
-	pt <- (\ptr -> do {peekByteOff ptr 0 ::IO (Ptr ())}) p
-	pc <- (\ptr -> do {peekByteOff ptr 4 ::IO (Ptr ())}) p
-	pf <- (\ptr -> do {peekByteOff ptr 8 ::IO (Ptr ())}) p
-	let sp = SharedPtr pt pc pf
-	return sp
-  poke p (SharedPtr pt pc pf) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::(Ptr ()))}) p pt
-    (\ptr val -> do {pokeByteOff ptr 4 (val::(Ptr ()))}) p pc
-    (\ptr val -> do {pokeByteOff ptr 8 (val::(Ptr ()))}) p pf
- 
-type SharedPtrPtr = Ptr (SharedPtr)
-{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-}
-   
-withSharedPtr :: SharedPtr -> (SharedPtrPtr -> IO b) -> IO b
-withSharedPtr = with
-peekSharedPtr :: SharedPtrPtr -> IO SharedPtr
-peekSharedPtr = peek
-
+ HGamer3D/Bindings/Ogre/StructVec2.chs view
@@ -0,0 +1,72 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructVec2.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructVec2 where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructVec2.h"
++import Data.Bits+import HGamer3D.Data.Vector++newtype Vector2 = Vector2 Vec2++instance Storable Vector2 where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof vector2_struct#}+  peek p = do+	x <- {#get vector2_struct.x #} p+	y <- {#get vector2_struct.y #} p+	let v = Vector2 ( Vec2 (realToFrac x) (realToFrac y))+	return v+  poke p (Vector2 (Vec2 x y)) = do+    {#set vector2_struct.x #} p (realToFrac x)+    {#set vector2_struct.y #} p (realToFrac y)++type Vector2Ptr = Ptr (Vector2)+    +{#pointer *vector2_struct as Vec2Ptr -> Vec2 #}++withVec2 :: Vec2 -> (Vec2Ptr -> IO b) -> IO b+withVec2 v f = with v' f' where+     v' = Vector2 v+     f' p = f (castPtr p)+peekVec2 :: Vec2Ptr -> IO Vec2+peekVec2 p = do+   (Vector2 v2) <- peek ((castPtr p)::Vector2Ptr)+   return v2++
− HGamer3D/Bindings/Ogre/StructVec2.hs 
@@ -1,80 +0,0 @@--- 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\\StructVec2.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructVec2.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructVec2 where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Vector
-
-newtype Vector2 = Vector2 Vec2
-
-instance Storable Vector2 where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 8
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-}
-  peek p = do
-	x <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
-	let v = Vector2 ( Vec2 (realToFrac x) (realToFrac y))
-	return v
-  poke p (Vector2 (Vec2 x y)) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac x)
-    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac y)
-
-type Vector2Ptr = Ptr (Vector2)
-    
-type Vec2Ptr = Ptr (Vec2)
-{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-}
-
-withVec2 :: Vec2 -> (Vec2Ptr -> IO b) -> IO b
-withVec2 v f = with v' f' where
-     v' = Vector2 v
-     f' p = f (castPtr p)
-peekVec2 :: Vec2Ptr -> IO Vec2
-peekVec2 p = do
-   (Vector2 v2) <- peek ((castPtr p)::Vector2Ptr)
-   return v2
-
-
+ HGamer3D/Bindings/Ogre/StructVec3.chs view
@@ -0,0 +1,72 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- StructVec3.chs
+
+-- +
+module HGamer3D.Bindings.Ogre.StructVec3 where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructVec3.h"
++import Data.Bits+import HGamer3D.Data.Vector++newtype Vector3 = Vector3 Vec3++instance Storable Vector3 where+  alignment _ = alignment (undefined :: CDouble)+  sizeOf _ = {#sizeof vector3_struct#}+  peek p = do+	x <- {#get vector3_struct.x #} p+	y <- {#get vector3_struct.y #} p+	z <- {#get vector3_struct.z #} p+	let v = Vector3 (Vec3 (realToFrac x) (realToFrac y) (realToFrac z))+	return v+  poke p (Vector3 (Vec3 x y z)) = do+    {#set vector3_struct.x #} p (realToFrac x)+    {#set vector3_struct.y #} p (realToFrac  y)+    {#set vector3_struct.z #} p (realToFrac  z)+    +type Vector3Ptr = Ptr (Vector3)++{#pointer *vector3_struct as Vec3Ptr -> Vec3 #}++withVec3 :: Vec3 -> (Vec3Ptr -> IO b) -> IO b+withVec3 v f = with v' f' where+     v' = Vector3 v+     f' p = f (castPtr p)+peekVec3 p = do+   (Vector3 v3) <- peek ((castPtr p)::Vector3Ptr)+   return v3+
− HGamer3D/Bindings/Ogre/StructVec3.hs 
@@ -1,80 +0,0 @@--- 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\\StructVec3.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- StructVec3.chs
-
--- 
-
-module HGamer3D.Bindings.Ogre.StructVec3 where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Data.Bits
-import HGamer3D.Data.Vector
-
-newtype Vector3 = Vector3 Vec3
-
-instance Storable Vector3 where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 12
-{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-}
-  peek p = do
-	x <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
-	z <- (\ptr -> do {peekByteOff ptr 8 ::IO CFloat}) p
-	let v = Vector3 (Vec3 (realToFrac x) (realToFrac y) (realToFrac z))
-	return v
-  poke p (Vector3 (Vec3 x y z)) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac x)
-    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac  y)
-    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac  z)
-    
-type Vector3Ptr = Ptr (Vector3)
-
-type Vec3Ptr = Ptr (Vec3)
-{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-}
-
-withVec3 :: Vec3 -> (Vec3Ptr -> IO b) -> IO b
-withVec3 v f = with v' f' where
-     v' = Vector3 v
-     f' p = f (castPtr p)
-peekVec3 p = do
-   (Vector3 v3) <- peek ((castPtr p)::Vector3Ptr)
-   return v3
-
+ HGamer3D/Bindings/Ogre/Utils.chs view
@@ -0,0 +1,132 @@+{-# 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.hgamer3d.org .
+-- +
+-- (c) 2011-2014 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.
+-- +
+
+-- Utils.hs
+
+-- Marshalling Utilities+
+module HGamer3D.Bindings.Ogre.Utils where
+
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+
+import HGamer3D.Data.HG3DClass
+import HGamer3D.Data.Vector
+import HGamer3D.Data.Colour
+import HGamer3D.Data.Angle
+
+
+#include "StructHG3DClass.h"
++import Control.Monad (liftM)++-- Strings with explicit length+--+withCStringLenIntConv :: Num n => String -> ((CString, n) -> IO a) -> IO a+withCStringLenIntConv s f    = withCStringLen s $ \(p, n) -> f (p, fromIntegral n)++peekCStringLenIntConv :: Integral n => (CString, n) -> IO String+peekCStringLenIntConv (s, n) = peekCStringLen (s, fromIntegral n)++-- Marshalling of numerals+--++withIntConv   :: (Storable b, Integral a, Integral b) +              => a -> (Ptr b -> IO c) -> IO c+withIntConv    = with . fromIntegral++withFloatConv :: (Storable b, RealFloat a, RealFloat b) +              => a -> (Ptr b -> IO c) -> IO c+withFloatConv  = with . realToFrac++peekIntConv   :: (Storable a, Integral a, Integral b) +              => Ptr a -> IO b+peekIntConv    = liftM fromIntegral . peek++peekFloatConv :: (Storable a, RealFloat a, RealFloat b) +              => Ptr a -> IO b+peekFloatConv  = liftM realToFrac . peek+++-- String Conversion functions+--++withCUString b f = withCWString b (f . castPtr)+peekCUString = peekCWString . castPtr+alloc64k = allocaBytes (1024 * 64)++-- c2hs replacements of utility functions, to get rid of annoying c2hs+-- deprecated messages++-- Passing Enums++cIntFromEnum :: Enum a => a -> CInt+cIntFromEnum = cIntConv . fromEnum++cIntToEnum :: Enum a => CInt -> a+cIntToEnum = toEnum . cIntConv+++-- Passing Booleans by reference+--++withBoolUtil :: (Integral a, Storable a) => Bool -> (Ptr a -> IO b) -> IO b+withBoolUtil  = with . fromBool++peekBoolUtil :: (Integral a, Storable a) => Ptr a -> IO Bool+peekBoolUtil  = liftM toBool . peek+++-- Passing enums by reference+--++withEnumUtil :: (Enum a, Integral b, Storable b) => a -> (Ptr b -> IO c) -> IO c+withEnumUtil  = with . cFromEnum++peekEnumUtil :: (Enum a, Integral b, Storable b) => Ptr b -> IO a+peekEnumUtil  = liftM cToEnum . peek++-- Conversion routines+-- -------------------++-- |Integral conversion+--+cIntConv :: (Integral a, Integral b) => a -> b+cIntConv  = fromIntegral++-- |Floating conversion+--+cFloatConv :: (RealFloat a, RealFloat b) => a -> b+cFloatConv  = realToFrac++-- |Convert a C enumeration to Haskell.+--+cToEnum :: (Integral i, Enum e) => i -> e+cToEnum  = toEnum . fromIntegral++-- |Convert a Haskell enumeration to C.+--+cFromEnum :: (Enum e, Integral i) => e -> i+cFromEnum  = fromIntegral . fromEnum+
− HGamer3D/Bindings/Ogre/Utils.hs 
@@ -1,138 +0,0 @@--- 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\\Utils.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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
--- 
--- 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.
--- 
-
-
--- Utils.hs
-
--- Marshalling Utilities
-
-module HGamer3D.Bindings.Ogre.Utils where
-
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-
-import HGamer3D.Data.HG3DClass
-import HGamer3D.Data.Vector
-import HGamer3D.Data.Colour
-import HGamer3D.Data.Angle
-
-
-
-import Control.Monad (liftM)
-
--- Strings with explicit length
---
-withCStringLenIntConv :: Num n => String -> ((CString, n) -> IO a) -> IO a
-withCStringLenIntConv s f    = withCStringLen s $ \(p, n) -> f (p, fromIntegral n)
-
-peekCStringLenIntConv :: Integral n => (CString, n) -> IO String
-peekCStringLenIntConv (s, n) = peekCStringLen (s, fromIntegral n)
-
--- Marshalling of numerals
---
-
-withIntConv   :: (Storable b, Integral a, Integral b) 
-              => a -> (Ptr b -> IO c) -> IO c
-withIntConv    = with . fromIntegral
-
-withFloatConv :: (Storable b, RealFloat a, RealFloat b) 
-              => a -> (Ptr b -> IO c) -> IO c
-withFloatConv  = with . realToFrac
-
-peekIntConv   :: (Storable a, Integral a, Integral b) 
-              => Ptr a -> IO b
-peekIntConv    = liftM fromIntegral . peek
-
-peekFloatConv :: (Storable a, RealFloat a, RealFloat b) 
-              => Ptr a -> IO b
-peekFloatConv  = liftM realToFrac . peek
-
-
--- String Conversion functions
---
-
-withCUString b f = withCWString b (f . castPtr)
-peekCUString = peekCWString . castPtr
-alloc64k = allocaBytes (1024 * 64)
-
--- c2hs replacements of utility functions, to get rid of annoying c2hs
--- deprecated messages
-
--- Passing Enums
-
-cIntFromEnum :: Enum a => a -> CInt
-cIntFromEnum = cIntConv . fromEnum
-
-cIntToEnum :: Enum a => CInt -> a
-cIntToEnum = toEnum . cIntConv
-
-
--- Passing Booleans by reference
---
-
-withBoolUtil :: (Integral a, Storable a) => Bool -> (Ptr a -> IO b) -> IO b
-withBoolUtil  = with . fromBool
-
-peekBoolUtil :: (Integral a, Storable a) => Ptr a -> IO Bool
-peekBoolUtil  = liftM toBool . peek
-
-
--- Passing enums by reference
---
-
-withEnumUtil :: (Enum a, Integral b, Storable b) => a -> (Ptr b -> IO c) -> IO c
-withEnumUtil  = with . cFromEnum
-
-peekEnumUtil :: (Enum a, Integral b, Storable b) => Ptr b -> IO a
-peekEnumUtil  = liftM cToEnum . peek
-
--- Conversion routines
--- -------------------
-
--- |Integral conversion
---
-cIntConv :: (Integral a, Integral b) => a -> b
-cIntConv  = fromIntegral
-
--- |Floating conversion
---
-cFloatConv :: (RealFloat a, RealFloat b) => a -> b
-cFloatConv  = realToFrac
-
--- |Convert a C enumeration to Haskell.
---
-cToEnum :: (Integral i, Enum e) => i -> e
-cToEnum  = toEnum . fromIntegral
-
--- |Convert a Haskell enumeration to C.
---
-cFromEnum :: (Enum e, Integral i) => e -> i
-cFromEnum  = fromIntegral . fromEnum
-
LICENSE view
@@ -1,6 +1,4 @@-(c) 2011-2013 Peter Althainz
-
-The files are part of HGamer3D (www.hgamer3d.org)
+(c) 2011-2014 Peter Althainz
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.
Setup.hs view
@@ -1,10 +1,7 @@--- 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-2013 Peter Althainz
--- 
--- The files are part of HGamer3D (www.hgamer3d.org)
+-- 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-2014 Peter Althainz
 -- 
 -- Licensed under the Apache License, Version 2.0 (the "License");
 -- you may not use this file except in compliance with the License.
@@ -17,7 +14,7 @@ -- 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.
--- 
+--  -- Setup.hs
 
 import Distribution.Simple
− include/ClassAnimation.h 
@@ -1,169 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassAnimation.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassAnimation
-#define _DEFINED_HG3D_ClassAnimation
-
-#include "ClassPtr.h"
-#include "ClassNodeAnimationTrack.h"
-#include "ClassNumericAnimationTrack.h"
-#include "ClassVertexAnimationTrack.h"
-#include "EnumVertexAnimationType.h"
-#include "ClassNode.h"
-#include "ClassSkeleton.h"
-#include "ClassEntity.h"
-#include "EnumAnimationInterpolationMode.h"
-#include "EnumAnimationRotationInterpolationMode.h"
-
-
-
-// 
-void ogre_anm_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_anm_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_anm_getLength(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_anm_setLength(struct hg3dclass_struct * thisclass_c, float len_c);
-
-// 
-void ogre_anm_createNodeTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_createNumericTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_createVertexTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, enum EnumVertexAnimationType animType_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_createNodeTrack2(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * node_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_getNumNodeTracks(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_anm_getNodeTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_hasNodeTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, int * result_c);
-
-// 
-void ogre_anm_getNumNumericTracks(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_anm_getNumericTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_hasNumericTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, int * result_c);
-
-// 
-void ogre_anm_getNumVertexTracks(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_anm_getVertexTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_hasVertexTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, int * result_c);
-
-// 
-void ogre_anm_destroyNodeTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c);
-
-// 
-void ogre_anm_destroyNumericTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c);
-
-// 
-void ogre_anm_destroyVertexTrack(struct hg3dclass_struct * thisclass_c, unsigned short handle_c);
-
-// 
-void ogre_anm_destroyAllTracks(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_anm_destroyAllNodeTracks(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_anm_destroyAllNumericTracks(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_anm_destroyAllVertexTracks(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_anm_apply(struct hg3dclass_struct * thisclass_c, float timePos_c, float weight_c, float scale_c);
-
-// 
-void ogre_anm_applyToNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * node_c, float timePos_c, float weight_c, float scale_c);
-
-// 
-void ogre_anm_apply2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * skeleton_c, float timePos_c, float weight_c, float scale_c);
-
-// 
-void ogre_anm_apply4(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * entity_c, float timePos_c, float weight_c, int software_c, int hardware_c);
-
-// 
-void ogre_anm_setInterpolationMode(struct hg3dclass_struct * thisclass_c, enum EnumAnimationInterpolationMode im_c);
-
-// 
-void ogre_anm_getInterpolationMode(struct hg3dclass_struct * thisclass_c, enum EnumAnimationInterpolationMode * result_c);
-
-// 
-void ogre_anm_setRotationInterpolationMode(struct hg3dclass_struct * thisclass_c, enum EnumAnimationRotationInterpolationMode im_c);
-
-// 
-void ogre_anm_getRotationInterpolationMode(struct hg3dclass_struct * thisclass_c, enum EnumAnimationRotationInterpolationMode * result_c);
-
-// 
-void ogre_anm_optimise(struct hg3dclass_struct * thisclass_c, int discardIdentityNodeTracks_c);
-
-// 
-void ogre_anm_clone(struct hg3dclass_struct * thisclass_c, char * newName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anm_setUseBaseKeyFrame(struct hg3dclass_struct * thisclass_c, int useBaseKeyFrame_c, float keyframeTime_c, char * baseAnimName_c);
-
-// 
-void ogre_anm_getUseBaseKeyFrame(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_anm_getBaseKeyFrameTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_anm_getBaseKeyFrameAnimationName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_anm_setDefaultInterpolationMode(enum EnumAnimationInterpolationMode im_c);
-
-// 
-void ogre_anm_getDefaultInterpolationMode(enum EnumAnimationInterpolationMode * result_c);
-
-// 
-void ogre_anm_setDefaultRotationInterpolationMode(enum EnumAnimationRotationInterpolationMode im_c);
-
-// 
-void ogre_anm_getDefaultRotationInterpolationMode(enum EnumAnimationRotationInterpolationMode * result_c);
-
-#endif
− include/ClassAnimationState.h 
@@ -1,101 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassAnimationState.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassAnimationState
-#define _DEFINED_HG3D_ClassAnimationState
-
-#include "ClassPtr.h"
-#include "ClassAnimationStateSet.h"
-
-
-
-// 
-void ogre_anms_construct(char * animName_c, struct hg3dclass_struct * parent_c, float timePos_c, float length_c, float weight_c, int enabled_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_anms_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Gets the name of the animation to which this state applies. 
-void ogre_anms_getAnimationName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Gets the time position for this animation. 
-void ogre_anms_getTimePosition(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the time position for this animation. 
-void ogre_anms_setTimePosition(struct hg3dclass_struct * thisclass_c, float timePos_c);
-
-// Gets the total length of this animation (may be shorter than whole animation) 
-void ogre_anms_getLength(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the total length of this animation (may be shorter than whole animation) 
-void ogre_anms_setLength(struct hg3dclass_struct * thisclass_c, float len_c);
-
-// Gets the weight (influence) of this animation. 
-void ogre_anms_getWeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Sets the weight (influence) of this animation. 
-void ogre_anms_setWeight(struct hg3dclass_struct * thisclass_c, float weight_c);
-
-// 
-void ogre_anms_addTime(struct hg3dclass_struct * thisclass_c, float offset_c);
-
-// Returns true if the animation has reached the end and is not looping. 
-void ogre_anms_hasEnded(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns true if this animation is currently enabled. 
-void ogre_anms_getEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Sets whether this animation is enabled. 
-void ogre_anms_setEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_anms_setLoop(struct hg3dclass_struct * thisclass_c, int loop_c);
-
-// Gets whether or not this animation loops. 
-void ogre_anms_getLoop(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_anms_copyStateFrom(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * animState_c);
-
-// Get the parent animation state set. 
-void ogre_anms_getParent(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Create a new blend mask with the given number of entries. 
-void ogre_anms_createBlendMask(struct hg3dclass_struct * thisclass_c, int blendMaskSizeHint_c, float initialWeight_c);
-
-// Destroy the currently set blend mask. 
-void ogre_anms_destroyBlendMask(struct hg3dclass_struct * thisclass_c);
-
-// Return whether there is currently a valid blend mask set. 
-void ogre_anms_hasBlendMask(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Set the weight for the bone identified by the given handle. 
-void ogre_anms_setBlendMaskEntry(struct hg3dclass_struct * thisclass_c, int boneHandle_c, float weight_c);
-
-// Get the weight for the bone identified by the given handle. 
-void ogre_anms_getBlendMaskEntry(struct hg3dclass_struct * thisclass_c, int boneHandle_c, float * result_c);
-
-#endif
− include/ClassAnimationStateSet.h 
@@ -1,59 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassAnimationStateSet.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassAnimationStateSet
-#define _DEFINED_HG3D_ClassAnimationStateSet
-
-#include "ClassPtr.h"
-#include "ClassAnimationState.h"
-
-
-
-// 
-void ogre_ass_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_ass_createAnimationState(struct hg3dclass_struct * thisclass_c, char * animName_c, float timePos_c, float length_c, float weight_c, int enabled_c, struct hg3dclass_struct * result_c);
-
-// Get an animation state by the name of the animation. 
-void ogre_ass_getAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// Tests if state for the named animation is present. 
-void ogre_ass_hasAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// Remove animation state with the given name. 
-void ogre_ass_removeAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// Remove all animation states. 
-void ogre_ass_removeAllAnimationStates(struct hg3dclass_struct * thisclass_c);
-
-// Copy the state of any matching animation states from this to another. 
-void ogre_ass_copyMatchingState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// Tests if exists enabled animation state in this set. 
-void ogre_ass_hasEnabledAnimationState(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassAnimationTrack.h 
@@ -1,63 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassAnimationTrack.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassAnimationTrack
-#define _DEFINED_HG3D_ClassAnimationTrack
-
-#include "ClassPtr.h"
-#include "ClassTimeIndex.h"
-#include "ClassAnimation.h"
-
-
-
-// 
-void ogre_at_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_at_getHandle(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_at_getNumKeyFrames(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_at_removeKeyFrame(struct hg3dclass_struct * thisclass_c, unsigned short index_c);
-
-// 
-void ogre_at_removeAllKeyFrames(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_at_apply(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * timeIndex_c, float weight_c, float scale_c);
-
-// 
-void ogre_at_hasNonZeroKeyFrames(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_at_optimise(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_at_getParent(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassArchive.h 
@@ -1,61 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassArchive.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassArchive
-#define _DEFINED_HG3D_ClassArchive
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_arch_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the name of this archive. 
-void ogre_arch_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Returns whether this archive is case sensitive in the way it matches files. 
-void ogre_arch_isCaseSensitive(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_arch_load(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_arch_unload(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_arch_isReadOnly(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_arch_remove(struct hg3dclass_struct * thisclass_c, char * filename_c);
-
-// 
-void ogre_arch_exists(struct hg3dclass_struct * thisclass_c, char * filename_c, int * result_c);
-
-// Return the type code of this Archive
-void ogre_arch_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/ClassArchiveManager.h 
@@ -1,53 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassArchiveManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassArchiveManager
-#define _DEFINED_HG3D_ClassArchiveManager
-
-#include "ClassPtr.h"
-#include "ClassArchive.h"
-
-
-
-// 
-void ogre_archm_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_archm_load(struct hg3dclass_struct * thisclass_c, char * filename_c, char * archiveType_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_archm_unload(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * arch_c);
-
-// 
-void ogre_archm_unload2(struct hg3dclass_struct * thisclass_c, char * filename_c);
-
-// 
-void ogre_archm_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_archm_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassBillboard.h 
@@ -1,91 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBillboard.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBillboard
-#define _DEFINED_HG3D_ClassBillboard
-
-#include "ClassPtr.h"
-#include "StructRadians.h"
-#include "StructVec3.h"
-#include "StructColour.h"
-
-
-
-// 
-void ogre_bbd_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbd_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbd_getRotation(struct hg3dclass_struct * thisclass_c, struct radian_struct * result_c);
-
-// 
-void ogre_bbd_setRotation(struct hg3dclass_struct * thisclass_c, struct radian_struct * rotation_c);
-
-// 
-void ogre_bbd_setPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * position_c);
-
-// 
-void ogre_bbd_setPosition2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_bbd_getPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_bbd_setDimensions(struct hg3dclass_struct * thisclass_c, float width_c, float height_c);
-
-// 
-void ogre_bbd_resetDimensions(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbd_setColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_bbd_getColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_bbd_hasOwnDimensions(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbd_getOwnWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbd_getOwnHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbd_isUseTexcoordRect(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbd_setTexcoordIndex(struct hg3dclass_struct * thisclass_c, unsigned short texcoordIndex_c);
-
-// 
-void ogre_bbd_getTexcoordIndex(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_bbd_setTexcoordRect2(struct hg3dclass_struct * thisclass_c, float u0_c, float v0_c, float u1_c, float v1_c);
-
-#endif
− include/ClassBillboardChain.h 
@@ -1,118 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBillboardChain.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBillboardChain
-#define _DEFINED_HG3D_ClassBillboardChain
-
-#include "ClassPtr.h"
-#include "EnumBillboardChainTexCoordDirection.h"
-#include "StructVec3.h"
-#include "ClassCamera.h"
-#include "StructSharedPtr.h"
-#include "ClassSceneManager.h"
-#include "ClassRenderSystem.h"
-
-
-
-// destructor 
-void ogre_bbdc_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbdc_setMaxChainElements(struct hg3dclass_struct * thisclass_c, int maxElements_c);
-
-// 
-void ogre_bbdc_getMaxChainElements(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbdc_setNumberOfChains(struct hg3dclass_struct * thisclass_c, int numChains_c);
-
-// 
-void ogre_bbdc_getNumberOfChains(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbdc_setUseTextureCoords(struct hg3dclass_struct * thisclass_c, int use_c);
-
-// 
-void ogre_bbdc_getUseTextureCoords(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbdc_setTextureCoordDirection(struct hg3dclass_struct * thisclass_c, enum EnumBillboardChainTexCoordDirection dir_c);
-
-// 
-void ogre_bbdc_getTextureCoordDirection(struct hg3dclass_struct * thisclass_c, enum EnumBillboardChainTexCoordDirection * result_c);
-
-// 
-void ogre_bbdc_setOtherTextureCoordRange(struct hg3dclass_struct * thisclass_c, float start_c, float end_c);
-
-// 
-void ogre_bbdc_setUseVertexColours(struct hg3dclass_struct * thisclass_c, int use_c);
-
-// 
-void ogre_bbdc_getUseVertexColours(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbdc_setDynamic(struct hg3dclass_struct * thisclass_c, int dyn_c);
-
-// 
-void ogre_bbdc_getDynamic(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbdc_removeChainElement(struct hg3dclass_struct * thisclass_c, int chainIndex_c);
-
-// 
-void ogre_bbdc_getNumChainElements(struct hg3dclass_struct * thisclass_c, int chainIndex_c, int * result_c);
-
-// 
-void ogre_bbdc_clearChain(struct hg3dclass_struct * thisclass_c, int chainIndex_c);
-
-// 
-void ogre_bbdc_clearAllChains(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbdc_setFaceCamera(struct hg3dclass_struct * thisclass_c, int faceCamera_c, struct vector3_struct * normalVector_c);
-
-// Get the material name in use. 
-void ogre_bbdc_getMaterialName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Set the material name to use for rendering. 
-void ogre_bbdc_setMaterialName(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// 
-void ogre_bbdc_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, float * result_c);
-
-// 
-void ogre_bbdc_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbdc_getMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_bbdc_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_bbdc_preRender(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sm_c, struct hg3dclass_struct * rsys_c, int * result_c);
-
-#endif
− include/ClassBillboardChainFactory.h 
@@ -1,47 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBillboardChainFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBillboardChainFactory
-#define _DEFINED_HG3D_ClassBillboardChainFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_bbdcf_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbdcf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_bbdcf_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_bbdcf_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-#endif
− include/ClassBillboardSet.h 
@@ -1,195 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBillboardSet.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBillboardSet
-#define _DEFINED_HG3D_ClassBillboardSet
-
-#include "ClassPtr.h"
-#include "ClassBillboard.h"
-#include "StructVec3.h"
-#include "StructColour.h"
-#include "EnumBillboardOrigin.h"
-#include "EnumBillboardRotationType.h"
-#include "StructSharedPtr.h"
-#include "EnumBillboardType.h"
-#include "ClassCamera.h"
-
-
-
-// 
-void ogre_bbs_construct(char * name_c, unsigned int poolSize_c, int externalDataSource_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbs_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbs_createBillboard(struct hg3dclass_struct * thisclass_c, struct vector3_struct * position_c, struct colourvalue_struct * colour_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbs_createBillboard2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c, struct colourvalue_struct * colour_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbs_getNumBillboards(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_setAutoextend(struct hg3dclass_struct * thisclass_c, int autoextend_c);
-
-// 
-void ogre_bbs_getAutoextend(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_setSortingEnabled(struct hg3dclass_struct * thisclass_c, int sortenable_c);
-
-// 
-void ogre_bbs_getSortingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_setPoolSize(struct hg3dclass_struct * thisclass_c, int size_c);
-
-// 
-void ogre_bbs_getPoolSize(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_bbs_clear(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbs_getBillboard(struct hg3dclass_struct * thisclass_c, unsigned int index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbs_removeBillboard(struct hg3dclass_struct * thisclass_c, unsigned int index_c);
-
-// 
-void ogre_bbs_removeBillboard2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * pBill_c);
-
-// 
-void ogre_bbs_setBillboardOrigin(struct hg3dclass_struct * thisclass_c, enum EnumBillboardOrigin origin_c);
-
-// 
-void ogre_bbs_getBillboardOrigin(struct hg3dclass_struct * thisclass_c, enum EnumBillboardOrigin * result_c);
-
-// 
-void ogre_bbs_setBillboardRotationType(struct hg3dclass_struct * thisclass_c, enum EnumBillboardRotationType rotationType_c);
-
-// 
-void ogre_bbs_getBillboardRotationType(struct hg3dclass_struct * thisclass_c, enum EnumBillboardRotationType * result_c);
-
-// 
-void ogre_bbs_setDefaultDimensions(struct hg3dclass_struct * thisclass_c, float width_c, float height_c);
-
-// 
-void ogre_bbs_setDefaultWidth(struct hg3dclass_struct * thisclass_c, float width_c);
-
-// 
-void ogre_bbs_getDefaultWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbs_setDefaultHeight(struct hg3dclass_struct * thisclass_c, float height_c);
-
-// 
-void ogre_bbs_getDefaultHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbs_setMaterialName(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// 
-void ogre_bbs_getMaterialName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_bbs_beginBillboards(struct hg3dclass_struct * thisclass_c, int numBillboards_c);
-
-// 
-void ogre_bbs_injectBillboard(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * bb_c);
-
-// 
-void ogre_bbs_endBillboards(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bbs_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_bbs_getMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_bbs_setMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * material_c);
-
-// 
-void ogre_bbs_getCullIndividually(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_setCullIndividually(struct hg3dclass_struct * thisclass_c, int cullIndividual_c);
-
-// 
-void ogre_bbs_setBillboardType(struct hg3dclass_struct * thisclass_c, enum EnumBillboardType bbt_c);
-
-// 
-void ogre_bbs_getBillboardType(struct hg3dclass_struct * thisclass_c, enum EnumBillboardType * result_c);
-
-// 
-void ogre_bbs_setCommonDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_bbs_getCommonDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_bbs_setCommonUpVector(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_bbs_getCommonUpVector(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_bbs_setUseAccurateFacing(struct hg3dclass_struct * thisclass_c, int acc_c);
-
-// 
-void ogre_bbs_getUseAccurateFacing(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_bbs_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, float * result_c);
-
-// 
-void ogre_bbs_setBillboardsInWorldSpace(struct hg3dclass_struct * thisclass_c, int ws_c);
-
-// 
-void ogre_bbs_setPointRenderingEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_bbs_isPointRenderingEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Override to return specific type flag. 
-void ogre_bbs_getTypeFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_bbs_setAutoUpdate(struct hg3dclass_struct * thisclass_c, int autoUpdate_c);
-
-// 
-void ogre_bbs_getAutoUpdate(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bbs_notifyBillboardDataChanged(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassBillboardSetFactory.h 
@@ -1,47 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBillboardSetFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBillboardSetFactory
-#define _DEFINED_HG3D_ClassBillboardSetFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_bbsf_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bbsf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_bbsf_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_bbsf_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-#endif
− include/ClassBone.h 
@@ -1,60 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassBone.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassBone
-#define _DEFINED_HG3D_ClassBone
-
-#include "ClassPtr.h"
-#include "StructVec3.h"
-#include "StructQuaternion.h"
-
-
-
-// 
-void ogre_bn_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bn_createChild(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct vector3_struct * translate_c, struct quaternion_struct * rotate_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_bn_getHandle(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_bn_setBindingPose(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bn_reset(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_bn_setManuallyControlled(struct hg3dclass_struct * thisclass_c, int manuallyControlled_c);
-
-// 
-void ogre_bn_isManuallyControlled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_bn_needUpdate(struct hg3dclass_struct * thisclass_c, int forceParentUpdate_c);
-
-#endif
− include/ClassCamera.h 
@@ -1,226 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassCamera.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassCamera
-#define _DEFINED_HG3D_ClassCamera
-
-#include "ClassPtr.h"
-#include "ClassSceneManager.h"
-#include "StructVec3.h"
-#include "StructRadians.h"
-#include "StructQuaternion.h"
-#include "ClassSceneNode.h"
-#include "ClassViewport.h"
-#include "ClassFrustum.h"
-#include "EnumFrustumPlane.h"
-
-
-
-// 
-void ogre_cam_construct(char * name_c, struct hg3dclass_struct * sm_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_cam_getSceneManager(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_setPosition(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_cam_setPosition2(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_cam_getPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_move(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_cam_moveRelative(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_cam_setDirection(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_cam_setDirection2(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_cam_getDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getUp(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getRight(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_lookAt(struct hg3dclass_struct * thisclass_c, struct vector3_struct * targetPoint_c);
-
-// 
-void ogre_cam_lookAt2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_cam_roll(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c);
-
-// 
-void ogre_cam_yaw(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c);
-
-// 
-void ogre_cam_pitch(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c);
-
-// 
-void ogre_cam_rotate(struct hg3dclass_struct * thisclass_c, struct vector3_struct * axis_c, struct radian_struct * angle_c);
-
-// 
-void ogre_cam_rotate2(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * q_c);
-
-// 
-void ogre_cam_setFixedYawAxis(struct hg3dclass_struct * thisclass_c, int useFixed_c, struct vector3_struct * fixedAxis_c);
-
-// 
-void ogre_cam_getOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_cam_setOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * q_c);
-
-// 
-void ogre_cam_getDerivedOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_cam_getDerivedPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getDerivedDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getDerivedUp(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getDerivedRight(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getRealOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_cam_getRealPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getRealDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getRealUp(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getRealRight(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_cam_setLodBias(struct hg3dclass_struct * thisclass_c, float factor_c);
-
-// 
-void ogre_cam_getLodBias(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cam_setLodCamera(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * lodCam_c);
-
-// 
-void ogre_cam_getLodCamera(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_setWindow(struct hg3dclass_struct * thisclass_c, float Left_c, float Top_c, float Right_c, float Bottom_c);
-
-// Cancel view window. 
-void ogre_cam_resetWindow(struct hg3dclass_struct * thisclass_c);
-
-// Returns if a viewport window is being used. 
-void ogre_cam_isWindowSet(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_cam_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cam_getAutoTrackTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_getAutoTrackOffset(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getViewport(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_setAutoAspectRatio(struct hg3dclass_struct * thisclass_c, int autoratio_c);
-
-// 
-void ogre_cam_getAutoAspectRatio(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_cam_setCullingFrustum(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * frustum_c);
-
-// 
-void ogre_cam_getCullingFrustum(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cam_isVisible3(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vert_c, enum EnumFrustumPlane * culledBy_c, int * result_c);
-
-// 
-void ogre_cam_getWorldSpaceCorners(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getNearClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cam_getFarClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cam_setUseRenderingDistance(struct hg3dclass_struct * thisclass_c, int use_c);
-
-// 
-void ogre_cam_getUseRenderingDistance(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_cam_synchroniseBaseSettingsWith(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c);
-
-// 
-void ogre_cam_getPositionForViewUpdate(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_cam_getOrientationForViewUpdate(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// Sets whether to use min display size calculations 
-
-void ogre_cam_setUseMinPixelSize(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_cam_getUseMinPixelSize(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_cam_getPixelDisplayRatio(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-#endif
− include/ClassConfigFile.h 
@@ -1,58 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassConfigFile.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassConfigFile
-#define _DEFINED_HG3D_ClassConfigFile
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_cf_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// load from a filename (not using resource group locations) 
-void ogre_cf_load(struct hg3dclass_struct * thisclass_c, char * filename_c, char * separators_c, int trimWhitespace_c);
-
-// load from a filename (using resource group locations) 
-void ogre_cf_load2(struct hg3dclass_struct * thisclass_c, char * filename_c, char * resourceGroup_c, char * separators_c, int trimWhitespace_c);
-
-// load from a filename (not using resource group locations) 
-void ogre_cf_loadDirect(struct hg3dclass_struct * thisclass_c, char * filename_c, char * separators_c, int trimWhitespace_c);
-
-// load from a filename (using resource group locations) 
-void ogre_cf_loadFromResourceSystem(struct hg3dclass_struct * thisclass_c, char * filename_c, char * resourceGroup_c, char * separators_c, int trimWhitespace_c);
-
-// 
-void ogre_cf_getSetting(struct hg3dclass_struct * thisclass_c, char * key_c, char * section_c, char * defaultValue_c, char * result_c);
-
-// 
-void ogre_cf_clear(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassControllerManager.h 
@@ -1,70 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassControllerManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassControllerManager
-#define _DEFINED_HG3D_ClassControllerManager
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_cmgr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_cmgr_clearControllers(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_cmgr_updateAllControllers(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_cmgr_getTimeFactor(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cmgr_setTimeFactor(struct hg3dclass_struct * thisclass_c, float tf_c);
-
-// 
-void ogre_cmgr_getFrameDelay(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cmgr_setFrameDelay(struct hg3dclass_struct * thisclass_c, float fd_c);
-
-// 
-void ogre_cmgr_getElapsedTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_cmgr_setElapsedTime(struct hg3dclass_struct * thisclass_c, float elapsedTime_c);
-
-// 
-void ogre_cmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_cmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassEntity.h 
@@ -1,154 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassEntity.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassEntity
-#define _DEFINED_HG3D_ClassEntity
-
-#include "ClassPtr.h"
-#include "StructSharedPtr.h"
-#include "ClassAnimationState.h"
-#include "ClassAnimationStateSet.h"
-#include "ClassMovableObject.h"
-#include "EnumEntityVertexDataBindChoice.h"
-#include "ClassResource.h"
-
-
-
-// 
-void ogre_ent_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_ent_getMesh(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_ent_getNumSubEntities(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_ent_clone(struct hg3dclass_struct * thisclass_c, char * newName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_ent_setMaterialName(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// 
-void ogre_ent_setMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * material_c);
-
-// 
-void ogre_ent_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_ent_getAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_ent_hasAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_ent_getAllAnimationStates(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_ent_setDisplaySkeleton(struct hg3dclass_struct * thisclass_c, int display_c);
-
-// 
-void ogre_ent_getDisplaySkeleton(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_getManualLodLevel(struct hg3dclass_struct * thisclass_c, int index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_ent_getNumManualLodLevels(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_setPolygonModeOverrideable(struct hg3dclass_struct * thisclass_c, int PolygonModeOverrideable_c);
-
-// 
-void ogre_ent_detachObjectFromBone(struct hg3dclass_struct * thisclass_c, char * movableName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_ent_detachObjectFromBone2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// Detach all MovableObjects previously attached using attachObjectToBone. 
-void ogre_ent_detachAllObjectsFromBone(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_ent_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_ent_hasEdgeList(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_hasSkeleton(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_isHardwareAnimationEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_getSoftwareAnimationRequests(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_getSoftwareAnimationNormalsRequests(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_addSoftwareAnimationRequest(struct hg3dclass_struct * thisclass_c, int normalsAlso_c);
-
-// 
-void ogre_ent_removeSoftwareAnimationRequest(struct hg3dclass_struct * thisclass_c, int normalsAlso_c);
-
-// 
-void ogre_ent_shareSkeletonInstanceWith(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * entity_c);
-
-// 
-void ogre_ent_hasVertexAnimation(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_stopSharingSkeletonInstance(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_ent_sharesSkeletonInstance(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_refreshAvailableAnimationState(struct hg3dclass_struct * thisclass_c);
-
-// Choose which vertex data to bind to the renderer. 
-void ogre_ent_chooseVertexDataForBinding(struct hg3dclass_struct * thisclass_c, int hasVertexAnim_c, enum EnumEntityVertexDataBindChoice * result_c);
-
-// 
-void ogre_ent_isInitialised(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_backgroundLoadingComplete(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * res_c);
-
-// 
-void ogre_ent_setSkipAnimationStateUpdate(struct hg3dclass_struct * thisclass_c, int skip_c);
-
-// 
-void ogre_ent_getSkipAnimationStateUpdate(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_ent_setAlwaysUpdateMainSkeleton(struct hg3dclass_struct * thisclass_c, int update_c);
-
-// 
-void ogre_ent_getAlwaysUpdateMainSkeleton(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassEntityFactory.h 
@@ -1,47 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassEntityFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassEntityFactory
-#define _DEFINED_HG3D_ClassEntityFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_entf_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_entf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_entf_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_entf_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-#endif
− include/ClassException.h 
@@ -1,61 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassException.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassException
-#define _DEFINED_HG3D_ClassException
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_exc_construct(int number_c, char * description_c, char * source_c, struct hg3dclass_struct * result_c);
-
-// Needed for compatibility with std::exception. 
-void ogre_exc_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_exc_getFullDescription(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_exc_getNumber(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_exc_getSource(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_exc_getFile(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_exc_getLine(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_exc_getDescription(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Override std::exception::what. 
-void ogre_exc_what(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/ClassFrustum.h 
@@ -1,169 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassFrustum.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassFrustum
-#define _DEFINED_HG3D_ClassFrustum
-
-#include "ClassPtr.h"
-#include "StructRadians.h"
-#include "StructVec2.h"
-#include "StructVec3.h"
-#include "EnumFrustumPlane.h"
-#include "StructSharedPtr.h"
-#include "ClassCamera.h"
-#include "EnumProjectionType.h"
-#include "StructQuaternion.h"
-#include "EnumOrientationMode.h"
-
-
-
-// Named constructor. 
-void ogre_frst_construct(char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_frst_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_frst_setFOVy(struct hg3dclass_struct * thisclass_c, struct radian_struct * fovy_c);
-
-// 
-void ogre_frst_getFOVy(struct hg3dclass_struct * thisclass_c, struct radian_struct * result_c);
-
-// 
-void ogre_frst_setNearClipDistance(struct hg3dclass_struct * thisclass_c, float nearDist_c);
-
-// 
-void ogre_frst_getNearClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_setFarClipDistance(struct hg3dclass_struct * thisclass_c, float farDist_c);
-
-// 
-void ogre_frst_getFarClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_setAspectRatio(struct hg3dclass_struct * thisclass_c, float ratio_c);
-
-// 
-void ogre_frst_getAspectRatio(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_setFrustumOffset(struct hg3dclass_struct * thisclass_c, struct vector2_struct * offset_c);
-
-// 
-void ogre_frst_setFrustumOffset2(struct hg3dclass_struct * thisclass_c, float horizontal_c, float vertical_c);
-
-// 
-void ogre_frst_getFrustumOffset(struct hg3dclass_struct * thisclass_c, struct vector2_struct * result_c);
-
-// 
-void ogre_frst_setFocalLength(struct hg3dclass_struct * thisclass_c, float focalLength_c);
-
-// 
-void ogre_frst_getFocalLength(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_setFrustumExtents(struct hg3dclass_struct * thisclass_c, float left_c, float right_c, float top_c, float bottom_c);
-
-// 
-void ogre_frst_resetFrustumExtents(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_frst_getFrustumExtents(struct hg3dclass_struct * thisclass_c, float * outleft_c, float * outright_c, float * outtop_c, float * outbottom_c);
-
-// Returns whether a custom view matrix is in use. 
-void ogre_frst_isCustomViewMatrixEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Returns whether a custom projection matrix is in use. 
-void ogre_frst_isCustomProjectionMatrixEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_frst_isVisible3(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vert_c, enum EnumFrustumPlane * culledBy_c, int * result_c);
-
-// Overridden from MovableObject::getTypeFlags
-void ogre_frst_getTypeFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_frst_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_frst_getMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_frst_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, float * result_c);
-
-// 
-void ogre_frst_getWorldSpaceCorners(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_frst_setProjectionType(struct hg3dclass_struct * thisclass_c, enum EnumProjectionType pt_c);
-
-// 
-void ogre_frst_getProjectionType(struct hg3dclass_struct * thisclass_c, enum EnumProjectionType * result_c);
-
-// 
-void ogre_frst_setOrthoWindow(struct hg3dclass_struct * thisclass_c, float w_c, float h_c);
-
-// 
-void ogre_frst_setOrthoWindowHeight(struct hg3dclass_struct * thisclass_c, float h_c);
-
-// 
-void ogre_frst_setOrthoWindowWidth(struct hg3dclass_struct * thisclass_c, float w_c);
-
-// 
-void ogre_frst_getOrthoWindowHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_getOrthoWindowWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_frst_disableReflection(struct hg3dclass_struct * thisclass_c);
-
-// Returns whether this frustum is being reflected. 
-void ogre_frst_isReflected(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_frst_disableCustomNearClipPlane(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_frst_isCustomNearClipPlaneEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_frst_getPositionForViewUpdate(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_frst_getOrientationForViewUpdate(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_frst_setOrientationMode(struct hg3dclass_struct * thisclass_c, enum EnumOrientationMode orientationMode_c);
-
-// 
-void ogre_frst_getOrientationMode(struct hg3dclass_struct * thisclass_c, enum EnumOrientationMode * result_c);
-
-#endif
− include/ClassHG3DMessagePump.h 
@@ -1,55 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassHG3DMessagePump.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassHG3DMessagePump
-#define _DEFINED_HG3D_ClassHG3DMessagePump
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_hg3dmp_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_hg3dmp_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_hg3dmp_messagePump(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_hg3dmp_eventsPending(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_hg3dmp_getKeyUpEvent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_hg3dmp_getKeyDownEvent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_hg3dmp_getCharEvent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassLight.h 
@@ -1,179 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassLight.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassLight
-#define _DEFINED_HG3D_ClassLight
-
-#include "ClassPtr.h"
-#include "EnumLightType.h"
-#include "StructColour.h"
-#include "StructVec3.h"
-#include "StructRadians.h"
-
-
-
-// 
-void ogre_lgt_construct(char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lgt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_lgt_setType(struct hg3dclass_struct * thisclass_c, enum EnumLightType type_c);
-
-// 
-void ogre_lgt_getType(struct hg3dclass_struct * thisclass_c, enum EnumLightType * result_c);
-
-// 
-void ogre_lgt_setDiffuseColour(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c);
-
-// 
-void ogre_lgt_setDiffuseColour2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_lgt_getDiffuseColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_lgt_setSpecularColour(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c);
-
-// 
-void ogre_lgt_setSpecularColour2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_lgt_getSpecularColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_lgt_setAttenuation(struct hg3dclass_struct * thisclass_c, float range_c, float constant_c, float linear_c, float quadratic_c);
-
-// 
-void ogre_lgt_getAttenuationRange(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_getAttenuationConstant(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_getAttenuationLinear(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_getAttenuationQuadric(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_setPosition(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_lgt_setPosition2(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_lgt_getPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_lgt_setDirection(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_lgt_setDirection2(struct hg3dclass_struct * thisclass_c, struct vector3_struct * vec_c);
-
-// 
-void ogre_lgt_getDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_lgt_setSpotlightRange(struct hg3dclass_struct * thisclass_c, struct radian_struct * innerAngle_c, struct radian_struct * outerAngle_c, float falloff_c);
-
-// 
-void ogre_lgt_getSpotlightInnerAngle(struct hg3dclass_struct * thisclass_c, struct radian_struct * result_c);
-
-// 
-void ogre_lgt_getSpotlightOuterAngle(struct hg3dclass_struct * thisclass_c, struct radian_struct * result_c);
-
-// 
-void ogre_lgt_getSpotlightFalloff(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_setSpotlightInnerAngle(struct hg3dclass_struct * thisclass_c, struct radian_struct * val_c);
-
-// 
-void ogre_lgt_setSpotlightOuterAngle(struct hg3dclass_struct * thisclass_c, struct radian_struct * val_c);
-
-// 
-void ogre_lgt_setSpotlightFalloff(struct hg3dclass_struct * thisclass_c, float val_c);
-
-// 
-void ogre_lgt_setSpotlightNearClipDistance(struct hg3dclass_struct * thisclass_c, float nearClip_c);
-
-// 
-void ogre_lgt_getSpotlightNearClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_setPowerScale(struct hg3dclass_struct * thisclass_c, float power_c);
-
-// 
-void ogre_lgt_getPowerScale(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_lgt_getDerivedPosition(struct hg3dclass_struct * thisclass_c, int cameraRelativeIfSet_c, struct vector3_struct * result_c);
-
-// 
-void ogre_lgt_getDerivedDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_lgt_setVisible(struct hg3dclass_struct * thisclass_c, int visible_c);
-
-// 
-void ogre_lgt_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// Override to return specific type flag. 
-void ogre_lgt_getTypeFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_lgt_resetCustomShadowCameraSetup(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_lgt_setShadowFarDistance(struct hg3dclass_struct * thisclass_c, float distance_c);
-
-// 
-void ogre_lgt_resetShadowFarDistance(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_lgt_getShadowFarDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_getShadowFarDistanceSquared(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_setShadowNearClipDistance(struct hg3dclass_struct * thisclass_c, float nearClip_c);
-
-// 
-void ogre_lgt_getShadowNearClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_lgt_setShadowFarClipDistance(struct hg3dclass_struct * thisclass_c, float farClip_c);
-
-// 
-void ogre_lgt_getShadowFarClipDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-#endif
− include/ClassLightFactory.h 
@@ -1,47 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassLightFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassLightFactory
-#define _DEFINED_HG3D_ClassLightFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_lgtf_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lgtf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_lgtf_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_lgtf_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-#endif
− include/ClassLog.h 
@@ -1,66 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassLog.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassLog
-#define _DEFINED_HG3D_ClassLog
-
-#include "ClassPtr.h"
-#include "EnumLogMessageLevel.h"
-#include "EnumLoggingLevel.h"
-
-
-
-// 
-void ogre_lg_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Return the name of the log. 
-void ogre_lg_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Get whether debug output is enabled for this log. 
-void ogre_lg_isDebugOutputEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get whether file output is suppressed for this log. 
-void ogre_lg_isFileOutputSuppressed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get whether time stamps are printed for this log. 
-void ogre_lg_isTimeStampEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_lg_logMessage(struct hg3dclass_struct * thisclass_c, char * message_c, enum EnumLogMessageLevel lml_c, int maskDebug_c);
-
-// 
-void ogre_lg_setDebugOutputEnabled(struct hg3dclass_struct * thisclass_c, int debugOutput_c);
-
-// 
-void ogre_lg_setLogDetail(struct hg3dclass_struct * thisclass_c, enum EnumLoggingLevel ll_c);
-
-// 
-void ogre_lg_setTimeStampEnabled(struct hg3dclass_struct * thisclass_c, int timeStamp_c);
-
-// 
-void ogre_lg_getLogDetail(struct hg3dclass_struct * thisclass_c, enum EnumLoggingLevel * result_c);
-
-#endif
− include/ClassLogManager.h 
@@ -1,73 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassLogManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassLogManager
-#define _DEFINED_HG3D_ClassLogManager
-
-#include "ClassPtr.h"
-#include "ClassLog.h"
-#include "EnumLogMessageLevel.h"
-#include "EnumLoggingLevel.h"
-
-
-
-// 
-void ogre_lmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_lmgr_createLog(struct hg3dclass_struct * thisclass_c, char * name_c, int defaultLog_c, int debuggerOutput_c, int suppressFileOutput_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lmgr_getLog(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lmgr_getDefaultLog(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lmgr_destroyLog(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_lmgr_destroyLog2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * log_c);
-
-// 
-void ogre_lmgr_setDefaultLog(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * newLog_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lmgr_logMessage(struct hg3dclass_struct * thisclass_c, char * message_c, enum EnumLogMessageLevel lml_c, int maskDebug_c);
-
-// 
-void ogre_lmgr_logMessage2(struct hg3dclass_struct * thisclass_c, enum EnumLogMessageLevel lml_c, char * message_c, int maskDebug_c);
-
-// 
-void ogre_lmgr_setLogDetail(struct hg3dclass_struct * thisclass_c, enum EnumLoggingLevel ll_c);
-
-// 
-void ogre_lmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_lmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassManualObject.h 
@@ -1,166 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassManualObject.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassManualObject
-#define _DEFINED_HG3D_ClassManualObject
-
-#include "ClassPtr.h"
-#include "EnumRenderOperationOperationType.h"
-#include "StructVec3.h"
-#include "StructVec2.h"
-#include "StructColour.h"
-#include "ClassManualObjectSection.h"
-#include "StructSharedPtr.h"
-
-
-
-// 
-void ogre_mno_construct(char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mno_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mno_clear(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mno_estimateVertexCount(struct hg3dclass_struct * thisclass_c, int vcount_c);
-
-// 
-void ogre_mno_estimateIndexCount(struct hg3dclass_struct * thisclass_c, int icount_c);
-
-// 
-void ogre_mno_begin(struct hg3dclass_struct * thisclass_c, char * materialName_c, enum EnumRenderOperationOperationType opType_c, char * groupName_c);
-
-// 
-void ogre_mno_setDynamic(struct hg3dclass_struct * thisclass_c, int dyn_c);
-
-// 
-void ogre_mno_getDynamic(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mno_beginUpdate(struct hg3dclass_struct * thisclass_c, int sectionIndex_c);
-
-// 
-void ogre_mno_position(struct hg3dclass_struct * thisclass_c, struct vector3_struct * pos_c);
-
-// 
-void ogre_mno_position2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_mno_normal(struct hg3dclass_struct * thisclass_c, struct vector3_struct * norm_c);
-
-// 
-void ogre_mno_normal2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_mno_tangent(struct hg3dclass_struct * thisclass_c, struct vector3_struct * tan_c);
-
-// 
-void ogre_mno_tangent2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_mno_textureCoord(struct hg3dclass_struct * thisclass_c, float u_c);
-
-// 
-void ogre_mno_textureCoord2(struct hg3dclass_struct * thisclass_c, float u_c, float v_c);
-
-// 
-void ogre_mno_textureCoord3(struct hg3dclass_struct * thisclass_c, float u_c, float v_c, float w_c);
-
-// 
-void ogre_mno_textureCoord4(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c, float w_c);
-
-// 
-void ogre_mno_textureCoord5(struct hg3dclass_struct * thisclass_c, struct vector2_struct * uv_c);
-
-// 
-void ogre_mno_textureCoord6(struct hg3dclass_struct * thisclass_c, struct vector3_struct * uvw_c);
-
-// 
-void ogre_mno_colour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * col_c);
-
-// 
-void ogre_mno_colour2(struct hg3dclass_struct * thisclass_c, float r_c, float g_c, float b_c, float a_c);
-
-// 
-void ogre_mno_index(struct hg3dclass_struct * thisclass_c, unsigned int idx_c);
-
-// 
-void ogre_mno_triangle(struct hg3dclass_struct * thisclass_c, unsigned int i1_c, unsigned int i2_c, unsigned int i3_c);
-
-// 
-void ogre_mno_quad(struct hg3dclass_struct * thisclass_c, unsigned int i1_c, unsigned int i2_c, unsigned int i3_c, unsigned int i4_c);
-
-// Get the number of vertices in the section currently being defined (returns 0 if no section is in progress). 
-void ogre_mno_getCurrentVertexCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Get the number of indices in the section currently being defined (returns 0 if no section is in progress). 
-void ogre_mno_getCurrentIndexCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mno_end(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mno_setMaterialName(struct hg3dclass_struct * thisclass_c, int subindex_c, char * name_c, char * group_c);
-
-// 
-void ogre_mno_convertToMesh(struct hg3dclass_struct * thisclass_c, char * meshName_c, char * groupName_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_mno_setUseIdentityProjection(struct hg3dclass_struct * thisclass_c, int useIdentityProjection_c);
-
-// 
-void ogre_mno_getUseIdentityProjection(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mno_setUseIdentityView(struct hg3dclass_struct * thisclass_c, int useIdentityView_c);
-
-// 
-void ogre_mno_getUseIdentityView(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mno_getSection(struct hg3dclass_struct * thisclass_c, unsigned int index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mno_getNumSections(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mno_setKeepDeclarationOrder(struct hg3dclass_struct * thisclass_c, int keepOrder_c);
-
-// 
-void ogre_mno_getKeepDeclarationOrder(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// . 
-void ogre_mno_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// . 
-void ogre_mno_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_mno_hasEdgeList(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassManualObjectFactory.h 
@@ -1,47 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassManualObjectFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassManualObjectFactory
-#define _DEFINED_HG3D_ClassManualObjectFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_mnof_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mnof_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_mnof_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mnof_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-#endif
− include/ClassManualObjectSection.h 
@@ -1,65 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassManualObjectSection.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassManualObjectSection
-#define _DEFINED_HG3D_ClassManualObjectSection
-
-#include "ClassPtr.h"
-#include "ClassManualObject.h"
-#include "EnumRenderOperationOperationType.h"
-#include "StructSharedPtr.h"
-#include "ClassCamera.h"
-
-
-
-// 
-void ogre_mnos_construct(struct hg3dclass_struct * parent_c, char * materialName_c, enum EnumRenderOperationOperationType opType_c, char * groupName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mnos_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Retrieve the material name in use. 
-void ogre_mnos_getMaterialName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Retrieve the material group in use. 
-void ogre_mnos_getMaterialGroup(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// update the material name in use 
-void ogre_mnos_setMaterialName(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// Set whether we need 32-bit indices. 
-void ogre_mnos_set32BitIndices(struct hg3dclass_struct * thisclass_c, int n32_c);
-
-// Get whether we need 32-bit indices. 
-void ogre_mnos_get32BitIndices(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// . 
-void ogre_mnos_getMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// . 
-void ogre_mnos_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * _c, float * result_c);
-
-#endif
− include/ClassMaterial.h 
@@ -1,138 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMaterial.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMaterial
-#define _DEFINED_HG3D_ClassMaterial
-
-#include "ClassPtr.h"
-#include "StructSharedPtr.h"
-#include "StructColour.h"
-
-
-
-// 
-void ogre_mtrl_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mtrl_isTransparent(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mtrl_setReceiveShadows(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_getReceiveShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mtrl_setTransparencyCastsShadows(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_getTransparencyCastsShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mtrl_getNumTechniques(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_mtrl_removeTechnique(struct hg3dclass_struct * thisclass_c, unsigned short index_c);
-
-// 
-void ogre_mtrl_removeAllTechniques(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mtrl_getNumSupportedTechniques(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_mtrl_getUnsupportedTechniquesExplanation(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mtrl_getNumLodLevels(struct hg3dclass_struct * thisclass_c, unsigned short schemeIndex_c, unsigned short * result_c);
-
-// 
-void ogre_mtrl_getNumLodLevels2(struct hg3dclass_struct * thisclass_c, char * schemeName_c, unsigned short * result_c);
-
-// 
-void ogre_mtrl_clone(struct hg3dclass_struct * thisclass_c, char * newName_c, int changeGroup_c, char * newGroup_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_mtrl_copyDetailsTo(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * mat_c);
-
-// 
-void ogre_mtrl_compile(struct hg3dclass_struct * thisclass_c, int autoManageTextureUnits_c);
-
-// 
-void ogre_mtrl_setPointSize(struct hg3dclass_struct * thisclass_c, float ps_c);
-
-// 
-void ogre_mtrl_setAmbient(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c);
-
-// 
-void ogre_mtrl_setAmbient2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * ambient_c);
-
-// 
-void ogre_mtrl_setDiffuse(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c, float alpha_c);
-
-// 
-void ogre_mtrl_setDiffuse2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * diffuse_c);
-
-// 
-void ogre_mtrl_setSpecular(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c, float alpha_c);
-
-// 
-void ogre_mtrl_setSpecular2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * specular_c);
-
-// 
-void ogre_mtrl_setShininess(struct hg3dclass_struct * thisclass_c, float val_c);
-
-// 
-void ogre_mtrl_setSelfIllumination(struct hg3dclass_struct * thisclass_c, float red_c, float green_c, float blue_c);
-
-// 
-void ogre_mtrl_setSelfIllumination2(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * selfIllum_c);
-
-// 
-void ogre_mtrl_setDepthCheckEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_setDepthWriteEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_setColourWriteEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_setLightingEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mtrl_setDepthBias(struct hg3dclass_struct * thisclass_c, float constantBias_c, float slopeScaleBias_c);
-
-// 
-void ogre_mtrl_setTextureAnisotropy(struct hg3dclass_struct * thisclass_c, int maxAniso_c);
-
-// 
-void ogre_mtrl_touch(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mtrl_getCompilationRequired(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassMaterialManager.h 
@@ -1,65 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMaterialManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMaterialManager
-#define _DEFINED_HG3D_ClassMaterialManager
-
-#include "ClassPtr.h"
-#include "StructSharedPtr.h"
-
-
-
-// 
-void ogre_mtrlmgr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mtrlmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mtrlmgr_initialise(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mtrlmgr_setDefaultAnisotropy(struct hg3dclass_struct * thisclass_c, unsigned int maxAniso_c);
-
-// Get the default maxAnisotropy. 
-void ogre_mtrlmgr_getDefaultAnisotropy(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mtrlmgr_getDefaultSettings(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_mtrlmgr_getActiveScheme(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mtrlmgr_setActiveScheme(struct hg3dclass_struct * thisclass_c, char * schemeName_c);
-
-// 
-void ogre_mtrlmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mtrlmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassMesh.h 
@@ -1,151 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMesh.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMesh
-#define _DEFINED_HG3D_ClassMesh
-
-#include "ClassPtr.h"
-#include "StructSharedPtr.h"
-#include "EnumVertexAnimationType.h"
-#include "ClassAnimation.h"
-
-
-
-// 
-void ogre_msh_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_unnameSubMesh(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_msh_getNumSubMeshes(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_msh_destroySubMesh(struct hg3dclass_struct * thisclass_c, unsigned short index_c);
-
-// 
-void ogre_msh_destroySubMesh2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_msh_clone(struct hg3dclass_struct * thisclass_c, char * newName_c, char * newGroup_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_msh_getBoundingSphereRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_msh_setSkeletonName(struct hg3dclass_struct * thisclass_c, char * skelName_c);
-
-// 
-void ogre_msh_hasSkeleton(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_hasVertexAnimation(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_getSkeleton(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_msh_getSkeletonName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_msh_clearBoneAssignments(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_createManualLodLevel(struct hg3dclass_struct * thisclass_c, float value_c, char * meshName_c, char * groupName_c);
-
-// 
-void ogre_msh_isLodManual(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_removeLodLevels(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_isVertexBufferShadowed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_isIndexBufferShadowed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_buildEdgeList(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_freeEdgeList(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_prepareForShadowVolume(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_isPreparedForShadowVolumes(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_isEdgeListBuilt(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_setAutoBuildEdgeLists(struct hg3dclass_struct * thisclass_c, int autobuild_c);
-
-// 
-void ogre_msh_getAutoBuildEdgeLists(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_getSharedVertexDataAnimationType(struct hg3dclass_struct * thisclass_c, enum EnumVertexAnimationType * result_c);
-
-// Returns whether animation on shared vertex data includes normals. 
-void ogre_msh_getSharedVertexDataAnimationIncludesNormals(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_createAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, float length_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_msh_getAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_msh_hasAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_msh_removeAnimation(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_msh_getNumAnimations(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_msh_getAnimation2(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_msh_removeAllAnimations(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_updateMaterialForAllSubMeshes(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_msh_getPoseCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_msh_removePose2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_msh_removeAllPoses(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassMeshManager.h 
@@ -1,62 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMeshManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMeshManager
-#define _DEFINED_HG3D_ClassMeshManager
-
-#include "ClassPtr.h"
-#include "ClassResource.h"
-
-
-
-// 
-void ogre_mshmgr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mshmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mshmgr_setPrepareAllMeshesForShadowVolumes(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_mshmgr_getPrepareAllMeshesForShadowVolumes(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mshmgr_getBoundsPaddingFactor(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_mshmgr_setBoundsPaddingFactor(struct hg3dclass_struct * thisclass_c, float paddingFactor_c);
-
-// 
-void ogre_mshmgr_loadResource(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * res_c);
-
-// 
-void ogre_mshmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mshmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassMovableObject.h 
@@ -1,154 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMovableObject.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMovableObject
-#define _DEFINED_HG3D_ClassMovableObject
-
-#include "ClassPtr.h"
-#include "ClassNode.h"
-#include "ClassSceneNode.h"
-#include "ClassLight.h"
-
-
-
-// 
-void ogre_mvo_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mvo_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mvo_getMovableType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mvo_getParentNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_mvo_getParentSceneNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// Gets whether the parent node is a TagPoint (or a SceneNode
-void ogre_mvo_isParentTagPoint(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_isAttached(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_detachFromParent(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_mvo_isInScene(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_getBoundingRadius(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_mvo_setVisible(struct hg3dclass_struct * thisclass_c, int visible_c);
-
-// 
-void ogre_mvo_getVisible(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_isVisible(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_setRenderingDistance(struct hg3dclass_struct * thisclass_c, float dist_c);
-
-// 
-void ogre_mvo_getRenderingDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_mvo_setRenderingMinPixelSize(struct hg3dclass_struct * thisclass_c, float pixelSize_c);
-
-// 
-void ogre_mvo_getRenderingMinPixelSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_mvo_setQueryFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// 
-void ogre_mvo_addQueryFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// 
-void ogre_mvo_removeQueryFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// Returns the query flags relevant for this object. 
-void ogre_mvo_getQueryFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mvo_setVisibilityFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// 
-void ogre_mvo_addVisibilityFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// 
-void ogre_mvo_removeVisibilityFlags(struct hg3dclass_struct * thisclass_c, unsigned int flags_c);
-
-// Returns the visibility flags relevant for this object. 
-void ogre_mvo_getVisibilityFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mvo_getLightMask(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mvo_setLightMask(struct hg3dclass_struct * thisclass_c, unsigned int lightMask_c);
-
-// Define a default implementation of method from ShadowCaster which implements no shadows. 
-void ogre_mvo_hasEdgeList(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_setCastShadows(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_mvo_getCastShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_getReceivesShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_getPointExtrusionDistance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * l_c, float * result_c);
-
-// 
-void ogre_mvo_getTypeFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_mvo_setDebugDisplayEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// Gets whether debug display of this object is enabled. 
-void ogre_mvo_isDebugDisplayEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvo_setDefaultQueryFlags(unsigned int flags_c);
-
-// 
-void ogre_mvo_getDefaultQueryFlags(unsigned int * result_c);
-
-// 
-void ogre_mvo_setDefaultVisibilityFlags(unsigned int flags_c);
-
-// 
-void ogre_mvo_getDefaultVisibilityFlags(unsigned int * result_c);
-
-#endif
− include/ClassMovableObjectFactory.h 
@@ -1,50 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMovableObjectFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMovableObjectFactory
-#define _DEFINED_HG3D_ClassMovableObjectFactory
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-
-
-
-// 
-void ogre_mvof_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Get the type of the object to be created. 
-void ogre_mvof_getType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_mvof_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// 
-void ogre_mvof_requestTypeFlags(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_mvof_getTypeFlags(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-#endif
− include/ClassMultiRenderTarget.h 
@@ -1,44 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassMultiRenderTarget.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassMultiRenderTarget
-#define _DEFINED_HG3D_ClassMultiRenderTarget
-
-#include "ClassPtr.h"
-#include "ClassRenderTexture.h"
-
-
-
-// 
-void ogre_mrt_bindSurface(struct hg3dclass_struct * thisclass_c, int attachment_c, struct hg3dclass_struct * target_c);
-
-// 
-void ogre_mrt_unbindSurface(struct hg3dclass_struct * thisclass_c, int attachment_c);
-
-// 
-void ogre_mrt_getBoundSurface(struct hg3dclass_struct * thisclass_c, int index_c, struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassNode.h 
@@ -1,192 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassNode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassNode
-#define _DEFINED_HG3D_ClassNode
-
-#include "ClassPtr.h"
-#include "StructQuaternion.h"
-#include "StructVec3.h"
-#include "EnumNodeTransformSpace.h"
-#include "StructRadians.h"
-#include "ClassCamera.h"
-
-
-
-// 
-void ogre_nd_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_nd_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_nd_getParent(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_getOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_nd_setOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * q_c);
-
-// 
-void ogre_nd_setOrientation2(struct hg3dclass_struct * thisclass_c, float w_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_nd_resetOrientation(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_nd_setPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * pos_c);
-
-// 
-void ogre_nd_setPosition2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_nd_getPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_setScale(struct hg3dclass_struct * thisclass_c, struct vector3_struct * scale_c);
-
-// 
-void ogre_nd_setScale2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_nd_getScale(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_setInheritOrientation(struct hg3dclass_struct * thisclass_c, int inherit_c);
-
-// 
-void ogre_nd_getInheritOrientation(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_nd_setInheritScale(struct hg3dclass_struct * thisclass_c, int inherit_c);
-
-// 
-void ogre_nd_getInheritScale(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_nd_scale(struct hg3dclass_struct * thisclass_c, struct vector3_struct * scale_c);
-
-// 
-void ogre_nd_scale2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c);
-
-// 
-void ogre_nd_translate(struct hg3dclass_struct * thisclass_c, struct vector3_struct * d_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_translate2(struct hg3dclass_struct * thisclass_c, float x_c, float y_c, float z_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_roll(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_pitch(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_yaw(struct hg3dclass_struct * thisclass_c, struct radian_struct * angle_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_rotate(struct hg3dclass_struct * thisclass_c, struct vector3_struct * axis_c, struct radian_struct * angle_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_rotate2(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * q_c, enum EnumNodeTransformSpace relativeTo_c);
-
-// 
-void ogre_nd_createChild(struct hg3dclass_struct * thisclass_c, struct vector3_struct * translate_c, struct quaternion_struct * rotate_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_createChild2(struct hg3dclass_struct * thisclass_c, char * name_c, struct vector3_struct * translate_c, struct quaternion_struct * rotate_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_addChild(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * child_c);
-
-// 
-void ogre_nd_numChildren(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_nd_getChild(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_getChild2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_removeChild(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_removeChild2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * child_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_removeChild3(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nd_removeAllChildren(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_nd_setInitialState(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_nd_resetToInitialState(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_nd_getInitialPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_convertWorldToLocalPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * worldPos_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_convertLocalToWorldPosition(struct hg3dclass_struct * thisclass_c, struct vector3_struct * localPos_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_convertWorldToLocalOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * worldOrientation_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_nd_convertLocalToWorldOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * localOrientation_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_nd_getInitialOrientation(struct hg3dclass_struct * thisclass_c, struct quaternion_struct * result_c);
-
-// 
-void ogre_nd_getInitialScale(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_nd_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, float * result_c);
-
-// 
-void ogre_nd_needUpdate(struct hg3dclass_struct * thisclass_c, int forceParentUpdate_c);
-
-// 
-void ogre_nd_requestUpdate(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * child_c, int forceParentUpdate_c);
-
-// 
-void ogre_nd_cancelUpdate(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * child_c);
-
-// 
-void ogre_nd_queueNeedUpdate(struct hg3dclass_struct * n_c);
-
-// 
-void ogre_nd_processQueuedUpdates();
-
-#endif
− include/ClassNodeAnimationTrack.h 
@@ -1,67 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassNodeAnimationTrack.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassNodeAnimationTrack
-#define _DEFINED_HG3D_ClassNodeAnimationTrack
-
-#include "ClassPtr.h"
-#include "ClassAnimation.h"
-#include "ClassNode.h"
-#include "ClassTimeIndex.h"
-
-
-
-// Constructor. 
-void ogre_noat_construct(struct hg3dclass_struct * parent_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// Destructor. 
-void ogre_noat_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_noat_getAssociatedNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_noat_setAssociatedNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * node_c);
-
-// 
-void ogre_noat_applyToNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * node_c, struct hg3dclass_struct * timeIndex_c, float weight_c, float scale_c);
-
-// 
-void ogre_noat_setUseShortestRotationPath(struct hg3dclass_struct * thisclass_c, int useShortestPath_c);
-
-// 
-void ogre_noat_getUseShortestRotationPath(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_noat_apply(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * timeIndex_c, float weight_c, float scale_c);
-
-// 
-void ogre_noat_hasNonZeroKeyFrames(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_noat_optimise(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassNumericAnimationTrack.h 
@@ -1,42 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassNumericAnimationTrack.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassNumericAnimationTrack
-#define _DEFINED_HG3D_ClassNumericAnimationTrack
-
-#include "ClassPtr.h"
-#include "ClassAnimation.h"
-#include "ClassTimeIndex.h"
-
-
-
-// Constructor. 
-void ogre_nuat_construct(struct hg3dclass_struct * parent_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_nuat_apply(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * timeIndex_c, float weight_c, float scale_c);
-
-#endif
− include/ClassPtr.h 
@@ -1,213 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassPtr.h
-
-// Here are the methods defined, which do the class pointer
-// marshalling and the casting of subclasses to higher classes
-
-#include "wchar.h"
-
-
-
-#ifndef CLASSPTR_INCLUDE_H
-#define CLASSPTR_INCLUDE_H
-
-typedef struct hg3dclass_struct {
-	void *ptr;
-	void *fptr;
-} hg3dclass_struct;
-
-void *getHG3DClassPtr(hg3dclass_struct inSt, const char* className);
-
-
-typedef void ClassAnimation; 
-hg3dclass_struct getHG3DClass_Animation(void *ptrIn);
-
-typedef void ClassAnimationState; 
-hg3dclass_struct getHG3DClass_AnimationState(void *ptrIn);
-
-typedef void ClassAnimationStateSet; 
-hg3dclass_struct getHG3DClass_AnimationStateSet(void *ptrIn);
-
-typedef void ClassAnimationTrack; 
-hg3dclass_struct getHG3DClass_AnimationTrack(void *ptrIn);
-
-typedef void ClassArchive; 
-hg3dclass_struct getHG3DClass_Archive(void *ptrIn);
-
-typedef void ClassArchiveManager; 
-hg3dclass_struct getHG3DClass_ArchiveManager(void *ptrIn);
-
-typedef void ClassBillboard; 
-hg3dclass_struct getHG3DClass_Billboard(void *ptrIn);
-
-typedef void ClassBillboardChain; 
-hg3dclass_struct getHG3DClass_BillboardChain(void *ptrIn);
-
-typedef void ClassBillboardChainFactory; 
-hg3dclass_struct getHG3DClass_BillboardChainFactory(void *ptrIn);
-
-typedef void ClassBillboardSet; 
-hg3dclass_struct getHG3DClass_BillboardSet(void *ptrIn);
-
-typedef void ClassBillboardSetFactory; 
-hg3dclass_struct getHG3DClass_BillboardSetFactory(void *ptrIn);
-
-typedef void ClassBone; 
-hg3dclass_struct getHG3DClass_Bone(void *ptrIn);
-
-typedef void ClassCamera; 
-hg3dclass_struct getHG3DClass_Camera(void *ptrIn);
-
-typedef void ClassConfigFile; 
-hg3dclass_struct getHG3DClass_ConfigFile(void *ptrIn);
-
-typedef void ClassControllerManager; 
-hg3dclass_struct getHG3DClass_ControllerManager(void *ptrIn);
-
-typedef void ClassEntity; 
-hg3dclass_struct getHG3DClass_Entity(void *ptrIn);
-
-typedef void ClassEntityFactory; 
-hg3dclass_struct getHG3DClass_EntityFactory(void *ptrIn);
-
-typedef void ClassException; 
-hg3dclass_struct getHG3DClass_Exception(void *ptrIn);
-
-typedef void ClassFrustum; 
-hg3dclass_struct getHG3DClass_Frustum(void *ptrIn);
-
-typedef void ClassLight; 
-hg3dclass_struct getHG3DClass_Light(void *ptrIn);
-
-typedef void ClassLightFactory; 
-hg3dclass_struct getHG3DClass_LightFactory(void *ptrIn);
-
-typedef void ClassLog; 
-hg3dclass_struct getHG3DClass_Log(void *ptrIn);
-
-typedef void ClassLogManager; 
-hg3dclass_struct getHG3DClass_LogManager(void *ptrIn);
-
-typedef void ClassManualObject; 
-hg3dclass_struct getHG3DClass_ManualObject(void *ptrIn);
-
-typedef void ClassManualObjectFactory; 
-hg3dclass_struct getHG3DClass_ManualObjectFactory(void *ptrIn);
-
-typedef void ClassManualObjectSection; 
-hg3dclass_struct getHG3DClass_ManualObjectSection(void *ptrIn);
-
-typedef void ClassMaterial; 
-hg3dclass_struct getHG3DClass_Material(void *ptrIn);
-
-typedef void ClassMaterialManager; 
-hg3dclass_struct getHG3DClass_MaterialManager(void *ptrIn);
-
-typedef void ClassMesh; 
-hg3dclass_struct getHG3DClass_Mesh(void *ptrIn);
-
-typedef void ClassMeshManager; 
-hg3dclass_struct getHG3DClass_MeshManager(void *ptrIn);
-
-typedef void ClassMovableObject; 
-hg3dclass_struct getHG3DClass_MovableObject(void *ptrIn);
-
-typedef void ClassMovableObjectFactory; 
-hg3dclass_struct getHG3DClass_MovableObjectFactory(void *ptrIn);
-
-typedef void ClassMultiRenderTarget; 
-hg3dclass_struct getHG3DClass_MultiRenderTarget(void *ptrIn);
-
-typedef void ClassNode; 
-hg3dclass_struct getHG3DClass_Node(void *ptrIn);
-
-typedef void ClassNodeAnimationTrack; 
-hg3dclass_struct getHG3DClass_NodeAnimationTrack(void *ptrIn);
-
-typedef void ClassNumericAnimationTrack; 
-hg3dclass_struct getHG3DClass_NumericAnimationTrack(void *ptrIn);
-
-typedef void ClassRenderable; 
-hg3dclass_struct getHG3DClass_Renderable(void *ptrIn);
-
-typedef void ClassRenderSystem; 
-hg3dclass_struct getHG3DClass_RenderSystem(void *ptrIn);
-
-typedef void ClassRenderTarget; 
-hg3dclass_struct getHG3DClass_RenderTarget(void *ptrIn);
-
-typedef void ClassRenderTexture; 
-hg3dclass_struct getHG3DClass_RenderTexture(void *ptrIn);
-
-typedef void ClassRenderWindow; 
-hg3dclass_struct getHG3DClass_RenderWindow(void *ptrIn);
-
-typedef void ClassResource; 
-hg3dclass_struct getHG3DClass_Resource(void *ptrIn);
-
-typedef void ClassResourceGroupManager; 
-hg3dclass_struct getHG3DClass_ResourceGroupManager(void *ptrIn);
-
-typedef void ClassResourceManager; 
-hg3dclass_struct getHG3DClass_ResourceManager(void *ptrIn);
-
-typedef void ClassRoot; 
-hg3dclass_struct getHG3DClass_Root(void *ptrIn);
-
-typedef void ClassSceneManager; 
-hg3dclass_struct getHG3DClass_SceneManager(void *ptrIn);
-
-typedef void ClassSceneManagerFactory; 
-hg3dclass_struct getHG3DClass_SceneManagerFactory(void *ptrIn);
-
-typedef void ClassSceneNode; 
-hg3dclass_struct getHG3DClass_SceneNode(void *ptrIn);
-
-typedef void ClassSkeleton; 
-hg3dclass_struct getHG3DClass_Skeleton(void *ptrIn);
-
-typedef void ClassSkeletonManager; 
-hg3dclass_struct getHG3DClass_SkeletonManager(void *ptrIn);
-
-typedef void ClassTextureManager; 
-hg3dclass_struct getHG3DClass_TextureManager(void *ptrIn);
-
-typedef void ClassTimeIndex; 
-hg3dclass_struct getHG3DClass_TimeIndex(void *ptrIn);
-
-typedef void ClassVertexAnimationTrack; 
-hg3dclass_struct getHG3DClass_VertexAnimationTrack(void *ptrIn);
-
-typedef void ClassViewport; 
-hg3dclass_struct getHG3DClass_Viewport(void *ptrIn);
-
-typedef void ClassWindowEventUtilities; 
-hg3dclass_struct getHG3DClass_WindowEventUtilities(void *ptrIn);
-
-typedef void ClassWindowUtilsHG3D; 
-hg3dclass_struct getHG3DClass_WindowUtilsHG3D(void *ptrIn);
-
-typedef void ClassHG3DMessagePump; 
-hg3dclass_struct getHG3DClass_HG3DMessagePump(void *ptrIn);
-
-#endif
− include/ClassRenderSystem.h 
@@ -1,194 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRenderSystem.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderSystem
-#define _DEFINED_HG3D_ClassRenderSystem
-
-#include "ClassPtr.h"
-#include "ClassMultiRenderTarget.h"
-#include "ClassRenderTarget.h"
-#include "StructColour.h"
-#include "EnumGpuProgramType.h"
-
-
-
-// 
-void ogre_rds_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rds_setConfigOption(struct hg3dclass_struct * thisclass_c, char * name_c, char * value_c);
-
-// 
-void ogre_rds_validateConfigOptions(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rds_reinitialise(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_shutdown(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_setAmbientLight(struct hg3dclass_struct * thisclass_c, float r_c, float g_c, float b_c);
-
-// 
-void ogre_rds_setLightingEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_rds_setWBufferEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_rds_getWBufferEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_createMultiRenderTarget(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rds_destroyRenderWindow(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rds_destroyRenderTexture(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rds_destroyRenderTarget(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rds_attachRenderTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// 
-void ogre_rds_getRenderTarget(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rds_detachRenderTarget(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rds_getErrorDescription(struct hg3dclass_struct * thisclass_c, int errorNumber_c, char * result_c);
-
-// 
-void ogre_rds_setWaitForVerticalBlank(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_rds_getWaitForVerticalBlank(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_getGlobalNumberOfInstances(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_setGlobalNumberOfInstances(struct hg3dclass_struct * thisclass_c, const int val_c);
-
-// 
-void ogre_rds_setFixedPipelineEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_rds_getFixedPipelineEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_setDepthBufferFor(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * renderTarget_c);
-
-// 
-void ogre_rds_areFixedFunctionLightsInViewSpace(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_convertColourValue(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c, unsigned int * pDest_c);
-
-// 
-void ogre_rds_setStencilCheckEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_rds_setNormaliseNormals(struct hg3dclass_struct * thisclass_c, int normalise_c);
-
-// 
-void ogre_rds_bindGpuProgramPassIterationParameters(struct hg3dclass_struct * thisclass_c, enum EnumGpuProgramType gptype_c);
-
-// 
-void ogre_rds_unbindGpuProgram(struct hg3dclass_struct * thisclass_c, enum EnumGpuProgramType gptype_c);
-
-// 
-void ogre_rds_isGpuProgramBound(struct hg3dclass_struct * thisclass_c, enum EnumGpuProgramType gptype_c, int * result_c);
-
-// 
-void ogre_rds_addClipPlane2(struct hg3dclass_struct * thisclass_c, float A_c, float B_c, float C_c, float D_c);
-
-// 
-void ogre_rds_resetClipPlanes(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_setInvertVertexWinding(struct hg3dclass_struct * thisclass_c, int invert_c);
-
-// 
-void ogre_rds_getInvertVertexWinding(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rds_setScissorTest(struct hg3dclass_struct * thisclass_c, int enabled_c, int left_c, int top_c, int right_c, int bottom_c);
-
-// 
-void ogre_rds_clearFrameBuffer(struct hg3dclass_struct * thisclass_c, unsigned int buffers_c, struct colourvalue_struct * colour_c, float depth_c, unsigned short stencil_c);
-
-// 
-void ogre_rds_getHorizontalTexelOffset(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rds_getVerticalTexelOffset(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rds_getMinimumDepthInputValue(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rds_getMaximumDepthInputValue(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rds_setCurrentPassIterationCount(struct hg3dclass_struct * thisclass_c, const int count_c);
-
-// 
-void ogre_rds_setDeriveDepthBias(struct hg3dclass_struct * thisclass_c, int derive_c, float baseValue_c, float multiplier_c, float slopeScale_c);
-
-// 
-void ogre_rds_preExtraThreadsStarted(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_postExtraThreadsStarted(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_registerThread(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_unregisterThread(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_getDisplayMonitorCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rds_beginProfileEvent(struct hg3dclass_struct * thisclass_c, char * eventName_c);
-
-// 
-void ogre_rds_endProfileEvent(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rds_markProfileEvent(struct hg3dclass_struct * thisclass_c, char * event_c);
-
-#endif
− include/ClassRenderTarget.h 
@@ -1,156 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRenderTarget.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderTarget
-#define _DEFINED_HG3D_ClassRenderTarget
-
-#include "ClassPtr.h"
-#include "ClassViewport.h"
-#include "ClassCamera.h"
-
-
-
-// 
-void ogre_rtgt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// Retrieve target's name. 
-void ogre_rtgt_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// Retrieve information about the render target. 
-void ogre_rtgt_getMetrics(struct hg3dclass_struct * thisclass_c, unsigned int * width_c, unsigned int * height_c, unsigned int * colourDepth_c);
-
-// 
-void ogre_rtgt_getWidth(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rtgt_getHeight(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rtgt_getColourDepth(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rtgt_setDepthBufferPool(struct hg3dclass_struct * thisclass_c, unsigned short poolId_c);
-
-// 
-void ogre_rtgt_getDepthBufferPool(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_rtgt_detachDepthBuffer(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rtgt_update(struct hg3dclass_struct * thisclass_c, int swapBuffers_c);
-
-// 
-void ogre_rtgt_swapBuffers(struct hg3dclass_struct * thisclass_c, int waitForVSync_c);
-
-// 
-void ogre_rtgt_addViewport(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, int ZOrder_c, float left_c, float top_c, float width_c, float height_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rtgt_getNumViewports(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_rtgt_getViewport(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rtgt_getViewportByZOrder(struct hg3dclass_struct * thisclass_c, int ZOrder_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rtgt_hasViewportWithZOrder(struct hg3dclass_struct * thisclass_c, int ZOrder_c, int * result_c);
-
-// 
-void ogre_rtgt_removeViewport(struct hg3dclass_struct * thisclass_c, int ZOrder_c);
-
-// 
-void ogre_rtgt_removeAllViewports(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rtgt_getStatistics(struct hg3dclass_struct * thisclass_c, float * lastFPS_c, float * avgFPS_c, float * bestFPS_c, float * worstFPS_c);
-
-// 
-void ogre_rtgt_getLastFPS(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_getAverageFPS(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_getBestFPS(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_getWorstFPS(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_getBestFrameTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_getWorstFrameTime(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rtgt_resetStatistics(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rtgt_removeAllListeners(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rtgt_isActive(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_setActive(struct hg3dclass_struct * thisclass_c, int state_c);
-
-// 
-void ogre_rtgt_setAutoUpdated(struct hg3dclass_struct * thisclass_c, int autoupdate_c);
-
-// 
-void ogre_rtgt_isAutoUpdated(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_writeContentsToFile(struct hg3dclass_struct * thisclass_c, char * filename_c);
-
-// 
-void ogre_rtgt_writeContentsToTimestampedFile(struct hg3dclass_struct * thisclass_c, char * filenamePrefix_c, char * filenameSuffix_c, char * result_c);
-
-// 
-void ogre_rtgt_requiresTextureFlipping(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_getTriangleCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_getBatchCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_isPrimary(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_isHardwareGammaEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rtgt_getFSAA(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rtgt_getFSAAHint(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-#endif
− include/ClassRenderTexture.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRenderTexture.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderTexture
-#define _DEFINED_HG3D_ClassRenderTexture
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_rtx_destruct(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassRenderWindow.h 
@@ -1,94 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRenderWindow.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderWindow
-#define _DEFINED_HG3D_ClassRenderWindow
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_rw_setFullscreen(struct hg3dclass_struct * thisclass_c, int fullScreen_c, unsigned int width_c, unsigned int height_c);
-
-// 
-void ogre_rw_destroy(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rw_resize(struct hg3dclass_struct * thisclass_c, unsigned int width_c, unsigned int height_c);
-
-// 
-void ogre_rw_windowMovedOrResized(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rw_reposition(struct hg3dclass_struct * thisclass_c, int left_c, int top_c);
-
-// 
-void ogre_rw_isVisible(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_setVisible(struct hg3dclass_struct * thisclass_c, int visible_c);
-
-// 
-void ogre_rw_isHidden(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_setHidden(struct hg3dclass_struct * thisclass_c, int hidden_c);
-
-// 
-void ogre_rw_setVSyncEnabled(struct hg3dclass_struct * thisclass_c, int vsync_c);
-
-// 
-void ogre_rw_isVSyncEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_setVSyncInterval(struct hg3dclass_struct * thisclass_c, unsigned int interval_c);
-
-// 
-void ogre_rw_getVSyncInterval(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rw_isActive(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_isClosed(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_isPrimary(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_isFullScreen(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_getMetrics(struct hg3dclass_struct * thisclass_c, unsigned int * width_c, unsigned int * height_c, unsigned int * colourDepth_c, int * left_c, int * top_c);
-
-// 
-void ogre_rw_isDeactivatedOnFocusChange(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rw_setDeactivateOnFocusChange(struct hg3dclass_struct * thisclass_c, int deactivate_c);
-
-#endif
− include/ClassRenderable.h 
@@ -1,83 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRenderable.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRenderable
-#define _DEFINED_HG3D_ClassRenderable
-
-#include "ClassPtr.h"
-#include "StructSharedPtr.h"
-#include "ClassSceneManager.h"
-#include "ClassRenderSystem.h"
-#include "ClassCamera.h"
-
-
-
-// 
-void ogre_rndl_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rndl_getMaterial(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_rndl_preRender(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sm_c, struct hg3dclass_struct * rsys_c, int * result_c);
-
-// 
-void ogre_rndl_postRender(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sm_c, struct hg3dclass_struct * rsys_c);
-
-// 
-void ogre_rndl_getNumWorldTransforms(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_rndl_setUseIdentityProjection(struct hg3dclass_struct * thisclass_c, int useIdentityProjection_c);
-
-// 
-void ogre_rndl_getUseIdentityProjection(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rndl_setUseIdentityView(struct hg3dclass_struct * thisclass_c, int useIdentityView_c);
-
-// 
-void ogre_rndl_getUseIdentityView(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rndl_getSquaredViewDepth(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c, float * result_c);
-
-// 
-void ogre_rndl_getCastsShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rndl_removeCustomParameter(struct hg3dclass_struct * thisclass_c, int index_c);
-
-// 
-void ogre_rndl_hasCustomParameter(struct hg3dclass_struct * thisclass_c, int index_c, int * result_c);
-
-// 
-void ogre_rndl_setPolygonModeOverrideable(struct hg3dclass_struct * thisclass_c, int override_c);
-
-// 
-void ogre_rndl_getPolygonModeOverrideable(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassResource.h 
@@ -1,98 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassResource.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassResource
-#define _DEFINED_HG3D_ClassResource
-
-#include "ClassPtr.h"
-#include "ClassResourceManager.h"
-
-
-
-// 
-void ogre_rsrc_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrc_prepare(struct hg3dclass_struct * thisclass_c, int backgroundThread_c);
-
-// 
-void ogre_rsrc_load(struct hg3dclass_struct * thisclass_c, int backgroundThread_c);
-
-// 
-void ogre_rsrc_reload(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrc_isReloadable(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_isManuallyLoaded(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_unload(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrc_getSize(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_touch(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrc_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rsrc_isPrepared(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_isLoaded(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_isLoading(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_isBackgroundLoaded(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrc_setBackgroundLoaded(struct hg3dclass_struct * thisclass_c, int bl_c);
-
-// 
-void ogre_rsrc_escalateLoading(struct hg3dclass_struct * thisclass_c);
-
-// Gets the group which this resource is a member of. 
-void ogre_rsrc_getGroup(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rsrc_changeGroupOwnership(struct hg3dclass_struct * thisclass_c, char * newGroup_c);
-
-// Gets the manager which created this resource. 
-void ogre_rsrc_getCreator(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rsrc_getOrigin(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rsrc_getStateCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassResourceGroupManager.h 
@@ -1,128 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassResourceGroupManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassResourceGroupManager
-#define _DEFINED_HG3D_ClassResourceGroupManager
-
-#include "ClassPtr.h"
-#include "ClassSceneManager.h"
-
-
-
-// 
-void ogre_rgmgr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rgmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rgmgr_createResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c, const int inGlobalPool_c);
-
-// 
-void ogre_rgmgr_initialiseResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rgmgr_initialiseAllResourceGroups(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rgmgr_prepareResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c, int prepareMainResources_c, int prepareWorldGeom_c);
-
-// 
-void ogre_rgmgr_loadResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c, int loadMainResources_c, int loadWorldGeom_c);
-
-// 
-void ogre_rgmgr_unloadResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c, int reloadableOnly_c);
-
-// 
-void ogre_rgmgr_unloadUnreferencedResourcesInGroup(struct hg3dclass_struct * thisclass_c, char * name_c, int reloadableOnly_c);
-
-// 
-void ogre_rgmgr_clearResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rgmgr_destroyResourceGroup(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rgmgr_isResourceGroupInitialised(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_rgmgr_isResourceGroupLoaded(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_rgmgr_resourceGroupExists(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_rgmgr_addResourceLocation(struct hg3dclass_struct * thisclass_c, char * name_c, char * locType_c, char * resGroup_c, int recursive_c);
-
-// 
-void ogre_rgmgr_removeResourceLocation(struct hg3dclass_struct * thisclass_c, char * name_c, char * resGroup_c);
-
-// 
-void ogre_rgmgr_resourceLocationExists(struct hg3dclass_struct * thisclass_c, char * name_c, char * resGroup_c, int * result_c);
-
-// 
-void ogre_rgmgr_undeclareResource(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// 
-void ogre_rgmgr_resourceExists(struct hg3dclass_struct * thisclass_c, char * group_c, char * filename_c, int * result_c);
-
-// 
-void ogre_rgmgr_resourceExistsInAnyGroup(struct hg3dclass_struct * thisclass_c, char * filename_c, int * result_c);
-
-// 
-void ogre_rgmgr_findGroupContainingResource(struct hg3dclass_struct * thisclass_c, char * filename_c, char * result_c);
-
-// 
-void ogre_rgmgr_deleteResource(struct hg3dclass_struct * thisclass_c, char * filename_c, char * groupName_c, char * locationPattern_c);
-
-// 
-void ogre_rgmgr_deleteMatchingResources(struct hg3dclass_struct * thisclass_c, char * filePattern_c, char * groupName_c, char * locationPattern_c);
-
-// 
-void ogre_rgmgr_setWorldResourceGroupName(struct hg3dclass_struct * thisclass_c, char * groupName_c);
-
-// Gets the resource group that 'world' resources will use. 
-void ogre_rgmgr_getWorldResourceGroupName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rgmgr_linkWorldGeometryToResourceGroup(struct hg3dclass_struct * thisclass_c, char * group_c, char * worldGeometry_c, struct hg3dclass_struct * sceneManager_c);
-
-// 
-void ogre_rgmgr_unlinkWorldGeometryFromResourceGroup(struct hg3dclass_struct * thisclass_c, char * group_c);
-
-// 
-void ogre_rgmgr_isResourceGroupInGlobalPool(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_rgmgr_shutdownAll(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rgmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rgmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassResourceManager.h 
@@ -1,91 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassResourceManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassResourceManager
-#define _DEFINED_HG3D_ClassResourceManager
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_rsrcmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrcmgr_setMemoryBudget(struct hg3dclass_struct * thisclass_c, int bytes_c);
-
-// 
-void ogre_rsrcmgr_getMemoryBudget(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrcmgr_getMemoryUsage(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rsrcmgr_unload(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rsrcmgr_unloadAll(struct hg3dclass_struct * thisclass_c, int reloadableOnly_c);
-
-// 
-void ogre_rsrcmgr_reloadAll(struct hg3dclass_struct * thisclass_c, int reloadableOnly_c);
-
-// 
-void ogre_rsrcmgr_unloadUnreferencedResources(struct hg3dclass_struct * thisclass_c, int reloadableOnly_c);
-
-// 
-void ogre_rsrcmgr_reloadUnreferencedResources(struct hg3dclass_struct * thisclass_c, int reloadableOnly_c);
-
-// 
-void ogre_rsrcmgr_remove2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rsrcmgr_removeAll(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rsrcmgr_removeUnreferencedResources(struct hg3dclass_struct * thisclass_c, int reloadableOnly_c);
-
-// Returns whether the named resource exists in this manager. 
-void ogre_rsrcmgr_resourceExists(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_rsrcmgr_getLoadingOrder(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rsrcmgr_getResourceType(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_rsrcmgr_setVerbose(struct hg3dclass_struct * thisclass_c, int v_c);
-
-// 
-void ogre_rsrcmgr_getVerbose(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Destroy a resource pool. 
-void ogre_rsrcmgr_destroyResourcePool2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// destroy all pools 
-void ogre_rsrcmgr_destroyAllResourcePools(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassRoot.h 
@@ -1,211 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassRoot.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassRoot
-#define _DEFINED_HG3D_ClassRoot
-
-#include "ClassPtr.h"
-#include "ClassRenderSystem.h"
-#include "ClassRenderWindow.h"
-#include "ClassSceneManagerFactory.h"
-#include "ClassSceneManager.h"
-#include "ClassTextureManager.h"
-#include "ClassMeshManager.h"
-#include "StructColour.h"
-#include "ClassRenderTarget.h"
-#include "ClassMovableObjectFactory.h"
-
-
-
-// 
-void ogre_rt_construct(char * pluginFileName_c, char * configFileName_c, char * logFileName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_saveConfig(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_restoreConfig(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_showConfigDialog(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_addRenderSystem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * newRend_c);
-
-// 
-void ogre_rt_getRenderSystemByName(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_setRenderSystem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * system_c);
-
-// 
-void ogre_rt_getRenderSystem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_initialise(struct hg3dclass_struct * thisclass_c, int autoCreateWindow_c, char * windowTitle_c, char * customCapabilitiesConfig_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_isInitialised(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_getRemoveRenderQueueStructuresOnClear(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_setRemoveRenderQueueStructuresOnClear(struct hg3dclass_struct * thisclass_c, int r_c);
-
-// 
-void ogre_rt_addSceneManagerFactory(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * fact_c);
-
-// 
-void ogre_rt_removeSceneManagerFactory(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * fact_c);
-
-// 
-void ogre_rt_createSceneManager(struct hg3dclass_struct * thisclass_c, char * typeName_c, char * instanceName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_destroySceneManager(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sm_c);
-
-// 
-void ogre_rt_getSceneManager(struct hg3dclass_struct * thisclass_c, char * instanceName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_hasSceneManager(struct hg3dclass_struct * thisclass_c, char * instanceName_c, int * result_c);
-
-// 
-void ogre_rt_getTextureManager(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_getMeshManager(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_getErrorDescription(struct hg3dclass_struct * thisclass_c, int errorNumber_c, char * result_c);
-
-// 
-void ogre_rt_queueEndRendering(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_startRendering(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_renderOneFrame(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_renderOneFrame2(struct hg3dclass_struct * thisclass_c, float timeSinceLastFrame_c, int * result_c);
-
-// 
-void ogre_rt_shutdown(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_addResourceLocation(struct hg3dclass_struct * thisclass_c, char * name_c, char * locType_c, char * groupName_c, int recursive_c);
-
-// 
-void ogre_rt_removeResourceLocation(struct hg3dclass_struct * thisclass_c, char * name_c, char * groupName_c);
-
-// 
-void ogre_rt_convertColourValue(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c, unsigned int * pDest_c);
-
-// 
-void ogre_rt_getAutoCreatedWindow(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_detachRenderTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * pWin_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_detachRenderTarget2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_destroyRenderTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * target_c);
-
-// 
-void ogre_rt_destroyRenderTarget2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rt_getRenderTarget(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_loadPlugin(struct hg3dclass_struct * thisclass_c, char * pluginName_c);
-
-// 
-void ogre_rt_unloadPlugin(struct hg3dclass_struct * thisclass_c, char * pluginName_c);
-
-// 
-void ogre_rt_destroyRenderQueueInvocationSequence(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_rt_destroyAllRenderQueueInvocationSequences(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_clearEventTimes(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_rt_setFrameSmoothingPeriod(struct hg3dclass_struct * thisclass_c, float period_c);
-
-// 
-void ogre_rt_getFrameSmoothingPeriod(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rt_addMovableObjectFactory(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * fact_c, int overrideExisting_c);
-
-// 
-void ogre_rt_removeMovableObjectFactory(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * fact_c);
-
-// Checks whether a factory is registered for a given MovableObject
-void ogre_rt_hasMovableObjectFactory(struct hg3dclass_struct * thisclass_c, char * typeName_c, int * result_c);
-
-// Get a MovableObjectFactory
-void ogre_rt_getMovableObjectFactory(struct hg3dclass_struct * thisclass_c, char * typeName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_getDisplayMonitorCount(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_rt_setBlendIndicesGpuRedundant(struct hg3dclass_struct * thisclass_c, int redundant_c);
-
-// 
-void ogre_rt_isBlendIndicesGpuRedundant(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_setBlendWeightsGpuRedundant(struct hg3dclass_struct * thisclass_c, int redundant_c);
-
-// 
-void ogre_rt_isBlendWeightsGpuRedundant(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_rt_setDefaultMinPixelSize(struct hg3dclass_struct * thisclass_c, float pixelSize_c);
-
-// 
-void ogre_rt_getDefaultMinPixelSize(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_rt_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_rt_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassSceneManager.h 
@@ -1,559 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassSceneManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSceneManager
-#define _DEFINED_HG3D_ClassSceneManager
-
-#include "ClassPtr.h"
-#include "ClassCamera.h"
-#include "ClassLight.h"
-#include "ClassSceneNode.h"
-#include "ClassEntity.h"
-#include "StructSharedPtr.h"
-#include "EnumSceneManagerPrefabType.h"
-#include "ClassManualObject.h"
-#include "ClassBillboardChain.h"
-#include "StructColour.h"
-#include "StructQuaternion.h"
-#include "ClassBillboardSet.h"
-#include "ClassAnimation.h"
-#include "ClassAnimationState.h"
-#include "EnumSceneManagerSpecialCaseRenderQueueMode.h"
-#include "EnumLightType.h"
-#include "ClassMovableObject.h"
-#include "ClassRenderSystem.h"
-#include "ClassViewport.h"
-
-
-
-// 
-void ogre_scmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_getName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_scmgr_getTypeName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_scmgr_createCamera(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getCamera(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasCamera(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyCamera(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c);
-
-// 
-void ogre_scmgr_destroyCamera2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllCameras(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_createLight(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createLight2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getLight(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasLight(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyLight(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyLight2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * light_c);
-
-// 
-void ogre_scmgr_destroyAllLights(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_createSceneNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createSceneNode2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_destroySceneNode(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroySceneNode2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * sn_c);
-
-// 
-void ogre_scmgr_getRootSceneNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getSceneNode(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasSceneNode(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_createEntity(struct hg3dclass_struct * thisclass_c, char * entityName_c, char * meshName_c, char * groupName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createEntity2(struct hg3dclass_struct * thisclass_c, char * entityName_c, struct sharedptr_struct * pMesh_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createEntity3(struct hg3dclass_struct * thisclass_c, char * meshName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createEntity4(struct hg3dclass_struct * thisclass_c, struct sharedptr_struct * pMesh_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createEntity5(struct hg3dclass_struct * thisclass_c, char * entityName_c, enum EnumSceneManagerPrefabType ptype_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createEntity6(struct hg3dclass_struct * thisclass_c, enum EnumSceneManagerPrefabType ptype_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getEntity(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasEntity(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyEntity(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * ent_c);
-
-// 
-void ogre_scmgr_destroyEntity2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllEntities(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_createManualObject(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createManualObject2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getManualObject(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasManualObject(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyManualObject(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// 
-void ogre_scmgr_destroyManualObject2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllManualObjects(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_createBillboardChain(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createBillboardChain2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getBillboardChain(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasBillboardChain(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyBillboardChain(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// 
-void ogre_scmgr_destroyBillboardChain2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllBillboardChains(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_hasRibbonTrail(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyRibbonTrail2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllRibbonTrails(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_hasParticleSystem(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyParticleSystem2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllParticleSystems(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_clearScene(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_setAmbientLight(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_scmgr_getAmbientLight(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_scmgr_prepareWorldGeometry(struct hg3dclass_struct * thisclass_c, char * filename_c);
-
-// 
-void ogre_scmgr_setWorldGeometry(struct hg3dclass_struct * thisclass_c, char * filename_c);
-
-// 
-void ogre_scmgr_estimateWorldGeometry(struct hg3dclass_struct * thisclass_c, char * filename_c, int * result_c);
-
-// 
-void ogre_scmgr_hasOption(struct hg3dclass_struct * thisclass_c, char * strKey_c, int * result_c);
-
-// 
-void ogre_scmgr_setSkyPlaneEnabled(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_scmgr_isSkyPlaneEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_getSkyPlaneNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_setSkyBox(struct hg3dclass_struct * thisclass_c, int enable_c, char * materialName_c, float distance_c, int drawFirst_c, struct quaternion_struct * orientation_c, char * groupName_c);
-
-// 
-void ogre_scmgr_setSkyBoxEnabled(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_scmgr_isSkyBoxEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_getSkyBoxNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_setSkyDome(struct hg3dclass_struct * thisclass_c, int enable_c, char * materialName_c, float curvature_c, float tiling_c, float distance_c, int drawFirst_c, struct quaternion_struct * orientation_c, int xsegments_c, int ysegments_c, int ysegments_keep_c, char * groupName_c);
-
-// 
-void ogre_scmgr_setSkyDomeEnabled(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_scmgr_isSkyDomeEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_getSkyDomeNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getFogColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_scmgr_getFogStart(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_getFogEnd(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_getFogDensity(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_createBillboardSet(struct hg3dclass_struct * thisclass_c, char * name_c, unsigned int poolSize_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_createBillboardSet2(struct hg3dclass_struct * thisclass_c, unsigned int poolSize_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getBillboardSet(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasBillboardSet(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyBillboardSet(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * set_c);
-
-// 
-void ogre_scmgr_destroyBillboardSet2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllBillboardSets(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_setDisplaySceneNodes(struct hg3dclass_struct * thisclass_c, int display_c);
-
-// 
-void ogre_scmgr_getDisplaySceneNodes(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_createAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, float length_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyAnimation(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllAnimations(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_createAnimationState(struct hg3dclass_struct * thisclass_c, char * animName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getAnimationState(struct hg3dclass_struct * thisclass_c, char * animName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyAnimationState(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllAnimationStates(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_clearSpecialCaseRenderQueues(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_setSpecialCaseRenderQueueMode(struct hg3dclass_struct * thisclass_c, enum EnumSceneManagerSpecialCaseRenderQueueMode mode_c);
-
-// 
-void ogre_scmgr_getSpecialCaseRenderQueueMode(struct hg3dclass_struct * thisclass_c, enum EnumSceneManagerSpecialCaseRenderQueueMode * result_c);
-
-// 
-void ogre_scmgr_showBoundingBoxes(struct hg3dclass_struct * thisclass_c, int bShow_c);
-
-// 
-void ogre_scmgr_getShowBoundingBoxes(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShowDebugShadows(struct hg3dclass_struct * thisclass_c, int debug_c);
-
-// 
-void ogre_scmgr_getShowDebugShadows(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_scmgr_getShadowColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_scmgr_setShadowDirectionalLightExtrusionDistance(struct hg3dclass_struct * thisclass_c, float dist_c);
-
-// 
-void ogre_scmgr_getShadowDirectionalLightExtrusionDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_setShadowFarDistance(struct hg3dclass_struct * thisclass_c, float distance_c);
-
-// 
-void ogre_scmgr_getShadowFarDistance(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_getShadowFarDistanceSquared(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_setShadowIndexBufferSize(struct hg3dclass_struct * thisclass_c, int size_c);
-
-// Get the size of the shadow index buffer. 
-void ogre_scmgr_getShadowIndexBufferSize(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowTextureSize(struct hg3dclass_struct * thisclass_c, unsigned short size_c);
-
-// 
-void ogre_scmgr_setShadowTextureFSAA(struct hg3dclass_struct * thisclass_c, unsigned short fsaa_c);
-
-// 
-void ogre_scmgr_setShadowTextureCount(struct hg3dclass_struct * thisclass_c, int count_c);
-
-// Get the number of the textures allocated for texture based shadows. 
-void ogre_scmgr_getShadowTextureCount(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowTextureCountPerLightType(struct hg3dclass_struct * thisclass_c, enum EnumLightType type_c, int count_c);
-
-// Get the number of shadow textures is assigned for the given light type. 
-void ogre_scmgr_getShadowTextureCountPerLightType(struct hg3dclass_struct * thisclass_c, enum EnumLightType type_c, int * result_c);
-
-// 
-void ogre_scmgr_getShadowTexture(struct hg3dclass_struct * thisclass_c, int shadowIndex_c, struct sharedptr_struct * result_c);
-
-// 
-void ogre_scmgr_setShadowDirLightTextureOffset(struct hg3dclass_struct * thisclass_c, float offset_c);
-
-// 
-void ogre_scmgr_getShadowDirLightTextureOffset(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_scmgr_setShadowTextureFadeStart(struct hg3dclass_struct * thisclass_c, float fadeStart_c);
-
-// 
-void ogre_scmgr_setShadowTextureFadeEnd(struct hg3dclass_struct * thisclass_c, float fadeEnd_c);
-
-// 
-void ogre_scmgr_setShadowTextureSelfShadow(struct hg3dclass_struct * thisclass_c, int selfShadow_c);
-
-// Gets whether or not texture shadows attempt to self-shadow. 
-void ogre_scmgr_getShadowTextureSelfShadow(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowTextureCasterMaterial(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_setShadowTextureReceiverMaterial(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_setShadowCasterRenderBackFaces(struct hg3dclass_struct * thisclass_c, int bf_c);
-
-// 
-void ogre_scmgr_getShadowCasterRenderBackFaces(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowUseInfiniteFarPlane(struct hg3dclass_struct * thisclass_c, int enable_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueStencilBased(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueTextureBased(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueModulative(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueAdditive(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueIntegrated(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_isShadowTechniqueInUse(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setShadowUseLightClipPlanes(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_scmgr_getShadowUseLightClipPlanes(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setLateMaterialResolving(struct hg3dclass_struct * thisclass_c, int isLate_c);
-
-// 
-void ogre_scmgr_isLateMaterialResolving(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_hasStaticGeometry(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyStaticGeometry2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllStaticGeometry(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_destroyInstancedGeometry2(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllInstancedGeometry(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_hasInstanceManager(struct hg3dclass_struct * thisclass_c, char * managerName_c, int * result_c);
-
-// 
-void ogre_scmgr_destroyInstanceManager(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_scmgr_destroyAllInstanceManagers(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_destroyMovableObject(struct hg3dclass_struct * thisclass_c, char * name_c, char * typeName_c);
-
-// 
-void ogre_scmgr_destroyMovableObject2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * m_c);
-
-// 
-void ogre_scmgr_destroyAllMovableObjectsByType(struct hg3dclass_struct * thisclass_c, char * typeName_c);
-
-// 
-void ogre_scmgr_destroyAllMovableObjects(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_scmgr_getMovableObject(struct hg3dclass_struct * thisclass_c, char * name_c, char * typeName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_hasMovableObject(struct hg3dclass_struct * thisclass_c, char * name_c, char * typeName_c, int * result_c);
-
-// 
-void ogre_scmgr_injectMovableObject(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * m_c);
-
-// 
-void ogre_scmgr_extractMovableObject(struct hg3dclass_struct * thisclass_c, char * name_c, char * typeName_c);
-
-// 
-void ogre_scmgr_extractMovableObject2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * m_c);
-
-// 
-void ogre_scmgr_extractAllMovableObjectsByType(struct hg3dclass_struct * thisclass_c, char * typeName_c);
-
-// 
-void ogre_scmgr_setVisibilityMask(struct hg3dclass_struct * thisclass_c, unsigned int vmask_c);
-
-// 
-void ogre_scmgr_getVisibilityMask(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_scmgr_setFindVisibleObjects(struct hg3dclass_struct * thisclass_c, int find_c);
-
-// 
-void ogre_scmgr_getFindVisibleObjects(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setNormaliseNormalsOnScale(struct hg3dclass_struct * thisclass_c, int n_c);
-
-// 
-void ogre_scmgr_getNormaliseNormalsOnScale(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_setFlipCullingOnNegativeScale(struct hg3dclass_struct * thisclass_c, int n_c);
-
-// 
-void ogre_scmgr_getFlipCullingOnNegativeScale(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_scmgr_getDestinationRenderSystem(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_getCurrentViewport(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_scmgr_setCameraRelativeRendering(struct hg3dclass_struct * thisclass_c, int rel_c);
-
-// 
-void ogre_scmgr_getCameraRelativeRendering(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassSceneManagerFactory.h 
@@ -1,44 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassSceneManagerFactory.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSceneManagerFactory
-#define _DEFINED_HG3D_ClassSceneManagerFactory
-
-#include "ClassPtr.h"
-#include "ClassSceneManager.h"
-
-
-
-// 
-void ogre_smf_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_smf_createInstance(struct hg3dclass_struct * thisclass_c, char * instanceName_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_smf_destroyInstance(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * instance_c);
-
-#endif
− include/ClassSceneNode.h 
@@ -1,119 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassSceneNode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSceneNode
-#define _DEFINED_HG3D_ClassSceneNode
-
-#include "ClassPtr.h"
-#include "ClassMovableObject.h"
-#include "ClassSceneManager.h"
-#include "StructVec3.h"
-#include "StructQuaternion.h"
-
-
-
-// 
-void ogre_sn_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_sn_attachObject(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// 
-void ogre_sn_numAttachedObjects(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_sn_getAttachedObject(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_getAttachedObject2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_detachObject(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_detachObject2(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * obj_c);
-
-// 
-void ogre_sn_detachObject3(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_detachAllObjects(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_sn_isInSceneGraph(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_sn_getCreator(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_removeAndDestroyChild(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_sn_removeAndDestroyChild2(struct hg3dclass_struct * thisclass_c, unsigned short index_c);
-
-// 
-void ogre_sn_removeAndDestroyAllChildren(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_sn_showBoundingBox(struct hg3dclass_struct * thisclass_c, int bShow_c);
-
-// 
-void ogre_sn_hideBoundingBox(struct hg3dclass_struct * thisclass_c, int bHide_c);
-
-// 
-void ogre_sn_getShowBoundingBox(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_sn_createChildSceneNode(struct hg3dclass_struct * thisclass_c, struct vector3_struct * translate_c, struct quaternion_struct * rotate_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_createChildSceneNode2(struct hg3dclass_struct * thisclass_c, char * name_c, struct vector3_struct * translate_c, struct quaternion_struct * rotate_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_setFixedYawAxis(struct hg3dclass_struct * thisclass_c, int useFixed_c, struct vector3_struct * fixedAxis_c);
-
-// 
-void ogre_sn_getAutoTrackTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_getAutoTrackOffset(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_sn_getAutoTrackLocalDirection(struct hg3dclass_struct * thisclass_c, struct vector3_struct * result_c);
-
-// 
-void ogre_sn_getParentSceneNode(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sn_setVisible(struct hg3dclass_struct * thisclass_c, int visible_c, int cascade_c);
-
-// 
-void ogre_sn_flipVisibility(struct hg3dclass_struct * thisclass_c, int cascade_c);
-
-// 
-void ogre_sn_setDebugDisplayEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c, int cascade_c);
-
-#endif
− include/ClassSkeleton.h 
@@ -1,116 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassSkeleton.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSkeleton
-#define _DEFINED_HG3D_ClassSkeleton
-
-#include "ClassPtr.h"
-#include "ClassBone.h"
-#include "ClassAnimation.h"
-#include "ClassAnimationStateSet.h"
-#include "EnumSkeletonAnimationBlendMode.h"
-
-
-
-// 
-void ogre_skl_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_skl_createBone(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_createBone2(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_createBone3(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_createBone4(struct hg3dclass_struct * thisclass_c, char * name_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_getNumBones(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_skl_getRootBone(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_getBone(struct hg3dclass_struct * thisclass_c, unsigned short handle_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_getBone2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_hasBone(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_skl_setBindingPose(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_skl_reset(struct hg3dclass_struct * thisclass_c, int resetManualBones_c);
-
-// 
-void ogre_skl_createAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, float length_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_getAnimation2(struct hg3dclass_struct * thisclass_c, char * name_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_hasAnimation(struct hg3dclass_struct * thisclass_c, char * name_c, int * result_c);
-
-// 
-void ogre_skl_removeAnimation(struct hg3dclass_struct * thisclass_c, char * name_c);
-
-// 
-void ogre_skl_setAnimationState(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * animSet_c);
-
-// 
-void ogre_skl_getNumAnimations(struct hg3dclass_struct * thisclass_c, unsigned short * result_c);
-
-// 
-void ogre_skl_getAnimation3(struct hg3dclass_struct * thisclass_c, unsigned short index_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_skl_getBlendMode(struct hg3dclass_struct * thisclass_c, enum EnumSkeletonAnimationBlendMode * result_c);
-
-// 
-void ogre_skl_setBlendMode(struct hg3dclass_struct * thisclass_c, enum EnumSkeletonAnimationBlendMode state_c);
-
-// 
-void ogre_skl_optimiseAllAnimations(struct hg3dclass_struct * thisclass_c, int preservingIdentityNodeTracks_c);
-
-// 
-void ogre_skl_addLinkedSkeletonAnimationSource(struct hg3dclass_struct * thisclass_c, char * skelName_c, float scale_c);
-
-// Remove all links to other skeletons for the purposes of sharing animation. 
-void ogre_skl_removeAllLinkedSkeletonAnimationSources(struct hg3dclass_struct * thisclass_c);
-
-// Have manual bones been modified since the skeleton was last updated? 
-void ogre_skl_getManualBonesDirty(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// Are there any manually controlled bones? 
-void ogre_skl_hasManualBones(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-#endif
− include/ClassSkeletonManager.h 
@@ -1,46 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassSkeletonManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassSkeletonManager
-#define _DEFINED_HG3D_ClassSkeletonManager
-
-#include "ClassPtr.h"
-
-
-
-// Constructor. 
-void ogre_sklmgr_construct(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sklmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_sklmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_sklmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassTextureManager.h 
@@ -1,49 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassTextureManager.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassTextureManager
-#define _DEFINED_HG3D_ClassTextureManager
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_txmgr_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_txmgr_setDefaultNumMipmaps(struct hg3dclass_struct * thisclass_c, int num_c);
-
-// 
-void ogre_txmgr_getDefaultNumMipmaps(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_txmgr_getSingleton(struct hg3dclass_struct * result_c);
-
-// 
-void ogre_txmgr_getSingletonPtr(struct hg3dclass_struct * result_c);
-
-#endif
− include/ClassTimeIndex.h 
@@ -1,46 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassTimeIndex.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassTimeIndex
-#define _DEFINED_HG3D_ClassTimeIndex
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_tnx_construct(float timePos_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_tnx_hasKeyIndex(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_tnx_getTimePos(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_tnx_getKeyIndex(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-#endif
− include/ClassVertexAnimationTrack.h 
@@ -1,62 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassVertexAnimationTrack.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassVertexAnimationTrack
-#define _DEFINED_HG3D_ClassVertexAnimationTrack
-
-#include "ClassPtr.h"
-#include "ClassAnimation.h"
-#include "EnumVertexAnimationType.h"
-#include "ClassTimeIndex.h"
-#include "EnumVertexAnimationTrackTargetMode.h"
-
-
-
-// Constructor. 
-void ogre_vat_construct(struct hg3dclass_struct * parent_c, unsigned short handle_c, enum EnumVertexAnimationType animType_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_vat_getAnimationType(struct hg3dclass_struct * thisclass_c, enum EnumVertexAnimationType * result_c);
-
-// 
-void ogre_vat_getVertexAnimationIncludesNormals(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vat_apply(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * timeIndex_c, float weight_c, float scale_c);
-
-// Set the target mode. 
-void ogre_vat_setTargetMode(struct hg3dclass_struct * thisclass_c, enum EnumVertexAnimationTrackTargetMode m_c);
-
-// Get the target mode. 
-void ogre_vat_getTargetMode(struct hg3dclass_struct * thisclass_c, enum EnumVertexAnimationTrackTargetMode * result_c);
-
-// 
-void ogre_vat_hasNonZeroKeyFrames(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vat_optimise(struct hg3dclass_struct * thisclass_c);
-
-#endif
− include/ClassViewport.h 
@@ -1,174 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassViewport.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassViewport
-#define _DEFINED_HG3D_ClassViewport
-
-#include "ClassPtr.h"
-#include "ClassCamera.h"
-#include "ClassRenderTarget.h"
-#include "StructColour.h"
-#include "EnumOrientationMode.h"
-#include "StructVec2.h"
-
-
-
-// 
-void ogre_vprt_construct(struct hg3dclass_struct * camera_c, struct hg3dclass_struct * target_c, float left_c, float top_c, float width_c, float height_c, int ZOrder_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_vprt_destruct(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_vprt_update(struct hg3dclass_struct * thisclass_c);
-
-// 
-void ogre_vprt_clear(struct hg3dclass_struct * thisclass_c, unsigned int buffers_c, struct colourvalue_struct * colour_c, float depth_c, unsigned short stencil_c);
-
-// 
-void ogre_vprt_getTarget(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_vprt_getCamera(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * result_c);
-
-// 
-void ogre_vprt_setCamera(struct hg3dclass_struct * thisclass_c, struct hg3dclass_struct * cam_c);
-
-// 
-void ogre_vprt_getZOrder(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_getLeft(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_vprt_getTop(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_vprt_getWidth(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_vprt_getHeight(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_vprt_getActualLeft(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_getActualTop(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_getActualWidth(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_getActualHeight(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_setDimensions(struct hg3dclass_struct * thisclass_c, float left_c, float top_c, float width_c, float height_c);
-
-// 
-void ogre_vprt_setOrientationMode(struct hg3dclass_struct * thisclass_c, enum EnumOrientationMode orientationMode_c, int setDefault_c);
-
-// 
-void ogre_vprt_getOrientationMode(struct hg3dclass_struct * thisclass_c, enum EnumOrientationMode * result_c);
-
-// 
-void ogre_vprt_setBackgroundColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * colour_c);
-
-// 
-void ogre_vprt_getBackgroundColour(struct hg3dclass_struct * thisclass_c, struct colourvalue_struct * result_c);
-
-// 
-void ogre_vprt_setDepthClear(struct hg3dclass_struct * thisclass_c, float depth_c);
-
-// 
-void ogre_vprt_getDepthClear(struct hg3dclass_struct * thisclass_c, float * result_c);
-
-// 
-void ogre_vprt_setClearEveryFrame(struct hg3dclass_struct * thisclass_c, int clear_c, unsigned int buffers_c);
-
-// 
-void ogre_vprt_getClearEveryFrame(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_getClearBuffers(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_vprt_setAutoUpdated(struct hg3dclass_struct * thisclass_c, int autoupdate_c);
-
-// 
-void ogre_vprt_isAutoUpdated(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_setMaterialScheme(struct hg3dclass_struct * thisclass_c, char * schemeName_c);
-
-// 
-void ogre_vprt_getMaterialScheme(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_vprt_getActualDimensions(struct hg3dclass_struct * thisclass_c, int * left_c, int * top_c, int * width_c, int * height_c);
-
-// 
-void ogre_vprt_setOverlaysEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_vprt_getOverlaysEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_setSkiesEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_vprt_getSkiesEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_setShadowsEnabled(struct hg3dclass_struct * thisclass_c, int enabled_c);
-
-// 
-void ogre_vprt_getShadowsEnabled(struct hg3dclass_struct * thisclass_c, int * result_c);
-
-// 
-void ogre_vprt_setVisibilityMask(struct hg3dclass_struct * thisclass_c, unsigned int mask_c);
-
-// 
-void ogre_vprt_getVisibilityMask(struct hg3dclass_struct * thisclass_c, unsigned int * result_c);
-
-// 
-void ogre_vprt_setRenderQueueInvocationSequenceName(struct hg3dclass_struct * thisclass_c, char * sequenceName_c);
-
-// 
-void ogre_vprt_getRenderQueueInvocationSequenceName(struct hg3dclass_struct * thisclass_c, char * result_c);
-
-// 
-void ogre_vprt_pointOrientedToScreen(struct hg3dclass_struct * thisclass_c, struct vector2_struct * v_c, int orientationMode_c, struct vector2_struct * outv_c);
-
-// 
-void ogre_vprt_pointOrientedToScreen2(struct hg3dclass_struct * thisclass_c, float orientedX_c, float orientedY_c, int orientationMode_c, float * screenX_c, float * screenY_c);
-
-// 
-void ogre_vprt_setDefaultOrientationMode(enum EnumOrientationMode orientationMode_c);
-
-// 
-void ogre_vprt_getDefaultOrientationMode(enum EnumOrientationMode * result_c);
-
-#endif
− include/ClassWindowEventUtilities.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassWindowEventUtilities.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWindowEventUtilities
-#define _DEFINED_HG3D_ClassWindowEventUtilities
-
-#include "ClassPtr.h"
-
-
-
-// 
-void ogre_weu_messagePump();
-
-#endif
− include/ClassWindowUtilsHG3D.h 
@@ -1,41 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// ClassWindowUtilsHG3D.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_ClassWindowUtilsHG3D
-#define _DEFINED_HG3D_ClassWindowUtilsHG3D
-
-#include "ClassPtr.h"
-#include "ClassRenderWindow.h"
-
-
-
-// 
-void ogre_wuhg3d_getWindowTopLeft(struct hg3dclass_struct * rwind_c, int * top_c, int * bottom_c, int * left_c, int * right_c);
-
-// 
-void ogre_wuhg3d_showCursor(int fShow_c);
-
-#endif
− include/EnumAnimationInterpolationMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumAnimationInterpolationMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumAnimationInterpolationMode
-#define _DEFINED_HG3D_EnumAnimationInterpolationMode
-
-
-
-enum EnumAnimationInterpolationMode
-{
-  IM_LINEAR, // 
-  IM_SPLINE // 
-};
-#endif
− include/EnumAnimationRotationInterpolationMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumAnimationRotationInterpolationMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumAnimationRotationInterpolationMode
-#define _DEFINED_HG3D_EnumAnimationRotationInterpolationMode
-
-
-
-enum EnumAnimationRotationInterpolationMode
-{
-  RIM_LINEAR, // 
-  RIM_SPHERICAL // 
-};
-#endif
− include/EnumAxisAlignedBoxCorner.h 
@@ -1,43 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumAxisAlignedBoxCorner.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumAxisAlignedBoxCorner
-#define _DEFINED_HG3D_EnumAxisAlignedBoxCorner
-
-
-
-enum EnumAxisAlignedBoxCorner
-{
-  CE_FAR_LEFT_BOTTOM = 0, // 
-  CE_FAR_LEFT_TOP = 1, // 
-  CE_FAR_RIGHT_TOP = 2, // 
-  CE_FAR_RIGHT_BOTTOM = 3, // 
-  CE_NEAR_RIGHT_BOTTOM = 7, // 
-  CE_NEAR_LEFT_BOTTOM = 6, // 
-  CE_NEAR_LEFT_TOP = 5, // 
-  CE_NEAR_RIGHT_TOP = 4 // 
-};
-#endif
− include/EnumAxisAlignedBoxExtent.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumAxisAlignedBoxExtent.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumAxisAlignedBoxExtent
-#define _DEFINED_HG3D_EnumAxisAlignedBoxExtent
-
-
-
-enum EnumAxisAlignedBoxExtent
-{
-  EXTENT_NULL, // 
-  EXTENT_FINITE, // 
-  EXTENT_INFINITE // 
-};
-#endif
− include/EnumBillboardChainTexCoordDirection.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumBillboardChainTexCoordDirection.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumBillboardChainTexCoordDirection
-#define _DEFINED_HG3D_EnumBillboardChainTexCoordDirection
-
-
-
-enum EnumBillboardChainTexCoordDirection
-{
-  TCD_U, // Tex coord in elements is treated as the 'u' texture coordinate. 
-  TCD_V // Tex coord in elements is treated as the 'v' texture coordinate. 
-};
-#endif
− include/EnumBillboardOrigin.h 
@@ -1,44 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumBillboardOrigin.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumBillboardOrigin
-#define _DEFINED_HG3D_EnumBillboardOrigin
-
-
-
-enum EnumBillboardOrigin
-{
-  BBO_TOP_LEFT, // 
-  BBO_TOP_CENTER, // 
-  BBO_TOP_RIGHT, // 
-  BBO_CENTER_LEFT, // 
-  BBO_CENTER, // 
-  BBO_CENTER_RIGHT, // 
-  BBO_BOTTOM_LEFT, // 
-  BBO_BOTTOM_CENTER, // 
-  BBO_BOTTOM_RIGHT // 
-};
-#endif
− include/EnumBillboardRotationType.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumBillboardRotationType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumBillboardRotationType
-#define _DEFINED_HG3D_EnumBillboardRotationType
-
-
-
-enum EnumBillboardRotationType
-{
-  BBR_VERTEX, // Rotate the billboard's vertices around their facing direction. 
-  BBR_TEXCOORD // Rotate the billboard's texture coordinates. 
-};
-#endif
− include/EnumBillboardType.h 
@@ -1,40 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumBillboardType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumBillboardType
-#define _DEFINED_HG3D_EnumBillboardType
-
-
-
-enum EnumBillboardType
-{
-  BBT_POINT, // Standard point billboard (default), always faces the camera completely and is always upright. 
-  BBT_ORIENTED_COMMON, // Billboards are oriented around a shared direction vector (used as Y axis) and only rotate around this to face the camera. 
-  BBT_ORIENTED_SELF, // Billboards are oriented around their own direction vector (their own Y axis) and only rotate around this to face the camera. 
-  BBT_PERPENDICULAR_COMMON, // Billboards are perpendicular to a shared direction vector (used as Z axis, the facing direction) and X, Y axis are determined by a shared up-vertor. 
-  BBT_PERPENDICULAR_SELF // Billboards are perpendicular to their own direction vector (their own Z axis, the facing direction) and X, Y axis are determined by a shared up-vertor. 
-};
-#endif
− include/EnumDataStreamAccessMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumDataStreamAccessMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumDataStreamAccessMode
-#define _DEFINED_HG3D_EnumDataStreamAccessMode
-
-
-
-enum EnumDataStreamAccessMode
-{
-  AM_READ = 1, // 
-  AM_WRITE = 2 // 
-};
-#endif
− include/EnumEntityVertexDataBindChoice.h 
@@ -1,39 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumEntityVertexDataBindChoice.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumEntityVertexDataBindChoice
-#define _DEFINED_HG3D_EnumEntityVertexDataBindChoice
-
-
-
-enum EnumEntityVertexDataBindChoice
-{
-  BIND_ORIGINAL, // 
-  BIND_SOFTWARE_SKELETAL, // 
-  BIND_SOFTWARE_MORPH, // 
-  BIND_HARDWARE_MORPH // 
-};
-#endif
− include/EnumExceptionCode.h 
@@ -1,45 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumExceptionCode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumExceptionCode
-#define _DEFINED_HG3D_EnumExceptionCode
-
-
-
-enum EnumExceptionCode
-{
-  ERR_CANNOT_WRITE_TO_FILE, // 
-  ERR_INVALID_STATE, // 
-  ERR_INVALIDPARAMS, // 
-  ERR_RENDERINGAPI_ERROR, // 
-  ERR_DUPLICATE_ITEM, // 
-  ERR_ITEM_NOT_FOUND, // 
-  ERR_FILE_NOT_FOUND, // 
-  ERR_INTERNAL_ERROR, // 
-  ERR_RT_ASSERTION_FAILED, // 
-  ERR_NOT_IMPLEMENTED // 
-};
-#endif
− include/EnumFrustumPlane.h 
@@ -1,41 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumFrustumPlane.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumFrustumPlane
-#define _DEFINED_HG3D_EnumFrustumPlane
-
-
-
-enum EnumFrustumPlane
-{
-  FRUSTUM_PLANE_NEAR = 0, // 
-  FRUSTUM_PLANE_FAR = 1, // 
-  FRUSTUM_PLANE_LEFT = 2, // 
-  FRUSTUM_PLANE_RIGHT = 3, // 
-  FRUSTUM_PLANE_TOP = 4, // 
-  FRUSTUM_PLANE_BOTTOM = 5 // 
-};
-#endif
− include/EnumGpuProgramType.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumGpuProgramType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumGpuProgramType
-#define _DEFINED_HG3D_EnumGpuProgramType
-
-
-
-enum EnumGpuProgramType
-{
-  GPT_VERTEX_PROGRAM, // 
-  GPT_FRAGMENT_PROGRAM, // 
-  GPT_GEOMETRY_PROGRAM // 
-};
-#endif
− include/EnumLightType.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumLightType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumLightType
-#define _DEFINED_HG3D_EnumLightType
-
-
-
-enum EnumLightType
-{
-  LT_POINT = 0, // Point light sources give off light equally in all directions, so require only position not direction. 
-  LT_DIRECTIONAL = 1, // Directional lights simulate parallel light beams from a distant source, hence have direction but no position. 
-  LT_SPOTLIGHT = 2 // Spotlights simulate a cone of light from a source so require position and direction, plus extra values for falloff. 
-};
-#endif
− include/EnumLogMessageLevel.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumLogMessageLevel.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumLogMessageLevel
-#define _DEFINED_HG3D_EnumLogMessageLevel
-
-
-
-enum EnumLogMessageLevel
-{
-  LML_TRIVIAL = 1, // 
-  LML_NORMAL = 2, // 
-  LML_CRITICAL = 3 // 
-};
-#endif
− include/EnumLoggingLevel.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumLoggingLevel.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumLoggingLevel
-#define _DEFINED_HG3D_EnumLoggingLevel
-
-
-
-enum EnumLoggingLevel
-{
-  LL_LOW = 1, // 
-  LL_NORMAL = 2, // 
-  LL_BOREME = 3 // 
-};
-#endif
− include/EnumMathAngleUnit.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumMathAngleUnit.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumMathAngleUnit
-#define _DEFINED_HG3D_EnumMathAngleUnit
-
-
-
-enum EnumMathAngleUnit
-{
-  AU_DEGREE, // 
-  AU_RADIAN // 
-};
-#endif
− include/EnumMeshManagerMeshBuildType.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumMeshManagerMeshBuildType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumMeshManagerMeshBuildType
-#define _DEFINED_HG3D_EnumMeshManagerMeshBuildType
-
-
-
-enum EnumMeshManagerMeshBuildType
-{
-  MBT_PLANE, // 
-  MBT_CURVED_ILLUSION_PLANE, // 
-  MBT_CURVED_PLANE // 
-};
-#endif
− include/EnumNodeTransformSpace.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumNodeTransformSpace.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumNodeTransformSpace
-#define _DEFINED_HG3D_EnumNodeTransformSpace
-
-
-
-enum EnumNodeTransformSpace
-{
-  TS_LOCAL, // Transform is relative to the local space. 
-  TS_PARENT, // Transform is relative to the space of the parent node. 
-  TS_WORLD // Transform is relative to world space. 
-};
-#endif
− include/EnumOrientationMode.h 
@@ -1,42 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumOrientationMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumOrientationMode
-#define _DEFINED_HG3D_EnumOrientationMode
-
-
-
-enum EnumOrientationMode
-{
-  OR_DEGREE_0 = 0, // 
-  OR_DEGREE_90 = 1, // 
-  OR_DEGREE_180 = 2, // 
-  OR_DEGREE_270 = 3, // 
-  OR_PORTRAIT = OR_DEGREE_0, // 
-  OR_LANDSCAPERIGHT = OR_DEGREE_90, // 
-  OR_LANDSCAPELEFT = OR_DEGREE_270 // 
-};
-#endif
− include/EnumProjectionType.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumProjectionType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumProjectionType
-#define _DEFINED_HG3D_EnumProjectionType
-
-
-
-enum EnumProjectionType
-{
-  PT_ORTHOGRAPHIC, // 
-  PT_PERSPECTIVE // 
-};
-#endif
− include/EnumRenderOperationOperationType.h 
@@ -1,41 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumRenderOperationOperationType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumRenderOperationOperationType
-#define _DEFINED_HG3D_EnumRenderOperationOperationType
-
-
-
-enum EnumRenderOperationOperationType
-{
-  OT_POINT_LIST = 1, // A list of points, 1 vertex per point. 
-  OT_LINE_LIST = 2, // A list of lines, 2 vertices per line. 
-  OT_LINE_STRIP = 3, // A strip of connected lines, 1 vertex per line plus 1 start vertex. 
-  OT_TRIANGLE_LIST = 4, // A list of triangles, 3 vertices per triangle. 
-  OT_TRIANGLE_STRIP = 5, // A strip of triangles, 3 vertices for the first triangle, and 1 per triangle after that. 
-  OT_TRIANGLE_FAN = 6 // A fan of triangles, 3 vertices for the first triangle, and 1 per triangle after that. 
-};
-#endif
− include/EnumRenderTargetFrameBuffer.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumRenderTargetFrameBuffer.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumRenderTargetFrameBuffer
-#define _DEFINED_HG3D_EnumRenderTargetFrameBuffer
-
-
-
-enum EnumRenderTargetFrameBuffer
-{
-  FB_FRONT, // 
-  FB_BACK, // 
-  FB_AUTO // 
-};
-#endif
− include/EnumRenderTargetStatFlags.h 
@@ -1,42 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumRenderTargetStatFlags.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumRenderTargetStatFlags
-#define _DEFINED_HG3D_EnumRenderTargetStatFlags
-
-
-
-enum EnumRenderTargetStatFlags
-{
-  SF_NONE = 0, // 
-  SF_FPS = 1, // 
-  SF_AVG_FPS = 2, // 
-  SF_BEST_FPS = 4, // 
-  SF_WORST_FPS = 8, // 
-  SF_TRIANGLE_COUNT = 16, // 
-  SF_ALL = 0xFFFF // 
-};
-#endif
− include/EnumRootFrameEventTimeType.h 
@@ -1,40 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumRootFrameEventTimeType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumRootFrameEventTimeType
-#define _DEFINED_HG3D_EnumRootFrameEventTimeType
-
-
-
-enum EnumRootFrameEventTimeType
-{
-  FETT_ANY = 0, // 
-  FETT_STARTED = 1, // 
-  FETT_QUEUED = 2, // 
-  FETT_ENDED = 3, // 
-  FETT_COUNT = 4 // 
-};
-#endif
− include/EnumSceneManagerBoxPlane.h 
@@ -1,41 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSceneManagerBoxPlane.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSceneManagerBoxPlane
-#define _DEFINED_HG3D_EnumSceneManagerBoxPlane
-
-
-
-enum EnumSceneManagerBoxPlane
-{
-  BP_FRONT = 0, // 
-  BP_BACK = 1, // 
-  BP_LEFT = 2, // 
-  BP_RIGHT = 3, // 
-  BP_UP = 4, // 
-  BP_DOWN = 5 // 
-};
-#endif
− include/EnumSceneManagerIlluminationRenderStage.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSceneManagerIlluminationRenderStage.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSceneManagerIlluminationRenderStage
-#define _DEFINED_HG3D_EnumSceneManagerIlluminationRenderStage
-
-
-
-enum EnumSceneManagerIlluminationRenderStage
-{
-  IRS_NONE, // No special illumination stage. 
-  IRS_RENDER_TO_TEXTURE, // Render to texture stage, used for texture based shadows. 
-  IRS_RENDER_RECEIVER_PASS // Render from shadow texture to receivers stage. 
-};
-#endif
− include/EnumSceneManagerPrefabType.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSceneManagerPrefabType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSceneManagerPrefabType
-#define _DEFINED_HG3D_EnumSceneManagerPrefabType
-
-
-
-enum EnumSceneManagerPrefabType
-{
-  PT_PLANE, // 
-  PT_CUBE, // 
-  PT_SPHERE // 
-};
-#endif
− include/EnumSceneManagerSpecialCaseRenderQueueMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSceneManagerSpecialCaseRenderQueueMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSceneManagerSpecialCaseRenderQueueMode
-#define _DEFINED_HG3D_EnumSceneManagerSpecialCaseRenderQueueMode
-
-
-
-enum EnumSceneManagerSpecialCaseRenderQueueMode
-{
-  SCRQM_INCLUDE, // Render only the queues in the special case list. 
-  SCRQM_EXCLUDE // Render all except the queues in the special case list. 
-};
-#endif
− include/EnumSceneType.h 
@@ -1,40 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSceneType.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSceneType
-#define _DEFINED_HG3D_EnumSceneType
-
-
-
-enum EnumSceneType
-{
-  ST_GENERIC = 1, // 
-  ST_EXTERIOR_CLOSE = 2, // 
-  ST_EXTERIOR_FAR = 4, // 
-  ST_EXTERIOR_REAL_FAR = 8, // 
-  ST_INTERIOR = 16 // 
-};
-#endif
− include/EnumSkeletonAnimationBlendMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumSkeletonAnimationBlendMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumSkeletonAnimationBlendMode
-#define _DEFINED_HG3D_EnumSkeletonAnimationBlendMode
-
-
-
-enum EnumSkeletonAnimationBlendMode
-{
-  ANIMBLEND_AVERAGE = 0, // Animations are applied by calculating a weighted average of all animations. 
-  ANIMBLEND_CUMULATIVE = 1 // Animations are applied by calculating a weighted cumulative total. 
-};
-#endif
− include/EnumStencilOperation.h 
@@ -1,43 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumStencilOperation.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumStencilOperation
-#define _DEFINED_HG3D_EnumStencilOperation
-
-
-
-enum EnumStencilOperation
-{
-  SOP_KEEP, // Leave the stencil buffer unchanged. 
-  SOP_ZERO, // Set the stencil value to zero. 
-  SOP_REPLACE, // Set the stencil value to the reference value. 
-  SOP_INCREMENT, // Increase the stencil value by 1, clamping at the maximum value. 
-  SOP_DECREMENT, // Decrease the stencil value by 1, clamping at 0. 
-  SOP_INCREMENT_WRAP, // Increase the stencil value by 1, wrapping back to 0 when incrementing the maximum value. 
-  SOP_DECREMENT_WRAP, // Decrease the stencil value by 1, wrapping when decrementing 0. 
-  SOP_INVERT // Invert the bits of the stencil buffer. 
-};
-#endif
− include/EnumTexCoordCalcMethod.h 
@@ -1,41 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumTexCoordCalcMethod.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumTexCoordCalcMethod
-#define _DEFINED_HG3D_EnumTexCoordCalcMethod
-
-
-
-enum EnumTexCoordCalcMethod
-{
-  TEXCALC_NONE, // No calculated texture coordinates. 
-  TEXCALC_ENVIRONMENT_MAP, // Environment map based on vertex normals. 
-  TEXCALC_ENVIRONMENT_MAP_PLANAR, // Environment map based on vertex positions. 
-  TEXCALC_ENVIRONMENT_MAP_REFLECTION, // 
-  TEXCALC_ENVIRONMENT_MAP_NORMAL, // 
-  TEXCALC_PROJECTIVE_TEXTURE // Projective texture. 
-};
-#endif
− include/EnumVertexAnimationTrackTargetMode.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// EnumVertexAnimationTrackTargetMode.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumVertexAnimationTrackTargetMode
-#define _DEFINED_HG3D_EnumVertexAnimationTrackTargetMode
-
-
-
-enum EnumVertexAnimationTrackTargetMode
-{
-  TM_SOFTWARE, // Interpolate vertex positions in software. 
-  TM_HARDWARE // 
-};
-#endif
− include/EnumVertexAnimationType.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.h
-
-// 
-
-#include "wchar.h"
-#ifndef _DEFINED_HG3D_EnumVertexAnimationType
-#define _DEFINED_HG3D_EnumVertexAnimationType
-
-
-
-enum EnumVertexAnimationType
-{
-  VAT_NONE = 0, // No animation. 
-  VAT_MORPH = 1, // Morph animation is made up of many interpolated snapshot keyframes. 
-  VAT_POSE = 2 // Pose animation is made up of a single delta pose keyframe. 
-};
-#endif
− include/OgreDllDefines.h 
@@ -1,43 +0,0 @@-// (c) 2011-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-
-// OgreDllDefines.h
-
-#ifndef _HGamer3DOgre021_DLLDEFINES_H_
-#define _HGamer3DOgre021_DLLDEFINES_H_
-
-/* Cmake will define HGamer3DOgre021_EXPORTS on Windows when it
-configures to build a shared library. If you are going to use
-another build system on windows or create the visual studio
-projects by hand you need to define MyLibrary_EXPORTS when
-building a DLL on windows.
-*/
-
-// We are using the Visual Studio Compiler and building Shared libraries
-
-#if (defined (_WIN32)) && !(defined (__GNUC__)) 
-  #if defined(HGamer3DOgre021_EXPORTS)
-    #define  Ogre_LIB_EXPORT __declspec(dllexport)
-  #else
-    #define  Ogre_LIB_EXPORT __declspec(dllimport)
-  #endif /* HGamer3DOgre021_EXPORTS */
-#else /* defined (_WIN32) */
- #define Ogre_LIB_EXPORT
-#endif
-
-#endif /* _HGamer3DOgre021_DLLDEFINES_H_ */
− include/StructColour.h 
@@ -1,40 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructColour.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_COLOURVALUE
-#define _INC_STRUCT_COLOURVALUE
-
-typedef struct colourvalue_struct {
-	float r;
-	float g;
-	float b;
-	float a;
-} colourvalue_struct;
-
-#endif
− include/StructDegrees.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructDegrees.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_DEGREE
-#define _INC_STRUCT_DEGREE
-
-typedef struct degree_struct {
-	float d;
-} degree_struct;
-
-
-#endif
− include/StructHG3DClass.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructHG3DClass.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_HG3DCLASS
-#define _INC_STRUCT_HG3DCLASS
-
-typedef struct hg3dclass_struct {
-	void *ptr;
-	void *fptr;
-} hg3dclass_struct;
-
-#endif
− include/StructQuaternion.h 
@@ -1,40 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructQuaternion.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_QUATERNION
-#define _INC_STRUCT_QUATERNION
-
-typedef struct quaternion_struct {
-	float fw;
-	float fx;
-	float fy;
-	float fz;
-} quaternion_struct;
-
-#endif
− include/StructRadians.h 
@@ -1,37 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructRadians.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_RADIAN
-#define _INC_STRUCT_RADIAN
-
-typedef struct radian_struct {
-	float r;
-} radian_struct;
-
-#endif
− include/StructSharedPtr.h 
@@ -1,39 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructSharedPtr.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_SHAREDPTR
-#define _INC_STRUCT_SHAREDPTR
-
-typedef struct sharedptr_struct {
-	void* pT;
-	void* pCount;
-	void* pFreeFunc;
-} sharedptr_struct;
-
-#endif
− include/StructVec2.h 
@@ -1,38 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructVec2.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_VECTOR2
-#define _INC_STRUCT_VECTOR2
-
-typedef struct vector2_struct {
-	float x;
-	float y;
-} vector2_struct;
-
-#endif
− include/StructVec3.h 
@@ -1,39 +0,0 @@-// 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-2013 Peter Althainz
-// 
-// The files are part of HGamer3D (www.hgamer3d.org)
-// 
-// 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.
-// 
-
-// StructVec3.h
-
-// 
-
-#include "wchar.h"
-
-
-
-#ifndef _INC_STRUCT_VECTOR3
-#define _INC_STRUCT_VECTOR3
-
-typedef struct vector3_struct {
-	float x;
-	float y;
-	float z;
-} vector3_struct;
-
-#endif
+ include/WindowUtilsHG3D.h view
@@ -0,0 +1,66 @@+// WindowUtilsHG3D - special utilities+++#include <Ogre.h>++// Linux CODE+// ----------++#ifdef __linux__ ++class WindowUtilsHG3D {+	+	public:+		static void getWindowTopLeft(Ogre::RenderWindow* rwind, int* top, int* bottom, int* left, int* right) {+		  unsigned int width, height, colourDepth;+		  int left2, top2;+		  rwind->getMetrics (width, height, colourDepth, left2, top2);+		  *left = left2;+		  *top = top2;+		  *bottom = (int)(top2 + height);+		  *right = (int)(left2 + width);+		};+		+		static void showCursor(bool fShow) {+		};+	+};+++// Windows CODE+// ------------++#elif _WIN32++#include <windows.h>++class WindowUtilsHG3D {+	+	public:+		static void getWindowTopLeft(Ogre::RenderWindow* rwind, int* top, int* bottom, int* left, int* right) {+			HWND windowHnd = 0;+			RECT rect;+			rwind->getCustomAttribute("WINDOW", &windowHnd);+			GetWindowRect(windowHnd, &rect);+			*top = rect.top;+			*bottom = rect.bottom;+			*left = rect.left;+			*right = rect.right;+		};+		+		static void showCursor(bool fShow) {+			if (fShow) {+				ShowCursor(TRUE);+			} else {+				ShowCursor(FALSE);+			};+		};+	+};++#else++// CODE if not Windows or Linux+// ----------------------------++#endif
+ include/colorvalue_struct.h view
@@ -0,0 +1,6 @@+typedef struct colourvalue_struct {
+	float r;
+	float g;
+	float b;
+	float a;
+} colourvalue_struct;
+ include/degree_struct.h view
@@ -0,0 +1,3 @@+typedef struct degree_struct {
+	float d;
+} degree_struct;
+ include/hg3dstruct.h view
@@ -0,0 +1,4 @@+typedef struct hg3dclass_struct {+	void *ptr;+	void *fptr;+} hg3dclass_struct;
+ include/quaternion_struct.h view
@@ -0,0 +1,6 @@+typedef struct quaternion_struct {
+	float fw;
+	float fx;
+	float fy;
+	float fz;
+} quaternion_struct;
+ include/radian_struct.h view
@@ -0,0 +1,3 @@+typedef struct radian_struct {
+	float r;
+} radian_struct;
+ include/sharedptr_struct.h view
@@ -0,0 +1,5 @@+typedef struct sharedptr_struct {
+	void* pT;
+	void* pCount;
+	void* pFreeFunc;
+} sharedptr_struct;
+ include/vector2_struct.h view
@@ -0,0 +1,4 @@+typedef struct vector2_struct {
+	float x;
+	float y;
+} vector2_struct;
+ include/vector3_struct.h view
@@ -0,0 +1,5 @@+typedef struct vector3_struct {
+	float x;
+	float y;
+	float z;
+} vector3_struct;
+ include/vector4_struct.h view
@@ -0,0 +1,6 @@+typedef struct vector4_struct {
+	float x;
+	float y;
+	float z;
+	float w;
+} vector4_struct;