packages feed

HGamer3D-Ogre-Binding 0.1.3 → 0.1.4

raw patch · 162 files changed

+3045/−3421 lines, 162 filesdep ~HGamer3D-Data

Dependency ranges changed: HGamer3D-Data

Files

HGamer3D-Ogre-Binding.cabal view
@@ -1,5 +1,5 @@ Name:                HGamer3D-Ogre-Binding
-Version:             0.1.3
+Version:             0.1.4
 Synopsis:            Library to enable 3D game development for Haskell - Ogre Bindings
 Description:         
 	Library, to enable 3D game development for Haskell,
@@ -18,12 +18,12 @@ Cabal-Version:       >=1.2
 Homepage:            http://www.althainz.de/HGamer3D.html
 Category:            Game
-Extra-source-files:  Setup.hs include/EnumMaterialScriptSection.h,include/EnumIncludeOrExclude.h,include/EnumGuiHorizontalAlignment.h,include/EnumSharedPtrFreeMethod.h,include/EnumFaceGroupType.h,include/EnumCapabilityKeywordType.h,include/EnumDisplayMode.h,include/EnumTextureCubeFace.h,include/EnumConcreteNodeType.h,include/EnumIlluminationPassesState.h,include/EnumMeshBuildType.h,include/EnumBuiltinHashFunction.h,include/EnumSkeletonChunkID.h,include/EnumSceneBlendOperation.h,include/EnumParticleType.h,include/EnumTextureFilterOptions.h,include/EnumLayerBlendOperationEx.h,include/EnumLayerBlendType.h,include/EnumGuiMetricsMode.h,include/EnumLayerBlendOperation.h,include/EnumVertexDataBindChoice.h,include/EnumProfileGroupMask.h,include/EnumMemoryCategory.h,include/EnumValueType.h,include/EnumTextureAddressingMode.h,include/EnumFrameBufferType.h,include/EnumTrackVertexColourEnum.h,include/EnumFontType.h,include/EnumCpuFeatures.h,include/EnumVertexReductionQuota.h,include/EnumLogMessageLevel.h,include/EnumPixelFormat.h,include/EnumSceneType.h,include/EnumBufferType.h,include/EnumOrganisationMode.h,include/EnumLoadingState.h,include/EnumEnvMapType.h,include/EnumTextureType.h,include/EnumPassType.h,include/EnumPrefabType.h,include/EnumClipResult.h,include/EnumAutoConstantType.h,include/EnumFrameBuffer.h,include/EnumUsage.h,include/EnumFrameEventTimeType.h,include/EnumShadowTechnique.h,include/EnumIlluminationRenderStage.h,include/EnumExceptionCodes.h,include/EnumVertexElementSemantic.h,include/EnumTextureMipmap.h,include/EnumBillboardOrigin.h,include/EnumSerializeEvent.h,include/EnumBillboardType.h,include/EnumManualCullingMode.h,include/EnumBorderCellIndex.h,include/EnumOrientationMode.h,include/EnumTexCoordCalcMethod.h,include/EnumShadeOptions.h,include/EnumLockOptions.h,include/EnumGPUVendor.h,include/EnumeTexturePlayMode.h,include/EnumTransformSpace.h,include/EnumFilterOptions.h,include/EnumSceneBlendFactor.h,include/EnumParseAction.h,include/EnumStatFlags.h,include/EnumResourceType.h,include/EnumStencilOperation.h,include/EnumAbstractNodeType.h,include/EnumImageFlags.h,include/EnumAlignment.h,include/EnumExtent.h,include/EnumSkeletonAnimationBlendMode.h,include/EnumGpuParamVariability.h,include/EnumTextureScope.h,include/EnumSide.h,include/EnumIlluminationStage.h,include/EnumShadowRenderableFlags.h,include/EnumBufferLicenseType.h,include/EnumLayerBlendSource.h,include/EnumBoxPlane.h,include/EnumFogMode.h,include/EnumRequestType.h,include/EnumACDataType.h,include/EnumVertexAnimationType.h,include/EnumPolygonMode.h,include/EnumTextureEffectType.h,include/EnumCullingMode.h,include/EnumSortMode.h,include/EnumGuiVerticalAlignment.h,include/EnumBindingType.h,include/EnumEndian.h,include/EnumVertexElementType.h,include/EnumTargetMode.h,include/EnumSpecialCaseRenderQueueMode.h,include/EnumFilterType.h,include/EnumGpuConstantType.h,include/EnumLoggingLevel.h,include/EnumProjectionType.h,include/EnumWorldFragmentType.h,include/EnumAngleUnit.h,include/EnumPixelFormatFlags.h,include/EnumFilter.h,include/EnumContentType.h,include/EnumBillboardRotationType.h,include/EnumRenderQueueGroupID.h,include/EnumGpuProgramType.h,include/EnumParameterType.h,include/EnumOperationType.h,include/EnumIndexType.h,include/EnumTexCoordDirection.h,include/EnumElementType.h,include/EnumPatchSurfaceType.h,include/EnumPixelComponentType.h,include/EnumSceneBlendType.h,include/EnumCapabilitiesCategory.h,include/EnumLightTypes.h,include/EnumStatus.h,include/EnumRealStorageFormat.h,include/EnumCompareFunction.h,include/EnumRotationInterpolationMode.h,include/EnumInterpolationMode.h,include/EnumCacheType.h,include/EnumTextureTransformType.h,include/EnumVisibleSide.h,include/EnumAccessMode.h,include/EnumPrograms.h,include/EnumWaveformType.h,include/EnumInputMode.h,include/EnumFrustumPlane.h,include/TypeAngle.h,include/TypeVector4.h,include/TypeVector2.h,include/TypeVector3.h,include/TypeQuaternion.h,include/TypeHG3DClass.h,include/TypeRadian.h,include/TypeSharedPtr.h,include/TypeColourValue.h,include/TypeDegree.h,include/ClassPtr.h,include/Utils.h,include/OgreDllDefines.h,include/ClassItemIdentityException.h,include/ClassResourceGroupManager.h,include/ClassMultiRenderTarget.h,include/ClassTempBlendedBufferInfo.h,include/ClassCompositor.h,include/ClassTransformKeyFrame.h,include/ClassSceneManager.h,include/ClassRenderTarget.h,include/ClassInvalidStateException.h,include/ClassBillboardSet.h,include/ClassSimpleRenderable.h,include/ClassMovableObjectFactory.h,include/ClassParticleSystemFactory.h,include/ClassHardwareBufferLicensee.h,include/ClassPlaneOptimalShadowCameraSetup.h,include/ClassFileStreamDataStream.h,include/ClassPatchMesh.h,include/ClassRenderQueueInvocation.h,include/ClassDefaultRaySceneQuery.h,include/ClassTextureManager.h,include/ClassHardwareBufferManagerBase.h,include/ClassSubMesh.h,include/ClassBillboardChain.h,include/ClassParticleAffector.h,include/ClassMesh.h,include/ClassHighLevelGpuProgramFactory.h,include/ClassMaterialBucket.h,include/ClassElement.h,include/ClassCompositorInstance.h,include/ClassInvalidParametersException.h,include/ClassParticleEmitter.h,include/ClassDefaultSphereSceneQuery.h,include/ClassException.h,include/ClassHardwareBufferManager.h,include/ClassKeyFrame.h,include/ClassOverlayManager.h,include/ClassDefaultSceneManagerFactory.h,include/ClassLogManager.h,include/ClassCompositionTechnique.h,include/ClassFrustum.h,include/ClassMaterial.h,include/ClassFileHandleDataStream.h,include/ClassDefaultSceneManager.h,include/ClassGpuProgram.h,include/ClassCompositorChain.h,include/ClassBillboardSetFactory.h,include/ClassMovableObject.h,include/ClassIOException.h,include/ClassLODBucket.h,include/ClassBone.h,include/ClassFileNotFoundException.h,include/ClassArchive.h,include/ClassBillboardChainFactory.h,include/ClassInternalErrorException.h,include/ClassStringConverter.h,include/ClassVertexPoseKeyFrame.h,include/ClassBillboard.h,include/ClassStringUtil.h,include/ClassResourceGroupListener.h,include/ClassAnimation.h,include/ClassSceneNode.h,include/ClassTimeIndex.h,include/ClassAnimationTrack.h,include/ClassRegion.h,include/ClassHighLevelGpuProgram.h,include/ClassLightFactory.h,include/ClassLiSPSMShadowCameraSetup.h,include/ClassPass.h,include/ClassTextureUnitState.h,include/ClassNumericAnimationTrack.h,include/ClassCmdManualNamedConstsFile.h,include/ClassSkeletonInstance.h,include/ClassMeshSerializer.h,include/ClassAnimationState.h,include/ClassSceneManagerEnumerator.h,include/ClassRenderingAPIException.h,include/ClassCmdPose.h,include/ClassTechnique.h,include/ClassManualObjectSectionShadowRenderable.h,include/ClassEntity.h,include/ClassSceneManagerFactory.h,include/ClassRenderWindow.h,include/ClassShadowCameraSetup.h,include/ClassRuntimeAssertionException.h,include/ClassRibbonTrailFactory.h,include/ClassSubEntity.h,include/ClassManualObject.h,include/ClassWindowEventListener.h,include/ClassHardwareIndexBuffer.h,include/ClassGpuProgramManager.h,include/ClassOverlay.h,include/ClassStaticGeometry.h,include/ClassRibbonTrail.h,include/ClassManualObjectSection.h,include/ClassVertexAnimationTrack.h,include/ClassArchiveManager.h,include/ClassSkeleton.h,include/ClassSkeletonSerializer.h,include/ClassConfigFile.h,include/ClassRoot.h,include/ClassHardwarePixelBuffer.h,include/ClassResourceManager.h,include/ClassOverlayContainer.h,include/ClassWindowEventUtilities.h,include/ClassControllerManager.h,include/ClassMaterialSerializer.h,include/ClassNodeAnimationTrack.h,include/ClassLight.h,include/ClassDefaultShadowCameraSetup.h,include/ClassCompositionTargetPass.h,include/ClassRenderTexture.h,include/ClassCompositorManager.h,include/ClassEntityFactory.h,include/ClassMemoryDataStream.h,include/ClassHardwareOcclusionQuery.h,include/ClassPSSMShadowCameraSetup.h,include/ClassVertexMorphKeyFrame.h,include/ClassNode.h,include/ClassPatchSurface.h,include/ClassManualObjectFactory.h,include/ClassNumericKeyFrame.h,include/ClassDataStream.h,include/ClassRenderObjectListener.h,include/ClassGeometryBucket.h,include/ClassViewport.h,include/ClassDefaultPlaneBoundedVolumeListSceneQuery.h,include/ClassCompositionPass.h,include/ClassSceneMgrQueuedRenderableVisitor.h,include/ClassRenderSystemOperation.h,include/ClassUnimplementedException.h,include/ClassRenderQueueInvocationSequence.h,include/ClassDefaultAxisAlignedBoxSceneQuery.h,include/ClassMaterialManager.h,include/ClassCamera.h
+Extra-source-files:  Setup.hs include/EnumMaterialScriptSection.h,include/EnumIncludeOrExclude.h,include/EnumGuiHorizontalAlignment.h,include/EnumSharedPtrFreeMethod.h,include/EnumFaceGroupType.h,include/EnumCapabilityKeywordType.h,include/EnumDisplayMode.h,include/EnumTextureCubeFace.h,include/EnumConcreteNodeType.h,include/EnumIlluminationPassesState.h,include/EnumMeshBuildType.h,include/EnumBuiltinHashFunction.h,include/EnumSkeletonChunkID.h,include/EnumSceneBlendOperation.h,include/EnumParticleType.h,include/EnumTextureFilterOptions.h,include/EnumLayerBlendOperationEx.h,include/EnumLayerBlendType.h,include/EnumGuiMetricsMode.h,include/EnumLayerBlendOperation.h,include/EnumVertexDataBindChoice.h,include/EnumProfileGroupMask.h,include/EnumMemoryCategory.h,include/EnumValueType.h,include/EnumTextureAddressingMode.h,include/EnumFrameBufferType.h,include/EnumTrackVertexColourEnum.h,include/EnumFontType.h,include/EnumCpuFeatures.h,include/EnumVertexReductionQuota.h,include/EnumLogMessageLevel.h,include/EnumPixelFormat.h,include/EnumSceneType.h,include/EnumBufferType.h,include/EnumOrganisationMode.h,include/EnumLoadingState.h,include/EnumEnvMapType.h,include/EnumTextureType.h,include/EnumPassType.h,include/EnumPrefabType.h,include/EnumClipResult.h,include/EnumAutoConstantType.h,include/EnumFrameBuffer.h,include/EnumUsage.h,include/EnumFrameEventTimeType.h,include/EnumShadowTechnique.h,include/EnumIlluminationRenderStage.h,include/EnumExceptionCodes.h,include/EnumVertexElementSemantic.h,include/EnumTextureMipmap.h,include/EnumBillboardOrigin.h,include/EnumSerializeEvent.h,include/EnumBillboardType.h,include/EnumManualCullingMode.h,include/EnumBorderCellIndex.h,include/EnumOrientationMode.h,include/EnumTexCoordCalcMethod.h,include/EnumShadeOptions.h,include/EnumLockOptions.h,include/EnumGPUVendor.h,include/EnumeTexturePlayMode.h,include/EnumTransformSpace.h,include/EnumFilterOptions.h,include/EnumSceneBlendFactor.h,include/EnumParseAction.h,include/EnumStatFlags.h,include/EnumResourceType.h,include/EnumStencilOperation.h,include/EnumAbstractNodeType.h,include/EnumImageFlags.h,include/EnumAlignment.h,include/EnumExtent.h,include/EnumSkeletonAnimationBlendMode.h,include/EnumGpuParamVariability.h,include/EnumTextureScope.h,include/EnumSide.h,include/EnumIlluminationStage.h,include/EnumShadowRenderableFlags.h,include/EnumBufferLicenseType.h,include/EnumLayerBlendSource.h,include/EnumBoxPlane.h,include/EnumFogMode.h,include/EnumRequestType.h,include/EnumACDataType.h,include/EnumVertexAnimationType.h,include/EnumPolygonMode.h,include/EnumTextureEffectType.h,include/EnumCullingMode.h,include/EnumSortMode.h,include/EnumGuiVerticalAlignment.h,include/EnumBindingType.h,include/EnumEndian.h,include/EnumVertexElementType.h,include/EnumTargetMode.h,include/EnumSpecialCaseRenderQueueMode.h,include/EnumFilterType.h,include/EnumGpuConstantType.h,include/EnumLoggingLevel.h,include/EnumProjectionType.h,include/EnumWorldFragmentType.h,include/EnumAngleUnit.h,include/EnumPixelFormatFlags.h,include/EnumFilter.h,include/EnumContentType.h,include/EnumBillboardRotationType.h,include/EnumRenderQueueGroupID.h,include/EnumGpuProgramType.h,include/EnumParameterType.h,include/EnumOperationType.h,include/EnumIndexType.h,include/EnumTexCoordDirection.h,include/EnumElementType.h,include/EnumPatchSurfaceType.h,include/EnumPixelComponentType.h,include/EnumSceneBlendType.h,include/EnumCapabilitiesCategory.h,include/EnumLightTypes.h,include/EnumStatus.h,include/EnumRealStorageFormat.h,include/EnumCompareFunction.h,include/EnumRotationInterpolationMode.h,include/EnumInterpolationMode.h,include/EnumCacheType.h,include/EnumTextureTransformType.h,include/EnumVisibleSide.h,include/EnumAccessMode.h,include/EnumPrograms.h,include/EnumWaveformType.h,include/EnumInputMode.h,include/EnumFrustumPlane.h,include/TypeVector4.h,include/TypeVector2.h,include/TypeVector3.h,include/TypeQuaternion.h,include/TypeHG3DClass.h,include/TypeRadian.h,include/TypeColour.h,include/TypeSharedPtr.h,include/TypeDegree.h,include/ClassPtr.h,include/Utils.h,include/OgreDllDefines.h,include/ClassItemIdentityException.h,include/ClassResourceGroupManager.h,include/ClassMultiRenderTarget.h,include/ClassTempBlendedBufferInfo.h,include/ClassCompositor.h,include/ClassTransformKeyFrame.h,include/ClassSceneManager.h,include/ClassRenderTarget.h,include/ClassInvalidStateException.h,include/ClassBillboardSet.h,include/ClassSimpleRenderable.h,include/ClassMovableObjectFactory.h,include/ClassParticleSystemFactory.h,include/ClassHardwareBufferLicensee.h,include/ClassPlaneOptimalShadowCameraSetup.h,include/ClassFileStreamDataStream.h,include/ClassPatchMesh.h,include/ClassRenderQueueInvocation.h,include/ClassDefaultRaySceneQuery.h,include/ClassTextureManager.h,include/ClassHardwareBufferManagerBase.h,include/ClassSubMesh.h,include/ClassBillboardChain.h,include/ClassParticleAffector.h,include/ClassMesh.h,include/ClassHighLevelGpuProgramFactory.h,include/ClassMaterialBucket.h,include/ClassElement.h,include/ClassCompositorInstance.h,include/ClassInvalidParametersException.h,include/ClassParticleEmitter.h,include/ClassDefaultSphereSceneQuery.h,include/ClassException.h,include/ClassHardwareBufferManager.h,include/ClassKeyFrame.h,include/ClassOverlayManager.h,include/ClassDefaultSceneManagerFactory.h,include/ClassLogManager.h,include/ClassCompositionTechnique.h,include/ClassFrustum.h,include/ClassMaterial.h,include/ClassFileHandleDataStream.h,include/ClassDefaultSceneManager.h,include/ClassGpuProgram.h,include/ClassCompositorChain.h,include/ClassBillboardSetFactory.h,include/ClassMovableObject.h,include/ClassIOException.h,include/ClassLODBucket.h,include/ClassBone.h,include/ClassFileNotFoundException.h,include/ClassArchive.h,include/ClassBillboardChainFactory.h,include/ClassInternalErrorException.h,include/ClassStringConverter.h,include/ClassVertexPoseKeyFrame.h,include/ClassBillboard.h,include/ClassStringUtil.h,include/ClassResourceGroupListener.h,include/ClassAnimation.h,include/ClassSceneNode.h,include/ClassTimeIndex.h,include/ClassAnimationTrack.h,include/ClassRegion.h,include/ClassHighLevelGpuProgram.h,include/ClassLightFactory.h,include/ClassLiSPSMShadowCameraSetup.h,include/ClassPass.h,include/ClassTextureUnitState.h,include/ClassNumericAnimationTrack.h,include/ClassCmdManualNamedConstsFile.h,include/ClassSkeletonInstance.h,include/ClassMeshSerializer.h,include/ClassAnimationState.h,include/ClassSceneManagerEnumerator.h,include/ClassRenderingAPIException.h,include/ClassCmdPose.h,include/ClassTechnique.h,include/ClassManualObjectSectionShadowRenderable.h,include/ClassEntity.h,include/ClassSceneManagerFactory.h,include/ClassRenderWindow.h,include/ClassShadowCameraSetup.h,include/ClassRuntimeAssertionException.h,include/ClassRibbonTrailFactory.h,include/ClassSubEntity.h,include/ClassManualObject.h,include/ClassWindowEventListener.h,include/ClassHardwareIndexBuffer.h,include/ClassGpuProgramManager.h,include/ClassOverlay.h,include/ClassStaticGeometry.h,include/ClassRibbonTrail.h,include/ClassManualObjectSection.h,include/ClassVertexAnimationTrack.h,include/ClassArchiveManager.h,include/ClassSkeleton.h,include/ClassSkeletonSerializer.h,include/ClassConfigFile.h,include/ClassRoot.h,include/ClassHardwarePixelBuffer.h,include/ClassResourceManager.h,include/ClassOverlayContainer.h,include/ClassWindowEventUtilities.h,include/ClassControllerManager.h,include/ClassMaterialSerializer.h,include/ClassNodeAnimationTrack.h,include/ClassLight.h,include/ClassDefaultShadowCameraSetup.h,include/ClassCompositionTargetPass.h,include/ClassRenderTexture.h,include/ClassCompositorManager.h,include/ClassEntityFactory.h,include/ClassMemoryDataStream.h,include/ClassHardwareOcclusionQuery.h,include/ClassPSSMShadowCameraSetup.h,include/ClassVertexMorphKeyFrame.h,include/ClassNode.h,include/ClassPatchSurface.h,include/ClassManualObjectFactory.h,include/ClassNumericKeyFrame.h,include/ClassDataStream.h,include/ClassRenderObjectListener.h,include/ClassGeometryBucket.h,include/ClassViewport.h,include/ClassDefaultPlaneBoundedVolumeListSceneQuery.h,include/ClassCompositionPass.h,include/ClassSceneMgrQueuedRenderableVisitor.h,include/ClassRenderSystemOperation.h,include/ClassUnimplementedException.h,include/ClassRenderQueueInvocationSequence.h,include/ClassDefaultAxisAlignedBoxSceneQuery.h,include/ClassMaterialManager.h,include/ClassCamera.h
 
 Library
-  Build-Depends:     base >= 3 && < 5, HGamer3D-Data == 0.1.3
+  Build-Depends:     base >= 3 && < 5, HGamer3D-Data == 0.1.4
 
-  Exposed-modules:   HGamer3D.Bindings.Ogre.EnumMaterialScriptSection,HGamer3D.Bindings.Ogre.EnumIncludeOrExclude,HGamer3D.Bindings.Ogre.EnumGuiHorizontalAlignment,HGamer3D.Bindings.Ogre.EnumSharedPtrFreeMethod,HGamer3D.Bindings.Ogre.EnumFaceGroupType,HGamer3D.Bindings.Ogre.EnumCapabilityKeywordType,HGamer3D.Bindings.Ogre.EnumDisplayMode,HGamer3D.Bindings.Ogre.EnumTextureCubeFace,HGamer3D.Bindings.Ogre.EnumConcreteNodeType,HGamer3D.Bindings.Ogre.EnumIlluminationPassesState,HGamer3D.Bindings.Ogre.EnumMeshBuildType,HGamer3D.Bindings.Ogre.EnumBuiltinHashFunction,HGamer3D.Bindings.Ogre.EnumSkeletonChunkID,HGamer3D.Bindings.Ogre.EnumSceneBlendOperation,HGamer3D.Bindings.Ogre.EnumParticleType,HGamer3D.Bindings.Ogre.EnumTextureFilterOptions,HGamer3D.Bindings.Ogre.EnumLayerBlendOperationEx,HGamer3D.Bindings.Ogre.EnumLayerBlendType,HGamer3D.Bindings.Ogre.EnumGuiMetricsMode,HGamer3D.Bindings.Ogre.EnumLayerBlendOperation,HGamer3D.Bindings.Ogre.EnumVertexDataBindChoice,HGamer3D.Bindings.Ogre.EnumProfileGroupMask,HGamer3D.Bindings.Ogre.EnumMemoryCategory,HGamer3D.Bindings.Ogre.EnumValueType,HGamer3D.Bindings.Ogre.EnumTextureAddressingMode,HGamer3D.Bindings.Ogre.EnumFrameBufferType,HGamer3D.Bindings.Ogre.EnumTrackVertexColourEnum,HGamer3D.Bindings.Ogre.EnumFontType,HGamer3D.Bindings.Ogre.EnumCpuFeatures,HGamer3D.Bindings.Ogre.EnumVertexReductionQuota,HGamer3D.Bindings.Ogre.EnumLogMessageLevel,HGamer3D.Bindings.Ogre.EnumPixelFormat,HGamer3D.Bindings.Ogre.EnumSceneType,HGamer3D.Bindings.Ogre.EnumBufferType,HGamer3D.Bindings.Ogre.EnumOrganisationMode,HGamer3D.Bindings.Ogre.EnumLoadingState,HGamer3D.Bindings.Ogre.EnumEnvMapType,HGamer3D.Bindings.Ogre.EnumTextureType,HGamer3D.Bindings.Ogre.EnumPassType,HGamer3D.Bindings.Ogre.EnumPrefabType,HGamer3D.Bindings.Ogre.EnumClipResult,HGamer3D.Bindings.Ogre.EnumAutoConstantType,HGamer3D.Bindings.Ogre.EnumFrameBuffer,HGamer3D.Bindings.Ogre.EnumUsage,HGamer3D.Bindings.Ogre.EnumFrameEventTimeType,HGamer3D.Bindings.Ogre.EnumShadowTechnique,HGamer3D.Bindings.Ogre.EnumIlluminationRenderStage,HGamer3D.Bindings.Ogre.EnumExceptionCodes,HGamer3D.Bindings.Ogre.EnumVertexElementSemantic,HGamer3D.Bindings.Ogre.EnumTextureMipmap,HGamer3D.Bindings.Ogre.EnumBillboardOrigin,HGamer3D.Bindings.Ogre.EnumSerializeEvent,HGamer3D.Bindings.Ogre.EnumBillboardType,HGamer3D.Bindings.Ogre.EnumManualCullingMode,HGamer3D.Bindings.Ogre.EnumBorderCellIndex,HGamer3D.Bindings.Ogre.EnumOrientationMode,HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod,HGamer3D.Bindings.Ogre.EnumShadeOptions,HGamer3D.Bindings.Ogre.EnumLockOptions,HGamer3D.Bindings.Ogre.EnumGPUVendor,HGamer3D.Bindings.Ogre.EnumeTexturePlayMode,HGamer3D.Bindings.Ogre.EnumTransformSpace,HGamer3D.Bindings.Ogre.EnumFilterOptions,HGamer3D.Bindings.Ogre.EnumSceneBlendFactor,HGamer3D.Bindings.Ogre.EnumParseAction,HGamer3D.Bindings.Ogre.EnumStatFlags,HGamer3D.Bindings.Ogre.EnumResourceType,HGamer3D.Bindings.Ogre.EnumStencilOperation,HGamer3D.Bindings.Ogre.EnumAbstractNodeType,HGamer3D.Bindings.Ogre.EnumImageFlags,HGamer3D.Bindings.Ogre.EnumAlignment,HGamer3D.Bindings.Ogre.EnumExtent,HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode,HGamer3D.Bindings.Ogre.EnumGpuParamVariability,HGamer3D.Bindings.Ogre.EnumTextureScope,HGamer3D.Bindings.Ogre.EnumSide,HGamer3D.Bindings.Ogre.EnumIlluminationStage,HGamer3D.Bindings.Ogre.EnumShadowRenderableFlags,HGamer3D.Bindings.Ogre.EnumBufferLicenseType,HGamer3D.Bindings.Ogre.EnumLayerBlendSource,HGamer3D.Bindings.Ogre.EnumBoxPlane,HGamer3D.Bindings.Ogre.EnumFogMode,HGamer3D.Bindings.Ogre.EnumRequestType,HGamer3D.Bindings.Ogre.EnumACDataType,HGamer3D.Bindings.Ogre.EnumVertexAnimationType,HGamer3D.Bindings.Ogre.EnumPolygonMode,HGamer3D.Bindings.Ogre.EnumTextureEffectType,HGamer3D.Bindings.Ogre.EnumCullingMode,HGamer3D.Bindings.Ogre.EnumSortMode,HGamer3D.Bindings.Ogre.EnumGuiVerticalAlignment,HGamer3D.Bindings.Ogre.EnumBindingType,HGamer3D.Bindings.Ogre.EnumEndian,HGamer3D.Bindings.Ogre.EnumVertexElementType,HGamer3D.Bindings.Ogre.EnumTargetMode,HGamer3D.Bindings.Ogre.EnumSpecialCaseRenderQueueMode,HGamer3D.Bindings.Ogre.EnumFilterType,HGamer3D.Bindings.Ogre.EnumGpuConstantType,HGamer3D.Bindings.Ogre.EnumLoggingLevel,HGamer3D.Bindings.Ogre.EnumProjectionType,HGamer3D.Bindings.Ogre.EnumWorldFragmentType,HGamer3D.Bindings.Ogre.EnumAngleUnit,HGamer3D.Bindings.Ogre.EnumPixelFormatFlags,HGamer3D.Bindings.Ogre.EnumFilter,HGamer3D.Bindings.Ogre.EnumContentType,HGamer3D.Bindings.Ogre.EnumBillboardRotationType,HGamer3D.Bindings.Ogre.EnumRenderQueueGroupID,HGamer3D.Bindings.Ogre.EnumGpuProgramType,HGamer3D.Bindings.Ogre.EnumParameterType,HGamer3D.Bindings.Ogre.EnumOperationType,HGamer3D.Bindings.Ogre.EnumIndexType,HGamer3D.Bindings.Ogre.EnumTexCoordDirection,HGamer3D.Bindings.Ogre.EnumElementType,HGamer3D.Bindings.Ogre.EnumPatchSurfaceType,HGamer3D.Bindings.Ogre.EnumPixelComponentType,HGamer3D.Bindings.Ogre.EnumSceneBlendType,HGamer3D.Bindings.Ogre.EnumCapabilitiesCategory,HGamer3D.Bindings.Ogre.EnumLightTypes,HGamer3D.Bindings.Ogre.EnumStatus,HGamer3D.Bindings.Ogre.EnumRealStorageFormat,HGamer3D.Bindings.Ogre.EnumCompareFunction,HGamer3D.Bindings.Ogre.EnumRotationInterpolationMode,HGamer3D.Bindings.Ogre.EnumInterpolationMode,HGamer3D.Bindings.Ogre.EnumCacheType,HGamer3D.Bindings.Ogre.EnumTextureTransformType,HGamer3D.Bindings.Ogre.EnumVisibleSide,HGamer3D.Bindings.Ogre.EnumAccessMode,HGamer3D.Bindings.Ogre.EnumPrograms,HGamer3D.Bindings.Ogre.EnumWaveformType,HGamer3D.Bindings.Ogre.EnumInputMode,HGamer3D.Bindings.Ogre.EnumFrustumPlane,HGamer3D.Bindings.Ogre.TypeAngle,HGamer3D.Bindings.Ogre.TypeVector4,HGamer3D.Bindings.Ogre.TypeVector2,HGamer3D.Bindings.Ogre.TypeVector3,HGamer3D.Bindings.Ogre.TypeQuaternion,HGamer3D.Bindings.Ogre.TypeHG3DClass,HGamer3D.Bindings.Ogre.TypeRadian,HGamer3D.Bindings.Ogre.TypeSharedPtr,HGamer3D.Bindings.Ogre.TypeColourValue,HGamer3D.Bindings.Ogre.TypeDegree,HGamer3D.Bindings.Ogre.ClassPtr,HGamer3D.Bindings.Ogre.Utils,HGamer3D.Bindings.Ogre.ClassItemIdentityException,HGamer3D.Bindings.Ogre.ClassResourceGroupManager,HGamer3D.Bindings.Ogre.ClassMultiRenderTarget,HGamer3D.Bindings.Ogre.ClassTempBlendedBufferInfo,HGamer3D.Bindings.Ogre.ClassCompositor,HGamer3D.Bindings.Ogre.ClassTransformKeyFrame,HGamer3D.Bindings.Ogre.ClassSceneManager,HGamer3D.Bindings.Ogre.ClassRenderTarget,HGamer3D.Bindings.Ogre.ClassInvalidStateException,HGamer3D.Bindings.Ogre.ClassBillboardSet,HGamer3D.Bindings.Ogre.ClassSimpleRenderable,HGamer3D.Bindings.Ogre.ClassMovableObjectFactory,HGamer3D.Bindings.Ogre.ClassParticleSystemFactory,HGamer3D.Bindings.Ogre.ClassHardwareBufferLicensee,HGamer3D.Bindings.Ogre.ClassPlaneOptimalShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassFileStreamDataStream,HGamer3D.Bindings.Ogre.ClassPatchMesh,HGamer3D.Bindings.Ogre.ClassRenderQueueInvocation,HGamer3D.Bindings.Ogre.ClassDefaultRaySceneQuery,HGamer3D.Bindings.Ogre.ClassTextureManager,HGamer3D.Bindings.Ogre.ClassHardwareBufferManagerBase,HGamer3D.Bindings.Ogre.ClassSubMesh,HGamer3D.Bindings.Ogre.ClassBillboardChain,HGamer3D.Bindings.Ogre.ClassParticleAffector,HGamer3D.Bindings.Ogre.ClassMesh,HGamer3D.Bindings.Ogre.ClassHighLevelGpuProgramFactory,HGamer3D.Bindings.Ogre.ClassMaterialBucket,HGamer3D.Bindings.Ogre.ClassElement,HGamer3D.Bindings.Ogre.ClassCompositorInstance,HGamer3D.Bindings.Ogre.ClassInvalidParametersException,HGamer3D.Bindings.Ogre.ClassParticleEmitter,HGamer3D.Bindings.Ogre.ClassDefaultSphereSceneQuery,HGamer3D.Bindings.Ogre.ClassException,HGamer3D.Bindings.Ogre.ClassHardwareBufferManager,HGamer3D.Bindings.Ogre.ClassKeyFrame,HGamer3D.Bindings.Ogre.ClassOverlayManager,HGamer3D.Bindings.Ogre.ClassDefaultSceneManagerFactory,HGamer3D.Bindings.Ogre.ClassLogManager,HGamer3D.Bindings.Ogre.ClassCompositionTechnique,HGamer3D.Bindings.Ogre.ClassFrustum,HGamer3D.Bindings.Ogre.ClassMaterial,HGamer3D.Bindings.Ogre.ClassFileHandleDataStream,HGamer3D.Bindings.Ogre.ClassDefaultSceneManager,HGamer3D.Bindings.Ogre.ClassGpuProgram,HGamer3D.Bindings.Ogre.ClassCompositorChain,HGamer3D.Bindings.Ogre.ClassBillboardSetFactory,HGamer3D.Bindings.Ogre.ClassMovableObject,HGamer3D.Bindings.Ogre.ClassIOException,HGamer3D.Bindings.Ogre.ClassLODBucket,HGamer3D.Bindings.Ogre.ClassBone,HGamer3D.Bindings.Ogre.ClassFileNotFoundException,HGamer3D.Bindings.Ogre.ClassArchive,HGamer3D.Bindings.Ogre.ClassBillboardChainFactory,HGamer3D.Bindings.Ogre.ClassInternalErrorException,HGamer3D.Bindings.Ogre.ClassStringConverter,HGamer3D.Bindings.Ogre.ClassVertexPoseKeyFrame,HGamer3D.Bindings.Ogre.ClassBillboard,HGamer3D.Bindings.Ogre.ClassStringUtil,HGamer3D.Bindings.Ogre.ClassResourceGroupListener,HGamer3D.Bindings.Ogre.ClassAnimation,HGamer3D.Bindings.Ogre.ClassSceneNode,HGamer3D.Bindings.Ogre.ClassTimeIndex,HGamer3D.Bindings.Ogre.ClassAnimationTrack,HGamer3D.Bindings.Ogre.ClassRegion,HGamer3D.Bindings.Ogre.ClassHighLevelGpuProgram,HGamer3D.Bindings.Ogre.ClassLightFactory,HGamer3D.Bindings.Ogre.ClassLiSPSMShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassPass,HGamer3D.Bindings.Ogre.ClassTextureUnitState,HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack,HGamer3D.Bindings.Ogre.ClassCmdManualNamedConstsFile,HGamer3D.Bindings.Ogre.ClassSkeletonInstance,HGamer3D.Bindings.Ogre.ClassMeshSerializer,HGamer3D.Bindings.Ogre.ClassAnimationState,HGamer3D.Bindings.Ogre.ClassSceneManagerEnumerator,HGamer3D.Bindings.Ogre.ClassRenderingAPIException,HGamer3D.Bindings.Ogre.ClassCmdPose,HGamer3D.Bindings.Ogre.ClassTechnique,HGamer3D.Bindings.Ogre.ClassManualObjectSectionShadowRenderable,HGamer3D.Bindings.Ogre.ClassEntity,HGamer3D.Bindings.Ogre.ClassSceneManagerFactory,HGamer3D.Bindings.Ogre.ClassRenderWindow,HGamer3D.Bindings.Ogre.ClassShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassRuntimeAssertionException,HGamer3D.Bindings.Ogre.ClassRibbonTrailFactory,HGamer3D.Bindings.Ogre.ClassSubEntity,HGamer3D.Bindings.Ogre.ClassManualObject,HGamer3D.Bindings.Ogre.ClassWindowEventListener,HGamer3D.Bindings.Ogre.ClassHardwareIndexBuffer,HGamer3D.Bindings.Ogre.ClassGpuProgramManager,HGamer3D.Bindings.Ogre.ClassOverlay,HGamer3D.Bindings.Ogre.ClassStaticGeometry,HGamer3D.Bindings.Ogre.ClassRibbonTrail,HGamer3D.Bindings.Ogre.ClassManualObjectSection,HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack,HGamer3D.Bindings.Ogre.ClassArchiveManager,HGamer3D.Bindings.Ogre.ClassSkeleton,HGamer3D.Bindings.Ogre.ClassSkeletonSerializer,HGamer3D.Bindings.Ogre.ClassConfigFile,HGamer3D.Bindings.Ogre.ClassRoot,HGamer3D.Bindings.Ogre.ClassHardwarePixelBuffer,HGamer3D.Bindings.Ogre.ClassResourceManager,HGamer3D.Bindings.Ogre.ClassOverlayContainer,HGamer3D.Bindings.Ogre.ClassWindowEventUtilities,HGamer3D.Bindings.Ogre.ClassControllerManager,HGamer3D.Bindings.Ogre.ClassMaterialSerializer,HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack,HGamer3D.Bindings.Ogre.ClassLight,HGamer3D.Bindings.Ogre.ClassDefaultShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassCompositionTargetPass,HGamer3D.Bindings.Ogre.ClassRenderTexture,HGamer3D.Bindings.Ogre.ClassCompositorManager,HGamer3D.Bindings.Ogre.ClassEntityFactory,HGamer3D.Bindings.Ogre.ClassMemoryDataStream,HGamer3D.Bindings.Ogre.ClassHardwareOcclusionQuery,HGamer3D.Bindings.Ogre.ClassPSSMShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassVertexMorphKeyFrame,HGamer3D.Bindings.Ogre.ClassNode,HGamer3D.Bindings.Ogre.ClassPatchSurface,HGamer3D.Bindings.Ogre.ClassManualObjectFactory,HGamer3D.Bindings.Ogre.ClassNumericKeyFrame,HGamer3D.Bindings.Ogre.ClassDataStream,HGamer3D.Bindings.Ogre.ClassRenderObjectListener,HGamer3D.Bindings.Ogre.ClassGeometryBucket,HGamer3D.Bindings.Ogre.ClassViewport,HGamer3D.Bindings.Ogre.ClassDefaultPlaneBoundedVolumeListSceneQuery,HGamer3D.Bindings.Ogre.ClassCompositionPass,HGamer3D.Bindings.Ogre.ClassSceneMgrQueuedRenderableVisitor,HGamer3D.Bindings.Ogre.ClassRenderSystemOperation,HGamer3D.Bindings.Ogre.ClassUnimplementedException,HGamer3D.Bindings.Ogre.ClassRenderQueueInvocationSequence,HGamer3D.Bindings.Ogre.ClassDefaultAxisAlignedBoxSceneQuery,HGamer3D.Bindings.Ogre.ClassMaterialManager,HGamer3D.Bindings.Ogre.ClassCamera
+  Exposed-modules:   HGamer3D.Bindings.Ogre.EnumMaterialScriptSection,HGamer3D.Bindings.Ogre.EnumIncludeOrExclude,HGamer3D.Bindings.Ogre.EnumGuiHorizontalAlignment,HGamer3D.Bindings.Ogre.EnumSharedPtrFreeMethod,HGamer3D.Bindings.Ogre.EnumFaceGroupType,HGamer3D.Bindings.Ogre.EnumCapabilityKeywordType,HGamer3D.Bindings.Ogre.EnumDisplayMode,HGamer3D.Bindings.Ogre.EnumTextureCubeFace,HGamer3D.Bindings.Ogre.EnumConcreteNodeType,HGamer3D.Bindings.Ogre.EnumIlluminationPassesState,HGamer3D.Bindings.Ogre.EnumMeshBuildType,HGamer3D.Bindings.Ogre.EnumBuiltinHashFunction,HGamer3D.Bindings.Ogre.EnumSkeletonChunkID,HGamer3D.Bindings.Ogre.EnumSceneBlendOperation,HGamer3D.Bindings.Ogre.EnumParticleType,HGamer3D.Bindings.Ogre.EnumTextureFilterOptions,HGamer3D.Bindings.Ogre.EnumLayerBlendOperationEx,HGamer3D.Bindings.Ogre.EnumLayerBlendType,HGamer3D.Bindings.Ogre.EnumGuiMetricsMode,HGamer3D.Bindings.Ogre.EnumLayerBlendOperation,HGamer3D.Bindings.Ogre.EnumVertexDataBindChoice,HGamer3D.Bindings.Ogre.EnumProfileGroupMask,HGamer3D.Bindings.Ogre.EnumMemoryCategory,HGamer3D.Bindings.Ogre.EnumValueType,HGamer3D.Bindings.Ogre.EnumTextureAddressingMode,HGamer3D.Bindings.Ogre.EnumFrameBufferType,HGamer3D.Bindings.Ogre.EnumTrackVertexColourEnum,HGamer3D.Bindings.Ogre.EnumFontType,HGamer3D.Bindings.Ogre.EnumCpuFeatures,HGamer3D.Bindings.Ogre.EnumVertexReductionQuota,HGamer3D.Bindings.Ogre.EnumLogMessageLevel,HGamer3D.Bindings.Ogre.EnumPixelFormat,HGamer3D.Bindings.Ogre.EnumSceneType,HGamer3D.Bindings.Ogre.EnumBufferType,HGamer3D.Bindings.Ogre.EnumOrganisationMode,HGamer3D.Bindings.Ogre.EnumLoadingState,HGamer3D.Bindings.Ogre.EnumEnvMapType,HGamer3D.Bindings.Ogre.EnumTextureType,HGamer3D.Bindings.Ogre.EnumPassType,HGamer3D.Bindings.Ogre.EnumPrefabType,HGamer3D.Bindings.Ogre.EnumClipResult,HGamer3D.Bindings.Ogre.EnumAutoConstantType,HGamer3D.Bindings.Ogre.EnumFrameBuffer,HGamer3D.Bindings.Ogre.EnumUsage,HGamer3D.Bindings.Ogre.EnumFrameEventTimeType,HGamer3D.Bindings.Ogre.EnumShadowTechnique,HGamer3D.Bindings.Ogre.EnumIlluminationRenderStage,HGamer3D.Bindings.Ogre.EnumExceptionCodes,HGamer3D.Bindings.Ogre.EnumVertexElementSemantic,HGamer3D.Bindings.Ogre.EnumTextureMipmap,HGamer3D.Bindings.Ogre.EnumBillboardOrigin,HGamer3D.Bindings.Ogre.EnumSerializeEvent,HGamer3D.Bindings.Ogre.EnumBillboardType,HGamer3D.Bindings.Ogre.EnumManualCullingMode,HGamer3D.Bindings.Ogre.EnumBorderCellIndex,HGamer3D.Bindings.Ogre.EnumOrientationMode,HGamer3D.Bindings.Ogre.EnumTexCoordCalcMethod,HGamer3D.Bindings.Ogre.EnumShadeOptions,HGamer3D.Bindings.Ogre.EnumLockOptions,HGamer3D.Bindings.Ogre.EnumGPUVendor,HGamer3D.Bindings.Ogre.EnumeTexturePlayMode,HGamer3D.Bindings.Ogre.EnumTransformSpace,HGamer3D.Bindings.Ogre.EnumFilterOptions,HGamer3D.Bindings.Ogre.EnumSceneBlendFactor,HGamer3D.Bindings.Ogre.EnumParseAction,HGamer3D.Bindings.Ogre.EnumStatFlags,HGamer3D.Bindings.Ogre.EnumResourceType,HGamer3D.Bindings.Ogre.EnumStencilOperation,HGamer3D.Bindings.Ogre.EnumAbstractNodeType,HGamer3D.Bindings.Ogre.EnumImageFlags,HGamer3D.Bindings.Ogre.EnumAlignment,HGamer3D.Bindings.Ogre.EnumExtent,HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode,HGamer3D.Bindings.Ogre.EnumGpuParamVariability,HGamer3D.Bindings.Ogre.EnumTextureScope,HGamer3D.Bindings.Ogre.EnumSide,HGamer3D.Bindings.Ogre.EnumIlluminationStage,HGamer3D.Bindings.Ogre.EnumShadowRenderableFlags,HGamer3D.Bindings.Ogre.EnumBufferLicenseType,HGamer3D.Bindings.Ogre.EnumLayerBlendSource,HGamer3D.Bindings.Ogre.EnumBoxPlane,HGamer3D.Bindings.Ogre.EnumFogMode,HGamer3D.Bindings.Ogre.EnumRequestType,HGamer3D.Bindings.Ogre.EnumACDataType,HGamer3D.Bindings.Ogre.EnumVertexAnimationType,HGamer3D.Bindings.Ogre.EnumPolygonMode,HGamer3D.Bindings.Ogre.EnumTextureEffectType,HGamer3D.Bindings.Ogre.EnumCullingMode,HGamer3D.Bindings.Ogre.EnumSortMode,HGamer3D.Bindings.Ogre.EnumGuiVerticalAlignment,HGamer3D.Bindings.Ogre.EnumBindingType,HGamer3D.Bindings.Ogre.EnumEndian,HGamer3D.Bindings.Ogre.EnumVertexElementType,HGamer3D.Bindings.Ogre.EnumTargetMode,HGamer3D.Bindings.Ogre.EnumSpecialCaseRenderQueueMode,HGamer3D.Bindings.Ogre.EnumFilterType,HGamer3D.Bindings.Ogre.EnumGpuConstantType,HGamer3D.Bindings.Ogre.EnumLoggingLevel,HGamer3D.Bindings.Ogre.EnumProjectionType,HGamer3D.Bindings.Ogre.EnumWorldFragmentType,HGamer3D.Bindings.Ogre.EnumAngleUnit,HGamer3D.Bindings.Ogre.EnumPixelFormatFlags,HGamer3D.Bindings.Ogre.EnumFilter,HGamer3D.Bindings.Ogre.EnumContentType,HGamer3D.Bindings.Ogre.EnumBillboardRotationType,HGamer3D.Bindings.Ogre.EnumRenderQueueGroupID,HGamer3D.Bindings.Ogre.EnumGpuProgramType,HGamer3D.Bindings.Ogre.EnumParameterType,HGamer3D.Bindings.Ogre.EnumOperationType,HGamer3D.Bindings.Ogre.EnumIndexType,HGamer3D.Bindings.Ogre.EnumTexCoordDirection,HGamer3D.Bindings.Ogre.EnumElementType,HGamer3D.Bindings.Ogre.EnumPatchSurfaceType,HGamer3D.Bindings.Ogre.EnumPixelComponentType,HGamer3D.Bindings.Ogre.EnumSceneBlendType,HGamer3D.Bindings.Ogre.EnumCapabilitiesCategory,HGamer3D.Bindings.Ogre.EnumLightTypes,HGamer3D.Bindings.Ogre.EnumStatus,HGamer3D.Bindings.Ogre.EnumRealStorageFormat,HGamer3D.Bindings.Ogre.EnumCompareFunction,HGamer3D.Bindings.Ogre.EnumRotationInterpolationMode,HGamer3D.Bindings.Ogre.EnumInterpolationMode,HGamer3D.Bindings.Ogre.EnumCacheType,HGamer3D.Bindings.Ogre.EnumTextureTransformType,HGamer3D.Bindings.Ogre.EnumVisibleSide,HGamer3D.Bindings.Ogre.EnumAccessMode,HGamer3D.Bindings.Ogre.EnumPrograms,HGamer3D.Bindings.Ogre.EnumWaveformType,HGamer3D.Bindings.Ogre.EnumInputMode,HGamer3D.Bindings.Ogre.EnumFrustumPlane,HGamer3D.Bindings.Ogre.TypeVector4,HGamer3D.Bindings.Ogre.TypeVector2,HGamer3D.Bindings.Ogre.TypeVector3,HGamer3D.Bindings.Ogre.TypeQuaternion,HGamer3D.Bindings.Ogre.TypeHG3DClass,HGamer3D.Bindings.Ogre.TypeRadian,HGamer3D.Bindings.Ogre.TypeColour,HGamer3D.Bindings.Ogre.TypeSharedPtr,HGamer3D.Bindings.Ogre.TypeDegree,HGamer3D.Bindings.Ogre.ClassPtr,HGamer3D.Bindings.Ogre.Utils,HGamer3D.Bindings.Ogre.ClassItemIdentityException,HGamer3D.Bindings.Ogre.ClassResourceGroupManager,HGamer3D.Bindings.Ogre.ClassMultiRenderTarget,HGamer3D.Bindings.Ogre.ClassTempBlendedBufferInfo,HGamer3D.Bindings.Ogre.ClassCompositor,HGamer3D.Bindings.Ogre.ClassTransformKeyFrame,HGamer3D.Bindings.Ogre.ClassSceneManager,HGamer3D.Bindings.Ogre.ClassRenderTarget,HGamer3D.Bindings.Ogre.ClassInvalidStateException,HGamer3D.Bindings.Ogre.ClassBillboardSet,HGamer3D.Bindings.Ogre.ClassSimpleRenderable,HGamer3D.Bindings.Ogre.ClassMovableObjectFactory,HGamer3D.Bindings.Ogre.ClassParticleSystemFactory,HGamer3D.Bindings.Ogre.ClassHardwareBufferLicensee,HGamer3D.Bindings.Ogre.ClassPlaneOptimalShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassFileStreamDataStream,HGamer3D.Bindings.Ogre.ClassPatchMesh,HGamer3D.Bindings.Ogre.ClassRenderQueueInvocation,HGamer3D.Bindings.Ogre.ClassDefaultRaySceneQuery,HGamer3D.Bindings.Ogre.ClassTextureManager,HGamer3D.Bindings.Ogre.ClassHardwareBufferManagerBase,HGamer3D.Bindings.Ogre.ClassSubMesh,HGamer3D.Bindings.Ogre.ClassBillboardChain,HGamer3D.Bindings.Ogre.ClassParticleAffector,HGamer3D.Bindings.Ogre.ClassMesh,HGamer3D.Bindings.Ogre.ClassHighLevelGpuProgramFactory,HGamer3D.Bindings.Ogre.ClassMaterialBucket,HGamer3D.Bindings.Ogre.ClassElement,HGamer3D.Bindings.Ogre.ClassCompositorInstance,HGamer3D.Bindings.Ogre.ClassInvalidParametersException,HGamer3D.Bindings.Ogre.ClassParticleEmitter,HGamer3D.Bindings.Ogre.ClassDefaultSphereSceneQuery,HGamer3D.Bindings.Ogre.ClassException,HGamer3D.Bindings.Ogre.ClassHardwareBufferManager,HGamer3D.Bindings.Ogre.ClassKeyFrame,HGamer3D.Bindings.Ogre.ClassOverlayManager,HGamer3D.Bindings.Ogre.ClassDefaultSceneManagerFactory,HGamer3D.Bindings.Ogre.ClassLogManager,HGamer3D.Bindings.Ogre.ClassCompositionTechnique,HGamer3D.Bindings.Ogre.ClassFrustum,HGamer3D.Bindings.Ogre.ClassMaterial,HGamer3D.Bindings.Ogre.ClassFileHandleDataStream,HGamer3D.Bindings.Ogre.ClassDefaultSceneManager,HGamer3D.Bindings.Ogre.ClassGpuProgram,HGamer3D.Bindings.Ogre.ClassCompositorChain,HGamer3D.Bindings.Ogre.ClassBillboardSetFactory,HGamer3D.Bindings.Ogre.ClassMovableObject,HGamer3D.Bindings.Ogre.ClassIOException,HGamer3D.Bindings.Ogre.ClassLODBucket,HGamer3D.Bindings.Ogre.ClassBone,HGamer3D.Bindings.Ogre.ClassFileNotFoundException,HGamer3D.Bindings.Ogre.ClassArchive,HGamer3D.Bindings.Ogre.ClassBillboardChainFactory,HGamer3D.Bindings.Ogre.ClassInternalErrorException,HGamer3D.Bindings.Ogre.ClassStringConverter,HGamer3D.Bindings.Ogre.ClassVertexPoseKeyFrame,HGamer3D.Bindings.Ogre.ClassBillboard,HGamer3D.Bindings.Ogre.ClassStringUtil,HGamer3D.Bindings.Ogre.ClassResourceGroupListener,HGamer3D.Bindings.Ogre.ClassAnimation,HGamer3D.Bindings.Ogre.ClassSceneNode,HGamer3D.Bindings.Ogre.ClassTimeIndex,HGamer3D.Bindings.Ogre.ClassAnimationTrack,HGamer3D.Bindings.Ogre.ClassRegion,HGamer3D.Bindings.Ogre.ClassHighLevelGpuProgram,HGamer3D.Bindings.Ogre.ClassLightFactory,HGamer3D.Bindings.Ogre.ClassLiSPSMShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassPass,HGamer3D.Bindings.Ogre.ClassTextureUnitState,HGamer3D.Bindings.Ogre.ClassNumericAnimationTrack,HGamer3D.Bindings.Ogre.ClassCmdManualNamedConstsFile,HGamer3D.Bindings.Ogre.ClassSkeletonInstance,HGamer3D.Bindings.Ogre.ClassMeshSerializer,HGamer3D.Bindings.Ogre.ClassAnimationState,HGamer3D.Bindings.Ogre.ClassSceneManagerEnumerator,HGamer3D.Bindings.Ogre.ClassRenderingAPIException,HGamer3D.Bindings.Ogre.ClassCmdPose,HGamer3D.Bindings.Ogre.ClassTechnique,HGamer3D.Bindings.Ogre.ClassManualObjectSectionShadowRenderable,HGamer3D.Bindings.Ogre.ClassEntity,HGamer3D.Bindings.Ogre.ClassSceneManagerFactory,HGamer3D.Bindings.Ogre.ClassRenderWindow,HGamer3D.Bindings.Ogre.ClassShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassRuntimeAssertionException,HGamer3D.Bindings.Ogre.ClassRibbonTrailFactory,HGamer3D.Bindings.Ogre.ClassSubEntity,HGamer3D.Bindings.Ogre.ClassManualObject,HGamer3D.Bindings.Ogre.ClassWindowEventListener,HGamer3D.Bindings.Ogre.ClassHardwareIndexBuffer,HGamer3D.Bindings.Ogre.ClassGpuProgramManager,HGamer3D.Bindings.Ogre.ClassOverlay,HGamer3D.Bindings.Ogre.ClassStaticGeometry,HGamer3D.Bindings.Ogre.ClassRibbonTrail,HGamer3D.Bindings.Ogre.ClassManualObjectSection,HGamer3D.Bindings.Ogre.ClassVertexAnimationTrack,HGamer3D.Bindings.Ogre.ClassArchiveManager,HGamer3D.Bindings.Ogre.ClassSkeleton,HGamer3D.Bindings.Ogre.ClassSkeletonSerializer,HGamer3D.Bindings.Ogre.ClassConfigFile,HGamer3D.Bindings.Ogre.ClassRoot,HGamer3D.Bindings.Ogre.ClassHardwarePixelBuffer,HGamer3D.Bindings.Ogre.ClassResourceManager,HGamer3D.Bindings.Ogre.ClassOverlayContainer,HGamer3D.Bindings.Ogre.ClassWindowEventUtilities,HGamer3D.Bindings.Ogre.ClassControllerManager,HGamer3D.Bindings.Ogre.ClassMaterialSerializer,HGamer3D.Bindings.Ogre.ClassNodeAnimationTrack,HGamer3D.Bindings.Ogre.ClassLight,HGamer3D.Bindings.Ogre.ClassDefaultShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassCompositionTargetPass,HGamer3D.Bindings.Ogre.ClassRenderTexture,HGamer3D.Bindings.Ogre.ClassCompositorManager,HGamer3D.Bindings.Ogre.ClassEntityFactory,HGamer3D.Bindings.Ogre.ClassMemoryDataStream,HGamer3D.Bindings.Ogre.ClassHardwareOcclusionQuery,HGamer3D.Bindings.Ogre.ClassPSSMShadowCameraSetup,HGamer3D.Bindings.Ogre.ClassVertexMorphKeyFrame,HGamer3D.Bindings.Ogre.ClassNode,HGamer3D.Bindings.Ogre.ClassPatchSurface,HGamer3D.Bindings.Ogre.ClassManualObjectFactory,HGamer3D.Bindings.Ogre.ClassNumericKeyFrame,HGamer3D.Bindings.Ogre.ClassDataStream,HGamer3D.Bindings.Ogre.ClassRenderObjectListener,HGamer3D.Bindings.Ogre.ClassGeometryBucket,HGamer3D.Bindings.Ogre.ClassViewport,HGamer3D.Bindings.Ogre.ClassDefaultPlaneBoundedVolumeListSceneQuery,HGamer3D.Bindings.Ogre.ClassCompositionPass,HGamer3D.Bindings.Ogre.ClassSceneMgrQueuedRenderableVisitor,HGamer3D.Bindings.Ogre.ClassRenderSystemOperation,HGamer3D.Bindings.Ogre.ClassUnimplementedException,HGamer3D.Bindings.Ogre.ClassRenderQueueInvocationSequence,HGamer3D.Bindings.Ogre.ClassDefaultAxisAlignedBoxSceneQuery,HGamer3D.Bindings.Ogre.ClassMaterialManager,HGamer3D.Bindings.Ogre.ClassCamera
   Other-modules:     C2HS 
 
   ghc-options:       
@@ -32,4 +32,4 @@   Include-dirs:      include
   Build-tools:       
   build-depends:     haskell98
-  extra-libraries:   stdc++.dll HGamer3DOgre013
+  extra-libraries:   stdc++.dll HGamer3DOgre014
HGamer3D/Bindings/Ogre/ClassAnimation.hs view
@@ -51,22 +51,20 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumInterpolationMode
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumRotationInterpolationMode
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 
 
 cAnGetName :: HG3DClass -> IO (String)
@@ -76,7 +74,7 @@   cAnGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetLength :: HG3DClass -> IO (Float)
 cAnGetLength a1 =
@@ -85,7 +83,7 @@   cAnGetLength'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnSetLength :: HG3DClass -> Float -> IO ()
 cAnSetLength a1 a2 =
@@ -93,7 +91,7 @@   let {a2' = realToFrac a2} in 
   cAnSetLength'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnCreateNodeTrack :: HG3DClass -> Int -> IO (HG3DClass)
 cAnCreateNodeTrack a1 a2 =
@@ -103,7 +101,7 @@   cAnCreateNodeTrack'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnCreateNumericTrack :: HG3DClass -> Int -> IO (HG3DClass)
 cAnCreateNumericTrack a1 a2 =
@@ -113,7 +111,7 @@   cAnCreateNumericTrack'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnCreateVertexTrack :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass)
 cAnCreateVertexTrack a1 a2 a3 =
@@ -124,7 +122,7 @@   cAnCreateVertexTrack'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnCreateNodeTrack2 :: HG3DClass -> Int -> HG3DClass -> IO (HG3DClass)
 cAnCreateNodeTrack2 a1 a2 a3 =
@@ -135,7 +133,7 @@   cAnCreateNodeTrack2'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetNumNodeTracks :: HG3DClass -> IO (Int)
 cAnGetNumNodeTracks a1 =
@@ -144,7 +142,7 @@   cAnGetNumNodeTracks'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetNodeTrack :: HG3DClass -> Int -> IO (HG3DClass)
 cAnGetNodeTrack a1 a2 =
@@ -154,7 +152,7 @@   cAnGetNodeTrack'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnHasNodeTrack :: HG3DClass -> Int -> IO (Bool)
 cAnHasNodeTrack a1 a2 =
@@ -164,7 +162,7 @@   cAnHasNodeTrack'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetNumNumericTracks :: HG3DClass -> IO (Int)
 cAnGetNumNumericTracks a1 =
@@ -173,7 +171,7 @@   cAnGetNumNumericTracks'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetNumericTrack :: HG3DClass -> Int -> IO (HG3DClass)
 cAnGetNumericTrack a1 a2 =
@@ -183,7 +181,7 @@   cAnGetNumericTrack'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnHasNumericTrack :: HG3DClass -> Int -> IO (Bool)
 cAnHasNumericTrack a1 a2 =
@@ -193,7 +191,7 @@   cAnHasNumericTrack'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetNumVertexTracks :: HG3DClass -> IO (Int)
 cAnGetNumVertexTracks a1 =
@@ -202,7 +200,7 @@   cAnGetNumVertexTracks'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetVertexTrack :: HG3DClass -> Int -> IO (HG3DClass)
 cAnGetVertexTrack a1 a2 =
@@ -212,7 +210,7 @@   cAnGetVertexTrack'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnHasVertexTrack :: HG3DClass -> Int -> IO (Bool)
 cAnHasVertexTrack a1 a2 =
@@ -222,7 +220,7 @@   cAnHasVertexTrack'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyNodeTrack :: HG3DClass -> Int -> IO ()
 cAnDestroyNodeTrack a1 a2 =
@@ -230,7 +228,7 @@   let {a2' = fromIntegral a2} in 
   cAnDestroyNodeTrack'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyNumericTrack :: HG3DClass -> Int -> IO ()
 cAnDestroyNumericTrack a1 a2 =
@@ -238,7 +236,7 @@   let {a2' = fromIntegral a2} in 
   cAnDestroyNumericTrack'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyVertexTrack :: HG3DClass -> Int -> IO ()
 cAnDestroyVertexTrack a1 a2 =
@@ -246,35 +244,35 @@   let {a2' = fromIntegral a2} in 
   cAnDestroyVertexTrack'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyAllTracks :: HG3DClass -> IO ()
 cAnDestroyAllTracks a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnDestroyAllTracks'_ a1' >>= \res ->
   return ()
-{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyAllNodeTracks :: HG3DClass -> IO ()
 cAnDestroyAllNodeTracks a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnDestroyAllNodeTracks'_ a1' >>= \res ->
   return ()
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyAllNumericTracks :: HG3DClass -> IO ()
 cAnDestroyAllNumericTracks a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnDestroyAllNumericTracks'_ a1' >>= \res ->
   return ()
-{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnDestroyAllVertexTracks :: HG3DClass -> IO ()
 cAnDestroyAllVertexTracks a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnDestroyAllVertexTracks'_ a1' >>= \res ->
   return ()
-{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnApply :: HG3DClass -> Float -> Float -> Float -> IO ()
 cAnApply a1 a2 a3 a4 =
@@ -284,7 +282,7 @@   let {a4' = realToFrac a4} in 
   cAnApply'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnApplyToNode :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO ()
 cAnApplyToNode a1 a2 a3 a4 a5 =
@@ -295,7 +293,7 @@   let {a5' = realToFrac a5} in 
   cAnApplyToNode'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnApply2 :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO ()
 cAnApply2 a1 a2 a3 a4 a5 =
@@ -306,7 +304,7 @@   let {a5' = realToFrac a5} in 
   cAnApply2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnApply4 :: HG3DClass -> HG3DClass -> Float -> Float -> Bool -> Bool -> IO ()
 cAnApply4 a1 a2 a3 a4 a5 a6 =
@@ -318,7 +316,7 @@   let {a6' = fromBool a6} in 
   cAnApply4'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnSetInterpolationMode :: HG3DClass -> EnumInterpolationMode -> IO ()
 cAnSetInterpolationMode a1 a2 =
@@ -326,7 +324,7 @@   let {a2' = cIntFromEnum a2} in 
   cAnSetInterpolationMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetInterpolationMode :: HG3DClass -> IO (EnumInterpolationMode)
 cAnGetInterpolationMode a1 =
@@ -335,7 +333,7 @@   cAnGetInterpolationMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnSetRotationInterpolationMode :: HG3DClass -> EnumRotationInterpolationMode -> IO ()
 cAnSetRotationInterpolationMode a1 a2 =
@@ -343,7 +341,7 @@   let {a2' = cIntFromEnum a2} in 
   cAnSetRotationInterpolationMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnGetRotationInterpolationMode :: HG3DClass -> IO (EnumRotationInterpolationMode)
 cAnGetRotationInterpolationMode a1 =
@@ -352,7 +350,7 @@   cAnGetRotationInterpolationMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnOptimise :: HG3DClass -> Bool -> IO ()
 cAnOptimise a1 a2 =
@@ -360,7 +358,7 @@   let {a2' = fromBool a2} in 
   cAnOptimise'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnClone :: HG3DClass -> String -> IO (HG3DClass)
 cAnClone a1 a2 =
@@ -370,14 +368,14 @@   cAnClone'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 cAnKeyFrameListChanged :: HG3DClass -> IO ()
 cAnKeyFrameListChanged a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnKeyFrameListChanged'_ a1' >>= \res ->
   return ()
-{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
+{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h cAn_getName_c"
HGamer3D/Bindings/Ogre/ClassAnimationState.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 
 
 cAnsGetAnimationName :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cAnsGetAnimationName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsGetTimePosition :: HG3DClass -> IO (Float)
 cAnsGetTimePosition a1 =
@@ -79,7 +77,7 @@   cAnsGetTimePosition'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetTimePosition :: HG3DClass -> Float -> IO ()
 cAnsSetTimePosition a1 a2 =
@@ -87,7 +85,7 @@   let {a2' = realToFrac a2} in 
   cAnsSetTimePosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsGetLength :: HG3DClass -> IO (Float)
 cAnsGetLength a1 =
@@ -96,7 +94,7 @@   cAnsGetLength'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetLength :: HG3DClass -> Float -> IO ()
 cAnsSetLength a1 a2 =
@@ -104,7 +102,7 @@   let {a2' = realToFrac a2} in 
   cAnsSetLength'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsGetWeight :: HG3DClass -> IO (Float)
 cAnsGetWeight a1 =
@@ -113,7 +111,7 @@   cAnsGetWeight'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetWeight :: HG3DClass -> Float -> IO ()
 cAnsSetWeight a1 a2 =
@@ -121,7 +119,7 @@   let {a2' = realToFrac a2} in 
   cAnsSetWeight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsAddTime :: HG3DClass -> Float -> IO ()
 cAnsAddTime a1 a2 =
@@ -129,7 +127,7 @@   let {a2' = realToFrac a2} in 
   cAnsAddTime'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsHasEnded :: HG3DClass -> IO (Bool)
 cAnsHasEnded a1 =
@@ -138,7 +136,7 @@   cAnsHasEnded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsGetEnabled :: HG3DClass -> IO (Bool)
 cAnsGetEnabled a1 =
@@ -147,7 +145,7 @@   cAnsGetEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetEnabled :: HG3DClass -> Bool -> IO ()
 cAnsSetEnabled a1 a2 =
@@ -155,7 +153,7 @@   let {a2' = fromBool a2} in 
   cAnsSetEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetLoop :: HG3DClass -> Bool -> IO ()
 cAnsSetLoop a1 a2 =
@@ -163,7 +161,7 @@   let {a2' = fromBool a2} in 
   cAnsSetLoop'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsGetLoop :: HG3DClass -> IO (Bool)
 cAnsGetLoop a1 =
@@ -172,7 +170,7 @@   cAnsGetLoop'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsCreateBlendMask :: HG3DClass -> Int -> Float -> IO ()
 cAnsCreateBlendMask a1 a2 a3 =
@@ -181,14 +179,14 @@   let {a3' = realToFrac a3} in 
   cAnsCreateBlendMask'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsDestroyBlendMask :: HG3DClass -> IO ()
 cAnsDestroyBlendMask a1 =
   withHG3DClass a1 $ \a1' -> 
   cAnsDestroyBlendMask'_ a1' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsHasBlendMask :: HG3DClass -> IO (Bool)
 cAnsHasBlendMask a1 =
@@ -197,7 +195,7 @@   cAnsHasBlendMask'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 cAnsSetBlendMaskEntry :: HG3DClass -> Int -> Float -> IO ()
 cAnsSetBlendMaskEntry a1 a2 a3 =
@@ -206,7 +204,7 @@   let {a3' = realToFrac a3} in 
   cAnsSetBlendMaskEntry'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h cAns_getAnimationName_c"
HGamer3D/Bindings/Ogre/ClassAnimationTrack.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 
 
 cAntGetHandle :: HG3DClass -> IO (Int)
@@ -70,7 +68,7 @@   cAntGetHandle'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntGetNumKeyFrames :: HG3DClass -> IO (Int)
 cAntGetNumKeyFrames a1 =
@@ -79,7 +77,7 @@   cAntGetNumKeyFrames'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntGetKeyFrame :: HG3DClass -> Int -> IO (HG3DClass)
 cAntGetKeyFrame a1 a2 =
@@ -89,7 +87,7 @@   cAntGetKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntCreateKeyFrame :: HG3DClass -> Float -> IO (HG3DClass)
 cAntCreateKeyFrame a1 a2 =
@@ -99,7 +97,7 @@   cAntCreateKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntRemoveKeyFrame :: HG3DClass -> Int -> IO ()
 cAntRemoveKeyFrame a1 a2 =
@@ -107,21 +105,21 @@   let {a2' = fromIntegral a2} in 
   cAntRemoveKeyFrame'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntRemoveAllKeyFrames :: HG3DClass -> IO ()
 cAntRemoveAllKeyFrames a1 =
   withHG3DClass a1 $ \a1' -> 
   cAntRemoveAllKeyFrames'_ a1' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntKeyFrameDataChanged :: HG3DClass -> IO ()
 cAntKeyFrameDataChanged a1 =
   withHG3DClass a1 $ \a1' -> 
   cAntKeyFrameDataChanged'_ a1' >>= \res ->
   return ()
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntHasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
 cAntHasNonZeroKeyFrames a1 =
@@ -130,14 +128,14 @@   cAntHasNonZeroKeyFrames'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 cAntOptimise :: HG3DClass -> IO ()
 cAntOptimise a1 =
   withHG3DClass a1 $ \a1' -> 
   cAntOptimise'_ a1' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h cAnt_getHandle_c"
HGamer3D/Bindings/Ogre/ClassArchive.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 
 
 cArGetName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cArGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArIsCaseSensitive :: HG3DClass -> IO (Bool)
 cArIsCaseSensitive a1 =
@@ -81,21 +79,21 @@   cArIsCaseSensitive'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArLoad :: HG3DClass -> IO ()
 cArLoad a1 =
   withHG3DClass a1 $ \a1' -> 
   cArLoad'_ a1' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArUnload :: HG3DClass -> IO ()
 cArUnload a1 =
   withHG3DClass a1 $ \a1' -> 
   cArUnload'_ a1' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArIsReadOnly :: HG3DClass -> IO (Bool)
 cArIsReadOnly a1 =
@@ -104,7 +102,7 @@   cArIsReadOnly'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArOpen :: HG3DClass -> String -> Bool -> IO (SharedPtr)
 cArOpen a1 a2 a3 =
@@ -115,7 +113,7 @@   cArOpen'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArCreate :: HG3DClass -> String -> IO (SharedPtr)
 cArCreate a1 a2 =
@@ -125,7 +123,7 @@   cArCreate'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArRemove :: HG3DClass -> String -> IO ()
 cArRemove a1 a2 =
@@ -133,7 +131,7 @@   withCString a2 $ \a2' -> 
   cArRemove'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArList :: HG3DClass -> Bool -> Bool -> IO (SharedPtr)
 cArList a1 a2 a3 =
@@ -144,7 +142,7 @@   cArList'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArListFileInfo :: HG3DClass -> Bool -> Bool -> IO (SharedPtr)
 cArListFileInfo a1 a2 a3 =
@@ -155,7 +153,7 @@   cArListFileInfo'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArFind :: HG3DClass -> String -> Bool -> Bool -> IO (SharedPtr)
 cArFind a1 a2 a3 a4 =
@@ -167,7 +165,7 @@   cArFind'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArExists :: HG3DClass -> String -> IO (Bool)
 cArExists a1 a2 =
@@ -177,7 +175,7 @@   cArExists'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArFindFileInfo :: HG3DClass -> String -> Bool -> Bool -> IO (SharedPtr)
 cArFindFileInfo a1 a2 a3 a4 =
@@ -189,7 +187,7 @@   cArFindFileInfo'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 cArGetType :: HG3DClass -> IO (String)
 cArGetType a1 =
@@ -198,7 +196,7 @@   cArGetType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h cAr_getName_c"
HGamer3D/Bindings/Ogre/ClassArchiveManager.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 
 
 cArmLoad :: HG3DClass -> String -> String -> IO (HG3DClass)
@@ -72,7 +70,7 @@   cArmLoad'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 ;
 cArmUnload :: HG3DClass -> HG3DClass -> IO ()
 cArmUnload a1 a2 =
@@ -80,7 +78,7 @@   withHG3DClass a2 $ \a2' -> 
   cArmUnload'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 ;
 cArmUnload2 :: HG3DClass -> String -> IO ()
 cArmUnload2 a1 a2 =
@@ -88,7 +86,7 @@   withCString a2 $ \a2' -> 
   cArmUnload2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h cArm_load_c"
HGamer3D/Bindings/Ogre/ClassBillboard.hs view
@@ -51,40 +51,38 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 
 
-cBbGetRotation :: HG3DClass -> IO (Radian)
+cBbGetRotation :: HG3DClass -> IO (Radians)
 cBbGetRotation a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cBbGetRotation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
-cBbSetRotation :: HG3DClass -> Radian -> IO ()
+cBbSetRotation :: HG3DClass -> Radians -> IO ()
 cBbSetRotation a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cBbSetRotation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbSetPosition :: HG3DClass -> Vector3 -> IO ()
 cBbSetPosition a1 a2 =
@@ -92,7 +90,7 @@   withVector3 a2 $ \a2' -> 
   cBbSetPosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbSetPosition2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cBbSetPosition2 a1 a2 a3 a4 =
@@ -102,7 +100,7 @@   let {a4' = realToFrac a4} in 
   cBbSetPosition2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbGetPosition :: HG3DClass -> IO (Vector3)
 cBbGetPosition a1 =
@@ -111,7 +109,7 @@   cBbGetPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbSetDimensions :: HG3DClass -> Float -> Float -> IO ()
 cBbSetDimensions a1 a2 a3 =
@@ -120,31 +118,31 @@   let {a3' = realToFrac a3} in 
   cBbSetDimensions'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbResetDimensions :: HG3DClass -> IO ()
 cBbResetDimensions a1 =
   withHG3DClass a1 $ \a1' -> 
   cBbResetDimensions'_ a1' >>= \res ->
   return ()
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
-cBbSetColour :: HG3DClass -> ColourValue -> IO ()
+cBbSetColour :: HG3DClass -> Colour -> IO ()
 cBbSetColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cBbSetColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
-cBbGetColour :: HG3DClass -> IO (ColourValue)
+cBbGetColour :: HG3DClass -> IO (Colour)
 cBbGetColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cBbGetColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbHasOwnDimensions :: HG3DClass -> IO (Bool)
 cBbHasOwnDimensions a1 =
@@ -153,7 +151,7 @@   cBbHasOwnDimensions'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbGetOwnWidth :: HG3DClass -> IO (Float)
 cBbGetOwnWidth a1 =
@@ -162,7 +160,7 @@   cBbGetOwnWidth'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbGetOwnHeight :: HG3DClass -> IO (Float)
 cBbGetOwnHeight a1 =
@@ -171,7 +169,7 @@   cBbGetOwnHeight'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbNotifyOwner :: HG3DClass -> HG3DClass -> IO ()
 cBbNotifyOwner a1 a2 =
@@ -179,7 +177,7 @@   withHG3DClass a2 $ \a2' -> 
   cBbNotifyOwner'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbIsUseTexcoordRect :: HG3DClass -> IO (Bool)
 cBbIsUseTexcoordRect a1 =
@@ -188,7 +186,7 @@   cBbIsUseTexcoordRect'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbSetTexcoordIndex :: HG3DClass -> Int -> IO ()
 cBbSetTexcoordIndex a1 a2 =
@@ -196,7 +194,7 @@   let {a2' = fromIntegral a2} in 
   cBbSetTexcoordIndex'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbGetTexcoordIndex :: HG3DClass -> IO (Int)
 cBbGetTexcoordIndex a1 =
@@ -205,7 +203,7 @@   cBbGetTexcoordIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 cBbSetTexcoordRect2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cBbSetTexcoordRect2 a1 a2 a3 a4 a5 =
@@ -216,14 +214,14 @@   let {a5' = realToFrac a5} in 
   cBbSetTexcoordRect2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
+{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_getRotation_c"
-  cBbGetRotation'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cBbGetRotation'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_setRotation_c"
-  cBbSetRotation'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cBbSetRotation'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_setPosition_c"
   cBbSetPosition'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ())))
@@ -241,10 +239,10 @@   cBbResetDimensions'_ :: ((HG3DClassPtr) -> (IO ()))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_setColour_c"
-  cBbSetColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cBbSetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_getColour_c"
-  cBbGetColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cBbGetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h cBb_hasOwnDimensions_c"
   cBbHasOwnDimensions'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassBillboardChain.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTexCoordDirection
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 
 
 cBcSetMaxChainElements :: HG3DClass -> Int -> IO ()
@@ -71,7 +69,7 @@   let {a2' = fromIntegral a2} in 
   cBcSetMaxChainElements'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetMaxChainElements :: HG3DClass -> IO (Int)
 cBcGetMaxChainElements a1 =
@@ -80,7 +78,7 @@   cBcGetMaxChainElements'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetNumberOfChains :: HG3DClass -> Int -> IO ()
 cBcSetNumberOfChains a1 a2 =
@@ -88,7 +86,7 @@   let {a2' = fromIntegral a2} in 
   cBcSetNumberOfChains'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetNumberOfChains :: HG3DClass -> IO (Int)
 cBcGetNumberOfChains a1 =
@@ -97,7 +95,7 @@   cBcGetNumberOfChains'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetUseTextureCoords :: HG3DClass -> Bool -> IO ()
 cBcSetUseTextureCoords a1 a2 =
@@ -105,7 +103,7 @@   let {a2' = fromBool a2} in 
   cBcSetUseTextureCoords'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetUseTextureCoords :: HG3DClass -> IO (Bool)
 cBcGetUseTextureCoords a1 =
@@ -114,7 +112,7 @@   cBcGetUseTextureCoords'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetTextureCoordDirection :: HG3DClass -> EnumTexCoordDirection -> IO ()
 cBcSetTextureCoordDirection a1 a2 =
@@ -122,7 +120,7 @@   let {a2' = cIntFromEnum a2} in 
   cBcSetTextureCoordDirection'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetTextureCoordDirection :: HG3DClass -> IO (EnumTexCoordDirection)
 cBcGetTextureCoordDirection a1 =
@@ -131,7 +129,7 @@   cBcGetTextureCoordDirection'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetOtherTextureCoordRange :: HG3DClass -> Float -> Float -> IO ()
 cBcSetOtherTextureCoordRange a1 a2 a3 =
@@ -140,7 +138,7 @@   let {a3' = realToFrac a3} in 
   cBcSetOtherTextureCoordRange'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetUseVertexColours :: HG3DClass -> Bool -> IO ()
 cBcSetUseVertexColours a1 a2 =
@@ -148,7 +146,7 @@   let {a2' = fromBool a2} in 
   cBcSetUseVertexColours'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetUseVertexColours :: HG3DClass -> IO (Bool)
 cBcGetUseVertexColours a1 =
@@ -157,7 +155,7 @@   cBcGetUseVertexColours'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetDynamic :: HG3DClass -> Bool -> IO ()
 cBcSetDynamic a1 a2 =
@@ -165,7 +163,7 @@   let {a2' = fromBool a2} in 
   cBcSetDynamic'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetDynamic :: HG3DClass -> IO (Bool)
 cBcGetDynamic a1 =
@@ -174,7 +172,7 @@   cBcGetDynamic'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcRemoveChainElement :: HG3DClass -> Int -> IO ()
 cBcRemoveChainElement a1 a2 =
@@ -182,7 +180,7 @@   let {a2' = fromIntegral a2} in 
   cBcRemoveChainElement'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetNumChainElements :: HG3DClass -> Int -> IO (Int)
 cBcGetNumChainElements a1 a2 =
@@ -192,7 +190,7 @@   cBcGetNumChainElements'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcClearChain :: HG3DClass -> Int -> IO ()
 cBcClearChain a1 a2 =
@@ -200,14 +198,14 @@   let {a2' = fromIntegral a2} in 
   cBcClearChain'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcClearAllChains :: HG3DClass -> IO ()
 cBcClearAllChains a1 =
   withHG3DClass a1 $ \a1' -> 
   cBcClearAllChains'_ a1' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcGetMaterialName :: HG3DClass -> IO (String)
 cBcGetMaterialName a1 =
@@ -216,7 +214,7 @@   cBcGetMaterialName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcSetMaterialName :: HG3DClass -> String -> String -> IO ()
 cBcSetMaterialName a1 a2 a3 =
@@ -225,7 +223,7 @@   withCString a3 $ \a3' -> 
   cBcSetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 cBcNotifyCurrentCamera :: HG3DClass -> HG3DClass -> IO ()
 cBcNotifyCurrentCamera a1 a2 =
@@ -233,7 +231,7 @@   withHG3DClass a2 $ \a2' -> 
   cBcNotifyCurrentCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h cBc_setMaxChainElements_c"
HGamer3D/Bindings/Ogre/ClassBillboardChainFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassBillboardSet.hs view
@@ -51,55 +51,53 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumBillboardOrigin
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumBillboardRotationType
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumBillboardType
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSortMode
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 
 
-cBsCreateBillboard :: HG3DClass -> Vector3 -> ColourValue -> IO (HG3DClass)
+cBsCreateBillboard :: HG3DClass -> Vector3 -> Colour -> IO (HG3DClass)
 cBsCreateBillboard a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
   withVector3 a2 $ \a2' -> 
-  withColourValue a3 $ \a3' -> 
+  withColour a3 $ \a3' -> 
   alloca $ \a4' -> 
   cBsCreateBillboard'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
-cBsCreateBillboard2 :: HG3DClass -> Float -> Float -> Float -> ColourValue -> IO (HG3DClass)
+cBsCreateBillboard2 :: HG3DClass -> Float -> Float -> Float -> Colour -> IO (HG3DClass)
 cBsCreateBillboard2 a1 a2 a3 a4 a5 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = realToFrac a2} in 
   let {a3' = realToFrac a3} in 
   let {a4' = realToFrac a4} in 
-  withColourValue a5 $ \a5' -> 
+  withColour a5 $ \a5' -> 
   alloca $ \a6' -> 
   cBsCreateBillboard2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   peek  a6'>>= \a6'' -> 
   return (a6'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetNumBillboards :: HG3DClass -> IO (Int)
 cBsGetNumBillboards a1 =
@@ -108,7 +106,7 @@   cBsGetNumBillboards'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetAutoextend :: HG3DClass -> Bool -> IO ()
 cBsSetAutoextend a1 a2 =
@@ -116,7 +114,7 @@   let {a2' = fromBool a2} in 
   cBsSetAutoextend'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetAutoextend :: HG3DClass -> IO (Bool)
 cBsGetAutoextend a1 =
@@ -125,7 +123,7 @@   cBsGetAutoextend'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetSortingEnabled :: HG3DClass -> Bool -> IO ()
 cBsSetSortingEnabled a1 a2 =
@@ -133,7 +131,7 @@   let {a2' = fromBool a2} in 
   cBsSetSortingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetSortingEnabled :: HG3DClass -> IO (Bool)
 cBsGetSortingEnabled a1 =
@@ -142,7 +140,7 @@   cBsGetSortingEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetPoolSize :: HG3DClass -> Int -> IO ()
 cBsSetPoolSize a1 a2 =
@@ -150,7 +148,7 @@   let {a2' = fromIntegral a2} in 
   cBsSetPoolSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetPoolSize :: HG3DClass -> IO (Int)
 cBsGetPoolSize a1 =
@@ -159,14 +157,14 @@   cBsGetPoolSize'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsClear :: HG3DClass -> IO ()
 cBsClear a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsClear'_ a1' >>= \res ->
   return ()
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetBillboard :: HG3DClass -> Int -> IO (HG3DClass)
 cBsGetBillboard a1 a2 =
@@ -176,7 +174,7 @@   cBsGetBillboard'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsRemoveBillboard :: HG3DClass -> Int -> IO ()
 cBsRemoveBillboard a1 a2 =
@@ -184,7 +182,7 @@   let {a2' = fromIntegral a2} in 
   cBsRemoveBillboard'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsRemoveBillboard2 :: HG3DClass -> HG3DClass -> IO ()
 cBsRemoveBillboard2 a1 a2 =
@@ -192,7 +190,7 @@   withHG3DClass a2 $ \a2' -> 
   cBsRemoveBillboard2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetBillboardOrigin :: HG3DClass -> EnumBillboardOrigin -> IO ()
 cBsSetBillboardOrigin a1 a2 =
@@ -200,7 +198,7 @@   let {a2' = cIntFromEnum a2} in 
   cBsSetBillboardOrigin'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetBillboardOrigin :: HG3DClass -> IO (EnumBillboardOrigin)
 cBsGetBillboardOrigin a1 =
@@ -209,7 +207,7 @@   cBsGetBillboardOrigin'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetBillboardRotationType :: HG3DClass -> EnumBillboardRotationType -> IO ()
 cBsSetBillboardRotationType a1 a2 =
@@ -217,7 +215,7 @@   let {a2' = cIntFromEnum a2} in 
   cBsSetBillboardRotationType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetBillboardRotationType :: HG3DClass -> IO (EnumBillboardRotationType)
 cBsGetBillboardRotationType a1 =
@@ -226,7 +224,7 @@   cBsGetBillboardRotationType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetDefaultDimensions :: HG3DClass -> Float -> Float -> IO ()
 cBsSetDefaultDimensions a1 a2 a3 =
@@ -235,7 +233,7 @@   let {a3' = realToFrac a3} in 
   cBsSetDefaultDimensions'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetDefaultWidth :: HG3DClass -> Float -> IO ()
 cBsSetDefaultWidth a1 a2 =
@@ -243,7 +241,7 @@   let {a2' = realToFrac a2} in 
   cBsSetDefaultWidth'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetDefaultWidth :: HG3DClass -> IO (Float)
 cBsGetDefaultWidth a1 =
@@ -252,7 +250,7 @@   cBsGetDefaultWidth'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetDefaultHeight :: HG3DClass -> Float -> IO ()
 cBsSetDefaultHeight a1 a2 =
@@ -260,7 +258,7 @@   let {a2' = realToFrac a2} in 
   cBsSetDefaultHeight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetDefaultHeight :: HG3DClass -> IO (Float)
 cBsGetDefaultHeight a1 =
@@ -269,7 +267,7 @@   cBsGetDefaultHeight'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetMaterialName :: HG3DClass -> String -> String -> IO ()
 cBsSetMaterialName a1 a2 a3 =
@@ -278,7 +276,7 @@   withCString a3 $ \a3' -> 
   cBsSetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetMaterialName :: HG3DClass -> IO (String)
 cBsGetMaterialName a1 =
@@ -287,7 +285,7 @@   cBsGetMaterialName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsNotifyCurrentCamera :: HG3DClass -> HG3DClass -> IO ()
 cBsNotifyCurrentCamera a1 a2 =
@@ -295,7 +293,7 @@   withHG3DClass a2 $ \a2' -> 
   cBsNotifyCurrentCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsBeginBillboards :: HG3DClass -> Int -> IO ()
 cBsBeginBillboards a1 a2 =
@@ -303,14 +301,14 @@   let {a2' = fromIntegral a2} in 
   cBsBeginBillboards'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsEndBillboards :: HG3DClass -> IO ()
 cBsEndBillboards a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsEndBillboards'_ a1' >>= \res ->
   return ()
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetBoundingRadius :: HG3DClass -> IO (Float)
 cBsGetBoundingRadius a1 =
@@ -319,7 +317,7 @@   cBsGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetMaterial :: HG3DClass -> IO (SharedPtr)
 cBsGetMaterial a1 =
@@ -328,7 +326,7 @@   cBsGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetMaterial :: HG3DClass -> SharedPtr -> IO ()
 cBsSetMaterial a1 a2 =
@@ -336,21 +334,21 @@   withSharedPtr a2 $ \a2' -> 
   cBsSetMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsNotifyBillboardResized :: HG3DClass -> IO ()
 cBsNotifyBillboardResized a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsNotifyBillboardResized'_ a1' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsNotifyBillboardRotated :: HG3DClass -> IO ()
 cBsNotifyBillboardRotated a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsNotifyBillboardRotated'_ a1' >>= \res ->
   return ()
-{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetCullIndividually :: HG3DClass -> IO (Bool)
 cBsGetCullIndividually a1 =
@@ -359,7 +357,7 @@   cBsGetCullIndividually'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetCullIndividually :: HG3DClass -> Bool -> IO ()
 cBsSetCullIndividually a1 a2 =
@@ -367,7 +365,7 @@   let {a2' = fromBool a2} in 
   cBsSetCullIndividually'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetBillboardType :: HG3DClass -> EnumBillboardType -> IO ()
 cBsSetBillboardType a1 a2 =
@@ -375,7 +373,7 @@   let {a2' = cIntFromEnum a2} in 
   cBsSetBillboardType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetBillboardType :: HG3DClass -> IO (EnumBillboardType)
 cBsGetBillboardType a1 =
@@ -384,7 +382,7 @@   cBsGetBillboardType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetCommonDirection :: HG3DClass -> Vector3 -> IO ()
 cBsSetCommonDirection a1 a2 =
@@ -392,7 +390,7 @@   withVector3 a2 $ \a2' -> 
   cBsSetCommonDirection'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetCommonDirection :: HG3DClass -> IO (Vector3)
 cBsGetCommonDirection a1 =
@@ -401,7 +399,7 @@   cBsGetCommonDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetCommonUpVector :: HG3DClass -> Vector3 -> IO ()
 cBsSetCommonUpVector a1 a2 =
@@ -409,7 +407,7 @@   withVector3 a2 $ \a2' -> 
   cBsSetCommonUpVector'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetCommonUpVector :: HG3DClass -> IO (Vector3)
 cBsGetCommonUpVector a1 =
@@ -418,7 +416,7 @@   cBsGetCommonUpVector'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetUseAccurateFacing :: HG3DClass -> Bool -> IO ()
 cBsSetUseAccurateFacing a1 a2 =
@@ -426,7 +424,7 @@   let {a2' = fromBool a2} in 
   cBsSetUseAccurateFacing'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetUseAccurateFacing :: HG3DClass -> IO (Bool)
 cBsGetUseAccurateFacing a1 =
@@ -435,7 +433,7 @@   cBsGetUseAccurateFacing'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetMovableType :: HG3DClass -> IO (String)
 cBsGetMovableType a1 =
@@ -444,14 +442,14 @@   cBsGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsUpdateBounds :: HG3DClass -> IO ()
 cBsUpdateBounds a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsUpdateBounds'_ a1' >>= \res ->
   return ()
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSortBillboards :: HG3DClass -> HG3DClass -> IO ()
 cBsSortBillboards a1 a2 =
@@ -459,7 +457,7 @@   withHG3DClass a2 $ \a2' -> 
   cBsSortBillboards'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetSortMode :: HG3DClass -> IO (EnumSortMode)
 cBsGetSortMode a1 =
@@ -468,7 +466,7 @@   cBsGetSortMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetBillboardsInWorldSpace :: HG3DClass -> Bool -> IO ()
 cBsSetBillboardsInWorldSpace a1 a2 =
@@ -476,7 +474,7 @@   let {a2' = fromBool a2} in 
   cBsSetBillboardsInWorldSpace'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetPointRenderingEnabled :: HG3DClass -> Bool -> IO ()
 cBsSetPointRenderingEnabled a1 a2 =
@@ -484,7 +482,7 @@   let {a2' = fromBool a2} in 
   cBsSetPointRenderingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsIsPointRenderingEnabled :: HG3DClass -> IO (Bool)
 cBsIsPointRenderingEnabled a1 =
@@ -493,7 +491,7 @@   cBsIsPointRenderingEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetTypeFlags :: HG3DClass -> IO (Int)
 cBsGetTypeFlags a1 =
@@ -502,7 +500,7 @@   cBsGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsSetAutoUpdate :: HG3DClass -> Bool -> IO ()
 cBsSetAutoUpdate a1 a2 =
@@ -510,7 +508,7 @@   let {a2' = fromBool a2} in 
   cBsSetAutoUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 271 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsGetAutoUpdate :: HG3DClass -> IO (Bool)
 cBsGetAutoUpdate a1 =
@@ -519,21 +517,21 @@   cBsGetAutoUpdate'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 275 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 cBsNotifyBillboardDataChanged :: HG3DClass -> IO ()
 cBsNotifyBillboardDataChanged a1 =
   withHG3DClass a1 $ \a1' -> 
   cBsNotifyBillboardDataChanged'_ a1' >>= \res ->
   return ()
-{-# LINE 280 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
+{-# LINE 278 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h cBs_createBillboard_c"
-  cBsCreateBillboard'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((ColourValuePtr) -> ((HG3DClassPtr) -> (IO ())))))
+  cBsCreateBillboard'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((ColourPtr) -> ((HG3DClassPtr) -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h cBs_createBillboard2_c"
-  cBsCreateBillboard2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> ((ColourValuePtr) -> ((HG3DClassPtr) -> (IO ())))))))
+  cBsCreateBillboard2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> ((ColourPtr) -> ((HG3DClassPtr) -> (IO ())))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h cBs_getNumBillboards_c"
   cBsGetNumBillboards'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassBillboardSetFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassBone.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 
 
 cBCreateChild :: HG3DClass -> Int -> Vector3 -> Quaternion -> IO (HG3DClass)
@@ -77,7 +75,7 @@   cBCreateChild'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBGetHandle :: HG3DClass -> IO (Int)
 cBGetHandle a1 =
@@ -86,21 +84,21 @@   cBGetHandle'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBSetBindingPose :: HG3DClass -> IO ()
 cBSetBindingPose a1 =
   withHG3DClass a1 $ \a1' -> 
   cBSetBindingPose'_ a1' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBReset :: HG3DClass -> IO ()
 cBReset a1 =
   withHG3DClass a1 $ \a1' -> 
   cBReset'_ a1' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBSetManuallyControlled :: HG3DClass -> Bool -> IO ()
 cBSetManuallyControlled a1 a2 =
@@ -108,7 +106,7 @@   let {a2' = fromBool a2} in 
   cBSetManuallyControlled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBIsManuallyControlled :: HG3DClass -> IO (Bool)
 cBIsManuallyControlled a1 =
@@ -117,7 +115,7 @@   cBIsManuallyControlled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBGetBindingPoseInverseScale :: HG3DClass -> IO (Vector3)
 cBGetBindingPoseInverseScale a1 =
@@ -126,7 +124,7 @@   cBGetBindingPoseInverseScale'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBGetBindingPoseInversePosition :: HG3DClass -> IO (Vector3)
 cBGetBindingPoseInversePosition a1 =
@@ -135,7 +133,7 @@   cBGetBindingPoseInversePosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 cBGetBindingPoseInverseOrientation :: HG3DClass -> IO (Quaternion)
 cBGetBindingPoseInverseOrientation a1 =
@@ -144,7 +142,7 @@   cBGetBindingPoseInverseOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h cB_createChild_c"
HGamer3D/Bindings/Ogre/ClassCamera.hs view
@@ -51,26 +51,24 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPolygonMode
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFrustumPlane
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 
 
 cCGetSceneManager :: HG3DClass -> IO (HG3DClass)
@@ -80,7 +78,7 @@   cCGetSceneManager'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetPolygonMode :: HG3DClass -> EnumPolygonMode -> IO ()
 cCSetPolygonMode a1 a2 =
@@ -88,7 +86,7 @@   let {a2' = cIntFromEnum a2} in 
   cCSetPolygonMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetPolygonMode :: HG3DClass -> IO (EnumPolygonMode)
 cCGetPolygonMode a1 =
@@ -97,7 +95,7 @@   cCGetPolygonMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetPosition :: HG3DClass -> Float -> Float -> Float -> IO ()
 cCSetPosition a1 a2 a3 a4 =
@@ -107,7 +105,7 @@   let {a4' = realToFrac a4} in 
   cCSetPosition'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetPosition2 :: HG3DClass -> Vector3 -> IO ()
 cCSetPosition2 a1 a2 =
@@ -115,7 +113,7 @@   withVector3 a2 $ \a2' -> 
   cCSetPosition2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetPosition :: HG3DClass -> IO (Vector3)
 cCGetPosition a1 =
@@ -124,7 +122,7 @@   cCGetPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCMove :: HG3DClass -> Vector3 -> IO ()
 cCMove a1 a2 =
@@ -132,7 +130,7 @@   withVector3 a2 $ \a2' -> 
   cCMove'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCMoveRelative :: HG3DClass -> Vector3 -> IO ()
 cCMoveRelative a1 a2 =
@@ -140,7 +138,7 @@   withVector3 a2 $ \a2' -> 
   cCMoveRelative'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetDirection :: HG3DClass -> Float -> Float -> Float -> IO ()
 cCSetDirection a1 a2 a3 a4 =
@@ -150,7 +148,7 @@   let {a4' = realToFrac a4} in 
   cCSetDirection'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetDirection2 :: HG3DClass -> Vector3 -> IO ()
 cCSetDirection2 a1 a2 =
@@ -158,7 +156,7 @@   withVector3 a2 $ \a2' -> 
   cCSetDirection2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetUp :: HG3DClass -> IO (Vector3)
 cCGetUp a1 =
@@ -167,7 +165,7 @@   cCGetUp'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRight :: HG3DClass -> IO (Vector3)
 cCGetRight a1 =
@@ -176,7 +174,7 @@   cCGetRight'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCLookAt :: HG3DClass -> Vector3 -> IO ()
 cCLookAt a1 a2 =
@@ -184,7 +182,7 @@   withVector3 a2 $ \a2' -> 
   cCLookAt'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCLookAt2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cCLookAt2 a1 a2 a3 a4 =
@@ -194,40 +192,40 @@   let {a4' = realToFrac a4} in 
   cCLookAt2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
-cCRoll :: HG3DClass -> Radian -> IO ()
+cCRoll :: HG3DClass -> Radians -> IO ()
 cCRoll a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cCRoll'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
-cCYaw :: HG3DClass -> Radian -> IO ()
+cCYaw :: HG3DClass -> Radians -> IO ()
 cCYaw a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cCYaw'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
-cCPitch :: HG3DClass -> Radian -> IO ()
+cCPitch :: HG3DClass -> Radians -> IO ()
 cCPitch a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cCPitch'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
-cCRotate :: HG3DClass -> Vector3 -> Radian -> IO ()
+cCRotate :: HG3DClass -> Vector3 -> Radians -> IO ()
 cCRotate a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
   withVector3 a2 $ \a2' -> 
-  withRadian a3 $ \a3' -> 
+  withRadians a3 $ \a3' -> 
   cCRotate'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCRotate2 :: HG3DClass -> Quaternion -> IO ()
 cCRotate2 a1 a2 =
@@ -235,7 +233,7 @@   withQuaternion a2 $ \a2' -> 
   cCRotate2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetFixedYawAxis :: HG3DClass -> Bool -> Vector3 -> IO ()
 cCSetFixedYawAxis a1 a2 a3 =
@@ -244,7 +242,7 @@   withVector3 a3 $ \a3' -> 
   cCSetFixedYawAxis'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetOrientation :: HG3DClass -> IO (Quaternion)
 cCGetOrientation a1 =
@@ -253,7 +251,7 @@   cCGetOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetOrientation :: HG3DClass -> Quaternion -> IO ()
 cCSetOrientation a1 a2 =
@@ -261,7 +259,7 @@   withQuaternion a2 $ \a2' -> 
   cCSetOrientation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCRenderScene :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cCRenderScene a1 a2 a3 =
@@ -270,7 +268,7 @@   let {a3' = fromBool a3} in 
   cCRenderScene'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCNotifyRenderedFaces :: HG3DClass -> Int -> IO ()
 cCNotifyRenderedFaces a1 a2 =
@@ -278,7 +276,7 @@   let {a2' = fromIntegral a2} in 
   cCNotifyRenderedFaces'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCNotifyRenderedBatches :: HG3DClass -> Int -> IO ()
 cCNotifyRenderedBatches a1 a2 =
@@ -286,7 +284,7 @@   let {a2' = fromIntegral a2} in 
   cCNotifyRenderedBatches'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetNumRenderedFaces :: HG3DClass -> IO (Int)
 cCGetNumRenderedFaces a1 =
@@ -295,7 +293,7 @@   cCGetNumRenderedFaces'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetNumRenderedBatches :: HG3DClass -> IO (Int)
 cCGetNumRenderedBatches a1 =
@@ -304,7 +302,7 @@   cCGetNumRenderedBatches'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetDerivedOrientation :: HG3DClass -> IO (Quaternion)
 cCGetDerivedOrientation a1 =
@@ -313,7 +311,7 @@   cCGetDerivedOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetDerivedPosition :: HG3DClass -> IO (Vector3)
 cCGetDerivedPosition a1 =
@@ -322,7 +320,7 @@   cCGetDerivedPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetDerivedDirection :: HG3DClass -> IO (Vector3)
 cCGetDerivedDirection a1 =
@@ -331,7 +329,7 @@   cCGetDerivedDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetDerivedUp :: HG3DClass -> IO (Vector3)
 cCGetDerivedUp a1 =
@@ -340,7 +338,7 @@   cCGetDerivedUp'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 194 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetDerivedRight :: HG3DClass -> IO (Vector3)
 cCGetDerivedRight a1 =
@@ -349,7 +347,7 @@   cCGetDerivedRight'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRealOrientation :: HG3DClass -> IO (Quaternion)
 cCGetRealOrientation a1 =
@@ -358,7 +356,7 @@   cCGetRealOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRealPosition :: HG3DClass -> IO (Vector3)
 cCGetRealPosition a1 =
@@ -367,7 +365,7 @@   cCGetRealPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRealDirection :: HG3DClass -> IO (Vector3)
 cCGetRealDirection a1 =
@@ -376,7 +374,7 @@   cCGetRealDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRealUp :: HG3DClass -> IO (Vector3)
 cCGetRealUp a1 =
@@ -385,7 +383,7 @@   cCGetRealUp'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetRealRight :: HG3DClass -> IO (Vector3)
 cCGetRealRight a1 =
@@ -394,7 +392,7 @@   cCGetRealRight'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetMovableType :: HG3DClass -> IO (String)
 cCGetMovableType a1 =
@@ -403,7 +401,7 @@   cCGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetAutoTracking :: HG3DClass -> Bool -> HG3DClass -> Vector3 -> IO ()
 cCSetAutoTracking a1 a2 a3 a4 =
@@ -413,7 +411,7 @@   withVector3 a4 $ \a4' -> 
   cCSetAutoTracking'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetLodBias :: HG3DClass -> Float -> IO ()
 cCSetLodBias a1 a2 =
@@ -421,7 +419,7 @@   let {a2' = realToFrac a2} in 
   cCSetLodBias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetLodBias :: HG3DClass -> IO (Float)
 cCGetLodBias a1 =
@@ -430,7 +428,7 @@   cCGetLodBias'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetLodBiasInverse :: HG3DClass -> IO (Float)
 cCGetLodBiasInverse a1 =
@@ -439,14 +437,14 @@   cCGetLodBiasInverse'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCAutoTrack :: HG3DClass -> IO ()
 cCAutoTrack a1 =
   withHG3DClass a1 $ \a1' -> 
   cCAutoTrack'_ a1' >>= \res ->
   return ()
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCIsWindowSet :: HG3DClass -> IO (Bool)
 cCIsWindowSet a1 =
@@ -455,7 +453,7 @@   cCIsWindowSet'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetBoundingRadius :: HG3DClass -> IO (Float)
 cCGetBoundingRadius a1 =
@@ -464,7 +462,7 @@   cCGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetAutoTrackTarget :: HG3DClass -> IO (HG3DClass)
 cCGetAutoTrackTarget a1 =
@@ -473,7 +471,7 @@   cCGetAutoTrackTarget'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetAutoTrackOffset :: HG3DClass -> IO (Vector3)
 cCGetAutoTrackOffset a1 =
@@ -482,7 +480,7 @@   cCGetAutoTrackOffset'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetViewport :: HG3DClass -> IO (HG3DClass)
 cCGetViewport a1 =
@@ -491,7 +489,7 @@   cCGetViewport'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCNotifyViewport :: HG3DClass -> HG3DClass -> IO ()
 cCNotifyViewport a1 a2 =
@@ -499,7 +497,7 @@   withHG3DClass a2 $ \a2' -> 
   cCNotifyViewport'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetAutoAspectRatio :: HG3DClass -> Bool -> IO ()
 cCSetAutoAspectRatio a1 a2 =
@@ -507,7 +505,7 @@   let {a2' = fromBool a2} in 
   cCSetAutoAspectRatio'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 271 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetAutoAspectRatio :: HG3DClass -> IO (Bool)
 cCGetAutoAspectRatio a1 =
@@ -516,7 +514,7 @@   cCGetAutoAspectRatio'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 275 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetCullingFrustum :: HG3DClass -> HG3DClass -> IO ()
 cCSetCullingFrustum a1 a2 =
@@ -524,7 +522,7 @@   withHG3DClass a2 $ \a2' -> 
   cCSetCullingFrustum'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 279 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetCullingFrustum :: HG3DClass -> IO (HG3DClass)
 cCGetCullingFrustum a1 =
@@ -533,7 +531,7 @@   cCGetCullingFrustum'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCIsVisible3 :: HG3DClass -> Vector3 -> IO (EnumFrustumPlane, Bool)
 cCIsVisible3 a1 a2 =
@@ -545,7 +543,7 @@   peekEnumUtil  a3'>>= \a3'' -> 
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a3'', a4'')
-{-# LINE 291 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 289 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetNearClipDistance :: HG3DClass -> IO (Float)
 cCGetNearClipDistance a1 =
@@ -554,7 +552,7 @@   cCGetNearClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 295 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 293 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetFarClipDistance :: HG3DClass -> IO (Float)
 cCGetFarClipDistance a1 =
@@ -563,7 +561,7 @@   cCGetFarClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 297 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCSetUseRenderingDistance :: HG3DClass -> Bool -> IO ()
 cCSetUseRenderingDistance a1 a2 =
@@ -571,7 +569,7 @@   let {a2' = fromBool a2} in 
   cCSetUseRenderingDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 303 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 301 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetUseRenderingDistance :: HG3DClass -> IO (Bool)
 cCGetUseRenderingDistance a1 =
@@ -580,7 +578,7 @@   cCGetUseRenderingDistance'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 307 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 305 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetPositionForViewUpdate :: HG3DClass -> IO (Vector3)
 cCGetPositionForViewUpdate a1 =
@@ -589,7 +587,7 @@   cCGetPositionForViewUpdate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 311 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 309 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 cCGetOrientationForViewUpdate :: HG3DClass -> IO (Quaternion)
 cCGetOrientationForViewUpdate a1 =
@@ -598,7 +596,7 @@   cCGetOrientationForViewUpdate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 315 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
+{-# LINE 313 "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_getSceneManager_c"
@@ -644,16 +642,16 @@   cCLookAt2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_roll_c"
-  cCRoll'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cCRoll'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_yaw_c"
-  cCYaw'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cCYaw'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_pitch_c"
-  cCPitch'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cCPitch'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_rotate_c"
-  cCRotate'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((RadianPtr) -> (IO ()))))
+  cCRotate'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((RadiansPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h cC_rotate2_c"
   cCRotate2'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassCmdManualNamedConstsFile.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCmdManualNamedConstsFile.chs" #-}
HGamer3D/Bindings/Ogre/ClassCmdPose.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCmdPose.chs" #-}
HGamer3D/Bindings/Ogre/ClassCompositionPass.hs view
@@ -51,26 +51,24 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPassType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCompareFunction
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumStencilOperation
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 
 
 cCopSetType :: HG3DClass -> EnumPassType -> IO ()
@@ -79,7 +77,7 @@   let {a2' = cIntFromEnum a2} in 
   cCopSetType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetType :: HG3DClass -> IO (EnumPassType)
 cCopGetType a1 =
@@ -88,7 +86,7 @@   cCopGetType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetIdentifier :: HG3DClass -> Int -> IO ()
 cCopSetIdentifier a1 a2 =
@@ -96,7 +94,7 @@   let {a2' = fromIntegral a2} in 
   cCopSetIdentifier'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetIdentifier :: HG3DClass -> IO (Int)
 cCopGetIdentifier a1 =
@@ -105,7 +103,7 @@   cCopGetIdentifier'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetMaterial :: HG3DClass -> SharedPtr -> IO ()
 cCopSetMaterial a1 a2 =
@@ -113,7 +111,7 @@   withSharedPtr a2 $ \a2' -> 
   cCopSetMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetMaterialName :: HG3DClass -> String -> IO ()
 cCopSetMaterialName a1 a2 =
@@ -121,7 +119,7 @@   withCString a2 $ \a2' -> 
   cCopSetMaterialName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetMaterial :: HG3DClass -> IO (SharedPtr)
 cCopGetMaterial a1 =
@@ -130,7 +128,7 @@   cCopGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetMaterialScheme :: HG3DClass -> String -> IO ()
 cCopSetMaterialScheme a1 a2 =
@@ -138,7 +136,7 @@   withCString a2 $ \a2' -> 
   cCopSetMaterialScheme'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetMaterialScheme :: HG3DClass -> IO (String)
 cCopGetMaterialScheme a1 =
@@ -147,7 +145,7 @@   cCopGetMaterialScheme'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetClearBuffers :: HG3DClass -> Int -> IO ()
 cCopSetClearBuffers a1 a2 =
@@ -155,7 +153,7 @@   let {a2' = fromIntegral a2} in 
   cCopSetClearBuffers'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetClearBuffers :: HG3DClass -> IO (Int)
 cCopGetClearBuffers a1 =
@@ -164,24 +162,24 @@   cCopGetClearBuffers'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
-cCopSetClearColour :: HG3DClass -> ColourValue -> IO ()
+cCopSetClearColour :: HG3DClass -> Colour -> IO ()
 cCopSetClearColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cCopSetClearColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
-cCopGetClearColour :: HG3DClass -> IO (ColourValue)
+cCopGetClearColour :: HG3DClass -> IO (Colour)
 cCopGetClearColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cCopGetClearColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetClearDepth :: HG3DClass -> Float -> IO ()
 cCopSetClearDepth a1 a2 =
@@ -189,7 +187,7 @@   let {a2' = realToFrac a2} in 
   cCopSetClearDepth'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetClearDepth :: HG3DClass -> IO (Float)
 cCopGetClearDepth a1 =
@@ -198,7 +196,7 @@   cCopGetClearDepth'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetClearStencil :: HG3DClass -> Int -> IO ()
 cCopSetClearStencil a1 a2 =
@@ -206,7 +204,7 @@   let {a2' = fromIntegral a2} in 
   cCopSetClearStencil'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetClearStencil :: HG3DClass -> IO (Int)
 cCopGetClearStencil a1 =
@@ -215,7 +213,7 @@   cCopGetClearStencil'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilCheck :: HG3DClass -> Bool -> IO ()
 cCopSetStencilCheck a1 a2 =
@@ -223,7 +221,7 @@   let {a2' = fromBool a2} in 
   cCopSetStencilCheck'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilCheck :: HG3DClass -> IO (Bool)
 cCopGetStencilCheck a1 =
@@ -232,7 +230,7 @@   cCopGetStencilCheck'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilFunc :: HG3DClass -> EnumCompareFunction -> IO ()
 cCopSetStencilFunc a1 a2 =
@@ -240,7 +238,7 @@   let {a2' = cIntFromEnum a2} in 
   cCopSetStencilFunc'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilFunc :: HG3DClass -> IO (EnumCompareFunction)
 cCopGetStencilFunc a1 =
@@ -249,7 +247,7 @@   cCopGetStencilFunc'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilRefValue :: HG3DClass -> Int -> IO ()
 cCopSetStencilRefValue a1 a2 =
@@ -257,7 +255,7 @@   let {a2' = fromIntegral a2} in 
   cCopSetStencilRefValue'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilRefValue :: HG3DClass -> IO (Int)
 cCopGetStencilRefValue a1 =
@@ -266,7 +264,7 @@   cCopGetStencilRefValue'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilMask :: HG3DClass -> Int -> IO ()
 cCopSetStencilMask a1 a2 =
@@ -274,7 +272,7 @@   let {a2' = fromIntegral a2} in 
   cCopSetStencilMask'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilMask :: HG3DClass -> IO (Int)
 cCopGetStencilMask a1 =
@@ -283,7 +281,7 @@   cCopGetStencilMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilFailOp :: HG3DClass -> EnumStencilOperation -> IO ()
 cCopSetStencilFailOp a1 a2 =
@@ -291,7 +289,7 @@   let {a2' = cIntFromEnum a2} in 
   cCopSetStencilFailOp'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilFailOp :: HG3DClass -> IO (EnumStencilOperation)
 cCopGetStencilFailOp a1 =
@@ -300,7 +298,7 @@   cCopGetStencilFailOp'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilDepthFailOp :: HG3DClass -> EnumStencilOperation -> IO ()
 cCopSetStencilDepthFailOp a1 a2 =
@@ -308,7 +306,7 @@   let {a2' = cIntFromEnum a2} in 
   cCopSetStencilDepthFailOp'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilDepthFailOp :: HG3DClass -> IO (EnumStencilOperation)
 cCopGetStencilDepthFailOp a1 =
@@ -317,7 +315,7 @@   cCopGetStencilDepthFailOp'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilPassOp :: HG3DClass -> EnumStencilOperation -> IO ()
 cCopSetStencilPassOp a1 a2 =
@@ -325,7 +323,7 @@   let {a2' = cIntFromEnum a2} in 
   cCopSetStencilPassOp'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilPassOp :: HG3DClass -> IO (EnumStencilOperation)
 cCopGetStencilPassOp a1 =
@@ -334,7 +332,7 @@   cCopGetStencilPassOp'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetStencilTwoSidedOperation :: HG3DClass -> Bool -> IO ()
 cCopSetStencilTwoSidedOperation a1 a2 =
@@ -342,7 +340,7 @@   let {a2' = fromBool a2} in 
   cCopSetStencilTwoSidedOperation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetStencilTwoSidedOperation :: HG3DClass -> IO (Bool)
 cCopGetStencilTwoSidedOperation a1 =
@@ -351,7 +349,7 @@   cCopGetStencilTwoSidedOperation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetInput :: HG3DClass -> Int -> String -> Int -> IO ()
 cCopSetInput a1 a2 a3 a4 =
@@ -361,7 +359,7 @@   let {a4' = fromIntegral a4} in 
   cCopSetInput'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetNumInputs :: HG3DClass -> IO (Int)
 cCopGetNumInputs a1 =
@@ -370,14 +368,14 @@   cCopGetNumInputs'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopClearAllInputs :: HG3DClass -> IO ()
 cCopClearAllInputs a1 =
   withHG3DClass a1 $ \a1' -> 
   cCopClearAllInputs'_ a1' >>= \res ->
   return ()
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetParent :: HG3DClass -> IO (HG3DClass)
 cCopGetParent a1 =
@@ -386,7 +384,7 @@   cCopGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopIsSupported :: HG3DClass -> IO (Bool)
 cCopIsSupported a1 =
@@ -395,7 +393,7 @@   cCopIsSupported'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetQuadCorners :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cCopSetQuadCorners a1 a2 a3 a4 a5 =
@@ -406,7 +404,7 @@   let {a5' = realToFrac a5} in 
   cCopSetQuadCorners'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetQuadFarCorners :: HG3DClass -> Bool -> Bool -> IO ()
 cCopSetQuadFarCorners a1 a2 a3 =
@@ -415,7 +413,7 @@   let {a3' = fromBool a3} in 
   cCopSetQuadFarCorners'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetQuadFarCorners :: HG3DClass -> IO (Bool)
 cCopGetQuadFarCorners a1 =
@@ -424,7 +422,7 @@   cCopGetQuadFarCorners'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetQuadFarCornersViewSpace :: HG3DClass -> IO (Bool)
 cCopGetQuadFarCornersViewSpace a1 =
@@ -433,7 +431,7 @@   cCopGetQuadFarCornersViewSpace'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopSetCustomType :: HG3DClass -> String -> IO ()
 cCopSetCustomType a1 a2 =
@@ -441,7 +439,7 @@   withCString a2 $ \a2' -> 
   cCopSetCustomType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 cCopGetCustomType :: HG3DClass -> IO (String)
 cCopGetCustomType a1 =
@@ -450,7 +448,7 @@   cCopGetCustomType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs.h cCop_setType_c"
@@ -487,10 +485,10 @@   cCopGetClearBuffers'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs.h cCop_setClearColour_c"
-  cCopSetClearColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cCopSetClearColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs.h cCop_getClearColour_c"
-  cCopGetClearColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cCopGetClearColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionPass.chs.h cCop_setClearDepth_c"
   cCopSetClearDepth'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
HGamer3D/Bindings/Ogre/ClassCompositionTargetPass.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumInputMode
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 
 
 cCotpSetInputMode :: HG3DClass -> EnumInputMode -> IO ()
@@ -71,7 +69,7 @@   let {a2' = cIntFromEnum a2} in 
   cCotpSetInputMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetInputMode :: HG3DClass -> IO (EnumInputMode)
 cCotpGetInputMode a1 =
@@ -80,7 +78,7 @@   cCotpGetInputMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetOutputName :: HG3DClass -> String -> IO ()
 cCotpSetOutputName a1 a2 =
@@ -88,7 +86,7 @@   withCString a2 $ \a2' -> 
   cCotpSetOutputName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetOutputName :: HG3DClass -> IO (String)
 cCotpGetOutputName a1 =
@@ -97,7 +95,7 @@   cCotpGetOutputName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetOnlyInitial :: HG3DClass -> Bool -> IO ()
 cCotpSetOnlyInitial a1 a2 =
@@ -105,7 +103,7 @@   let {a2' = fromBool a2} in 
   cCotpSetOnlyInitial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetOnlyInitial :: HG3DClass -> IO (Bool)
 cCotpGetOnlyInitial a1 =
@@ -114,7 +112,7 @@   cCotpGetOnlyInitial'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetVisibilityMask :: HG3DClass -> Int -> IO ()
 cCotpSetVisibilityMask a1 a2 =
@@ -122,7 +120,7 @@   let {a2' = fromIntegral a2} in 
   cCotpSetVisibilityMask'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetVisibilityMask :: HG3DClass -> IO (Int)
 cCotpGetVisibilityMask a1 =
@@ -131,7 +129,7 @@   cCotpGetVisibilityMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetMaterialScheme :: HG3DClass -> String -> IO ()
 cCotpSetMaterialScheme a1 a2 =
@@ -139,7 +137,7 @@   withCString a2 $ \a2' -> 
   cCotpSetMaterialScheme'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetMaterialScheme :: HG3DClass -> IO (String)
 cCotpGetMaterialScheme a1 =
@@ -148,7 +146,7 @@   cCotpGetMaterialScheme'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetShadowsEnabled :: HG3DClass -> Bool -> IO ()
 cCotpSetShadowsEnabled a1 a2 =
@@ -156,7 +154,7 @@   let {a2' = fromBool a2} in 
   cCotpSetShadowsEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetShadowsEnabled :: HG3DClass -> IO (Bool)
 cCotpGetShadowsEnabled a1 =
@@ -165,7 +163,7 @@   cCotpGetShadowsEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpSetLodBias :: HG3DClass -> Float -> IO ()
 cCotpSetLodBias a1 a2 =
@@ -173,7 +171,7 @@   let {a2' = realToFrac a2} in 
   cCotpSetLodBias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetLodBias :: HG3DClass -> IO (Float)
 cCotpGetLodBias a1 =
@@ -182,7 +180,7 @@   cCotpGetLodBias'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpCreatePass :: HG3DClass -> IO (HG3DClass)
 cCotpCreatePass a1 =
@@ -191,7 +189,7 @@   cCotpCreatePass'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpRemovePass :: HG3DClass -> Int -> IO ()
 cCotpRemovePass a1 a2 =
@@ -199,7 +197,7 @@   let {a2' = fromIntegral a2} in 
   cCotpRemovePass'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetPass :: HG3DClass -> Int -> IO (HG3DClass)
 cCotpGetPass a1 a2 =
@@ -209,7 +207,7 @@   cCotpGetPass'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetNumPasses :: HG3DClass -> IO (Int)
 cCotpGetNumPasses a1 =
@@ -218,14 +216,14 @@   cCotpGetNumPasses'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpRemoveAllPasses :: HG3DClass -> IO ()
 cCotpRemoveAllPasses a1 =
   withHG3DClass a1 $ \a1' -> 
   cCotpRemoveAllPasses'_ a1' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpGetParent :: HG3DClass -> IO (HG3DClass)
 cCotpGetParent a1 =
@@ -234,7 +232,7 @@   cCotpGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 cCotpIsSupported :: HG3DClass -> IO (Bool)
 cCotpIsSupported a1 =
@@ -243,7 +241,7 @@   cCotpIsSupported'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionTargetPass.chs.h cCotp_setInputMode_c"
HGamer3D/Bindings/Ogre/ClassCompositionTechnique.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 
 
 cCotRemoveTextureDefinition :: HG3DClass -> Int -> IO ()
@@ -69,7 +67,7 @@   let {a2' = fromIntegral a2} in 
   cCotRemoveTextureDefinition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetNumTextureDefinitions :: HG3DClass -> IO (Int)
 cCotGetNumTextureDefinitions a1 =
@@ -78,14 +76,14 @@   cCotGetNumTextureDefinitions'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotRemoveAllTextureDefinitions :: HG3DClass -> IO ()
 cCotRemoveAllTextureDefinitions a1 =
   withHG3DClass a1 $ \a1' -> 
   cCotRemoveAllTextureDefinitions'_ a1' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotCreateTargetPass :: HG3DClass -> IO (HG3DClass)
 cCotCreateTargetPass a1 =
@@ -94,7 +92,7 @@   cCotCreateTargetPass'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotRemoveTargetPass :: HG3DClass -> Int -> IO ()
 cCotRemoveTargetPass a1 a2 =
@@ -102,7 +100,7 @@   let {a2' = fromIntegral a2} in 
   cCotRemoveTargetPass'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetTargetPass :: HG3DClass -> Int -> IO (HG3DClass)
 cCotGetTargetPass a1 a2 =
@@ -112,7 +110,7 @@   cCotGetTargetPass'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetNumTargetPasses :: HG3DClass -> IO (Int)
 cCotGetNumTargetPasses a1 =
@@ -121,14 +119,14 @@   cCotGetNumTargetPasses'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotRemoveAllTargetPasses :: HG3DClass -> IO ()
 cCotRemoveAllTargetPasses a1 =
   withHG3DClass a1 $ \a1' -> 
   cCotRemoveAllTargetPasses'_ a1' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetOutputTargetPass :: HG3DClass -> IO (HG3DClass)
 cCotGetOutputTargetPass a1 =
@@ -137,7 +135,7 @@   cCotGetOutputTargetPass'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotIsSupported :: HG3DClass -> Bool -> IO (Bool)
 cCotIsSupported a1 a2 =
@@ -147,7 +145,7 @@   cCotIsSupported'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotSetSchemeName :: HG3DClass -> String -> IO ()
 cCotSetSchemeName a1 a2 =
@@ -155,7 +153,7 @@   withCString a2 $ \a2' -> 
   cCotSetSchemeName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetSchemeName :: HG3DClass -> IO (String)
 cCotGetSchemeName a1 =
@@ -164,7 +162,7 @@   cCotGetSchemeName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotSetCompositorLogicName :: HG3DClass -> String -> IO ()
 cCotSetCompositorLogicName a1 a2 =
@@ -172,7 +170,7 @@   withCString a2 $ \a2' -> 
   cCotSetCompositorLogicName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetCompositorLogicName :: HG3DClass -> IO (String)
 cCotGetCompositorLogicName a1 =
@@ -181,7 +179,7 @@   cCotGetCompositorLogicName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 cCotGetParent :: HG3DClass -> IO (HG3DClass)
 cCotGetParent a1 =
@@ -190,7 +188,7 @@   cCotGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositionTechnique.chs.h cCot_removeTextureDefinition_c"
HGamer3D/Bindings/Ogre/ClassCompositor.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 
 
 cCoCreateTechnique :: HG3DClass -> IO (HG3DClass)
@@ -72,7 +70,7 @@   cCoCreateTechnique'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoRemoveTechnique :: HG3DClass -> Int -> IO ()
 cCoRemoveTechnique a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromIntegral a2} in 
   cCoRemoveTechnique'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetTechnique :: HG3DClass -> Int -> IO (HG3DClass)
 cCoGetTechnique a1 a2 =
@@ -90,7 +88,7 @@   cCoGetTechnique'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetNumTechniques :: HG3DClass -> IO (Int)
 cCoGetNumTechniques a1 =
@@ -99,14 +97,14 @@   cCoGetNumTechniques'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoRemoveAllTechniques :: HG3DClass -> IO ()
 cCoRemoveAllTechniques a1 =
   withHG3DClass a1 $ \a1' -> 
   cCoRemoveAllTechniques'_ a1' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetSupportedTechnique :: HG3DClass -> Int -> IO (HG3DClass)
 cCoGetSupportedTechnique a1 a2 =
@@ -116,7 +114,7 @@   cCoGetSupportedTechnique'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetNumSupportedTechniques :: HG3DClass -> IO (Int)
 cCoGetNumSupportedTechniques a1 =
@@ -125,7 +123,7 @@   cCoGetNumSupportedTechniques'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetSupportedTechnique2 :: HG3DClass -> String -> IO (HG3DClass)
 cCoGetSupportedTechnique2 a1 a2 =
@@ -135,7 +133,7 @@   cCoGetSupportedTechnique2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetTextureInstanceName :: HG3DClass -> String -> Int -> IO (String)
 cCoGetTextureInstanceName a1 a2 a3 =
@@ -146,7 +144,7 @@   cCoGetTextureInstanceName'_ a1' a2' a3' a4' >>= \res ->
   peekCString  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 cCoGetTextureInstance :: HG3DClass -> String -> Int -> IO (SharedPtr)
 cCoGetTextureInstance a1 a2 a3 =
@@ -157,7 +155,7 @@   cCoGetTextureInstance'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositor.chs.h cCo_createTechnique_c"
HGamer3D/Bindings/Ogre/ClassCompositorChain.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 
 
 cCocAddCompositor :: HG3DClass -> SharedPtr -> Int -> String -> IO (HG3DClass)
@@ -75,7 +73,7 @@   cCocAddCompositor'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocRemoveCompositor :: HG3DClass -> Int -> IO ()
 cCocRemoveCompositor a1 a2 =
@@ -83,7 +81,7 @@   let {a2' = fromIntegral a2} in 
   cCocRemoveCompositor'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetNumCompositors :: HG3DClass -> IO (Int)
 cCocGetNumCompositors a1 =
@@ -92,14 +90,14 @@   cCocGetNumCompositors'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocRemoveAllCompositors :: HG3DClass -> IO ()
 cCocRemoveAllCompositors a1 =
   withHG3DClass a1 $ \a1' -> 
   cCocRemoveAllCompositors'_ a1' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetCompositor :: HG3DClass -> Int -> IO (HG3DClass)
 cCocGetCompositor a1 a2 =
@@ -109,7 +107,7 @@   cCocGetCompositor'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetCompositor2 :: HG3DClass -> String -> IO (HG3DClass)
 cCocGetCompositor2 a1 a2 =
@@ -119,7 +117,7 @@   cCocGetCompositor2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetOriginalSceneCompositor :: HG3DClass -> IO (HG3DClass)
 cCocGetOriginalSceneCompositor a1 =
@@ -128,7 +126,7 @@   cCocGetOriginalSceneCompositor'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocSetCompositorEnabled :: HG3DClass -> Int -> Bool -> IO ()
 cCocSetCompositorEnabled a1 a2 a3 =
@@ -137,14 +135,14 @@   let {a3' = fromBool a3} in 
   cCocSetCompositorEnabled'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocMarkDirty :: HG3DClass -> IO ()
 cCocMarkDirty a1 =
   withHG3DClass a1 $ \a1' -> 
   cCocMarkDirty'_ a1' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetViewport :: HG3DClass -> IO (HG3DClass)
 cCocGetViewport a1 =
@@ -153,7 +151,7 @@   cCocGetViewport'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocNotifyViewport :: HG3DClass -> HG3DClass -> IO ()
 cCocNotifyViewport a1 a2 =
@@ -161,7 +159,7 @@   withHG3DClass a2 $ \a2' -> 
   cCocNotifyViewport'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocRemoveInstance :: HG3DClass -> HG3DClass -> IO ()
 cCocRemoveInstance a1 a2 =
@@ -169,14 +167,14 @@   withHG3DClass a2 $ \a2' -> 
   cCocRemoveInstance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocCompile :: HG3DClass -> IO ()
 cCocCompile a1 =
   withHG3DClass a1 $ \a1' -> 
   cCocCompile'_ a1' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 cCocGetPreviousInstance :: HG3DClass -> HG3DClass -> Bool -> IO (HG3DClass)
 cCocGetPreviousInstance a1 a2 a3 =
@@ -187,7 +185,7 @@   cCocGetPreviousInstance'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositorChain.chs.h cCoc_addCompositor_c"
HGamer3D/Bindings/Ogre/ClassCompositorInstance.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 
 
 cCoiSetEnabled :: HG3DClass -> Bool -> IO ()
@@ -71,7 +69,7 @@   let {a2' = fromBool a2} in 
   cCoiSetEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetEnabled :: HG3DClass -> IO (Bool)
 cCoiGetEnabled a1 =
@@ -80,7 +78,7 @@   cCoiGetEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetTextureInstanceName :: HG3DClass -> String -> Int -> IO (String)
 cCoiGetTextureInstanceName a1 a2 a3 =
@@ -91,7 +89,7 @@   cCoiGetTextureInstanceName'_ a1' a2' a3' a4' >>= \res ->
   peekCString  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetTextureInstance :: HG3DClass -> String -> Int -> IO (SharedPtr)
 cCoiGetTextureInstance a1 a2 a3 =
@@ -102,7 +100,7 @@   cCoiGetTextureInstance'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
 cCoiGetRenderTarget a1 a2 =
@@ -112,7 +110,7 @@   cCoiGetRenderTarget'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetCompositor :: HG3DClass -> IO (HG3DClass)
 cCoiGetCompositor a1 =
@@ -121,7 +119,7 @@   cCoiGetCompositor'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetTechnique :: HG3DClass -> IO (HG3DClass)
 cCoiGetTechnique a1 =
@@ -130,7 +128,7 @@   cCoiGetTechnique'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiSetTechnique :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cCoiSetTechnique a1 a2 a3 =
@@ -139,7 +137,7 @@   let {a3' = fromBool a3} in 
   cCoiSetTechnique'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiSetScheme :: HG3DClass -> String -> Bool -> IO ()
 cCoiSetScheme a1 a2 a3 =
@@ -148,7 +146,7 @@   let {a3' = fromBool a3} in 
   cCoiSetScheme'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetScheme :: HG3DClass -> IO (String)
 cCoiGetScheme a1 =
@@ -157,14 +155,14 @@   cCoiGetScheme'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiNotifyResized :: HG3DClass -> IO ()
 cCoiNotifyResized a1 =
   withHG3DClass a1 $ \a1' -> 
   cCoiNotifyResized'_ a1' >>= \res ->
   return ()
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiGetChain :: HG3DClass -> IO (HG3DClass)
 cCoiGetChain a1 =
@@ -173,7 +171,7 @@   cCoiGetChain'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiFireNotifyMaterialSetup :: HG3DClass -> Int -> IO (SharedPtr)
 cCoiFireNotifyMaterialSetup a1 a2 =
@@ -183,7 +181,7 @@   cCoiFireNotifyMaterialSetup'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiFireNotifyMaterialRender :: HG3DClass -> Int -> IO (SharedPtr)
 cCoiFireNotifyMaterialRender a1 a2 =
@@ -193,7 +191,7 @@   cCoiFireNotifyMaterialRender'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 cCoiFireNotifyResourcesCreated :: HG3DClass -> Bool -> IO ()
 cCoiFireNotifyResourcesCreated a1 a2 =
@@ -201,7 +199,7 @@   let {a2' = fromBool a2} in 
   cCoiFireNotifyResourcesCreated'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositorInstance.chs.h cCoi_setEnabled_c"
HGamer3D/Bindings/Ogre/ClassCompositorManager.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 
 
 cComInitialise :: HG3DClass -> IO ()
@@ -70,7 +68,7 @@   withHG3DClass a1 $ \a1' -> 
   cComInitialise'_ a1' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComParseScript :: HG3DClass -> String -> IO (SharedPtr)
 cComParseScript a1 a3 =
@@ -80,7 +78,7 @@   cComParseScript'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComGetCompositorChain :: HG3DClass -> HG3DClass -> IO (HG3DClass)
 cComGetCompositorChain a1 a2 =
@@ -90,7 +88,7 @@   cComGetCompositorChain'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComHasCompositorChain :: HG3DClass -> HG3DClass -> IO (Bool)
 cComHasCompositorChain a1 a2 =
@@ -100,7 +98,7 @@   cComHasCompositorChain'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComRemoveCompositorChain :: HG3DClass -> HG3DClass -> IO ()
 cComRemoveCompositorChain a1 a2 =
@@ -108,7 +106,7 @@   withHG3DClass a2 $ \a2' -> 
   cComRemoveCompositorChain'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComAddCompositor :: HG3DClass -> HG3DClass -> String -> Int -> IO (HG3DClass)
 cComAddCompositor a1 a2 a3 a4 =
@@ -120,7 +118,7 @@   cComAddCompositor'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComRemoveCompositor :: HG3DClass -> HG3DClass -> String -> IO ()
 cComRemoveCompositor a1 a2 a3 =
@@ -129,7 +127,7 @@   withCString a3 $ \a3' -> 
   cComRemoveCompositor'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComSetCompositorEnabled :: HG3DClass -> HG3DClass -> String -> Bool -> IO ()
 cComSetCompositorEnabled a1 a2 a3 a4 =
@@ -139,21 +137,21 @@   let {a4' = fromBool a4} in 
   cComSetCompositorEnabled'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComRemoveAll :: HG3DClass -> IO ()
 cComRemoveAll a1 =
   withHG3DClass a1 $ \a1' -> 
   cComRemoveAll'_ a1' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComReconstructAllCompositorResources :: HG3DClass -> IO ()
 cComReconstructAllCompositorResources a1 =
   withHG3DClass a1 $ \a1' -> 
   cComReconstructAllCompositorResources'_ a1' >>= \res ->
   return ()
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComFreePooledTextures :: HG3DClass -> Bool -> IO ()
 cComFreePooledTextures a1 a2 =
@@ -161,7 +159,7 @@   let {a2' = fromBool a2} in 
   cComFreePooledTextures'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 cComRelocateChain :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
 cComRelocateChain a1 a2 a3 =
@@ -170,7 +168,7 @@   withHG3DClass a3 $ \a3' -> 
   cComRelocateChain'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCompositorManager.chs.h cCom_initialise_c"
HGamer3D/Bindings/Ogre/ClassConfigFile.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 
 
 cCfLoad :: HG3DClass -> String -> String -> Bool -> IO ()
@@ -73,7 +71,7 @@   let {a4' = fromBool a4} in 
   cCfLoad'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 cCfLoad2 :: HG3DClass -> String -> String -> String -> Bool -> IO ()
 cCfLoad2 a1 a2 a3 a4 a5 =
@@ -84,7 +82,7 @@   let {a5' = fromBool a5} in 
   cCfLoad2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 cCfLoad3 :: HG3DClass -> SharedPtr -> String -> Bool -> IO ()
 cCfLoad3 a1 a2 a3 a4 =
@@ -94,7 +92,7 @@   let {a4' = fromBool a4} in 
   cCfLoad3'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 cCfLoadDirect :: HG3DClass -> String -> String -> Bool -> IO ()
 cCfLoadDirect a1 a2 a3 a4 =
@@ -104,7 +102,7 @@   let {a4' = fromBool a4} in 
   cCfLoadDirect'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 cCfLoadFromResourceSystem :: HG3DClass -> String -> String -> String -> Bool -> IO ()
 cCfLoadFromResourceSystem a1 a2 a3 a4 a5 =
@@ -115,7 +113,7 @@   let {a5' = fromBool a5} in 
   cCfLoadFromResourceSystem'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 cCfGetSetting :: HG3DClass -> String -> String -> String -> IO (String)
 cCfGetSetting a1 a2 a3 a4 =
@@ -127,7 +125,7 @@   cCfGetSetting'_ a1' a2' a3' a4' a5' >>= \res ->
   peekCString  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h cCf_load_c"
HGamer3D/Bindings/Ogre/ClassControllerManager.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 
 
 cCmClearControllers :: HG3DClass -> IO ()
@@ -68,14 +66,14 @@   withHG3DClass a1 $ \a1' -> 
   cCmClearControllers'_ a1' >>= \res ->
   return ()
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmUpdateAllControllers :: HG3DClass -> IO ()
 cCmUpdateAllControllers a1 =
   withHG3DClass a1 $ \a1' -> 
   cCmUpdateAllControllers'_ a1' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmGetTimeFactor :: HG3DClass -> IO (Float)
 cCmGetTimeFactor a1 =
@@ -84,7 +82,7 @@   cCmGetTimeFactor'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmSetTimeFactor :: HG3DClass -> Float -> IO ()
 cCmSetTimeFactor a1 a2 =
@@ -92,7 +90,7 @@   let {a2' = realToFrac a2} in 
   cCmSetTimeFactor'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmGetFrameDelay :: HG3DClass -> IO (Float)
 cCmGetFrameDelay a1 =
@@ -101,7 +99,7 @@   cCmGetFrameDelay'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmSetFrameDelay :: HG3DClass -> Float -> IO ()
 cCmSetFrameDelay a1 a2 =
@@ -109,7 +107,7 @@   let {a2' = realToFrac a2} in 
   cCmSetFrameDelay'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmGetElapsedTime :: HG3DClass -> IO (Float)
 cCmGetElapsedTime a1 =
@@ -118,7 +116,7 @@   cCmGetElapsedTime'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 cCmSetElapsedTime :: HG3DClass -> Float -> IO ()
 cCmSetElapsedTime a1 a2 =
@@ -126,7 +124,7 @@   let {a2' = realToFrac a2} in 
   cCmSetElapsedTime'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 -- created constructor function from default constructor
 cCmNew :: IO (HG3DClass)
@@ -135,7 +133,7 @@   cCmNew'_ a1' >>= \res ->
   peek  a1'>>= \a1'' -> 
   return (a1'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 -- created constructor function from default constructor
 cCmGetSingletonPtr :: IO (HG3DClass)
@@ -144,7 +142,7 @@   cCmGetSingletonPtr'_ a1' >>= \res ->
   peek  a1'>>= \a1'' -> 
   return (a1'')
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h cCm_clearControllers_c"
HGamer3D/Bindings/Ogre/ClassDataStream.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 
 
 cDsGetName :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cDsGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsGetAccessMode :: HG3DClass -> IO (Int)
 cDsGetAccessMode a1 =
@@ -79,7 +77,7 @@   cDsGetAccessMode'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsIsReadable :: HG3DClass -> IO (Bool)
 cDsIsReadable a1 =
@@ -88,7 +86,7 @@   cDsIsReadable'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsIsWriteable :: HG3DClass -> IO (Bool)
 cDsIsWriteable a1 =
@@ -97,7 +95,7 @@   cDsIsWriteable'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsReadLine :: HG3DClass -> String -> Int -> String -> IO (Int)
 cDsReadLine a1 a2 a3 a4 =
@@ -109,7 +107,7 @@   cDsReadLine'_ a1' a2' a3' a4' a5' >>= \res ->
   peekIntConv  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsGetLine :: HG3DClass -> Bool -> IO (String)
 cDsGetLine a1 a2 =
@@ -119,7 +117,7 @@   cDsGetLine'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsGetAsString :: HG3DClass -> IO (String)
 cDsGetAsString a1 =
@@ -128,7 +126,7 @@   cDsGetAsString'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsSkipLine :: HG3DClass -> String -> IO (Int)
 cDsSkipLine a1 a2 =
@@ -138,7 +136,7 @@   cDsSkipLine'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsSkip :: HG3DClass -> Int -> IO ()
 cDsSkip a1 a2 =
@@ -146,7 +144,7 @@   let {a2' = fromIntegral a2} in 
   cDsSkip'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsSeek :: HG3DClass -> Int -> IO ()
 cDsSeek a1 a2 =
@@ -154,7 +152,7 @@   let {a2' = fromIntegral a2} in 
   cDsSeek'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsTell :: HG3DClass -> IO (Int)
 cDsTell a1 =
@@ -163,7 +161,7 @@   cDsTell'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsEof :: HG3DClass -> IO (Bool)
 cDsEof a1 =
@@ -172,7 +170,7 @@   cDsEof'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsSize :: HG3DClass -> IO (Int)
 cDsSize a1 =
@@ -181,14 +179,14 @@   cDsSize'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 cDsClose :: HG3DClass -> IO ()
 cDsClose a1 =
   withHG3DClass a1 $ \a1' -> 
   cDsClose'_ a1' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassDataStream.chs.h cDs_getName_c"
HGamer3D/Bindings/Ogre/ClassDefaultAxisAlignedBoxSceneQuery.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultAxisAlignedBoxSceneQuery.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultPlaneBoundedVolumeListSceneQuery.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultPlaneBoundedVolumeListSceneQuery.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultRaySceneQuery.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultRaySceneQuery.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultSceneManager.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManager.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultSceneManagerFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSceneManagerFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultShadowCameraSetup.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultShadowCameraSetup.chs" #-}
HGamer3D/Bindings/Ogre/ClassDefaultSphereSceneQuery.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassDefaultSphereSceneQuery.chs" #-}
HGamer3D/Bindings/Ogre/ClassElement.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassElement.chs" #-}
HGamer3D/Bindings/Ogre/ClassEntity.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexDataBindChoice
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 
 
 cEGetMesh :: HG3DClass -> IO (SharedPtr)
@@ -74,7 +72,7 @@   cEGetMesh'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSubEntity :: HG3DClass -> Int -> IO (HG3DClass)
 cEGetSubEntity a1 a2 =
@@ -84,7 +82,7 @@   cEGetSubEntity'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSubEntity2 :: HG3DClass -> String -> IO (HG3DClass)
 cEGetSubEntity2 a1 a2 =
@@ -94,7 +92,7 @@   cEGetSubEntity2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetNumSubEntities :: HG3DClass -> IO (Int)
 cEGetNumSubEntities a1 =
@@ -103,7 +101,7 @@   cEGetNumSubEntities'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEClone :: HG3DClass -> String -> IO (HG3DClass)
 cEClone a1 a2 =
@@ -113,7 +111,7 @@   cEClone'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cESetMaterialName :: HG3DClass -> String -> String -> IO ()
 cESetMaterialName a1 a2 a3 =
@@ -122,7 +120,7 @@   withCString a3 $ \a3' -> 
   cESetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cESetMaterial :: HG3DClass -> SharedPtr -> IO ()
 cESetMaterial a1 a2 =
@@ -130,7 +128,7 @@   withSharedPtr a2 $ \a2' -> 
   cESetMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cENotifyCurrentCamera :: HG3DClass -> HG3DClass -> IO ()
 cENotifyCurrentCamera a1 a2 =
@@ -138,7 +136,7 @@   withHG3DClass a2 $ \a2' -> 
   cENotifyCurrentCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetMovableType :: HG3DClass -> IO (String)
 cEGetMovableType a1 =
@@ -147,7 +145,7 @@   cEGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetAnimationState :: HG3DClass -> String -> IO (HG3DClass)
 cEGetAnimationState a1 a2 =
@@ -157,7 +155,7 @@   cEGetAnimationState'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cESetDisplaySkeleton :: HG3DClass -> Bool -> IO ()
 cESetDisplaySkeleton a1 a2 =
@@ -165,7 +163,7 @@   let {a2' = fromBool a2} in 
   cESetDisplaySkeleton'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetDisplaySkeleton :: HG3DClass -> IO (Bool)
 cEGetDisplaySkeleton a1 =
@@ -174,7 +172,7 @@   cEGetDisplaySkeleton'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetManualLodLevel :: HG3DClass -> Int -> IO (HG3DClass)
 cEGetManualLodLevel a1 a2 =
@@ -184,7 +182,7 @@   cEGetManualLodLevel'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetNumManualLodLevels :: HG3DClass -> IO (Int)
 cEGetNumManualLodLevels a1 =
@@ -193,7 +191,7 @@   cEGetNumManualLodLevels'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cESetPolygonModeOverrideable :: HG3DClass -> Bool -> IO ()
 cESetPolygonModeOverrideable a1 a2 =
@@ -201,7 +199,7 @@   let {a2' = fromBool a2} in 
   cESetPolygonModeOverrideable'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEDetachObjectFromBone :: HG3DClass -> String -> IO (HG3DClass)
 cEDetachObjectFromBone a1 a2 =
@@ -211,7 +209,7 @@   cEDetachObjectFromBone'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEDetachObjectFromBone2 :: HG3DClass -> HG3DClass -> IO ()
 cEDetachObjectFromBone2 a1 a2 =
@@ -219,14 +217,14 @@   withHG3DClass a2 $ \a2' -> 
   cEDetachObjectFromBone2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEDetachAllObjectsFromBone :: HG3DClass -> IO ()
 cEDetachAllObjectsFromBone a1 =
   withHG3DClass a1 $ \a1' -> 
   cEDetachAllObjectsFromBone'_ a1' >>= \res ->
   return ()
-{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetBoundingRadius :: HG3DClass -> IO (Float)
 cEGetBoundingRadius a1 =
@@ -235,7 +233,7 @@   cEGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEHasEdgeList :: HG3DClass -> IO (Bool)
 cEHasEdgeList a1 =
@@ -244,7 +242,7 @@   cEHasEdgeList'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetNumBoneMatrices :: HG3DClass -> IO (Int)
 cEGetNumBoneMatrices a1 =
@@ -253,7 +251,7 @@   cEGetNumBoneMatrices'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEHasSkeleton :: HG3DClass -> IO (Bool)
 cEHasSkeleton a1 =
@@ -262,7 +260,7 @@   cEHasSkeleton'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSkeleton :: HG3DClass -> IO (HG3DClass)
 cEGetSkeleton a1 =
@@ -271,7 +269,7 @@   cEGetSkeleton'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEIsHardwareAnimationEnabled :: HG3DClass -> IO (Bool)
 cEIsHardwareAnimationEnabled a1 =
@@ -280,7 +278,7 @@   cEIsHardwareAnimationEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cENotifyAttached :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cENotifyAttached a1 a2 a3 =
@@ -289,7 +287,7 @@   let {a3' = fromBool a3} in 
   cENotifyAttached'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSoftwareAnimationRequests :: HG3DClass -> IO (Int)
 cEGetSoftwareAnimationRequests a1 =
@@ -298,7 +296,7 @@   cEGetSoftwareAnimationRequests'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSoftwareAnimationNormalsRequests :: HG3DClass -> IO (Int)
 cEGetSoftwareAnimationNormalsRequests a1 =
@@ -307,7 +305,7 @@   cEGetSoftwareAnimationNormalsRequests'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEAddSoftwareAnimationRequest :: HG3DClass -> Bool -> IO ()
 cEAddSoftwareAnimationRequest a1 a2 =
@@ -315,7 +313,7 @@   let {a2' = fromBool a2} in 
   cEAddSoftwareAnimationRequest'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cERemoveSoftwareAnimationRequest :: HG3DClass -> Bool -> IO ()
 cERemoveSoftwareAnimationRequest a1 a2 =
@@ -323,7 +321,7 @@   let {a2' = fromBool a2} in 
   cERemoveSoftwareAnimationRequest'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEShareSkeletonInstanceWith :: HG3DClass -> HG3DClass -> IO ()
 cEShareSkeletonInstanceWith a1 a2 =
@@ -331,7 +329,7 @@   withHG3DClass a2 $ \a2' -> 
   cEShareSkeletonInstanceWith'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEHasVertexAnimation :: HG3DClass -> IO (Bool)
 cEHasVertexAnimation a1 =
@@ -340,28 +338,28 @@   cEHasVertexAnimation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEStopSharingSkeletonInstance :: HG3DClass -> IO ()
 cEStopSharingSkeletonInstance a1 =
   withHG3DClass a1 $ \a1' -> 
   cEStopSharingSkeletonInstance'_ a1' >>= \res ->
   return ()
-{-# LINE 194 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cERefreshAvailableAnimationState :: HG3DClass -> IO ()
 cERefreshAvailableAnimationState a1 =
   withHG3DClass a1 $ \a1' -> 
   cERefreshAvailableAnimationState'_ a1' >>= \res ->
   return ()
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEUpdateAnimation :: HG3DClass -> IO ()
 cEUpdateAnimation a1 =
   withHG3DClass a1 $ \a1' -> 
   cEUpdateAnimation'_ a1' >>= \res ->
   return ()
-{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEIsAnimated :: HG3DClass -> IO (Bool)
 cEIsAnimated a1 =
@@ -370,7 +368,7 @@   cEIsAnimated'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEIsSkeletonAnimated :: HG3DClass -> IO (Bool)
 cEIsSkeletonAnimated a1 =
@@ -379,7 +377,7 @@   cEIsSkeletonAnimated'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSkelAnimTempBufferInfo :: HG3DClass -> IO (HG3DClass)
 cEGetSkelAnimTempBufferInfo a1 =
@@ -388,7 +386,7 @@   cEGetSkelAnimTempBufferInfo'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetVertexAnimTempBufferInfo :: HG3DClass -> IO (HG3DClass)
 cEGetVertexAnimTempBufferInfo a1 =
@@ -397,7 +395,7 @@   cEGetVertexAnimTempBufferInfo'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetTypeFlags :: HG3DClass -> IO (Int)
 cEGetTypeFlags a1 =
@@ -406,7 +404,7 @@   cEGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEChooseVertexDataForBinding :: HG3DClass -> Bool -> IO (EnumVertexDataBindChoice)
 cEChooseVertexDataForBinding a1 a2 =
@@ -416,7 +414,7 @@   cEChooseVertexDataForBinding'_ a1' a2' a3' >>= \res ->
   peekEnumUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 225 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetBuffersMarkedForAnimation :: HG3DClass -> IO (Bool)
 cEGetBuffersMarkedForAnimation a1 =
@@ -425,14 +423,14 @@   cEGetBuffersMarkedForAnimation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 229 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 227 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEMarkBuffersUsedForAnimation :: HG3DClass -> IO ()
 cEMarkBuffersUsedForAnimation a1 =
   withHG3DClass a1 $ \a1' -> 
   cEMarkBuffersUsedForAnimation'_ a1' >>= \res ->
   return ()
-{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEIsInitialised :: HG3DClass -> IO (Bool)
 cEIsInitialised a1 =
@@ -441,7 +439,7 @@   cEIsInitialised'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEInitialise :: HG3DClass -> Bool -> IO ()
 cEInitialise a1 a2 =
@@ -449,14 +447,14 @@   let {a2' = fromBool a2} in 
   cEInitialise'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEDeinitialise :: HG3DClass -> IO ()
 cEDeinitialise a1 =
   withHG3DClass a1 $ \a1' -> 
   cEDeinitialise'_ a1' >>= \res ->
   return ()
-{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetMeshLodFactorTransformed :: HG3DClass -> IO (Float)
 cEGetMeshLodFactorTransformed a1 =
@@ -465,7 +463,7 @@   cEGetMeshLodFactorTransformed'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cESetSkipAnimationStateUpdate :: HG3DClass -> Bool -> IO ()
 cESetSkipAnimationStateUpdate a1 a2 =
@@ -473,7 +471,7 @@   let {a2' = fromBool a2} in 
   cESetSkipAnimationStateUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 cEGetSkipAnimationStateUpdate :: HG3DClass -> IO (Bool)
 cEGetSkipAnimationStateUpdate a1 =
@@ -482,7 +480,7 @@   cEGetSkipAnimationStateUpdate'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
+{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h cE_getMesh_c"
HGamer3D/Bindings/Ogre/ClassEntityFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassException.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 
 
 cExGetFullDescription :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cExGetFullDescription'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExGetNumber :: HG3DClass -> IO (Int)
 cExGetNumber a1 =
@@ -79,7 +77,7 @@   cExGetNumber'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExGetSource :: HG3DClass -> IO (String)
 cExGetSource a1 =
@@ -88,7 +86,7 @@   cExGetSource'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExGetFile :: HG3DClass -> IO (String)
 cExGetFile a1 =
@@ -97,7 +95,7 @@   cExGetFile'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExGetLine :: HG3DClass -> IO (Int)
 cExGetLine a1 =
@@ -106,7 +104,7 @@   cExGetLine'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExGetDescription :: HG3DClass -> IO (String)
 cExGetDescription a1 =
@@ -115,7 +113,7 @@   cExGetDescription'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 cExWhat :: HG3DClass -> IO (String)
 cExWhat a1 =
@@ -124,7 +122,7 @@   cExWhat'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h cEx_getFullDescription_c"
HGamer3D/Bindings/Ogre/ClassFileHandleDataStream.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 
 
 cFhdsSkip :: HG3DClass -> Int -> IO ()
@@ -69,7 +67,7 @@   let {a2' = fromIntegral a2} in 
   cFhdsSkip'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 ;
 cFhdsSeek :: HG3DClass -> Int -> IO ()
 cFhdsSeek a1 a2 =
@@ -77,7 +75,7 @@   let {a2' = fromIntegral a2} in 
   cFhdsSeek'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 ;
 cFhdsTell :: HG3DClass -> IO (Int)
 cFhdsTell a1 =
@@ -86,7 +84,7 @@   cFhdsTell'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 ;
 cFhdsEof :: HG3DClass -> IO (Bool)
 cFhdsEof a1 =
@@ -95,14 +93,14 @@   cFhdsEof'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 ;
 cFhdsClose :: HG3DClass -> IO ()
 cFhdsClose a1 =
   withHG3DClass a1 $ \a1' -> 
   cFhdsClose'_ a1' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFileHandleDataStream.chs.h cFhds_skip_c"
HGamer3D/Bindings/Ogre/ClassFileNotFoundException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileNotFoundException.chs" #-}
HGamer3D/Bindings/Ogre/ClassFileStreamDataStream.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 
 
 cFsdsReadLine :: HG3DClass -> String -> Int -> String -> IO (Int)
@@ -73,7 +71,7 @@   cFsdsReadLine'_ a1' a2' a3' a4' a5' >>= \res ->
   peekIntConv  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 cFsdsSkip :: HG3DClass -> Int -> IO ()
 cFsdsSkip a1 a2 =
@@ -81,7 +79,7 @@   let {a2' = fromIntegral a2} in 
   cFsdsSkip'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 cFsdsSeek :: HG3DClass -> Int -> IO ()
 cFsdsSeek a1 a2 =
@@ -89,7 +87,7 @@   let {a2' = fromIntegral a2} in 
   cFsdsSeek'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 cFsdsTell :: HG3DClass -> IO (Int)
 cFsdsTell a1 =
@@ -98,7 +96,7 @@   cFsdsTell'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 cFsdsEof :: HG3DClass -> IO (Bool)
 cFsdsEof a1 =
@@ -107,14 +105,14 @@   cFsdsEof'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 cFsdsClose :: HG3DClass -> IO ()
 cFsdsClose a1 =
   withHG3DClass a1 $ \a1' -> 
   cFsdsClose'_ a1' >>= \res ->
   return ()
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFileStreamDataStream.chs.h cFsds_readLine_c"
HGamer3D/Bindings/Ogre/ClassFrustum.hs view
@@ -51,50 +51,48 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector2
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFrustumPlane
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumProjectionType
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumOrientationMode
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 
 
-cFSetFOVy :: HG3DClass -> Radian -> IO ()
+cFSetFOVy :: HG3DClass -> Radians -> IO ()
 cFSetFOVy a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cFSetFOVy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
-cFGetFOVy :: HG3DClass -> IO (Radian)
+cFGetFOVy :: HG3DClass -> IO (Radians)
 cFGetFOVy a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cFGetFOVy'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetNearClipDistance :: HG3DClass -> Float -> IO ()
 cFSetNearClipDistance a1 a2 =
@@ -102,7 +100,7 @@   let {a2' = realToFrac a2} in 
   cFSetNearClipDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetNearClipDistance :: HG3DClass -> IO (Float)
 cFGetNearClipDistance a1 =
@@ -111,7 +109,7 @@   cFGetNearClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetFarClipDistance :: HG3DClass -> Float -> IO ()
 cFSetFarClipDistance a1 a2 =
@@ -119,7 +117,7 @@   let {a2' = realToFrac a2} in 
   cFSetFarClipDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetFarClipDistance :: HG3DClass -> IO (Float)
 cFGetFarClipDistance a1 =
@@ -128,7 +126,7 @@   cFGetFarClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetAspectRatio :: HG3DClass -> Float -> IO ()
 cFSetAspectRatio a1 a2 =
@@ -136,7 +134,7 @@   let {a2' = realToFrac a2} in 
   cFSetAspectRatio'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetAspectRatio :: HG3DClass -> IO (Float)
 cFGetAspectRatio a1 =
@@ -145,7 +143,7 @@   cFGetAspectRatio'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetFrustumOffset :: HG3DClass -> Vector2 -> IO ()
 cFSetFrustumOffset a1 a2 =
@@ -153,7 +151,7 @@   withVector2 a2 $ \a2' -> 
   cFSetFrustumOffset'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetFrustumOffset2 :: HG3DClass -> Float -> Float -> IO ()
 cFSetFrustumOffset2 a1 a2 a3 =
@@ -162,7 +160,7 @@   let {a3' = realToFrac a3} in 
   cFSetFrustumOffset2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetFrustumOffset :: HG3DClass -> IO (Vector2)
 cFGetFrustumOffset a1 =
@@ -171,7 +169,7 @@   cFGetFrustumOffset'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetFocalLength :: HG3DClass -> Float -> IO ()
 cFSetFocalLength a1 a2 =
@@ -179,7 +177,7 @@   let {a2' = realToFrac a2} in 
   cFSetFocalLength'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetFocalLength :: HG3DClass -> IO (Float)
 cFGetFocalLength a1 =
@@ -188,7 +186,7 @@   cFGetFocalLength'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetFrustumExtents :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cFSetFrustumExtents a1 a2 a3 a4 a5 =
@@ -199,14 +197,14 @@   let {a5' = realToFrac a5} in 
   cFSetFrustumExtents'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFResetFrustumExtents :: HG3DClass -> IO ()
 cFResetFrustumExtents a1 =
   withHG3DClass a1 $ \a1' -> 
   cFResetFrustumExtents'_ a1' >>= \res ->
   return ()
-{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFIsCustomViewMatrixEnabled :: HG3DClass -> IO (Bool)
 cFIsCustomViewMatrixEnabled a1 =
@@ -215,7 +213,7 @@   cFIsCustomViewMatrixEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFIsCustomProjectionMatrixEnabled :: HG3DClass -> IO (Bool)
 cFIsCustomProjectionMatrixEnabled a1 =
@@ -224,7 +222,7 @@   cFIsCustomProjectionMatrixEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFIsVisible3 :: HG3DClass -> Vector3 -> IO (EnumFrustumPlane, Bool)
 cFIsVisible3 a1 a2 =
@@ -236,7 +234,7 @@   peekEnumUtil  a3'>>= \a3'' -> 
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a3'', a4'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetTypeFlags :: HG3DClass -> IO (Int)
 cFGetTypeFlags a1 =
@@ -245,7 +243,7 @@   cFGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetBoundingRadius :: HG3DClass -> IO (Float)
 cFGetBoundingRadius a1 =
@@ -254,7 +252,7 @@   cFGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetMovableType :: HG3DClass -> IO (String)
 cFGetMovableType a1 =
@@ -263,7 +261,7 @@   cFGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFNotifyCurrentCamera :: HG3DClass -> HG3DClass -> IO ()
 cFNotifyCurrentCamera a1 a2 =
@@ -271,7 +269,7 @@   withHG3DClass a2 $ \a2' -> 
   cFNotifyCurrentCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetMaterial :: HG3DClass -> IO (SharedPtr)
 cFGetMaterial a1 =
@@ -280,7 +278,7 @@   cFGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetProjectionType :: HG3DClass -> EnumProjectionType -> IO ()
 cFSetProjectionType a1 a2 =
@@ -288,7 +286,7 @@   let {a2' = cIntFromEnum a2} in 
   cFSetProjectionType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetProjectionType :: HG3DClass -> IO (EnumProjectionType)
 cFGetProjectionType a1 =
@@ -297,7 +295,7 @@   cFGetProjectionType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetOrthoWindow :: HG3DClass -> Float -> Float -> IO ()
 cFSetOrthoWindow a1 a2 a3 =
@@ -306,7 +304,7 @@   let {a3' = realToFrac a3} in 
   cFSetOrthoWindow'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetOrthoWindowHeight :: HG3DClass -> Float -> IO ()
 cFSetOrthoWindowHeight a1 a2 =
@@ -314,7 +312,7 @@   let {a2' = realToFrac a2} in 
   cFSetOrthoWindowHeight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetOrthoWindowWidth :: HG3DClass -> Float -> IO ()
 cFSetOrthoWindowWidth a1 a2 =
@@ -322,7 +320,7 @@   let {a2' = realToFrac a2} in 
   cFSetOrthoWindowWidth'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetOrthoWindowHeight :: HG3DClass -> IO (Float)
 cFGetOrthoWindowHeight a1 =
@@ -331,7 +329,7 @@   cFGetOrthoWindowHeight'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetOrthoWindowWidth :: HG3DClass -> IO (Float)
 cFGetOrthoWindowWidth a1 =
@@ -340,14 +338,14 @@   cFGetOrthoWindowWidth'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFDisableReflection :: HG3DClass -> IO ()
 cFDisableReflection a1 =
   withHG3DClass a1 $ \a1' -> 
   cFDisableReflection'_ a1' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFIsReflected :: HG3DClass -> IO (Bool)
 cFIsReflected a1 =
@@ -356,14 +354,14 @@   cFIsReflected'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFDisableCustomNearClipPlane :: HG3DClass -> IO ()
 cFDisableCustomNearClipPlane a1 =
   withHG3DClass a1 $ \a1' -> 
   cFDisableCustomNearClipPlane'_ a1' >>= \res ->
   return ()
-{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFIsCustomNearClipPlaneEnabled :: HG3DClass -> IO (Bool)
 cFIsCustomNearClipPlaneEnabled a1 =
@@ -372,7 +370,7 @@   cFIsCustomNearClipPlaneEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetPositionForViewUpdate :: HG3DClass -> IO (Vector3)
 cFGetPositionForViewUpdate a1 =
@@ -381,7 +379,7 @@   cFGetPositionForViewUpdate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetOrientationForViewUpdate :: HG3DClass -> IO (Quaternion)
 cFGetOrientationForViewUpdate a1 =
@@ -390,7 +388,7 @@   cFGetOrientationForViewUpdate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFSetOrientationMode :: HG3DClass -> EnumOrientationMode -> IO ()
 cFSetOrientationMode a1 a2 =
@@ -398,7 +396,7 @@   let {a2' = cIntFromEnum a2} in 
   cFSetOrientationMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 cFGetOrientationMode :: HG3DClass -> IO (EnumOrientationMode)
 cFGetOrientationMode a1 =
@@ -407,14 +405,14 @@   cFGetOrientationMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h cF_setFOVy_c"
-  cFSetFOVy'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cFSetFOVy'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h cF_getFOVy_c"
-  cFGetFOVy'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cFGetFOVy'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h cF_setNearClipDistance_c"
   cFSetNearClipDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
HGamer3D/Bindings/Ogre/ClassGeometryBucket.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 
 
 cGbGetMaterial :: HG3DClass -> IO (SharedPtr)
@@ -72,7 +70,7 @@   cGbGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 ;
 cGbBuild :: HG3DClass -> Bool -> IO ()
 cGbBuild a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromBool a2} in 
   cGbBuild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassGeometryBucket.chs.h cGb_getMaterial_c"
HGamer3D/Bindings/Ogre/ClassGpuProgram.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumGpuProgramType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 
 
 cGpSetSourceFile :: HG3DClass -> String -> IO ()
@@ -71,7 +69,7 @@   withCString a2 $ \a2' -> 
   cGpSetSourceFile'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetSource :: HG3DClass -> String -> IO ()
 cGpSetSource a1 a2 =
@@ -79,7 +77,7 @@   withCString a2 $ \a2' -> 
   cGpSetSource'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetSyntaxCode :: HG3DClass -> IO (String)
 cGpGetSyntaxCode a1 =
@@ -88,7 +86,7 @@   cGpGetSyntaxCode'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetSyntaxCode :: HG3DClass -> String -> IO ()
 cGpSetSyntaxCode a1 a2 =
@@ -96,7 +94,7 @@   withCString a2 $ \a2' -> 
   cGpSetSyntaxCode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetSourceFile :: HG3DClass -> IO (String)
 cGpGetSourceFile a1 =
@@ -105,7 +103,7 @@   cGpGetSourceFile'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetSource :: HG3DClass -> IO (String)
 cGpGetSource a1 =
@@ -114,7 +112,7 @@   cGpGetSource'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetType :: HG3DClass -> EnumGpuProgramType -> IO ()
 cGpSetType a1 a2 =
@@ -122,7 +120,7 @@   let {a2' = cIntFromEnum a2} in 
   cGpSetType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetType :: HG3DClass -> IO (EnumGpuProgramType)
 cGpGetType a1 =
@@ -131,7 +129,7 @@   cGpGetType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetBindingDelegate :: HG3DClass -> IO (HG3DClass)
 cGpGetBindingDelegate a1 =
@@ -140,7 +138,7 @@   cGpGetBindingDelegate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsSupported :: HG3DClass -> IO (Bool)
 cGpIsSupported a1 =
@@ -149,7 +147,7 @@   cGpIsSupported'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetSkeletalAnimationIncluded :: HG3DClass -> Bool -> IO ()
 cGpSetSkeletalAnimationIncluded a1 a2 =
@@ -157,7 +155,7 @@   let {a2' = fromBool a2} in 
   cGpSetSkeletalAnimationIncluded'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsSkeletalAnimationIncluded :: HG3DClass -> IO (Bool)
 cGpIsSkeletalAnimationIncluded a1 =
@@ -166,7 +164,7 @@   cGpIsSkeletalAnimationIncluded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetMorphAnimationIncluded :: HG3DClass -> Bool -> IO ()
 cGpSetMorphAnimationIncluded a1 a2 =
@@ -174,7 +172,7 @@   let {a2' = fromBool a2} in 
   cGpSetMorphAnimationIncluded'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsMorphAnimationIncluded :: HG3DClass -> IO (Bool)
 cGpIsMorphAnimationIncluded a1 =
@@ -183,7 +181,7 @@   cGpIsMorphAnimationIncluded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsPoseAnimationIncluded :: HG3DClass -> IO (Bool)
 cGpIsPoseAnimationIncluded a1 =
@@ -192,7 +190,7 @@   cGpIsPoseAnimationIncluded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetVertexTextureFetchRequired :: HG3DClass -> Bool -> IO ()
 cGpSetVertexTextureFetchRequired a1 a2 =
@@ -200,7 +198,7 @@   let {a2' = fromBool a2} in 
   cGpSetVertexTextureFetchRequired'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsVertexTextureFetchRequired :: HG3DClass -> IO (Bool)
 cGpIsVertexTextureFetchRequired a1 =
@@ -209,7 +207,7 @@   cGpIsVertexTextureFetchRequired'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetAdjacencyInfoRequired :: HG3DClass -> Bool -> IO ()
 cGpSetAdjacencyInfoRequired a1 a2 =
@@ -217,7 +215,7 @@   let {a2' = fromBool a2} in 
   cGpSetAdjacencyInfoRequired'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpIsAdjacencyInfoRequired :: HG3DClass -> IO (Bool)
 cGpIsAdjacencyInfoRequired a1 =
@@ -226,7 +224,7 @@   cGpIsAdjacencyInfoRequired'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpHasDefaultParameters :: HG3DClass -> IO (Bool)
 cGpHasDefaultParameters a1 =
@@ -235,7 +233,7 @@   cGpHasDefaultParameters'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetPassSurfaceAndLightStates :: HG3DClass -> IO (Bool)
 cGpGetPassSurfaceAndLightStates a1 =
@@ -244,7 +242,7 @@   cGpGetPassSurfaceAndLightStates'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetPassFogStates :: HG3DClass -> IO (Bool)
 cGpGetPassFogStates a1 =
@@ -253,7 +251,7 @@   cGpGetPassFogStates'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetPassTransformStates :: HG3DClass -> IO (Bool)
 cGpGetPassTransformStates a1 =
@@ -262,7 +260,7 @@   cGpGetPassTransformStates'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetLanguage :: HG3DClass -> IO (String)
 cGpGetLanguage a1 =
@@ -271,7 +269,7 @@   cGpGetLanguage'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpHasCompileError :: HG3DClass -> IO (Bool)
 cGpHasCompileError a1 =
@@ -280,14 +278,14 @@   cGpHasCompileError'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpResetCompileError :: HG3DClass -> IO ()
 cGpResetCompileError a1 =
   withHG3DClass a1 $ \a1' -> 
   cGpResetCompileError'_ a1' >>= \res ->
   return ()
-{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpSetManualNamedConstantsFile :: HG3DClass -> String -> IO ()
 cGpSetManualNamedConstantsFile a1 a2 =
@@ -295,7 +293,7 @@   withCString a2 $ \a2' -> 
   cGpSetManualNamedConstantsFile'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 cGpGetManualNamedConstantsFile :: HG3DClass -> IO (String)
 cGpGetManualNamedConstantsFile a1 =
@@ -304,7 +302,7 @@   cGpGetManualNamedConstantsFile'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassGpuProgram.chs.h cGp_setSourceFile_c"
HGamer3D/Bindings/Ogre/ClassGpuProgramManager.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumGpuProgramType
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 
 
 cGpmLoad :: HG3DClass -> String -> String -> String -> EnumGpuProgramType -> String -> IO (SharedPtr)
@@ -79,7 +77,7 @@   cGpmLoad'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   peek  a7'>>= \a7'' -> 
   return (a7'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 cGpmLoadFromString :: HG3DClass -> String -> String -> String -> EnumGpuProgramType -> String -> IO (SharedPtr)
 cGpmLoadFromString a1 a2 a3 a4 a5 a6 =
@@ -93,7 +91,7 @@   cGpmLoadFromString'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   peek  a7'>>= \a7'' -> 
   return (a7'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 cGpmIsSyntaxSupported :: HG3DClass -> String -> IO (Bool)
 cGpmIsSyntaxSupported a1 a2 =
@@ -103,7 +101,7 @@   cGpmIsSyntaxSupported'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 cGpmCreateProgram :: HG3DClass -> String -> String -> String -> EnumGpuProgramType -> String -> IO (SharedPtr)
 cGpmCreateProgram a1 a2 a3 a4 a5 a6 =
@@ -117,7 +115,7 @@   cGpmCreateProgram'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   peek  a7'>>= \a7'' -> 
   return (a7'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 cGpmCreateProgramFromString :: HG3DClass -> String -> String -> String -> EnumGpuProgramType -> String -> IO (SharedPtr)
 cGpmCreateProgramFromString a1 a2 a3 a4 a5 a6 =
@@ -131,7 +129,7 @@   cGpmCreateProgramFromString'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   peek  a7'>>= \a7'' -> 
   return (a7'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 cGpmGetByName :: HG3DClass -> String -> Bool -> IO (SharedPtr)
 cGpmGetByName a1 a2 a3 =
@@ -142,7 +140,7 @@   cGpmGetByName'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassGpuProgramManager.chs.h cGpm_load_c"
HGamer3D/Bindings/Ogre/ClassHardwareBufferLicensee.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferLicensee.chs" #-}
HGamer3D/Bindings/Ogre/ClassHardwareBufferManager.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 
 
 cHbmFreeUnusedBufferCopies :: HG3DClass -> IO ()
@@ -68,7 +66,7 @@   withHG3DClass a1 $ \a1' -> 
   cHbmFreeUnusedBufferCopies'_ a1' >>= \res ->
   return ()
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 ;
 cHbmReleaseBufferCopies :: HG3DClass -> Bool -> IO ()
 cHbmReleaseBufferCopies a1 a2 =
@@ -76,7 +74,7 @@   let {a2' = fromBool a2} in 
   cHbmReleaseBufferCopies'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 ;
 cHbmNotifyIndexBufferDestroyed :: HG3DClass -> HG3DClass -> IO ()
 cHbmNotifyIndexBufferDestroyed a1 a2 =
@@ -84,7 +82,7 @@   withHG3DClass a2 $ \a2' -> 
   cHbmNotifyIndexBufferDestroyed'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManager.chs.h cHbm__freeUnusedBufferCopies_c"
HGamer3D/Bindings/Ogre/ClassHardwareBufferManagerBase.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 
 
 cHbmbFreeUnusedBufferCopies :: HG3DClass -> IO ()
@@ -68,7 +66,7 @@   withHG3DClass a1 $ \a1' -> 
   cHbmbFreeUnusedBufferCopies'_ a1' >>= \res ->
   return ()
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 ;
 cHbmbReleaseBufferCopies :: HG3DClass -> Bool -> IO ()
 cHbmbReleaseBufferCopies a1 a2 =
@@ -76,7 +74,7 @@   let {a2' = fromBool a2} in 
   cHbmbReleaseBufferCopies'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 ;
 cHbmbNotifyIndexBufferDestroyed :: HG3DClass -> HG3DClass -> IO ()
 cHbmbNotifyIndexBufferDestroyed a1 a2 =
@@ -84,7 +82,7 @@   withHG3DClass a2 $ \a2' -> 
   cHbmbNotifyIndexBufferDestroyed'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHardwareBufferManagerBase.chs.h cHbmb__freeUnusedBufferCopies_c"
HGamer3D/Bindings/Ogre/ClassHardwareIndexBuffer.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumIndexType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 
 
 cHibGetManager :: HG3DClass -> IO (HG3DClass)
@@ -72,7 +70,7 @@   cHibGetManager'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 ;
 cHibGetType :: HG3DClass -> IO (EnumIndexType)
 cHibGetType a1 =
@@ -81,7 +79,7 @@   cHibGetType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 ;
 cHibGetNumIndexes :: HG3DClass -> IO (Int)
 cHibGetNumIndexes a1 =
@@ -90,7 +88,7 @@   cHibGetNumIndexes'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 ;
 cHibGetIndexSize :: HG3DClass -> IO (Int)
 cHibGetIndexSize a1 =
@@ -99,7 +97,7 @@   cHibGetIndexSize'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHardwareIndexBuffer.chs.h cHib_getManager_c"
HGamer3D/Bindings/Ogre/ClassHardwareOcclusionQuery.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 
 
 cHoqBeginOcclusionQuery :: HG3DClass -> IO ()
@@ -68,14 +66,14 @@   withHG3DClass a1 $ \a1' -> 
   cHoqBeginOcclusionQuery'_ a1' >>= \res ->
   return ()
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 ;
 cHoqEndOcclusionQuery :: HG3DClass -> IO ()
 cHoqEndOcclusionQuery a1 =
   withHG3DClass a1 $ \a1' -> 
   cHoqEndOcclusionQuery'_ a1' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 ;
 cHoqPullOcclusionQuery :: HG3DClass -> IO (Int, Bool)
 cHoqPullOcclusionQuery a1 =
@@ -86,7 +84,7 @@   peekIntConv  a2'>>= \a2'' -> 
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a2'', a3'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 ;
 cHoqGetLastQuerysPixelcount :: HG3DClass -> IO (Int)
 cHoqGetLastQuerysPixelcount a1 =
@@ -95,7 +93,7 @@   cHoqGetLastQuerysPixelcount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 ;
 cHoqIsStillOutstanding :: HG3DClass -> IO (Bool)
 cHoqIsStillOutstanding a1 =
@@ -104,7 +102,7 @@   cHoqIsStillOutstanding'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHardwareOcclusionQuery.chs.h cHoq_beginOcclusionQuery_c"
HGamer3D/Bindings/Ogre/ClassHardwarePixelBuffer.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 
 
 cHpbBlit2 :: HG3DClass -> SharedPtr -> IO ()
@@ -73,7 +71,7 @@   withSharedPtr a2 $ \a2' -> 
   cHpbBlit2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 cHpbGetRenderTarget :: HG3DClass -> Int -> IO (HG3DClass)
 cHpbGetRenderTarget a1 a2 =
@@ -83,7 +81,7 @@   cHpbGetRenderTarget'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 cHpbGetWidth :: HG3DClass -> IO (Int)
 cHpbGetWidth a1 =
@@ -92,7 +90,7 @@   cHpbGetWidth'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 cHpbGetHeight :: HG3DClass -> IO (Int)
 cHpbGetHeight a1 =
@@ -101,7 +99,7 @@   cHpbGetHeight'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 cHpbGetDepth :: HG3DClass -> IO (Int)
 cHpbGetDepth a1 =
@@ -110,7 +108,7 @@   cHpbGetDepth'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 cHpbGetFormat :: HG3DClass -> IO (EnumPixelFormat)
 cHpbGetFormat a1 =
@@ -119,7 +117,7 @@   cHpbGetFormat'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHardwarePixelBuffer.chs.h cHpb_blit2_c"
HGamer3D/Bindings/Ogre/ClassHighLevelGpuProgram.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
 
 
 cHlgpGetBindingDelegate :: HG3DClass -> IO (HG3DClass)
@@ -70,7 +68,7 @@   cHlgpGetBindingDelegate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgram.chs.h cHlgp__getBindingDelegate_c"
HGamer3D/Bindings/Ogre/ClassHighLevelGpuProgramFactory.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
 
 
 cHlgpfGetLanguage :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cHlgpfGetLanguage'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHighLevelGpuProgramFactory.chs.h cHlgpf_getLanguage_c"
HGamer3D/Bindings/Ogre/ClassIOException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassIOException.chs" #-}
HGamer3D/Bindings/Ogre/ClassInternalErrorException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInternalErrorException.chs" #-}
HGamer3D/Bindings/Ogre/ClassInvalidParametersException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInvalidParametersException.chs" #-}
HGamer3D/Bindings/Ogre/ClassInvalidStateException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassInvalidStateException.chs" #-}
HGamer3D/Bindings/Ogre/ClassItemIdentityException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassItemIdentityException.chs" #-}
HGamer3D/Bindings/Ogre/ClassKeyFrame.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
 
 
 cKfGetTime :: HG3DClass -> IO (Float)
@@ -70,7 +68,7 @@   cKfGetTime'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassKeyFrame.chs.h cKf_getTime_c"
HGamer3D/Bindings/Ogre/ClassLODBucket.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
 
 
 cLodbGetLodValue :: HG3DClass -> IO (Float)
@@ -70,7 +68,7 @@   cLodbGetLodValue'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
 ;
 cLodbBuild :: HG3DClass -> Bool -> IO ()
 cLodbBuild a1 a2 =
@@ -78,7 +76,7 @@   let {a2' = fromBool a2} in 
   cLodbBuild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLODBucket.chs.h cLodb_getLodValue_c"
HGamer3D/Bindings/Ogre/ClassLiSPSMShadowCameraSetup.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeDegree
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 
 
 cLspsmscsSetOptimalAdjustFactor :: HG3DClass -> Float -> IO ()
@@ -71,7 +69,7 @@   let {a2' = realToFrac a2} in 
   cLspsmscsSetOptimalAdjustFactor'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
 cLspsmscsGetOptimalAdjustFactor :: HG3DClass -> IO (Float)
 cLspsmscsGetOptimalAdjustFactor a1 =
@@ -80,7 +78,7 @@   cLspsmscsGetOptimalAdjustFactor'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
 cLspsmscsSetUseSimpleOptimalAdjust :: HG3DClass -> Bool -> IO ()
 cLspsmscsSetUseSimpleOptimalAdjust a1 a2 =
@@ -88,7 +86,7 @@   let {a2' = fromBool a2} in 
   cLspsmscsSetUseSimpleOptimalAdjust'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
 cLspsmscsGetUseSimpleOptimalAdjust :: HG3DClass -> IO (Bool)
 cLspsmscsGetUseSimpleOptimalAdjust a1 =
@@ -97,24 +95,24 @@   cLspsmscsGetUseSimpleOptimalAdjust'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
-cLspsmscsSetCameraLightDirectionThreshold :: HG3DClass -> Degree -> IO ()
+cLspsmscsSetCameraLightDirectionThreshold :: HG3DClass -> Degrees -> IO ()
 cLspsmscsSetCameraLightDirectionThreshold a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withDegree a2 $ \a2' -> 
+  withDegrees a2 $ \a2' -> 
   cLspsmscsSetCameraLightDirectionThreshold'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
-cLspsmscsGetCameraLightDirectionThreshold :: HG3DClass -> IO (Degree)
+cLspsmscsGetCameraLightDirectionThreshold :: HG3DClass -> IO (Degrees)
 cLspsmscsGetCameraLightDirectionThreshold a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cLspsmscsGetCameraLightDirectionThreshold'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs.h cLspsmscs_setOptimalAdjustFactor_c"
@@ -130,7 +128,7 @@   cLspsmscsGetUseSimpleOptimalAdjust'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs.h cLspsmscs_setCameraLightDirectionThreshold_c"
-  cLspsmscsSetCameraLightDirectionThreshold'_ :: ((HG3DClassPtr) -> ((DegreePtr) -> (IO ())))
+  cLspsmscsSetCameraLightDirectionThreshold'_ :: ((HG3DClassPtr) -> ((DegreesPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLiSPSMShadowCameraSetup.chs.h cLspsmscs_getCameraLightDirectionThreshold_c"
-  cLspsmscsGetCameraLightDirectionThreshold'_ :: ((HG3DClassPtr) -> ((DegreePtr) -> (IO ())))
+  cLspsmscsGetCameraLightDirectionThreshold'_ :: ((HG3DClassPtr) -> ((DegreesPtr) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassLight.hs view
@@ -51,26 +51,24 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLightTypes
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector4
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 
 
 cLCalcTempSquareDist :: HG3DClass -> Vector3 -> IO ()
@@ -79,7 +77,7 @@   withVector3 a2 $ \a2' -> 
   cLCalcTempSquareDist'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetType :: HG3DClass -> EnumLightTypes -> IO ()
 cLSetType a1 a2 =
@@ -87,7 +85,7 @@   let {a2' = cIntFromEnum a2} in 
   cLSetType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetType :: HG3DClass -> IO (EnumLightTypes)
 cLGetType a1 =
@@ -96,7 +94,7 @@   cLGetType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetDiffuseColour :: HG3DClass -> Float -> Float -> Float -> IO ()
 cLSetDiffuseColour a1 a2 a3 a4 =
@@ -106,24 +104,24 @@   let {a4' = realToFrac a4} in 
   cLSetDiffuseColour'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLSetDiffuseColour2 :: HG3DClass -> ColourValue -> IO ()
+cLSetDiffuseColour2 :: HG3DClass -> Colour -> IO ()
 cLSetDiffuseColour2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cLSetDiffuseColour2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLGetDiffuseColour :: HG3DClass -> IO (ColourValue)
+cLGetDiffuseColour :: HG3DClass -> IO (Colour)
 cLGetDiffuseColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cLGetDiffuseColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetSpecularColour :: HG3DClass -> Float -> Float -> Float -> IO ()
 cLSetSpecularColour a1 a2 a3 a4 =
@@ -133,24 +131,24 @@   let {a4' = realToFrac a4} in 
   cLSetSpecularColour'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLSetSpecularColour2 :: HG3DClass -> ColourValue -> IO ()
+cLSetSpecularColour2 :: HG3DClass -> Colour -> IO ()
 cLSetSpecularColour2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cLSetSpecularColour2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLGetSpecularColour :: HG3DClass -> IO (ColourValue)
+cLGetSpecularColour :: HG3DClass -> IO (Colour)
 cLGetSpecularColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cLGetSpecularColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetAttenuation :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cLSetAttenuation a1 a2 a3 a4 a5 =
@@ -161,7 +159,7 @@   let {a5' = realToFrac a5} in 
   cLSetAttenuation'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetAttenuationRange :: HG3DClass -> IO (Float)
 cLGetAttenuationRange a1 =
@@ -170,7 +168,7 @@   cLGetAttenuationRange'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetAttenuationConstant :: HG3DClass -> IO (Float)
 cLGetAttenuationConstant a1 =
@@ -179,7 +177,7 @@   cLGetAttenuationConstant'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetAttenuationLinear :: HG3DClass -> IO (Float)
 cLGetAttenuationLinear a1 =
@@ -188,7 +186,7 @@   cLGetAttenuationLinear'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetAttenuationQuadric :: HG3DClass -> IO (Float)
 cLGetAttenuationQuadric a1 =
@@ -197,7 +195,7 @@   cLGetAttenuationQuadric'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetPosition :: HG3DClass -> Float -> Float -> Float -> IO ()
 cLSetPosition a1 a2 a3 a4 =
@@ -207,7 +205,7 @@   let {a4' = realToFrac a4} in 
   cLSetPosition'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetPosition2 :: HG3DClass -> Vector3 -> IO ()
 cLSetPosition2 a1 a2 =
@@ -215,7 +213,7 @@   withVector3 a2 $ \a2' -> 
   cLSetPosition2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetPosition :: HG3DClass -> IO (Vector3)
 cLGetPosition a1 =
@@ -224,7 +222,7 @@   cLGetPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetDirection :: HG3DClass -> Float -> Float -> Float -> IO ()
 cLSetDirection a1 a2 a3 a4 =
@@ -234,7 +232,7 @@   let {a4' = realToFrac a4} in 
   cLSetDirection'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetDirection2 :: HG3DClass -> Vector3 -> IO ()
 cLSetDirection2 a1 a2 =
@@ -242,7 +240,7 @@   withVector3 a2 $ \a2' -> 
   cLSetDirection2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetDirection :: HG3DClass -> IO (Vector3)
 cLGetDirection a1 =
@@ -251,35 +249,35 @@   cLGetDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLSetSpotlightRange :: HG3DClass -> Radian -> Radian -> Float -> IO ()
+cLSetSpotlightRange :: HG3DClass -> Radians -> Radians -> Float -> IO ()
 cLSetSpotlightRange a1 a2 a3 a4 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
-  withRadian a3 $ \a3' -> 
+  withRadians a2 $ \a2' -> 
+  withRadians a3 $ \a3' -> 
   let {a4' = realToFrac a4} in 
   cLSetSpotlightRange'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLGetSpotlightInnerAngle :: HG3DClass -> IO (Radian)
+cLGetSpotlightInnerAngle :: HG3DClass -> IO (Radians)
 cLGetSpotlightInnerAngle a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cLGetSpotlightInnerAngle'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLGetSpotlightOuterAngle :: HG3DClass -> IO (Radian)
+cLGetSpotlightOuterAngle :: HG3DClass -> IO (Radians)
 cLGetSpotlightOuterAngle a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cLGetSpotlightOuterAngle'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetSpotlightFalloff :: HG3DClass -> IO (Float)
 cLGetSpotlightFalloff a1 =
@@ -288,23 +286,23 @@   cLGetSpotlightFalloff'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLSetSpotlightInnerAngle :: HG3DClass -> Radian -> IO ()
+cLSetSpotlightInnerAngle :: HG3DClass -> Radians -> IO ()
 cLSetSpotlightInnerAngle a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cLSetSpotlightInnerAngle'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
-cLSetSpotlightOuterAngle :: HG3DClass -> Radian -> IO ()
+cLSetSpotlightOuterAngle :: HG3DClass -> Radians -> IO ()
 cLSetSpotlightOuterAngle a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cLSetSpotlightOuterAngle'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetSpotlightFalloff :: HG3DClass -> Float -> IO ()
 cLSetSpotlightFalloff a1 a2 =
@@ -312,7 +310,7 @@   let {a2' = realToFrac a2} in 
   cLSetSpotlightFalloff'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetPowerScale :: HG3DClass -> Float -> IO ()
 cLSetPowerScale a1 a2 =
@@ -320,7 +318,7 @@   let {a2' = realToFrac a2} in 
   cLSetPowerScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetPowerScale :: HG3DClass -> IO (Float)
 cLGetPowerScale a1 =
@@ -329,7 +327,7 @@   cLGetPowerScale'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLNotifyAttached :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cLNotifyAttached a1 a2 a3 =
@@ -338,14 +336,14 @@   let {a3' = fromBool a3} in 
   cLNotifyAttached'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLNotifyMoved :: HG3DClass -> IO ()
 cLNotifyMoved a1 =
   withHG3DClass a1 $ \a1' -> 
   cLNotifyMoved'_ a1' >>= \res ->
   return ()
-{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetMovableType :: HG3DClass -> IO (String)
 cLGetMovableType a1 =
@@ -354,7 +352,7 @@   cLGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetDerivedPosition :: HG3DClass -> Bool -> IO (Vector3)
 cLGetDerivedPosition a1 a2 =
@@ -364,7 +362,7 @@   cLGetDerivedPosition'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetDerivedDirection :: HG3DClass -> IO (Vector3)
 cLGetDerivedDirection a1 =
@@ -373,7 +371,7 @@   cLGetDerivedDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetVisible :: HG3DClass -> Bool -> IO ()
 cLSetVisible a1 a2 =
@@ -381,7 +379,7 @@   let {a2' = fromBool a2} in 
   cLSetVisible'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetBoundingRadius :: HG3DClass -> IO (Float)
 cLGetBoundingRadius a1 =
@@ -390,7 +388,7 @@   cLGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 219 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetAs4DVector :: HG3DClass -> Bool -> IO (Vector4)
 cLGetAs4DVector a1 a2 =
@@ -400,7 +398,7 @@   cLGetAs4DVector'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetTypeFlags :: HG3DClass -> IO (Int)
 cLGetTypeFlags a1 =
@@ -409,14 +407,14 @@   cLGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLResetCustomShadowCameraSetup :: HG3DClass -> IO ()
 cLResetCustomShadowCameraSetup a1 =
   withHG3DClass a1 $ \a1' -> 
   cLResetCustomShadowCameraSetup'_ a1' >>= \res ->
   return ()
-{-# LINE 233 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetIndexInFrame :: HG3DClass -> IO (Int)
 cLGetIndexInFrame a1 =
@@ -425,7 +423,7 @@   cLGetIndexInFrame'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 237 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 235 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetShadowFarDistance :: HG3DClass -> Float -> IO ()
 cLSetShadowFarDistance a1 a2 =
@@ -433,14 +431,14 @@   let {a2' = realToFrac a2} in 
   cLSetShadowFarDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLResetShadowFarDistance :: HG3DClass -> IO ()
 cLResetShadowFarDistance a1 =
   withHG3DClass a1 $ \a1' -> 
   cLResetShadowFarDistance'_ a1' >>= \res ->
   return ()
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetShadowFarDistance :: HG3DClass -> IO (Float)
 cLGetShadowFarDistance a1 =
@@ -449,7 +447,7 @@   cLGetShadowFarDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 248 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 246 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetShadowNearClipDistance :: HG3DClass -> Float -> IO ()
 cLSetShadowNearClipDistance a1 a2 =
@@ -457,7 +455,7 @@   let {a2' = realToFrac a2} in 
   cLSetShadowNearClipDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 252 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 250 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetShadowNearClipDistance :: HG3DClass -> IO (Float)
 cLGetShadowNearClipDistance a1 =
@@ -466,7 +464,7 @@   cLGetShadowNearClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 256 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 254 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetShadowFarClipDistance :: HG3DClass -> Float -> IO ()
 cLSetShadowFarClipDistance a1 a2 =
@@ -474,7 +472,7 @@   let {a2' = realToFrac a2} in 
   cLSetShadowFarClipDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 260 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetShadowFarClipDistance :: HG3DClass -> IO (Float)
 cLGetShadowFarClipDistance a1 =
@@ -483,7 +481,7 @@   cLGetShadowFarClipDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetCameraRelative :: HG3DClass -> HG3DClass -> IO ()
 cLSetCameraRelative a1 a2 =
@@ -491,7 +489,7 @@   withHG3DClass a2 $ \a2' -> 
   cLSetCameraRelative'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 268 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLSetCustomParameter :: HG3DClass -> Int -> Vector4 -> IO ()
 cLSetCustomParameter a1 a2 a3 =
@@ -500,7 +498,7 @@   withVector4 a3 $ \a3' -> 
   cLSetCustomParameter'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 271 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 cLGetCustomParameter :: HG3DClass -> Int -> IO (Vector4)
 cLGetCustomParameter a1 a2 =
@@ -510,7 +508,7 @@   cLGetCustomParameter'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 278 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
+{-# LINE 276 "HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL__calcTempSquareDist_c"
@@ -526,19 +524,19 @@   cLSetDiffuseColour'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setDiffuseColour2_c"
-  cLSetDiffuseColour2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cLSetDiffuseColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_getDiffuseColour_c"
-  cLGetDiffuseColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cLGetDiffuseColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpecularColour_c"
   cLSetSpecularColour'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpecularColour2_c"
-  cLSetSpecularColour2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cLSetSpecularColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_getSpecularColour_c"
-  cLGetSpecularColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cLGetSpecularColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setAttenuation_c"
   cLSetAttenuation'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
@@ -574,22 +572,22 @@   cLGetDirection'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpotlightRange_c"
-  cLSetSpotlightRange'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> ((RadianPtr) -> (CFloat -> (IO ())))))
+  cLSetSpotlightRange'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> ((RadiansPtr) -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_getSpotlightInnerAngle_c"
-  cLGetSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cLGetSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_getSpotlightOuterAngle_c"
-  cLGetSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cLGetSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_getSpotlightFalloff_c"
   cLGetSpotlightFalloff'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpotlightInnerAngle_c"
-  cLSetSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cLSetSpotlightInnerAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpotlightOuterAngle_c"
-  cLSetSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cLSetSpotlightOuterAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h cL_setSpotlightFalloff_c"
   cLSetSpotlightFalloff'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
HGamer3D/Bindings/Ogre/ClassLightFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassLogManager.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLogMessageLevel
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLoggingLevel
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 
 
 cLmDestroyLog :: HG3DClass -> String -> IO ()
@@ -73,7 +71,7 @@   withCString a2 $ \a2' -> 
   cLmDestroyLog'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 ;
 cLmLogMessage :: HG3DClass -> String -> EnumLogMessageLevel -> Bool -> IO ()
 cLmLogMessage a1 a2 a3 a4 =
@@ -83,7 +81,7 @@   let {a4' = fromBool a4} in 
   cLmLogMessage'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 ;
 cLmLogMessage2 :: HG3DClass -> EnumLogMessageLevel -> String -> Bool -> IO ()
 cLmLogMessage2 a1 a2 a3 a4 =
@@ -93,7 +91,7 @@   let {a4' = fromBool a4} in 
   cLmLogMessage2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 ;
 cLmSetLogDetail :: HG3DClass -> EnumLoggingLevel -> IO ()
 cLmSetLogDetail a1 a2 =
@@ -101,7 +99,7 @@   let {a2' = cIntFromEnum a2} in 
   cLmSetLogDetail'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h cLm_destroyLog_c"
HGamer3D/Bindings/Ogre/ClassManualObject.hs view
@@ -51,28 +51,26 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumOperationType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector2
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector4
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 
 
 cMnoClear :: HG3DClass -> IO ()
@@ -80,7 +78,7 @@   withHG3DClass a1 $ \a1' -> 
   cMnoClear'_ a1' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoEstimateVertexCount :: HG3DClass -> Int -> IO ()
 cMnoEstimateVertexCount a1 a2 =
@@ -88,7 +86,7 @@   let {a2' = fromIntegral a2} in 
   cMnoEstimateVertexCount'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoEstimateIndexCount :: HG3DClass -> Int -> IO ()
 cMnoEstimateIndexCount a1 a2 =
@@ -96,7 +94,7 @@   let {a2' = fromIntegral a2} in 
   cMnoEstimateIndexCount'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoBegin :: HG3DClass -> String -> EnumOperationType -> String -> IO ()
 cMnoBegin a1 a2 a3 a4 =
@@ -106,7 +104,7 @@   withCString a4 $ \a4' -> 
   cMnoBegin'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoSetDynamic :: HG3DClass -> Bool -> IO ()
 cMnoSetDynamic a1 a2 =
@@ -114,7 +112,7 @@   let {a2' = fromBool a2} in 
   cMnoSetDynamic'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetDynamic :: HG3DClass -> IO (Bool)
 cMnoGetDynamic a1 =
@@ -123,7 +121,7 @@   cMnoGetDynamic'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoBeginUpdate :: HG3DClass -> Int -> IO ()
 cMnoBeginUpdate a1 a2 =
@@ -131,7 +129,7 @@   let {a2' = fromIntegral a2} in 
   cMnoBeginUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoPosition :: HG3DClass -> Vector3 -> IO ()
 cMnoPosition a1 a2 =
@@ -139,7 +137,7 @@   withVector3 a2 $ \a2' -> 
   cMnoPosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoPosition2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMnoPosition2 a1 a2 a3 a4 =
@@ -149,7 +147,7 @@   let {a4' = realToFrac a4} in 
   cMnoPosition2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoNormal :: HG3DClass -> Vector3 -> IO ()
 cMnoNormal a1 a2 =
@@ -157,7 +155,7 @@   withVector3 a2 $ \a2' -> 
   cMnoNormal'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoNormal2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMnoNormal2 a1 a2 a3 a4 =
@@ -167,7 +165,7 @@   let {a4' = realToFrac a4} in 
   cMnoNormal2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTangent :: HG3DClass -> Vector3 -> IO ()
 cMnoTangent a1 a2 =
@@ -175,7 +173,7 @@   withVector3 a2 $ \a2' -> 
   cMnoTangent'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTangent2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMnoTangent2 a1 a2 a3 a4 =
@@ -185,7 +183,7 @@   let {a4' = realToFrac a4} in 
   cMnoTangent2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord :: HG3DClass -> Float -> IO ()
 cMnoTextureCoord a1 a2 =
@@ -193,7 +191,7 @@   let {a2' = realToFrac a2} in 
   cMnoTextureCoord'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord2 :: HG3DClass -> Float -> Float -> IO ()
 cMnoTextureCoord2 a1 a2 a3 =
@@ -202,7 +200,7 @@   let {a3' = realToFrac a3} in 
   cMnoTextureCoord2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord3 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMnoTextureCoord3 a1 a2 a3 a4 =
@@ -212,7 +210,7 @@   let {a4' = realToFrac a4} in 
   cMnoTextureCoord3'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord4 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cMnoTextureCoord4 a1 a2 a3 a4 a5 =
@@ -223,7 +221,7 @@   let {a5' = realToFrac a5} in 
   cMnoTextureCoord4'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord5 :: HG3DClass -> Vector2 -> IO ()
 cMnoTextureCoord5 a1 a2 =
@@ -231,7 +229,7 @@   withVector2 a2 $ \a2' -> 
   cMnoTextureCoord5'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord6 :: HG3DClass -> Vector3 -> IO ()
 cMnoTextureCoord6 a1 a2 =
@@ -239,7 +237,7 @@   withVector3 a2 $ \a2' -> 
   cMnoTextureCoord6'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTextureCoord7 :: HG3DClass -> Vector4 -> IO ()
 cMnoTextureCoord7 a1 a2 =
@@ -247,15 +245,15 @@   withVector4 a2 $ \a2' -> 
   cMnoTextureCoord7'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
-cMnoColour :: HG3DClass -> ColourValue -> IO ()
+cMnoColour :: HG3DClass -> Colour -> IO ()
 cMnoColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cMnoColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoColour2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cMnoColour2 a1 a2 a3 a4 a5 =
@@ -266,7 +264,7 @@   let {a5' = realToFrac a5} in 
   cMnoColour2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoIndex :: HG3DClass -> Int -> IO ()
 cMnoIndex a1 a2 =
@@ -274,7 +272,7 @@   let {a2' = fromIntegral a2} in 
   cMnoIndex'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoTriangle :: HG3DClass -> Int -> Int -> Int -> IO ()
 cMnoTriangle a1 a2 a3 a4 =
@@ -284,7 +282,7 @@   let {a4' = fromIntegral a4} in 
   cMnoTriangle'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoQuad :: HG3DClass -> Int -> Int -> Int -> Int -> IO ()
 cMnoQuad a1 a2 a3 a4 a5 =
@@ -295,7 +293,7 @@   let {a5' = fromIntegral a5} in 
   cMnoQuad'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoEnd :: HG3DClass -> IO (HG3DClass)
 cMnoEnd a1 =
@@ -304,7 +302,7 @@   cMnoEnd'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoSetMaterialName :: HG3DClass -> Int -> String -> String -> IO ()
 cMnoSetMaterialName a1 a2 a3 a4 =
@@ -314,7 +312,7 @@   withCString a4 $ \a4' -> 
   cMnoSetMaterialName'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoConvertToMesh :: HG3DClass -> String -> String -> IO (SharedPtr)
 cMnoConvertToMesh a1 a2 a3 =
@@ -325,7 +323,7 @@   cMnoConvertToMesh'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoSetUseIdentityProjection :: HG3DClass -> Bool -> IO ()
 cMnoSetUseIdentityProjection a1 a2 =
@@ -333,7 +331,7 @@   let {a2' = fromBool a2} in 
   cMnoSetUseIdentityProjection'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetUseIdentityProjection :: HG3DClass -> IO (Bool)
 cMnoGetUseIdentityProjection a1 =
@@ -342,7 +340,7 @@   cMnoGetUseIdentityProjection'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoSetUseIdentityView :: HG3DClass -> Bool -> IO ()
 cMnoSetUseIdentityView a1 a2 =
@@ -350,7 +348,7 @@   let {a2' = fromBool a2} in 
   cMnoSetUseIdentityView'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetUseIdentityView :: HG3DClass -> IO (Bool)
 cMnoGetUseIdentityView a1 =
@@ -359,7 +357,7 @@   cMnoGetUseIdentityView'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetSection :: HG3DClass -> Int -> IO (HG3DClass)
 cMnoGetSection a1 a2 =
@@ -369,7 +367,7 @@   cMnoGetSection'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetNumSections :: HG3DClass -> IO (Int)
 cMnoGetNumSections a1 =
@@ -378,7 +376,7 @@   cMnoGetNumSections'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoSetKeepDeclarationOrder :: HG3DClass -> Bool -> IO ()
 cMnoSetKeepDeclarationOrder a1 a2 =
@@ -386,7 +384,7 @@   let {a2' = fromBool a2} in 
   cMnoSetKeepDeclarationOrder'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetKeepDeclarationOrder :: HG3DClass -> IO (Bool)
 cMnoGetKeepDeclarationOrder a1 =
@@ -395,7 +393,7 @@   cMnoGetKeepDeclarationOrder'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetMovableType :: HG3DClass -> IO (String)
 cMnoGetMovableType a1 =
@@ -404,7 +402,7 @@   cMnoGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoGetBoundingRadius :: HG3DClass -> IO (Float)
 cMnoGetBoundingRadius a1 =
@@ -413,7 +411,7 @@   cMnoGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 cMnoHasEdgeList :: HG3DClass -> IO (Bool)
 cMnoHasEdgeList a1 =
@@ -422,7 +420,7 @@   cMnoHasEdgeList'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 246 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
+{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h cMno_clear_c"
@@ -486,7 +484,7 @@   cMnoTextureCoord7'_ :: ((HG3DClassPtr) -> ((Vector4Ptr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h cMno_colour_c"
-  cMnoColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cMnoColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h cMno_colour2_c"
   cMnoColour2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
HGamer3D/Bindings/Ogre/ClassManualObjectFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassManualObjectSection.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 
 
 cMosGetMaterialName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cMosGetMaterialName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 cMosGetMaterialGroup :: HG3DClass -> IO (String)
 cMosGetMaterialGroup a1 =
@@ -81,7 +79,7 @@   cMosGetMaterialGroup'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 cMosSetMaterialName :: HG3DClass -> String -> String -> IO ()
 cMosSetMaterialName a1 a2 a3 =
@@ -90,7 +88,7 @@   withCString a3 $ \a3' -> 
   cMosSetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 cMosSet32BitIndices :: HG3DClass -> Bool -> IO ()
 cMosSet32BitIndices a1 a2 =
@@ -98,7 +96,7 @@   let {a2' = fromBool a2} in 
   cMosSet32BitIndices'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 cMosGet32BitIndices :: HG3DClass -> IO (Bool)
 cMosGet32BitIndices a1 =
@@ -107,7 +105,7 @@   cMosGet32BitIndices'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 cMosGetMaterial :: HG3DClass -> IO (SharedPtr)
 cMosGetMaterial a1 =
@@ -116,7 +114,7 @@   cMosGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h cMos_getMaterialName_c"
HGamer3D/Bindings/Ogre/ClassManualObjectSectionShadowRenderable.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSectionShadowRenderable.chs" #-}
HGamer3D/Bindings/Ogre/ClassMaterial.hs view
@@ -51,32 +51,30 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCompareFunction
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCullingMode
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumManualCullingMode
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumShadeOptions
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFogMode
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureFilterOptions
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 
 
 cMtIsTransparent :: HG3DClass -> IO (Bool)
@@ -86,7 +84,7 @@   cMtIsTransparent'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetReceiveShadows :: HG3DClass -> Bool -> IO ()
 cMtSetReceiveShadows a1 a2 =
@@ -94,7 +92,7 @@   let {a2' = fromBool a2} in 
   cMtSetReceiveShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetReceiveShadows :: HG3DClass -> IO (Bool)
 cMtGetReceiveShadows a1 =
@@ -103,7 +101,7 @@   cMtGetReceiveShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetTransparencyCastsShadows :: HG3DClass -> Bool -> IO ()
 cMtSetTransparencyCastsShadows a1 a2 =
@@ -111,7 +109,7 @@   let {a2' = fromBool a2} in 
   cMtSetTransparencyCastsShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetTransparencyCastsShadows :: HG3DClass -> IO (Bool)
 cMtGetTransparencyCastsShadows a1 =
@@ -120,7 +118,7 @@   cMtGetTransparencyCastsShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtCreateTechnique :: HG3DClass -> IO (HG3DClass)
 cMtCreateTechnique a1 =
@@ -129,7 +127,7 @@   cMtCreateTechnique'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetTechnique :: HG3DClass -> Int -> IO (HG3DClass)
 cMtGetTechnique a1 a2 =
@@ -139,7 +137,7 @@   cMtGetTechnique'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetTechnique2 :: HG3DClass -> String -> IO (HG3DClass)
 cMtGetTechnique2 a1 a2 =
@@ -149,7 +147,7 @@   cMtGetTechnique2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetNumTechniques :: HG3DClass -> IO (Int)
 cMtGetNumTechniques a1 =
@@ -158,7 +156,7 @@   cMtGetNumTechniques'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtRemoveTechnique :: HG3DClass -> Int -> IO ()
 cMtRemoveTechnique a1 a2 =
@@ -166,14 +164,14 @@   let {a2' = fromIntegral a2} in 
   cMtRemoveTechnique'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtRemoveAllTechniques :: HG3DClass -> IO ()
 cMtRemoveAllTechniques a1 =
   withHG3DClass a1 $ \a1' -> 
   cMtRemoveAllTechniques'_ a1' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetSupportedTechnique :: HG3DClass -> Int -> IO (HG3DClass)
 cMtGetSupportedTechnique a1 a2 =
@@ -183,7 +181,7 @@   cMtGetSupportedTechnique'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetNumSupportedTechniques :: HG3DClass -> IO (Int)
 cMtGetNumSupportedTechniques a1 =
@@ -192,7 +190,7 @@   cMtGetNumSupportedTechniques'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetUnsupportedTechniquesExplanation :: HG3DClass -> IO (String)
 cMtGetUnsupportedTechniquesExplanation a1 =
@@ -201,7 +199,7 @@   cMtGetUnsupportedTechniquesExplanation'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetNumLodLevels :: HG3DClass -> Int -> IO (Int)
 cMtGetNumLodLevels a1 a2 =
@@ -211,7 +209,7 @@   cMtGetNumLodLevels'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetNumLodLevels2 :: HG3DClass -> String -> IO (Int)
 cMtGetNumLodLevels2 a1 a2 =
@@ -221,7 +219,7 @@   cMtGetNumLodLevels2'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtClone :: HG3DClass -> String -> Bool -> String -> IO (SharedPtr)
 cMtClone a1 a2 a3 a4 =
@@ -233,7 +231,7 @@   cMtClone'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtCopyDetailsTo :: HG3DClass -> IO (SharedPtr)
 cMtCopyDetailsTo a1 =
@@ -242,7 +240,7 @@   cMtCopyDetailsTo'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtCompile :: HG3DClass -> Bool -> IO ()
 cMtCompile a1 a2 =
@@ -250,7 +248,7 @@   let {a2' = fromBool a2} in 
   cMtCompile'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetPointSize :: HG3DClass -> Float -> IO ()
 cMtSetPointSize a1 a2 =
@@ -258,7 +256,7 @@   let {a2' = realToFrac a2} in 
   cMtSetPointSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetAmbient :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMtSetAmbient a1 a2 a3 a4 =
@@ -268,15 +266,15 @@   let {a4' = realToFrac a4} in 
   cMtSetAmbient'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
-cMtSetAmbient2 :: HG3DClass -> ColourValue -> IO ()
+cMtSetAmbient2 :: HG3DClass -> Colour -> IO ()
 cMtSetAmbient2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cMtSetAmbient2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetDiffuse :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cMtSetDiffuse a1 a2 a3 a4 a5 =
@@ -287,15 +285,15 @@   let {a5' = realToFrac a5} in 
   cMtSetDiffuse'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
-cMtSetDiffuse2 :: HG3DClass -> ColourValue -> IO ()
+cMtSetDiffuse2 :: HG3DClass -> Colour -> IO ()
 cMtSetDiffuse2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cMtSetDiffuse2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetSpecular :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cMtSetSpecular a1 a2 a3 a4 a5 =
@@ -306,15 +304,15 @@   let {a5' = realToFrac a5} in 
   cMtSetSpecular'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
-cMtSetSpecular2 :: HG3DClass -> ColourValue -> IO ()
+cMtSetSpecular2 :: HG3DClass -> Colour -> IO ()
 cMtSetSpecular2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cMtSetSpecular2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetShininess :: HG3DClass -> Float -> IO ()
 cMtSetShininess a1 a2 =
@@ -322,7 +320,7 @@   let {a2' = realToFrac a2} in 
   cMtSetShininess'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetSelfIllumination :: HG3DClass -> Float -> Float -> Float -> IO ()
 cMtSetSelfIllumination a1 a2 a3 a4 =
@@ -332,15 +330,15 @@   let {a4' = realToFrac a4} in 
   cMtSetSelfIllumination'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
-cMtSetSelfIllumination2 :: HG3DClass -> ColourValue -> IO ()
+cMtSetSelfIllumination2 :: HG3DClass -> Colour -> IO ()
 cMtSetSelfIllumination2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cMtSetSelfIllumination2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetDepthCheckEnabled :: HG3DClass -> Bool -> IO ()
 cMtSetDepthCheckEnabled a1 a2 =
@@ -348,7 +346,7 @@   let {a2' = fromBool a2} in 
   cMtSetDepthCheckEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetDepthWriteEnabled :: HG3DClass -> Bool -> IO ()
 cMtSetDepthWriteEnabled a1 a2 =
@@ -356,7 +354,7 @@   let {a2' = fromBool a2} in 
   cMtSetDepthWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetDepthFunction :: HG3DClass -> EnumCompareFunction -> IO ()
 cMtSetDepthFunction a1 a2 =
@@ -364,7 +362,7 @@   let {a2' = cIntFromEnum a2} in 
   cMtSetDepthFunction'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetColourWriteEnabled :: HG3DClass -> Bool -> IO ()
 cMtSetColourWriteEnabled a1 a2 =
@@ -372,7 +370,7 @@   let {a2' = fromBool a2} in 
   cMtSetColourWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetCullingMode :: HG3DClass -> EnumCullingMode -> IO ()
 cMtSetCullingMode a1 a2 =
@@ -380,7 +378,7 @@   let {a2' = cIntFromEnum a2} in 
   cMtSetCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 219 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetManualCullingMode :: HG3DClass -> EnumManualCullingMode -> IO ()
 cMtSetManualCullingMode a1 a2 =
@@ -388,7 +386,7 @@   let {a2' = cIntFromEnum a2} in 
   cMtSetManualCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetLightingEnabled :: HG3DClass -> Bool -> IO ()
 cMtSetLightingEnabled a1 a2 =
@@ -396,7 +394,7 @@   let {a2' = fromBool a2} in 
   cMtSetLightingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 227 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 225 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetShadingMode :: HG3DClass -> EnumShadeOptions -> IO ()
 cMtSetShadingMode a1 a2 =
@@ -404,20 +402,20 @@   let {a2' = cIntFromEnum a2} in 
   cMtSetShadingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 229 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
-cMtSetFog :: HG3DClass -> Bool -> EnumFogMode -> ColourValue -> Float -> Float -> Float -> IO ()
+cMtSetFog :: HG3DClass -> Bool -> EnumFogMode -> Colour -> Float -> Float -> Float -> IO ()
 cMtSetFog a1 a2 a3 a4 a5 a6 a7 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromBool a2} in 
   let {a3' = cIntFromEnum a3} in 
-  withColourValue a4 $ \a4' -> 
+  withColour a4 $ \a4' -> 
   let {a5' = realToFrac a5} in 
   let {a6' = realToFrac a6} in 
   let {a7' = realToFrac a7} in 
   cMtSetFog'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetDepthBias :: HG3DClass -> Float -> Float -> IO ()
 cMtSetDepthBias a1 a2 a3 =
@@ -426,7 +424,7 @@   let {a3' = realToFrac a3} in 
   cMtSetDepthBias'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetTextureFiltering :: HG3DClass -> EnumTextureFilterOptions -> IO ()
 cMtSetTextureFiltering a1 a2 =
@@ -434,7 +432,7 @@   let {a2' = cIntFromEnum a2} in 
   cMtSetTextureFiltering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtSetTextureAnisotropy :: HG3DClass -> Int -> IO ()
 cMtSetTextureAnisotropy a1 a2 =
@@ -442,21 +440,21 @@   let {a2' = fromIntegral a2} in 
   cMtSetTextureAnisotropy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtNotifyNeedsRecompile :: HG3DClass -> IO ()
 cMtNotifyNeedsRecompile a1 =
   withHG3DClass a1 $ \a1' -> 
   cMtNotifyNeedsRecompile'_ a1' >>= \res ->
   return ()
-{-# LINE 256 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 254 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtTouch :: HG3DClass -> IO ()
 cMtTouch a1 =
   withHG3DClass a1 $ \a1' -> 
   cMtTouch'_ a1' >>= \res ->
   return ()
-{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 cMtGetCompilationRequired :: HG3DClass -> IO (Bool)
 cMtGetCompilationRequired a1 =
@@ -465,7 +463,7 @@   cMtGetCompilationRequired'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
+{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_isTransparent_c"
@@ -532,19 +530,19 @@   cMtSetAmbient'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setAmbient2_c"
-  cMtSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cMtSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setDiffuse_c"
   cMtSetDiffuse'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setDiffuse2_c"
-  cMtSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cMtSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setSpecular_c"
   cMtSetSpecular'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setSpecular2_c"
-  cMtSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cMtSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setShininess_c"
   cMtSetShininess'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
@@ -553,7 +551,7 @@   cMtSetSelfIllumination'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setSelfIllumination2_c"
-  cMtSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cMtSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setDepthCheckEnabled_c"
   cMtSetDepthCheckEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
@@ -580,7 +578,7 @@   cMtSetShadingMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setFog_c"
-  cMtSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourValuePtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
+  cMtSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h cMt_setDepthBias_c"
   cMtSetDepthBias'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassMaterialBucket.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 
 
 cMbGetMaterialName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cMbGetMaterialName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 ;
 cMbBuild :: HG3DClass -> Bool -> IO ()
 cMbBuild a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromBool a2} in 
   cMbBuild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 ;
 cMbGetMaterial :: HG3DClass -> IO (SharedPtr)
 cMbGetMaterial a1 =
@@ -89,7 +87,7 @@   cMbGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 ;
 cMbGetCurrentTechnique :: HG3DClass -> IO (HG3DClass)
 cMbGetCurrentTechnique a1 =
@@ -98,7 +96,7 @@   cMbGetCurrentTechnique'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialBucket.chs.h cMb_getMaterialName_c"
HGamer3D/Bindings/Ogre/ClassMaterialManager.hs view
@@ -51,24 +51,22 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureFilterOptions
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFilterType
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFilterOptions
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 
 
 cMtmInitialise :: HG3DClass -> IO ()
@@ -76,7 +74,7 @@   withHG3DClass a1 $ \a1' -> 
   cMtmInitialise'_ a1' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmParseScript :: HG3DClass -> String -> IO (SharedPtr)
 cMtmParseScript a1 a3 =
@@ -86,7 +84,7 @@   cMtmParseScript'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmSetDefaultTextureFiltering :: HG3DClass -> EnumTextureFilterOptions -> IO ()
 cMtmSetDefaultTextureFiltering a1 a2 =
@@ -94,7 +92,7 @@   let {a2' = cIntFromEnum a2} in 
   cMtmSetDefaultTextureFiltering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmSetDefaultTextureFiltering2 :: HG3DClass -> EnumFilterType -> EnumFilterOptions -> IO ()
 cMtmSetDefaultTextureFiltering2 a1 a2 a3 =
@@ -103,7 +101,7 @@   let {a3' = cIntFromEnum a3} in 
   cMtmSetDefaultTextureFiltering2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmSetDefaultTextureFiltering3 :: HG3DClass -> EnumFilterOptions -> EnumFilterOptions -> EnumFilterOptions -> IO ()
 cMtmSetDefaultTextureFiltering3 a1 a2 a3 a4 =
@@ -113,7 +111,7 @@   let {a4' = cIntFromEnum a4} in 
   cMtmSetDefaultTextureFiltering3'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetDefaultTextureFiltering :: HG3DClass -> EnumFilterType -> IO (EnumFilterOptions)
 cMtmGetDefaultTextureFiltering a1 a2 =
@@ -123,7 +121,7 @@   cMtmGetDefaultTextureFiltering'_ a1' a2' a3' >>= \res ->
   peekEnumUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmSetDefaultAnisotropy :: HG3DClass -> Int -> IO ()
 cMtmSetDefaultAnisotropy a1 a2 =
@@ -131,7 +129,7 @@   let {a2' = fromIntegral a2} in 
   cMtmSetDefaultAnisotropy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetDefaultAnisotropy :: HG3DClass -> IO (Int)
 cMtmGetDefaultAnisotropy a1 =
@@ -140,7 +138,7 @@   cMtmGetDefaultAnisotropy'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetDefaultSettings :: HG3DClass -> IO (SharedPtr)
 cMtmGetDefaultSettings a1 =
@@ -149,7 +147,7 @@   cMtmGetDefaultSettings'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetSchemeIndex :: HG3DClass -> String -> IO (Int)
 cMtmGetSchemeIndex a1 a2 =
@@ -159,7 +157,7 @@   cMtmGetSchemeIndex'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetSchemeName :: HG3DClass -> Int -> IO (String)
 cMtmGetSchemeName a1 a2 =
@@ -169,7 +167,7 @@   cMtmGetSchemeName'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetActiveSchemeIndex :: HG3DClass -> IO (Int)
 cMtmGetActiveSchemeIndex a1 =
@@ -178,7 +176,7 @@   cMtmGetActiveSchemeIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmGetActiveScheme :: HG3DClass -> IO (String)
 cMtmGetActiveScheme a1 =
@@ -187,7 +185,7 @@   cMtmGetActiveScheme'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 cMtmSetActiveScheme :: HG3DClass -> String -> IO ()
 cMtmSetActiveScheme a1 a2 =
@@ -195,7 +193,7 @@   withCString a2 $ \a2' -> 
   cMtmSetActiveScheme'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h cMtm_initialise_c"
HGamer3D/Bindings/Ogre/ClassMaterialSerializer.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 
 
 cMtsQueueForExport :: HG3DClass -> SharedPtr -> Bool -> Bool -> String -> IO ()
@@ -74,7 +72,7 @@   withCString a5 $ \a5' -> 
   cMtsQueueForExport'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 cMtsExportQueued :: HG3DClass -> String -> Bool -> String -> IO ()
 cMtsExportQueued a1 a2 a3 a4 =
@@ -84,7 +82,7 @@   withCString a4 $ \a4' -> 
   cMtsExportQueued'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 cMtsExportMaterial :: HG3DClass -> SharedPtr -> String -> Bool -> Bool -> String -> String -> IO ()
 cMtsExportMaterial a1 a2 a3 a4 a5 a6 a7 =
@@ -97,7 +95,7 @@   withCString a7 $ \a7' -> 
   cMtsExportMaterial'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 cMtsGetQueuedAsString :: HG3DClass -> IO (String)
 cMtsGetQueuedAsString a1 =
@@ -106,14 +104,14 @@   cMtsGetQueuedAsString'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 cMtsClearQueue :: HG3DClass -> IO ()
 cMtsClearQueue a1 =
   withHG3DClass a1 $ \a1' -> 
   cMtsClearQueue'_ a1' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 cMtsParseScript :: HG3DClass -> String -> IO (SharedPtr)
 cMtsParseScript a1 a3 =
@@ -123,7 +121,7 @@   cMtsParseScript'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialSerializer.chs.h cMts_queueForExport_c"
HGamer3D/Bindings/Ogre/ClassMemoryDataStream.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 
 
 cMdsReadLine :: HG3DClass -> String -> Int -> String -> IO (Int)
@@ -73,7 +71,7 @@   cMdsReadLine'_ a1' a2' a3' a4' a5' >>= \res ->
   peekIntConv  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsSkipLine :: HG3DClass -> String -> IO (Int)
 cMdsSkipLine a1 a2 =
@@ -83,7 +81,7 @@   cMdsSkipLine'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsSkip :: HG3DClass -> Int -> IO ()
 cMdsSkip a1 a2 =
@@ -91,7 +89,7 @@   let {a2' = fromIntegral a2} in 
   cMdsSkip'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsSeek :: HG3DClass -> Int -> IO ()
 cMdsSeek a1 a2 =
@@ -99,7 +97,7 @@   let {a2' = fromIntegral a2} in 
   cMdsSeek'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsTell :: HG3DClass -> IO (Int)
 cMdsTell a1 =
@@ -108,7 +106,7 @@   cMdsTell'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsEof :: HG3DClass -> IO (Bool)
 cMdsEof a1 =
@@ -117,14 +115,14 @@   cMdsEof'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsClose :: HG3DClass -> IO ()
 cMdsClose a1 =
   withHG3DClass a1 $ \a1' -> 
   cMdsClose'_ a1' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 cMdsSetFreeOnClose :: HG3DClass -> Bool -> IO ()
 cMdsSetFreeOnClose a1 a2 =
@@ -132,7 +130,7 @@   let {a2' = fromBool a2} in 
   cMdsSetFreeOnClose'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMemoryDataStream.chs.h cMds_readLine_c"
HGamer3D/Bindings/Ogre/ClassMesh.hs view
@@ -51,22 +51,20 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexElementSemantic
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 
 
 cMCreateSubMesh :: HG3DClass -> IO (HG3DClass)
@@ -76,7 +74,7 @@   cMCreateSubMesh'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMCreateSubMesh2 :: HG3DClass -> String -> IO (HG3DClass)
 cMCreateSubMesh2 a1 a2 =
@@ -86,7 +84,7 @@   cMCreateSubMesh2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMUnnameSubMesh :: HG3DClass -> String -> IO ()
 cMUnnameSubMesh a1 a2 =
@@ -94,7 +92,7 @@   withCString a2 $ \a2' -> 
   cMUnnameSubMesh'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetNumSubMeshes :: HG3DClass -> IO (Int)
 cMGetNumSubMeshes a1 =
@@ -103,7 +101,7 @@   cMGetNumSubMeshes'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetSubMesh :: HG3DClass -> Int -> IO (HG3DClass)
 cMGetSubMesh a1 a2 =
@@ -113,7 +111,7 @@   cMGetSubMesh'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetSubMesh2 :: HG3DClass -> String -> IO (HG3DClass)
 cMGetSubMesh2 a1 a2 =
@@ -123,7 +121,7 @@   cMGetSubMesh2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMDestroySubMesh :: HG3DClass -> Int -> IO ()
 cMDestroySubMesh a1 a2 =
@@ -131,7 +129,7 @@   let {a2' = fromIntegral a2} in 
   cMDestroySubMesh'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMDestroySubMesh2 :: HG3DClass -> String -> IO ()
 cMDestroySubMesh2 a1 a2 =
@@ -139,7 +137,7 @@   withCString a2 $ \a2' -> 
   cMDestroySubMesh2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMClone :: HG3DClass -> String -> String -> IO (SharedPtr)
 cMClone a1 a2 a3 =
@@ -150,7 +148,7 @@   cMClone'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetBoundingSphereRadius :: HG3DClass -> IO (Float)
 cMGetBoundingSphereRadius a1 =
@@ -159,7 +157,7 @@   cMGetBoundingSphereRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMSetBoundingSphereRadius :: HG3DClass -> Float -> IO ()
 cMSetBoundingSphereRadius a1 a2 =
@@ -167,7 +165,7 @@   let {a2' = realToFrac a2} in 
   cMSetBoundingSphereRadius'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMSetSkeletonName :: HG3DClass -> String -> IO ()
 cMSetSkeletonName a1 a2 =
@@ -175,7 +173,7 @@   withCString a2 $ \a2' -> 
   cMSetSkeletonName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMHasSkeleton :: HG3DClass -> IO (Bool)
 cMHasSkeleton a1 =
@@ -184,7 +182,7 @@   cMHasSkeleton'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMHasVertexAnimation :: HG3DClass -> IO (Bool)
 cMHasVertexAnimation a1 =
@@ -193,7 +191,7 @@   cMHasVertexAnimation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetSkeleton :: HG3DClass -> IO (SharedPtr)
 cMGetSkeleton a1 =
@@ -202,7 +200,7 @@   cMGetSkeleton'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetSkeletonName :: HG3DClass -> IO (String)
 cMGetSkeletonName a1 =
@@ -211,14 +209,14 @@   cMGetSkeletonName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMClearBoneAssignments :: HG3DClass -> IO ()
 cMClearBoneAssignments a1 =
   withHG3DClass a1 $ \a1' -> 
   cMClearBoneAssignments'_ a1' >>= \res ->
   return ()
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMNotifySkeleton :: HG3DClass -> IO (SharedPtr)
 cMNotifySkeleton a1 =
@@ -227,7 +225,7 @@   cMNotifySkeleton'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMCreateManualLodLevel :: HG3DClass -> Float -> String -> String -> IO ()
 cMCreateManualLodLevel a1 a2 a3 a4 =
@@ -237,7 +235,7 @@   withCString a4 $ \a4' -> 
   cMCreateManualLodLevel'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMIsLodManual :: HG3DClass -> IO (Bool)
 cMIsLodManual a1 =
@@ -246,7 +244,7 @@   cMIsLodManual'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMSetLodInfo :: HG3DClass -> Int -> Bool -> IO ()
 cMSetLodInfo a1 a2 a3 =
@@ -255,14 +253,14 @@   let {a3' = fromBool a3} in 
   cMSetLodInfo'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMRemoveLodLevels :: HG3DClass -> IO ()
 cMRemoveLodLevels a1 =
   withHG3DClass a1 $ \a1' -> 
   cMRemoveLodLevels'_ a1' >>= \res ->
   return ()
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMIsVertexBufferShadowed :: HG3DClass -> IO (Bool)
 cMIsVertexBufferShadowed a1 =
@@ -271,7 +269,7 @@   cMIsVertexBufferShadowed'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMIsIndexBufferShadowed :: HG3DClass -> IO (Bool)
 cMIsIndexBufferShadowed a1 =
@@ -280,21 +278,21 @@   cMIsIndexBufferShadowed'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMCompileBoneAssignments :: HG3DClass -> IO ()
 cMCompileBoneAssignments a1 =
   withHG3DClass a1 $ \a1' -> 
   cMCompileBoneAssignments'_ a1' >>= \res ->
   return ()
-{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMUpdateCompiledBoneAssignments :: HG3DClass -> IO ()
 cMUpdateCompiledBoneAssignments a1 =
   withHG3DClass a1 $ \a1' -> 
   cMUpdateCompiledBoneAssignments'_ a1' >>= \res ->
   return ()
-{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMBuildTangentVectors :: HG3DClass -> EnumVertexElementSemantic -> Int -> Int -> Bool -> Bool -> Bool -> IO ()
 cMBuildTangentVectors a1 a2 a3 a4 a5 a6 a7 =
@@ -307,28 +305,28 @@   let {a7' = fromBool a7} in 
   cMBuildTangentVectors'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMBuildEdgeList :: HG3DClass -> IO ()
 cMBuildEdgeList a1 =
   withHG3DClass a1 $ \a1' -> 
   cMBuildEdgeList'_ a1' >>= \res ->
   return ()
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMFreeEdgeList :: HG3DClass -> IO ()
 cMFreeEdgeList a1 =
   withHG3DClass a1 $ \a1' -> 
   cMFreeEdgeList'_ a1' >>= \res ->
   return ()
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMPrepareForShadowVolume :: HG3DClass -> IO ()
 cMPrepareForShadowVolume a1 =
   withHG3DClass a1 $ \a1' -> 
   cMPrepareForShadowVolume'_ a1' >>= \res ->
   return ()
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMIsPreparedForShadowVolumes :: HG3DClass -> IO (Bool)
 cMIsPreparedForShadowVolumes a1 =
@@ -337,7 +335,7 @@   cMIsPreparedForShadowVolumes'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMIsEdgeListBuilt :: HG3DClass -> IO (Bool)
 cMIsEdgeListBuilt a1 =
@@ -346,7 +344,7 @@   cMIsEdgeListBuilt'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMSetAutoBuildEdgeLists :: HG3DClass -> Bool -> IO ()
 cMSetAutoBuildEdgeLists a1 a2 =
@@ -354,7 +352,7 @@   let {a2' = fromBool a2} in 
   cMSetAutoBuildEdgeLists'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetAutoBuildEdgeLists :: HG3DClass -> IO (Bool)
 cMGetAutoBuildEdgeLists a1 =
@@ -363,7 +361,7 @@   cMGetAutoBuildEdgeLists'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetSharedVertexDataAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
 cMGetSharedVertexDataAnimationType a1 =
@@ -372,7 +370,7 @@   cMGetSharedVertexDataAnimationType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMCreateAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
 cMCreateAnimation a1 a2 a3 =
@@ -383,7 +381,7 @@   cMCreateAnimation'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetAnimation :: HG3DClass -> String -> IO (HG3DClass)
 cMGetAnimation a1 a2 =
@@ -393,7 +391,7 @@   cMGetAnimation'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetAnimationImpl :: HG3DClass -> String -> IO (HG3DClass)
 cMGetAnimationImpl a1 a2 =
@@ -403,7 +401,7 @@   cMGetAnimationImpl'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMHasAnimation :: HG3DClass -> String -> IO (Bool)
 cMHasAnimation a1 a2 =
@@ -413,7 +411,7 @@   cMHasAnimation'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMRemoveAnimation :: HG3DClass -> String -> IO ()
 cMRemoveAnimation a1 a2 =
@@ -421,7 +419,7 @@   withCString a2 $ \a2' -> 
   cMRemoveAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetNumAnimations :: HG3DClass -> IO (Int)
 cMGetNumAnimations a1 =
@@ -430,7 +428,7 @@   cMGetNumAnimations'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetAnimation2 :: HG3DClass -> Int -> IO (HG3DClass)
 cMGetAnimation2 a1 a2 =
@@ -440,28 +438,28 @@   cMGetAnimation2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMRemoveAllAnimations :: HG3DClass -> IO ()
 cMRemoveAllAnimations a1 =
   withHG3DClass a1 $ \a1' -> 
   cMRemoveAllAnimations'_ a1' >>= \res ->
   return ()
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMUpdateMaterialForAllSubMeshes :: HG3DClass -> IO ()
 cMUpdateMaterialForAllSubMeshes a1 =
   withHG3DClass a1 $ \a1' -> 
   cMUpdateMaterialForAllSubMeshes'_ a1' >>= \res ->
   return ()
-{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMDetermineAnimationTypes :: HG3DClass -> IO ()
 cMDetermineAnimationTypes a1 =
   withHG3DClass a1 $ \a1' -> 
   cMDetermineAnimationTypes'_ a1' >>= \res ->
   return ()
-{-# LINE 250 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 248 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetAnimationTypesDirty :: HG3DClass -> IO (Bool)
 cMGetAnimationTypesDirty a1 =
@@ -470,7 +468,7 @@   cMGetAnimationTypesDirty'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 254 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 252 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMGetPoseCount :: HG3DClass -> IO (Int)
 cMGetPoseCount a1 =
@@ -479,7 +477,7 @@   cMGetPoseCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 256 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMRemovePose2 :: HG3DClass -> String -> IO ()
 cMRemovePose2 a1 a2 =
@@ -487,14 +485,14 @@   withCString a2 $ \a2' -> 
   cMRemovePose2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 260 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 cMRemoveAllPoses :: HG3DClass -> IO ()
 cMRemoveAllPoses a1 =
   withHG3DClass a1 $ \a1' -> 
   cMRemoveAllPoses'_ a1' >>= \res ->
   return ()
-{-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
+{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h cM_createSubMesh_c"
HGamer3D/Bindings/Ogre/ClassMeshSerializer.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
 
 
 cMsImportMesh :: HG3DClass -> HG3DClass -> IO (SharedPtr)
@@ -73,7 +71,7 @@   cMsImportMesh'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshSerializer.chs.h cMs_importMesh_c"
HGamer3D/Bindings/Ogre/ClassMovableObject.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 
 
 cMoNotifyCreator :: HG3DClass -> HG3DClass -> IO ()
@@ -69,7 +67,7 @@   withHG3DClass a2 $ \a2' -> 
   cMoNotifyCreator'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetCreator :: HG3DClass -> IO (HG3DClass)
 cMoGetCreator a1 =
@@ -78,7 +76,7 @@   cMoGetCreator'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoNotifyManager :: HG3DClass -> HG3DClass -> IO ()
 cMoNotifyManager a1 a2 =
@@ -86,7 +84,7 @@   withHG3DClass a2 $ \a2' -> 
   cMoNotifyManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetManager :: HG3DClass -> IO (HG3DClass)
 cMoGetManager a1 =
@@ -95,7 +93,7 @@   cMoGetManager'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetName :: HG3DClass -> IO (String)
 cMoGetName a1 =
@@ -104,7 +102,7 @@   cMoGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetMovableType :: HG3DClass -> IO (String)
 cMoGetMovableType a1 =
@@ -113,7 +111,7 @@   cMoGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetParentNode :: HG3DClass -> IO (HG3DClass)
 cMoGetParentNode a1 =
@@ -122,7 +120,7 @@   cMoGetParentNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetParentSceneNode :: HG3DClass -> IO (HG3DClass)
 cMoGetParentSceneNode a1 =
@@ -131,7 +129,7 @@   cMoGetParentSceneNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoIsParentTagPoint :: HG3DClass -> IO (Bool)
 cMoIsParentTagPoint a1 =
@@ -140,7 +138,7 @@   cMoIsParentTagPoint'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoNotifyAttached :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cMoNotifyAttached a1 a2 a3 =
@@ -149,7 +147,7 @@   let {a3' = fromBool a3} in 
   cMoNotifyAttached'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoIsAttached :: HG3DClass -> IO (Bool)
 cMoIsAttached a1 =
@@ -158,14 +156,14 @@   cMoIsAttached'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoDetachFromParent :: HG3DClass -> IO ()
 cMoDetachFromParent a1 =
   withHG3DClass a1 $ \a1' -> 
   cMoDetachFromParent'_ a1' >>= \res ->
   return ()
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoIsInScene :: HG3DClass -> IO (Bool)
 cMoIsInScene a1 =
@@ -174,14 +172,14 @@   cMoIsInScene'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoNotifyMoved :: HG3DClass -> IO ()
 cMoNotifyMoved a1 =
   withHG3DClass a1 $ \a1' -> 
   cMoNotifyMoved'_ a1' >>= \res ->
   return ()
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoNotifyCurrentCamera :: HG3DClass -> HG3DClass -> IO ()
 cMoNotifyCurrentCamera a1 a2 =
@@ -189,7 +187,7 @@   withHG3DClass a2 $ \a2' -> 
   cMoNotifyCurrentCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetBoundingRadius :: HG3DClass -> IO (Float)
 cMoGetBoundingRadius a1 =
@@ -198,7 +196,7 @@   cMoGetBoundingRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetVisible :: HG3DClass -> Bool -> IO ()
 cMoSetVisible a1 a2 =
@@ -206,7 +204,7 @@   let {a2' = fromBool a2} in 
   cMoSetVisible'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetVisible :: HG3DClass -> IO (Bool)
 cMoGetVisible a1 =
@@ -215,7 +213,7 @@   cMoGetVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoIsVisible :: HG3DClass -> IO (Bool)
 cMoIsVisible a1 =
@@ -224,7 +222,7 @@   cMoIsVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetRenderingDistance :: HG3DClass -> Float -> IO ()
 cMoSetRenderingDistance a1 a2 =
@@ -232,7 +230,7 @@   let {a2' = realToFrac a2} in 
   cMoSetRenderingDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetRenderingDistance :: HG3DClass -> IO (Float)
 cMoGetRenderingDistance a1 =
@@ -241,7 +239,7 @@   cMoGetRenderingDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetQueryFlags :: HG3DClass -> Int -> IO ()
 cMoSetQueryFlags a1 a2 =
@@ -249,7 +247,7 @@   let {a2' = fromIntegral a2} in 
   cMoSetQueryFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoAddQueryFlags :: HG3DClass -> Int -> IO ()
 cMoAddQueryFlags a1 a2 =
@@ -257,7 +255,7 @@   let {a2' = fromIntegral a2} in 
   cMoAddQueryFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoRemoveQueryFlags :: HG3DClass -> Int -> IO ()
 cMoRemoveQueryFlags a1 a2 =
@@ -265,7 +263,7 @@   let {a2' = fromIntegral a2} in 
   cMoRemoveQueryFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetQueryFlags :: HG3DClass -> IO (Int)
 cMoGetQueryFlags a1 =
@@ -274,7 +272,7 @@   cMoGetQueryFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetVisibilityFlags :: HG3DClass -> Int -> IO ()
 cMoSetVisibilityFlags a1 a2 =
@@ -282,7 +280,7 @@   let {a2' = fromIntegral a2} in 
   cMoSetVisibilityFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoAddVisibilityFlags :: HG3DClass -> Int -> IO ()
 cMoAddVisibilityFlags a1 a2 =
@@ -290,7 +288,7 @@   let {a2' = fromIntegral a2} in 
   cMoAddVisibilityFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoRemoveVisibilityFlags :: HG3DClass -> Int -> IO ()
 cMoRemoveVisibilityFlags a1 a2 =
@@ -298,7 +296,7 @@   let {a2' = fromIntegral a2} in 
   cMoRemoveVisibilityFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetVisibilityFlags :: HG3DClass -> IO (Int)
 cMoGetVisibilityFlags a1 =
@@ -307,7 +305,7 @@   cMoGetVisibilityFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetLightMask :: HG3DClass -> IO (Int)
 cMoGetLightMask a1 =
@@ -316,7 +314,7 @@   cMoGetLightMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetLightMask :: HG3DClass -> Int -> IO ()
 cMoSetLightMask a1 a2 =
@@ -324,7 +322,7 @@   let {a2' = fromIntegral a2} in 
   cMoSetLightMask'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoHasEdgeList :: HG3DClass -> IO (Bool)
 cMoHasEdgeList a1 =
@@ -333,7 +331,7 @@   cMoHasEdgeList'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetCastShadows :: HG3DClass -> Bool -> IO ()
 cMoSetCastShadows a1 a2 =
@@ -341,7 +339,7 @@   let {a2' = fromBool a2} in 
   cMoSetCastShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetCastShadows :: HG3DClass -> IO (Bool)
 cMoGetCastShadows a1 =
@@ -350,7 +348,7 @@   cMoGetCastShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetReceivesShadows :: HG3DClass -> IO (Bool)
 cMoGetReceivesShadows a1 =
@@ -359,7 +357,7 @@   cMoGetReceivesShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoGetTypeFlags :: HG3DClass -> IO (Int)
 cMoGetTypeFlags a1 =
@@ -368,7 +366,7 @@   cMoGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoSetDebugDisplayEnabled :: HG3DClass -> Bool -> IO ()
 cMoSetDebugDisplayEnabled a1 a2 =
@@ -376,7 +374,7 @@   let {a2' = fromBool a2} in 
   cMoSetDebugDisplayEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 cMoIsDebugDisplayEnabled :: HG3DClass -> IO (Bool)
 cMoIsDebugDisplayEnabled a1 =
@@ -385,7 +383,7 @@   cMoIsDebugDisplayEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h cMo__notifyCreator_c"
HGamer3D/Bindings/Ogre/ClassMovableObjectFactory.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 
 
 cMofGetType :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cMofGetType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 ;
 cMofDestroyInstance :: HG3DClass -> HG3DClass -> IO ()
 cMofDestroyInstance a1 a2 =
@@ -78,7 +76,7 @@   withHG3DClass a2 $ \a2' -> 
   cMofDestroyInstance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 ;
 cMofRequestTypeFlags :: HG3DClass -> IO (Bool)
 cMofRequestTypeFlags a1 =
@@ -87,7 +85,7 @@   cMofRequestTypeFlags'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 ;
 cMofGetTypeFlags :: HG3DClass -> IO (Int)
 cMofGetTypeFlags a1 =
@@ -96,7 +94,7 @@   cMofGetTypeFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h cMof_getType_c"
HGamer3D/Bindings/Ogre/ClassMultiRenderTarget.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 
 
 cMrtBindSurface :: HG3DClass -> Int -> HG3DClass -> IO ()
@@ -72,7 +70,7 @@   withHG3DClass a3 $ \a3' -> 
   cMrtBindSurface'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 ;
 cMrtUnbindSurface :: HG3DClass -> Int -> IO ()
 cMrtUnbindSurface a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromIntegral a2} in 
   cMrtUnbindSurface'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 ;
 cMrtSuggestPixelFormat :: HG3DClass -> IO (EnumPixelFormat)
 cMrtSuggestPixelFormat a1 =
@@ -89,7 +87,7 @@   cMrtSuggestPixelFormat'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs.h cMrt_bindSurface_c"
HGamer3D/Bindings/Ogre/ClassNode.hs view
@@ -51,24 +51,22 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTransformSpace
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 
 
 cNGetName :: HG3DClass -> IO (String)
@@ -78,7 +76,7 @@   cNGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetParent :: HG3DClass -> IO (HG3DClass)
 cNGetParent a1 =
@@ -87,7 +85,7 @@   cNGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetOrientation :: HG3DClass -> IO (Quaternion)
 cNGetOrientation a1 =
@@ -96,7 +94,7 @@   cNGetOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetOrientation :: HG3DClass -> Quaternion -> IO ()
 cNSetOrientation a1 a2 =
@@ -104,7 +102,7 @@   withQuaternion a2 $ \a2' -> 
   cNSetOrientation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetOrientation2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cNSetOrientation2 a1 a2 a3 a4 a5 =
@@ -115,14 +113,14 @@   let {a5' = realToFrac a5} in 
   cNSetOrientation2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNResetOrientation :: HG3DClass -> IO ()
 cNResetOrientation a1 =
   withHG3DClass a1 $ \a1' -> 
   cNResetOrientation'_ a1' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetPosition :: HG3DClass -> Vector3 -> IO ()
 cNSetPosition a1 a2 =
@@ -130,7 +128,7 @@   withVector3 a2 $ \a2' -> 
   cNSetPosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetPosition2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cNSetPosition2 a1 a2 a3 a4 =
@@ -140,7 +138,7 @@   let {a4' = realToFrac a4} in 
   cNSetPosition2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetPosition :: HG3DClass -> IO (Vector3)
 cNGetPosition a1 =
@@ -149,7 +147,7 @@   cNGetPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetScale :: HG3DClass -> Vector3 -> IO ()
 cNSetScale a1 a2 =
@@ -157,7 +155,7 @@   withVector3 a2 $ \a2' -> 
   cNSetScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetScale2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cNSetScale2 a1 a2 a3 a4 =
@@ -167,7 +165,7 @@   let {a4' = realToFrac a4} in 
   cNSetScale2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetScale :: HG3DClass -> IO (Vector3)
 cNGetScale a1 =
@@ -176,7 +174,7 @@   cNGetScale'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetInheritOrientation :: HG3DClass -> Bool -> IO ()
 cNSetInheritOrientation a1 a2 =
@@ -184,7 +182,7 @@   let {a2' = fromBool a2} in 
   cNSetInheritOrientation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetInheritOrientation :: HG3DClass -> IO (Bool)
 cNGetInheritOrientation a1 =
@@ -193,7 +191,7 @@   cNGetInheritOrientation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetInheritScale :: HG3DClass -> Bool -> IO ()
 cNSetInheritScale a1 a2 =
@@ -201,7 +199,7 @@   let {a2' = fromBool a2} in 
   cNSetInheritScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetInheritScale :: HG3DClass -> IO (Bool)
 cNGetInheritScale a1 =
@@ -210,7 +208,7 @@   cNGetInheritScale'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNScale :: HG3DClass -> Vector3 -> IO ()
 cNScale a1 a2 =
@@ -218,7 +216,7 @@   withVector3 a2 $ \a2' -> 
   cNScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNScale2 :: HG3DClass -> Float -> Float -> Float -> IO ()
 cNScale2 a1 a2 a3 a4 =
@@ -228,7 +226,7 @@   let {a4' = realToFrac a4} in 
   cNScale2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNTranslate :: HG3DClass -> Vector3 -> EnumTransformSpace -> IO ()
 cNTranslate a1 a2 a3 =
@@ -237,7 +235,7 @@   let {a3' = cIntFromEnum a3} in 
   cNTranslate'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNTranslate2 :: HG3DClass -> Float -> Float -> Float -> EnumTransformSpace -> IO ()
 cNTranslate2 a1 a2 a3 a4 a5 =
@@ -248,44 +246,44 @@   let {a5' = cIntFromEnum a5} in 
   cNTranslate2'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
-cNRoll :: HG3DClass -> Radian -> EnumTransformSpace -> IO ()
+cNRoll :: HG3DClass -> Radians -> EnumTransformSpace -> IO ()
 cNRoll a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   let {a3' = cIntFromEnum a3} in 
   cNRoll'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
-cNPitch :: HG3DClass -> Radian -> EnumTransformSpace -> IO ()
+cNPitch :: HG3DClass -> Radians -> EnumTransformSpace -> IO ()
 cNPitch a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   let {a3' = cIntFromEnum a3} in 
   cNPitch'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
-cNYaw :: HG3DClass -> Radian -> EnumTransformSpace -> IO ()
+cNYaw :: HG3DClass -> Radians -> EnumTransformSpace -> IO ()
 cNYaw a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   let {a3' = cIntFromEnum a3} in 
   cNYaw'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
-cNRotate :: HG3DClass -> Vector3 -> Radian -> EnumTransformSpace -> IO ()
+cNRotate :: HG3DClass -> Vector3 -> Radians -> EnumTransformSpace -> IO ()
 cNRotate a1 a2 a3 a4 =
   withHG3DClass a1 $ \a1' -> 
   withVector3 a2 $ \a2' -> 
-  withRadian a3 $ \a3' -> 
+  withRadians a3 $ \a3' -> 
   let {a4' = cIntFromEnum a4} in 
   cNRotate'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRotate2 :: HG3DClass -> Quaternion -> EnumTransformSpace -> IO ()
 cNRotate2 a1 a2 a3 =
@@ -294,7 +292,7 @@   let {a3' = cIntFromEnum a3} in 
   cNRotate2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNCreateChild :: HG3DClass -> Vector3 -> Quaternion -> IO (HG3DClass)
 cNCreateChild a1 a2 a3 =
@@ -305,7 +303,7 @@   cNCreateChild'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNCreateChild2 :: HG3DClass -> String -> Vector3 -> Quaternion -> IO (HG3DClass)
 cNCreateChild2 a1 a2 a3 a4 =
@@ -317,7 +315,7 @@   cNCreateChild2'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNAddChild :: HG3DClass -> HG3DClass -> IO ()
 cNAddChild a1 a2 =
@@ -325,7 +323,7 @@   withHG3DClass a2 $ \a2' -> 
   cNAddChild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNNumChildren :: HG3DClass -> IO (Int)
 cNNumChildren a1 =
@@ -334,7 +332,7 @@   cNNumChildren'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetChild :: HG3DClass -> Int -> IO (HG3DClass)
 cNGetChild a1 a2 =
@@ -344,7 +342,7 @@   cNGetChild'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetChild2 :: HG3DClass -> String -> IO (HG3DClass)
 cNGetChild2 a1 a2 =
@@ -354,7 +352,7 @@   cNGetChild2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRemoveChild :: HG3DClass -> Int -> IO (HG3DClass)
 cNRemoveChild a1 a2 =
@@ -364,7 +362,7 @@   cNRemoveChild'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRemoveChild2 :: HG3DClass -> HG3DClass -> IO (HG3DClass)
 cNRemoveChild2 a1 a2 =
@@ -374,7 +372,7 @@   cNRemoveChild2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 219 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRemoveChild3 :: HG3DClass -> String -> IO (HG3DClass)
 cNRemoveChild3 a1 a2 =
@@ -384,14 +382,14 @@   cNRemoveChild3'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRemoveAllChildren :: HG3DClass -> IO ()
 cNRemoveAllChildren a1 =
   withHG3DClass a1 $ \a1' -> 
   cNRemoveAllChildren'_ a1' >>= \res ->
   return ()
-{-# LINE 229 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 227 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetDerivedPosition :: HG3DClass -> Vector3 -> IO ()
 cNSetDerivedPosition a1 a2 =
@@ -399,7 +397,7 @@   withVector3 a2 $ \a2' -> 
   cNSetDerivedPosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 233 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetDerivedOrientation :: HG3DClass -> Quaternion -> IO ()
 cNSetDerivedOrientation a1 a2 =
@@ -407,7 +405,7 @@   withQuaternion a2 $ \a2' -> 
   cNSetDerivedOrientation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 237 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 235 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetDerivedOrientation :: HG3DClass -> IO (Quaternion)
 cNGetDerivedOrientation a1 =
@@ -416,7 +414,7 @@   cNGetDerivedOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetDerivedPosition :: HG3DClass -> IO (Vector3)
 cNGetDerivedPosition a1 =
@@ -425,7 +423,7 @@   cNGetDerivedPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetDerivedScale :: HG3DClass -> IO (Vector3)
 cNGetDerivedScale a1 =
@@ -434,7 +432,7 @@   cNGetDerivedScale'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNUpdate :: HG3DClass -> Bool -> Bool -> IO ()
 cNUpdate a1 a2 a3 =
@@ -443,21 +441,21 @@   let {a3' = fromBool a3} in 
   cNUpdate'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 254 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 252 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNSetInitialState :: HG3DClass -> IO ()
 cNSetInitialState a1 =
   withHG3DClass a1 $ \a1' -> 
   cNSetInitialState'_ a1' >>= \res ->
   return ()
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNResetToInitialState :: HG3DClass -> IO ()
 cNResetToInitialState a1 =
   withHG3DClass a1 $ \a1' -> 
   cNResetToInitialState'_ a1' >>= \res ->
   return ()
-{-# LINE 260 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetInitialPosition :: HG3DClass -> IO (Vector3)
 cNGetInitialPosition a1 =
@@ -466,7 +464,7 @@   cNGetInitialPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNConvertWorldToLocalPosition :: HG3DClass -> Vector3 -> IO (Vector3)
 cNConvertWorldToLocalPosition a1 a2 =
@@ -476,7 +474,7 @@   cNConvertWorldToLocalPosition'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNConvertLocalToWorldPosition :: HG3DClass -> Vector3 -> IO (Vector3)
 cNConvertLocalToWorldPosition a1 a2 =
@@ -486,7 +484,7 @@   cNConvertLocalToWorldPosition'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 274 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNConvertWorldToLocalOrientation :: HG3DClass -> Quaternion -> IO (Quaternion)
 cNConvertWorldToLocalOrientation a1 a2 =
@@ -496,7 +494,7 @@   cNConvertWorldToLocalOrientation'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 279 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNConvertLocalToWorldOrientation :: HG3DClass -> Quaternion -> IO (Quaternion)
 cNConvertLocalToWorldOrientation a1 a2 =
@@ -506,7 +504,7 @@   cNConvertLocalToWorldOrientation'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 284 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 282 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetInitialOrientation :: HG3DClass -> IO (Quaternion)
 cNGetInitialOrientation a1 =
@@ -515,7 +513,7 @@   cNGetInitialOrientation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 288 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 286 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNGetInitialScale :: HG3DClass -> IO (Vector3)
 cNGetInitialScale a1 =
@@ -524,7 +522,7 @@   cNGetInitialScale'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 292 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 290 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNNeedUpdate :: HG3DClass -> Bool -> IO ()
 cNNeedUpdate a1 a2 =
@@ -532,7 +530,7 @@   let {a2' = fromBool a2} in 
   cNNeedUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 296 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 294 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNRequestUpdate :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cNRequestUpdate a1 a2 a3 =
@@ -541,7 +539,7 @@   let {a3' = fromBool a3} in 
   cNRequestUpdate'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 301 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 cNCancelUpdate :: HG3DClass -> HG3DClass -> IO ()
 cNCancelUpdate a1 a2 =
@@ -549,7 +547,7 @@   withHG3DClass a2 $ \a2' -> 
   cNCancelUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 305 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
+{-# LINE 303 "HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_getName_c"
@@ -613,16 +611,16 @@   cNTranslate2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_roll_c"
-  cNRoll'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (CInt -> (IO ()))))
+  cNRoll'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_pitch_c"
-  cNPitch'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (CInt -> (IO ()))))
+  cNPitch'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_yaw_c"
-  cNYaw'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (CInt -> (IO ()))))
+  cNYaw'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_rotate_c"
-  cNRotate'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((RadianPtr) -> (CInt -> (IO ())))))
+  cNRotate'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> ((RadiansPtr) -> (CInt -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h cN_rotate2_c"
   cNRotate2'_ :: ((HG3DClassPtr) -> ((QuaternionPtr) -> (CInt -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassNodeAnimationTrack.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 
 
 cNoantCreateNodeKeyFrame :: HG3DClass -> Float -> IO (HG3DClass)
@@ -71,7 +69,7 @@   cNoantCreateNodeKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantGetAssociatedNode :: HG3DClass -> IO (HG3DClass)
 cNoantGetAssociatedNode a1 =
@@ -80,7 +78,7 @@   cNoantGetAssociatedNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantSetAssociatedNode :: HG3DClass -> HG3DClass -> IO ()
 cNoantSetAssociatedNode a1 a2 =
@@ -88,7 +86,7 @@   withHG3DClass a2 $ \a2' -> 
   cNoantSetAssociatedNode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantSetUseShortestRotationPath :: HG3DClass -> Bool -> IO ()
 cNoantSetUseShortestRotationPath a1 a2 =
@@ -96,7 +94,7 @@   let {a2' = fromBool a2} in 
   cNoantSetUseShortestRotationPath'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantGetUseShortestRotationPath :: HG3DClass -> IO (Bool)
 cNoantGetUseShortestRotationPath a1 =
@@ -105,14 +103,14 @@   cNoantGetUseShortestRotationPath'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantKeyFrameDataChanged :: HG3DClass -> IO ()
 cNoantKeyFrameDataChanged a1 =
   withHG3DClass a1 $ \a1' -> 
   cNoantKeyFrameDataChanged'_ a1' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantGetNodeKeyFrame :: HG3DClass -> Int -> IO (HG3DClass)
 cNoantGetNodeKeyFrame a1 a2 =
@@ -122,7 +120,7 @@   cNoantGetNodeKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantHasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
 cNoantHasNonZeroKeyFrames a1 =
@@ -131,14 +129,14 @@   cNoantHasNonZeroKeyFrames'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 cNoantOptimise :: HG3DClass -> IO ()
 cNoantOptimise a1 =
   withHG3DClass a1 $ \a1' -> 
   cNoantOptimise'_ a1' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h cNoant_createNodeKeyFrame_c"
HGamer3D/Bindings/Ogre/ClassNumericAnimationTrack.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
 
 
 cNuantCreateNumericKeyFrame :: HG3DClass -> Float -> IO (HG3DClass)
@@ -71,7 +69,7 @@   cNuantCreateNumericKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
 ;
 cNuantGetNumericKeyFrame :: HG3DClass -> Int -> IO (HG3DClass)
 cNuantGetNumericKeyFrame a1 a2 =
@@ -81,7 +79,7 @@   cNuantGetNumericKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs.h cNuant_createNumericKeyFrame_c"
HGamer3D/Bindings/Ogre/ClassNumericKeyFrame.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassNumericKeyFrame.chs" #-}
HGamer3D/Bindings/Ogre/ClassOverlay.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 
 
 cOGetName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cOGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOIsVisible :: HG3DClass -> IO (Bool)
 cOIsVisible a1 =
@@ -81,7 +79,7 @@   cOIsVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOIsInitialised :: HG3DClass -> IO (Bool)
 cOIsInitialised a1 =
@@ -90,21 +88,21 @@   cOIsInitialised'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOShow :: HG3DClass -> IO ()
 cOShow a1 =
   withHG3DClass a1 $ \a1' -> 
   cOShow'_ a1' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOHide :: HG3DClass -> IO ()
 cOHide a1 =
   withHG3DClass a1 $ \a1' -> 
   cOHide'_ a1' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOAdd2D :: HG3DClass -> HG3DClass -> IO ()
 cOAdd2D a1 a2 =
@@ -112,7 +110,7 @@   withHG3DClass a2 $ \a2' -> 
   cOAdd2D'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cORemove2D :: HG3DClass -> HG3DClass -> IO ()
 cORemove2D a1 a2 =
@@ -120,7 +118,7 @@   withHG3DClass a2 $ \a2' -> 
   cORemove2D'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOAdd3D :: HG3DClass -> HG3DClass -> IO ()
 cOAdd3D a1 a2 =
@@ -128,7 +126,7 @@   withHG3DClass a2 $ \a2' -> 
   cOAdd3D'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cORemove3D :: HG3DClass -> HG3DClass -> IO ()
 cORemove3D a1 a2 =
@@ -136,14 +134,14 @@   withHG3DClass a2 $ \a2' -> 
   cORemove3D'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOClear :: HG3DClass -> IO ()
 cOClear a1 =
   withHG3DClass a1 $ \a1' -> 
   cOClear'_ a1' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOSetScroll :: HG3DClass -> Float -> Float -> IO ()
 cOSetScroll a1 a2 a3 =
@@ -152,7 +150,7 @@   let {a3' = realToFrac a3} in 
   cOSetScroll'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOGetScrollX :: HG3DClass -> IO (Float)
 cOGetScrollX a1 =
@@ -161,7 +159,7 @@   cOGetScrollX'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOGetScrollY :: HG3DClass -> IO (Float)
 cOGetScrollY a1 =
@@ -170,7 +168,7 @@   cOGetScrollY'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOScroll :: HG3DClass -> Float -> Float -> IO ()
 cOScroll a1 a2 a3 =
@@ -179,32 +177,32 @@   let {a3' = realToFrac a3} in 
   cOScroll'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
-cOSetRotate :: HG3DClass -> Radian -> IO ()
+cOSetRotate :: HG3DClass -> Radians -> IO ()
 cOSetRotate a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cOSetRotate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
-cOGetRotate :: HG3DClass -> IO (Radian)
+cOGetRotate :: HG3DClass -> IO (Radians)
 cOGetRotate a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cOGetRotate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
-cORotate :: HG3DClass -> Radian -> IO ()
+cORotate :: HG3DClass -> Radians -> IO ()
 cORotate a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cORotate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOSetScale :: HG3DClass -> Float -> Float -> IO ()
 cOSetScale a1 a2 a3 =
@@ -213,7 +211,7 @@   let {a3' = realToFrac a3} in 
   cOSetScale'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOGetScaleX :: HG3DClass -> IO (Float)
 cOGetScaleX a1 =
@@ -222,7 +220,7 @@   cOGetScaleX'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOGetScaleY :: HG3DClass -> IO (Float)
 cOGetScaleY a1 =
@@ -231,7 +229,7 @@   cOGetScaleY'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cOGetOrigin :: HG3DClass -> IO (String)
 cOGetOrigin a1 =
@@ -240,7 +238,7 @@   cOGetOrigin'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 cONotifyOrigin :: HG3DClass -> String -> IO ()
 cONotifyOrigin a1 a2 =
@@ -248,7 +246,7 @@   withCString a2 $ \a2' -> 
   cONotifyOrigin'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs.h cO_getName_c"
@@ -294,13 +292,13 @@   cOScroll'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs.h cO_setRotate_c"
-  cOSetRotate'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cOSetRotate'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs.h cO_getRotate_c"
-  cOGetRotate'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cOGetRotate'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs.h cO_rotate_c"
-  cORotate'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cORotate'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlay.chs.h cO_setScale_c"
   cOSetScale'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassOverlayContainer.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 
 
 cOcAddChildImpl2 :: HG3DClass -> HG3DClass -> IO ()
@@ -69,7 +67,7 @@   withHG3DClass a2 $ \a2' -> 
   cOcAddChildImpl2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcRemoveChild :: HG3DClass -> String -> IO ()
 cOcRemoveChild a1 a2 =
@@ -77,35 +75,35 @@   withCString a2 $ \a2' -> 
   cOcRemoveChild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcInitialise :: HG3DClass -> IO ()
 cOcInitialise a1 =
   withHG3DClass a1 $ \a1' -> 
   cOcInitialise'_ a1' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcPositionsOutOfDate :: HG3DClass -> IO ()
 cOcPositionsOutOfDate a1 =
   withHG3DClass a1 $ \a1' -> 
   cOcPositionsOutOfDate'_ a1' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcUpdate :: HG3DClass -> IO ()
 cOcUpdate a1 =
   withHG3DClass a1 $ \a1' -> 
   cOcUpdate'_ a1' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcNotifyViewport :: HG3DClass -> IO ()
 cOcNotifyViewport a1 =
   withHG3DClass a1 $ \a1' -> 
   cOcNotifyViewport'_ a1' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 cOcNotifyParent :: HG3DClass -> HG3DClass -> HG3DClass -> IO ()
 cOcNotifyParent a1 a2 a3 =
@@ -114,7 +112,7 @@   withHG3DClass a3 $ \a3' -> 
   cOcNotifyParent'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlayContainer.chs.h cOc_addChildImpl2_c"
HGamer3D/Bindings/Ogre/ClassOverlayManager.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumOrientationMode
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 
 
 cOmParseScript :: HG3DClass -> String -> IO (SharedPtr)
@@ -75,7 +73,7 @@   cOmParseScript'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmGetLoadingOrder :: HG3DClass -> IO (Float)
 cOmGetLoadingOrder a1 =
@@ -84,7 +82,7 @@   cOmGetLoadingOrder'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmCreate :: HG3DClass -> String -> IO (HG3DClass)
 cOmCreate a1 a2 =
@@ -94,7 +92,7 @@   cOmCreate'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmGetByName :: HG3DClass -> String -> IO (HG3DClass)
 cOmGetByName a1 a2 =
@@ -104,7 +102,7 @@   cOmGetByName'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmDestroy :: HG3DClass -> String -> IO ()
 cOmDestroy a1 a2 =
@@ -112,7 +110,7 @@   withCString a2 $ \a2' -> 
   cOmDestroy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmDestroy2 :: HG3DClass -> HG3DClass -> IO ()
 cOmDestroy2 a1 a2 =
@@ -120,14 +118,14 @@   withHG3DClass a2 $ \a2' -> 
   cOmDestroy2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmDestroyAll :: HG3DClass -> IO ()
 cOmDestroyAll a1 =
   withHG3DClass a1 $ \a1' -> 
   cOmDestroyAll'_ a1' >>= \res ->
   return ()
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmHasViewportChanged :: HG3DClass -> IO (Bool)
 cOmHasViewportChanged a1 =
@@ -136,7 +134,7 @@   cOmHasViewportChanged'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmGetViewportHeight :: HG3DClass -> IO (Int)
 cOmGetViewportHeight a1 =
@@ -145,7 +143,7 @@   cOmGetViewportHeight'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmGetViewportWidth :: HG3DClass -> IO (Int)
 cOmGetViewportWidth a1 =
@@ -154,7 +152,7 @@   cOmGetViewportWidth'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmGetViewportOrientationMode :: HG3DClass -> IO (EnumOrientationMode)
 cOmGetViewportOrientationMode a1 =
@@ -163,7 +161,7 @@   cOmGetViewportOrientationMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmHasOverlayElement :: HG3DClass -> String -> Bool -> IO (Bool)
 cOmHasOverlayElement a1 a2 a3 =
@@ -174,7 +172,7 @@   cOmHasOverlayElement'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmDestroyOverlayElement :: HG3DClass -> String -> Bool -> IO ()
 cOmDestroyOverlayElement a1 a2 a3 =
@@ -183,7 +181,7 @@   let {a3' = fromBool a3} in 
   cOmDestroyOverlayElement'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 cOmDestroyAllOverlayElements :: HG3DClass -> Bool -> IO ()
 cOmDestroyAllOverlayElements a1 a2 =
@@ -191,7 +189,7 @@   let {a2' = fromBool a2} in 
   cOmDestroyAllOverlayElements'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
+{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassOverlayManager.chs.h cOm_parseScript_c"
HGamer3D/Bindings/Ogre/ClassPSSMShadowCameraSetup.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 
 
 cPssmscsCalculateSplitPoints :: HG3DClass -> Int -> Float -> Float -> Float -> IO ()
@@ -72,7 +70,7 @@   let {a5' = realToFrac a5} in 
   cPssmscsCalculateSplitPoints'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 cPssmscsSetOptimalAdjustFactor :: HG3DClass -> Int -> Float -> IO ()
 cPssmscsSetOptimalAdjustFactor a1 a2 a3 =
@@ -81,7 +79,7 @@   let {a3' = realToFrac a3} in 
   cPssmscsSetOptimalAdjustFactor'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 cPssmscsSetSplitPadding :: HG3DClass -> Float -> IO ()
 cPssmscsSetSplitPadding a1 a2 =
@@ -89,7 +87,7 @@   let {a2' = realToFrac a2} in 
   cPssmscsSetSplitPadding'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 cPssmscsGetSplitPadding :: HG3DClass -> IO (Float)
 cPssmscsGetSplitPadding a1 =
@@ -98,7 +96,7 @@   cPssmscsGetSplitPadding'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 cPssmscsGetSplitCount :: HG3DClass -> IO (Int)
 cPssmscsGetSplitCount a1 =
@@ -107,7 +105,7 @@   cPssmscsGetSplitCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 cPssmscsGetOptimalAdjustFactor2 :: HG3DClass -> IO (Float)
 cPssmscsGetOptimalAdjustFactor2 a1 =
@@ -116,7 +114,7 @@   cPssmscsGetOptimalAdjustFactor2'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPSSMShadowCameraSetup.chs.h cPssmscs_calculateSplitPoints_c"
HGamer3D/Bindings/Ogre/ClassParticleAffector.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
 
 
 cPaGetType :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cPaGetType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleAffector.chs.h cPa_getType_c"
HGamer3D/Bindings/Ogre/ClassParticleEmitter.hs view
@@ -51,22 +51,20 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 
 
 cPeSetPosition :: HG3DClass -> Vector3 -> IO ()
@@ -75,7 +73,7 @@   withVector3 a2 $ \a2' -> 
   cPeSetPosition'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetPosition :: HG3DClass -> IO (Vector3)
 cPeGetPosition a1 =
@@ -84,7 +82,7 @@   cPeGetPosition'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetDirection :: HG3DClass -> Vector3 -> IO ()
 cPeSetDirection a1 a2 =
@@ -92,7 +90,7 @@   withVector3 a2 $ \a2' -> 
   cPeSetDirection'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetDirection :: HG3DClass -> IO (Vector3)
 cPeGetDirection a1 =
@@ -101,24 +99,24 @@   cPeGetDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeSetAngle :: HG3DClass -> Radian -> IO ()
+cPeSetAngle :: HG3DClass -> Radians -> IO ()
 cPeSetAngle a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cPeSetAngle'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeGetAngle :: HG3DClass -> IO (Radian)
+cPeGetAngle :: HG3DClass -> IO (Radians)
 cPeGetAngle a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPeGetAngle'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetParticleVelocity :: HG3DClass -> Float -> IO ()
 cPeSetParticleVelocity a1 a2 =
@@ -126,7 +124,7 @@   let {a2' = realToFrac a2} in 
   cPeSetParticleVelocity'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetParticleVelocity2 :: HG3DClass -> Float -> Float -> IO ()
 cPeSetParticleVelocity2 a1 a2 a3 =
@@ -135,7 +133,7 @@   let {a3' = realToFrac a3} in 
   cPeSetParticleVelocity2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMinParticleVelocity :: HG3DClass -> Float -> IO ()
 cPeSetMinParticleVelocity a1 a2 =
@@ -143,7 +141,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMinParticleVelocity'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMaxParticleVelocity :: HG3DClass -> Float -> IO ()
 cPeSetMaxParticleVelocity a1 a2 =
@@ -151,7 +149,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMaxParticleVelocity'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetParticleVelocity :: HG3DClass -> IO (Float)
 cPeGetParticleVelocity a1 =
@@ -160,7 +158,7 @@   cPeGetParticleVelocity'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMinParticleVelocity :: HG3DClass -> IO (Float)
 cPeGetMinParticleVelocity a1 =
@@ -169,7 +167,7 @@   cPeGetMinParticleVelocity'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMaxParticleVelocity :: HG3DClass -> IO (Float)
 cPeGetMaxParticleVelocity a1 =
@@ -178,7 +176,7 @@   cPeGetMaxParticleVelocity'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetEmissionRate :: HG3DClass -> Float -> IO ()
 cPeSetEmissionRate a1 a2 =
@@ -186,7 +184,7 @@   let {a2' = realToFrac a2} in 
   cPeSetEmissionRate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetEmissionRate :: HG3DClass -> IO (Float)
 cPeGetEmissionRate a1 =
@@ -195,7 +193,7 @@   cPeGetEmissionRate'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetTimeToLive :: HG3DClass -> Float -> IO ()
 cPeSetTimeToLive a1 a2 =
@@ -203,7 +201,7 @@   let {a2' = realToFrac a2} in 
   cPeSetTimeToLive'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetTimeToLive2 :: HG3DClass -> Float -> Float -> IO ()
 cPeSetTimeToLive2 a1 a2 a3 =
@@ -212,7 +210,7 @@   let {a3' = realToFrac a3} in 
   cPeSetTimeToLive2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMinTimeToLive :: HG3DClass -> Float -> IO ()
 cPeSetMinTimeToLive a1 a2 =
@@ -220,7 +218,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMinTimeToLive'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMaxTimeToLive :: HG3DClass -> Float -> IO ()
 cPeSetMaxTimeToLive a1 a2 =
@@ -228,7 +226,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMaxTimeToLive'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetTimeToLive :: HG3DClass -> IO (Float)
 cPeGetTimeToLive a1 =
@@ -237,7 +235,7 @@   cPeGetTimeToLive'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMinTimeToLive :: HG3DClass -> IO (Float)
 cPeGetMinTimeToLive a1 =
@@ -246,7 +244,7 @@   cPeGetMinTimeToLive'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMaxTimeToLive :: HG3DClass -> IO (Float)
 cPeGetMaxTimeToLive a1 =
@@ -255,67 +253,67 @@   cPeGetMaxTimeToLive'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeSetColour :: HG3DClass -> ColourValue -> IO ()
+cPeSetColour :: HG3DClass -> Colour -> IO ()
 cPeSetColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPeSetColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeSetColour2 :: HG3DClass -> ColourValue -> ColourValue -> IO ()
+cPeSetColour2 :: HG3DClass -> Colour -> Colour -> IO ()
 cPeSetColour2 a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
-  withColourValue a3 $ \a3' -> 
+  withColour a2 $ \a2' -> 
+  withColour a3 $ \a3' -> 
   cPeSetColour2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeSetColourRangeStart :: HG3DClass -> ColourValue -> IO ()
+cPeSetColourRangeStart :: HG3DClass -> Colour -> IO ()
 cPeSetColourRangeStart a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPeSetColourRangeStart'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeSetColourRangeEnd :: HG3DClass -> ColourValue -> IO ()
+cPeSetColourRangeEnd :: HG3DClass -> Colour -> IO ()
 cPeSetColourRangeEnd a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPeSetColourRangeEnd'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeGetColour :: HG3DClass -> IO (ColourValue)
+cPeGetColour :: HG3DClass -> IO (Colour)
 cPeGetColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPeGetColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeGetColourRangeStart :: HG3DClass -> IO (ColourValue)
+cPeGetColourRangeStart :: HG3DClass -> IO (Colour)
 cPeGetColourRangeStart a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPeGetColourRangeStart'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
-cPeGetColourRangeEnd :: HG3DClass -> IO (ColourValue)
+cPeGetColourRangeEnd :: HG3DClass -> IO (Colour)
 cPeGetColourRangeEnd a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPeGetColourRangeEnd'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetEmissionCount :: HG3DClass -> Float -> IO (Int)
 cPeGetEmissionCount a1 a2 =
@@ -325,7 +323,7 @@   cPeGetEmissionCount'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetType :: HG3DClass -> IO (String)
 cPeGetType a1 =
@@ -334,7 +332,7 @@   cPeGetType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetEnabled :: HG3DClass -> Bool -> IO ()
 cPeSetEnabled a1 a2 =
@@ -342,7 +340,7 @@   let {a2' = fromBool a2} in 
   cPeSetEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetEnabled :: HG3DClass -> IO (Bool)
 cPeGetEnabled a1 =
@@ -351,7 +349,7 @@   cPeGetEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetStartTime :: HG3DClass -> Float -> IO ()
 cPeSetStartTime a1 a2 =
@@ -359,7 +357,7 @@   let {a2' = realToFrac a2} in 
   cPeSetStartTime'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetStartTime :: HG3DClass -> IO (Float)
 cPeGetStartTime a1 =
@@ -368,7 +366,7 @@   cPeGetStartTime'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetDuration :: HG3DClass -> Float -> IO ()
 cPeSetDuration a1 a2 =
@@ -376,7 +374,7 @@   let {a2' = realToFrac a2} in 
   cPeSetDuration'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetDuration :: HG3DClass -> IO (Float)
 cPeGetDuration a1 =
@@ -385,7 +383,7 @@   cPeGetDuration'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetDuration2 :: HG3DClass -> Float -> Float -> IO ()
 cPeSetDuration2 a1 a2 a3 =
@@ -394,7 +392,7 @@   let {a3' = realToFrac a3} in 
   cPeSetDuration2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMinDuration :: HG3DClass -> Float -> IO ()
 cPeSetMinDuration a1 a2 =
@@ -402,7 +400,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMinDuration'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMaxDuration :: HG3DClass -> Float -> IO ()
 cPeSetMaxDuration a1 a2 =
@@ -410,7 +408,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMaxDuration'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMinDuration :: HG3DClass -> IO (Float)
 cPeGetMinDuration a1 =
@@ -419,7 +417,7 @@   cPeGetMinDuration'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMaxDuration :: HG3DClass -> IO (Float)
 cPeGetMaxDuration a1 =
@@ -428,7 +426,7 @@   cPeGetMaxDuration'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetRepeatDelay :: HG3DClass -> Float -> IO ()
 cPeSetRepeatDelay a1 a2 =
@@ -436,7 +434,7 @@   let {a2' = realToFrac a2} in 
   cPeSetRepeatDelay'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetRepeatDelay :: HG3DClass -> IO (Float)
 cPeGetRepeatDelay a1 =
@@ -445,7 +443,7 @@   cPeGetRepeatDelay'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetRepeatDelay2 :: HG3DClass -> Float -> Float -> IO ()
 cPeSetRepeatDelay2 a1 a2 a3 =
@@ -454,7 +452,7 @@   let {a3' = realToFrac a3} in 
   cPeSetRepeatDelay2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMinRepeatDelay :: HG3DClass -> Float -> IO ()
 cPeSetMinRepeatDelay a1 a2 =
@@ -462,7 +460,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMinRepeatDelay'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetMaxRepeatDelay :: HG3DClass -> Float -> IO ()
 cPeSetMaxRepeatDelay a1 a2 =
@@ -470,7 +468,7 @@   let {a2' = realToFrac a2} in 
   cPeSetMaxRepeatDelay'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMinRepeatDelay :: HG3DClass -> IO (Float)
 cPeGetMinRepeatDelay a1 =
@@ -479,7 +477,7 @@   cPeGetMinRepeatDelay'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetMaxRepeatDelay :: HG3DClass -> IO (Float)
 cPeGetMaxRepeatDelay a1 =
@@ -488,7 +486,7 @@   cPeGetMaxRepeatDelay'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetName :: HG3DClass -> IO (String)
 cPeGetName a1 =
@@ -497,7 +495,7 @@   cPeGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetName :: HG3DClass -> String -> IO ()
 cPeSetName a1 a2 =
@@ -505,7 +503,7 @@   withCString a2 $ \a2' -> 
   cPeSetName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 271 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeGetEmittedEmitter :: HG3DClass -> IO (String)
 cPeGetEmittedEmitter a1 =
@@ -514,7 +512,7 @@   cPeGetEmittedEmitter'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 275 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetEmittedEmitter :: HG3DClass -> String -> IO ()
 cPeSetEmittedEmitter a1 a2 =
@@ -522,7 +520,7 @@   withCString a2 $ \a2' -> 
   cPeSetEmittedEmitter'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 279 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeIsEmitted :: HG3DClass -> IO (Bool)
 cPeIsEmitted a1 =
@@ -531,7 +529,7 @@   cPeIsEmitted'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 cPeSetEmitted :: HG3DClass -> Bool -> IO ()
 cPeSetEmitted a1 a2 =
@@ -539,7 +537,7 @@   let {a2' = fromBool a2} in 
   cPeSetEmitted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 287 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
+{-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setPosition_c"
@@ -555,10 +553,10 @@   cPeGetDirection'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setAngle_c"
-  cPeSetAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cPeSetAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getAngle_c"
-  cPeGetAngle'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cPeGetAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setParticleVelocity_c"
   cPeSetParticleVelocity'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
@@ -609,25 +607,25 @@   cPeGetMaxTimeToLive'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColour_c"
-  cPeSetColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeSetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColour2_c"
-  cPeSetColour2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> ((ColourValuePtr) -> (IO ()))))
+  cPeSetColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((ColourPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColourRangeStart_c"
-  cPeSetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeSetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColourRangeEnd_c"
-  cPeSetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeSetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColour_c"
-  cPeGetColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeGetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColourRangeStart_c"
-  cPeGetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeGetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColourRangeEnd_c"
-  cPeGetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPeGetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe__getEmissionCount_c"
   cPeGetEmissionCount'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CUShort) -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassParticleSystemFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleSystemFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassPass.hs view
@@ -51,44 +51,42 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSceneBlendFactor
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSceneBlendOperation
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCompareFunction
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCullingMode
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumManualCullingMode
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumShadeOptions
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPolygonMode
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFogMode
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLightTypes
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumContentType
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureFilterOptions
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumIlluminationStage
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 
 
 cPIsProgrammable :: HG3DClass -> IO (Bool)
@@ -98,7 +96,7 @@   cPIsProgrammable'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasVertexProgram :: HG3DClass -> IO (Bool)
 cPHasVertexProgram a1 =
@@ -107,7 +105,7 @@   cPHasVertexProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasFragmentProgram :: HG3DClass -> IO (Bool)
 cPHasFragmentProgram a1 =
@@ -116,7 +114,7 @@   cPHasFragmentProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasGeometryProgram :: HG3DClass -> IO (Bool)
 cPHasGeometryProgram a1 =
@@ -125,7 +123,7 @@   cPHasGeometryProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasShadowCasterVertexProgram :: HG3DClass -> IO (Bool)
 cPHasShadowCasterVertexProgram a1 =
@@ -134,7 +132,7 @@   cPHasShadowCasterVertexProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasShadowReceiverVertexProgram :: HG3DClass -> IO (Bool)
 cPHasShadowReceiverVertexProgram a1 =
@@ -143,7 +141,7 @@   cPHasShadowReceiverVertexProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasShadowReceiverFragmentProgram :: HG3DClass -> IO (Bool)
 cPHasShadowReceiverFragmentProgram a1 =
@@ -152,7 +150,7 @@   cPHasShadowReceiverFragmentProgram'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetIndex :: HG3DClass -> IO (Int)
 cPGetIndex a1 =
@@ -161,7 +159,7 @@   cPGetIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetName :: HG3DClass -> IO (String)
 cPGetName a1 =
@@ -170,7 +168,7 @@   cPGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetAmbient :: HG3DClass -> Float -> Float -> Float -> IO ()
 cPSetAmbient a1 a2 a3 a4 =
@@ -180,15 +178,15 @@   let {a4' = realToFrac a4} in 
   cPSetAmbient'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPSetAmbient2 :: HG3DClass -> ColourValue -> IO ()
+cPSetAmbient2 :: HG3DClass -> Colour -> IO ()
 cPSetAmbient2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPSetAmbient2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetDiffuse :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cPSetDiffuse a1 a2 a3 a4 a5 =
@@ -199,15 +197,15 @@   let {a5' = realToFrac a5} in 
   cPSetDiffuse'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPSetDiffuse2 :: HG3DClass -> ColourValue -> IO ()
+cPSetDiffuse2 :: HG3DClass -> Colour -> IO ()
 cPSetDiffuse2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPSetDiffuse2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetSpecular :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cPSetSpecular a1 a2 a3 a4 a5 =
@@ -218,15 +216,15 @@   let {a5' = realToFrac a5} in 
   cPSetSpecular'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPSetSpecular2 :: HG3DClass -> ColourValue -> IO ()
+cPSetSpecular2 :: HG3DClass -> Colour -> IO ()
 cPSetSpecular2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPSetSpecular2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetShininess :: HG3DClass -> Float -> IO ()
 cPSetShininess a1 a2 =
@@ -234,7 +232,7 @@   let {a2' = realToFrac a2} in 
   cPSetShininess'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetSelfIllumination :: HG3DClass -> Float -> Float -> Float -> IO ()
 cPSetSelfIllumination a1 a2 a3 a4 =
@@ -244,15 +242,15 @@   let {a4' = realToFrac a4} in 
   cPSetSelfIllumination'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPSetSelfIllumination2 :: HG3DClass -> ColourValue -> IO ()
+cPSetSelfIllumination2 :: HG3DClass -> Colour -> IO ()
 cPSetSelfIllumination2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cPSetSelfIllumination2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointSize :: HG3DClass -> IO (Float)
 cPGetPointSize a1 =
@@ -261,7 +259,7 @@   cPGetPointSize'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPointSize :: HG3DClass -> Float -> IO ()
 cPSetPointSize a1 a2 =
@@ -269,7 +267,7 @@   let {a2' = realToFrac a2} in 
   cPSetPointSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPointSpritesEnabled :: HG3DClass -> Bool -> IO ()
 cPSetPointSpritesEnabled a1 a2 =
@@ -277,7 +275,7 @@   let {a2' = fromBool a2} in 
   cPSetPointSpritesEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointSpritesEnabled :: HG3DClass -> IO (Bool)
 cPGetPointSpritesEnabled a1 =
@@ -286,7 +284,7 @@   cPGetPointSpritesEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPointAttenuation :: HG3DClass -> Bool -> Float -> Float -> Float -> IO ()
 cPSetPointAttenuation a1 a2 a3 a4 a5 =
@@ -297,7 +295,7 @@   let {a5' = realToFrac a5} in 
   cPSetPointAttenuation'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPIsPointAttenuationEnabled :: HG3DClass -> IO (Bool)
 cPIsPointAttenuationEnabled a1 =
@@ -306,7 +304,7 @@   cPIsPointAttenuationEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointAttenuationConstant :: HG3DClass -> IO (Float)
 cPGetPointAttenuationConstant a1 =
@@ -315,7 +313,7 @@   cPGetPointAttenuationConstant'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointAttenuationLinear :: HG3DClass -> IO (Float)
 cPGetPointAttenuationLinear a1 =
@@ -324,7 +322,7 @@   cPGetPointAttenuationLinear'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointAttenuationQuadratic :: HG3DClass -> IO (Float)
 cPGetPointAttenuationQuadratic a1 =
@@ -333,7 +331,7 @@   cPGetPointAttenuationQuadratic'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPointMinSize :: HG3DClass -> Float -> IO ()
 cPSetPointMinSize a1 a2 =
@@ -341,7 +339,7 @@   let {a2' = realToFrac a2} in 
   cPSetPointMinSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointMinSize :: HG3DClass -> IO (Float)
 cPGetPointMinSize a1 =
@@ -350,7 +348,7 @@   cPGetPointMinSize'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPointMaxSize :: HG3DClass -> Float -> IO ()
 cPSetPointMaxSize a1 a2 =
@@ -358,7 +356,7 @@   let {a2' = realToFrac a2} in 
   cPSetPointMaxSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPointMaxSize :: HG3DClass -> IO (Float)
 cPGetPointMaxSize a1 =
@@ -367,43 +365,43 @@   cPGetPointMaxSize'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPGetAmbient :: HG3DClass -> IO (ColourValue)
+cPGetAmbient :: HG3DClass -> IO (Colour)
 cPGetAmbient a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPGetAmbient'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPGetDiffuse :: HG3DClass -> IO (ColourValue)
+cPGetDiffuse :: HG3DClass -> IO (Colour)
 cPGetDiffuse a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPGetDiffuse'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPGetSpecular :: HG3DClass -> IO (ColourValue)
+cPGetSpecular :: HG3DClass -> IO (Colour)
 cPGetSpecular a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPGetSpecular'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 219 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPGetSelfIllumination :: HG3DClass -> IO (ColourValue)
+cPGetSelfIllumination :: HG3DClass -> IO (Colour)
 cPGetSelfIllumination a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPGetSelfIllumination'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 225 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShininess :: HG3DClass -> IO (Float)
 cPGetShininess a1 =
@@ -412,7 +410,7 @@   cPGetShininess'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 229 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 227 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPCreateTextureUnitState :: HG3DClass -> IO (HG3DClass)
 cPCreateTextureUnitState a1 =
@@ -421,7 +419,7 @@   cPCreateTextureUnitState'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 233 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPCreateTextureUnitState2 :: HG3DClass -> String -> Int -> IO (HG3DClass)
 cPCreateTextureUnitState2 a1 a2 a3 =
@@ -432,7 +430,7 @@   cPCreateTextureUnitState2'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 237 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPAddTextureUnitState :: HG3DClass -> HG3DClass -> IO ()
 cPAddTextureUnitState a1 a2 =
@@ -440,7 +438,7 @@   withHG3DClass a2 $ \a2' -> 
   cPAddTextureUnitState'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetTextureUnitState :: HG3DClass -> Int -> IO (HG3DClass)
 cPGetTextureUnitState a1 a2 =
@@ -450,7 +448,7 @@   cPGetTextureUnitState'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 248 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 246 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetTextureUnitState2 :: HG3DClass -> String -> IO (HG3DClass)
 cPGetTextureUnitState2 a1 a2 =
@@ -460,7 +458,7 @@   cPGetTextureUnitState2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPRemoveTextureUnitState :: HG3DClass -> Int -> IO ()
 cPRemoveTextureUnitState a1 a2 =
@@ -468,14 +466,14 @@   let {a2' = fromIntegral a2} in 
   cPRemoveTextureUnitState'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPRemoveAllTextureUnitStates :: HG3DClass -> IO ()
 cPRemoveAllTextureUnitStates a1 =
   withHG3DClass a1 $ \a1' -> 
   cPRemoveAllTextureUnitStates'_ a1' >>= \res ->
   return ()
-{-# LINE 260 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetNumTextureUnitStates :: HG3DClass -> IO (Int)
 cPGetNumTextureUnitStates a1 =
@@ -484,7 +482,7 @@   cPGetNumTextureUnitStates'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasSeparateSceneBlending :: HG3DClass -> IO (Bool)
 cPHasSeparateSceneBlending a1 =
@@ -493,7 +491,7 @@   cPHasSeparateSceneBlending'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 268 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetSourceBlendFactor :: HG3DClass -> IO (EnumSceneBlendFactor)
 cPGetSourceBlendFactor a1 =
@@ -502,7 +500,7 @@   cPGetSourceBlendFactor'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 270 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDestBlendFactor :: HG3DClass -> IO (EnumSceneBlendFactor)
 cPGetDestBlendFactor a1 =
@@ -511,7 +509,7 @@   cPGetDestBlendFactor'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 276 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 274 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetSourceBlendFactorAlpha :: HG3DClass -> IO (EnumSceneBlendFactor)
 cPGetSourceBlendFactorAlpha a1 =
@@ -520,7 +518,7 @@   cPGetSourceBlendFactorAlpha'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 280 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 278 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDestBlendFactorAlpha :: HG3DClass -> IO (EnumSceneBlendFactor)
 cPGetDestBlendFactorAlpha a1 =
@@ -529,7 +527,7 @@   cPGetDestBlendFactorAlpha'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 284 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 282 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetSceneBlendingOperation :: HG3DClass -> EnumSceneBlendOperation -> IO ()
 cPSetSceneBlendingOperation a1 a2 =
@@ -537,7 +535,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetSceneBlendingOperation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 288 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 286 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetSeparateSceneBlendingOperation :: HG3DClass -> EnumSceneBlendOperation -> EnumSceneBlendOperation -> IO ()
 cPSetSeparateSceneBlendingOperation a1 a2 a3 =
@@ -546,7 +544,7 @@   let {a3' = cIntFromEnum a3} in 
   cPSetSeparateSceneBlendingOperation'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 293 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 291 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPHasSeparateSceneBlendingOperations :: HG3DClass -> IO (Bool)
 cPHasSeparateSceneBlendingOperations a1 =
@@ -555,7 +553,7 @@   cPHasSeparateSceneBlendingOperations'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 297 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 295 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetSceneBlendingOperation :: HG3DClass -> IO (EnumSceneBlendOperation)
 cPGetSceneBlendingOperation a1 =
@@ -564,7 +562,7 @@   cPGetSceneBlendingOperation'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 301 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetSceneBlendingOperationAlpha :: HG3DClass -> IO (EnumSceneBlendOperation)
 cPGetSceneBlendingOperationAlpha a1 =
@@ -573,7 +571,7 @@   cPGetSceneBlendingOperationAlpha'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 305 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 303 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPIsTransparent :: HG3DClass -> IO (Bool)
 cPIsTransparent a1 =
@@ -582,7 +580,7 @@   cPIsTransparent'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 309 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 307 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetDepthCheckEnabled :: HG3DClass -> Bool -> IO ()
 cPSetDepthCheckEnabled a1 a2 =
@@ -590,7 +588,7 @@   let {a2' = fromBool a2} in 
   cPSetDepthCheckEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 313 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 311 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDepthCheckEnabled :: HG3DClass -> IO (Bool)
 cPGetDepthCheckEnabled a1 =
@@ -599,7 +597,7 @@   cPGetDepthCheckEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 317 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 315 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetDepthWriteEnabled :: HG3DClass -> Bool -> IO ()
 cPSetDepthWriteEnabled a1 a2 =
@@ -607,7 +605,7 @@   let {a2' = fromBool a2} in 
   cPSetDepthWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 321 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 319 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDepthWriteEnabled :: HG3DClass -> IO (Bool)
 cPGetDepthWriteEnabled a1 =
@@ -616,7 +614,7 @@   cPGetDepthWriteEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 325 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 323 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetDepthFunction :: HG3DClass -> EnumCompareFunction -> IO ()
 cPSetDepthFunction a1 a2 =
@@ -624,7 +622,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetDepthFunction'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 329 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 327 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDepthFunction :: HG3DClass -> IO (EnumCompareFunction)
 cPGetDepthFunction a1 =
@@ -633,7 +631,7 @@   cPGetDepthFunction'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 333 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 331 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetColourWriteEnabled :: HG3DClass -> Bool -> IO ()
 cPSetColourWriteEnabled a1 a2 =
@@ -641,7 +639,7 @@   let {a2' = fromBool a2} in 
   cPSetColourWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 337 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 335 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetColourWriteEnabled :: HG3DClass -> IO (Bool)
 cPGetColourWriteEnabled a1 =
@@ -650,7 +648,7 @@   cPGetColourWriteEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 341 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 339 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetCullingMode :: HG3DClass -> EnumCullingMode -> IO ()
 cPSetCullingMode a1 a2 =
@@ -658,7 +656,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 345 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 343 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetCullingMode :: HG3DClass -> IO (EnumCullingMode)
 cPGetCullingMode a1 =
@@ -667,7 +665,7 @@   cPGetCullingMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 349 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 347 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetManualCullingMode :: HG3DClass -> EnumManualCullingMode -> IO ()
 cPSetManualCullingMode a1 a2 =
@@ -675,7 +673,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetManualCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 353 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 351 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetManualCullingMode :: HG3DClass -> IO (EnumManualCullingMode)
 cPGetManualCullingMode a1 =
@@ -684,7 +682,7 @@   cPGetManualCullingMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 357 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 355 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetLightingEnabled :: HG3DClass -> Bool -> IO ()
 cPSetLightingEnabled a1 a2 =
@@ -692,7 +690,7 @@   let {a2' = fromBool a2} in 
   cPSetLightingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 361 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 359 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetLightingEnabled :: HG3DClass -> IO (Bool)
 cPGetLightingEnabled a1 =
@@ -701,7 +699,7 @@   cPGetLightingEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 365 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 363 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetMaxSimultaneousLights :: HG3DClass -> Int -> IO ()
 cPSetMaxSimultaneousLights a1 a2 =
@@ -709,7 +707,7 @@   let {a2' = fromIntegral a2} in 
   cPSetMaxSimultaneousLights'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 369 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 367 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetMaxSimultaneousLights :: HG3DClass -> IO (Int)
 cPGetMaxSimultaneousLights a1 =
@@ -718,7 +716,7 @@   cPGetMaxSimultaneousLights'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 373 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 371 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetStartLight :: HG3DClass -> Int -> IO ()
 cPSetStartLight a1 a2 =
@@ -726,7 +724,7 @@   let {a2' = fromIntegral a2} in 
   cPSetStartLight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 377 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 375 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetStartLight :: HG3DClass -> IO (Int)
 cPGetStartLight a1 =
@@ -735,7 +733,7 @@   cPGetStartLight'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 381 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 379 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetShadingMode :: HG3DClass -> EnumShadeOptions -> IO ()
 cPSetShadingMode a1 a2 =
@@ -743,7 +741,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetShadingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 385 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 383 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadingMode :: HG3DClass -> IO (EnumShadeOptions)
 cPGetShadingMode a1 =
@@ -752,7 +750,7 @@   cPGetShadingMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 389 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 387 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPolygonMode :: HG3DClass -> EnumPolygonMode -> IO ()
 cPSetPolygonMode a1 a2 =
@@ -760,7 +758,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetPolygonMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 393 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 391 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPolygonMode :: HG3DClass -> IO (EnumPolygonMode)
 cPGetPolygonMode a1 =
@@ -769,7 +767,7 @@   cPGetPolygonMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 397 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 395 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPolygonModeOverrideable :: HG3DClass -> Bool -> IO ()
 cPSetPolygonModeOverrideable a1 a2 =
@@ -777,7 +775,7 @@   let {a2' = fromBool a2} in 
   cPSetPolygonModeOverrideable'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 401 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 399 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPolygonModeOverrideable :: HG3DClass -> IO (Bool)
 cPGetPolygonModeOverrideable a1 =
@@ -786,20 +784,20 @@   cPGetPolygonModeOverrideable'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 405 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 403 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPSetFog :: HG3DClass -> Bool -> EnumFogMode -> ColourValue -> Float -> Float -> Float -> IO ()
+cPSetFog :: HG3DClass -> Bool -> EnumFogMode -> Colour -> Float -> Float -> Float -> IO ()
 cPSetFog a1 a2 a3 a4 a5 a6 a7 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromBool a2} in 
   let {a3' = cIntFromEnum a3} in 
-  withColourValue a4 $ \a4' -> 
+  withColour a4 $ \a4' -> 
   let {a5' = realToFrac a5} in 
   let {a6' = realToFrac a6} in 
   let {a7' = realToFrac a7} in 
   cPSetFog'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 414 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 412 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFogOverride :: HG3DClass -> IO (Bool)
 cPGetFogOverride a1 =
@@ -808,7 +806,7 @@   cPGetFogOverride'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 418 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 416 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFogMode :: HG3DClass -> IO (EnumFogMode)
 cPGetFogMode a1 =
@@ -817,16 +815,16 @@   cPGetFogMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 422 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 420 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
-cPGetFogColour :: HG3DClass -> IO (ColourValue)
+cPGetFogColour :: HG3DClass -> IO (Colour)
 cPGetFogColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cPGetFogColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 426 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 424 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFogStart :: HG3DClass -> IO (Float)
 cPGetFogStart a1 =
@@ -835,7 +833,7 @@   cPGetFogStart'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 430 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 428 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFogEnd :: HG3DClass -> IO (Float)
 cPGetFogEnd a1 =
@@ -844,7 +842,7 @@   cPGetFogEnd'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 434 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 432 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFogDensity :: HG3DClass -> IO (Float)
 cPGetFogDensity a1 =
@@ -853,7 +851,7 @@   cPGetFogDensity'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 438 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 436 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetDepthBias :: HG3DClass -> Float -> Float -> IO ()
 cPSetDepthBias a1 a2 a3 =
@@ -862,7 +860,7 @@   let {a3' = realToFrac a3} in 
   cPSetDepthBias'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 443 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 441 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDepthBiasConstant :: HG3DClass -> IO (Float)
 cPGetDepthBiasConstant a1 =
@@ -871,7 +869,7 @@   cPGetDepthBiasConstant'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 447 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 445 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetDepthBiasSlopeScale :: HG3DClass -> IO (Float)
 cPGetDepthBiasSlopeScale a1 =
@@ -880,7 +878,7 @@   cPGetDepthBiasSlopeScale'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 451 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 449 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetIterationDepthBias :: HG3DClass -> Float -> IO ()
 cPSetIterationDepthBias a1 a2 =
@@ -888,7 +886,7 @@   let {a2' = realToFrac a2} in 
   cPSetIterationDepthBias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 455 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 453 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetIterationDepthBias :: HG3DClass -> IO (Float)
 cPGetIterationDepthBias a1 =
@@ -897,7 +895,7 @@   cPGetIterationDepthBias'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 459 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 457 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetAlphaRejectFunction :: HG3DClass -> EnumCompareFunction -> IO ()
 cPSetAlphaRejectFunction a1 a2 =
@@ -905,7 +903,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetAlphaRejectFunction'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 463 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 461 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetAlphaRejectFunction :: HG3DClass -> IO (EnumCompareFunction)
 cPGetAlphaRejectFunction a1 =
@@ -914,7 +912,7 @@   cPGetAlphaRejectFunction'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 467 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 465 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetAlphaToCoverageEnabled :: HG3DClass -> Bool -> IO ()
 cPSetAlphaToCoverageEnabled a1 a2 =
@@ -922,7 +920,7 @@   let {a2' = fromBool a2} in 
   cPSetAlphaToCoverageEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 471 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 469 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPIsAlphaToCoverageEnabled :: HG3DClass -> IO (Bool)
 cPIsAlphaToCoverageEnabled a1 =
@@ -931,7 +929,7 @@   cPIsAlphaToCoverageEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 475 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 473 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetTransparentSortingEnabled :: HG3DClass -> Bool -> IO ()
 cPSetTransparentSortingEnabled a1 a2 =
@@ -939,7 +937,7 @@   let {a2' = fromBool a2} in 
   cPSetTransparentSortingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 479 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 477 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetTransparentSortingEnabled :: HG3DClass -> IO (Bool)
 cPGetTransparentSortingEnabled a1 =
@@ -948,7 +946,7 @@   cPGetTransparentSortingEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 483 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 481 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetTransparentSortingForced :: HG3DClass -> Bool -> IO ()
 cPSetTransparentSortingForced a1 a2 =
@@ -956,7 +954,7 @@   let {a2' = fromBool a2} in 
   cPSetTransparentSortingForced'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 487 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 485 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetTransparentSortingForced :: HG3DClass -> IO (Bool)
 cPGetTransparentSortingForced a1 =
@@ -965,7 +963,7 @@   cPGetTransparentSortingForced'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 491 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 489 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetIteratePerLight :: HG3DClass -> Bool -> Bool -> EnumLightTypes -> IO ()
 cPSetIteratePerLight a1 a2 a3 a4 =
@@ -975,7 +973,7 @@   let {a4' = cIntFromEnum a4} in 
   cPSetIteratePerLight'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 497 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 495 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetIteratePerLight :: HG3DClass -> IO (Bool)
 cPGetIteratePerLight a1 =
@@ -984,7 +982,7 @@   cPGetIteratePerLight'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 501 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 499 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetRunOnlyForOneLightType :: HG3DClass -> IO (Bool)
 cPGetRunOnlyForOneLightType a1 =
@@ -993,7 +991,7 @@   cPGetRunOnlyForOneLightType'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 505 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 503 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetOnlyLightType :: HG3DClass -> IO (EnumLightTypes)
 cPGetOnlyLightType a1 =
@@ -1002,7 +1000,7 @@   cPGetOnlyLightType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 509 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 507 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetLightCountPerIteration :: HG3DClass -> Int -> IO ()
 cPSetLightCountPerIteration a1 a2 =
@@ -1010,7 +1008,7 @@   let {a2' = fromIntegral a2} in 
   cPSetLightCountPerIteration'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 513 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 511 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetLightCountPerIteration :: HG3DClass -> IO (Int)
 cPGetLightCountPerIteration a1 =
@@ -1019,7 +1017,7 @@   cPGetLightCountPerIteration'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 517 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 515 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetParent :: HG3DClass -> IO (HG3DClass)
 cPGetParent a1 =
@@ -1028,7 +1026,7 @@   cPGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 521 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 519 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetResourceGroup :: HG3DClass -> IO (String)
 cPGetResourceGroup a1 =
@@ -1037,7 +1035,7 @@   cPGetResourceGroup'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 525 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 523 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetVertexProgram :: HG3DClass -> String -> Bool -> IO ()
 cPSetVertexProgram a1 a2 a3 =
@@ -1046,7 +1044,7 @@   let {a3' = fromBool a3} in 
   cPSetVertexProgram'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 530 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 528 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetVertexProgramName :: HG3DClass -> IO (String)
 cPGetVertexProgramName a1 =
@@ -1055,7 +1053,7 @@   cPGetVertexProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 534 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 532 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetVertexProgram :: HG3DClass -> IO (SharedPtr)
 cPGetVertexProgram a1 =
@@ -1064,7 +1062,7 @@   cPGetVertexProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 538 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 536 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetShadowCasterVertexProgram :: HG3DClass -> String -> IO ()
 cPSetShadowCasterVertexProgram a1 a2 =
@@ -1072,7 +1070,7 @@   withCString a2 $ \a2' -> 
   cPSetShadowCasterVertexProgram'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 542 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 540 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowCasterVertexProgramName :: HG3DClass -> IO (String)
 cPGetShadowCasterVertexProgramName a1 =
@@ -1081,7 +1079,7 @@   cPGetShadowCasterVertexProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 546 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 544 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowCasterVertexProgram :: HG3DClass -> IO (SharedPtr)
 cPGetShadowCasterVertexProgram a1 =
@@ -1090,7 +1088,7 @@   cPGetShadowCasterVertexProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 550 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 548 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetShadowReceiverVertexProgram :: HG3DClass -> String -> IO ()
 cPSetShadowReceiverVertexProgram a1 a2 =
@@ -1098,7 +1096,7 @@   withCString a2 $ \a2' -> 
   cPSetShadowReceiverVertexProgram'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 554 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 552 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetShadowReceiverFragmentProgram :: HG3DClass -> String -> IO ()
 cPSetShadowReceiverFragmentProgram a1 a2 =
@@ -1106,7 +1104,7 @@   withCString a2 $ \a2' -> 
   cPSetShadowReceiverFragmentProgram'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 558 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 556 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowReceiverVertexProgramName :: HG3DClass -> IO (String)
 cPGetShadowReceiverVertexProgramName a1 =
@@ -1115,7 +1113,7 @@   cPGetShadowReceiverVertexProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 562 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 560 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowReceiverVertexProgram :: HG3DClass -> IO (SharedPtr)
 cPGetShadowReceiverVertexProgram a1 =
@@ -1124,7 +1122,7 @@   cPGetShadowReceiverVertexProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 566 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 564 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowReceiverFragmentProgramName :: HG3DClass -> IO (String)
 cPGetShadowReceiverFragmentProgramName a1 =
@@ -1133,7 +1131,7 @@   cPGetShadowReceiverFragmentProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 570 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 568 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetShadowReceiverFragmentProgram :: HG3DClass -> IO (SharedPtr)
 cPGetShadowReceiverFragmentProgram a1 =
@@ -1142,7 +1140,7 @@   cPGetShadowReceiverFragmentProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 574 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 572 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetFragmentProgram :: HG3DClass -> String -> Bool -> IO ()
 cPSetFragmentProgram a1 a2 a3 =
@@ -1151,7 +1149,7 @@   let {a3' = fromBool a3} in 
   cPSetFragmentProgram'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 579 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 577 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFragmentProgramName :: HG3DClass -> IO (String)
 cPGetFragmentProgramName a1 =
@@ -1160,7 +1158,7 @@   cPGetFragmentProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 583 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 581 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetFragmentProgram :: HG3DClass -> IO (SharedPtr)
 cPGetFragmentProgram a1 =
@@ -1169,7 +1167,7 @@   cPGetFragmentProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 587 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 585 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetGeometryProgram :: HG3DClass -> String -> Bool -> IO ()
 cPSetGeometryProgram a1 a2 a3 =
@@ -1178,7 +1176,7 @@   let {a3' = fromBool a3} in 
   cPSetGeometryProgram'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 592 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 590 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetGeometryProgramName :: HG3DClass -> IO (String)
 cPGetGeometryProgramName a1 =
@@ -1187,7 +1185,7 @@   cPGetGeometryProgramName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 596 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 594 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetGeometryProgram :: HG3DClass -> IO (SharedPtr)
 cPGetGeometryProgram a1 =
@@ -1196,7 +1194,7 @@   cPGetGeometryProgram'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 600 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 598 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSplit :: HG3DClass -> Int -> IO (HG3DClass)
 cPSplit a1 a2 =
@@ -1206,7 +1204,7 @@   cPSplit'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 605 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 603 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPNotifyIndex :: HG3DClass -> Int -> IO ()
 cPNotifyIndex a1 a2 =
@@ -1214,35 +1212,35 @@   let {a2' = fromIntegral a2} in 
   cPNotifyIndex'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 609 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 607 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPPrepare :: HG3DClass -> IO ()
 cPPrepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cPPrepare'_ a1' >>= \res ->
   return ()
-{-# LINE 612 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 610 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPUnprepare :: HG3DClass -> IO ()
 cPUnprepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cPUnprepare'_ a1' >>= \res ->
   return ()
-{-# LINE 615 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 613 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPLoad :: HG3DClass -> IO ()
 cPLoad a1 =
   withHG3DClass a1 $ \a1' -> 
   cPLoad'_ a1' >>= \res ->
   return ()
-{-# LINE 618 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 616 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPUnload :: HG3DClass -> IO ()
 cPUnload a1 =
   withHG3DClass a1 $ \a1' -> 
   cPUnload'_ a1' >>= \res ->
   return ()
-{-# LINE 621 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 619 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPIsLoaded :: HG3DClass -> IO (Bool)
 cPIsLoaded a1 =
@@ -1251,7 +1249,7 @@   cPIsLoaded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 625 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 623 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetHash :: HG3DClass -> IO (Int)
 cPGetHash a1 =
@@ -1260,28 +1258,28 @@   cPGetHash'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 629 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 627 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPDirtyHash :: HG3DClass -> IO ()
 cPDirtyHash a1 =
   withHG3DClass a1 $ \a1' -> 
   cPDirtyHash'_ a1' >>= \res ->
   return ()
-{-# LINE 632 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 630 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPRecalculateHash :: HG3DClass -> IO ()
 cPRecalculateHash a1 =
   withHG3DClass a1 $ \a1' -> 
   cPRecalculateHash'_ a1' >>= \res ->
   return ()
-{-# LINE 635 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 633 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPNotifyNeedsRecompile :: HG3DClass -> IO ()
 cPNotifyNeedsRecompile a1 =
   withHG3DClass a1 $ \a1' -> 
   cPNotifyNeedsRecompile'_ a1' >>= \res ->
   return ()
-{-# LINE 638 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 636 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetTextureUnitWithContentTypeIndex :: HG3DClass -> EnumContentType -> Int -> IO (Int)
 cPGetTextureUnitWithContentTypeIndex a1 a2 a3 =
@@ -1292,7 +1290,7 @@   cPGetTextureUnitWithContentTypeIndex'_ a1' a2' a3' a4' >>= \res ->
   peekIntConv  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 644 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 642 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetTextureFiltering :: HG3DClass -> EnumTextureFilterOptions -> IO ()
 cPSetTextureFiltering a1 a2 =
@@ -1300,7 +1298,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetTextureFiltering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 648 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 646 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetTextureAnisotropy :: HG3DClass -> Int -> IO ()
 cPSetTextureAnisotropy a1 a2 =
@@ -1308,7 +1306,7 @@   let {a2' = fromIntegral a2} in 
   cPSetTextureAnisotropy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 652 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 650 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetNormaliseNormals :: HG3DClass -> Bool -> IO ()
 cPSetNormaliseNormals a1 a2 =
@@ -1316,7 +1314,7 @@   let {a2' = fromBool a2} in 
   cPSetNormaliseNormals'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 656 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 654 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetNormaliseNormals :: HG3DClass -> IO (Bool)
 cPGetNormaliseNormals a1 =
@@ -1325,14 +1323,14 @@   cPGetNormaliseNormals'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 660 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 658 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPQueueForDeletion :: HG3DClass -> IO ()
 cPQueueForDeletion a1 =
   withHG3DClass a1 $ \a1' -> 
   cPQueueForDeletion'_ a1' >>= \res ->
   return ()
-{-# LINE 663 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 661 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPIsAmbientOnly :: HG3DClass -> IO (Bool)
 cPIsAmbientOnly a1 =
@@ -1341,7 +1339,7 @@   cPIsAmbientOnly'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 667 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 665 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetPassIterationCount :: HG3DClass -> Int -> IO ()
 cPSetPassIterationCount a1 a2 =
@@ -1349,7 +1347,7 @@   let {a2' = fromIntegral a2} in 
   cPSetPassIterationCount'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 671 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 669 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetPassIterationCount :: HG3DClass -> IO (Int)
 cPGetPassIterationCount a1 =
@@ -1358,7 +1356,7 @@   cPGetPassIterationCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 675 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 673 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetLightScissoringEnabled :: HG3DClass -> Bool -> IO ()
 cPSetLightScissoringEnabled a1 a2 =
@@ -1366,7 +1364,7 @@   let {a2' = fromBool a2} in 
   cPSetLightScissoringEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 679 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 677 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetLightScissoringEnabled :: HG3DClass -> IO (Bool)
 cPGetLightScissoringEnabled a1 =
@@ -1375,7 +1373,7 @@   cPGetLightScissoringEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 683 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 681 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetLightClipPlanesEnabled :: HG3DClass -> Bool -> IO ()
 cPSetLightClipPlanesEnabled a1 a2 =
@@ -1383,7 +1381,7 @@   let {a2' = fromBool a2} in 
   cPSetLightClipPlanesEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 687 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 685 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetLightClipPlanesEnabled :: HG3DClass -> IO (Bool)
 cPGetLightClipPlanesEnabled a1 =
@@ -1392,7 +1390,7 @@   cPGetLightClipPlanesEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 691 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 689 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPSetIlluminationStage :: HG3DClass -> EnumIlluminationStage -> IO ()
 cPSetIlluminationStage a1 a2 =
@@ -1400,7 +1398,7 @@   let {a2' = cIntFromEnum a2} in 
   cPSetIlluminationStage'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 695 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 693 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 cPGetIlluminationStage :: HG3DClass -> IO (EnumIlluminationStage)
 cPGetIlluminationStage a1 =
@@ -1409,7 +1407,7 @@   cPGetIlluminationStage'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 699 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
+{-# LINE 697 "HGamer3D\\Bindings\\Ogre\\ClassPass.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_isProgrammable_c"
@@ -1443,19 +1441,19 @@   cPSetAmbient'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setAmbient2_c"
-  cPSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setDiffuse_c"
   cPSetDiffuse'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setDiffuse2_c"
-  cPSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setSpecular_c"
   cPSetSpecular'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setSpecular2_c"
-  cPSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setShininess_c"
   cPSetShininess'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
@@ -1464,7 +1462,7 @@   cPSetSelfIllumination'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setSelfIllumination2_c"
-  cPSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getPointSize_c"
   cPGetPointSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
@@ -1506,16 +1504,16 @@   cPGetPointMaxSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getAmbient_c"
-  cPGetAmbient'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPGetAmbient'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getDiffuse_c"
-  cPGetDiffuse'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPGetDiffuse'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getSpecular_c"
-  cPGetSpecular'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPGetSpecular'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getSelfIllumination_c"
-  cPGetSelfIllumination'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPGetSelfIllumination'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getShininess_c"
   cPGetShininess'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
@@ -1650,7 +1648,7 @@   cPGetPolygonModeOverrideable'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_setFog_c"
-  cPSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourValuePtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
+  cPSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getFogOverride_c"
   cPGetFogOverride'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
@@ -1659,7 +1657,7 @@   cPGetFogMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getFogColour_c"
-  cPGetFogColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cPGetFogColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPass.chs.h cP_getFogStart_c"
   cPGetFogStart'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassPatchMesh.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPatchMesh.chs" #-}
HGamer3D/Bindings/Ogre/ClassPatchSurface.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 
 
 cPsGetRequiredVertexCount :: HG3DClass -> IO (Int)
@@ -70,7 +68,7 @@   cPsGetRequiredVertexCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetRequiredIndexCount :: HG3DClass -> IO (Int)
 cPsGetRequiredIndexCount a1 =
@@ -79,7 +77,7 @@   cPsGetRequiredIndexCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetCurrentIndexCount :: HG3DClass -> IO (Int)
 cPsGetCurrentIndexCount a1 =
@@ -88,7 +86,7 @@   cPsGetCurrentIndexCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetIndexOffset :: HG3DClass -> IO (Int)
 cPsGetIndexOffset a1 =
@@ -97,7 +95,7 @@   cPsGetIndexOffset'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetVertexOffset :: HG3DClass -> IO (Int)
 cPsGetVertexOffset a1 =
@@ -106,7 +104,7 @@   cPsGetVertexOffset'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetBoundingSphereRadius :: HG3DClass -> IO (Float)
 cPsGetBoundingSphereRadius a1 =
@@ -115,7 +113,7 @@   cPsGetBoundingSphereRadius'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsSetSubdivisionFactor :: HG3DClass -> Float -> IO ()
 cPsSetSubdivisionFactor a1 a2 =
@@ -123,7 +121,7 @@   let {a2' = realToFrac a2} in 
   cPsSetSubdivisionFactor'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 cPsGetSubdivisionFactor :: HG3DClass -> IO (Float)
 cPsGetSubdivisionFactor a1 =
@@ -132,7 +130,7 @@   cPsGetSubdivisionFactor'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassPatchSurface.chs.h cPs_getRequiredVertexCount_c"
HGamer3D/Bindings/Ogre/ClassPlaneOptimalShadowCameraSetup.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassPlaneOptimalShadowCameraSetup.chs" #-}
HGamer3D/Bindings/Ogre/ClassRegion.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 
 
 cRgGetParent :: HG3DClass -> IO (HG3DClass)
@@ -72,7 +70,7 @@   cRgGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 ;
 cRgBuild :: HG3DClass -> Bool -> IO ()
 cRgBuild a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromBool a2} in 
   cRgBuild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 ;
 cRgGetID :: HG3DClass -> IO (Int)
 cRgGetID a1 =
@@ -89,7 +87,7 @@   cRgGetID'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 ;
 cRgGetCentre :: HG3DClass -> IO (Vector3)
 cRgGetCentre a1 =
@@ -98,7 +96,7 @@   cRgGetCentre'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 ;
 cRgHasEdgeList :: HG3DClass -> IO (Bool)
 cRgHasEdgeList a1 =
@@ -107,7 +105,7 @@   cRgHasEdgeList'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRegion.chs.h cRg_getParent_c"
HGamer3D/Bindings/Ogre/ClassRenderObjectListener.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderObjectListener.chs" #-}
HGamer3D/Bindings/Ogre/ClassRenderQueueInvocation.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 
 
 cRqiGetInvocationName :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cRqiGetInvocationName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 ;
 cRqiSetSuppressShadows :: HG3DClass -> Bool -> IO ()
 cRqiSetSuppressShadows a1 a2 =
@@ -78,7 +76,7 @@   let {a2' = fromBool a2} in 
   cRqiSetSuppressShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 ;
 cRqiGetSuppressShadows :: HG3DClass -> IO (Bool)
 cRqiGetSuppressShadows a1 =
@@ -87,7 +85,7 @@   cRqiGetSuppressShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 ;
 cRqiSetSuppressRenderStateChanges :: HG3DClass -> Bool -> IO ()
 cRqiSetSuppressRenderStateChanges a1 a2 =
@@ -95,7 +93,7 @@   let {a2' = fromBool a2} in 
   cRqiSetSuppressRenderStateChanges'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 ;
 cRqiGetSuppressRenderStateChanges :: HG3DClass -> IO (Bool)
 cRqiGetSuppressRenderStateChanges a1 =
@@ -104,7 +102,7 @@   cRqiGetSuppressRenderStateChanges'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocation.chs.h cRqi_getInvocationName_c"
HGamer3D/Bindings/Ogre/ClassRenderQueueInvocationSequence.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 
 
 cRqisGetName :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cRqisGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 cRqisAdd2 :: HG3DClass -> HG3DClass -> IO ()
 cRqisAdd2 a1 a2 =
@@ -78,7 +76,7 @@   withHG3DClass a2 $ \a2' -> 
   cRqisAdd2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 cRqisSize :: HG3DClass -> IO (Int)
 cRqisSize a1 =
@@ -87,14 +85,14 @@   cRqisSize'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 cRqisClear :: HG3DClass -> IO ()
 cRqisClear a1 =
   withHG3DClass a1 $ \a1' -> 
   cRqisClear'_ a1' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 cRqisGet :: HG3DClass -> Int -> IO (HG3DClass)
 cRqisGet a1 a2 =
@@ -104,7 +102,7 @@   cRqisGet'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 cRqisRemove :: HG3DClass -> Int -> IO ()
 cRqisRemove a1 a2 =
@@ -112,7 +110,7 @@   let {a2' = fromIntegral a2} in 
   cRqisRemove'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderQueueInvocationSequence.chs.h cRqis_getName_c"
HGamer3D/Bindings/Ogre/ClassRenderSystemOperation.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderSystemOperation.chs" #-}
HGamer3D/Bindings/Ogre/ClassRenderTarget.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 
 
 cRtGetName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cRtGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtUpdate :: HG3DClass -> Bool -> IO ()
 cRtUpdate a1 a2 =
@@ -80,7 +78,7 @@   let {a2' = fromBool a2} in 
   cRtUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtSwapBuffers :: HG3DClass -> Bool -> IO ()
 cRtSwapBuffers a1 a2 =
@@ -88,7 +86,7 @@   let {a2' = fromBool a2} in 
   cRtSwapBuffers'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtAddViewport :: HG3DClass -> HG3DClass -> Int -> Float -> Float -> Float -> Float -> IO (HG3DClass)
 cRtAddViewport a1 a2 a3 a4 a5 a6 a7 =
@@ -103,7 +101,7 @@   cRtAddViewport'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res ->
   peek  a8'>>= \a8'' -> 
   return (a8'')
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetNumViewports :: HG3DClass -> IO (Int)
 cRtGetNumViewports a1 =
@@ -112,7 +110,7 @@   cRtGetNumViewports'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetViewport :: HG3DClass -> Int -> IO (HG3DClass)
 cRtGetViewport a1 a2 =
@@ -122,7 +120,7 @@   cRtGetViewport'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtRemoveViewport :: HG3DClass -> Int -> IO ()
 cRtRemoveViewport a1 a2 =
@@ -130,14 +128,14 @@   let {a2' = fromIntegral a2} in 
   cRtRemoveViewport'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtRemoveAllViewports :: HG3DClass -> IO ()
 cRtRemoveAllViewports a1 =
   withHG3DClass a1 $ \a1' -> 
   cRtRemoveAllViewports'_ a1' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetLastFPS :: HG3DClass -> IO (Float)
 cRtGetLastFPS a1 =
@@ -146,7 +144,7 @@   cRtGetLastFPS'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetAverageFPS :: HG3DClass -> IO (Float)
 cRtGetAverageFPS a1 =
@@ -155,7 +153,7 @@   cRtGetAverageFPS'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetBestFPS :: HG3DClass -> IO (Float)
 cRtGetBestFPS a1 =
@@ -164,7 +162,7 @@   cRtGetBestFPS'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetWorstFPS :: HG3DClass -> IO (Float)
 cRtGetWorstFPS a1 =
@@ -173,7 +171,7 @@   cRtGetWorstFPS'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetBestFrameTime :: HG3DClass -> IO (Float)
 cRtGetBestFrameTime a1 =
@@ -182,7 +180,7 @@   cRtGetBestFrameTime'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetWorstFrameTime :: HG3DClass -> IO (Float)
 cRtGetWorstFrameTime a1 =
@@ -191,21 +189,21 @@   cRtGetWorstFrameTime'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtResetStatistics :: HG3DClass -> IO ()
 cRtResetStatistics a1 =
   withHG3DClass a1 $ \a1' -> 
   cRtResetStatistics'_ a1' >>= \res ->
   return ()
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtRemoveAllListeners :: HG3DClass -> IO ()
 cRtRemoveAllListeners a1 =
   withHG3DClass a1 $ \a1' -> 
   cRtRemoveAllListeners'_ a1' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtIsActive :: HG3DClass -> IO (Bool)
 cRtIsActive a1 =
@@ -214,7 +212,7 @@   cRtIsActive'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtSetActive :: HG3DClass -> Bool -> IO ()
 cRtSetActive a1 a2 =
@@ -222,7 +220,7 @@   let {a2' = fromBool a2} in 
   cRtSetActive'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtSetAutoUpdated :: HG3DClass -> Bool -> IO ()
 cRtSetAutoUpdated a1 a2 =
@@ -230,7 +228,7 @@   let {a2' = fromBool a2} in 
   cRtSetAutoUpdated'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtIsAutoUpdated :: HG3DClass -> IO (Bool)
 cRtIsAutoUpdated a1 =
@@ -239,7 +237,7 @@   cRtIsAutoUpdated'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtSuggestPixelFormat :: HG3DClass -> IO (EnumPixelFormat)
 cRtSuggestPixelFormat a1 =
@@ -248,7 +246,7 @@   cRtSuggestPixelFormat'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtWriteContentsToFile :: HG3DClass -> String -> IO ()
 cRtWriteContentsToFile a1 a2 =
@@ -256,7 +254,7 @@   withCString a2 $ \a2' -> 
   cRtWriteContentsToFile'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtWriteContentsToTimestampedFile :: HG3DClass -> String -> String -> IO (String)
 cRtWriteContentsToTimestampedFile a1 a2 a3 =
@@ -267,7 +265,7 @@   cRtWriteContentsToTimestampedFile'_ a1' a2' a3' a4' >>= \res ->
   peekCString  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetTriangleCount :: HG3DClass -> IO (Int)
 cRtGetTriangleCount a1 =
@@ -276,7 +274,7 @@   cRtGetTriangleCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetBatchCount :: HG3DClass -> IO (Int)
 cRtGetBatchCount a1 =
@@ -285,7 +283,7 @@   cRtGetBatchCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtIsPrimary :: HG3DClass -> IO (Bool)
 cRtIsPrimary a1 =
@@ -294,7 +292,7 @@   cRtIsPrimary'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtIsHardwareGammaEnabled :: HG3DClass -> IO (Bool)
 cRtIsHardwareGammaEnabled a1 =
@@ -303,7 +301,7 @@   cRtIsHardwareGammaEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetFSAA :: HG3DClass -> IO (Int)
 cRtGetFSAA a1 =
@@ -312,7 +310,7 @@   cRtGetFSAA'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtGetFSAAHint :: HG3DClass -> IO (String)
 cRtGetFSAAHint a1 =
@@ -321,14 +319,14 @@   cRtGetFSAAHint'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtBeginUpdate :: HG3DClass -> IO ()
 cRtBeginUpdate a1 =
   withHG3DClass a1 $ \a1' -> 
   cRtBeginUpdate'_ a1' >>= \res ->
   return ()
-{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtUpdateViewport :: HG3DClass -> Int -> Bool -> IO ()
 cRtUpdateViewport a1 a2 a3 =
@@ -337,7 +335,7 @@   let {a3' = fromBool a3} in 
   cRtUpdateViewport'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtUpdateViewport2 :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cRtUpdateViewport2 a1 a2 a3 =
@@ -346,7 +344,7 @@   let {a3' = fromBool a3} in 
   cRtUpdateViewport2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 194 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 cRtUpdateAutoUpdatedViewports :: HG3DClass -> Bool -> IO ()
 cRtUpdateAutoUpdatedViewports a1 a2 =
@@ -354,7 +352,7 @@   let {a2' = fromBool a2} in 
   cRtUpdateAutoUpdatedViewports'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
+{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h cRt_getName_c"
HGamer3D/Bindings/Ogre/ClassRenderTexture.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-}
HGamer3D/Bindings/Ogre/ClassRenderWindow.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 
 
 cRwSetFullscreen :: HG3DClass -> Bool -> Int -> Int -> IO ()
@@ -73,14 +71,14 @@   let {a4' = fromIntegral a4} in 
   cRwSetFullscreen'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwDestroy :: HG3DClass -> IO ()
 cRwDestroy a1 =
   withHG3DClass a1 $ \a1' -> 
   cRwDestroy'_ a1' >>= \res ->
   return ()
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwResize :: HG3DClass -> Int -> Int -> IO ()
 cRwResize a1 a2 a3 =
@@ -89,14 +87,14 @@   let {a3' = fromIntegral a3} in 
   cRwResize'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwWindowMovedOrResized :: HG3DClass -> IO ()
 cRwWindowMovedOrResized a1 =
   withHG3DClass a1 $ \a1' -> 
   cRwWindowMovedOrResized'_ a1' >>= \res ->
   return ()
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwReposition :: HG3DClass -> Int -> Int -> IO ()
 cRwReposition a1 a2 a3 =
@@ -105,7 +103,7 @@   let {a3' = fromIntegral a3} in 
   cRwReposition'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsVisible :: HG3DClass -> IO (Bool)
 cRwIsVisible a1 =
@@ -114,7 +112,7 @@   cRwIsVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwSetVisible :: HG3DClass -> Bool -> IO ()
 cRwSetVisible a1 a2 =
@@ -122,7 +120,7 @@   let {a2' = fromBool a2} in 
   cRwSetVisible'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsActive :: HG3DClass -> IO (Bool)
 cRwIsActive a1 =
@@ -131,7 +129,7 @@   cRwIsActive'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsClosed :: HG3DClass -> IO (Bool)
 cRwIsClosed a1 =
@@ -140,7 +138,7 @@   cRwIsClosed'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsPrimary :: HG3DClass -> IO (Bool)
 cRwIsPrimary a1 =
@@ -149,7 +147,7 @@   cRwIsPrimary'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsFullScreen :: HG3DClass -> IO (Bool)
 cRwIsFullScreen a1 =
@@ -158,7 +156,7 @@   cRwIsFullScreen'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwSuggestPixelFormat :: HG3DClass -> IO (EnumPixelFormat)
 cRwSuggestPixelFormat a1 =
@@ -167,7 +165,7 @@   cRwSuggestPixelFormat'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 cRwIsDeactivatedOnFocusChange :: HG3DClass -> IO (Bool)
 cRwIsDeactivatedOnFocusChange a1 =
@@ -176,7 +174,7 @@   cRwIsDeactivatedOnFocusChange'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h cRw_setFullscreen_c"
HGamer3D/Bindings/Ogre/ClassRenderingAPIException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRenderingAPIException.chs" #-}
HGamer3D/Bindings/Ogre/ClassResourceGroupListener.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 
 
 cRglResourceGroupScriptingStarted :: HG3DClass -> String -> Int -> IO ()
@@ -72,7 +70,7 @@   let {a3' = fromIntegral a3} in 
   cRglResourceGroupScriptingStarted'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglScriptParseEnded :: HG3DClass -> String -> Bool -> IO ()
 cRglScriptParseEnded a1 a2 a3 =
@@ -81,7 +79,7 @@   let {a3' = fromBool a3} in 
   cRglScriptParseEnded'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceGroupScriptingEnded :: HG3DClass -> String -> IO ()
 cRglResourceGroupScriptingEnded a1 a2 =
@@ -89,7 +87,7 @@   withCString a2 $ \a2' -> 
   cRglResourceGroupScriptingEnded'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceGroupPrepareStarted :: HG3DClass -> String -> Int -> IO ()
 cRglResourceGroupPrepareStarted a1 a2 a3 =
@@ -98,7 +96,7 @@   let {a3' = fromIntegral a3} in 
   cRglResourceGroupPrepareStarted'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourcePrepareStarted :: HG3DClass -> SharedPtr -> IO ()
 cRglResourcePrepareStarted a1 a2 =
@@ -106,14 +104,14 @@   withSharedPtr a2 $ \a2' -> 
   cRglResourcePrepareStarted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourcePrepareEnded :: HG3DClass -> IO ()
 cRglResourcePrepareEnded a1 =
   withHG3DClass a1 $ \a1' -> 
   cRglResourcePrepareEnded'_ a1' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglWorldGeometryPrepareStageStarted :: HG3DClass -> String -> IO ()
 cRglWorldGeometryPrepareStageStarted a1 a2 =
@@ -121,14 +119,14 @@   withCString a2 $ \a2' -> 
   cRglWorldGeometryPrepareStageStarted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglWorldGeometryPrepareStageEnded :: HG3DClass -> IO ()
 cRglWorldGeometryPrepareStageEnded a1 =
   withHG3DClass a1 $ \a1' -> 
   cRglWorldGeometryPrepareStageEnded'_ a1' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceGroupPrepareEnded :: HG3DClass -> String -> IO ()
 cRglResourceGroupPrepareEnded a1 a2 =
@@ -136,7 +134,7 @@   withCString a2 $ \a2' -> 
   cRglResourceGroupPrepareEnded'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceGroupLoadStarted :: HG3DClass -> String -> Int -> IO ()
 cRglResourceGroupLoadStarted a1 a2 a3 =
@@ -145,7 +143,7 @@   let {a3' = fromIntegral a3} in 
   cRglResourceGroupLoadStarted'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceLoadStarted :: HG3DClass -> SharedPtr -> IO ()
 cRglResourceLoadStarted a1 a2 =
@@ -153,14 +151,14 @@   withSharedPtr a2 $ \a2' -> 
   cRglResourceLoadStarted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceLoadEnded :: HG3DClass -> IO ()
 cRglResourceLoadEnded a1 =
   withHG3DClass a1 $ \a1' -> 
   cRglResourceLoadEnded'_ a1' >>= \res ->
   return ()
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglWorldGeometryStageStarted :: HG3DClass -> String -> IO ()
 cRglWorldGeometryStageStarted a1 a2 =
@@ -168,14 +166,14 @@   withCString a2 $ \a2' -> 
   cRglWorldGeometryStageStarted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglWorldGeometryStageEnded :: HG3DClass -> IO ()
 cRglWorldGeometryStageEnded a1 =
   withHG3DClass a1 $ \a1' -> 
   cRglWorldGeometryStageEnded'_ a1' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 cRglResourceGroupLoadEnded :: HG3DClass -> String -> IO ()
 cRglResourceGroupLoadEnded a1 a2 =
@@ -183,7 +181,7 @@   withCString a2 $ \a2' -> 
   cRglResourceGroupLoadEnded'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupListener.chs.h cRgl_resourceGroupScriptingStarted_c"
HGamer3D/Bindings/Ogre/ClassResourceGroupManager.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 
 
 cRgmCreateResourceGroup :: HG3DClass -> String -> Bool -> IO ()
@@ -72,7 +70,7 @@   let {a3' = fromBool a3} in 
   cRgmCreateResourceGroup'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmInitialiseResourceGroup :: HG3DClass -> String -> IO ()
 cRgmInitialiseResourceGroup a1 a2 =
@@ -80,14 +78,14 @@   withCString a2 $ \a2' -> 
   cRgmInitialiseResourceGroup'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmInitialiseAllResourceGroups :: HG3DClass -> IO ()
 cRgmInitialiseAllResourceGroups a1 =
   withHG3DClass a1 $ \a1' -> 
   cRgmInitialiseAllResourceGroups'_ a1' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmPrepareResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO ()
 cRgmPrepareResourceGroup a1 a2 a3 a4 =
@@ -97,7 +95,7 @@   let {a4' = fromBool a4} in 
   cRgmPrepareResourceGroup'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmLoadResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO ()
 cRgmLoadResourceGroup a1 a2 a3 a4 =
@@ -107,7 +105,7 @@   let {a4' = fromBool a4} in 
   cRgmLoadResourceGroup'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmUnloadResourceGroup :: HG3DClass -> String -> Bool -> IO ()
 cRgmUnloadResourceGroup a1 a2 a3 =
@@ -116,7 +114,7 @@   let {a3' = fromBool a3} in 
   cRgmUnloadResourceGroup'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmUnloadUnreferencedResourcesInGroup :: HG3DClass -> String -> Bool -> IO ()
 cRgmUnloadUnreferencedResourcesInGroup a1 a2 a3 =
@@ -125,7 +123,7 @@   let {a3' = fromBool a3} in 
   cRgmUnloadUnreferencedResourcesInGroup'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmClearResourceGroup :: HG3DClass -> String -> IO ()
 cRgmClearResourceGroup a1 a2 =
@@ -133,7 +131,7 @@   withCString a2 $ \a2' -> 
   cRgmClearResourceGroup'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmDestroyResourceGroup :: HG3DClass -> String -> IO ()
 cRgmDestroyResourceGroup a1 a2 =
@@ -141,7 +139,7 @@   withCString a2 $ \a2' -> 
   cRgmDestroyResourceGroup'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmIsResourceGroupInitialised :: HG3DClass -> String -> IO (Bool)
 cRgmIsResourceGroupInitialised a1 a2 =
@@ -151,7 +149,7 @@   cRgmIsResourceGroupInitialised'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmIsResourceGroupLoaded :: HG3DClass -> String -> IO (Bool)
 cRgmIsResourceGroupLoaded a1 a2 =
@@ -161,7 +159,7 @@   cRgmIsResourceGroupLoaded'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmResourceGroupExists :: HG3DClass -> String -> IO (Bool)
 cRgmResourceGroupExists a1 a2 =
@@ -171,7 +169,7 @@   cRgmResourceGroupExists'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmAddResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO ()
 cRgmAddResourceLocation a1 a2 a3 a4 a5 =
@@ -182,7 +180,7 @@   let {a5' = fromBool a5} in 
   cRgmAddResourceLocation'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmRemoveResourceLocation :: HG3DClass -> String -> String -> IO ()
 cRgmRemoveResourceLocation a1 a2 a3 =
@@ -191,7 +189,7 @@   withCString a3 $ \a3' -> 
   cRgmRemoveResourceLocation'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmResourceLocationExists :: HG3DClass -> String -> String -> IO (Bool)
 cRgmResourceLocationExists a1 a2 a3 =
@@ -202,7 +200,7 @@   cRgmResourceLocationExists'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmUndeclareResource :: HG3DClass -> String -> String -> IO ()
 cRgmUndeclareResource a1 a2 a3 =
@@ -211,7 +209,7 @@   withCString a3 $ \a3' -> 
   cRgmUndeclareResource'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmOpenResources :: HG3DClass -> String -> String -> IO (SharedPtr)
 cRgmOpenResources a1 a2 a3 =
@@ -222,7 +220,7 @@   cRgmOpenResources'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmListResourceNames :: HG3DClass -> String -> Bool -> IO (SharedPtr)
 cRgmListResourceNames a1 a2 a3 =
@@ -233,7 +231,7 @@   cRgmListResourceNames'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmListResourceFileInfo :: HG3DClass -> String -> Bool -> IO (SharedPtr)
 cRgmListResourceFileInfo a1 a2 a3 =
@@ -244,7 +242,7 @@   cRgmListResourceFileInfo'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmFindResourceNames :: HG3DClass -> String -> String -> Bool -> IO (SharedPtr)
 cRgmFindResourceNames a1 a2 a3 a4 =
@@ -256,7 +254,7 @@   cRgmFindResourceNames'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmResourceExists :: HG3DClass -> String -> String -> IO (Bool)
 cRgmResourceExists a1 a2 a3 =
@@ -267,7 +265,7 @@   cRgmResourceExists'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmResourceExistsInAnyGroup :: HG3DClass -> String -> IO (Bool)
 cRgmResourceExistsInAnyGroup a1 a2 =
@@ -277,7 +275,7 @@   cRgmResourceExistsInAnyGroup'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmFindGroupContainingResource :: HG3DClass -> String -> IO (String)
 cRgmFindGroupContainingResource a1 a2 =
@@ -287,7 +285,7 @@   cRgmFindGroupContainingResource'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmFindResourceFileInfo :: HG3DClass -> String -> String -> Bool -> IO (SharedPtr)
 cRgmFindResourceFileInfo a1 a2 a3 a4 =
@@ -299,7 +297,7 @@   cRgmFindResourceFileInfo'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmListResourceLocations :: HG3DClass -> String -> IO (SharedPtr)
 cRgmListResourceLocations a1 a2 =
@@ -309,7 +307,7 @@   cRgmListResourceLocations'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmFindResourceLocation :: HG3DClass -> String -> String -> IO (SharedPtr)
 cRgmFindResourceLocation a1 a2 a3 =
@@ -320,7 +318,7 @@   cRgmFindResourceLocation'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmCreateResource :: HG3DClass -> String -> String -> Bool -> String -> IO (SharedPtr)
 cRgmCreateResource a1 a2 a3 a4 a5 =
@@ -333,7 +331,7 @@   cRgmCreateResource'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   peek  a6'>>= \a6'' -> 
   return (a6'')
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmDeleteResource :: HG3DClass -> String -> String -> String -> IO ()
 cRgmDeleteResource a1 a2 a3 a4 =
@@ -343,7 +341,7 @@   withCString a4 $ \a4' -> 
   cRgmDeleteResource'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmDeleteMatchingResources :: HG3DClass -> String -> String -> String -> IO ()
 cRgmDeleteMatchingResources a1 a2 a3 a4 =
@@ -353,7 +351,7 @@   withCString a4 $ \a4' -> 
   cRgmDeleteMatchingResources'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmAddResourceGroupListener :: HG3DClass -> HG3DClass -> IO ()
 cRgmAddResourceGroupListener a1 a2 =
@@ -361,7 +359,7 @@   withHG3DClass a2 $ \a2' -> 
   cRgmAddResourceGroupListener'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmRemoveResourceGroupListener :: HG3DClass -> HG3DClass -> IO ()
 cRgmRemoveResourceGroupListener a1 a2 =
@@ -369,7 +367,7 @@   withHG3DClass a2 $ \a2' -> 
   cRgmRemoveResourceGroupListener'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmSetWorldResourceGroupName :: HG3DClass -> String -> IO ()
 cRgmSetWorldResourceGroupName a1 a2 =
@@ -377,7 +375,7 @@   withCString a2 $ \a2' -> 
   cRgmSetWorldResourceGroupName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmGetWorldResourceGroupName :: HG3DClass -> IO (String)
 cRgmGetWorldResourceGroupName a1 =
@@ -386,7 +384,7 @@   cRgmGetWorldResourceGroupName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmLinkWorldGeometryToResourceGroup :: HG3DClass -> String -> String -> HG3DClass -> IO ()
 cRgmLinkWorldGeometryToResourceGroup a1 a2 a3 a4 =
@@ -396,7 +394,7 @@   withHG3DClass a4 $ \a4' -> 
   cRgmLinkWorldGeometryToResourceGroup'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmUnlinkWorldGeometryFromResourceGroup :: HG3DClass -> String -> IO ()
 cRgmUnlinkWorldGeometryFromResourceGroup a1 a2 =
@@ -404,7 +402,7 @@   withCString a2 $ \a2' -> 
   cRgmUnlinkWorldGeometryFromResourceGroup'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmIsResourceGroupInGlobalPool :: HG3DClass -> String -> IO (Bool)
 cRgmIsResourceGroupInGlobalPool a1 a2 =
@@ -414,14 +412,14 @@   cRgmIsResourceGroupInGlobalPool'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmShutdownAll :: HG3DClass -> IO ()
 cRgmShutdownAll a1 =
   withHG3DClass a1 $ \a1' -> 
   cRgmShutdownAll'_ a1' >>= \res ->
   return ()
-{-# LINE 252 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 250 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmRegisterResourceManager :: HG3DClass -> String -> HG3DClass -> IO ()
 cRgmRegisterResourceManager a1 a2 a3 =
@@ -430,7 +428,7 @@   withHG3DClass a3 $ \a3' -> 
   cRgmRegisterResourceManager'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmUnregisterResourceManager :: HG3DClass -> String -> IO ()
 cRgmUnregisterResourceManager a1 a2 =
@@ -438,7 +436,7 @@   withCString a2 $ \a2' -> 
   cRgmUnregisterResourceManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmGetResourceManager :: HG3DClass -> String -> IO (HG3DClass)
 cRgmGetResourceManager a1 a2 =
@@ -448,7 +446,7 @@   cRgmGetResourceManager'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmNotifyResourceCreated :: HG3DClass -> IO (SharedPtr)
 cRgmNotifyResourceCreated a1 =
@@ -457,7 +455,7 @@   cRgmNotifyResourceCreated'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 270 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 268 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmNotifyResourceRemoved :: HG3DClass -> IO (SharedPtr)
 cRgmNotifyResourceRemoved a1 =
@@ -466,7 +464,7 @@   cRgmNotifyResourceRemoved'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 274 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmNotifyAllResourcesRemoved :: HG3DClass -> HG3DClass -> IO ()
 cRgmNotifyAllResourcesRemoved a1 a2 =
@@ -474,7 +472,7 @@   withHG3DClass a2 $ \a2' -> 
   cRgmNotifyAllResourcesRemoved'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 278 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 276 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmNotifyWorldGeometryStageStarted :: HG3DClass -> String -> IO ()
 cRgmNotifyWorldGeometryStageStarted a1 a2 =
@@ -482,14 +480,14 @@   withCString a2 $ \a2' -> 
   cRgmNotifyWorldGeometryStageStarted'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 282 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 280 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 cRgmNotifyWorldGeometryStageEnded :: HG3DClass -> IO ()
 cRgmNotifyWorldGeometryStageEnded a1 =
   withHG3DClass a1 $ \a1' -> 
   cRgmNotifyWorldGeometryStageEnded'_ a1' >>= \res ->
   return ()
-{-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 -- created constructor function from default constructor
 cRgmGetSingletonPtr :: IO (HG3DClass)
@@ -498,7 +496,7 @@   cRgmGetSingletonPtr'_ a1' >>= \res ->
   peek  a1'>>= \a1'' -> 
   return (a1'')
-{-# LINE 289 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
+{-# LINE 287 "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h cRgm_createResourceGroup_c"
HGamer3D/Bindings/Ogre/ClassResourceManager.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 
 
 cRmSetMemoryBudget :: HG3DClass -> Int -> IO ()
@@ -71,7 +69,7 @@   let {a2' = fromIntegral a2} in 
   cRmSetMemoryBudget'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetMemoryBudget :: HG3DClass -> IO (Int)
 cRmGetMemoryBudget a1 =
@@ -80,7 +78,7 @@   cRmGetMemoryBudget'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetMemoryUsage :: HG3DClass -> IO (Int)
 cRmGetMemoryUsage a1 =
@@ -89,7 +87,7 @@   cRmGetMemoryUsage'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmUnload :: HG3DClass -> String -> IO ()
 cRmUnload a1 a2 =
@@ -97,7 +95,7 @@   withCString a2 $ \a2' -> 
   cRmUnload'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmUnloadAll :: HG3DClass -> Bool -> IO ()
 cRmUnloadAll a1 a2 =
@@ -105,7 +103,7 @@   let {a2' = fromBool a2} in 
   cRmUnloadAll'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmReloadAll :: HG3DClass -> Bool -> IO ()
 cRmReloadAll a1 a2 =
@@ -113,7 +111,7 @@   let {a2' = fromBool a2} in 
   cRmReloadAll'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmUnloadUnreferencedResources :: HG3DClass -> Bool -> IO ()
 cRmUnloadUnreferencedResources a1 a2 =
@@ -121,7 +119,7 @@   let {a2' = fromBool a2} in 
   cRmUnloadUnreferencedResources'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmReloadUnreferencedResources :: HG3DClass -> Bool -> IO ()
 cRmReloadUnreferencedResources a1 a2 =
@@ -129,7 +127,7 @@   let {a2' = fromBool a2} in 
   cRmReloadUnreferencedResources'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmRemove :: HG3DClass -> IO (SharedPtr)
 cRmRemove a1 =
@@ -138,7 +136,7 @@   cRmRemove'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmRemove2 :: HG3DClass -> String -> IO ()
 cRmRemove2 a1 a2 =
@@ -146,14 +144,14 @@   withCString a2 $ \a2' -> 
   cRmRemove2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmRemoveAll :: HG3DClass -> IO ()
 cRmRemoveAll a1 =
   withHG3DClass a1 $ \a1' -> 
   cRmRemoveAll'_ a1' >>= \res ->
   return ()
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmRemoveUnreferencedResources :: HG3DClass -> Bool -> IO ()
 cRmRemoveUnreferencedResources a1 a2 =
@@ -161,7 +159,7 @@   let {a2' = fromBool a2} in 
   cRmRemoveUnreferencedResources'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetByName :: HG3DClass -> String -> String -> IO (SharedPtr)
 cRmGetByName a1 a2 a3 =
@@ -172,7 +170,7 @@   cRmGetByName'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmResourceExists :: HG3DClass -> String -> IO (Bool)
 cRmResourceExists a1 a2 =
@@ -182,7 +180,7 @@   cRmResourceExists'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmParseScript :: HG3DClass -> String -> IO (SharedPtr)
 cRmParseScript a1 a3 =
@@ -192,7 +190,7 @@   cRmParseScript'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetLoadingOrder :: HG3DClass -> IO (Float)
 cRmGetLoadingOrder a1 =
@@ -201,7 +199,7 @@   cRmGetLoadingOrder'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetResourceType :: HG3DClass -> IO (String)
 cRmGetResourceType a1 =
@@ -210,7 +208,7 @@   cRmGetResourceType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmSetVerbose :: HG3DClass -> Bool -> IO ()
 cRmSetVerbose a1 a2 =
@@ -218,7 +216,7 @@   let {a2' = fromBool a2} in 
   cRmSetVerbose'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmGetVerbose :: HG3DClass -> IO (Bool)
 cRmGetVerbose a1 =
@@ -227,7 +225,7 @@   cRmGetVerbose'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 cRmDestroyResourcePool2 :: HG3DClass -> String -> IO ()
 cRmDestroyResourcePool2 a1 a2 =
@@ -235,7 +233,7 @@   withCString a2 $ \a2' -> 
   cRmDestroyResourcePool2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
+{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h cRm_setMemoryBudget_c"
HGamer3D/Bindings/Ogre/ClassRibbonTrail.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 
 
 cRtrAddNode :: HG3DClass -> HG3DClass -> IO ()
@@ -71,7 +69,7 @@   withHG3DClass a2 $ \a2' -> 
   cRtrAddNode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrRemoveNode :: HG3DClass -> HG3DClass -> IO ()
 cRtrRemoveNode a1 a2 =
@@ -79,7 +77,7 @@   withHG3DClass a2 $ \a2' -> 
   cRtrRemoveNode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetTrailLength :: HG3DClass -> Float -> IO ()
 cRtrSetTrailLength a1 a2 =
@@ -87,7 +85,7 @@   let {a2' = realToFrac a2} in 
   cRtrSetTrailLength'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrGetTrailLength :: HG3DClass -> IO (Float)
 cRtrGetTrailLength a1 =
@@ -96,7 +94,7 @@   cRtrGetTrailLength'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetMaxChainElements :: HG3DClass -> Int -> IO ()
 cRtrSetMaxChainElements a1 a2 =
@@ -104,7 +102,7 @@   let {a2' = fromIntegral a2} in 
   cRtrSetMaxChainElements'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetNumberOfChains :: HG3DClass -> Int -> IO ()
 cRtrSetNumberOfChains a1 a2 =
@@ -112,7 +110,7 @@   let {a2' = fromIntegral a2} in 
   cRtrSetNumberOfChains'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrClearChain :: HG3DClass -> Int -> IO ()
 cRtrClearChain a1 a2 =
@@ -120,16 +118,16 @@   let {a2' = fromIntegral a2} in 
   cRtrClearChain'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
-cRtrSetInitialColour :: HG3DClass -> Int -> ColourValue -> IO ()
+cRtrSetInitialColour :: HG3DClass -> Int -> Colour -> IO ()
 cRtrSetInitialColour a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromIntegral a2} in 
-  withColourValue a3 $ \a3' -> 
+  withColour a3 $ \a3' -> 
   cRtrSetInitialColour'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetInitialColour2 :: HG3DClass -> Int -> Float -> Float -> Float -> Float -> IO ()
 cRtrSetInitialColour2 a1 a2 a3 a4 a5 a6 =
@@ -141,9 +139,9 @@   let {a6' = realToFrac a6} in 
   cRtrSetInitialColour2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   return ()
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
-cRtrGetInitialColour :: HG3DClass -> Int -> IO (ColourValue)
+cRtrGetInitialColour :: HG3DClass -> Int -> IO (Colour)
 cRtrGetInitialColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromIntegral a2} in 
@@ -151,16 +149,16 @@   cRtrGetInitialColour'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
-cRtrSetColourChange :: HG3DClass -> Int -> ColourValue -> IO ()
+cRtrSetColourChange :: HG3DClass -> Int -> Colour -> IO ()
 cRtrSetColourChange a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromIntegral a2} in 
-  withColourValue a3 $ \a3' -> 
+  withColour a3 $ \a3' -> 
   cRtrSetColourChange'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetInitialWidth :: HG3DClass -> Int -> Float -> IO ()
 cRtrSetInitialWidth a1 a2 a3 =
@@ -169,7 +167,7 @@   let {a3' = realToFrac a3} in 
   cRtrSetInitialWidth'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrGetInitialWidth :: HG3DClass -> Int -> IO (Float)
 cRtrGetInitialWidth a1 a2 =
@@ -179,7 +177,7 @@   cRtrGetInitialWidth'_ a1' a2' a3' >>= \res ->
   peekFloatConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetWidthChange :: HG3DClass -> Int -> Float -> IO ()
 cRtrSetWidthChange a1 a2 a3 =
@@ -188,7 +186,7 @@   let {a3' = realToFrac a3} in 
   cRtrSetWidthChange'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrGetWidthChange :: HG3DClass -> Int -> IO (Float)
 cRtrGetWidthChange a1 a2 =
@@ -198,7 +196,7 @@   cRtrGetWidthChange'_ a1' a2' a3' >>= \res ->
   peekFloatConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrSetColourChange2 :: HG3DClass -> Int -> Float -> Float -> Float -> Float -> IO ()
 cRtrSetColourChange2 a1 a2 a3 a4 a5 a6 =
@@ -210,9 +208,9 @@   let {a6' = realToFrac a6} in 
   cRtrSetColourChange2'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   return ()
-{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
-cRtrGetColourChange :: HG3DClass -> Int -> IO (ColourValue)
+cRtrGetColourChange :: HG3DClass -> Int -> IO (Colour)
 cRtrGetColourChange a1 a2 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromIntegral a2} in 
@@ -220,7 +218,7 @@   cRtrGetColourChange'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 cRtrTimeUpdate :: HG3DClass -> Float -> IO ()
 cRtrTimeUpdate a1 a2 =
@@ -228,7 +226,7 @@   let {a2' = realToFrac a2} in 
   cRtrTimeUpdate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_addNode_c"
@@ -253,16 +251,16 @@   cRtrClearChain'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_setInitialColour_c"
-  cRtrSetInitialColour'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourValuePtr) -> (IO ()))))
+  cRtrSetInitialColour'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_setInitialColour2_c"
   cRtrSetInitialColour2'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_getInitialColour_c"
-  cRtrGetInitialColour'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourValuePtr) -> (IO ()))))
+  cRtrGetInitialColour'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_setColourChange_c"
-  cRtrSetColourChange'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourValuePtr) -> (IO ()))))
+  cRtrSetColourChange'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_setInitialWidth_c"
   cRtrSetInitialWidth'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (IO ()))))
@@ -280,7 +278,7 @@   cRtrSetColourChange2'_ :: ((HG3DClassPtr) -> (CInt -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr_getColourChange_c"
-  cRtrGetColourChange'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourValuePtr) -> (IO ()))))
+  cRtrGetColourChange'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourPtr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrail.chs.h cRtr__timeUpdate_c"
   cRtrTimeUpdate'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
HGamer3D/Bindings/Ogre/ClassRibbonTrailFactory.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRibbonTrailFactory.chs" #-}
HGamer3D/Bindings/Ogre/ClassRoot.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 
 
 cRSaveConfig :: HG3DClass -> IO ()
@@ -72,7 +70,7 @@   withHG3DClass a1 $ \a1' -> 
   cRSaveConfig'_ a1' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRestoreConfig :: HG3DClass -> IO (Bool)
 cRRestoreConfig a1 =
@@ -81,7 +79,7 @@   cRRestoreConfig'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRShowConfigDialog :: HG3DClass -> IO (Bool)
 cRShowConfigDialog a1 =
@@ -90,7 +88,7 @@   cRShowConfigDialog'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRInitialise :: HG3DClass -> Bool -> String -> String -> IO (HG3DClass)
 cRInitialise a1 a2 a3 a4 =
@@ -102,7 +100,7 @@   cRInitialise'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRIsInitialised :: HG3DClass -> IO (Bool)
 cRIsInitialised a1 =
@@ -111,7 +109,7 @@   cRIsInitialised'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetRemoveRenderQueueStructuresOnClear :: HG3DClass -> IO (Bool)
 cRGetRemoveRenderQueueStructuresOnClear a1 =
@@ -120,7 +118,7 @@   cRGetRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRSetRemoveRenderQueueStructuresOnClear :: HG3DClass -> Bool -> IO ()
 cRSetRemoveRenderQueueStructuresOnClear a1 a2 =
@@ -128,7 +126,7 @@   let {a2' = fromBool a2} in 
   cRSetRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRAddSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
 cRAddSceneManagerFactory a1 a2 =
@@ -136,7 +134,7 @@   withHG3DClass a2 $ \a2' -> 
   cRAddSceneManagerFactory'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRemoveSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
 cRRemoveSceneManagerFactory a1 a2 =
@@ -144,7 +142,7 @@   withHG3DClass a2 $ \a2' -> 
   cRRemoveSceneManagerFactory'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRCreateSceneManager :: HG3DClass -> String -> String -> IO (HG3DClass)
 cRCreateSceneManager a1 a2 a3 =
@@ -155,7 +153,7 @@   cRCreateSceneManager'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRCreateSceneManager2 :: HG3DClass -> Int -> String -> IO (HG3DClass)
 cRCreateSceneManager2 a1 a2 a3 =
@@ -166,7 +164,7 @@   cRCreateSceneManager2'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDestroySceneManager :: HG3DClass -> HG3DClass -> IO ()
 cRDestroySceneManager a1 a2 =
@@ -174,7 +172,7 @@   withHG3DClass a2 $ \a2' -> 
   cRDestroySceneManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetSceneManager :: HG3DClass -> String -> IO (HG3DClass)
 cRGetSceneManager a1 a2 =
@@ -184,7 +182,7 @@   cRGetSceneManager'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRHasSceneManager :: HG3DClass -> String -> IO (Bool)
 cRHasSceneManager a1 a2 =
@@ -194,7 +192,7 @@   cRHasSceneManager'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetTextureManager :: HG3DClass -> IO (HG3DClass)
 cRGetTextureManager a1 =
@@ -203,7 +201,7 @@   cRGetTextureManager'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetErrorDescription :: HG3DClass -> Int -> IO (String)
 cRGetErrorDescription a1 a2 =
@@ -213,21 +211,21 @@   cRGetErrorDescription'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRQueueEndRendering :: HG3DClass -> IO ()
 cRQueueEndRendering a1 =
   withHG3DClass a1 $ \a1' -> 
   cRQueueEndRendering'_ a1' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRStartRendering :: HG3DClass -> IO ()
 cRStartRendering a1 =
   withHG3DClass a1 $ \a1' -> 
   cRStartRendering'_ a1' >>= \res ->
   return ()
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRenderOneFrame :: HG3DClass -> IO (Bool)
 cRRenderOneFrame a1 =
@@ -236,7 +234,7 @@   cRRenderOneFrame'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRenderOneFrame2 :: HG3DClass -> Float -> IO (Bool)
 cRRenderOneFrame2 a1 a2 =
@@ -246,14 +244,14 @@   cRRenderOneFrame2'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRShutdown :: HG3DClass -> IO ()
 cRShutdown a1 =
   withHG3DClass a1 $ \a1' -> 
   cRShutdown'_ a1' >>= \res ->
   return ()
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRAddResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO ()
 cRAddResourceLocation a1 a2 a3 a4 a5 =
@@ -264,7 +262,7 @@   let {a5' = fromBool a5} in 
   cRAddResourceLocation'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRemoveResourceLocation :: HG3DClass -> String -> String -> IO ()
 cRRemoveResourceLocation a1 a2 a3 =
@@ -273,7 +271,7 @@   withCString a3 $ \a3' -> 
   cRRemoveResourceLocation'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRCreateFileStream :: HG3DClass -> String -> String -> Bool -> String -> IO (SharedPtr)
 cRCreateFileStream a1 a2 a3 a4 a5 =
@@ -286,7 +284,7 @@   cRCreateFileStream'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   peek  a6'>>= \a6'' -> 
   return (a6'')
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cROpenFileStream :: HG3DClass -> String -> String -> String -> IO (SharedPtr)
 cROpenFileStream a1 a2 a3 a4 =
@@ -298,17 +296,17 @@   cROpenFileStream'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
-cRConvertColourValue :: HG3DClass -> ColourValue -> IO (Int)
+cRConvertColourValue :: HG3DClass -> Colour -> IO (Int)
 cRConvertColourValue a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   alloca $ \a3' -> 
   cRConvertColourValue'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetAutoCreatedWindow :: HG3DClass -> IO (HG3DClass)
 cRGetAutoCreatedWindow a1 =
@@ -317,7 +315,7 @@   cRGetAutoCreatedWindow'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDetachRenderTarget :: HG3DClass -> HG3DClass -> IO ()
 cRDetachRenderTarget a1 a2 =
@@ -325,7 +323,7 @@   withHG3DClass a2 $ \a2' -> 
   cRDetachRenderTarget'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDetachRenderTarget2 :: HG3DClass -> String -> IO ()
 cRDetachRenderTarget2 a1 a2 =
@@ -333,7 +331,7 @@   withCString a2 $ \a2' -> 
   cRDetachRenderTarget2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDestroyRenderTarget :: HG3DClass -> HG3DClass -> IO ()
 cRDestroyRenderTarget a1 a2 =
@@ -341,7 +339,7 @@   withHG3DClass a2 $ \a2' -> 
   cRDestroyRenderTarget'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDestroyRenderTarget2 :: HG3DClass -> String -> IO ()
 cRDestroyRenderTarget2 a1 a2 =
@@ -349,7 +347,7 @@   withCString a2 $ \a2' -> 
   cRDestroyRenderTarget2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
 cRGetRenderTarget a1 a2 =
@@ -359,7 +357,7 @@   cRGetRenderTarget'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRLoadPlugin :: HG3DClass -> String -> IO ()
 cRLoadPlugin a1 a2 =
@@ -367,7 +365,7 @@   withCString a2 $ \a2' -> 
   cRLoadPlugin'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRUnloadPlugin :: HG3DClass -> String -> IO ()
 cRUnloadPlugin a1 a2 =
@@ -375,7 +373,7 @@   withCString a2 $ \a2' -> 
   cRUnloadPlugin'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRFireFrameStarted2 :: HG3DClass -> IO (Bool)
 cRFireFrameStarted2 a1 =
@@ -384,7 +382,7 @@   cRFireFrameStarted2'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRFireFrameRenderingQueued2 :: HG3DClass -> IO (Bool)
 cRFireFrameRenderingQueued2 a1 =
@@ -393,7 +391,7 @@   cRFireFrameRenderingQueued2'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRFireFrameEnded2 :: HG3DClass -> IO (Bool)
 cRFireFrameEnded2 a1 =
@@ -402,7 +400,7 @@   cRFireFrameEnded2'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetCurrentSceneManager :: HG3DClass -> IO (HG3DClass)
 cRGetCurrentSceneManager a1 =
@@ -411,7 +409,7 @@   cRGetCurrentSceneManager'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRPushCurrentSceneManager :: HG3DClass -> HG3DClass -> IO ()
 cRPushCurrentSceneManager a1 a2 =
@@ -419,7 +417,7 @@   withHG3DClass a2 $ \a2' -> 
   cRPushCurrentSceneManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRPopCurrentSceneManager :: HG3DClass -> HG3DClass -> IO ()
 cRPopCurrentSceneManager a1 a2 =
@@ -427,7 +425,7 @@   withHG3DClass a2 $ \a2' -> 
   cRPopCurrentSceneManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRUpdateAllRenderTargets :: HG3DClass -> IO (Bool)
 cRUpdateAllRenderTargets a1 =
@@ -436,7 +434,7 @@   cRUpdateAllRenderTargets'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRCreateRenderQueueInvocationSequence :: HG3DClass -> String -> IO (HG3DClass)
 cRCreateRenderQueueInvocationSequence a1 a2 =
@@ -446,7 +444,7 @@   cRCreateRenderQueueInvocationSequence'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetRenderQueueInvocationSequence :: HG3DClass -> String -> IO (HG3DClass)
 cRGetRenderQueueInvocationSequence a1 a2 =
@@ -456,7 +454,7 @@   cRGetRenderQueueInvocationSequence'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 254 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 252 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDestroyRenderQueueInvocationSequence :: HG3DClass -> String -> IO ()
 cRDestroyRenderQueueInvocationSequence a1 a2 =
@@ -464,21 +462,21 @@   withCString a2 $ \a2' -> 
   cRDestroyRenderQueueInvocationSequence'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 256 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRDestroyAllRenderQueueInvocationSequences :: HG3DClass -> IO ()
 cRDestroyAllRenderQueueInvocationSequences a1 =
   withHG3DClass a1 $ \a1' -> 
   cRDestroyAllRenderQueueInvocationSequences'_ a1' >>= \res ->
   return ()
-{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRClearEventTimes :: HG3DClass -> IO ()
 cRClearEventTimes a1 =
   withHG3DClass a1 $ \a1' -> 
   cRClearEventTimes'_ a1' >>= \res ->
   return ()
-{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRSetFrameSmoothingPeriod :: HG3DClass -> Float -> IO ()
 cRSetFrameSmoothingPeriod a1 a2 =
@@ -486,7 +484,7 @@   let {a2' = realToFrac a2} in 
   cRSetFrameSmoothingPeriod'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 268 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetFrameSmoothingPeriod :: HG3DClass -> IO (Float)
 cRGetFrameSmoothingPeriod a1 =
@@ -495,7 +493,7 @@   cRGetFrameSmoothingPeriod'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 270 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRAddMovableObjectFactory :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cRAddMovableObjectFactory a1 a2 a3 =
@@ -504,7 +502,7 @@   let {a3' = fromBool a3} in 
   cRAddMovableObjectFactory'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 275 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRRemoveMovableObjectFactory :: HG3DClass -> HG3DClass -> IO ()
 cRRemoveMovableObjectFactory a1 a2 =
@@ -512,7 +510,7 @@   withHG3DClass a2 $ \a2' -> 
   cRRemoveMovableObjectFactory'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 279 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRHasMovableObjectFactory :: HG3DClass -> String -> IO (Bool)
 cRHasMovableObjectFactory a1 a2 =
@@ -522,7 +520,7 @@   cRHasMovableObjectFactory'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 286 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 284 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetMovableObjectFactory :: HG3DClass -> String -> IO (HG3DClass)
 cRGetMovableObjectFactory a1 a2 =
@@ -532,7 +530,7 @@   cRGetMovableObjectFactory'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 291 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 289 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRAllocateNextMovableObjectTypeFlag :: HG3DClass -> IO (Int)
 cRAllocateNextMovableObjectTypeFlag a1 =
@@ -541,7 +539,7 @@   cRAllocateNextMovableObjectTypeFlag'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 295 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 293 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 cRGetDisplayMonitorCount :: HG3DClass -> IO (Int)
 cRGetDisplayMonitorCount a1 =
@@ -550,7 +548,7 @@   cRGetDisplayMonitorCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 297 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 -- created constructor function from default constructor
 cRNew :: IO (HG3DClass)
@@ -559,7 +557,7 @@   cRNew'_ a1' >>= \res ->
   peek  a1'>>= \a1'' -> 
   return (a1'')
-{-# LINE 303 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
+{-# LINE 301 "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h cR_saveConfig_c"
@@ -638,7 +636,7 @@   cROpenFileStream'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((SharedPtrPtr) -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h cR_convertColourValue_c"
-  cRConvertColourValue'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> ((Ptr CUInt) -> (IO ()))))
+  cRConvertColourValue'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((Ptr CUInt) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h cR_getAutoCreatedWindow_c"
   cRGetAutoCreatedWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassRuntimeAssertionException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassRuntimeAssertionException.chs" #-}
HGamer3D/Bindings/Ogre/ClassSceneManager.hs view
@@ -51,34 +51,32 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPrefabType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFogMode
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSpecialCaseRenderQueueMode
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumShadowTechnique
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLightTypes
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 
 
 cSmGetName :: HG3DClass -> IO (String)
@@ -88,7 +86,7 @@   cSmGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetTypeName :: HG3DClass -> IO (String)
 cSmGetTypeName a1 =
@@ -97,7 +95,7 @@   cSmGetTypeName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateCamera :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateCamera a1 a2 =
@@ -107,7 +105,7 @@   cSmCreateCamera'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetCamera :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetCamera a1 a2 =
@@ -117,7 +115,7 @@   cSmGetCamera'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasCamera :: HG3DClass -> String -> IO (Bool)
 cSmHasCamera a1 a2 =
@@ -127,7 +125,7 @@   cSmHasCamera'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyCamera :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyCamera a1 a2 =
@@ -135,7 +133,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyCamera2 :: HG3DClass -> String -> IO ()
 cSmDestroyCamera2 a1 a2 =
@@ -143,14 +141,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyCamera2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllCameras :: HG3DClass -> IO ()
 cSmDestroyAllCameras a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllCameras'_ a1' >>= \res ->
   return ()
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateLight :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateLight a1 a2 =
@@ -160,7 +158,7 @@   cSmCreateLight'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateLight2 :: HG3DClass -> IO (HG3DClass)
 cSmCreateLight2 a1 =
@@ -169,7 +167,7 @@   cSmCreateLight2'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetLight :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetLight a1 a2 =
@@ -179,7 +177,7 @@   cSmGetLight'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasLight :: HG3DClass -> String -> IO (Bool)
 cSmHasLight a1 a2 =
@@ -189,7 +187,7 @@   cSmHasLight'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyLight :: HG3DClass -> String -> IO ()
 cSmDestroyLight a1 a2 =
@@ -197,7 +195,7 @@   withCString a2 $ \a2' -> 
   cSmDestroyLight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyLight2 :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyLight2 a1 a2 =
@@ -205,21 +203,21 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyLight2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllLights :: HG3DClass -> IO ()
 cSmDestroyAllLights a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllLights'_ a1' >>= \res ->
   return ()
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmNotifyLightsDirty :: HG3DClass -> IO ()
 cSmNotifyLightsDirty a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmNotifyLightsDirty'_ a1' >>= \res ->
   return ()
-{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateSceneNode :: HG3DClass -> IO (HG3DClass)
 cSmCreateSceneNode a1 =
@@ -228,7 +226,7 @@   cSmCreateSceneNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 138 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateSceneNode2 :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateSceneNode2 a1 a2 =
@@ -238,7 +236,7 @@   cSmCreateSceneNode2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroySceneNode :: HG3DClass -> String -> IO ()
 cSmDestroySceneNode a1 a2 =
@@ -246,7 +244,7 @@   withCString a2 $ \a2' -> 
   cSmDestroySceneNode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroySceneNode2 :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroySceneNode2 a1 a2 =
@@ -254,7 +252,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroySceneNode2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetRootSceneNode :: HG3DClass -> IO (HG3DClass)
 cSmGetRootSceneNode a1 =
@@ -263,7 +261,7 @@   cSmGetRootSceneNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetSceneNode :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetSceneNode a1 a2 =
@@ -273,7 +271,7 @@   cSmGetSceneNode'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasSceneNode :: HG3DClass -> String -> IO (Bool)
 cSmHasSceneNode a1 a2 =
@@ -283,7 +281,7 @@   cSmHasSceneNode'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateEntity :: HG3DClass -> String -> String -> String -> IO (HG3DClass)
 cSmCreateEntity a1 a2 a3 a4 =
@@ -295,7 +293,7 @@   cSmCreateEntity'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateEntity2 :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateEntity2 a1 a2 =
@@ -305,7 +303,7 @@   cSmCreateEntity2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateEntity3 :: HG3DClass -> String -> EnumPrefabType -> IO (HG3DClass)
 cSmCreateEntity3 a1 a2 a3 =
@@ -316,7 +314,7 @@   cSmCreateEntity3'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateEntity4 :: HG3DClass -> EnumPrefabType -> IO (HG3DClass)
 cSmCreateEntity4 a1 a2 =
@@ -326,7 +324,7 @@   cSmCreateEntity4'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetEntity :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetEntity a1 a2 =
@@ -336,7 +334,7 @@   cSmGetEntity'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasEntity :: HG3DClass -> String -> IO (Bool)
 cSmHasEntity a1 a2 =
@@ -346,7 +344,7 @@   cSmHasEntity'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyEntity :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyEntity a1 a2 =
@@ -354,7 +352,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyEntity'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyEntity2 :: HG3DClass -> String -> IO ()
 cSmDestroyEntity2 a1 a2 =
@@ -362,14 +360,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyEntity2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllEntities :: HG3DClass -> IO ()
 cSmDestroyAllEntities a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllEntities'_ a1' >>= \res ->
   return ()
-{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateManualObject :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateManualObject a1 a2 =
@@ -379,7 +377,7 @@   cSmCreateManualObject'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateManualObject2 :: HG3DClass -> IO (HG3DClass)
 cSmCreateManualObject2 a1 =
@@ -388,7 +386,7 @@   cSmCreateManualObject2'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetManualObject :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetManualObject a1 a2 =
@@ -398,7 +396,7 @@   cSmGetManualObject'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasManualObject :: HG3DClass -> String -> IO (Bool)
 cSmHasManualObject a1 a2 =
@@ -408,7 +406,7 @@   cSmHasManualObject'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyManualObject :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyManualObject a1 a2 =
@@ -416,7 +414,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyManualObject'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 230 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyManualObject2 :: HG3DClass -> String -> IO ()
 cSmDestroyManualObject2 a1 a2 =
@@ -424,14 +422,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyManualObject2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 234 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllManualObjects :: HG3DClass -> IO ()
 cSmDestroyAllManualObjects a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllManualObjects'_ a1' >>= \res ->
   return ()
-{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 237 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateBillboardChain :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateBillboardChain a1 a2 =
@@ -441,7 +439,7 @@   cSmCreateBillboardChain'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 244 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 242 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateBillboardChain2 :: HG3DClass -> IO (HG3DClass)
 cSmCreateBillboardChain2 a1 =
@@ -450,7 +448,7 @@   cSmCreateBillboardChain2'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 248 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 246 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetBillboardChain :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetBillboardChain a1 a2 =
@@ -460,7 +458,7 @@   cSmGetBillboardChain'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasBillboardChain :: HG3DClass -> String -> IO (Bool)
 cSmHasBillboardChain a1 a2 =
@@ -470,7 +468,7 @@   cSmHasBillboardChain'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 258 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 256 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyBillboardChain :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyBillboardChain a1 a2 =
@@ -478,7 +476,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyBillboardChain'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 262 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 260 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyBillboardChain2 :: HG3DClass -> String -> IO ()
 cSmDestroyBillboardChain2 a1 a2 =
@@ -486,14 +484,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyBillboardChain2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 264 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllBillboardChains :: HG3DClass -> IO ()
 cSmDestroyAllBillboardChains a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllBillboardChains'_ a1' >>= \res ->
   return ()
-{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateRibbonTrail :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateRibbonTrail a1 a2 =
@@ -503,7 +501,7 @@   cSmCreateRibbonTrail'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 274 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateRibbonTrail2 :: HG3DClass -> IO (HG3DClass)
 cSmCreateRibbonTrail2 a1 =
@@ -512,7 +510,7 @@   cSmCreateRibbonTrail2'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 278 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 276 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetRibbonTrail :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetRibbonTrail a1 a2 =
@@ -522,7 +520,7 @@   cSmGetRibbonTrail'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasRibbonTrail :: HG3DClass -> String -> IO (Bool)
 cSmHasRibbonTrail a1 a2 =
@@ -532,7 +530,7 @@   cSmHasRibbonTrail'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 288 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 286 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyRibbonTrail :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyRibbonTrail a1 a2 =
@@ -540,7 +538,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyRibbonTrail'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 292 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 290 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyRibbonTrail2 :: HG3DClass -> String -> IO ()
 cSmDestroyRibbonTrail2 a1 a2 =
@@ -548,14 +546,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyRibbonTrail2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 296 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 294 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllRibbonTrails :: HG3DClass -> IO ()
 cSmDestroyAllRibbonTrails a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllRibbonTrails'_ a1' >>= \res ->
   return ()
-{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 297 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasParticleSystem :: HG3DClass -> String -> IO (Bool)
 cSmHasParticleSystem a1 a2 =
@@ -565,7 +563,7 @@   cSmHasParticleSystem'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 304 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 302 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyParticleSystem2 :: HG3DClass -> String -> IO ()
 cSmDestroyParticleSystem2 a1 a2 =
@@ -573,38 +571,38 @@   withCString a2 $ \a2' -> 
   cSmDestroyParticleSystem2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 308 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 306 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllParticleSystems :: HG3DClass -> IO ()
 cSmDestroyAllParticleSystems a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllParticleSystems'_ a1' >>= \res ->
   return ()
-{-# LINE 311 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 309 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmClearScene :: HG3DClass -> IO ()
 cSmClearScene a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmClearScene'_ a1' >>= \res ->
   return ()
-{-# LINE 314 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 312 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmSetAmbientLight :: HG3DClass -> ColourValue -> IO ()
+cSmSetAmbientLight :: HG3DClass -> Colour -> IO ()
 cSmSetAmbientLight a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cSmSetAmbientLight'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 318 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 316 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmGetAmbientLight :: HG3DClass -> IO (ColourValue)
+cSmGetAmbientLight :: HG3DClass -> IO (Colour)
 cSmGetAmbientLight a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cSmGetAmbientLight'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 322 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 320 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmPrepareWorldGeometry :: HG3DClass -> String -> IO ()
 cSmPrepareWorldGeometry a1 a2 =
@@ -612,7 +610,7 @@   withCString a2 $ \a2' -> 
   cSmPrepareWorldGeometry'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 326 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 324 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmPrepareWorldGeometry2 :: HG3DClass -> String -> IO (SharedPtr)
 cSmPrepareWorldGeometry2 a1 a3 =
@@ -622,7 +620,7 @@   cSmPrepareWorldGeometry2'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 331 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 329 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetWorldGeometry :: HG3DClass -> String -> IO ()
 cSmSetWorldGeometry a1 a2 =
@@ -630,7 +628,7 @@   withCString a2 $ \a2' -> 
   cSmSetWorldGeometry'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 335 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 333 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetWorldGeometry2 :: HG3DClass -> String -> IO (SharedPtr)
 cSmSetWorldGeometry2 a1 a3 =
@@ -640,7 +638,7 @@   cSmSetWorldGeometry2'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 340 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 338 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmEstimateWorldGeometry :: HG3DClass -> String -> IO (Int)
 cSmEstimateWorldGeometry a1 a2 =
@@ -650,7 +648,7 @@   cSmEstimateWorldGeometry'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 345 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 343 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmEstimateWorldGeometry2 :: HG3DClass -> String -> IO (SharedPtr, Int)
 cSmEstimateWorldGeometry2 a1 a3 =
@@ -662,7 +660,7 @@   peek  a2'>>= \a2'' -> 
   peekIntConv  a4'>>= \a4'' -> 
   return (a2'', a4'')
-{-# LINE 351 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 349 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasOption :: HG3DClass -> String -> IO (Bool)
 cSmHasOption a1 a2 =
@@ -672,7 +670,7 @@   cSmHasOption'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 356 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 354 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmUpdateSceneGraph :: HG3DClass -> HG3DClass -> IO ()
 cSmUpdateSceneGraph a1 a2 =
@@ -680,21 +678,21 @@   withHG3DClass a2 $ \a2' -> 
   cSmUpdateSceneGraph'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 360 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 358 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmApplySceneAnimations :: HG3DClass -> IO ()
 cSmApplySceneAnimations a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmApplySceneAnimations'_ a1' >>= \res ->
   return ()
-{-# LINE 363 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 361 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmRenderVisibleObjects :: HG3DClass -> IO ()
 cSmRenderVisibleObjects a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmRenderVisibleObjects'_ a1' >>= \res ->
   return ()
-{-# LINE 366 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 364 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmRenderScene :: HG3DClass -> HG3DClass -> HG3DClass -> Bool -> IO ()
 cSmRenderScene a1 a2 a3 a4 =
@@ -704,7 +702,7 @@   let {a4' = fromBool a4} in 
   cSmRenderScene'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 372 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 370 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmQueueSkiesForRendering :: HG3DClass -> HG3DClass -> IO ()
 cSmQueueSkiesForRendering a1 a2 =
@@ -712,7 +710,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmQueueSkiesForRendering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 376 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 374 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSkyPlaneEnabled :: HG3DClass -> Bool -> IO ()
 cSmSetSkyPlaneEnabled a1 a2 =
@@ -720,7 +718,7 @@   let {a2' = fromBool a2} in 
   cSmSetSkyPlaneEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 380 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 378 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsSkyPlaneEnabled :: HG3DClass -> IO (Bool)
 cSmIsSkyPlaneEnabled a1 =
@@ -729,7 +727,7 @@   cSmIsSkyPlaneEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 384 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 382 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetSkyPlaneNode :: HG3DClass -> IO (HG3DClass)
 cSmGetSkyPlaneNode a1 =
@@ -738,7 +736,7 @@   cSmGetSkyPlaneNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 388 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 386 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSkyBox :: HG3DClass -> Bool -> String -> Float -> Bool -> Quaternion -> String -> IO ()
 cSmSetSkyBox a1 a2 a3 a4 a5 a6 a7 =
@@ -751,7 +749,7 @@   withCString a7 $ \a7' -> 
   cSmSetSkyBox'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 397 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 395 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSkyBoxEnabled :: HG3DClass -> Bool -> IO ()
 cSmSetSkyBoxEnabled a1 a2 =
@@ -759,7 +757,7 @@   let {a2' = fromBool a2} in 
   cSmSetSkyBoxEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 401 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 399 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsSkyBoxEnabled :: HG3DClass -> IO (Bool)
 cSmIsSkyBoxEnabled a1 =
@@ -768,7 +766,7 @@   cSmIsSkyBoxEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 405 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 403 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetSkyBoxNode :: HG3DClass -> IO (HG3DClass)
 cSmGetSkyBoxNode a1 =
@@ -777,7 +775,7 @@   cSmGetSkyBoxNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 409 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 407 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSkyDome :: HG3DClass -> Bool -> String -> Float -> Float -> Float -> Bool -> Quaternion -> Int -> Int -> Int -> String -> IO ()
 cSmSetSkyDome a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 =
@@ -795,7 +793,7 @@   withCString a12 $ \a12' -> 
   cSmSetSkyDome'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res ->
   return ()
-{-# LINE 423 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 421 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSkyDomeEnabled :: HG3DClass -> Bool -> IO ()
 cSmSetSkyDomeEnabled a1 a2 =
@@ -803,7 +801,7 @@   let {a2' = fromBool a2} in 
   cSmSetSkyDomeEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 427 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 425 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsSkyDomeEnabled :: HG3DClass -> IO (Bool)
 cSmIsSkyDomeEnabled a1 =
@@ -812,7 +810,7 @@   cSmIsSkyDomeEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 431 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 429 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetSkyDomeNode :: HG3DClass -> IO (HG3DClass)
 cSmGetSkyDomeNode a1 =
@@ -821,19 +819,19 @@   cSmGetSkyDomeNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 435 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 433 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmSetFog :: HG3DClass -> EnumFogMode -> ColourValue -> Float -> Float -> Float -> IO ()
+cSmSetFog :: HG3DClass -> EnumFogMode -> Colour -> Float -> Float -> Float -> IO ()
 cSmSetFog a1 a2 a3 a4 a5 a6 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = cIntFromEnum a2} in 
-  withColourValue a3 $ \a3' -> 
+  withColour a3 $ \a3' -> 
   let {a4' = realToFrac a4} in 
   let {a5' = realToFrac a5} in 
   let {a6' = realToFrac a6} in 
   cSmSetFog'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   return ()
-{-# LINE 443 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 441 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFogMode :: HG3DClass -> IO (EnumFogMode)
 cSmGetFogMode a1 =
@@ -842,16 +840,16 @@   cSmGetFogMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 447 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 445 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmGetFogColour :: HG3DClass -> IO (ColourValue)
+cSmGetFogColour :: HG3DClass -> IO (Colour)
 cSmGetFogColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cSmGetFogColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 451 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 449 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFogStart :: HG3DClass -> IO (Float)
 cSmGetFogStart a1 =
@@ -860,7 +858,7 @@   cSmGetFogStart'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 455 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 453 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFogEnd :: HG3DClass -> IO (Float)
 cSmGetFogEnd a1 =
@@ -869,7 +867,7 @@   cSmGetFogEnd'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 459 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 457 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFogDensity :: HG3DClass -> IO (Float)
 cSmGetFogDensity a1 =
@@ -878,7 +876,7 @@   cSmGetFogDensity'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 463 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 461 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateBillboardSet :: HG3DClass -> String -> Int -> IO (HG3DClass)
 cSmCreateBillboardSet a1 a2 a3 =
@@ -889,7 +887,7 @@   cSmCreateBillboardSet'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 469 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 467 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateBillboardSet2 :: HG3DClass -> Int -> IO (HG3DClass)
 cSmCreateBillboardSet2 a1 a2 =
@@ -899,7 +897,7 @@   cSmCreateBillboardSet2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 474 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 472 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetBillboardSet :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetBillboardSet a1 a2 =
@@ -909,7 +907,7 @@   cSmGetBillboardSet'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 479 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 477 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasBillboardSet :: HG3DClass -> String -> IO (Bool)
 cSmHasBillboardSet a1 a2 =
@@ -919,7 +917,7 @@   cSmHasBillboardSet'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 484 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 482 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyBillboardSet :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyBillboardSet a1 a2 =
@@ -927,7 +925,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyBillboardSet'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 488 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 486 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyBillboardSet2 :: HG3DClass -> String -> IO ()
 cSmDestroyBillboardSet2 a1 a2 =
@@ -935,14 +933,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyBillboardSet2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 492 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 490 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllBillboardSets :: HG3DClass -> IO ()
 cSmDestroyAllBillboardSets a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllBillboardSets'_ a1' >>= \res ->
   return ()
-{-# LINE 495 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 493 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetDisplaySceneNodes :: HG3DClass -> Bool -> IO ()
 cSmSetDisplaySceneNodes a1 a2 =
@@ -950,7 +948,7 @@   let {a2' = fromBool a2} in 
   cSmSetDisplaySceneNodes'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 499 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 497 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetDisplaySceneNodes :: HG3DClass -> IO (Bool)
 cSmGetDisplaySceneNodes a1 =
@@ -959,7 +957,7 @@   cSmGetDisplaySceneNodes'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 503 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 501 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
 cSmCreateAnimation a1 a2 a3 =
@@ -970,7 +968,7 @@   cSmCreateAnimation'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 509 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 507 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetAnimation :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetAnimation a1 a2 =
@@ -980,7 +978,7 @@   cSmGetAnimation'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 514 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 512 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasAnimation :: HG3DClass -> String -> IO (Bool)
 cSmHasAnimation a1 a2 =
@@ -990,7 +988,7 @@   cSmHasAnimation'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 519 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 517 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAnimation :: HG3DClass -> String -> IO ()
 cSmDestroyAnimation a1 a2 =
@@ -998,14 +996,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 523 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 521 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllAnimations :: HG3DClass -> IO ()
 cSmDestroyAllAnimations a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllAnimations'_ a1' >>= \res ->
   return ()
-{-# LINE 526 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 524 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateAnimationState :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateAnimationState a1 a2 =
@@ -1015,7 +1013,7 @@   cSmCreateAnimationState'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 531 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 529 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetAnimationState :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetAnimationState a1 a2 =
@@ -1025,7 +1023,7 @@   cSmGetAnimationState'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 536 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 534 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasAnimationState :: HG3DClass -> String -> IO (Bool)
 cSmHasAnimationState a1 a2 =
@@ -1035,7 +1033,7 @@   cSmHasAnimationState'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 541 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 539 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAnimationState :: HG3DClass -> String -> IO ()
 cSmDestroyAnimationState a1 a2 =
@@ -1043,14 +1041,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyAnimationState'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 545 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 543 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllAnimationStates :: HG3DClass -> IO ()
 cSmDestroyAllAnimationStates a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllAnimationStates'_ a1' >>= \res ->
   return ()
-{-# LINE 548 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 546 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmAddRenderObjectListener :: HG3DClass -> HG3DClass -> IO ()
 cSmAddRenderObjectListener a1 a2 =
@@ -1058,7 +1056,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmAddRenderObjectListener'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 552 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 550 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmRemoveRenderObjectListener :: HG3DClass -> HG3DClass -> IO ()
 cSmRemoveRenderObjectListener a1 a2 =
@@ -1066,14 +1064,14 @@   withHG3DClass a2 $ \a2' -> 
   cSmRemoveRenderObjectListener'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 556 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 554 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmClearSpecialCaseRenderQueues :: HG3DClass -> IO ()
 cSmClearSpecialCaseRenderQueues a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmClearSpecialCaseRenderQueues'_ a1' >>= \res ->
   return ()
-{-# LINE 559 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 557 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetSpecialCaseRenderQueueMode :: HG3DClass -> EnumSpecialCaseRenderQueueMode -> IO ()
 cSmSetSpecialCaseRenderQueueMode a1 a2 =
@@ -1081,7 +1079,7 @@   let {a2' = cIntFromEnum a2} in 
   cSmSetSpecialCaseRenderQueueMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 563 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 561 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetSpecialCaseRenderQueueMode :: HG3DClass -> IO (EnumSpecialCaseRenderQueueMode)
 cSmGetSpecialCaseRenderQueueMode a1 =
@@ -1090,7 +1088,7 @@   cSmGetSpecialCaseRenderQueueMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 567 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 565 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmShowBoundingBoxes :: HG3DClass -> Bool -> IO ()
 cSmShowBoundingBoxes a1 a2 =
@@ -1098,7 +1096,7 @@   let {a2' = fromBool a2} in 
   cSmShowBoundingBoxes'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 571 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 569 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShowBoundingBoxes :: HG3DClass -> IO (Bool)
 cSmGetShowBoundingBoxes a1 =
@@ -1107,7 +1105,7 @@   cSmGetShowBoundingBoxes'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 575 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 573 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmNotifyAutotrackingSceneNode :: HG3DClass -> HG3DClass -> Bool -> IO ()
 cSmNotifyAutotrackingSceneNode a1 a2 a3 =
@@ -1116,7 +1114,7 @@   let {a3' = fromBool a3} in 
   cSmNotifyAutotrackingSceneNode'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 580 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 578 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTechnique :: HG3DClass -> EnumShadowTechnique -> IO ()
 cSmSetShadowTechnique a1 a2 =
@@ -1124,7 +1122,7 @@   let {a2' = cIntFromEnum a2} in 
   cSmSetShadowTechnique'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 584 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 582 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowTechnique :: HG3DClass -> IO (EnumShadowTechnique)
 cSmGetShadowTechnique a1 =
@@ -1133,7 +1131,7 @@   cSmGetShadowTechnique'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 588 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 586 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShowDebugShadows :: HG3DClass -> Bool -> IO ()
 cSmSetShowDebugShadows a1 a2 =
@@ -1141,7 +1139,7 @@   let {a2' = fromBool a2} in 
   cSmSetShowDebugShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 592 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 590 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShowDebugShadows :: HG3DClass -> IO (Bool)
 cSmGetShowDebugShadows a1 =
@@ -1150,24 +1148,24 @@   cSmGetShowDebugShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 596 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 594 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmSetShadowColour :: HG3DClass -> ColourValue -> IO ()
+cSmSetShadowColour :: HG3DClass -> Colour -> IO ()
 cSmSetShadowColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cSmSetShadowColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 600 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 598 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
-cSmGetShadowColour :: HG3DClass -> IO (ColourValue)
+cSmGetShadowColour :: HG3DClass -> IO (Colour)
 cSmGetShadowColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cSmGetShadowColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 604 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 602 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowDirectionalLightExtrusionDistance :: HG3DClass -> Float -> IO ()
 cSmSetShadowDirectionalLightExtrusionDistance a1 a2 =
@@ -1175,7 +1173,7 @@   let {a2' = realToFrac a2} in 
   cSmSetShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 608 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 606 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowDirectionalLightExtrusionDistance :: HG3DClass -> IO (Float)
 cSmGetShadowDirectionalLightExtrusionDistance a1 =
@@ -1184,7 +1182,7 @@   cSmGetShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 612 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 610 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowFarDistance :: HG3DClass -> Float -> IO ()
 cSmSetShadowFarDistance a1 a2 =
@@ -1192,7 +1190,7 @@   let {a2' = realToFrac a2} in 
   cSmSetShadowFarDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 616 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 614 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowFarDistance :: HG3DClass -> IO (Float)
 cSmGetShadowFarDistance a1 =
@@ -1201,7 +1199,7 @@   cSmGetShadowFarDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 620 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 618 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowIndexBufferSize :: HG3DClass -> Int -> IO ()
 cSmSetShadowIndexBufferSize a1 a2 =
@@ -1209,7 +1207,7 @@   let {a2' = fromIntegral a2} in 
   cSmSetShadowIndexBufferSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 624 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 622 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowIndexBufferSize :: HG3DClass -> IO (Int)
 cSmGetShadowIndexBufferSize a1 =
@@ -1218,7 +1216,7 @@   cSmGetShadowIndexBufferSize'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 628 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 626 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureSize :: HG3DClass -> Int -> IO ()
 cSmSetShadowTextureSize a1 a2 =
@@ -1226,7 +1224,7 @@   let {a2' = fromIntegral a2} in 
   cSmSetShadowTextureSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 632 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 630 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureConfig :: HG3DClass -> Int -> Int -> Int -> EnumPixelFormat -> IO ()
 cSmSetShadowTextureConfig a1 a2 a3 a4 a5 =
@@ -1237,7 +1235,7 @@   let {a5' = cIntFromEnum a5} in 
   cSmSetShadowTextureConfig'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 639 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 637 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTexturePixelFormat :: HG3DClass -> EnumPixelFormat -> IO ()
 cSmSetShadowTexturePixelFormat a1 a2 =
@@ -1245,7 +1243,7 @@   let {a2' = cIntFromEnum a2} in 
   cSmSetShadowTexturePixelFormat'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 643 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 641 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureCount :: HG3DClass -> Int -> IO ()
 cSmSetShadowTextureCount a1 a2 =
@@ -1253,7 +1251,7 @@   let {a2' = fromIntegral a2} in 
   cSmSetShadowTextureCount'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 647 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 645 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowTextureCount :: HG3DClass -> IO (Int)
 cSmGetShadowTextureCount a1 =
@@ -1262,7 +1260,7 @@   cSmGetShadowTextureCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 651 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 649 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureCountPerLightType :: HG3DClass -> EnumLightTypes -> Int -> IO ()
 cSmSetShadowTextureCountPerLightType a1 a2 a3 =
@@ -1271,7 +1269,7 @@   let {a3' = fromIntegral a3} in 
   cSmSetShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 656 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 654 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowTextureCountPerLightType :: HG3DClass -> EnumLightTypes -> IO (Int)
 cSmGetShadowTextureCountPerLightType a1 a2 =
@@ -1281,7 +1279,7 @@   cSmGetShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res ->
   peekIntConv  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 661 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 659 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureSettings :: HG3DClass -> Int -> Int -> EnumPixelFormat -> IO ()
 cSmSetShadowTextureSettings a1 a2 a3 a4 =
@@ -1291,7 +1289,7 @@   let {a4' = cIntFromEnum a4} in 
   cSmSetShadowTextureSettings'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 667 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 665 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowTexture :: HG3DClass -> Int -> IO (SharedPtr)
 cSmGetShadowTexture a1 a2 =
@@ -1301,7 +1299,7 @@   cSmGetShadowTexture'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 672 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 670 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowDirLightTextureOffset :: HG3DClass -> Float -> IO ()
 cSmSetShadowDirLightTextureOffset a1 a2 =
@@ -1309,7 +1307,7 @@   let {a2' = realToFrac a2} in 
   cSmSetShadowDirLightTextureOffset'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 676 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 674 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowDirLightTextureOffset :: HG3DClass -> IO (Float)
 cSmGetShadowDirLightTextureOffset a1 =
@@ -1318,7 +1316,7 @@   cSmGetShadowDirLightTextureOffset'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 680 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 678 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureFadeStart :: HG3DClass -> Float -> IO ()
 cSmSetShadowTextureFadeStart a1 a2 =
@@ -1326,7 +1324,7 @@   let {a2' = realToFrac a2} in 
   cSmSetShadowTextureFadeStart'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 684 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 682 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureFadeEnd :: HG3DClass -> Float -> IO ()
 cSmSetShadowTextureFadeEnd a1 a2 =
@@ -1334,7 +1332,7 @@   let {a2' = realToFrac a2} in 
   cSmSetShadowTextureFadeEnd'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 688 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 686 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureSelfShadow :: HG3DClass -> Bool -> IO ()
 cSmSetShadowTextureSelfShadow a1 a2 =
@@ -1342,7 +1340,7 @@   let {a2' = fromBool a2} in 
   cSmSetShadowTextureSelfShadow'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 692 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 690 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowTextureSelfShadow :: HG3DClass -> IO (Bool)
 cSmGetShadowTextureSelfShadow a1 =
@@ -1351,7 +1349,7 @@   cSmGetShadowTextureSelfShadow'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 696 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 694 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureCasterMaterial :: HG3DClass -> String -> IO ()
 cSmSetShadowTextureCasterMaterial a1 a2 =
@@ -1359,7 +1357,7 @@   withCString a2 $ \a2' -> 
   cSmSetShadowTextureCasterMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 700 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 698 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowTextureReceiverMaterial :: HG3DClass -> String -> IO ()
 cSmSetShadowTextureReceiverMaterial a1 a2 =
@@ -1367,7 +1365,7 @@   withCString a2 $ \a2' -> 
   cSmSetShadowTextureReceiverMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 704 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 702 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowCasterRenderBackFaces :: HG3DClass -> Bool -> IO ()
 cSmSetShadowCasterRenderBackFaces a1 a2 =
@@ -1375,7 +1373,7 @@   let {a2' = fromBool a2} in 
   cSmSetShadowCasterRenderBackFaces'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 708 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 706 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowCasterRenderBackFaces :: HG3DClass -> IO (Bool)
 cSmGetShadowCasterRenderBackFaces a1 =
@@ -1384,7 +1382,7 @@   cSmGetShadowCasterRenderBackFaces'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 712 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 710 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowUseInfiniteFarPlane :: HG3DClass -> Bool -> IO ()
 cSmSetShadowUseInfiniteFarPlane a1 a2 =
@@ -1392,7 +1390,7 @@   let {a2' = fromBool a2} in 
   cSmSetShadowUseInfiniteFarPlane'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 716 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 714 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueStencilBased :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueStencilBased a1 =
@@ -1401,7 +1399,7 @@   cSmIsShadowTechniqueStencilBased'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 720 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 718 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueTextureBased :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueTextureBased a1 =
@@ -1410,7 +1408,7 @@   cSmIsShadowTechniqueTextureBased'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 724 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 722 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueModulative :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueModulative a1 =
@@ -1419,7 +1417,7 @@   cSmIsShadowTechniqueModulative'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 728 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 726 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueAdditive :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueAdditive a1 =
@@ -1428,7 +1426,7 @@   cSmIsShadowTechniqueAdditive'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 732 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 730 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueIntegrated :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueIntegrated a1 =
@@ -1437,7 +1435,7 @@   cSmIsShadowTechniqueIntegrated'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 736 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 734 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsShadowTechniqueInUse :: HG3DClass -> IO (Bool)
 cSmIsShadowTechniqueInUse a1 =
@@ -1446,7 +1444,7 @@   cSmIsShadowTechniqueInUse'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 740 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 738 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetShadowUseLightClipPlanes :: HG3DClass -> Bool -> IO ()
 cSmSetShadowUseLightClipPlanes a1 a2 =
@@ -1454,7 +1452,7 @@   let {a2' = fromBool a2} in 
   cSmSetShadowUseLightClipPlanes'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 744 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 742 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetShadowUseLightClipPlanes :: HG3DClass -> IO (Bool)
 cSmGetShadowUseLightClipPlanes a1 =
@@ -1463,7 +1461,7 @@   cSmGetShadowUseLightClipPlanes'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 748 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 746 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetActiveCompositorChain :: HG3DClass -> HG3DClass -> IO ()
 cSmSetActiveCompositorChain a1 a2 =
@@ -1471,7 +1469,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmSetActiveCompositorChain'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 752 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 750 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetLateMaterialResolving :: HG3DClass -> Bool -> IO ()
 cSmSetLateMaterialResolving a1 a2 =
@@ -1479,7 +1477,7 @@   let {a2' = fromBool a2} in 
   cSmSetLateMaterialResolving'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 756 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 754 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmIsLateMaterialResolving :: HG3DClass -> IO (Bool)
 cSmIsLateMaterialResolving a1 =
@@ -1488,7 +1486,7 @@   cSmIsLateMaterialResolving'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 760 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 758 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetActiveCompositorChain :: HG3DClass -> IO (HG3DClass)
 cSmGetActiveCompositorChain a1 =
@@ -1497,7 +1495,7 @@   cSmGetActiveCompositorChain'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 764 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 762 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmCreateStaticGeometry :: HG3DClass -> String -> IO (HG3DClass)
 cSmCreateStaticGeometry a1 a2 =
@@ -1507,7 +1505,7 @@   cSmCreateStaticGeometry'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 769 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 767 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetStaticGeometry :: HG3DClass -> String -> IO (HG3DClass)
 cSmGetStaticGeometry a1 a2 =
@@ -1517,7 +1515,7 @@   cSmGetStaticGeometry'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 774 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 772 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasStaticGeometry :: HG3DClass -> String -> IO (Bool)
 cSmHasStaticGeometry a1 a2 =
@@ -1527,7 +1525,7 @@   cSmHasStaticGeometry'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 779 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 777 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyStaticGeometry :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyStaticGeometry a1 a2 =
@@ -1535,7 +1533,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyStaticGeometry'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 783 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 781 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyStaticGeometry2 :: HG3DClass -> String -> IO ()
 cSmDestroyStaticGeometry2 a1 a2 =
@@ -1543,14 +1541,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyStaticGeometry2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 787 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 785 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllStaticGeometry :: HG3DClass -> IO ()
 cSmDestroyAllStaticGeometry a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllStaticGeometry'_ a1' >>= \res ->
   return ()
-{-# LINE 790 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 788 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyInstancedGeometry2 :: HG3DClass -> String -> IO ()
 cSmDestroyInstancedGeometry2 a1 a2 =
@@ -1558,14 +1556,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyInstancedGeometry2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 794 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 792 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllInstancedGeometry :: HG3DClass -> IO ()
 cSmDestroyAllInstancedGeometry a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllInstancedGeometry'_ a1' >>= \res ->
   return ()
-{-# LINE 797 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 795 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyMovableObject :: HG3DClass -> String -> String -> IO ()
 cSmDestroyMovableObject a1 a2 a3 =
@@ -1574,7 +1572,7 @@   withCString a3 $ \a3' -> 
   cSmDestroyMovableObject'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 802 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 800 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyMovableObject2 :: HG3DClass -> HG3DClass -> IO ()
 cSmDestroyMovableObject2 a1 a2 =
@@ -1582,7 +1580,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmDestroyMovableObject2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 806 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 804 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllMovableObjectsByType :: HG3DClass -> String -> IO ()
 cSmDestroyAllMovableObjectsByType a1 a2 =
@@ -1590,14 +1588,14 @@   withCString a2 $ \a2' -> 
   cSmDestroyAllMovableObjectsByType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 810 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 808 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmDestroyAllMovableObjects :: HG3DClass -> IO ()
 cSmDestroyAllMovableObjects a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmDestroyAllMovableObjects'_ a1' >>= \res ->
   return ()
-{-# LINE 813 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 811 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetMovableObject :: HG3DClass -> String -> String -> IO (HG3DClass)
 cSmGetMovableObject a1 a2 a3 =
@@ -1608,7 +1606,7 @@   cSmGetMovableObject'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 819 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 817 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHasMovableObject :: HG3DClass -> String -> String -> IO (Bool)
 cSmHasMovableObject a1 a2 a3 =
@@ -1619,7 +1617,7 @@   cSmHasMovableObject'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 825 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 823 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmInjectMovableObject :: HG3DClass -> HG3DClass -> IO ()
 cSmInjectMovableObject a1 a2 =
@@ -1627,7 +1625,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmInjectMovableObject'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 829 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 827 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmExtractMovableObject :: HG3DClass -> String -> String -> IO ()
 cSmExtractMovableObject a1 a2 a3 =
@@ -1636,7 +1634,7 @@   withCString a3 $ \a3' -> 
   cSmExtractMovableObject'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 834 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 832 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmExtractMovableObject2 :: HG3DClass -> HG3DClass -> IO ()
 cSmExtractMovableObject2 a1 a2 =
@@ -1644,7 +1642,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmExtractMovableObject2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 838 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 836 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmExtractAllMovableObjectsByType :: HG3DClass -> String -> IO ()
 cSmExtractAllMovableObjectsByType a1 a2 =
@@ -1652,7 +1650,7 @@   withCString a2 $ \a2' -> 
   cSmExtractAllMovableObjectsByType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 842 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 840 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetVisibilityMask :: HG3DClass -> Int -> IO ()
 cSmSetVisibilityMask a1 a2 =
@@ -1660,7 +1658,7 @@   let {a2' = fromIntegral a2} in 
   cSmSetVisibilityMask'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 846 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 844 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetVisibilityMask :: HG3DClass -> IO (Int)
 cSmGetVisibilityMask a1 =
@@ -1669,7 +1667,7 @@   cSmGetVisibilityMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 850 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 848 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetCombinedVisibilityMask :: HG3DClass -> IO (Int)
 cSmGetCombinedVisibilityMask a1 =
@@ -1678,7 +1676,7 @@   cSmGetCombinedVisibilityMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 854 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 852 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetFindVisibleObjects :: HG3DClass -> Bool -> IO ()
 cSmSetFindVisibleObjects a1 a2 =
@@ -1686,7 +1684,7 @@   let {a2' = fromBool a2} in 
   cSmSetFindVisibleObjects'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 858 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 856 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFindVisibleObjects :: HG3DClass -> IO (Bool)
 cSmGetFindVisibleObjects a1 =
@@ -1695,7 +1693,7 @@   cSmGetFindVisibleObjects'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 862 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 860 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetNormaliseNormalsOnScale :: HG3DClass -> Bool -> IO ()
 cSmSetNormaliseNormalsOnScale a1 a2 =
@@ -1703,7 +1701,7 @@   let {a2' = fromBool a2} in 
   cSmSetNormaliseNormalsOnScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 866 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 864 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetNormaliseNormalsOnScale :: HG3DClass -> IO (Bool)
 cSmGetNormaliseNormalsOnScale a1 =
@@ -1712,7 +1710,7 @@   cSmGetNormaliseNormalsOnScale'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 870 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 868 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetFlipCullingOnNegativeScale :: HG3DClass -> Bool -> IO ()
 cSmSetFlipCullingOnNegativeScale a1 a2 =
@@ -1720,7 +1718,7 @@   let {a2' = fromBool a2} in 
   cSmSetFlipCullingOnNegativeScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 874 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 872 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetFlipCullingOnNegativeScale :: HG3DClass -> IO (Bool)
 cSmGetFlipCullingOnNegativeScale a1 =
@@ -1729,7 +1727,7 @@   cSmGetFlipCullingOnNegativeScale'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 878 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 876 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSuppressRenderStateChanges :: HG3DClass -> Bool -> IO ()
 cSmSuppressRenderStateChanges a1 a2 =
@@ -1737,7 +1735,7 @@   let {a2' = fromBool a2} in 
   cSmSuppressRenderStateChanges'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 882 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 880 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmAreRenderStateChangesSuppressed :: HG3DClass -> IO (Bool)
 cSmAreRenderStateChangesSuppressed a1 =
@@ -1746,7 +1744,7 @@   cSmAreRenderStateChangesSuppressed'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 886 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 884 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmMarkGpuParamsDirty :: HG3DClass -> Int -> IO ()
 cSmMarkGpuParamsDirty a1 a2 =
@@ -1754,7 +1752,7 @@   let {a2' = fromIntegral a2} in 
   cSmMarkGpuParamsDirty'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 890 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 888 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSuppressShadows :: HG3DClass -> Bool -> IO ()
 cSmSuppressShadows a1 a2 =
@@ -1762,7 +1760,7 @@   let {a2' = fromBool a2} in 
   cSmSuppressShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 894 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 892 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmAreShadowsSuppressed :: HG3DClass -> IO (Bool)
 cSmAreShadowsSuppressed a1 =
@@ -1771,7 +1769,7 @@   cSmAreShadowsSuppressed'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 898 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 896 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetQueuedRenderableVisitor :: HG3DClass -> HG3DClass -> IO ()
 cSmSetQueuedRenderableVisitor a1 a2 =
@@ -1779,7 +1777,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmSetQueuedRenderableVisitor'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 902 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 900 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetQueuedRenderableVisitor :: HG3DClass -> IO (HG3DClass)
 cSmGetQueuedRenderableVisitor a1 =
@@ -1788,7 +1786,7 @@   cSmGetQueuedRenderableVisitor'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 906 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 904 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetCurrentViewport :: HG3DClass -> IO (HG3DClass)
 cSmGetCurrentViewport a1 =
@@ -1797,7 +1795,7 @@   cSmGetCurrentViewport'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 910 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 908 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmSetCameraRelativeRendering :: HG3DClass -> Bool -> IO ()
 cSmSetCameraRelativeRendering a1 a2 =
@@ -1805,7 +1803,7 @@   let {a2' = fromBool a2} in 
   cSmSetCameraRelativeRendering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 914 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 912 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmGetCameraRelativeRendering :: HG3DClass -> IO (Bool)
 cSmGetCameraRelativeRendering a1 =
@@ -1814,14 +1812,14 @@   cSmGetCameraRelativeRendering'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 918 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 916 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 cSmHandleLodEvents :: HG3DClass -> IO ()
 cSmHandleLodEvents a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmHandleLodEvents'_ a1' >>= \res ->
   return ()
-{-# LINE 921 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
+{-# LINE 919 "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getName_c"
@@ -1996,10 +1994,10 @@   cSmClearScene'_ :: ((HG3DClassPtr) -> (IO ()))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_setAmbientLight_c"
-  cSmSetAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cSmSetAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getAmbientLight_c"
-  cSmGetAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cSmGetAmbientLight'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_prepareWorldGeometry_c"
   cSmPrepareWorldGeometry'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))
@@ -2071,13 +2069,13 @@   cSmGetSkyDomeNode'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_setFog_c"
-  cSmSetFog'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourValuePtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))))
+  cSmSetFog'_ :: ((HG3DClassPtr) -> (CInt -> ((ColourPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getFogMode_c"
   cSmGetFogMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getFogColour_c"
-  cSmGetFogColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cSmGetFogColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getFogStart_c"
   cSmGetFogStart'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))
@@ -2182,10 +2180,10 @@   cSmGetShowDebugShadows'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_setShadowColour_c"
-  cSmSetShadowColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cSmSetShadowColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_getShadowColour_c"
-  cSmGetShadowColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cSmGetShadowColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h cSm_setShadowDirectionalLightExtrusionDistance_c"
   cSmSetShadowDirectionalLightExtrusionDistance'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
HGamer3D/Bindings/Ogre/ClassSceneManagerEnumerator.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 
 
 cSmeAddFactory :: HG3DClass -> HG3DClass -> IO ()
@@ -69,7 +67,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmeAddFactory'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeRemoveFactory :: HG3DClass -> HG3DClass -> IO ()
 cSmeRemoveFactory a1 a2 =
@@ -77,7 +75,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmeRemoveFactory'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeCreateSceneManager :: HG3DClass -> String -> String -> IO (HG3DClass)
 cSmeCreateSceneManager a1 a2 a3 =
@@ -88,7 +86,7 @@   cSmeCreateSceneManager'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeCreateSceneManager2 :: HG3DClass -> Int -> String -> IO (HG3DClass)
 cSmeCreateSceneManager2 a1 a2 a3 =
@@ -99,7 +97,7 @@   cSmeCreateSceneManager2'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeDestroySceneManager :: HG3DClass -> HG3DClass -> IO ()
 cSmeDestroySceneManager a1 a2 =
@@ -107,7 +105,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmeDestroySceneManager'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeGetSceneManager :: HG3DClass -> String -> IO (HG3DClass)
 cSmeGetSceneManager a1 a2 =
@@ -117,7 +115,7 @@   cSmeGetSceneManager'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeHasSceneManager :: HG3DClass -> String -> IO (Bool)
 cSmeHasSceneManager a1 a2 =
@@ -127,14 +125,14 @@   cSmeHasSceneManager'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 cSmeShutdownAll :: HG3DClass -> IO ()
 cSmeShutdownAll a1 =
   withHG3DClass a1 $ \a1' -> 
   cSmeShutdownAll'_ a1' >>= \res ->
   return ()
-{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
+{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerEnumerator.chs.h cSme_addFactory_c"
HGamer3D/Bindings/Ogre/ClassSceneManagerFactory.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
 
 
 cSmfCreateInstance :: HG3DClass -> String -> IO (HG3DClass)
@@ -71,7 +69,7 @@   cSmfCreateInstance'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
 ;
 cSmfDestroyInstance :: HG3DClass -> HG3DClass -> IO ()
 cSmfDestroyInstance a1 a2 =
@@ -79,7 +77,7 @@   withHG3DClass a2 $ \a2' -> 
   cSmfDestroyInstance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs.h cSmf_createInstance_c"
HGamer3D/Bindings/Ogre/ClassSceneMgrQueuedRenderableVisitor.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneMgrQueuedRenderableVisitor.chs" #-}
HGamer3D/Bindings/Ogre/ClassSceneNode.hs view
@@ -51,24 +51,22 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTransformSpace
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 
 
 cSnAttachObject :: HG3DClass -> HG3DClass -> IO ()
@@ -77,7 +75,7 @@   withHG3DClass a2 $ \a2' -> 
   cSnAttachObject'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnNumAttachedObjects :: HG3DClass -> IO (Int)
 cSnNumAttachedObjects a1 =
@@ -86,7 +84,7 @@   cSnNumAttachedObjects'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetAttachedObject :: HG3DClass -> Int -> IO (HG3DClass)
 cSnGetAttachedObject a1 a2 =
@@ -96,7 +94,7 @@   cSnGetAttachedObject'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetAttachedObject2 :: HG3DClass -> String -> IO (HG3DClass)
 cSnGetAttachedObject2 a1 a2 =
@@ -106,7 +104,7 @@   cSnGetAttachedObject2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnDetachObject :: HG3DClass -> Int -> IO (HG3DClass)
 cSnDetachObject a1 a2 =
@@ -116,7 +114,7 @@   cSnDetachObject'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnDetachObject2 :: HG3DClass -> HG3DClass -> IO ()
 cSnDetachObject2 a1 a2 =
@@ -124,7 +122,7 @@   withHG3DClass a2 $ \a2' -> 
   cSnDetachObject2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnDetachObject3 :: HG3DClass -> String -> IO (HG3DClass)
 cSnDetachObject3 a1 a2 =
@@ -134,14 +132,14 @@   cSnDetachObject3'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnDetachAllObjects :: HG3DClass -> IO ()
 cSnDetachAllObjects a1 =
   withHG3DClass a1 $ \a1' -> 
   cSnDetachAllObjects'_ a1' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnIsInSceneGraph :: HG3DClass -> IO (Bool)
 cSnIsInSceneGraph a1 =
@@ -150,14 +148,14 @@   cSnIsInSceneGraph'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnNotifyRootNode :: HG3DClass -> IO ()
 cSnNotifyRootNode a1 =
   withHG3DClass a1 $ \a1' -> 
   cSnNotifyRootNode'_ a1' >>= \res ->
   return ()
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnUpdate :: HG3DClass -> Bool -> Bool -> IO ()
 cSnUpdate a1 a2 a3 =
@@ -166,14 +164,14 @@   let {a3' = fromBool a3} in 
   cSnUpdate'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnUpdateBounds :: HG3DClass -> IO ()
 cSnUpdateBounds a1 =
   withHG3DClass a1 $ \a1' -> 
   cSnUpdateBounds'_ a1' >>= \res ->
   return ()
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetCreator :: HG3DClass -> IO (HG3DClass)
 cSnGetCreator a1 =
@@ -182,7 +180,7 @@   cSnGetCreator'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnRemoveAndDestroyChild :: HG3DClass -> String -> IO ()
 cSnRemoveAndDestroyChild a1 a2 =
@@ -190,7 +188,7 @@   withCString a2 $ \a2' -> 
   cSnRemoveAndDestroyChild'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnRemoveAndDestroyChild2 :: HG3DClass -> Int -> IO ()
 cSnRemoveAndDestroyChild2 a1 a2 =
@@ -198,14 +196,14 @@   let {a2' = fromIntegral a2} in 
   cSnRemoveAndDestroyChild2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnRemoveAndDestroyAllChildren :: HG3DClass -> IO ()
 cSnRemoveAndDestroyAllChildren a1 =
   withHG3DClass a1 $ \a1' -> 
   cSnRemoveAndDestroyAllChildren'_ a1' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnShowBoundingBox :: HG3DClass -> Bool -> IO ()
 cSnShowBoundingBox a1 a2 =
@@ -213,7 +211,7 @@   let {a2' = fromBool a2} in 
   cSnShowBoundingBox'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnHideBoundingBox :: HG3DClass -> Bool -> IO ()
 cSnHideBoundingBox a1 a2 =
@@ -221,7 +219,7 @@   let {a2' = fromBool a2} in 
   cSnHideBoundingBox'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetShowBoundingBox :: HG3DClass -> IO (Bool)
 cSnGetShowBoundingBox a1 =
@@ -230,7 +228,7 @@   cSnGetShowBoundingBox'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnCreateChildSceneNode :: HG3DClass -> Vector3 -> Quaternion -> IO (HG3DClass)
 cSnCreateChildSceneNode a1 a2 a3 =
@@ -241,7 +239,7 @@   cSnCreateChildSceneNode'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnCreateChildSceneNode2 :: HG3DClass -> String -> Vector3 -> Quaternion -> IO (HG3DClass)
 cSnCreateChildSceneNode2 a1 a2 a3 a4 =
@@ -253,7 +251,7 @@   cSnCreateChildSceneNode2'_ a1' a2' a3' a4' a5' >>= \res ->
   peek  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetFixedYawAxis :: HG3DClass -> Bool -> Vector3 -> IO ()
 cSnSetFixedYawAxis a1 a2 a3 =
@@ -262,16 +260,16 @@   withVector3 a3 $ \a3' -> 
   cSnSetFixedYawAxis'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
-cSnYaw :: HG3DClass -> Radian -> EnumTransformSpace -> IO ()
+cSnYaw :: HG3DClass -> Radians -> EnumTransformSpace -> IO ()
 cSnYaw a1 a2 a3 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   let {a3' = cIntFromEnum a3} in 
   cSnYaw'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetDirection :: HG3DClass -> Float -> Float -> Float -> EnumTransformSpace -> Vector3 -> IO ()
 cSnSetDirection a1 a2 a3 a4 a5 a6 =
@@ -283,7 +281,7 @@   withVector3 a6 $ \a6' -> 
   cSnSetDirection'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   return ()
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetDirection2 :: HG3DClass -> Vector3 -> EnumTransformSpace -> Vector3 -> IO ()
 cSnSetDirection2 a1 a2 a3 a4 =
@@ -293,7 +291,7 @@   withVector3 a4 $ \a4' -> 
   cSnSetDirection2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnLookAt :: HG3DClass -> Vector3 -> EnumTransformSpace -> Vector3 -> IO ()
 cSnLookAt a1 a2 a3 a4 =
@@ -303,7 +301,7 @@   withVector3 a4 $ \a4' -> 
   cSnLookAt'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetAutoTracking :: HG3DClass -> Bool -> HG3DClass -> Vector3 -> Vector3 -> IO ()
 cSnSetAutoTracking a1 a2 a3 a4 a5 =
@@ -314,7 +312,7 @@   withVector3 a5 $ \a5' -> 
   cSnSetAutoTracking'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetAutoTrackTarget :: HG3DClass -> IO (HG3DClass)
 cSnGetAutoTrackTarget a1 =
@@ -323,7 +321,7 @@   cSnGetAutoTrackTarget'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetAutoTrackOffset :: HG3DClass -> IO (Vector3)
 cSnGetAutoTrackOffset a1 =
@@ -332,7 +330,7 @@   cSnGetAutoTrackOffset'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetAutoTrackLocalDirection :: HG3DClass -> IO (Vector3)
 cSnGetAutoTrackLocalDirection a1 =
@@ -341,14 +339,14 @@   cSnGetAutoTrackLocalDirection'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnAutoTrack :: HG3DClass -> IO ()
 cSnAutoTrack a1 =
   withHG3DClass a1 $ \a1' -> 
   cSnAutoTrack'_ a1' >>= \res ->
   return ()
-{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnGetParentSceneNode :: HG3DClass -> IO (HG3DClass)
 cSnGetParentSceneNode a1 =
@@ -357,7 +355,7 @@   cSnGetParentSceneNode'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetVisible :: HG3DClass -> Bool -> Bool -> IO ()
 cSnSetVisible a1 a2 a3 =
@@ -366,7 +364,7 @@   let {a3' = fromBool a3} in 
   cSnSetVisible'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnFlipVisibility :: HG3DClass -> Bool -> IO ()
 cSnFlipVisibility a1 a2 =
@@ -374,7 +372,7 @@   let {a2' = fromBool a2} in 
   cSnFlipVisibility'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 cSnSetDebugDisplayEnabled :: HG3DClass -> Bool -> Bool -> IO ()
 cSnSetDebugDisplayEnabled a1 a2 a3 =
@@ -383,7 +381,7 @@   let {a3' = fromBool a3} in 
   cSnSetDebugDisplayEnabled'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h cSn_attachObject_c"
@@ -453,7 +451,7 @@   cSnSetFixedYawAxis'_ :: ((HG3DClassPtr) -> (CInt -> ((Vector3Ptr) -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h cSn_yaw_c"
-  cSnYaw'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (CInt -> (IO ()))))
+  cSnYaw'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (CInt -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h cSn_setDirection_c"
   cSnSetDirection'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CInt -> ((Vector3Ptr) -> (IO ())))))))
HGamer3D/Bindings/Ogre/ClassShadowCameraSetup.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassShadowCameraSetup.chs" #-}
HGamer3D/Bindings/Ogre/ClassSimpleRenderable.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
 
 
 cSrGetMovableType :: HG3DClass -> IO (String)
@@ -70,7 +68,7 @@   cSrGetMovableType'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSimpleRenderable.chs.h cSr_getMovableType_c"
HGamer3D/Bindings/Ogre/ClassSkeleton.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 
 
 cSCreateBone :: HG3DClass -> IO (HG3DClass)
@@ -72,7 +70,7 @@   cSCreateBone'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSCreateBone2 :: HG3DClass -> Int -> IO (HG3DClass)
 cSCreateBone2 a1 a2 =
@@ -82,7 +80,7 @@   cSCreateBone2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSCreateBone3 :: HG3DClass -> String -> IO (HG3DClass)
 cSCreateBone3 a1 a2 =
@@ -92,7 +90,7 @@   cSCreateBone3'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSCreateBone4 :: HG3DClass -> String -> Int -> IO (HG3DClass)
 cSCreateBone4 a1 a2 a3 =
@@ -103,7 +101,7 @@   cSCreateBone4'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetNumBones :: HG3DClass -> IO (Int)
 cSGetNumBones a1 =
@@ -112,7 +110,7 @@   cSGetNumBones'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetRootBone :: HG3DClass -> IO (HG3DClass)
 cSGetRootBone a1 =
@@ -121,7 +119,7 @@   cSGetRootBone'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetBone :: HG3DClass -> Int -> IO (HG3DClass)
 cSGetBone a1 a2 =
@@ -131,7 +129,7 @@   cSGetBone'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetBone2 :: HG3DClass -> String -> IO (HG3DClass)
 cSGetBone2 a1 a2 =
@@ -141,7 +139,7 @@   cSGetBone2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSHasBone :: HG3DClass -> String -> IO (Bool)
 cSHasBone a1 a2 =
@@ -151,14 +149,14 @@   cSHasBone'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSSetBindingPose :: HG3DClass -> IO ()
 cSSetBindingPose a1 =
   withHG3DClass a1 $ \a1' -> 
   cSSetBindingPose'_ a1' >>= \res ->
   return ()
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSReset :: HG3DClass -> Bool -> IO ()
 cSReset a1 a2 =
@@ -166,7 +164,7 @@   let {a2' = fromBool a2} in 
   cSReset'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSCreateAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
 cSCreateAnimation a1 a2 a3 =
@@ -177,7 +175,7 @@   cSCreateAnimation'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSHasAnimation :: HG3DClass -> String -> IO (Bool)
 cSHasAnimation a1 a2 =
@@ -187,7 +185,7 @@   cSHasAnimation'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSRemoveAnimation :: HG3DClass -> String -> IO ()
 cSRemoveAnimation a1 a2 =
@@ -195,7 +193,7 @@   withCString a2 $ \a2' -> 
   cSRemoveAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetNumAnimations :: HG3DClass -> IO (Int)
 cSGetNumAnimations a1 =
@@ -204,7 +202,7 @@   cSGetNumAnimations'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetAnimation2 :: HG3DClass -> Int -> IO (HG3DClass)
 cSGetAnimation2 a1 a2 =
@@ -214,7 +212,7 @@   cSGetAnimation2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetBlendMode :: HG3DClass -> IO (EnumSkeletonAnimationBlendMode)
 cSGetBlendMode a1 =
@@ -223,7 +221,7 @@   cSGetBlendMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSSetBlendMode :: HG3DClass -> EnumSkeletonAnimationBlendMode -> IO ()
 cSSetBlendMode a1 a2 =
@@ -231,14 +229,14 @@   let {a2' = cIntFromEnum a2} in 
   cSSetBlendMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSUpdateTransforms :: HG3DClass -> IO ()
 cSUpdateTransforms a1 =
   withHG3DClass a1 $ \a1' -> 
   cSUpdateTransforms'_ a1' >>= \res ->
   return ()
-{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSOptimiseAllAnimations :: HG3DClass -> Bool -> IO ()
 cSOptimiseAllAnimations a1 a2 =
@@ -246,7 +244,7 @@   let {a2' = fromBool a2} in 
   cSOptimiseAllAnimations'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSAddLinkedSkeletonAnimationSource :: HG3DClass -> String -> Float -> IO ()
 cSAddLinkedSkeletonAnimationSource a1 a2 a3 =
@@ -255,21 +253,21 @@   let {a3' = realToFrac a3} in 
   cSAddLinkedSkeletonAnimationSource'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSRemoveAllLinkedSkeletonAnimationSources :: HG3DClass -> IO ()
 cSRemoveAllLinkedSkeletonAnimationSources a1 =
   withHG3DClass a1 $ \a1' -> 
   cSRemoveAllLinkedSkeletonAnimationSources'_ a1' >>= \res ->
   return ()
-{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSNotifyManualBonesDirty :: HG3DClass -> IO ()
 cSNotifyManualBonesDirty a1 =
   withHG3DClass a1 $ \a1' -> 
   cSNotifyManualBonesDirty'_ a1' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSNotifyManualBoneStateChange :: HG3DClass -> HG3DClass -> IO ()
 cSNotifyManualBoneStateChange a1 a2 =
@@ -277,7 +275,7 @@   withHG3DClass a2 $ \a2' -> 
   cSNotifyManualBoneStateChange'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSGetManualBonesDirty :: HG3DClass -> IO (Bool)
 cSGetManualBonesDirty a1 =
@@ -286,7 +284,7 @@   cSGetManualBonesDirty'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 cSHasManualBones :: HG3DClass -> IO (Bool)
 cSHasManualBones a1 =
@@ -295,7 +293,7 @@   cSHasManualBones'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h cS_createBone_c"
HGamer3D/Bindings/Ogre/ClassSkeletonInstance.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 
 
 cSiGetNumAnimations :: HG3DClass -> IO (Int)
@@ -70,7 +68,7 @@   cSiGetNumAnimations'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiGetAnimation :: HG3DClass -> Int -> IO (HG3DClass)
 cSiGetAnimation a1 a2 =
@@ -80,7 +78,7 @@   cSiGetAnimation'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiCreateAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass)
 cSiCreateAnimation a1 a2 a3 =
@@ -91,7 +89,7 @@   cSiCreateAnimation'_ a1' a2' a3' a4' >>= \res ->
   peek  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiRemoveAnimation :: HG3DClass -> String -> IO ()
 cSiRemoveAnimation a1 a2 =
@@ -99,7 +97,7 @@   withCString a2 $ \a2' -> 
   cSiRemoveAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiAddLinkedSkeletonAnimationSource :: HG3DClass -> String -> Float -> IO ()
 cSiAddLinkedSkeletonAnimationSource a1 a2 a3 =
@@ -108,14 +106,14 @@   let {a3' = realToFrac a3} in 
   cSiAddLinkedSkeletonAnimationSource'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiRemoveAllLinkedSkeletonAnimationSources :: HG3DClass -> IO ()
 cSiRemoveAllLinkedSkeletonAnimationSources a1 =
   withHG3DClass a1 $ \a1' -> 
   cSiRemoveAllLinkedSkeletonAnimationSources'_ a1' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 cSiGetName :: HG3DClass -> IO (String)
 cSiGetName a1 =
@@ -124,7 +122,7 @@   cSiGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonInstance.chs.h cSi_getNumAnimations_c"
HGamer3D/Bindings/Ogre/ClassSkeletonSerializer.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
 
 
 cSsImportSkeleton :: HG3DClass -> HG3DClass -> IO (SharedPtr)
@@ -73,7 +71,7 @@   cSsImportSkeleton'_ a1' a2' a3' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonSerializer.chs.h cSs_importSkeleton_c"
HGamer3D/Bindings/Ogre/ClassStaticGeometry.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 
 
 cSgGetName :: HG3DClass -> IO (String)
@@ -74,7 +72,7 @@   cSgGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgAddEntity :: HG3DClass -> HG3DClass -> Vector3 -> Quaternion -> Vector3 -> IO ()
 cSgAddEntity a1 a2 a3 a4 a5 =
@@ -85,28 +83,28 @@   withVector3 a5 $ \a5' -> 
   cSgAddEntity'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgBuild :: HG3DClass -> IO ()
 cSgBuild a1 =
   withHG3DClass a1 $ \a1' -> 
   cSgBuild'_ a1' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgDestroy :: HG3DClass -> IO ()
 cSgDestroy a1 =
   withHG3DClass a1 $ \a1' -> 
   cSgDestroy'_ a1' >>= \res ->
   return ()
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgReset :: HG3DClass -> IO ()
 cSgReset a1 =
   withHG3DClass a1 $ \a1' -> 
   cSgReset'_ a1' >>= \res ->
   return ()
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetRenderingDistance :: HG3DClass -> Float -> IO ()
 cSgSetRenderingDistance a1 a2 =
@@ -114,7 +112,7 @@   let {a2' = realToFrac a2} in 
   cSgSetRenderingDistance'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetRenderingDistance :: HG3DClass -> IO (Float)
 cSgGetRenderingDistance a1 =
@@ -123,7 +121,7 @@   cSgGetRenderingDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetSquaredRenderingDistance :: HG3DClass -> IO (Float)
 cSgGetSquaredRenderingDistance a1 =
@@ -132,7 +130,7 @@   cSgGetSquaredRenderingDistance'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetVisible :: HG3DClass -> Bool -> IO ()
 cSgSetVisible a1 a2 =
@@ -140,7 +138,7 @@   let {a2' = fromBool a2} in 
   cSgSetVisible'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgIsVisible :: HG3DClass -> IO (Bool)
 cSgIsVisible a1 =
@@ -149,7 +147,7 @@   cSgIsVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetCastShadows :: HG3DClass -> Bool -> IO ()
 cSgSetCastShadows a1 a2 =
@@ -157,7 +155,7 @@   let {a2' = fromBool a2} in 
   cSgSetCastShadows'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetCastShadows :: HG3DClass -> IO (Bool)
 cSgGetCastShadows a1 =
@@ -166,7 +164,7 @@   cSgGetCastShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetRegionDimensions :: HG3DClass -> Vector3 -> IO ()
 cSgSetRegionDimensions a1 a2 =
@@ -174,7 +172,7 @@   withVector3 a2 $ \a2' -> 
   cSgSetRegionDimensions'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetRegionDimensions :: HG3DClass -> IO (Vector3)
 cSgGetRegionDimensions a1 =
@@ -183,7 +181,7 @@   cSgGetRegionDimensions'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetOrigin :: HG3DClass -> Vector3 -> IO ()
 cSgSetOrigin a1 a2 =
@@ -191,7 +189,7 @@   withVector3 a2 $ \a2' -> 
   cSgSetOrigin'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetOrigin :: HG3DClass -> IO (Vector3)
 cSgGetOrigin a1 =
@@ -200,7 +198,7 @@   cSgGetOrigin'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgSetVisibilityFlags :: HG3DClass -> Int -> IO ()
 cSgSetVisibilityFlags a1 a2 =
@@ -208,7 +206,7 @@   let {a2' = fromIntegral a2} in 
   cSgSetVisibilityFlags'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgGetVisibilityFlags :: HG3DClass -> IO (Int)
 cSgGetVisibilityFlags a1 =
@@ -217,7 +215,7 @@   cSgGetVisibilityFlags'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 132 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 cSgDump :: HG3DClass -> String -> IO ()
 cSgDump a1 a2 =
@@ -225,7 +223,7 @@   withCString a2 $ \a2' -> 
   cSgDump'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassStaticGeometry.chs.h cSg_getName_c"
HGamer3D/Bindings/Ogre/ClassStringConverter.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStringConverter.chs" #-}
HGamer3D/Bindings/Ogre/ClassStringUtil.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassStringUtil.chs" #-}
HGamer3D/Bindings/Ogre/ClassSubEntity.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 
 
 cSeGetMaterialName :: HG3DClass -> IO (String)
@@ -72,7 +70,7 @@   cSeGetMaterialName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeSetMaterialName :: HG3DClass -> String -> String -> IO ()
 cSeSetMaterialName a1 a2 a3 =
@@ -81,7 +79,7 @@   withCString a3 $ \a3' -> 
   cSeSetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeSetMaterial :: HG3DClass -> SharedPtr -> IO ()
 cSeSetMaterial a1 a2 =
@@ -89,7 +87,7 @@   withSharedPtr a2 $ \a2' -> 
   cSeSetMaterial'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeSetVisible :: HG3DClass -> Bool -> IO ()
 cSeSetVisible a1 a2 =
@@ -97,7 +95,7 @@   let {a2' = fromBool a2} in 
   cSeSetVisible'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeIsVisible :: HG3DClass -> IO (Bool)
 cSeIsVisible a1 =
@@ -106,7 +104,7 @@   cSeIsVisible'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetSubMesh :: HG3DClass -> IO (HG3DClass)
 cSeGetSubMesh a1 =
@@ -115,7 +113,7 @@   cSeGetSubMesh'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetParent :: HG3DClass -> IO (HG3DClass)
 cSeGetParent a1 =
@@ -124,7 +122,7 @@   cSeGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetMaterial :: HG3DClass -> IO (SharedPtr)
 cSeGetMaterial a1 =
@@ -133,7 +131,7 @@   cSeGetMaterial'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetTechnique :: HG3DClass -> IO (HG3DClass)
 cSeGetTechnique a1 =
@@ -142,7 +140,7 @@   cSeGetTechnique'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetNumWorldTransforms :: HG3DClass -> IO (Int)
 cSeGetNumWorldTransforms a1 =
@@ -151,7 +149,7 @@   cSeGetNumWorldTransforms'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetCastsShadows :: HG3DClass -> IO (Bool)
 cSeGetCastsShadows a1 =
@@ -160,7 +158,7 @@   cSeGetCastsShadows'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetSkelAnimTempBufferInfo :: HG3DClass -> IO (HG3DClass)
 cSeGetSkelAnimTempBufferInfo a1 =
@@ -169,7 +167,7 @@   cSeGetSkelAnimTempBufferInfo'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetVertexAnimTempBufferInfo :: HG3DClass -> IO (HG3DClass)
 cSeGetVertexAnimTempBufferInfo a1 =
@@ -178,21 +176,21 @@   cSeGetVertexAnimTempBufferInfo'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeMarkBuffersUnusedForAnimation :: HG3DClass -> IO ()
 cSeMarkBuffersUnusedForAnimation a1 =
   withHG3DClass a1 $ \a1' -> 
   cSeMarkBuffersUnusedForAnimation'_ a1' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeMarkBuffersUsedForAnimation :: HG3DClass -> IO ()
 cSeMarkBuffersUsedForAnimation a1 =
   withHG3DClass a1 $ \a1' -> 
   cSeMarkBuffersUsedForAnimation'_ a1' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeGetBuffersMarkedForAnimation :: HG3DClass -> IO (Bool)
 cSeGetBuffersMarkedForAnimation a1 =
@@ -201,7 +199,7 @@   cSeGetBuffersMarkedForAnimation'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 cSeRestoreBuffersForUnusedAnimation :: HG3DClass -> Bool -> IO ()
 cSeRestoreBuffersForUnusedAnimation a1 a2 =
@@ -209,7 +207,7 @@   let {a2' = fromBool a2} in 
   cSeRestoreBuffersForUnusedAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSubEntity.chs.h cSe_getMaterialName_c"
HGamer3D/Bindings/Ogre/ClassSubMesh.hs view
@@ -51,18 +51,16 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 
 
 cSumSetMaterialName :: HG3DClass -> String -> String -> IO ()
@@ -72,7 +70,7 @@   withCString a3 $ \a3' -> 
   cSumSetMaterialName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumIsMatInitialised :: HG3DClass -> IO (Bool)
 cSumIsMatInitialised a1 =
@@ -81,21 +79,21 @@   cSumIsMatInitialised'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumClearBoneAssignments :: HG3DClass -> IO ()
 cSumClearBoneAssignments a1 =
   withHG3DClass a1 $ \a1' -> 
   cSumClearBoneAssignments'_ a1' >>= \res ->
   return ()
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumCompileBoneAssignments :: HG3DClass -> IO ()
 cSumCompileBoneAssignments a1 =
   withHG3DClass a1 $ \a1' -> 
   cSumCompileBoneAssignments'_ a1' >>= \res ->
   return ()
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumAddTextureAlias :: HG3DClass -> String -> String -> IO ()
 cSumAddTextureAlias a1 a2 a3 =
@@ -104,7 +102,7 @@   withCString a3 $ \a3' -> 
   cSumAddTextureAlias'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumRemoveTextureAlias :: HG3DClass -> String -> IO ()
 cSumRemoveTextureAlias a1 a2 =
@@ -112,14 +110,14 @@   withCString a2 $ \a2' -> 
   cSumRemoveTextureAlias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumRemoveAllTextureAliases :: HG3DClass -> IO ()
 cSumRemoveAllTextureAliases a1 =
   withHG3DClass a1 $ \a1' -> 
   cSumRemoveAllTextureAliases'_ a1' >>= \res ->
   return ()
-{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumHasTextureAliases :: HG3DClass -> IO (Bool)
 cSumHasTextureAliases a1 =
@@ -128,7 +126,7 @@   cSumHasTextureAliases'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumGetTextureAliasCount :: HG3DClass -> IO (Int)
 cSumGetTextureAliasCount a1 =
@@ -137,7 +135,7 @@   cSumGetTextureAliasCount'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumUpdateMaterialUsingTextureAliases :: HG3DClass -> IO (Bool)
 cSumUpdateMaterialUsingTextureAliases a1 =
@@ -146,7 +144,7 @@   cSumUpdateMaterialUsingTextureAliases'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 98 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumGetVertexAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
 cSumGetVertexAnimationType a1 =
@@ -155,7 +153,7 @@   cSumGetVertexAnimationType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 cSumGenerateExtremes :: HG3DClass -> Int -> IO ()
 cSumGenerateExtremes a1 a2 =
@@ -163,7 +161,7 @@   let {a2' = fromIntegral a2} in 
   cSumGenerateExtremes'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSubMesh.chs.h cSum_setMaterialName_c"
HGamer3D/Bindings/Ogre/ClassTechnique.hs view
@@ -51,34 +51,32 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCompareFunction
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumCullingMode
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumManualCullingMode
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumShadeOptions
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFogMode
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureFilterOptions
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumGPUVendor
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumIncludeOrExclude
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 
 
 cTIsSupported :: HG3DClass -> IO (Bool)
@@ -88,7 +86,7 @@   cTIsSupported'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTCompile :: HG3DClass -> Bool -> IO (String)
 cTCompile a1 a2 =
@@ -98,14 +96,14 @@   cTCompile'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTCompileIlluminationPasses :: HG3DClass -> IO ()
 cTCompileIlluminationPasses a1 =
   withHG3DClass a1 $ \a1' -> 
   cTCompileIlluminationPasses'_ a1' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTCreatePass :: HG3DClass -> IO (HG3DClass)
 cTCreatePass a1 =
@@ -114,7 +112,7 @@   cTCreatePass'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetPass :: HG3DClass -> Int -> IO (HG3DClass)
 cTGetPass a1 a2 =
@@ -124,7 +122,7 @@   cTGetPass'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetPass2 :: HG3DClass -> String -> IO (HG3DClass)
 cTGetPass2 a1 a2 =
@@ -134,7 +132,7 @@   cTGetPass2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetNumPasses :: HG3DClass -> IO (Int)
 cTGetNumPasses a1 =
@@ -143,7 +141,7 @@   cTGetNumPasses'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTRemovePass :: HG3DClass -> Int -> IO ()
 cTRemovePass a1 a2 =
@@ -151,14 +149,14 @@   let {a2' = fromIntegral a2} in 
   cTRemovePass'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTRemoveAllPasses :: HG3DClass -> IO ()
 cTRemoveAllPasses a1 =
   withHG3DClass a1 $ \a1' -> 
   cTRemoveAllPasses'_ a1' >>= \res ->
   return ()
-{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 102 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTMovePass :: HG3DClass -> Int -> Int -> IO (Bool)
 cTMovePass a1 a2 a3 =
@@ -169,7 +167,7 @@   cTMovePass'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 110 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetParent :: HG3DClass -> IO (HG3DClass)
 cTGetParent a1 =
@@ -178,7 +176,7 @@   cTGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetResourceGroup :: HG3DClass -> IO (String)
 cTGetResourceGroup a1 =
@@ -187,7 +185,7 @@   cTGetResourceGroup'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsTransparent :: HG3DClass -> IO (Bool)
 cTIsTransparent a1 =
@@ -196,7 +194,7 @@   cTIsTransparent'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsTransparentSortingEnabled :: HG3DClass -> IO (Bool)
 cTIsTransparentSortingEnabled a1 =
@@ -205,7 +203,7 @@   cTIsTransparentSortingEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsTransparentSortingForced :: HG3DClass -> IO (Bool)
 cTIsTransparentSortingForced a1 =
@@ -214,35 +212,35 @@   cTIsTransparentSortingForced'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 130 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTPrepare :: HG3DClass -> IO ()
 cTPrepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cTPrepare'_ a1' >>= \res ->
   return ()
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTUnprepare :: HG3DClass -> IO ()
 cTUnprepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cTUnprepare'_ a1' >>= \res ->
   return ()
-{-# LINE 136 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 134 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTLoad :: HG3DClass -> IO ()
 cTLoad a1 =
   withHG3DClass a1 $ \a1' -> 
   cTLoad'_ a1' >>= \res ->
   return ()
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTUnload :: HG3DClass -> IO ()
 cTUnload a1 =
   withHG3DClass a1 $ \a1' -> 
   cTUnload'_ a1' >>= \res ->
   return ()
-{-# LINE 142 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 140 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsLoaded :: HG3DClass -> IO (Bool)
 cTIsLoaded a1 =
@@ -251,14 +249,14 @@   cTIsLoaded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 146 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 144 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTNotifyNeedsRecompile :: HG3DClass -> IO ()
 cTNotifyNeedsRecompile a1 =
   withHG3DClass a1 $ \a1' -> 
   cTNotifyNeedsRecompile'_ a1' >>= \res ->
   return ()
-{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetPointSize :: HG3DClass -> Float -> IO ()
 cTSetPointSize a1 a2 =
@@ -266,7 +264,7 @@   let {a2' = realToFrac a2} in 
   cTSetPointSize'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetAmbient :: HG3DClass -> Float -> Float -> Float -> IO ()
 cTSetAmbient a1 a2 a3 a4 =
@@ -276,15 +274,15 @@   let {a4' = realToFrac a4} in 
   cTSetAmbient'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
-cTSetAmbient2 :: HG3DClass -> ColourValue -> IO ()
+cTSetAmbient2 :: HG3DClass -> Colour -> IO ()
 cTSetAmbient2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cTSetAmbient2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetDiffuse :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cTSetDiffuse a1 a2 a3 a4 a5 =
@@ -295,15 +293,15 @@   let {a5' = realToFrac a5} in 
   cTSetDiffuse'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
-cTSetDiffuse2 :: HG3DClass -> ColourValue -> IO ()
+cTSetDiffuse2 :: HG3DClass -> Colour -> IO ()
 cTSetDiffuse2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cTSetDiffuse2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetSpecular :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cTSetSpecular a1 a2 a3 a4 a5 =
@@ -314,15 +312,15 @@   let {a5' = realToFrac a5} in 
   cTSetSpecular'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
-cTSetSpecular2 :: HG3DClass -> ColourValue -> IO ()
+cTSetSpecular2 :: HG3DClass -> Colour -> IO ()
 cTSetSpecular2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cTSetSpecular2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetShininess :: HG3DClass -> Float -> IO ()
 cTSetShininess a1 a2 =
@@ -330,7 +328,7 @@   let {a2' = realToFrac a2} in 
   cTSetShininess'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetSelfIllumination :: HG3DClass -> Float -> Float -> Float -> IO ()
 cTSetSelfIllumination a1 a2 a3 a4 =
@@ -340,15 +338,15 @@   let {a4' = realToFrac a4} in 
   cTSetSelfIllumination'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 193 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
-cTSetSelfIllumination2 :: HG3DClass -> ColourValue -> IO ()
+cTSetSelfIllumination2 :: HG3DClass -> Colour -> IO ()
 cTSetSelfIllumination2 a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cTSetSelfIllumination2'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 197 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetDepthCheckEnabled :: HG3DClass -> Bool -> IO ()
 cTSetDepthCheckEnabled a1 a2 =
@@ -356,7 +354,7 @@   let {a2' = fromBool a2} in 
   cTSetDepthCheckEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 201 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetDepthWriteEnabled :: HG3DClass -> Bool -> IO ()
 cTSetDepthWriteEnabled a1 a2 =
@@ -364,7 +362,7 @@   let {a2' = fromBool a2} in 
   cTSetDepthWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 205 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetDepthFunction :: HG3DClass -> EnumCompareFunction -> IO ()
 cTSetDepthFunction a1 a2 =
@@ -372,7 +370,7 @@   let {a2' = cIntFromEnum a2} in 
   cTSetDepthFunction'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 209 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetColourWriteEnabled :: HG3DClass -> Bool -> IO ()
 cTSetColourWriteEnabled a1 a2 =
@@ -380,7 +378,7 @@   let {a2' = fromBool a2} in 
   cTSetColourWriteEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 215 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 213 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetCullingMode :: HG3DClass -> EnumCullingMode -> IO ()
 cTSetCullingMode a1 a2 =
@@ -388,7 +386,7 @@   let {a2' = cIntFromEnum a2} in 
   cTSetCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 219 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 217 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetManualCullingMode :: HG3DClass -> EnumManualCullingMode -> IO ()
 cTSetManualCullingMode a1 a2 =
@@ -396,7 +394,7 @@   let {a2' = cIntFromEnum a2} in 
   cTSetManualCullingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 223 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 221 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetLightingEnabled :: HG3DClass -> Bool -> IO ()
 cTSetLightingEnabled a1 a2 =
@@ -404,7 +402,7 @@   let {a2' = fromBool a2} in 
   cTSetLightingEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 227 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 225 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetShadingMode :: HG3DClass -> EnumShadeOptions -> IO ()
 cTSetShadingMode a1 a2 =
@@ -412,20 +410,20 @@   let {a2' = cIntFromEnum a2} in 
   cTSetShadingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 229 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
-cTSetFog :: HG3DClass -> Bool -> EnumFogMode -> ColourValue -> Float -> Float -> Float -> IO ()
+cTSetFog :: HG3DClass -> Bool -> EnumFogMode -> Colour -> Float -> Float -> Float -> IO ()
 cTSetFog a1 a2 a3 a4 a5 a6 a7 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromBool a2} in 
   let {a3' = cIntFromEnum a3} in 
-  withColourValue a4 $ \a4' -> 
+  withColour a4 $ \a4' -> 
   let {a5' = realToFrac a5} in 
   let {a6' = realToFrac a6} in 
   let {a7' = realToFrac a7} in 
   cTSetFog'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 238 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetDepthBias :: HG3DClass -> Float -> Float -> IO ()
 cTSetDepthBias a1 a2 a3 =
@@ -434,7 +432,7 @@   let {a3' = realToFrac a3} in 
   cTSetDepthBias'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetTextureFiltering :: HG3DClass -> EnumTextureFilterOptions -> IO ()
 cTSetTextureFiltering a1 a2 =
@@ -442,7 +440,7 @@   let {a2' = cIntFromEnum a2} in 
   cTSetTextureFiltering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 247 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetTextureAnisotropy :: HG3DClass -> Int -> IO ()
 cTSetTextureAnisotropy a1 a2 =
@@ -450,7 +448,7 @@   let {a2' = fromIntegral a2} in 
   cTSetTextureAnisotropy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetLodIndex :: HG3DClass -> Int -> IO ()
 cTSetLodIndex a1 a2 =
@@ -458,7 +456,7 @@   let {a2' = fromIntegral a2} in 
   cTSetLodIndex'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetLodIndex :: HG3DClass -> IO (Int)
 cTGetLodIndex a1 =
@@ -467,7 +465,7 @@   cTGetLodIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetSchemeName :: HG3DClass -> String -> IO ()
 cTSetSchemeName a1 a2 =
@@ -475,7 +473,7 @@   withCString a2 $ \a2' -> 
   cTSetSchemeName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 263 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetSchemeName :: HG3DClass -> IO (String)
 cTGetSchemeName a1 =
@@ -484,7 +482,7 @@   cTGetSchemeName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 267 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetSchemeIndex :: HG3DClass -> IO (Int)
 cTGetSchemeIndex a1 =
@@ -493,7 +491,7 @@   cTGetSchemeIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 271 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsDepthWriteEnabled :: HG3DClass -> IO (Bool)
 cTIsDepthWriteEnabled a1 =
@@ -502,7 +500,7 @@   cTIsDepthWriteEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 275 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTIsDepthCheckEnabled :: HG3DClass -> IO (Bool)
 cTIsDepthCheckEnabled a1 =
@@ -511,7 +509,7 @@   cTIsDepthCheckEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 279 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTHasColourWriteDisabled :: HG3DClass -> IO (Bool)
 cTHasColourWriteDisabled a1 =
@@ -520,7 +518,7 @@   cTHasColourWriteDisabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTSetName :: HG3DClass -> String -> IO ()
 cTSetName a1 a2 =
@@ -528,7 +526,7 @@   withCString a2 $ \a2' -> 
   cTSetName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 289 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 287 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTGetName :: HG3DClass -> IO (String)
 cTGetName a1 =
@@ -537,7 +535,7 @@   cTGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 293 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 291 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTAddGPUVendorRule :: HG3DClass -> EnumGPUVendor -> EnumIncludeOrExclude -> IO ()
 cTAddGPUVendorRule a1 a2 a3 =
@@ -546,7 +544,7 @@   let {a3' = cIntFromEnum a3} in 
   cTAddGPUVendorRule'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 298 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 296 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTRemoveGPUVendorRule :: HG3DClass -> EnumGPUVendor -> IO ()
 cTRemoveGPUVendorRule a1 a2 =
@@ -554,7 +552,7 @@   let {a2' = cIntFromEnum a2} in 
   cTRemoveGPUVendorRule'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 302 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 300 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTAddGPUDeviceNameRule :: HG3DClass -> String -> EnumIncludeOrExclude -> Bool -> IO ()
 cTAddGPUDeviceNameRule a1 a2 a3 a4 =
@@ -564,7 +562,7 @@   let {a4' = fromBool a4} in 
   cTAddGPUDeviceNameRule'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 308 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 306 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 cTRemoveGPUDeviceNameRule :: HG3DClass -> String -> IO ()
 cTRemoveGPUDeviceNameRule a1 a2 =
@@ -572,7 +570,7 @@   withCString a2 $ \a2' -> 
   cTRemoveGPUDeviceNameRule'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 312 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
+{-# LINE 310 "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_isSupported_c"
@@ -645,19 +643,19 @@   cTSetAmbient'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setAmbient2_c"
-  cTSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTSetAmbient2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setDiffuse_c"
   cTSetDiffuse'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setDiffuse2_c"
-  cTSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTSetDiffuse2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setSpecular_c"
   cTSetSpecular'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setSpecular2_c"
-  cTSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTSetSpecular2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setShininess_c"
   cTSetShininess'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))
@@ -666,7 +664,7 @@   cTSetSelfIllumination'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setSelfIllumination2_c"
-  cTSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTSetSelfIllumination2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setDepthCheckEnabled_c"
   cTSetDepthCheckEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
@@ -693,7 +691,7 @@   cTSetShadingMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setFog_c"
-  cTSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourValuePtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
+  cTSetFog'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> ((ColourPtr) -> (CFloat -> (CFloat -> (CFloat -> (IO ()))))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTechnique.chs.h cT_setDepthBias_c"
   cTSetDepthBias'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassTempBlendedBufferInfo.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
 
 
 cTbbiCheckoutTempCopies :: HG3DClass -> Bool -> Bool -> IO ()
@@ -70,7 +68,7 @@   let {a3' = fromBool a3} in 
   cTbbiCheckoutTempCopies'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
 ;
 cTbbiBuffersCheckedOut :: HG3DClass -> Bool -> Bool -> IO (Bool)
 cTbbiBuffersCheckedOut a1 a2 a3 =
@@ -81,7 +79,7 @@   cTbbiBuffersCheckedOut'_ a1' a2' a3' a4' >>= \res ->
   peekBoolUtil  a4'>>= \a4'' -> 
   return (a4'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTempBlendedBufferInfo.chs.h cTbbi_checkoutTempCopies_c"
HGamer3D/Bindings/Ogre/ClassTextureManager.hs view
@@ -51,22 +51,20 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureType
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 
 
 cTmPrepare :: HG3DClass -> String -> String -> EnumTextureType -> Int -> Float -> Bool -> EnumPixelFormat -> Bool -> IO (SharedPtr)
@@ -84,7 +82,7 @@   cTmPrepare'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
   peek  a10'>>= \a10'' -> 
   return (a10'')
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmLoad :: HG3DClass -> String -> String -> EnumTextureType -> Int -> Float -> Bool -> EnumPixelFormat -> Bool -> IO (SharedPtr)
 cTmLoad a1 a2 a3 a4 a5 a6 a7 a8 a9 =
@@ -101,7 +99,7 @@   cTmLoad'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' >>= \res ->
   peek  a10'>>= \a10'' -> 
   return (a10'')
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmIsFormatSupported :: HG3DClass -> EnumTextureType -> EnumPixelFormat -> Int -> IO (Bool)
 cTmIsFormatSupported a1 a2 a3 a4 =
@@ -113,7 +111,7 @@   cTmIsFormatSupported'_ a1' a2' a3' a4' a5' >>= \res ->
   peekBoolUtil  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmIsEquivalentFormatSupported :: HG3DClass -> EnumTextureType -> EnumPixelFormat -> Int -> IO (Bool)
 cTmIsEquivalentFormatSupported a1 a2 a3 a4 =
@@ -125,7 +123,7 @@   cTmIsEquivalentFormatSupported'_ a1' a2' a3' a4' a5' >>= \res ->
   peekBoolUtil  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmGetNativeFormat :: HG3DClass -> EnumTextureType -> EnumPixelFormat -> Int -> IO (EnumPixelFormat)
 cTmGetNativeFormat a1 a2 a3 a4 =
@@ -137,7 +135,7 @@   cTmGetNativeFormat'_ a1' a2' a3' a4' a5' >>= \res ->
   peekEnumUtil  a5'>>= \a5'' -> 
   return (a5'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmIsHardwareFilteringSupported :: HG3DClass -> EnumTextureType -> EnumPixelFormat -> Int -> Bool -> IO (Bool)
 cTmIsHardwareFilteringSupported a1 a2 a3 a4 a5 =
@@ -150,7 +148,7 @@   cTmIsHardwareFilteringSupported'_ a1' a2' a3' a4' a5' a6' >>= \res ->
   peekBoolUtil  a6'>>= \a6'' -> 
   return (a6'')
-{-# LINE 114 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmSetDefaultNumMipmaps :: HG3DClass -> Int -> IO ()
 cTmSetDefaultNumMipmaps a1 a2 =
@@ -158,7 +156,7 @@   let {a2' = fromIntegral a2} in 
   cTmSetDefaultNumMipmaps'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 118 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 cTmGetDefaultNumMipmaps :: HG3DClass -> IO (Int)
 cTmGetDefaultNumMipmaps a1 =
@@ -167,7 +165,7 @@   cTmGetDefaultNumMipmaps'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 122 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 -- created constructor function from default constructor
 cTmGetSingletonPtr :: IO (HG3DClass)
@@ -176,7 +174,7 @@   cTmGetSingletonPtr'_ a1' >>= \res ->
   peek  a1'>>= \a1'' -> 
   return (a1'')
-{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
+{-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h cTm_prepare_c"
HGamer3D/Bindings/Ogre/ClassTextureUnitState.hs view
@@ -51,46 +51,44 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumBindingType
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumContentType
-{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumPixelFormat
-{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeRadian
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureAddressingMode
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLayerBlendOperationEx
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumLayerBlendSource
-{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumSceneBlendFactor
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumEnvMapType
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 65 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTextureFilterOptions
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFilterType
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumFilterOptions
-{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeSharedPtr
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 
 
 cTusGetTextureName :: HG3DClass -> IO (String)
@@ -100,7 +98,7 @@   cTusGetTextureName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureName :: HG3DClass -> String -> EnumTextureType -> IO ()
 cTusSetTextureName a1 a2 a3 =
@@ -109,7 +107,7 @@   let {a3' = cIntFromEnum a3} in 
   cTusSetTextureName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetCubicTextureName :: HG3DClass -> String -> Bool -> IO ()
 cTusSetCubicTextureName a1 a2 a3 =
@@ -118,7 +116,7 @@   let {a3' = fromBool a3} in 
   cTusSetCubicTextureName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetAnimatedTextureName :: HG3DClass -> String -> Int -> Float -> IO ()
 cTusSetAnimatedTextureName a1 a2 a3 a4 =
@@ -128,7 +126,7 @@   let {a4' = realToFrac a4} in 
   cTusSetAnimatedTextureName'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetCurrentFrame :: HG3DClass -> Int -> IO ()
 cTusSetCurrentFrame a1 a2 =
@@ -136,7 +134,7 @@   let {a2' = fromIntegral a2} in 
   cTusSetCurrentFrame'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetCurrentFrame :: HG3DClass -> IO (Int)
 cTusGetCurrentFrame a1 =
@@ -145,7 +143,7 @@   cTusGetCurrentFrame'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetFrameTextureName :: HG3DClass -> Int -> IO (String)
 cTusGetFrameTextureName a1 a2 =
@@ -155,7 +153,7 @@   cTusGetFrameTextureName'_ a1' a2' a3' >>= \res ->
   peekCString  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 106 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetFrameTextureName :: HG3DClass -> String -> Int -> IO ()
 cTusSetFrameTextureName a1 a2 a3 =
@@ -164,7 +162,7 @@   let {a3' = fromIntegral a3} in 
   cTusSetFrameTextureName'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusAddFrameTextureName :: HG3DClass -> String -> IO ()
 cTusAddFrameTextureName a1 a2 =
@@ -172,7 +170,7 @@   withCString a2 $ \a2' -> 
   cTusAddFrameTextureName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusDeleteFrameTextureName :: HG3DClass -> Int -> IO ()
 cTusDeleteFrameTextureName a1 a2 =
@@ -180,7 +178,7 @@   let {a2' = fromIntegral a2} in 
   cTusDeleteFrameTextureName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetNumFrames :: HG3DClass -> IO (Int)
 cTusGetNumFrames a1 =
@@ -189,7 +187,7 @@   cTusGetNumFrames'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 123 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetBindingType :: HG3DClass -> EnumBindingType -> IO ()
 cTusSetBindingType a1 a2 =
@@ -197,7 +195,7 @@   let {a2' = cIntFromEnum a2} in 
   cTusSetBindingType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 127 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 125 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetBindingType :: HG3DClass -> IO (EnumBindingType)
 cTusGetBindingType a1 =
@@ -206,7 +204,7 @@   cTusGetBindingType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetContentType :: HG3DClass -> EnumContentType -> IO ()
 cTusSetContentType a1 a2 =
@@ -214,7 +212,7 @@   let {a2' = cIntFromEnum a2} in 
   cTusSetContentType'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetContentType :: HG3DClass -> IO (EnumContentType)
 cTusGetContentType a1 =
@@ -223,7 +221,7 @@   cTusGetContentType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIsCubic :: HG3DClass -> IO (Bool)
 cTusIsCubic a1 =
@@ -232,7 +230,7 @@   cTusIsCubic'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIs3D :: HG3DClass -> IO (Bool)
 cTusIs3D a1 =
@@ -241,7 +239,7 @@   cTusIs3D'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 147 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureType :: HG3DClass -> IO (EnumTextureType)
 cTusGetTextureType a1 =
@@ -250,7 +248,7 @@   cTusGetTextureType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 151 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetDesiredFormat :: HG3DClass -> EnumPixelFormat -> IO ()
 cTusSetDesiredFormat a1 a2 =
@@ -258,7 +256,7 @@   let {a2' = cIntFromEnum a2} in 
   cTusSetDesiredFormat'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 155 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetDesiredFormat :: HG3DClass -> IO (EnumPixelFormat)
 cTusGetDesiredFormat a1 =
@@ -267,7 +265,7 @@   cTusGetDesiredFormat'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 159 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 157 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetNumMipmaps :: HG3DClass -> Int -> IO ()
 cTusSetNumMipmaps a1 a2 =
@@ -275,7 +273,7 @@   let {a2' = fromIntegral a2} in 
   cTusSetNumMipmaps'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 163 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 161 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetNumMipmaps :: HG3DClass -> IO (Int)
 cTusGetNumMipmaps a1 =
@@ -284,7 +282,7 @@   cTusGetNumMipmaps'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 167 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 165 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetIsAlpha :: HG3DClass -> Bool -> IO ()
 cTusSetIsAlpha a1 a2 =
@@ -292,7 +290,7 @@   let {a2' = fromBool a2} in 
   cTusSetIsAlpha'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 171 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 169 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetIsAlpha :: HG3DClass -> IO (Bool)
 cTusGetIsAlpha a1 =
@@ -301,7 +299,7 @@   cTusGetIsAlpha'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 175 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 173 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetHardwareGammaEnabled :: HG3DClass -> Bool -> IO ()
 cTusSetHardwareGammaEnabled a1 a2 =
@@ -309,7 +307,7 @@   let {a2' = fromBool a2} in 
   cTusSetHardwareGammaEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 179 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 177 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIsHardwareGammaEnabled :: HG3DClass -> IO (Bool)
 cTusIsHardwareGammaEnabled a1 =
@@ -318,7 +316,7 @@   cTusIsHardwareGammaEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 181 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureCoordSet :: HG3DClass -> IO (Int)
 cTusGetTextureCoordSet a1 =
@@ -327,7 +325,7 @@   cTusGetTextureCoordSet'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 185 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureCoordSet :: HG3DClass -> Int -> IO ()
 cTusSetTextureCoordSet a1 a2 =
@@ -335,7 +333,7 @@   let {a2' = fromIntegral a2} in 
   cTusSetTextureCoordSet'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 189 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureScroll :: HG3DClass -> Float -> Float -> IO ()
 cTusSetTextureScroll a1 a2 a3 =
@@ -344,7 +342,7 @@   let {a3' = realToFrac a3} in 
   cTusSetTextureScroll'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 194 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureUScroll :: HG3DClass -> Float -> IO ()
 cTusSetTextureUScroll a1 a2 =
@@ -352,7 +350,7 @@   let {a2' = realToFrac a2} in 
   cTusSetTextureUScroll'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureUScroll :: HG3DClass -> IO (Float)
 cTusGetTextureUScroll a1 =
@@ -361,7 +359,7 @@   cTusGetTextureUScroll'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureVScroll :: HG3DClass -> Float -> IO ()
 cTusSetTextureVScroll a1 a2 =
@@ -369,7 +367,7 @@   let {a2' = realToFrac a2} in 
   cTusSetTextureVScroll'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureVScroll :: HG3DClass -> IO (Float)
 cTusGetTextureVScroll a1 =
@@ -378,7 +376,7 @@   cTusGetTextureVScroll'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureUScale :: HG3DClass -> Float -> IO ()
 cTusSetTextureUScale a1 a2 =
@@ -386,7 +384,7 @@   let {a2' = realToFrac a2} in 
   cTusSetTextureUScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureUScale :: HG3DClass -> IO (Float)
 cTusGetTextureUScale a1 =
@@ -395,7 +393,7 @@   cTusGetTextureUScale'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureVScale :: HG3DClass -> Float -> IO ()
 cTusSetTextureVScale a1 a2 =
@@ -403,7 +401,7 @@   let {a2' = realToFrac a2} in 
   cTusSetTextureVScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureVScale :: HG3DClass -> IO (Float)
 cTusGetTextureVScale a1 =
@@ -412,7 +410,7 @@   cTusGetTextureVScale'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureScale :: HG3DClass -> Float -> Float -> IO ()
 cTusSetTextureScale a1 a2 a3 =
@@ -421,24 +419,24 @@   let {a3' = realToFrac a3} in 
   cTusSetTextureScale'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 233 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 231 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
-cTusSetTextureRotate :: HG3DClass -> Radian -> IO ()
+cTusSetTextureRotate :: HG3DClass -> Radians -> IO ()
 cTusSetTextureRotate a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withRadian a2 $ \a2' -> 
+  withRadians a2 $ \a2' -> 
   cTusSetTextureRotate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 237 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 235 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
-cTusGetTextureRotate :: HG3DClass -> IO (Radian)
+cTusGetTextureRotate :: HG3DClass -> IO (Radians)
 cTusGetTextureRotate a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cTusGetTextureRotate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 241 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 239 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureAddressingMode :: HG3DClass -> EnumTextureAddressingMode -> IO ()
 cTusSetTextureAddressingMode a1 a2 =
@@ -446,7 +444,7 @@   let {a2' = cIntFromEnum a2} in 
   cTusSetTextureAddressingMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 243 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureAddressingMode2 :: HG3DClass -> EnumTextureAddressingMode -> EnumTextureAddressingMode -> EnumTextureAddressingMode -> IO ()
 cTusSetTextureAddressingMode2 a1 a2 a3 a4 =
@@ -456,37 +454,37 @@   let {a4' = cIntFromEnum a4} in 
   cTusSetTextureAddressingMode2'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 251 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
-cTusSetTextureBorderColour :: HG3DClass -> ColourValue -> IO ()
+cTusSetTextureBorderColour :: HG3DClass -> Colour -> IO ()
 cTusSetTextureBorderColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cTusSetTextureBorderColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 255 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
-cTusGetTextureBorderColour :: HG3DClass -> IO (ColourValue)
+cTusGetTextureBorderColour :: HG3DClass -> IO (Colour)
 cTusGetTextureBorderColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cTusGetTextureBorderColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 259 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
-cTusSetColourOperationEx :: HG3DClass -> EnumLayerBlendOperationEx -> EnumLayerBlendSource -> EnumLayerBlendSource -> ColourValue -> ColourValue -> Float -> IO ()
+cTusSetColourOperationEx :: HG3DClass -> EnumLayerBlendOperationEx -> EnumLayerBlendSource -> EnumLayerBlendSource -> Colour -> Colour -> Float -> IO ()
 cTusSetColourOperationEx a1 a2 a3 a4 a5 a6 a7 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = cIntFromEnum a2} in 
   let {a3' = cIntFromEnum a3} in 
   let {a4' = cIntFromEnum a4} in 
-  withColourValue a5 $ \a5' -> 
-  withColourValue a6 $ \a6' -> 
+  withColour a5 $ \a5' -> 
+  withColour a6 $ \a6' -> 
   let {a7' = realToFrac a7} in 
   cTusSetColourOperationEx'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 268 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 266 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetColourBlendFallbackSrc :: HG3DClass -> IO (EnumSceneBlendFactor)
 cTusGetColourBlendFallbackSrc a1 =
@@ -495,7 +493,7 @@   cTusGetColourBlendFallbackSrc'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 272 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 270 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetColourBlendFallbackDest :: HG3DClass -> IO (EnumSceneBlendFactor)
 cTusGetColourBlendFallbackDest a1 =
@@ -504,7 +502,7 @@   cTusGetColourBlendFallbackDest'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 276 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 274 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetAlphaOperation :: HG3DClass -> EnumLayerBlendOperationEx -> EnumLayerBlendSource -> EnumLayerBlendSource -> Float -> Float -> Float -> IO ()
 cTusSetAlphaOperation a1 a2 a3 a4 a5 a6 a7 =
@@ -517,7 +515,7 @@   let {a7' = realToFrac a7} in 
   cTusSetAlphaOperation'_ a1' a2' a3' a4' a5' a6' a7' >>= \res ->
   return ()
-{-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 283 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetEnvironmentMap :: HG3DClass -> Bool -> EnumEnvMapType -> IO ()
 cTusSetEnvironmentMap a1 a2 a3 =
@@ -526,7 +524,7 @@   let {a3' = cIntFromEnum a3} in 
   cTusSetEnvironmentMap'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 290 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 288 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetScrollAnimation :: HG3DClass -> Float -> Float -> IO ()
 cTusSetScrollAnimation a1 a2 a3 =
@@ -535,7 +533,7 @@   let {a3' = realToFrac a3} in 
   cTusSetScrollAnimation'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 295 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 293 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetRotateAnimation :: HG3DClass -> Float -> IO ()
 cTusSetRotateAnimation a1 a2 =
@@ -543,14 +541,14 @@   let {a2' = realToFrac a2} in 
   cTusSetRotateAnimation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 299 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 297 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusRemoveAllEffects :: HG3DClass -> IO ()
 cTusRemoveAllEffects a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusRemoveAllEffects'_ a1' >>= \res ->
   return ()
-{-# LINE 302 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 300 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIsBlank :: HG3DClass -> IO (Bool)
 cTusIsBlank a1 =
@@ -559,14 +557,14 @@   cTusIsBlank'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 306 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 304 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetBlank :: HG3DClass -> IO ()
 cTusSetBlank a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusSetBlank'_ a1' >>= \res ->
   return ()
-{-# LINE 309 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 307 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIsTextureLoadFailing :: HG3DClass -> IO (Bool)
 cTusIsTextureLoadFailing a1 =
@@ -575,14 +573,14 @@   cTusIsTextureLoadFailing'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 313 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 311 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusRetryTextureLoad :: HG3DClass -> IO ()
 cTusRetryTextureLoad a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusRetryTextureLoad'_ a1' >>= \res ->
   return ()
-{-# LINE 316 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 314 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetAnimationDuration :: HG3DClass -> IO (Float)
 cTusGetAnimationDuration a1 =
@@ -591,7 +589,7 @@   cTusGetAnimationDuration'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 320 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 318 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureFiltering :: HG3DClass -> EnumTextureFilterOptions -> IO ()
 cTusSetTextureFiltering a1 a2 =
@@ -599,7 +597,7 @@   let {a2' = cIntFromEnum a2} in 
   cTusSetTextureFiltering'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 324 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 322 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureFiltering2 :: HG3DClass -> EnumFilterType -> EnumFilterOptions -> IO ()
 cTusSetTextureFiltering2 a1 a2 a3 =
@@ -608,7 +606,7 @@   let {a3' = cIntFromEnum a3} in 
   cTusSetTextureFiltering2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 329 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 327 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureFiltering3 :: HG3DClass -> EnumFilterOptions -> EnumFilterOptions -> EnumFilterOptions -> IO ()
 cTusSetTextureFiltering3 a1 a2 a3 a4 =
@@ -618,7 +616,7 @@   let {a4' = cIntFromEnum a4} in 
   cTusSetTextureFiltering3'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 335 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 333 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureFiltering :: HG3DClass -> EnumFilterType -> IO (EnumFilterOptions)
 cTusGetTextureFiltering a1 a2 =
@@ -628,7 +626,7 @@   cTusGetTextureFiltering'_ a1' a2' a3' >>= \res ->
   peekEnumUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 340 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 338 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureAnisotropy :: HG3DClass -> Int -> IO ()
 cTusSetTextureAnisotropy a1 a2 =
@@ -636,7 +634,7 @@   let {a2' = fromIntegral a2} in 
   cTusSetTextureAnisotropy'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 344 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 342 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureAnisotropy :: HG3DClass -> IO (Int)
 cTusGetTextureAnisotropy a1 =
@@ -645,7 +643,7 @@   cTusGetTextureAnisotropy'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 348 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 346 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureMipmapBias :: HG3DClass -> Float -> IO ()
 cTusSetTextureMipmapBias a1 a2 =
@@ -653,7 +651,7 @@   let {a2' = realToFrac a2} in 
   cTusSetTextureMipmapBias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 352 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 350 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureMipmapBias :: HG3DClass -> IO (Float)
 cTusGetTextureMipmapBias a1 =
@@ -662,7 +660,7 @@   cTusGetTextureMipmapBias'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 356 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 354 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetCompositorReference :: HG3DClass -> String -> String -> Int -> IO ()
 cTusSetCompositorReference a1 a2 a3 a4 =
@@ -672,7 +670,7 @@   let {a4' = fromIntegral a4} in 
   cTusSetCompositorReference'_ a1' a2' a3' a4' >>= \res ->
   return ()
-{-# LINE 362 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 360 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetReferencedCompositorName :: HG3DClass -> IO (String)
 cTusGetReferencedCompositorName a1 =
@@ -681,7 +679,7 @@   cTusGetReferencedCompositorName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 366 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 364 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetReferencedTextureName :: HG3DClass -> IO (String)
 cTusGetReferencedTextureName a1 =
@@ -690,7 +688,7 @@   cTusGetReferencedTextureName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 370 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 368 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetReferencedMRTIndex :: HG3DClass -> IO (Int)
 cTusGetReferencedMRTIndex a1 =
@@ -699,7 +697,7 @@   cTusGetReferencedMRTIndex'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 374 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 372 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetParent :: HG3DClass -> IO (HG3DClass)
 cTusGetParent a1 =
@@ -708,35 +706,35 @@   cTusGetParent'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 378 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 376 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusPrepare :: HG3DClass -> IO ()
 cTusPrepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusPrepare'_ a1' >>= \res ->
   return ()
-{-# LINE 381 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 379 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusUnprepare :: HG3DClass -> IO ()
 cTusUnprepare a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusUnprepare'_ a1' >>= \res ->
   return ()
-{-# LINE 384 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 382 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusLoad :: HG3DClass -> IO ()
 cTusLoad a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusLoad'_ a1' >>= \res ->
   return ()
-{-# LINE 387 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 385 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusUnload :: HG3DClass -> IO ()
 cTusUnload a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusUnload'_ a1' >>= \res ->
   return ()
-{-# LINE 390 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 388 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusHasViewRelativeTextureCoordinateGeneration :: HG3DClass -> IO (Bool)
 cTusHasViewRelativeTextureCoordinateGeneration a1 =
@@ -745,7 +743,7 @@   cTusHasViewRelativeTextureCoordinateGeneration'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 394 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 392 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusIsLoaded :: HG3DClass -> IO (Bool)
 cTusIsLoaded a1 =
@@ -754,14 +752,14 @@   cTusIsLoaded'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 398 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 396 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusNotifyNeedsRecompile :: HG3DClass -> IO ()
 cTusNotifyNeedsRecompile a1 =
   withHG3DClass a1 $ \a1' -> 
   cTusNotifyNeedsRecompile'_ a1' >>= \res ->
   return ()
-{-# LINE 401 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 399 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetName :: HG3DClass -> String -> IO ()
 cTusSetName a1 a2 =
@@ -769,7 +767,7 @@   withCString a2 $ \a2' -> 
   cTusSetName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 405 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 403 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetName :: HG3DClass -> IO (String)
 cTusGetName a1 =
@@ -778,7 +776,7 @@   cTusGetName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 409 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 407 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTextureNameAlias :: HG3DClass -> String -> IO ()
 cTusSetTextureNameAlias a1 a2 =
@@ -786,7 +784,7 @@   withCString a2 $ \a2' -> 
   cTusSetTextureNameAlias'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 413 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 411 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTextureNameAlias :: HG3DClass -> IO (String)
 cTusGetTextureNameAlias a1 =
@@ -795,7 +793,7 @@   cTusGetTextureNameAlias'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 417 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 415 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusNotifyParent :: HG3DClass -> HG3DClass -> IO ()
 cTusNotifyParent a1 a2 =
@@ -803,7 +801,7 @@   withHG3DClass a2 $ \a2' -> 
   cTusNotifyParent'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 421 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 419 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTexturePtr :: HG3DClass -> IO (SharedPtr)
 cTusGetTexturePtr a1 =
@@ -812,7 +810,7 @@   cTusGetTexturePtr'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 425 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 423 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusGetTexturePtr2 :: HG3DClass -> Int -> IO (SharedPtr)
 cTusGetTexturePtr2 a1 a2 =
@@ -822,7 +820,7 @@   cTusGetTexturePtr2'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 430 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 428 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTexturePtr :: HG3DClass -> SharedPtr -> IO ()
 cTusSetTexturePtr a1 a2 =
@@ -830,7 +828,7 @@   withSharedPtr a2 $ \a2' -> 
   cTusSetTexturePtr'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 434 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 432 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 cTusSetTexturePtr2 :: HG3DClass -> SharedPtr -> Int -> IO ()
 cTusSetTexturePtr2 a1 a2 a3 =
@@ -839,7 +837,7 @@   let {a3' = fromIntegral a3} in 
   cTusSetTexturePtr2'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 439 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
+{-# LINE 437 "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_getTextureName_c"
@@ -957,10 +955,10 @@   cTusSetTextureScale'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ()))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_setTextureRotate_c"
-  cTusSetTextureRotate'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cTusSetTextureRotate'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_getTextureRotate_c"
-  cTusGetTextureRotate'_ :: ((HG3DClassPtr) -> ((RadianPtr) -> (IO ())))
+  cTusGetTextureRotate'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_setTextureAddressingMode_c"
   cTusSetTextureAddressingMode'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))
@@ -969,13 +967,13 @@   cTusSetTextureAddressingMode2'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (CInt -> (IO ())))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_setTextureBorderColour_c"
-  cTusSetTextureBorderColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTusSetTextureBorderColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_getTextureBorderColour_c"
-  cTusGetTextureBorderColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cTusGetTextureBorderColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_setColourOperationEx_c"
-  cTusSetColourOperationEx'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (CInt -> ((ColourValuePtr) -> ((ColourValuePtr) -> (CFloat -> (IO ()))))))))
+  cTusSetColourOperationEx'_ :: ((HG3DClassPtr) -> (CInt -> (CInt -> (CInt -> ((ColourPtr) -> ((ColourPtr) -> (CFloat -> (IO ()))))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureUnitState.chs.h cTus_getColourBlendFallbackSrc_c"
   cTusGetColourBlendFallbackSrc'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
HGamer3D/Bindings/Ogre/ClassTimeIndex.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-}
HGamer3D/Bindings/Ogre/ClassTransformKeyFrame.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeVector3
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.TypeQuaternion
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 
 
 cTkfSetTranslate :: HG3DClass -> Vector3 -> IO ()
@@ -73,7 +71,7 @@   withVector3 a2 $ \a2' -> 
   cTkfSetTranslate'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 cTkfGetTranslate :: HG3DClass -> IO (Vector3)
 cTkfGetTranslate a1 =
@@ -82,7 +80,7 @@   cTkfGetTranslate'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 cTkfSetScale :: HG3DClass -> Vector3 -> IO ()
 cTkfSetScale a1 a2 =
@@ -90,7 +88,7 @@   withVector3 a2 $ \a2' -> 
   cTkfSetScale'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 70 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 cTkfGetScale :: HG3DClass -> IO (Vector3)
 cTkfGetScale a1 =
@@ -99,7 +97,7 @@   cTkfGetScale'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 76 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 cTkfSetRotation :: HG3DClass -> Quaternion -> IO ()
 cTkfSetRotation a1 a2 =
@@ -107,7 +105,7 @@   withQuaternion a2 $ \a2' -> 
   cTkfSetRotation'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 80 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 78 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 cTkfGetRotation :: HG3DClass -> IO (Quaternion)
 cTkfGetRotation a1 =
@@ -116,7 +114,7 @@   cTkfGetRotation'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTransformKeyFrame.chs.h cTkf_setTranslate_c"
HGamer3D/Bindings/Ogre/ClassUnimplementedException.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassUnimplementedException.chs" #-}
HGamer3D/Bindings/Ogre/ClassVertexAnimationTrack.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumVertexAnimationType
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumTargetMode
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 
 
 cVantGetAnimationType :: HG3DClass -> IO (EnumVertexAnimationType)
@@ -74,7 +72,7 @@   cVantGetAnimationType'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantCreateVertexMorphKeyFrame :: HG3DClass -> Float -> IO (HG3DClass)
 cVantCreateVertexMorphKeyFrame a1 a2 =
@@ -84,7 +82,7 @@   cVantCreateVertexMorphKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantCreateVertexPoseKeyFrame :: HG3DClass -> Float -> IO (HG3DClass)
 cVantCreateVertexPoseKeyFrame a1 a2 =
@@ -94,7 +92,7 @@   cVantCreateVertexPoseKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 74 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 72 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantGetVertexMorphKeyFrame :: HG3DClass -> Int -> IO (HG3DClass)
 cVantGetVertexMorphKeyFrame a1 a2 =
@@ -104,7 +102,7 @@   cVantGetVertexMorphKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantGetVertexPoseKeyFrame :: HG3DClass -> Int -> IO (HG3DClass)
 cVantGetVertexPoseKeyFrame a1 a2 =
@@ -114,7 +112,7 @@   cVantGetVertexPoseKeyFrame'_ a1' a2' a3' >>= \res ->
   peek  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 84 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 82 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantSetTargetMode :: HG3DClass -> EnumTargetMode -> IO ()
 cVantSetTargetMode a1 a2 =
@@ -122,7 +120,7 @@   let {a2' = cIntFromEnum a2} in 
   cVantSetTargetMode'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 88 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 86 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantGetTargetMode :: HG3DClass -> IO (EnumTargetMode)
 cVantGetTargetMode a1 =
@@ -131,7 +129,7 @@   cVantGetTargetMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 90 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantHasNonZeroKeyFrames :: HG3DClass -> IO (Bool)
 cVantHasNonZeroKeyFrames a1 =
@@ -140,14 +138,14 @@   cVantHasNonZeroKeyFrames'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 94 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 cVantOptimise :: HG3DClass -> IO ()
 cVantOptimise a1 =
   withHG3DClass a1 $ \a1' -> 
   cVantOptimise'_ a1' >>= \res ->
   return ()
-{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
+{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h cVant_getAnimationType_c"
HGamer3D/Bindings/Ogre/ClassVertexMorphKeyFrame.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexMorphKeyFrame.chs" #-}
HGamer3D/Bindings/Ogre/ClassVertexPoseKeyFrame.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
 
 
 cVpkfRemoveAllPoseReferences :: HG3DClass -> IO ()
@@ -68,7 +66,7 @@   withHG3DClass a1 $ \a1' -> 
   cVpkfRemoveAllPoseReferences'_ a1' >>= \res ->
   return ()
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
+{-# LINE 59 "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexPoseKeyFrame.chs.h cVpkf_removeAllPoseReferences_c"
HGamer3D/Bindings/Ogre/ClassViewport.hs view
@@ -51,20 +51,18 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
-import HGamer3D.Bindings.Ogre.TypeColourValue
-{-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+import HGamer3D.Bindings.Ogre.TypeColour
+{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 import HGamer3D.Bindings.Ogre.EnumOrientationMode
-{-# LINE 58 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 
 
 cVpUpdateDimensions :: HG3DClass -> IO ()
@@ -72,25 +70,25 @@   withHG3DClass a1 $ \a1' -> 
   cVpUpdateDimensions'_ a1' >>= \res ->
   return ()
-{-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpUpdate :: HG3DClass -> IO ()
 cVpUpdate a1 =
   withHG3DClass a1 $ \a1' -> 
   cVpUpdate'_ a1' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
-cVpClear :: HG3DClass -> Int -> ColourValue -> Float -> Int -> IO ()
+cVpClear :: HG3DClass -> Int -> Colour -> Float -> Int -> IO ()
 cVpClear a1 a2 a3 a4 a5 =
   withHG3DClass a1 $ \a1' -> 
   let {a2' = fromIntegral a2} in 
-  withColourValue a3 $ \a3' -> 
+  withColour a3 $ \a3' -> 
   let {a4' = realToFrac a4} in 
   let {a5' = fromIntegral a5} in 
   cVpClear'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetTarget :: HG3DClass -> IO (HG3DClass)
 cVpGetTarget a1 =
@@ -99,7 +97,7 @@   cVpGetTarget'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetCamera :: HG3DClass -> IO (HG3DClass)
 cVpGetCamera a1 =
@@ -108,7 +106,7 @@   cVpGetCamera'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 81 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetCamera :: HG3DClass -> HG3DClass -> IO ()
 cVpSetCamera a1 a2 =
@@ -116,7 +114,7 @@   withHG3DClass a2 $ \a2' -> 
   cVpSetCamera'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 85 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetZOrder :: HG3DClass -> IO (Int)
 cVpGetZOrder a1 =
@@ -125,7 +123,7 @@   cVpGetZOrder'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 89 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetLeft :: HG3DClass -> IO (Float)
 cVpGetLeft a1 =
@@ -134,7 +132,7 @@   cVpGetLeft'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 93 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 91 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetTop :: HG3DClass -> IO (Float)
 cVpGetTop a1 =
@@ -143,7 +141,7 @@   cVpGetTop'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 97 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 95 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetWidth :: HG3DClass -> IO (Float)
 cVpGetWidth a1 =
@@ -152,7 +150,7 @@   cVpGetWidth'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 101 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 99 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetHeight :: HG3DClass -> IO (Float)
 cVpGetHeight a1 =
@@ -161,7 +159,7 @@   cVpGetHeight'_ a1' a2' >>= \res ->
   peekFloatConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 105 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 103 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetActualLeft :: HG3DClass -> IO (Int)
 cVpGetActualLeft a1 =
@@ -170,7 +168,7 @@   cVpGetActualLeft'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 109 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 107 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetActualTop :: HG3DClass -> IO (Int)
 cVpGetActualTop a1 =
@@ -179,7 +177,7 @@   cVpGetActualTop'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 113 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 111 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetActualWidth :: HG3DClass -> IO (Int)
 cVpGetActualWidth a1 =
@@ -188,7 +186,7 @@   cVpGetActualWidth'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 117 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 115 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetActualHeight :: HG3DClass -> IO (Int)
 cVpGetActualHeight a1 =
@@ -197,7 +195,7 @@   cVpGetActualHeight'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 121 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 119 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetDimensions :: HG3DClass -> Float -> Float -> Float -> Float -> IO ()
 cVpSetDimensions a1 a2 a3 a4 a5 =
@@ -208,7 +206,7 @@   let {a5' = realToFrac a5} in 
   cVpSetDimensions'_ a1' a2' a3' a4' a5' >>= \res ->
   return ()
-{-# LINE 128 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 126 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetOrientationMode :: HG3DClass -> EnumOrientationMode -> Bool -> IO ()
 cVpSetOrientationMode a1 a2 a3 =
@@ -217,7 +215,7 @@   let {a3' = fromBool a3} in 
   cVpSetOrientationMode'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 131 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetOrientationMode :: HG3DClass -> IO (EnumOrientationMode)
 cVpGetOrientationMode a1 =
@@ -226,24 +224,24 @@   cVpGetOrientationMode'_ a1' a2' >>= \res ->
   peekEnumUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 135 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
-cVpSetBackgroundColour :: HG3DClass -> ColourValue -> IO ()
+cVpSetBackgroundColour :: HG3DClass -> Colour -> IO ()
 cVpSetBackgroundColour a1 a2 =
   withHG3DClass a1 $ \a1' -> 
-  withColourValue a2 $ \a2' -> 
+  withColour a2 $ \a2' -> 
   cVpSetBackgroundColour'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 139 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
-cVpGetBackgroundColour :: HG3DClass -> IO (ColourValue)
+cVpGetBackgroundColour :: HG3DClass -> IO (Colour)
 cVpGetBackgroundColour a1 =
   withHG3DClass a1 $ \a1' -> 
   alloca $ \a2' -> 
   cVpGetBackgroundColour'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 143 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetClearEveryFrame :: HG3DClass -> Bool -> Int -> IO ()
 cVpSetClearEveryFrame a1 a2 a3 =
@@ -252,7 +250,7 @@   let {a3' = fromIntegral a3} in 
   cVpSetClearEveryFrame'_ a1' a2' a3' >>= \res ->
   return ()
-{-# LINE 150 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 148 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetClearEveryFrame :: HG3DClass -> IO (Bool)
 cVpGetClearEveryFrame a1 =
@@ -261,7 +259,7 @@   cVpGetClearEveryFrame'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 154 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 152 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetClearBuffers :: HG3DClass -> IO (Int)
 cVpGetClearBuffers a1 =
@@ -270,7 +268,7 @@   cVpGetClearBuffers'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 156 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetAutoUpdated :: HG3DClass -> Bool -> IO ()
 cVpSetAutoUpdated a1 a2 =
@@ -278,7 +276,7 @@   let {a2' = fromBool a2} in 
   cVpSetAutoUpdated'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 160 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpIsAutoUpdated :: HG3DClass -> IO (Bool)
 cVpIsAutoUpdated a1 =
@@ -287,7 +285,7 @@   cVpIsAutoUpdated'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 164 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetMaterialScheme :: HG3DClass -> String -> IO ()
 cVpSetMaterialScheme a1 a2 =
@@ -295,7 +293,7 @@   withCString a2 $ \a2' -> 
   cVpSetMaterialScheme'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 168 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetMaterialScheme :: HG3DClass -> IO (String)
 cVpGetMaterialScheme a1 =
@@ -304,7 +302,7 @@   cVpGetMaterialScheme'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 172 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetNumRenderedFaces :: HG3DClass -> IO (Int)
 cVpGetNumRenderedFaces a1 =
@@ -313,7 +311,7 @@   cVpGetNumRenderedFaces'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 176 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetNumRenderedBatches :: HG3DClass -> IO (Int)
 cVpGetNumRenderedBatches a1 =
@@ -322,7 +320,7 @@   cVpGetNumRenderedBatches'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 182 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 180 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetOverlaysEnabled :: HG3DClass -> Bool -> IO ()
 cVpSetOverlaysEnabled a1 a2 =
@@ -330,7 +328,7 @@   let {a2' = fromBool a2} in 
   cVpSetOverlaysEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 186 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 184 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetOverlaysEnabled :: HG3DClass -> IO (Bool)
 cVpGetOverlaysEnabled a1 =
@@ -339,7 +337,7 @@   cVpGetOverlaysEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 190 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 188 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetSkiesEnabled :: HG3DClass -> Bool -> IO ()
 cVpSetSkiesEnabled a1 a2 =
@@ -347,7 +345,7 @@   let {a2' = fromBool a2} in 
   cVpSetSkiesEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 194 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 192 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetSkiesEnabled :: HG3DClass -> IO (Bool)
 cVpGetSkiesEnabled a1 =
@@ -356,7 +354,7 @@   cVpGetSkiesEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 198 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 196 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetShadowsEnabled :: HG3DClass -> Bool -> IO ()
 cVpSetShadowsEnabled a1 a2 =
@@ -364,7 +362,7 @@   let {a2' = fromBool a2} in 
   cVpSetShadowsEnabled'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 202 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 200 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetShadowsEnabled :: HG3DClass -> IO (Bool)
 cVpGetShadowsEnabled a1 =
@@ -373,7 +371,7 @@   cVpGetShadowsEnabled'_ a1' a2' >>= \res ->
   peekBoolUtil  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 206 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 204 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetVisibilityMask :: HG3DClass -> Int -> IO ()
 cVpSetVisibilityMask a1 a2 =
@@ -381,7 +379,7 @@   let {a2' = fromIntegral a2} in 
   cVpSetVisibilityMask'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 210 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 208 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetVisibilityMask :: HG3DClass -> IO (Int)
 cVpGetVisibilityMask a1 =
@@ -390,7 +388,7 @@   cVpGetVisibilityMask'_ a1' a2' >>= \res ->
   peekIntConv  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 214 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 212 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpSetRenderQueueInvocationSequenceName :: HG3DClass -> String -> IO ()
 cVpSetRenderQueueInvocationSequenceName a1 a2 =
@@ -398,7 +396,7 @@   withCString a2 $ \a2' -> 
   cVpSetRenderQueueInvocationSequenceName'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 218 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetRenderQueueInvocationSequenceName :: HG3DClass -> IO (String)
 cVpGetRenderQueueInvocationSequenceName a1 =
@@ -407,7 +405,7 @@   cVpGetRenderQueueInvocationSequenceName'_ a1' a2' >>= \res ->
   peekCString  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 222 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 cVpGetRenderQueueInvocationSequence :: HG3DClass -> IO (HG3DClass)
 cVpGetRenderQueueInvocationSequence a1 =
@@ -416,7 +414,7 @@   cVpGetRenderQueueInvocationSequence'_ a1' a2' >>= \res ->
   peek  a2'>>= \a2'' -> 
   return (a2'')
-{-# LINE 226 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
+{-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp__updateDimensions_c"
@@ -426,7 +424,7 @@   cVpUpdate'_ :: ((HG3DClassPtr) -> (IO ()))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp_clear_c"
-  cVpClear'_ :: ((HG3DClassPtr) -> (CUInt -> ((ColourValuePtr) -> (CFloat -> (CUShort -> (IO ()))))))
+  cVpClear'_ :: ((HG3DClassPtr) -> (CUInt -> ((ColourPtr) -> (CFloat -> (CUShort -> (IO ()))))))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp_getTarget_c"
   cVpGetTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))
@@ -474,10 +472,10 @@   cVpGetOrientationMode'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp_setBackgroundColour_c"
-  cVpSetBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cVpSetBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp_getBackgroundColour_c"
-  cVpGetBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourValuePtr) -> (IO ())))
+  cVpGetBackgroundColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ())))
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h cVp_setClearEveryFrame_c"
   cVpSetClearEveryFrame'_ :: ((HG3DClassPtr) -> (CInt -> (CUInt -> (IO ()))))
HGamer3D/Bindings/Ogre/ClassWindowEventListener.hs view
@@ -51,16 +51,14 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 
 
 cWelWindowMoved :: HG3DClass -> HG3DClass -> IO ()
@@ -69,7 +67,7 @@   withHG3DClass a2 $ \a2' -> 
   cWelWindowMoved'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 62 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 60 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 ;
 cWelWindowResized :: HG3DClass -> HG3DClass -> IO ()
 cWelWindowResized a1 a2 =
@@ -77,7 +75,7 @@   withHG3DClass a2 $ \a2' -> 
   cWelWindowResized'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 66 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 64 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 ;
 cWelWindowClosing :: HG3DClass -> HG3DClass -> IO (Bool)
 cWelWindowClosing a1 a2 =
@@ -87,7 +85,7 @@   cWelWindowClosing'_ a1' a2' a3' >>= \res ->
   peekBoolUtil  a3'>>= \a3'' -> 
   return (a3'')
-{-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 69 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 ;
 cWelWindowClosed :: HG3DClass -> HG3DClass -> IO ()
 cWelWindowClosed a1 a2 =
@@ -95,7 +93,7 @@   withHG3DClass a2 $ \a2' -> 
   cWelWindowClosed'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 73 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 ;
 cWelWindowFocusChange :: HG3DClass -> HG3DClass -> IO ()
 cWelWindowFocusChange a1 a2 =
@@ -103,7 +101,7 @@   withHG3DClass a2 $ \a2' -> 
   cWelWindowFocusChange'_ a1' a2' >>= \res ->
   return ()
-{-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
+{-# LINE 77 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs" #-}
 ;
 
 foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowEventListener.chs.h cWel_windowMoved_c"
HGamer3D/Bindings/Ogre/ClassWindowEventUtilities.hs view
@@ -51,15 +51,13 @@ import HGamer3D.Data.Vector3
 import HGamer3D.Data.Vector4
 import HGamer3D.Data.Quaternion
-import HGamer3D.Data.ColourValue
-import HGamer3D.Data.Radian
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Colour
 import HGamer3D.Data.Angle
 import HGamer3D.Bindings.Ogre.TypeHG3DClass
-{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
+{-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
 import HGamer3D.Bindings.Ogre.ClassPtr
-{-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
 import HGamer3D.Bindings.Ogre.Utils
-{-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-}
− HGamer3D/Bindings/Ogre/TypeAngle.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\\TypeAngle.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
--- 
--- Copyright 2011 Dr. 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.
--- 
--- TypeAngle.chs
--- 
--- 
--- 
--- 
--- File for type, method, enum or function stubs  
--- in: "<parsedfile>"
--- 
--- each stub combines the following files: 
---     a C++ implementation file, transforming cpp calls into C-functions
---     a C-header file, making this C-functions available for the C2HS parser
---     a chs file, give instructions to the C2HS parser.
--- 
--- 
-
-module HGamer3D.Bindings.Ogre.TypeAngle where
-
-import C2HS
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-import Monad         (liftM, liftM2)
-
-
-
-import Data.Bits
-import HGamer3D.Data.Angle
-
-instance Storable Angle where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 4
-{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeAngle.chs" #-}
-  peek p = do
-	a <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	let an = Angle (realToFrac a)
-	return an
-  poke p (Angle a) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac a)
-    
-type AnglePtr = Ptr (Angle)
-{-# LINE 61 "HGamer3D\\Bindings\\Ogre\\TypeAngle.chs" #-}
-
-withAngle :: Angle -> (AnglePtr -> IO b) -> IO b
-withAngle = with
+ HGamer3D/Bindings/Ogre/TypeColour.hs view
@@ -0,0 +1,75 @@+-- 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\\TypeColour.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
+-- 
+-- Copyright 2011 Dr. 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.
+-- 
+-- TypeColour.chs
+-- 
+-- 
+-- 
+-- 
+-- File for type, method, enum or function stubs  
+-- in: "<parsedfile>"
+-- 
+-- each stub combines the following files: 
+--     a C++ implementation file, transforming cpp calls into C-functions
+--     a C-header file, making this C-functions available for the C2HS parser
+--     a chs file, give instructions to the C2HS parser.
+-- 
+-- 
+
+module HGamer3D.Bindings.Ogre.TypeColour where
+
+import C2HS
+import Foreign
+import Foreign.Ptr
+import Foreign.C
+import Monad         (liftM, liftM2)
+
+
+
+import Data.Bits
+import HGamer3D.Data.Colour
+
+instance Storable Colour where
+  alignment _ = alignment (undefined :: CDouble)
+  sizeOf _ = 16
+{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeColour.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 67 "HGamer3D\\Bindings\\Ogre\\TypeColour.chs" #-}
+
+withColour :: Colour -> (ColourPtr -> IO b) -> IO b
+withColour = with
− HGamer3D/Bindings/Ogre/TypeColourValue.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\\TypeColourValue.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
--- 
--- Copyright 2011 Dr. 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.
--- 
--- TypeColourValue.chs
--- 
--- 
--- 
--- 
--- File for type, method, enum or function stubs  
--- in: "<parsedfile>"
--- 
--- each stub combines the following files: 
---     a C++ implementation file, transforming cpp calls into C-functions
---     a C-header file, making this C-functions available for the C2HS parser
---     a chs file, give instructions to the C2HS parser.
--- 
--- 
-
-module HGamer3D.Bindings.Ogre.TypeColourValue where
-
-import C2HS
-import Foreign
-import Foreign.Ptr
-import Foreign.C
-import Monad         (liftM, liftM2)
-
-
-
-import Data.Bits
-import HGamer3D.Data.ColourValue
-
-instance Storable ColourValue where
-  alignment _ = alignment (undefined :: CDouble)
-  sizeOf _ = 16
-{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeColourValue.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 = ColourValue (realToFrac r) (realToFrac g) (realToFrac b) (realToFrac a)
-	return cv
-  poke p (ColourValue 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 ColourValuePtr = Ptr (ColourValue)
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\TypeColourValue.chs" #-}
-
-withColourValue :: ColourValue -> (ColourValuePtr -> IO b) -> IO b
-withColourValue = with
HGamer3D/Bindings/Ogre/TypeDegree.hs view
@@ -49,21 +49,21 @@ 
 
 import Data.Bits
-import HGamer3D.Data.Degree
+import HGamer3D.Data.Angle
 
-instance Storable Degree where
+instance Storable Degrees where
   alignment _ = alignment (undefined :: CDouble)
   sizeOf _ = 4
 {-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeDegree.chs" #-}
   peek p = do
 	d <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	let de = Degree (realToFrac d)
+	let de = Degrees (realToFrac d)
 	return de
-  poke p (Degree d) = do
+  poke p (Degrees d) = do
     (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac d)
     
-type DegreePtr = Ptr (Degree)
+type DegreesPtr = Ptr (Degrees)
 {-# LINE 61 "HGamer3D\\Bindings\\Ogre\\TypeDegree.chs" #-}
 
-withDegree :: Degree -> (DegreePtr -> IO b) -> IO b
-withDegree = with
+withDegrees :: Degrees -> (DegreesPtr -> IO b) -> IO b
+withDegrees = with
HGamer3D/Bindings/Ogre/TypeQuaternion.hs view
@@ -50,26 +50,27 @@ 
 import Data.Bits
 import HGamer3D.Data.Quaternion
+import HGamer3D.Data.Vector3
 
 instance Storable Quaternion where
   alignment _ = alignment (undefined :: CDouble)
   sizeOf _ = 16
-{-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeQuaternion.chs" #-}
+{-# LINE 54 "HGamer3D\\Bindings\\Ogre\\TypeQuaternion.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 = Quaternion (realToFrac fw) (realToFrac fx) (realToFrac fy) (realToFrac fz)
+	let q = Quaternion (realToFrac fw) (vector3 (realToFrac fx) (realToFrac fy) (realToFrac fz))
 	return q
-  poke p (Quaternion fw fx fy fz) = do
-    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac fw)
-    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac fx)
-    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac fy)
-    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac fz)
+  poke p (Quaternion w v) = do
+    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac w)
+    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac (v3X v))
+    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac (v3Y v))
+    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac (v3Z v))
     
 type QuaternionPtr = Ptr (Quaternion)
-{-# LINE 67 "HGamer3D\\Bindings\\Ogre\\TypeQuaternion.chs" #-}
+{-# LINE 68 "HGamer3D\\Bindings\\Ogre\\TypeQuaternion.chs" #-}
 
 withQuaternion :: Quaternion -> (QuaternionPtr -> IO b) -> IO b
 withQuaternion = with
HGamer3D/Bindings/Ogre/TypeRadian.hs view
@@ -49,21 +49,21 @@ 
 
 import Data.Bits
-import HGamer3D.Data.Radian
+import HGamer3D.Data.Angle
 
-instance Storable Radian where
+instance Storable Radians where
   alignment _ = alignment (undefined :: CDouble)
   sizeOf _ = 4
 {-# LINE 53 "HGamer3D\\Bindings\\Ogre\\TypeRadian.chs" #-}
   peek p = do
 	r <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
-	let ra = Radian (realToFrac r)
+	let ra = Radians (realToFrac r)
 	return ra
-  poke p (Radian r) = do
+  poke p (Radians r) = do
     (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac r)
     
-type RadianPtr = Ptr (Radian)
+type RadiansPtr = Ptr (Radians)
 {-# LINE 61 "HGamer3D\\Bindings\\Ogre\\TypeRadian.chs" #-}
 
-withRadian :: Radian -> (RadianPtr -> IO b) -> IO b
-withRadian = with
+withRadians :: Radians -> (RadiansPtr -> IO b) -> IO b
+withRadians = with
HGamer3D/Bindings/Ogre/TypeVector2.hs view
@@ -58,11 +58,11 @@   peek p = do
 	x <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p
 	y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
-	let v = Vector2 (realToFrac x) (realToFrac y)
+	let v = vector2 (realToFrac x) (realToFrac y)
 	return v
-  poke p (Vector2 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)
+  poke p v2 = do
+    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac (v2X v2))
+    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac (v2Y v2))
     
 type Vector2Ptr = Ptr (Vector2)
 {-# LINE 63 "HGamer3D\\Bindings\\Ogre\\TypeVector2.chs" #-}
HGamer3D/Bindings/Ogre/TypeVector3.hs view
@@ -59,12 +59,12 @@ 	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 (realToFrac x) (realToFrac y) (realToFrac z)
+	let v = vector3 (realToFrac x) (realToFrac y) (realToFrac z)
 	return v
-  poke p (Vector3 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)
+  poke p v3 = do
+    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac (v3X v3))
+    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac (v3Y v3))
+    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac (v3Z v3))
     
 type Vector3Ptr = Ptr (Vector3)
 {-# LINE 65 "HGamer3D\\Bindings\\Ogre\\TypeVector3.chs" #-}
HGamer3D/Bindings/Ogre/TypeVector4.hs view
@@ -60,13 +60,13 @@ 	y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p
 	z <- (\ptr -> do {peekByteOff ptr 8 ::IO CFloat}) p
 	w <- (\ptr -> do {peekByteOff ptr 12 ::IO CFloat}) p
-	let v = Vector4 (realToFrac x) (realToFrac y) (realToFrac z) (realToFrac w)
+	let v = vector4 (realToFrac x) (realToFrac y) (realToFrac z) (realToFrac w)
 	return v
-  poke p (Vector4 x y z w) = 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)
-    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac w)
+  poke p v4 = do
+    (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac (v4X v4))
+    (\ptr val -> do {pokeByteOff ptr 4 (val::CFloat)}) p (realToFrac (v4Y v4))
+    (\ptr val -> do {pokeByteOff ptr 8 (val::CFloat)}) p (realToFrac (v4Z v4))
+    (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac (v4W v4))
     
 type Vector4Ptr = Ptr (Vector4)
 {-# LINE 67 "HGamer3D\\Bindings\\Ogre\\TypeVector4.chs" #-}
include/ClassBillboard.h view
@@ -36,7 +36,7 @@ #include "Utils.h"
 #include "TypeRadian.h"
 #include "TypeVector3.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 
 
 // original function: const Radian& getRotation();
include/ClassBillboardSet.h view
@@ -35,7 +35,7 @@ #include "ClassPtr.h"
 #include "Utils.h"
 #include "TypeVector3.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumBillboardOrigin.h"
 #include "EnumBillboardRotationType.h"
 #include "TypeSharedPtr.h"
include/ClassCompositionPass.h view
@@ -36,7 +36,7 @@ #include "Utils.h"
 #include "EnumPassType.h"
 #include "TypeSharedPtr.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumCompareFunction.h"
 #include "EnumStencilOperation.h"
include/ClassLight.h view
@@ -36,7 +36,7 @@ #include "Utils.h"
 #include "TypeVector3.h"
 #include "EnumLightTypes.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "TypeRadian.h"
 #include "TypeVector4.h"
include/ClassManualObject.h view
@@ -38,7 +38,7 @@ #include "TypeVector3.h"
 #include "TypeVector2.h"
 #include "TypeVector4.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "TypeSharedPtr.h"
include/ClassMaterial.h view
@@ -35,7 +35,7 @@ #include "ClassPtr.h"
 #include "Utils.h"
 #include "TypeSharedPtr.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumCompareFunction.h"
 #include "EnumCullingMode.h"
 #include "EnumManualCullingMode.h"
include/ClassParticleEmitter.h view
@@ -36,7 +36,7 @@ #include "Utils.h"
 #include "TypeVector3.h"
 #include "TypeRadian.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 
 
 // original function: void setPosition(const Vector3& pos);
include/ClassPass.h view
@@ -34,7 +34,7 @@ #include "wchar.h"
 #include "ClassPtr.h"
 #include "Utils.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumSceneBlendFactor.h"
 #include "EnumSceneBlendOperation.h"
 #include "EnumCompareFunction.h"
include/ClassRibbonTrail.h view
@@ -34,7 +34,7 @@ #include "wchar.h"
 #include "ClassPtr.h"
 #include "Utils.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 
 
 // original function: void addNode(Node* n);
include/ClassRoot.h view
@@ -35,7 +35,7 @@ #include "ClassPtr.h"
 #include "Utils.h"
 #include "TypeSharedPtr.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 
 
 // original function: void saveConfig();
include/ClassSceneManager.h view
@@ -35,7 +35,7 @@ #include "ClassPtr.h"
 #include "Utils.h"
 #include "EnumPrefabType.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "TypeSharedPtr.h"
 #include "TypeQuaternion.h"
 #include "EnumFogMode.h"
include/ClassTechnique.h view
@@ -34,7 +34,7 @@ #include "wchar.h"
 #include "ClassPtr.h"
 #include "Utils.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumCompareFunction.h"
 #include "EnumCullingMode.h"
 #include "EnumManualCullingMode.h"
include/ClassTextureUnitState.h view
@@ -40,7 +40,7 @@ #include "EnumPixelFormat.h"
 #include "TypeRadian.h"
 #include "EnumTextureAddressingMode.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumLayerBlendOperationEx.h"
 #include "EnumLayerBlendSource.h"
 #include "EnumSceneBlendFactor.h"
include/ClassViewport.h view
@@ -34,7 +34,7 @@ #include "wchar.h"
 #include "ClassPtr.h"
 #include "Utils.h"
-#include "TypeColourValue.h"
+#include "TypeColour.h"
 #include "EnumOrientationMode.h"
include/OgreDllDefines.h view
@@ -20,10 +20,10 @@ 
 // OgreDllDefines.h
 
-#ifndef _HGamer3DOgre013_DLLDEFINES_H_
-#define _HGamer3DOgre013_DLLDEFINES_H_
+#ifndef _HGamer3DOgre014_DLLDEFINES_H_
+#define _HGamer3DOgre014_DLLDEFINES_H_
 
-/* Cmake will define HGamer3DOgre013_EXPORTS on Windows when it
+/* Cmake will define HGamer3DOgre014_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
@@ -33,13 +33,13 @@ // We are using the Visual Studio Compiler and building Shared libraries
 
 #if (defined (_WIN32)) && !(defined (__GNUC__)) 
-  #if defined(HGamer3DOgre013_EXPORTS)
+  #if defined(HGamer3DOgre014_EXPORTS)
     #define  Ogre_LIB_EXPORT __declspec(dllexport)
   #else
     #define  Ogre_LIB_EXPORT __declspec(dllimport)
-  #endif /* HGamer3DOgre013_EXPORTS */
+  #endif /* HGamer3DOgre014_EXPORTS */
 #else /* defined (_WIN32) */
  #define Ogre_LIB_EXPORT
 #endif
 
-#endif /* _HGamer3DOgre013_DLLDEFINES_H_ */
+#endif /* _HGamer3DOgre014_DLLDEFINES_H_ */
− include/TypeAngle.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
-// 
-// Copyright 2011 Dr. 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.
-// 
-// TypeAngle.h
-// 
-// 
-// 
-// 
-// File for type, method, enum or function stubs  
-// in: "<parsedfile>"
-// 
-// each stub combines the following files: 
-//     a C++ implementation file, transforming cpp calls into C-functions
-//     a C-header file, making this C-functions available for the C2HS parser
-//     a chs file, give instructions to the C2HS parser.
-// 
-// 
-
-#include "wchar.h"
-
-
-typedef struct angle_struct {
-	float a;
-} angle_struct;
-
+ include/TypeColour.h view
@@ -0,0 +1,43 @@+// 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
+// 
+// Copyright 2011 Dr. 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.
+// 
+// TypeColour.h
+// 
+// 
+// 
+// 
+// File for type, method, enum or function stubs  
+// in: "<parsedfile>"
+// 
+// each stub combines the following files: 
+//     a C++ implementation file, transforming cpp calls into C-functions
+//     a C-header file, making this C-functions available for the C2HS parser
+//     a chs file, give instructions to the C2HS parser.
+// 
+// 
+
+#include "wchar.h"
+
+
+typedef struct colourvalue_struct {
+	float r;
+	float g;
+	float b;
+	float a;
+} colourvalue_struct;
+
− include/TypeColourValue.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
-// 
-// Copyright 2011 Dr. 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.
-// 
-// TypeColourValue.h
-// 
-// 
-// 
-// 
-// File for type, method, enum or function stubs  
-// in: "<parsedfile>"
-// 
-// each stub combines the following files: 
-//     a C++ implementation file, transforming cpp calls into C-functions
-//     a C-header file, making this C-functions available for the C2HS parser
-//     a chs file, give instructions to the C2HS parser.
-// 
-// 
-
-#include "wchar.h"
-
-
-typedef struct colourvalue_struct {
-	float r;
-	float g;
-	float b;
-	float a;
-} colourvalue_struct;
-