HGamer3D-Ogre-Binding 0.2.0 → 0.2.1
raw patch · 207 files changed
+2208/−1796 lines, 207 filessetup-changedPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- HGamer3D-Ogre-Binding.cabal +1/−1
- HGamer3D/Bindings/Ogre/ClassAnimation.hs +51/−49
- HGamer3D/Bindings/Ogre/ClassAnimationState.hs +28/−26
- HGamer3D/Bindings/Ogre/ClassAnimationStateSet.hs +14/−12
- HGamer3D/Bindings/Ogre/ClassAnimationTrack.hs +15/−13
- HGamer3D/Bindings/Ogre/ClassArchive.hs +15/−13
- HGamer3D/Bindings/Ogre/ClassArchiveManager.hs +12/−10
- HGamer3D/Bindings/Ogre/ClassBillboard.hs +27/−25
- HGamer3D/Bindings/Ogre/ClassBillboardChain.hs +35/−33
- HGamer3D/Bindings/Ogre/ClassBillboardChainFactory.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassBillboardSet.hs +63/−61
- HGamer3D/Bindings/Ogre/ClassBillboardSetFactory.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassBone.hs +16/−14
- HGamer3D/Bindings/Ogre/ClassCamera.hs +71/−69
- HGamer3D/Bindings/Ogre/ClassConfigFile.hs +14/−12
- HGamer3D/Bindings/Ogre/ClassControllerManager.hs +18/−16
- HGamer3D/Bindings/Ogre/ClassEntity.hs +46/−44
- HGamer3D/Bindings/Ogre/ClassEntityFactory.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassException.hs +15/−13
- HGamer3D/Bindings/Ogre/ClassFrustum.hs +56/−54
- HGamer3D/Bindings/Ogre/ClassHG3DMessagePump.hs +13/−11
- HGamer3D/Bindings/Ogre/ClassLight.hs +57/−55
- HGamer3D/Bindings/Ogre/ClassLightFactory.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassLog.hs +18/−16
- HGamer3D/Bindings/Ogre/ClassLogManager.hs +20/−18
- HGamer3D/Bindings/Ogre/ClassManualObject.hs +53/−51
- HGamer3D/Bindings/Ogre/ClassManualObjectFactory.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassManualObjectSection.hs +17/−15
- HGamer3D/Bindings/Ogre/ClassMaterial.hs +42/−40
- HGamer3D/Bindings/Ogre/ClassMaterialManager.hs +17/−15
- HGamer3D/Bindings/Ogre/ClassMesh.hs +46/−44
- HGamer3D/Bindings/Ogre/ClassMeshManager.hs +15/−13
- HGamer3D/Bindings/Ogre/ClassMovableObject.hs +45/−43
- HGamer3D/Bindings/Ogre/ClassMovableObjectFactory.hs +11/−9
- HGamer3D/Bindings/Ogre/ClassMultiRenderTarget.hs +9/−7
- HGamer3D/Bindings/Ogre/ClassNode.hs +61/−59
- HGamer3D/Bindings/Ogre/ClassNodeAnimationTrack.hs +16/−14
- HGamer3D/Bindings/Ogre/ClassNumericAnimationTrack.hs +8/−6
- HGamer3D/Bindings/Ogre/ClassPtr.hs +61/−59
- HGamer3D/Bindings/Ogre/ClassRenderSystem.hs +60/−58
- HGamer3D/Bindings/Ogre/ClassRenderTarget.hs +46/−44
- HGamer3D/Bindings/Ogre/ClassRenderTexture.hs +7/−5
- HGamer3D/Bindings/Ogre/ClassRenderWindow.hs +26/−24
- HGamer3D/Bindings/Ogre/ClassRenderable.hs +22/−20
- HGamer3D/Bindings/Ogre/ClassResource.hs +27/−25
- HGamer3D/Bindings/Ogre/ClassResourceGroupManager.hs +37/−35
- HGamer3D/Bindings/Ogre/ClassResourceManager.hs +25/−23
- HGamer3D/Bindings/Ogre/ClassRoot.hs +63/−61
- HGamer3D/Bindings/Ogre/ClassSceneManager.hs +181/−179
- HGamer3D/Bindings/Ogre/ClassSceneManagerFactory.hs +9/−7
- HGamer3D/Bindings/Ogre/ClassSceneNode.hs +35/−33
- HGamer3D/Bindings/Ogre/ClassSkeleton.hs +33/−31
- HGamer3D/Bindings/Ogre/ClassSkeletonManager.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassTextureManager.hs +11/−9
- HGamer3D/Bindings/Ogre/ClassTimeIndex.hs +10/−8
- HGamer3D/Bindings/Ogre/ClassVertexAnimationTrack.hs +16/−14
- HGamer3D/Bindings/Ogre/ClassViewport.hs +54/−52
- HGamer3D/Bindings/Ogre/ClassWindowEventUtilities.hs +7/−5
- HGamer3D/Bindings/Ogre/ClassWindowUtilsHG3D.hs +8/−6
- HGamer3D/Bindings/Ogre/EnumAnimationInterpolationMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumAnimationRotationInterpolationMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxCorner.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxExtent.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumBillboardChainTexCoordDirection.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumBillboardOrigin.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumBillboardRotationType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumBillboardType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumDataStreamAccessMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumEntityVertexDataBindChoice.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumExceptionCode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumFrustumPlane.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumGpuProgramType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumLightType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumLogMessageLevel.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumLoggingLevel.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumMathAngleUnit.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumMeshManagerMeshBuildType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumNodeTransformSpace.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumOrientationMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumProjectionType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumRenderOperationOperationType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumRenderTargetFrameBuffer.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumRenderTargetStatFlags.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumRootFrameEventTimeType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSceneManagerBoxPlane.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSceneManagerIlluminationRenderStage.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSceneManagerPrefabType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSceneManagerSpecialCaseRenderQueueMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSceneType.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumSkeletonAnimationBlendMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumStencilOperation.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumTexCoordCalcMethod.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumVertexAnimationTrackTargetMode.hs +3/−1
- HGamer3D/Bindings/Ogre/EnumVertexAnimationType.hs +3/−1
- HGamer3D/Bindings/Ogre/StructColour.hs +5/−3
- HGamer3D/Bindings/Ogre/StructDegrees.hs +5/−3
- HGamer3D/Bindings/Ogre/StructHG3DClass.hs +4/−2
- HGamer3D/Bindings/Ogre/StructQuaternion.hs +5/−3
- HGamer3D/Bindings/Ogre/StructRadians.hs +5/−3
- HGamer3D/Bindings/Ogre/StructSharedPtr.hs +5/−3
- HGamer3D/Bindings/Ogre/StructVec2.hs +5/−3
- HGamer3D/Bindings/Ogre/StructVec3.hs +5/−3
- HGamer3D/Bindings/Ogre/Utils.hs +3/−1
- LICENSE +3/−1
- Setup.hs +3/−1
- include/ClassAnimation.h +3/−1
- include/ClassAnimationState.h +3/−1
- include/ClassAnimationStateSet.h +3/−1
- include/ClassAnimationTrack.h +3/−1
- include/ClassArchive.h +3/−1
- include/ClassArchiveManager.h +3/−1
- include/ClassBillboard.h +3/−1
- include/ClassBillboardChain.h +3/−1
- include/ClassBillboardChainFactory.h +3/−1
- include/ClassBillboardSet.h +3/−1
- include/ClassBillboardSetFactory.h +3/−1
- include/ClassBone.h +3/−1
- include/ClassCamera.h +3/−1
- include/ClassConfigFile.h +3/−1
- include/ClassControllerManager.h +3/−1
- include/ClassEntity.h +3/−1
- include/ClassEntityFactory.h +3/−1
- include/ClassException.h +3/−1
- include/ClassFrustum.h +3/−1
- include/ClassHG3DMessagePump.h +3/−1
- include/ClassLight.h +3/−1
- include/ClassLightFactory.h +3/−1
- include/ClassLog.h +3/−1
- include/ClassLogManager.h +3/−1
- include/ClassManualObject.h +3/−1
- include/ClassManualObjectFactory.h +3/−1
- include/ClassManualObjectSection.h +3/−1
- include/ClassMaterial.h +3/−1
- include/ClassMaterialManager.h +3/−1
- include/ClassMesh.h +3/−1
- include/ClassMeshManager.h +3/−1
- include/ClassMovableObject.h +3/−1
- include/ClassMovableObjectFactory.h +3/−1
- include/ClassMultiRenderTarget.h +3/−1
- include/ClassNode.h +3/−1
- include/ClassNodeAnimationTrack.h +3/−1
- include/ClassNumericAnimationTrack.h +3/−1
- include/ClassPtr.h +3/−1
- include/ClassRenderSystem.h +3/−1
- include/ClassRenderTarget.h +3/−1
- include/ClassRenderTexture.h +3/−1
- include/ClassRenderWindow.h +3/−1
- include/ClassRenderable.h +3/−1
- include/ClassResource.h +3/−1
- include/ClassResourceGroupManager.h +3/−1
- include/ClassResourceManager.h +3/−1
- include/ClassRoot.h +3/−1
- include/ClassSceneManager.h +3/−1
- include/ClassSceneManagerFactory.h +3/−1
- include/ClassSceneNode.h +3/−1
- include/ClassSkeleton.h +3/−1
- include/ClassSkeletonManager.h +3/−1
- include/ClassTextureManager.h +3/−1
- include/ClassTimeIndex.h +3/−1
- include/ClassVertexAnimationTrack.h +3/−1
- include/ClassViewport.h +3/−1
- include/ClassWindowEventUtilities.h +3/−1
- include/ClassWindowUtilsHG3D.h +3/−1
- include/EnumAnimationInterpolationMode.h +3/−1
- include/EnumAnimationRotationInterpolationMode.h +3/−1
- include/EnumAxisAlignedBoxCorner.h +3/−1
- include/EnumAxisAlignedBoxExtent.h +3/−1
- include/EnumBillboardChainTexCoordDirection.h +3/−1
- include/EnumBillboardOrigin.h +3/−1
- include/EnumBillboardRotationType.h +3/−1
- include/EnumBillboardType.h +3/−1
- include/EnumDataStreamAccessMode.h +3/−1
- include/EnumEntityVertexDataBindChoice.h +3/−1
- include/EnumExceptionCode.h +3/−1
- include/EnumFrustumPlane.h +3/−1
- include/EnumGpuProgramType.h +3/−1
- include/EnumLightType.h +3/−1
- include/EnumLogMessageLevel.h +3/−1
- include/EnumLoggingLevel.h +3/−1
- include/EnumMathAngleUnit.h +3/−1
- include/EnumMeshManagerMeshBuildType.h +3/−1
- include/EnumNodeTransformSpace.h +3/−1
- include/EnumOrientationMode.h +3/−1
- include/EnumProjectionType.h +3/−1
- include/EnumRenderOperationOperationType.h +3/−1
- include/EnumRenderTargetFrameBuffer.h +3/−1
- include/EnumRenderTargetStatFlags.h +3/−1
- include/EnumRootFrameEventTimeType.h +3/−1
- include/EnumSceneManagerBoxPlane.h +3/−1
- include/EnumSceneManagerIlluminationRenderStage.h +3/−1
- include/EnumSceneManagerPrefabType.h +3/−1
- include/EnumSceneManagerSpecialCaseRenderQueueMode.h +3/−1
- include/EnumSceneType.h +3/−1
- include/EnumSkeletonAnimationBlendMode.h +3/−1
- include/EnumStencilOperation.h +3/−1
- include/EnumTexCoordCalcMethod.h +3/−1
- include/EnumVertexAnimationTrackTargetMode.h +3/−1
- include/EnumVertexAnimationType.h +3/−1
- include/OgreDllDefines.h +9/−7
- include/StructColour.h +3/−1
- include/StructDegrees.h +3/−1
- include/StructHG3DClass.h +3/−1
- include/StructQuaternion.h +3/−1
- include/StructRadians.h +3/−1
- include/StructSharedPtr.h +3/−1
- include/StructVec2.h +3/−1
- include/StructVec3.h +3/−1
HGamer3D-Ogre-Binding.cabal view
@@ -1,5 +1,5 @@ Name: HGamer3D-Ogre-Binding -Version: 0.2.0 +Version: 0.2.1 Synopsis: Windows Game Engine for the Haskell Programmer - Ogre Bindings Description: HGamer3D is a game engine for developing 3D games in the programming
HGamer3D/Bindings/Ogre/ClassAnimation.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,17 +44,17 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} import HGamer3D.Bindings.Ogre.EnumVertexAnimationType -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} import HGamer3D.Bindings.Ogre.EnumAnimationInterpolationMode -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} import HGamer3D.Bindings.Ogre.EnumAnimationRotationInterpolationMode -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function ~Animation -} delete :: HG3DClass -> IO () @@ -60,7 +62,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -70,7 +72,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getLength -} getLength :: HG3DClass -> IO (Float) @@ -80,7 +82,7 @@ getLength'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setLength -} setLength :: HG3DClass -> Float -> IO () @@ -89,7 +91,7 @@ let {a2' = realToFrac a2} in setLength'_ a1' a2' >>= \res -> return () -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function createNodeTrack -} createNodeTrack :: HG3DClass -> Int -> IO (HG3DClass) @@ -100,7 +102,7 @@ createNodeTrack'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function createNumericTrack -} createNumericTrack :: HG3DClass -> Int -> IO (HG3DClass) @@ -111,7 +113,7 @@ createNumericTrack'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function createVertexTrack -} createVertexTrack :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass) @@ -123,7 +125,7 @@ createVertexTrack'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function createNodeTrack2 -} createNodeTrack2 :: HG3DClass -> Int -> HG3DClass -> IO (HG3DClass) @@ -135,7 +137,7 @@ createNodeTrack2'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getNumNodeTracks -} getNumNodeTracks :: HG3DClass -> IO (Int) @@ -145,7 +147,7 @@ getNumNodeTracks'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getNodeTrack -} getNodeTrack :: HG3DClass -> Int -> IO (HG3DClass) @@ -156,7 +158,7 @@ getNodeTrack'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function hasNodeTrack -} hasNodeTrack :: HG3DClass -> Int -> IO (Bool) @@ -167,7 +169,7 @@ hasNodeTrack'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getNumNumericTracks -} getNumNumericTracks :: HG3DClass -> IO (Int) @@ -177,7 +179,7 @@ getNumNumericTracks'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getNumericTrack -} getNumericTrack :: HG3DClass -> Int -> IO (HG3DClass) @@ -188,7 +190,7 @@ getNumericTrack'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function hasNumericTrack -} hasNumericTrack :: HG3DClass -> Int -> IO (Bool) @@ -199,7 +201,7 @@ hasNumericTrack'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getNumVertexTracks -} getNumVertexTracks :: HG3DClass -> IO (Int) @@ -209,7 +211,7 @@ getNumVertexTracks'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getVertexTrack -} getVertexTrack :: HG3DClass -> Int -> IO (HG3DClass) @@ -220,7 +222,7 @@ getVertexTrack'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function hasVertexTrack -} hasVertexTrack :: HG3DClass -> Int -> IO (Bool) @@ -231,7 +233,7 @@ hasVertexTrack'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyNodeTrack -} destroyNodeTrack :: HG3DClass -> Int -> IO () @@ -240,7 +242,7 @@ let {a2' = fromIntegral a2} in destroyNodeTrack'_ a1' a2' >>= \res -> return () -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyNumericTrack -} destroyNumericTrack :: HG3DClass -> Int -> IO () @@ -249,7 +251,7 @@ let {a2' = fromIntegral a2} in destroyNumericTrack'_ a1' a2' >>= \res -> return () -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyVertexTrack -} destroyVertexTrack :: HG3DClass -> Int -> IO () @@ -258,7 +260,7 @@ let {a2' = fromIntegral a2} in destroyVertexTrack'_ a1' a2' >>= \res -> return () -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyAllTracks -} destroyAllTracks :: HG3DClass -> IO () @@ -266,7 +268,7 @@ withHG3DClass a1 $ \a1' -> destroyAllTracks'_ a1' >>= \res -> return () -{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyAllNodeTracks -} destroyAllNodeTracks :: HG3DClass -> IO () @@ -274,7 +276,7 @@ withHG3DClass a1 $ \a1' -> destroyAllNodeTracks'_ a1' >>= \res -> return () -{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyAllNumericTracks -} destroyAllNumericTracks :: HG3DClass -> IO () @@ -282,7 +284,7 @@ withHG3DClass a1 $ \a1' -> destroyAllNumericTracks'_ a1' >>= \res -> return () -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function destroyAllVertexTracks -} destroyAllVertexTracks :: HG3DClass -> IO () @@ -290,7 +292,7 @@ withHG3DClass a1 $ \a1' -> destroyAllVertexTracks'_ a1' >>= \res -> return () -{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function apply -} apply :: HG3DClass -> Float -> Float -> Float -> IO () @@ -301,7 +303,7 @@ let {a4' = realToFrac a4} in apply'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function applyToNode -} applyToNode :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO () @@ -313,7 +315,7 @@ let {a5' = realToFrac a5} in applyToNode'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function apply2 -} apply2 :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> IO () @@ -325,7 +327,7 @@ let {a5' = realToFrac a5} in apply2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function apply4 -} apply4 :: HG3DClass -> HG3DClass -> Float -> Float -> Bool -> Bool -> IO () @@ -338,7 +340,7 @@ let {a6' = fromBool a6} in apply4'_ a1' a2' a3' a4' a5' a6' >>= \res -> return () -{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setInterpolationMode -} setInterpolationMode :: HG3DClass -> EnumAnimationInterpolationMode -> IO () @@ -347,7 +349,7 @@ let {a2' = cIntFromEnum a2} in setInterpolationMode'_ a1' a2' >>= \res -> return () -{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getInterpolationMode -} getInterpolationMode :: HG3DClass -> IO (EnumAnimationInterpolationMode) @@ -357,7 +359,7 @@ getInterpolationMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setRotationInterpolationMode -} setRotationInterpolationMode :: HG3DClass -> EnumAnimationRotationInterpolationMode -> IO () @@ -366,7 +368,7 @@ let {a2' = cIntFromEnum a2} in setRotationInterpolationMode'_ a1' a2' >>= \res -> return () -{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getRotationInterpolationMode -} getRotationInterpolationMode :: HG3DClass -> IO (EnumAnimationRotationInterpolationMode) @@ -376,7 +378,7 @@ getRotationInterpolationMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function optimise -} optimise :: HG3DClass -> Bool -> IO () @@ -385,7 +387,7 @@ let {a2' = fromBool a2} in optimise'_ a1' a2' >>= \res -> return () -{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function clone -} clone :: HG3DClass -> String -> IO (HG3DClass) @@ -396,7 +398,7 @@ clone'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setUseBaseKeyFrame -} setUseBaseKeyFrame :: HG3DClass -> Bool -> Float -> String -> IO () @@ -407,7 +409,7 @@ withCString a4 $ \a4' -> setUseBaseKeyFrame'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 243 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getUseBaseKeyFrame -} getUseBaseKeyFrame :: HG3DClass -> IO (Bool) @@ -417,7 +419,7 @@ getUseBaseKeyFrame'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 248 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getBaseKeyFrameTime -} getBaseKeyFrameTime :: HG3DClass -> IO (Float) @@ -427,7 +429,7 @@ getBaseKeyFrameTime'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getBaseKeyFrameAnimationName -} getBaseKeyFrameAnimationName :: HG3DClass -> IO (String) @@ -437,7 +439,7 @@ getBaseKeyFrameAnimationName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setDefaultInterpolationMode -} setDefaultInterpolationMode :: EnumAnimationInterpolationMode -> IO () @@ -445,7 +447,7 @@ let {a1' = cIntFromEnum a1} in setDefaultInterpolationMode'_ a1' >>= \res -> return () -{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getDefaultInterpolationMode -} getDefaultInterpolationMode :: IO (EnumAnimationInterpolationMode) @@ -454,7 +456,7 @@ getDefaultInterpolationMode'_ a1' >>= \res -> peekEnumUtil a1'>>= \a1'' -> return (a1'') -{-# LINE 266 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function setDefaultRotationInterpolationMode -} setDefaultRotationInterpolationMode :: EnumAnimationRotationInterpolationMode -> IO () @@ -462,7 +464,7 @@ let {a1' = cIntFromEnum a1} in setDefaultRotationInterpolationMode'_ a1' >>= \res -> return () -{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} {- function getDefaultRotationInterpolationMode -} getDefaultRotationInterpolationMode :: IO (EnumAnimationRotationInterpolationMode) @@ -471,7 +473,7 @@ getDefaultRotationInterpolationMode'_ a1' >>= \res -> peekEnumUtil a1'>>= \a1'' -> return (a1'') -{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} +{-# LINE 276 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimation.chs.h ogre_anm_destruct"
HGamer3D/Bindings/Ogre/ClassAnimationState.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function AnimationState -} new :: String -> HG3DClass -> Float -> Float -> Float -> Bool -> IO (HG3DClass) @@ -61,7 +63,7 @@ new'_ a1' a2' a3' a4' a5' a6' a7' >>= \res -> peek a7'>>= \a7'' -> return (a7'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function ~AnimationState -} delete :: HG3DClass -> IO () @@ -69,7 +71,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getAnimationName -} getAnimationName :: HG3DClass -> IO (String) @@ -79,7 +81,7 @@ getAnimationName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getTimePosition -} getTimePosition :: HG3DClass -> IO (Float) @@ -89,7 +91,7 @@ getTimePosition'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setTimePosition -} setTimePosition :: HG3DClass -> Float -> IO () @@ -98,7 +100,7 @@ let {a2' = realToFrac a2} in setTimePosition'_ a1' a2' >>= \res -> return () -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getLength -} getLength :: HG3DClass -> IO (Float) @@ -108,7 +110,7 @@ getLength'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setLength -} setLength :: HG3DClass -> Float -> IO () @@ -117,7 +119,7 @@ let {a2' = realToFrac a2} in setLength'_ a1' a2' >>= \res -> return () -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getWeight -} getWeight :: HG3DClass -> IO (Float) @@ -127,7 +129,7 @@ getWeight'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setWeight -} setWeight :: HG3DClass -> Float -> IO () @@ -136,7 +138,7 @@ let {a2' = realToFrac a2} in setWeight'_ a1' a2' >>= \res -> return () -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function addTime -} addTime :: HG3DClass -> Float -> IO () @@ -145,7 +147,7 @@ let {a2' = realToFrac a2} in addTime'_ a1' a2' >>= \res -> return () -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function hasEnded -} hasEnded :: HG3DClass -> IO (Bool) @@ -155,7 +157,7 @@ hasEnded'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getEnabled -} getEnabled :: HG3DClass -> IO (Bool) @@ -165,7 +167,7 @@ getEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setEnabled -} setEnabled :: HG3DClass -> Bool -> IO () @@ -174,7 +176,7 @@ let {a2' = fromBool a2} in setEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setLoop -} setLoop :: HG3DClass -> Bool -> IO () @@ -183,7 +185,7 @@ let {a2' = fromBool a2} in setLoop'_ a1' a2' >>= \res -> return () -{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getLoop -} getLoop :: HG3DClass -> IO (Bool) @@ -193,7 +195,7 @@ getLoop'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function copyStateFrom -} copyStateFrom :: HG3DClass -> HG3DClass -> IO () @@ -202,7 +204,7 @@ withHG3DClass a2 $ \a2' -> copyStateFrom'_ a1' a2' >>= \res -> return () -{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getParent -} getParent :: HG3DClass -> IO (HG3DClass) @@ -212,7 +214,7 @@ getParent'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function createBlendMask -} createBlendMask :: HG3DClass -> Int -> Float -> IO () @@ -222,7 +224,7 @@ let {a3' = realToFrac a3} in createBlendMask'_ a1' a2' a3' >>= \res -> return () -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function destroyBlendMask -} destroyBlendMask :: HG3DClass -> IO () @@ -230,7 +232,7 @@ withHG3DClass a1 $ \a1' -> destroyBlendMask'_ a1' >>= \res -> return () -{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function hasBlendMask -} hasBlendMask :: HG3DClass -> IO (Bool) @@ -240,7 +242,7 @@ hasBlendMask'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function setBlendMaskEntry -} setBlendMaskEntry :: HG3DClass -> Int -> Float -> IO () @@ -250,7 +252,7 @@ let {a3' = realToFrac a3} in setBlendMaskEntry'_ a1' a2' a3' >>= \res -> return () -{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} {- function getBlendMaskEntry -} getBlendMaskEntry :: HG3DClass -> Int -> IO (Float) @@ -261,7 +263,7 @@ getBlendMaskEntry'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationState.chs.h ogre_anms_construct"
HGamer3D/Bindings/Ogre/ClassAnimationStateSet.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function ~AnimationStateSet -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function createAnimationState -} createAnimationState :: HG3DClass -> String -> Float -> Float -> Float -> Bool -> IO (HG3DClass) @@ -69,7 +71,7 @@ createAnimationState'_ a1' a2' a3' a4' a5' a6' a7' >>= \res -> peek a7'>>= \a7'' -> return (a7'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function getAnimationState -} getAnimationState :: HG3DClass -> String -> IO (HG3DClass) @@ -80,7 +82,7 @@ getAnimationState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function hasAnimationState -} hasAnimationState :: HG3DClass -> String -> IO (Bool) @@ -91,7 +93,7 @@ hasAnimationState'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function removeAnimationState -} removeAnimationState :: HG3DClass -> String -> IO () @@ -100,7 +102,7 @@ withCString a2 $ \a2' -> removeAnimationState'_ a1' a2' >>= \res -> return () -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function removeAllAnimationStates -} removeAllAnimationStates :: HG3DClass -> IO () @@ -108,7 +110,7 @@ withHG3DClass a1 $ \a1' -> removeAllAnimationStates'_ a1' >>= \res -> return () -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function copyMatchingState -} copyMatchingState :: HG3DClass -> HG3DClass -> IO () @@ -117,7 +119,7 @@ withHG3DClass a2 $ \a2' -> copyMatchingState'_ a1' a2' >>= \res -> return () -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} {- function hasEnabledAnimationState -} hasEnabledAnimationState :: HG3DClass -> IO (Bool) @@ -127,7 +129,7 @@ hasEnabledAnimationState'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationStateSet.chs.h ogre_ass_destruct"
HGamer3D/Bindings/Ogre/ClassAnimationTrack.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function ~AnimationTrack -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function getHandle -} getHandle :: HG3DClass -> IO (Int) @@ -64,7 +66,7 @@ getHandle'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function getNumKeyFrames -} getNumKeyFrames :: HG3DClass -> IO (Int) @@ -74,7 +76,7 @@ getNumKeyFrames'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function removeKeyFrame -} removeKeyFrame :: HG3DClass -> Int -> IO () @@ -83,7 +85,7 @@ let {a2' = fromIntegral a2} in removeKeyFrame'_ a1' a2' >>= \res -> return () -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function removeAllKeyFrames -} removeAllKeyFrames :: HG3DClass -> IO () @@ -91,7 +93,7 @@ withHG3DClass a1 $ \a1' -> removeAllKeyFrames'_ a1' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function apply -} apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO () @@ -102,7 +104,7 @@ let {a4' = realToFrac a4} in apply'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function hasNonZeroKeyFrames -} hasNonZeroKeyFrames :: HG3DClass -> IO (Bool) @@ -112,7 +114,7 @@ hasNonZeroKeyFrames'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function optimise -} optimise :: HG3DClass -> IO () @@ -120,7 +122,7 @@ withHG3DClass a1 $ \a1' -> optimise'_ a1' >>= \res -> return () -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} {- function getParent -} getParent :: HG3DClass -> IO (HG3DClass) @@ -130,7 +132,7 @@ getParent'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} +{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassAnimationTrack.chs.h ogre_at_destruct"
HGamer3D/Bindings/Ogre/ClassArchive.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function ~Archive -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -64,7 +66,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function isCaseSensitive -} isCaseSensitive :: HG3DClass -> IO (Bool) @@ -74,7 +76,7 @@ isCaseSensitive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function load -} load :: HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a1 $ \a1' -> load'_ a1' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function unload -} unload :: HG3DClass -> IO () @@ -90,7 +92,7 @@ withHG3DClass a1 $ \a1' -> unload'_ a1' >>= \res -> return () -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function isReadOnly -} isReadOnly :: HG3DClass -> IO (Bool) @@ -100,7 +102,7 @@ isReadOnly'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function remove -} remove :: HG3DClass -> String -> IO () @@ -109,7 +111,7 @@ withCString a2 $ \a2' -> remove'_ a1' a2' >>= \res -> return () -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function exists -} exists :: HG3DClass -> String -> IO (Bool) @@ -120,7 +122,7 @@ exists'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -130,7 +132,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchive.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchive.chs.h ogre_arch_destruct"
HGamer3D/Bindings/Ogre/ClassArchiveManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function ~ArchiveManager -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function load -} load :: HG3DClass -> String -> String -> IO (HG3DClass) @@ -66,7 +68,7 @@ load'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function unload -} unload :: HG3DClass -> HG3DClass -> IO () @@ -75,7 +77,7 @@ withHG3DClass a2 $ \a2' -> unload'_ a1' a2' >>= \res -> return () -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function unload2 -} unload2 :: HG3DClass -> String -> IO () @@ -84,7 +86,7 @@ withCString a2 $ \a2' -> unload2'_ a1' a2' >>= \res -> return () -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -93,7 +95,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -102,7 +104,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassArchiveManager.chs.h ogre_archm_destruct"
HGamer3D/Bindings/Ogre/ClassBillboard.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,17 +44,17 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} import HGamer3D.Bindings.Ogre.StructRadians -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function Billboard -} new :: IO (HG3DClass) @@ -61,7 +63,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function ~Billboard -} delete :: HG3DClass -> IO () @@ -69,7 +71,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getRotation -} getRotation :: HG3DClass -> IO (Radians) @@ -79,7 +81,7 @@ getRotation'_ a1' a2' >>= \res -> peekRadians a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setRotation -} setRotation :: HG3DClass -> Radians -> IO () @@ -88,7 +90,7 @@ withRadians a2 $ \a2' -> setRotation'_ a1' a2' >>= \res -> return () -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setPosition -} setPosition :: HG3DClass -> Vec3 -> IO () @@ -97,7 +99,7 @@ withVec3 a2 $ \a2' -> setPosition'_ a1' a2' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setPosition2 -} setPosition2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -108,7 +110,7 @@ let {a4' = realToFrac a4} in setPosition2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getPosition -} getPosition :: HG3DClass -> IO (Vec3) @@ -118,7 +120,7 @@ getPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setDimensions -} setDimensions :: HG3DClass -> Float -> Float -> IO () @@ -128,7 +130,7 @@ let {a3' = realToFrac a3} in setDimensions'_ a1' a2' a3' >>= \res -> return () -{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function resetDimensions -} resetDimensions :: HG3DClass -> IO () @@ -136,7 +138,7 @@ withHG3DClass a1 $ \a1' -> resetDimensions'_ a1' >>= \res -> return () -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setColour -} setColour :: HG3DClass -> Colour -> IO () @@ -145,7 +147,7 @@ withColour a2 $ \a2' -> setColour'_ a1' a2' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getColour -} getColour :: HG3DClass -> IO (Colour) @@ -155,7 +157,7 @@ getColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function hasOwnDimensions -} hasOwnDimensions :: HG3DClass -> IO (Bool) @@ -165,7 +167,7 @@ hasOwnDimensions'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getOwnWidth -} getOwnWidth :: HG3DClass -> IO (Float) @@ -175,7 +177,7 @@ getOwnWidth'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getOwnHeight -} getOwnHeight :: HG3DClass -> IO (Float) @@ -185,7 +187,7 @@ getOwnHeight'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function isUseTexcoordRect -} isUseTexcoordRect :: HG3DClass -> IO (Bool) @@ -195,7 +197,7 @@ isUseTexcoordRect'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setTexcoordIndex -} setTexcoordIndex :: HG3DClass -> Int -> IO () @@ -204,7 +206,7 @@ let {a2' = fromIntegral a2} in setTexcoordIndex'_ a1' a2' >>= \res -> return () -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function getTexcoordIndex -} getTexcoordIndex :: HG3DClass -> IO (Int) @@ -214,7 +216,7 @@ getTexcoordIndex'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} {- function setTexcoordRect2 -} setTexcoordRect2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -226,7 +228,7 @@ let {a5' = realToFrac a5} in setTexcoordRect2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} +{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboard.chs.h ogre_bbd_construct"
HGamer3D/Bindings/Ogre/ClassBillboardChain.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,17 +44,17 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} import HGamer3D.Bindings.Ogre.EnumBillboardChainTexCoordDirection -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function ~BillboardChain -} delete :: HG3DClass -> IO () @@ -60,7 +62,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setMaxChainElements -} setMaxChainElements :: HG3DClass -> Int -> IO () @@ -69,7 +71,7 @@ let {a2' = fromIntegral a2} in setMaxChainElements'_ a1' a2' >>= \res -> return () -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getMaxChainElements -} getMaxChainElements :: HG3DClass -> IO (Int) @@ -79,7 +81,7 @@ getMaxChainElements'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setNumberOfChains -} setNumberOfChains :: HG3DClass -> Int -> IO () @@ -88,7 +90,7 @@ let {a2' = fromIntegral a2} in setNumberOfChains'_ a1' a2' >>= \res -> return () -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getNumberOfChains -} getNumberOfChains :: HG3DClass -> IO (Int) @@ -98,7 +100,7 @@ getNumberOfChains'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setUseTextureCoords -} setUseTextureCoords :: HG3DClass -> Bool -> IO () @@ -107,7 +109,7 @@ let {a2' = fromBool a2} in setUseTextureCoords'_ a1' a2' >>= \res -> return () -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getUseTextureCoords -} getUseTextureCoords :: HG3DClass -> IO (Bool) @@ -117,7 +119,7 @@ getUseTextureCoords'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setTextureCoordDirection -} setTextureCoordDirection :: HG3DClass -> EnumBillboardChainTexCoordDirection -> IO () @@ -126,7 +128,7 @@ let {a2' = cIntFromEnum a2} in setTextureCoordDirection'_ a1' a2' >>= \res -> return () -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getTextureCoordDirection -} getTextureCoordDirection :: HG3DClass -> IO (EnumBillboardChainTexCoordDirection) @@ -136,7 +138,7 @@ getTextureCoordDirection'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setOtherTextureCoordRange -} setOtherTextureCoordRange :: HG3DClass -> Float -> Float -> IO () @@ -146,7 +148,7 @@ let {a3' = realToFrac a3} in setOtherTextureCoordRange'_ a1' a2' a3' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setUseVertexColours -} setUseVertexColours :: HG3DClass -> Bool -> IO () @@ -155,7 +157,7 @@ let {a2' = fromBool a2} in setUseVertexColours'_ a1' a2' >>= \res -> return () -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getUseVertexColours -} getUseVertexColours :: HG3DClass -> IO (Bool) @@ -165,7 +167,7 @@ getUseVertexColours'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setDynamic -} setDynamic :: HG3DClass -> Bool -> IO () @@ -174,7 +176,7 @@ let {a2' = fromBool a2} in setDynamic'_ a1' a2' >>= \res -> return () -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getDynamic -} getDynamic :: HG3DClass -> IO (Bool) @@ -184,7 +186,7 @@ getDynamic'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function removeChainElement -} removeChainElement :: HG3DClass -> Int -> IO () @@ -193,7 +195,7 @@ let {a2' = fromIntegral a2} in removeChainElement'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getNumChainElements -} getNumChainElements :: HG3DClass -> Int -> IO (Int) @@ -204,7 +206,7 @@ getNumChainElements'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function clearChain -} clearChain :: HG3DClass -> Int -> IO () @@ -213,7 +215,7 @@ let {a2' = fromIntegral a2} in clearChain'_ a1' a2' >>= \res -> return () -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function clearAllChains -} clearAllChains :: HG3DClass -> IO () @@ -221,7 +223,7 @@ withHG3DClass a1 $ \a1' -> clearAllChains'_ a1' >>= \res -> return () -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setFaceCamera -} setFaceCamera :: HG3DClass -> Bool -> Vec3 -> IO () @@ -231,7 +233,7 @@ withVec3 a3 $ \a3' -> setFaceCamera'_ a1' a2' a3' >>= \res -> return () -{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getMaterialName -} getMaterialName :: HG3DClass -> IO (String) @@ -241,7 +243,7 @@ getMaterialName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function setMaterialName -} setMaterialName :: HG3DClass -> String -> String -> IO () @@ -251,7 +253,7 @@ withCString a3 $ \a3' -> setMaterialName'_ a1' a2' a3' >>= \res -> return () -{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -262,7 +264,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -272,7 +274,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getMaterial -} getMaterial :: HG3DClass -> IO (SharedPtr) @@ -282,7 +284,7 @@ getMaterial'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -292,7 +294,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} {- function preRender -} preRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO (Bool) @@ -304,7 +306,7 @@ preRender'_ a1' a2' a3' a4' >>= \res -> peekBoolUtil a4'>>= \a4'' -> return (a4'') -{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} +{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChain.chs.h ogre_bbdc_destruct"
HGamer3D/Bindings/Ogre/ClassBillboardChainFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} {- function BillboardChainFactory -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} {- function ~BillboardChainFactory -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -73,7 +75,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardChainFactory.chs.h ogre_bbdcf_construct"
HGamer3D/Bindings/Ogre/ClassBillboardSet.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,23 +44,23 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.EnumBillboardOrigin -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.EnumBillboardRotationType -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} import HGamer3D.Bindings.Ogre.EnumBillboardType -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function BillboardSet2 -} new :: String -> Int -> Bool -> IO (HG3DClass) @@ -70,7 +72,7 @@ new'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function ~BillboardSet -} delete :: HG3DClass -> IO () @@ -78,7 +80,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function createBillboard -} createBillboard :: HG3DClass -> Vec3 -> Colour -> IO (HG3DClass) @@ -90,7 +92,7 @@ createBillboard'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function createBillboard2 -} createBillboard2 :: HG3DClass -> Float -> Float -> Float -> Colour -> IO (HG3DClass) @@ -104,7 +106,7 @@ createBillboard2'_ a1' a2' a3' a4' a5' a6' >>= \res -> peek a6'>>= \a6'' -> return (a6'') -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getNumBillboards -} getNumBillboards :: HG3DClass -> IO (Int) @@ -114,7 +116,7 @@ getNumBillboards'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setAutoextend -} setAutoextend :: HG3DClass -> Bool -> IO () @@ -123,7 +125,7 @@ let {a2' = fromBool a2} in setAutoextend'_ a1' a2' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getAutoextend -} getAutoextend :: HG3DClass -> IO (Bool) @@ -133,7 +135,7 @@ getAutoextend'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setSortingEnabled -} setSortingEnabled :: HG3DClass -> Bool -> IO () @@ -142,7 +144,7 @@ let {a2' = fromBool a2} in setSortingEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getSortingEnabled -} getSortingEnabled :: HG3DClass -> IO (Bool) @@ -152,7 +154,7 @@ getSortingEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setPoolSize -} setPoolSize :: HG3DClass -> Int -> IO () @@ -161,7 +163,7 @@ let {a2' = fromIntegral a2} in setPoolSize'_ a1' a2' >>= \res -> return () -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getPoolSize -} getPoolSize :: HG3DClass -> IO (Int) @@ -171,7 +173,7 @@ getPoolSize'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function clear -} clear :: HG3DClass -> IO () @@ -179,7 +181,7 @@ withHG3DClass a1 $ \a1' -> clear'_ a1' >>= \res -> return () -{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getBillboard -} getBillboard :: HG3DClass -> Int -> IO (HG3DClass) @@ -190,7 +192,7 @@ getBillboard'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function removeBillboard -} removeBillboard :: HG3DClass -> Int -> IO () @@ -199,7 +201,7 @@ let {a2' = fromIntegral a2} in removeBillboard'_ a1' a2' >>= \res -> return () -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function removeBillboard2 -} removeBillboard2 :: HG3DClass -> HG3DClass -> IO () @@ -208,7 +210,7 @@ withHG3DClass a2 $ \a2' -> removeBillboard2'_ a1' a2' >>= \res -> return () -{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setBillboardOrigin -} setBillboardOrigin :: HG3DClass -> EnumBillboardOrigin -> IO () @@ -217,7 +219,7 @@ let {a2' = cIntFromEnum a2} in setBillboardOrigin'_ a1' a2' >>= \res -> return () -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getBillboardOrigin -} getBillboardOrigin :: HG3DClass -> IO (EnumBillboardOrigin) @@ -227,7 +229,7 @@ getBillboardOrigin'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setBillboardRotationType -} setBillboardRotationType :: HG3DClass -> EnumBillboardRotationType -> IO () @@ -236,7 +238,7 @@ let {a2' = cIntFromEnum a2} in setBillboardRotationType'_ a1' a2' >>= \res -> return () -{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getBillboardRotationType -} getBillboardRotationType :: HG3DClass -> IO (EnumBillboardRotationType) @@ -246,7 +248,7 @@ getBillboardRotationType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setDefaultDimensions -} setDefaultDimensions :: HG3DClass -> Float -> Float -> IO () @@ -256,7 +258,7 @@ let {a3' = realToFrac a3} in setDefaultDimensions'_ a1' a2' a3' >>= \res -> return () -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setDefaultWidth -} setDefaultWidth :: HG3DClass -> Float -> IO () @@ -265,7 +267,7 @@ let {a2' = realToFrac a2} in setDefaultWidth'_ a1' a2' >>= \res -> return () -{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getDefaultWidth -} getDefaultWidth :: HG3DClass -> IO (Float) @@ -275,7 +277,7 @@ getDefaultWidth'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setDefaultHeight -} setDefaultHeight :: HG3DClass -> Float -> IO () @@ -284,7 +286,7 @@ let {a2' = realToFrac a2} in setDefaultHeight'_ a1' a2' >>= \res -> return () -{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getDefaultHeight -} getDefaultHeight :: HG3DClass -> IO (Float) @@ -294,7 +296,7 @@ getDefaultHeight'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 177 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setMaterialName -} setMaterialName :: HG3DClass -> String -> String -> IO () @@ -304,7 +306,7 @@ withCString a3 $ \a3' -> setMaterialName'_ a1' a2' a3' >>= \res -> return () -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getMaterialName -} getMaterialName :: HG3DClass -> IO (String) @@ -314,7 +316,7 @@ getMaterialName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function beginBillboards -} beginBillboards :: HG3DClass -> Int -> IO () @@ -323,7 +325,7 @@ let {a2' = fromIntegral a2} in beginBillboards'_ a1' a2' >>= \res -> return () -{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function injectBillboard -} injectBillboard :: HG3DClass -> HG3DClass -> IO () @@ -332,7 +334,7 @@ withHG3DClass a2 $ \a2' -> injectBillboard'_ a1' a2' >>= \res -> return () -{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function endBillboards -} endBillboards :: HG3DClass -> IO () @@ -340,7 +342,7 @@ withHG3DClass a1 $ \a1' -> endBillboards'_ a1' >>= \res -> return () -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -350,7 +352,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getMaterial -} getMaterial :: HG3DClass -> IO (SharedPtr) @@ -360,7 +362,7 @@ getMaterial'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setMaterial -} setMaterial :: HG3DClass -> SharedPtr -> IO () @@ -369,7 +371,7 @@ withSharedPtr a2 $ \a2' -> setMaterial'_ a1' a2' >>= \res -> return () -{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getCullIndividually -} getCullIndividually :: HG3DClass -> IO (Bool) @@ -379,7 +381,7 @@ getCullIndividually'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setCullIndividually -} setCullIndividually :: HG3DClass -> Bool -> IO () @@ -388,7 +390,7 @@ let {a2' = fromBool a2} in setCullIndividually'_ a1' a2' >>= \res -> return () -{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setBillboardType -} setBillboardType :: HG3DClass -> EnumBillboardType -> IO () @@ -397,7 +399,7 @@ let {a2' = cIntFromEnum a2} in setBillboardType'_ a1' a2' >>= \res -> return () -{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getBillboardType -} getBillboardType :: HG3DClass -> IO (EnumBillboardType) @@ -407,7 +409,7 @@ getBillboardType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setCommonDirection -} setCommonDirection :: HG3DClass -> Vec3 -> IO () @@ -416,7 +418,7 @@ withVec3 a2 $ \a2' -> setCommonDirection'_ a1' a2' >>= \res -> return () -{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getCommonDirection -} getCommonDirection :: HG3DClass -> IO (Vec3) @@ -426,7 +428,7 @@ getCommonDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setCommonUpVector -} setCommonUpVector :: HG3DClass -> Vec3 -> IO () @@ -435,7 +437,7 @@ withVec3 a2 $ \a2' -> setCommonUpVector'_ a1' a2' >>= \res -> return () -{-# LINE 252 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 254 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getCommonUpVector -} getCommonUpVector :: HG3DClass -> IO (Vec3) @@ -445,7 +447,7 @@ getCommonUpVector'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 257 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setUseAccurateFacing -} setUseAccurateFacing :: HG3DClass -> Bool -> IO () @@ -454,7 +456,7 @@ let {a2' = fromBool a2} in setUseAccurateFacing'_ a1' a2' >>= \res -> return () -{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getUseAccurateFacing -} getUseAccurateFacing :: HG3DClass -> IO (Bool) @@ -464,7 +466,7 @@ getUseAccurateFacing'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 267 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -474,7 +476,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -485,7 +487,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 278 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setBillboardsInWorldSpace -} setBillboardsInWorldSpace :: HG3DClass -> Bool -> IO () @@ -494,7 +496,7 @@ let {a2' = fromBool a2} in setBillboardsInWorldSpace'_ a1' a2' >>= \res -> return () -{-# LINE 283 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setPointRenderingEnabled -} setPointRenderingEnabled :: HG3DClass -> Bool -> IO () @@ -503,7 +505,7 @@ let {a2' = fromBool a2} in setPointRenderingEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 288 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function isPointRenderingEnabled -} isPointRenderingEnabled :: HG3DClass -> IO (Bool) @@ -513,7 +515,7 @@ isPointRenderingEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 293 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getTypeFlags -} getTypeFlags :: HG3DClass -> IO (Int) @@ -523,7 +525,7 @@ getTypeFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 298 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 300 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function setAutoUpdate -} setAutoUpdate :: HG3DClass -> Bool -> IO () @@ -532,7 +534,7 @@ let {a2' = fromBool a2} in setAutoUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 303 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 305 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function getAutoUpdate -} getAutoUpdate :: HG3DClass -> IO (Bool) @@ -542,7 +544,7 @@ getAutoUpdate'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 308 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 310 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} {- function notifyBillboardDataChanged -} notifyBillboardDataChanged :: HG3DClass -> IO () @@ -550,7 +552,7 @@ withHG3DClass a1 $ \a1' -> notifyBillboardDataChanged'_ a1' >>= \res -> return () -{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} +{-# LINE 314 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSet.chs.h ogre_bbs_construct"
HGamer3D/Bindings/Ogre/ClassBillboardSetFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} {- function BillboardSetFactory -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} {- function ~BillboardSetFactory -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -73,7 +75,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBillboardSetFactory.chs.h ogre_bbsf_construct"
HGamer3D/Bindings/Ogre/ClassBone.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function ~Bone -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function createChild -} createChild :: HG3DClass -> Int -> Vec3 -> Quaternion -> IO (HG3DClass) @@ -71,7 +73,7 @@ createChild'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function getHandle -} getHandle :: HG3DClass -> IO (Int) @@ -81,7 +83,7 @@ getHandle'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function setBindingPose -} setBindingPose :: HG3DClass -> IO () @@ -89,7 +91,7 @@ withHG3DClass a1 $ \a1' -> setBindingPose'_ a1' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function reset -} reset :: HG3DClass -> IO () @@ -97,7 +99,7 @@ withHG3DClass a1 $ \a1' -> reset'_ a1' >>= \res -> return () -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function setManuallyControlled -} setManuallyControlled :: HG3DClass -> Bool -> IO () @@ -106,7 +108,7 @@ let {a2' = fromBool a2} in setManuallyControlled'_ a1' a2' >>= \res -> return () -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function isManuallyControlled -} isManuallyControlled :: HG3DClass -> IO (Bool) @@ -116,7 +118,7 @@ isManuallyControlled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} {- function needUpdate -} needUpdate :: HG3DClass -> Bool -> IO () @@ -125,7 +127,7 @@ let {a2' = fromBool a2} in needUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassBone.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassBone.chs.h ogre_bn_destruct"
HGamer3D/Bindings/Ogre/ClassCamera.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,19 +44,19 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.StructRadians -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} import HGamer3D.Bindings.Ogre.EnumFrustumPlane -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function Camera -} new :: String -> HG3DClass -> IO (HG3DClass) @@ -65,7 +67,7 @@ new'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function ~Camera -} delete :: HG3DClass -> IO () @@ -73,7 +75,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getSceneManager -} getSceneManager :: HG3DClass -> IO (HG3DClass) @@ -83,7 +85,7 @@ getSceneManager'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setPosition -} setPosition :: HG3DClass -> Float -> Float -> Float -> IO () @@ -94,7 +96,7 @@ let {a4' = realToFrac a4} in setPosition'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setPosition2 -} setPosition2 :: HG3DClass -> Vec3 -> IO () @@ -103,7 +105,7 @@ withVec3 a2 $ \a2' -> setPosition2'_ a1' a2' >>= \res -> return () -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getPosition -} getPosition :: HG3DClass -> IO (Vec3) @@ -113,7 +115,7 @@ getPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function move -} move :: HG3DClass -> Vec3 -> IO () @@ -122,7 +124,7 @@ withVec3 a2 $ \a2' -> move'_ a1' a2' >>= \res -> return () -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function moveRelative -} moveRelative :: HG3DClass -> Vec3 -> IO () @@ -131,7 +133,7 @@ withVec3 a2 $ \a2' -> moveRelative'_ a1' a2' >>= \res -> return () -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setDirection -} setDirection :: HG3DClass -> Float -> Float -> Float -> IO () @@ -142,7 +144,7 @@ let {a4' = realToFrac a4} in setDirection'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setDirection2 -} setDirection2 :: HG3DClass -> Vec3 -> IO () @@ -151,7 +153,7 @@ withVec3 a2 $ \a2' -> setDirection2'_ a1' a2' >>= \res -> return () -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDirection -} getDirection :: HG3DClass -> IO (Vec3) @@ -161,7 +163,7 @@ getDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getUp -} getUp :: HG3DClass -> IO (Vec3) @@ -171,7 +173,7 @@ getUp'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRight -} getRight :: HG3DClass -> IO (Vec3) @@ -181,7 +183,7 @@ getRight'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function lookAt -} lookAt :: HG3DClass -> Vec3 -> IO () @@ -190,7 +192,7 @@ withVec3 a2 $ \a2' -> lookAt'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function lookAt2 -} lookAt2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -201,7 +203,7 @@ let {a4' = realToFrac a4} in lookAt2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function roll -} roll :: HG3DClass -> Radians -> IO () @@ -210,7 +212,7 @@ withRadians a2 $ \a2' -> roll'_ a1' a2' >>= \res -> return () -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function yaw -} yaw :: HG3DClass -> Radians -> IO () @@ -219,7 +221,7 @@ withRadians a2 $ \a2' -> yaw'_ a1' a2' >>= \res -> return () -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function pitch -} pitch :: HG3DClass -> Radians -> IO () @@ -228,7 +230,7 @@ withRadians a2 $ \a2' -> pitch'_ a1' a2' >>= \res -> return () -{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function rotate -} rotate :: HG3DClass -> Vec3 -> Radians -> IO () @@ -238,7 +240,7 @@ withRadians a3 $ \a3' -> rotate'_ a1' a2' a3' >>= \res -> return () -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function rotate2 -} rotate2 :: HG3DClass -> Quaternion -> IO () @@ -247,7 +249,7 @@ withQuaternion a2 $ \a2' -> rotate2'_ a1' a2' >>= \res -> return () -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setFixedYawAxis -} setFixedYawAxis :: HG3DClass -> Bool -> Vec3 -> IO () @@ -257,7 +259,7 @@ withVec3 a3 $ \a3' -> setFixedYawAxis'_ a1' a2' a3' >>= \res -> return () -{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getOrientation -} getOrientation :: HG3DClass -> IO (Quaternion) @@ -267,7 +269,7 @@ getOrientation'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setOrientation -} setOrientation :: HG3DClass -> Quaternion -> IO () @@ -276,7 +278,7 @@ withQuaternion a2 $ \a2' -> setOrientation'_ a1' a2' >>= \res -> return () -{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDerivedOrientation -} getDerivedOrientation :: HG3DClass -> IO (Quaternion) @@ -286,7 +288,7 @@ getDerivedOrientation'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 177 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDerivedPosition -} getDerivedPosition :: HG3DClass -> IO (Vec3) @@ -296,7 +298,7 @@ getDerivedPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDerivedDirection -} getDerivedDirection :: HG3DClass -> IO (Vec3) @@ -306,7 +308,7 @@ getDerivedDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDerivedUp -} getDerivedUp :: HG3DClass -> IO (Vec3) @@ -316,7 +318,7 @@ getDerivedUp'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getDerivedRight -} getDerivedRight :: HG3DClass -> IO (Vec3) @@ -326,7 +328,7 @@ getDerivedRight'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRealOrientation -} getRealOrientation :: HG3DClass -> IO (Quaternion) @@ -336,7 +338,7 @@ getRealOrientation'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRealPosition -} getRealPosition :: HG3DClass -> IO (Vec3) @@ -346,7 +348,7 @@ getRealPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRealDirection -} getRealDirection :: HG3DClass -> IO (Vec3) @@ -356,7 +358,7 @@ getRealDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRealUp -} getRealUp :: HG3DClass -> IO (Vec3) @@ -366,7 +368,7 @@ getRealUp'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getRealRight -} getRealRight :: HG3DClass -> IO (Vec3) @@ -376,7 +378,7 @@ getRealRight'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -386,7 +388,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setLodBias -} setLodBias :: HG3DClass -> Float -> IO () @@ -395,7 +397,7 @@ let {a2' = realToFrac a2} in setLodBias'_ a1' a2' >>= \res -> return () -{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getLodBias -} getLodBias :: HG3DClass -> IO (Float) @@ -405,7 +407,7 @@ getLodBias'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setLodCamera -} setLodCamera :: HG3DClass -> HG3DClass -> IO () @@ -414,7 +416,7 @@ withHG3DClass a2 $ \a2' -> setLodCamera'_ a1' a2' >>= \res -> return () -{-# LINE 240 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getLodCamera -} getLodCamera :: HG3DClass -> IO (HG3DClass) @@ -424,7 +426,7 @@ getLodCamera'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setWindow -} setWindow :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -436,7 +438,7 @@ let {a5' = realToFrac a5} in setWindow'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function resetWindow -} resetWindow :: HG3DClass -> IO () @@ -444,7 +446,7 @@ withHG3DClass a1 $ \a1' -> resetWindow'_ a1' >>= \res -> return () -{-# LINE 257 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function isWindowSet -} isWindowSet :: HG3DClass -> IO (Bool) @@ -454,7 +456,7 @@ isWindowSet'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -464,7 +466,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 267 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getAutoTrackTarget -} getAutoTrackTarget :: HG3DClass -> IO (HG3DClass) @@ -474,7 +476,7 @@ getAutoTrackTarget'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getAutoTrackOffset -} getAutoTrackOffset :: HG3DClass -> IO (Vec3) @@ -484,7 +486,7 @@ getAutoTrackOffset'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 277 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 279 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getViewport -} getViewport :: HG3DClass -> IO (HG3DClass) @@ -494,7 +496,7 @@ getViewport'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 282 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setAutoAspectRatio -} setAutoAspectRatio :: HG3DClass -> Bool -> IO () @@ -503,7 +505,7 @@ let {a2' = fromBool a2} in setAutoAspectRatio'_ a1' a2' >>= \res -> return () -{-# LINE 287 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 289 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getAutoAspectRatio -} getAutoAspectRatio :: HG3DClass -> IO (Bool) @@ -513,7 +515,7 @@ getAutoAspectRatio'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 294 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setCullingFrustum -} setCullingFrustum :: HG3DClass -> HG3DClass -> IO () @@ -522,7 +524,7 @@ withHG3DClass a2 $ \a2' -> setCullingFrustum'_ a1' a2' >>= \res -> return () -{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 299 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getCullingFrustum -} getCullingFrustum :: HG3DClass -> IO (HG3DClass) @@ -532,7 +534,7 @@ getCullingFrustum'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 304 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function isVisible3 -} isVisible3 :: HG3DClass -> Vec3 -> IO (EnumFrustumPlane, Bool) @@ -545,7 +547,7 @@ peekEnumUtil a3'>>= \a3'' -> peekBoolUtil a4'>>= \a4'' -> return (a3'', a4'') -{-# LINE 309 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 311 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getWorldSpaceCorners -} getWorldSpaceCorners :: HG3DClass -> IO (Vec3) @@ -555,7 +557,7 @@ getWorldSpaceCorners'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 314 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 316 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getNearClipDistance -} getNearClipDistance :: HG3DClass -> IO (Float) @@ -565,7 +567,7 @@ getNearClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 319 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 321 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getFarClipDistance -} getFarClipDistance :: HG3DClass -> IO (Float) @@ -575,7 +577,7 @@ getFarClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 324 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 326 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setUseRenderingDistance -} setUseRenderingDistance :: HG3DClass -> Bool -> IO () @@ -584,7 +586,7 @@ let {a2' = fromBool a2} in setUseRenderingDistance'_ a1' a2' >>= \res -> return () -{-# LINE 329 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 331 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getUseRenderingDistance -} getUseRenderingDistance :: HG3DClass -> IO (Bool) @@ -594,7 +596,7 @@ getUseRenderingDistance'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 334 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function synchroniseBaseSettingsWith -} synchroniseBaseSettingsWith :: HG3DClass -> HG3DClass -> IO () @@ -603,7 +605,7 @@ withHG3DClass a2 $ \a2' -> synchroniseBaseSettingsWith'_ a1' a2' >>= \res -> return () -{-# LINE 339 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 341 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getPositionForViewUpdate -} getPositionForViewUpdate :: HG3DClass -> IO (Vec3) @@ -613,7 +615,7 @@ getPositionForViewUpdate'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 344 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 346 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getOrientationForViewUpdate -} getOrientationForViewUpdate :: HG3DClass -> IO (Quaternion) @@ -623,7 +625,7 @@ getOrientationForViewUpdate'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 349 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 351 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function setUseMinPixelSize -} setUseMinPixelSize :: HG3DClass -> Bool -> IO () @@ -632,7 +634,7 @@ let {a2' = fromBool a2} in setUseMinPixelSize'_ a1' a2' >>= \res -> return () -{-# LINE 354 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 356 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getUseMinPixelSize -} getUseMinPixelSize :: HG3DClass -> IO (Bool) @@ -642,7 +644,7 @@ getUseMinPixelSize'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 359 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 361 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} {- function getPixelDisplayRatio -} getPixelDisplayRatio :: HG3DClass -> IO (Float) @@ -652,7 +654,7 @@ getPixelDisplayRatio'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 364 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} +{-# LINE 366 ".\\HGamer3D\\Bindings\\Ogre\\ClassCamera.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassCamera.chs.h ogre_cam_construct"
HGamer3D/Bindings/Ogre/ClassConfigFile.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function ConfigFile -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function ~ConfigFile -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function load -} load :: HG3DClass -> String -> String -> Bool -> IO () @@ -74,7 +76,7 @@ let {a4' = fromBool a4} in load'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function load2 -} load2 :: HG3DClass -> String -> String -> String -> Bool -> IO () @@ -86,7 +88,7 @@ let {a5' = fromBool a5} in load2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function loadDirect -} loadDirect :: HG3DClass -> String -> String -> Bool -> IO () @@ -97,7 +99,7 @@ let {a4' = fromBool a4} in loadDirect'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function loadFromResourceSystem -} loadFromResourceSystem :: HG3DClass -> String -> String -> String -> Bool -> IO () @@ -109,7 +111,7 @@ let {a5' = fromBool a5} in loadFromResourceSystem'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function getSetting -} getSetting :: HG3DClass -> String -> String -> String -> IO (String) @@ -122,7 +124,7 @@ getSetting'_ a1' a2' a3' a4' a5' >>= \res -> peekCString a5'>>= \a5'' -> return (a5'') -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} {- function clear -} clear :: HG3DClass -> IO () @@ -130,7 +132,7 @@ withHG3DClass a1 $ \a1' -> clear'_ a1' >>= \res -> return () -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassConfigFile.chs.h ogre_cf_construct"
HGamer3D/Bindings/Ogre/ClassControllerManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function ControllerManager -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function ~ControllerManager -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function clearControllers -} clearControllers :: HG3DClass -> IO () @@ -71,7 +73,7 @@ withHG3DClass a1 $ \a1' -> clearControllers'_ a1' >>= \res -> return () -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function updateAllControllers -} updateAllControllers :: HG3DClass -> IO () @@ -79,7 +81,7 @@ withHG3DClass a1 $ \a1' -> updateAllControllers'_ a1' >>= \res -> return () -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function getTimeFactor -} getTimeFactor :: HG3DClass -> IO (Float) @@ -89,7 +91,7 @@ getTimeFactor'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function setTimeFactor -} setTimeFactor :: HG3DClass -> Float -> IO () @@ -98,7 +100,7 @@ let {a2' = realToFrac a2} in setTimeFactor'_ a1' a2' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function getFrameDelay -} getFrameDelay :: HG3DClass -> IO (Float) @@ -108,7 +110,7 @@ getFrameDelay'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function setFrameDelay -} setFrameDelay :: HG3DClass -> Float -> IO () @@ -117,7 +119,7 @@ let {a2' = realToFrac a2} in setFrameDelay'_ a1' a2' >>= \res -> return () -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function getElapsedTime -} getElapsedTime :: HG3DClass -> IO (Float) @@ -127,7 +129,7 @@ getElapsedTime'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function setElapsedTime -} setElapsedTime :: HG3DClass -> Float -> IO () @@ -136,7 +138,7 @@ let {a2' = realToFrac a2} in setElapsedTime'_ a1' a2' >>= \res -> return () -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -145,7 +147,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -154,7 +156,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassControllerManager.chs.h ogre_cmgr_construct"
HGamer3D/Bindings/Ogre/ClassEntity.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} import HGamer3D.Bindings.Ogre.EnumEntityVertexDataBindChoice -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function ~Entity -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getMesh -} getMesh :: HG3DClass -> IO (SharedPtr) @@ -68,7 +70,7 @@ getMesh'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getNumSubEntities -} getNumSubEntities :: HG3DClass -> IO (Int) @@ -78,7 +80,7 @@ getNumSubEntities'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function clone -} clone :: HG3DClass -> String -> IO (HG3DClass) @@ -89,7 +91,7 @@ clone'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setMaterialName -} setMaterialName :: HG3DClass -> String -> String -> IO () @@ -99,7 +101,7 @@ withCString a3 $ \a3' -> setMaterialName'_ a1' a2' a3' >>= \res -> return () -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setMaterial -} setMaterial :: HG3DClass -> SharedPtr -> IO () @@ -108,7 +110,7 @@ withSharedPtr a2 $ \a2' -> setMaterial'_ a1' a2' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -118,7 +120,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getAnimationState -} getAnimationState :: HG3DClass -> String -> IO (HG3DClass) @@ -129,7 +131,7 @@ getAnimationState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function hasAnimationState -} hasAnimationState :: HG3DClass -> String -> IO (Bool) @@ -140,7 +142,7 @@ hasAnimationState'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getAllAnimationStates -} getAllAnimationStates :: HG3DClass -> IO (HG3DClass) @@ -150,7 +152,7 @@ getAllAnimationStates'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setDisplaySkeleton -} setDisplaySkeleton :: HG3DClass -> Bool -> IO () @@ -159,7 +161,7 @@ let {a2' = fromBool a2} in setDisplaySkeleton'_ a1' a2' >>= \res -> return () -{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getDisplaySkeleton -} getDisplaySkeleton :: HG3DClass -> IO (Bool) @@ -169,7 +171,7 @@ getDisplaySkeleton'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getManualLodLevel -} getManualLodLevel :: HG3DClass -> Int -> IO (HG3DClass) @@ -180,7 +182,7 @@ getManualLodLevel'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getNumManualLodLevels -} getNumManualLodLevels :: HG3DClass -> IO (Int) @@ -190,7 +192,7 @@ getNumManualLodLevels'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setPolygonModeOverrideable -} setPolygonModeOverrideable :: HG3DClass -> Bool -> IO () @@ -199,7 +201,7 @@ let {a2' = fromBool a2} in setPolygonModeOverrideable'_ a1' a2' >>= \res -> return () -{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function detachObjectFromBone -} detachObjectFromBone :: HG3DClass -> String -> IO (HG3DClass) @@ -210,7 +212,7 @@ detachObjectFromBone'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function detachObjectFromBone2 -} detachObjectFromBone2 :: HG3DClass -> HG3DClass -> IO () @@ -219,7 +221,7 @@ withHG3DClass a2 $ \a2' -> detachObjectFromBone2'_ a1' a2' >>= \res -> return () -{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function detachAllObjectsFromBone -} detachAllObjectsFromBone :: HG3DClass -> IO () @@ -227,7 +229,7 @@ withHG3DClass a1 $ \a1' -> detachAllObjectsFromBone'_ a1' >>= \res -> return () -{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -237,7 +239,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function hasEdgeList -} hasEdgeList :: HG3DClass -> IO (Bool) @@ -247,7 +249,7 @@ hasEdgeList'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function hasSkeleton -} hasSkeleton :: HG3DClass -> IO (Bool) @@ -257,7 +259,7 @@ hasSkeleton'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function isHardwareAnimationEnabled -} isHardwareAnimationEnabled :: HG3DClass -> IO (Bool) @@ -267,7 +269,7 @@ isHardwareAnimationEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getSoftwareAnimationRequests -} getSoftwareAnimationRequests :: HG3DClass -> IO (Int) @@ -277,7 +279,7 @@ getSoftwareAnimationRequests'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getSoftwareAnimationNormalsRequests -} getSoftwareAnimationNormalsRequests :: HG3DClass -> IO (Int) @@ -287,7 +289,7 @@ getSoftwareAnimationNormalsRequests'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function addSoftwareAnimationRequest -} addSoftwareAnimationRequest :: HG3DClass -> Bool -> IO () @@ -296,7 +298,7 @@ let {a2' = fromBool a2} in addSoftwareAnimationRequest'_ a1' a2' >>= \res -> return () -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function removeSoftwareAnimationRequest -} removeSoftwareAnimationRequest :: HG3DClass -> Bool -> IO () @@ -305,7 +307,7 @@ let {a2' = fromBool a2} in removeSoftwareAnimationRequest'_ a1' a2' >>= \res -> return () -{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function shareSkeletonInstanceWith -} shareSkeletonInstanceWith :: HG3DClass -> HG3DClass -> IO () @@ -314,7 +316,7 @@ withHG3DClass a2 $ \a2' -> shareSkeletonInstanceWith'_ a1' a2' >>= \res -> return () -{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function hasVertexAnimation -} hasVertexAnimation :: HG3DClass -> IO (Bool) @@ -324,7 +326,7 @@ hasVertexAnimation'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function stopSharingSkeletonInstance -} stopSharingSkeletonInstance :: HG3DClass -> IO () @@ -332,7 +334,7 @@ withHG3DClass a1 $ \a1' -> stopSharingSkeletonInstance'_ a1' >>= \res -> return () -{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function sharesSkeletonInstance -} sharesSkeletonInstance :: HG3DClass -> IO (Bool) @@ -342,7 +344,7 @@ sharesSkeletonInstance'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function refreshAvailableAnimationState -} refreshAvailableAnimationState :: HG3DClass -> IO () @@ -350,7 +352,7 @@ withHG3DClass a1 $ \a1' -> refreshAvailableAnimationState'_ a1' >>= \res -> return () -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function chooseVertexDataForBinding -} chooseVertexDataForBinding :: HG3DClass -> Bool -> IO (EnumEntityVertexDataBindChoice) @@ -361,7 +363,7 @@ chooseVertexDataForBinding'_ a1' a2' a3' >>= \res -> peekEnumUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function isInitialised -} isInitialised :: HG3DClass -> IO (Bool) @@ -371,7 +373,7 @@ isInitialised'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function backgroundLoadingComplete -} backgroundLoadingComplete :: HG3DClass -> HG3DClass -> IO () @@ -380,7 +382,7 @@ withHG3DClass a2 $ \a2' -> backgroundLoadingComplete'_ a1' a2' >>= \res -> return () -{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setSkipAnimationStateUpdate -} setSkipAnimationStateUpdate :: HG3DClass -> Bool -> IO () @@ -389,7 +391,7 @@ let {a2' = fromBool a2} in setSkipAnimationStateUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getSkipAnimationStateUpdate -} getSkipAnimationStateUpdate :: HG3DClass -> IO (Bool) @@ -399,7 +401,7 @@ getSkipAnimationStateUpdate'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function setAlwaysUpdateMainSkeleton -} setAlwaysUpdateMainSkeleton :: HG3DClass -> Bool -> IO () @@ -408,7 +410,7 @@ let {a2' = fromBool a2} in setAlwaysUpdateMainSkeleton'_ a1' a2' >>= \res -> return () -{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} {- function getAlwaysUpdateMainSkeleton -} getAlwaysUpdateMainSkeleton :: HG3DClass -> IO (Bool) @@ -418,7 +420,7 @@ getAlwaysUpdateMainSkeleton'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} +{-# LINE 240 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntity.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntity.chs.h ogre_ent_destruct"
HGamer3D/Bindings/Ogre/ClassEntityFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} {- function EntityFactory -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} {- function ~EntityFactory -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -73,7 +75,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassEntityFactory.chs.h ogre_entf_construct"
HGamer3D/Bindings/Ogre/ClassException.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function Exception -} new :: Int -> String -> String -> IO (HG3DClass) @@ -58,7 +60,7 @@ new'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function ~Exception -} delete :: HG3DClass -> IO () @@ -66,7 +68,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getFullDescription -} getFullDescription :: HG3DClass -> IO (String) @@ -76,7 +78,7 @@ getFullDescription'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getNumber -} getNumber :: HG3DClass -> IO (Int) @@ -86,7 +88,7 @@ getNumber'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getSource -} getSource :: HG3DClass -> IO (String) @@ -96,7 +98,7 @@ getSource'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getFile -} getFile :: HG3DClass -> IO (String) @@ -106,7 +108,7 @@ getFile'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getLine -} getLine :: HG3DClass -> IO (Int) @@ -116,7 +118,7 @@ getLine'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function getDescription -} getDescription :: HG3DClass -> IO (String) @@ -126,7 +128,7 @@ getDescription'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} {- function what -} what :: HG3DClass -> IO (String) @@ -136,7 +138,7 @@ what'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassException.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassException.chs.h ogre_exc_construct"
HGamer3D/Bindings/Ogre/ClassFrustum.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,27 +44,27 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructRadians -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructVec2 -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.EnumFrustumPlane -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.EnumProjectionType -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} import HGamer3D.Bindings.Ogre.EnumOrientationMode -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function Frustum -} new :: String -> IO (HG3DClass) @@ -72,7 +74,7 @@ new'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function ~Frustum -} delete :: HG3DClass -> IO () @@ -80,7 +82,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFOVy -} setFOVy :: HG3DClass -> Radians -> IO () @@ -89,7 +91,7 @@ withRadians a2 $ \a2' -> setFOVy'_ a1' a2' >>= \res -> return () -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getFOVy -} getFOVy :: HG3DClass -> IO (Radians) @@ -99,7 +101,7 @@ getFOVy'_ a1' a2' >>= \res -> peekRadians a2'>>= \a2'' -> return (a2'') -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setNearClipDistance -} setNearClipDistance :: HG3DClass -> Float -> IO () @@ -108,7 +110,7 @@ let {a2' = realToFrac a2} in setNearClipDistance'_ a1' a2' >>= \res -> return () -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getNearClipDistance -} getNearClipDistance :: HG3DClass -> IO (Float) @@ -118,7 +120,7 @@ getNearClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFarClipDistance -} setFarClipDistance :: HG3DClass -> Float -> IO () @@ -127,7 +129,7 @@ let {a2' = realToFrac a2} in setFarClipDistance'_ a1' a2' >>= \res -> return () -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getFarClipDistance -} getFarClipDistance :: HG3DClass -> IO (Float) @@ -137,7 +139,7 @@ getFarClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setAspectRatio -} setAspectRatio :: HG3DClass -> Float -> IO () @@ -146,7 +148,7 @@ let {a2' = realToFrac a2} in setAspectRatio'_ a1' a2' >>= \res -> return () -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getAspectRatio -} getAspectRatio :: HG3DClass -> IO (Float) @@ -156,7 +158,7 @@ getAspectRatio'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFrustumOffset -} setFrustumOffset :: HG3DClass -> Vec2 -> IO () @@ -165,7 +167,7 @@ withVec2 a2 $ \a2' -> setFrustumOffset'_ a1' a2' >>= \res -> return () -{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFrustumOffset2 -} setFrustumOffset2 :: HG3DClass -> Float -> Float -> IO () @@ -175,7 +177,7 @@ let {a3' = realToFrac a3} in setFrustumOffset2'_ a1' a2' a3' >>= \res -> return () -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getFrustumOffset -} getFrustumOffset :: HG3DClass -> IO (Vec2) @@ -185,7 +187,7 @@ getFrustumOffset'_ a1' a2' >>= \res -> peekVec2 a2'>>= \a2'' -> return (a2'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFocalLength -} setFocalLength :: HG3DClass -> Float -> IO () @@ -194,7 +196,7 @@ let {a2' = realToFrac a2} in setFocalLength'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getFocalLength -} getFocalLength :: HG3DClass -> IO (Float) @@ -204,7 +206,7 @@ getFocalLength'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setFrustumExtents -} setFrustumExtents :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -216,7 +218,7 @@ let {a5' = realToFrac a5} in setFrustumExtents'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function resetFrustumExtents -} resetFrustumExtents :: HG3DClass -> IO () @@ -224,7 +226,7 @@ withHG3DClass a1 $ \a1' -> resetFrustumExtents'_ a1' >>= \res -> return () -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getFrustumExtents -} getFrustumExtents :: HG3DClass -> IO (Float, Float, Float, Float) @@ -240,7 +242,7 @@ peekFloatConv a4'>>= \a4'' -> peekFloatConv a5'>>= \a5'' -> return (a2'', a3'', a4'', a5'') -{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function isCustomViewMatrixEnabled -} isCustomViewMatrixEnabled :: HG3DClass -> IO (Bool) @@ -250,7 +252,7 @@ isCustomViewMatrixEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function isCustomProjectionMatrixEnabled -} isCustomProjectionMatrixEnabled :: HG3DClass -> IO (Bool) @@ -260,7 +262,7 @@ isCustomProjectionMatrixEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function isVisible3 -} isVisible3 :: HG3DClass -> Vec3 -> IO (EnumFrustumPlane, Bool) @@ -273,7 +275,7 @@ peekEnumUtil a3'>>= \a3'' -> peekBoolUtil a4'>>= \a4'' -> return (a3'', a4'') -{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getTypeFlags -} getTypeFlags :: HG3DClass -> IO (Int) @@ -283,7 +285,7 @@ getTypeFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -293,7 +295,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -303,7 +305,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getMaterial -} getMaterial :: HG3DClass -> IO (SharedPtr) @@ -313,7 +315,7 @@ getMaterial'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -324,7 +326,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getWorldSpaceCorners -} getWorldSpaceCorners :: HG3DClass -> IO (Vec3) @@ -334,7 +336,7 @@ getWorldSpaceCorners'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setProjectionType -} setProjectionType :: HG3DClass -> EnumProjectionType -> IO () @@ -343,7 +345,7 @@ let {a2' = cIntFromEnum a2} in setProjectionType'_ a1' a2' >>= \res -> return () -{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 201 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getProjectionType -} getProjectionType :: HG3DClass -> IO (EnumProjectionType) @@ -353,7 +355,7 @@ getProjectionType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setOrthoWindow -} setOrthoWindow :: HG3DClass -> Float -> Float -> IO () @@ -363,7 +365,7 @@ let {a3' = realToFrac a3} in setOrthoWindow'_ a1' a2' a3' >>= \res -> return () -{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setOrthoWindowHeight -} setOrthoWindowHeight :: HG3DClass -> Float -> IO () @@ -372,7 +374,7 @@ let {a2' = realToFrac a2} in setOrthoWindowHeight'_ a1' a2' >>= \res -> return () -{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setOrthoWindowWidth -} setOrthoWindowWidth :: HG3DClass -> Float -> IO () @@ -381,7 +383,7 @@ let {a2' = realToFrac a2} in setOrthoWindowWidth'_ a1' a2' >>= \res -> return () -{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getOrthoWindowHeight -} getOrthoWindowHeight :: HG3DClass -> IO (Float) @@ -391,7 +393,7 @@ getOrthoWindowHeight'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getOrthoWindowWidth -} getOrthoWindowWidth :: HG3DClass -> IO (Float) @@ -401,7 +403,7 @@ getOrthoWindowWidth'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function disableReflection -} disableReflection :: HG3DClass -> IO () @@ -409,7 +411,7 @@ withHG3DClass a1 $ \a1' -> disableReflection'_ a1' >>= \res -> return () -{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function isReflected -} isReflected :: HG3DClass -> IO (Bool) @@ -419,7 +421,7 @@ isReflected'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function disableCustomNearClipPlane -} disableCustomNearClipPlane :: HG3DClass -> IO () @@ -427,7 +429,7 @@ withHG3DClass a1 $ \a1' -> disableCustomNearClipPlane'_ a1' >>= \res -> return () -{-# LINE 243 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function isCustomNearClipPlaneEnabled -} isCustomNearClipPlaneEnabled :: HG3DClass -> IO (Bool) @@ -437,7 +439,7 @@ isCustomNearClipPlaneEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 248 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getPositionForViewUpdate -} getPositionForViewUpdate :: HG3DClass -> IO (Vec3) @@ -447,7 +449,7 @@ getPositionForViewUpdate'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getOrientationForViewUpdate -} getOrientationForViewUpdate :: HG3DClass -> IO (Quaternion) @@ -457,7 +459,7 @@ getOrientationForViewUpdate'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function setOrientationMode -} setOrientationMode :: HG3DClass -> EnumOrientationMode -> IO () @@ -466,7 +468,7 @@ let {a2' = cIntFromEnum a2} in setOrientationMode'_ a1' a2' >>= \res -> return () -{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} {- function getOrientationMode -} getOrientationMode :: HG3DClass -> IO (EnumOrientationMode) @@ -476,7 +478,7 @@ getOrientationMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} +{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassFrustum.chs.h ogre_frst_construct"
HGamer3D/Bindings/Ogre/ClassHG3DMessagePump.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function HG3DMessagePump -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function ~HG3DMessagePump -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function messagePump -} messagePump :: HG3DClass -> IO () @@ -71,7 +73,7 @@ withHG3DClass a1 $ \a1' -> messagePump'_ a1' >>= \res -> return () -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function eventsPending -} eventsPending :: HG3DClass -> IO (Bool) @@ -81,7 +83,7 @@ eventsPending'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function getKeyUpEvent -} getKeyUpEvent :: HG3DClass -> IO (Int) @@ -91,7 +93,7 @@ getKeyUpEvent'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function getKeyDownEvent -} getKeyDownEvent :: HG3DClass -> IO (Int) @@ -101,7 +103,7 @@ getKeyDownEvent'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} {- function getCharEvent -} getCharEvent :: HG3DClass -> IO (Int) @@ -111,7 +113,7 @@ getCharEvent'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassHG3DMessagePump.chs.h ogre_hg3dmp_construct"
HGamer3D/Bindings/Ogre/ClassLight.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,19 +44,19 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.EnumLightType -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} import HGamer3D.Bindings.Ogre.StructRadians -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function Light2 -} new :: String -> IO (HG3DClass) @@ -64,7 +66,7 @@ new'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function ~Light -} delete :: HG3DClass -> IO () @@ -72,7 +74,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setType -} setType :: HG3DClass -> EnumLightType -> IO () @@ -81,7 +83,7 @@ let {a2' = cIntFromEnum a2} in setType'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getType -} getType :: HG3DClass -> IO (EnumLightType) @@ -91,7 +93,7 @@ getType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setDiffuseColour -} setDiffuseColour :: HG3DClass -> Float -> Float -> Float -> IO () @@ -102,7 +104,7 @@ let {a4' = realToFrac a4} in setDiffuseColour'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setDiffuseColour2 -} setDiffuseColour2 :: HG3DClass -> Colour -> IO () @@ -111,7 +113,7 @@ withColour a2 $ \a2' -> setDiffuseColour2'_ a1' a2' >>= \res -> return () -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getDiffuseColour -} getDiffuseColour :: HG3DClass -> IO (Colour) @@ -121,7 +123,7 @@ getDiffuseColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpecularColour -} setSpecularColour :: HG3DClass -> Float -> Float -> Float -> IO () @@ -132,7 +134,7 @@ let {a4' = realToFrac a4} in setSpecularColour'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpecularColour2 -} setSpecularColour2 :: HG3DClass -> Colour -> IO () @@ -141,7 +143,7 @@ withColour a2 $ \a2' -> setSpecularColour2'_ a1' a2' >>= \res -> return () -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getSpecularColour -} getSpecularColour :: HG3DClass -> IO (Colour) @@ -151,7 +153,7 @@ getSpecularColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setAttenuation -} setAttenuation :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -163,7 +165,7 @@ let {a5' = realToFrac a5} in setAttenuation'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getAttenuationRange -} getAttenuationRange :: HG3DClass -> IO (Float) @@ -173,7 +175,7 @@ getAttenuationRange'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getAttenuationConstant -} getAttenuationConstant :: HG3DClass -> IO (Float) @@ -183,7 +185,7 @@ getAttenuationConstant'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getAttenuationLinear -} getAttenuationLinear :: HG3DClass -> IO (Float) @@ -193,7 +195,7 @@ getAttenuationLinear'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getAttenuationQuadric -} getAttenuationQuadric :: HG3DClass -> IO (Float) @@ -203,7 +205,7 @@ getAttenuationQuadric'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setPosition -} setPosition :: HG3DClass -> Float -> Float -> Float -> IO () @@ -214,7 +216,7 @@ let {a4' = realToFrac a4} in setPosition'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setPosition2 -} setPosition2 :: HG3DClass -> Vec3 -> IO () @@ -223,7 +225,7 @@ withVec3 a2 $ \a2' -> setPosition2'_ a1' a2' >>= \res -> return () -{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getPosition -} getPosition :: HG3DClass -> IO (Vec3) @@ -233,7 +235,7 @@ getPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setDirection -} setDirection :: HG3DClass -> Float -> Float -> Float -> IO () @@ -244,7 +246,7 @@ let {a4' = realToFrac a4} in setDirection'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setDirection2 -} setDirection2 :: HG3DClass -> Vec3 -> IO () @@ -253,7 +255,7 @@ withVec3 a2 $ \a2' -> setDirection2'_ a1' a2' >>= \res -> return () -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getDirection -} getDirection :: HG3DClass -> IO (Vec3) @@ -263,7 +265,7 @@ getDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpotlightRange -} setSpotlightRange :: HG3DClass -> Radians -> Radians -> Float -> IO () @@ -274,7 +276,7 @@ let {a4' = realToFrac a4} in setSpotlightRange'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getSpotlightInnerAngle -} getSpotlightInnerAngle :: HG3DClass -> IO (Radians) @@ -284,7 +286,7 @@ getSpotlightInnerAngle'_ a1' a2' >>= \res -> peekRadians a2'>>= \a2'' -> return (a2'') -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getSpotlightOuterAngle -} getSpotlightOuterAngle :: HG3DClass -> IO (Radians) @@ -294,7 +296,7 @@ getSpotlightOuterAngle'_ a1' a2' >>= \res -> peekRadians a2'>>= \a2'' -> return (a2'') -{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getSpotlightFalloff -} getSpotlightFalloff :: HG3DClass -> IO (Float) @@ -304,7 +306,7 @@ getSpotlightFalloff'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpotlightInnerAngle -} setSpotlightInnerAngle :: HG3DClass -> Radians -> IO () @@ -313,7 +315,7 @@ withRadians a2 $ \a2' -> setSpotlightInnerAngle'_ a1' a2' >>= \res -> return () -{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpotlightOuterAngle -} setSpotlightOuterAngle :: HG3DClass -> Radians -> IO () @@ -322,7 +324,7 @@ withRadians a2 $ \a2' -> setSpotlightOuterAngle'_ a1' a2' >>= \res -> return () -{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpotlightFalloff -} setSpotlightFalloff :: HG3DClass -> Float -> IO () @@ -331,7 +333,7 @@ let {a2' = realToFrac a2} in setSpotlightFalloff'_ a1' a2' >>= \res -> return () -{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 201 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setSpotlightNearClipDistance -} setSpotlightNearClipDistance :: HG3DClass -> Float -> IO () @@ -340,7 +342,7 @@ let {a2' = realToFrac a2} in setSpotlightNearClipDistance'_ a1' a2' >>= \res -> return () -{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getSpotlightNearClipDistance -} getSpotlightNearClipDistance :: HG3DClass -> IO (Float) @@ -350,7 +352,7 @@ getSpotlightNearClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setPowerScale -} setPowerScale :: HG3DClass -> Float -> IO () @@ -359,7 +361,7 @@ let {a2' = realToFrac a2} in setPowerScale'_ a1' a2' >>= \res -> return () -{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getPowerScale -} getPowerScale :: HG3DClass -> IO (Float) @@ -369,7 +371,7 @@ getPowerScale'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -379,7 +381,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getDerivedPosition -} getDerivedPosition :: HG3DClass -> Bool -> IO (Vec3) @@ -390,7 +392,7 @@ getDerivedPosition'_ a1' a2' a3' >>= \res -> peekVec3 a3'>>= \a3'' -> return (a3'') -{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getDerivedDirection -} getDerivedDirection :: HG3DClass -> IO (Vec3) @@ -400,7 +402,7 @@ getDerivedDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setVisible -} setVisible :: HG3DClass -> Bool -> IO () @@ -409,7 +411,7 @@ let {a2' = fromBool a2} in setVisible'_ a1' a2' >>= \res -> return () -{-# LINE 240 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -419,7 +421,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getTypeFlags -} getTypeFlags :: HG3DClass -> IO (Int) @@ -429,7 +431,7 @@ getTypeFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 252 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function resetCustomShadowCameraSetup -} resetCustomShadowCameraSetup :: HG3DClass -> IO () @@ -437,7 +439,7 @@ withHG3DClass a1 $ \a1' -> resetCustomShadowCameraSetup'_ a1' >>= \res -> return () -{-# LINE 254 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setShadowFarDistance -} setShadowFarDistance :: HG3DClass -> Float -> IO () @@ -446,7 +448,7 @@ let {a2' = realToFrac a2} in setShadowFarDistance'_ a1' a2' >>= \res -> return () -{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function resetShadowFarDistance -} resetShadowFarDistance :: HG3DClass -> IO () @@ -454,7 +456,7 @@ withHG3DClass a1 $ \a1' -> resetShadowFarDistance'_ a1' >>= \res -> return () -{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getShadowFarDistance -} getShadowFarDistance :: HG3DClass -> IO (Float) @@ -464,7 +466,7 @@ getShadowFarDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getShadowFarDistanceSquared -} getShadowFarDistanceSquared :: HG3DClass -> IO (Float) @@ -474,7 +476,7 @@ getShadowFarDistanceSquared'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 273 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setShadowNearClipDistance -} setShadowNearClipDistance :: HG3DClass -> Float -> IO () @@ -483,7 +485,7 @@ let {a2' = realToFrac a2} in setShadowNearClipDistance'_ a1' a2' >>= \res -> return () -{-# LINE 278 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getShadowNearClipDistance -} getShadowNearClipDistance :: HG3DClass -> IO (Float) @@ -493,7 +495,7 @@ getShadowNearClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 283 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function setShadowFarClipDistance -} setShadowFarClipDistance :: HG3DClass -> Float -> IO () @@ -502,7 +504,7 @@ let {a2' = realToFrac a2} in setShadowFarClipDistance'_ a1' a2' >>= \res -> return () -{-# LINE 288 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} {- function getShadowFarClipDistance -} getShadowFarClipDistance :: HG3DClass -> IO (Float) @@ -512,7 +514,7 @@ getShadowFarClipDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 293 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} +{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassLight.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLight.chs.h ogre_lgt_construct"
HGamer3D/Bindings/Ogre/ClassLightFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} {- function LightFactory -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} {- function ~LightFactory -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -73,7 +75,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLightFactory.chs.h ogre_lgtf_construct"
HGamer3D/Bindings/Ogre/ClassLog.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} import HGamer3D.Bindings.Ogre.EnumLogMessageLevel -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} import HGamer3D.Bindings.Ogre.EnumLoggingLevel -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function ~Log -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -68,7 +70,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function isDebugOutputEnabled -} isDebugOutputEnabled :: HG3DClass -> IO (Bool) @@ -78,7 +80,7 @@ isDebugOutputEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function isFileOutputSuppressed -} isFileOutputSuppressed :: HG3DClass -> IO (Bool) @@ -88,7 +90,7 @@ isFileOutputSuppressed'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function isTimeStampEnabled -} isTimeStampEnabled :: HG3DClass -> IO (Bool) @@ -98,7 +100,7 @@ isTimeStampEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function logMessage -} logMessage :: HG3DClass -> String -> EnumLogMessageLevel -> Bool -> IO () @@ -109,7 +111,7 @@ let {a4' = fromBool a4} in logMessage'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function setDebugOutputEnabled -} setDebugOutputEnabled :: HG3DClass -> Bool -> IO () @@ -118,7 +120,7 @@ let {a2' = fromBool a2} in setDebugOutputEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function setLogDetail -} setLogDetail :: HG3DClass -> EnumLoggingLevel -> IO () @@ -127,7 +129,7 @@ let {a2' = cIntFromEnum a2} in setLogDetail'_ a1' a2' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function setTimeStampEnabled -} setTimeStampEnabled :: HG3DClass -> Bool -> IO () @@ -136,7 +138,7 @@ let {a2' = fromBool a2} in setTimeStampEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} {- function getLogDetail -} getLogDetail :: HG3DClass -> IO (EnumLoggingLevel) @@ -146,7 +148,7 @@ getLogDetail'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassLog.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLog.chs.h ogre_lg_destruct"
HGamer3D/Bindings/Ogre/ClassLogManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} import HGamer3D.Bindings.Ogre.EnumLogMessageLevel -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} import HGamer3D.Bindings.Ogre.EnumLoggingLevel -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function ~LogManager -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function createLog -} createLog :: HG3DClass -> String -> Bool -> Bool -> Bool -> IO (HG3DClass) @@ -72,7 +74,7 @@ createLog'_ a1' a2' a3' a4' a5' a6' >>= \res -> peek a6'>>= \a6'' -> return (a6'') -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function getLog -} getLog :: HG3DClass -> String -> IO (HG3DClass) @@ -83,7 +85,7 @@ getLog'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function getDefaultLog -} getDefaultLog :: HG3DClass -> IO (HG3DClass) @@ -93,7 +95,7 @@ getDefaultLog'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function destroyLog -} destroyLog :: HG3DClass -> String -> IO () @@ -102,7 +104,7 @@ withCString a2 $ \a2' -> destroyLog'_ a1' a2' >>= \res -> return () -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function destroyLog2 -} destroyLog2 :: HG3DClass -> HG3DClass -> IO () @@ -111,7 +113,7 @@ withHG3DClass a2 $ \a2' -> destroyLog2'_ a1' a2' >>= \res -> return () -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function setDefaultLog -} setDefaultLog :: HG3DClass -> HG3DClass -> IO (HG3DClass) @@ -122,7 +124,7 @@ setDefaultLog'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function logMessage -} logMessage :: HG3DClass -> String -> EnumLogMessageLevel -> Bool -> IO () @@ -133,7 +135,7 @@ let {a4' = fromBool a4} in logMessage'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function logMessage2 -} logMessage2 :: HG3DClass -> EnumLogMessageLevel -> String -> Bool -> IO () @@ -144,7 +146,7 @@ let {a4' = fromBool a4} in logMessage2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function setLogDetail -} setLogDetail :: HG3DClass -> EnumLoggingLevel -> IO () @@ -153,7 +155,7 @@ let {a2' = cIntFromEnum a2} in setLogDetail'_ a1' a2' >>= \res -> return () -{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -162,7 +164,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -171,7 +173,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassLogManager.chs.h ogre_lmgr_destruct"
HGamer3D/Bindings/Ogre/ClassManualObject.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,21 +44,21 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.StructVec2 -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function ManualObject -} new :: String -> IO (HG3DClass) @@ -66,7 +68,7 @@ new'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function ~ManualObject -} delete :: HG3DClass -> IO () @@ -74,7 +76,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function clear -} clear :: HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a1 $ \a1' -> clear'_ a1' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function estimateVertexCount -} estimateVertexCount :: HG3DClass -> Int -> IO () @@ -91,7 +93,7 @@ let {a2' = fromIntegral a2} in estimateVertexCount'_ a1' a2' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function estimateIndexCount -} estimateIndexCount :: HG3DClass -> Int -> IO () @@ -100,7 +102,7 @@ let {a2' = fromIntegral a2} in estimateIndexCount'_ a1' a2' >>= \res -> return () -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function begin -} begin :: HG3DClass -> String -> EnumRenderOperationOperationType -> String -> IO () @@ -111,7 +113,7 @@ withCString a4 $ \a4' -> begin'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function setDynamic -} setDynamic :: HG3DClass -> Bool -> IO () @@ -120,7 +122,7 @@ let {a2' = fromBool a2} in setDynamic'_ a1' a2' >>= \res -> return () -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getDynamic -} getDynamic :: HG3DClass -> IO (Bool) @@ -130,7 +132,7 @@ getDynamic'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function beginUpdate -} beginUpdate :: HG3DClass -> Int -> IO () @@ -139,7 +141,7 @@ let {a2' = fromIntegral a2} in beginUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function position -} position :: HG3DClass -> Vec3 -> IO () @@ -148,7 +150,7 @@ withVec3 a2 $ \a2' -> position'_ a1' a2' >>= \res -> return () -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function position2 -} position2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -159,7 +161,7 @@ let {a4' = realToFrac a4} in position2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function normal -} normal :: HG3DClass -> Vec3 -> IO () @@ -168,7 +170,7 @@ withVec3 a2 $ \a2' -> normal'_ a1' a2' >>= \res -> return () -{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function normal2 -} normal2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -179,7 +181,7 @@ let {a4' = realToFrac a4} in normal2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function tangent -} tangent :: HG3DClass -> Vec3 -> IO () @@ -188,7 +190,7 @@ withVec3 a2 $ \a2' -> tangent'_ a1' a2' >>= \res -> return () -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function tangent2 -} tangent2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -199,7 +201,7 @@ let {a4' = realToFrac a4} in tangent2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord -} textureCoord :: HG3DClass -> Float -> IO () @@ -208,7 +210,7 @@ let {a2' = realToFrac a2} in textureCoord'_ a1' a2' >>= \res -> return () -{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord2 -} textureCoord2 :: HG3DClass -> Float -> Float -> IO () @@ -218,7 +220,7 @@ let {a3' = realToFrac a3} in textureCoord2'_ a1' a2' a3' >>= \res -> return () -{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord3 -} textureCoord3 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -229,7 +231,7 @@ let {a4' = realToFrac a4} in textureCoord3'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord4 -} textureCoord4 :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -241,7 +243,7 @@ let {a5' = realToFrac a5} in textureCoord4'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord5 -} textureCoord5 :: HG3DClass -> Vec2 -> IO () @@ -250,7 +252,7 @@ withVec2 a2 $ \a2' -> textureCoord5'_ a1' a2' >>= \res -> return () -{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function textureCoord6 -} textureCoord6 :: HG3DClass -> Vec3 -> IO () @@ -259,7 +261,7 @@ withVec3 a2 $ \a2' -> textureCoord6'_ a1' a2' >>= \res -> return () -{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function colour -} colour :: HG3DClass -> Colour -> IO () @@ -268,7 +270,7 @@ withColour a2 $ \a2' -> colour'_ a1' a2' >>= \res -> return () -{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function colour2 -} colour2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -280,7 +282,7 @@ let {a5' = realToFrac a5} in colour2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function index -} index :: HG3DClass -> Int -> IO () @@ -289,7 +291,7 @@ let {a2' = fromIntegral a2} in index'_ a1' a2' >>= \res -> return () -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function triangle -} triangle :: HG3DClass -> Int -> Int -> Int -> IO () @@ -300,7 +302,7 @@ let {a4' = fromIntegral a4} in triangle'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function quad -} quad :: HG3DClass -> Int -> Int -> Int -> Int -> IO () @@ -312,7 +314,7 @@ let {a5' = fromIntegral a5} in quad'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getCurrentVertexCount -} getCurrentVertexCount :: HG3DClass -> IO (Int) @@ -322,7 +324,7 @@ getCurrentVertexCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 203 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getCurrentIndexCount -} getCurrentIndexCount :: HG3DClass -> IO (Int) @@ -332,7 +334,7 @@ getCurrentIndexCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function end -} end :: HG3DClass -> IO (HG3DClass) @@ -342,7 +344,7 @@ end'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function setMaterialName -} setMaterialName :: HG3DClass -> Int -> String -> String -> IO () @@ -353,7 +355,7 @@ withCString a4 $ \a4' -> setMaterialName'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function convertToMesh -} convertToMesh :: HG3DClass -> String -> String -> IO (SharedPtr) @@ -365,7 +367,7 @@ convertToMesh'_ a1' a2' a3' a4' >>= \res -> peekSharedPtr a4'>>= \a4'' -> return (a4'') -{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function setUseIdentityProjection -} setUseIdentityProjection :: HG3DClass -> Bool -> IO () @@ -374,7 +376,7 @@ let {a2' = fromBool a2} in setUseIdentityProjection'_ a1' a2' >>= \res -> return () -{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getUseIdentityProjection -} getUseIdentityProjection :: HG3DClass -> IO (Bool) @@ -384,7 +386,7 @@ getUseIdentityProjection'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function setUseIdentityView -} setUseIdentityView :: HG3DClass -> Bool -> IO () @@ -393,7 +395,7 @@ let {a2' = fromBool a2} in setUseIdentityView'_ a1' a2' >>= \res -> return () -{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getUseIdentityView -} getUseIdentityView :: HG3DClass -> IO (Bool) @@ -403,7 +405,7 @@ getUseIdentityView'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getSection -} getSection :: HG3DClass -> Int -> IO (HG3DClass) @@ -414,7 +416,7 @@ getSection'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getNumSections -} getNumSections :: HG3DClass -> IO (Int) @@ -424,7 +426,7 @@ getNumSections'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function setKeepDeclarationOrder -} setKeepDeclarationOrder :: HG3DClass -> Bool -> IO () @@ -433,7 +435,7 @@ let {a2' = fromBool a2} in setKeepDeclarationOrder'_ a1' a2' >>= \res -> return () -{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getKeepDeclarationOrder -} getKeepDeclarationOrder :: HG3DClass -> IO (Bool) @@ -443,7 +445,7 @@ getKeepDeclarationOrder'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -453,7 +455,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 273 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -463,7 +465,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 278 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} {- function hasEdgeList -} hasEdgeList :: HG3DClass -> IO (Bool) @@ -473,7 +475,7 @@ hasEdgeList'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 283 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} +{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObject.chs.h ogre_mno_construct"
HGamer3D/Bindings/Ogre/ClassManualObjectFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} {- function ManualObjectFactory -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} {- function ~ManualObjectFactory -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -73,7 +75,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -82,7 +84,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectFactory.chs.h ogre_mnof_construct"
HGamer3D/Bindings/Ogre/ClassManualObjectSection.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} import HGamer3D.Bindings.Ogre.EnumRenderOperationOperationType -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function ManualObjectSection -} new :: HG3DClass -> String -> EnumRenderOperationOperationType -> String -> IO (HG3DClass) @@ -63,7 +65,7 @@ new'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function ~ManualObjectSection -} delete :: HG3DClass -> IO () @@ -71,7 +73,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function getMaterialName -} getMaterialName :: HG3DClass -> IO (String) @@ -81,7 +83,7 @@ getMaterialName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function getMaterialGroup -} getMaterialGroup :: HG3DClass -> IO (String) @@ -91,7 +93,7 @@ getMaterialGroup'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function setMaterialName -} setMaterialName :: HG3DClass -> String -> String -> IO () @@ -101,7 +103,7 @@ withCString a3 $ \a3' -> setMaterialName'_ a1' a2' a3' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function set32BitIndices -} set32BitIndices :: HG3DClass -> Bool -> IO () @@ -110,7 +112,7 @@ let {a2' = fromBool a2} in set32BitIndices'_ a1' a2' >>= \res -> return () -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function get32BitIndices -} get32BitIndices :: HG3DClass -> IO (Bool) @@ -120,7 +122,7 @@ get32BitIndices'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function getMaterial -} getMaterial :: HG3DClass -> IO (SharedPtr) @@ -130,7 +132,7 @@ getMaterial'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -141,7 +143,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} +{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassManualObjectSection.chs.h ogre_mnos_construct"
HGamer3D/Bindings/Ogre/ClassMaterial.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function ~Material -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function isTransparent -} isTransparent :: HG3DClass -> IO (Bool) @@ -68,7 +70,7 @@ isTransparent'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setReceiveShadows -} setReceiveShadows :: HG3DClass -> Bool -> IO () @@ -77,7 +79,7 @@ let {a2' = fromBool a2} in setReceiveShadows'_ a1' a2' >>= \res -> return () -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getReceiveShadows -} getReceiveShadows :: HG3DClass -> IO (Bool) @@ -87,7 +89,7 @@ getReceiveShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setTransparencyCastsShadows -} setTransparencyCastsShadows :: HG3DClass -> Bool -> IO () @@ -96,7 +98,7 @@ let {a2' = fromBool a2} in setTransparencyCastsShadows'_ a1' a2' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getTransparencyCastsShadows -} getTransparencyCastsShadows :: HG3DClass -> IO (Bool) @@ -106,7 +108,7 @@ getTransparencyCastsShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getNumTechniques -} getNumTechniques :: HG3DClass -> IO (Int) @@ -116,7 +118,7 @@ getNumTechniques'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function removeTechnique -} removeTechnique :: HG3DClass -> Int -> IO () @@ -125,7 +127,7 @@ let {a2' = fromIntegral a2} in removeTechnique'_ a1' a2' >>= \res -> return () -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function removeAllTechniques -} removeAllTechniques :: HG3DClass -> IO () @@ -133,7 +135,7 @@ withHG3DClass a1 $ \a1' -> removeAllTechniques'_ a1' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getNumSupportedTechniques -} getNumSupportedTechniques :: HG3DClass -> IO (Int) @@ -143,7 +145,7 @@ getNumSupportedTechniques'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getUnsupportedTechniquesExplanation -} getUnsupportedTechniquesExplanation :: HG3DClass -> IO (String) @@ -153,7 +155,7 @@ getUnsupportedTechniquesExplanation'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getNumLodLevels -} getNumLodLevels :: HG3DClass -> Int -> IO (Int) @@ -164,7 +166,7 @@ getNumLodLevels'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getNumLodLevels2 -} getNumLodLevels2 :: HG3DClass -> String -> IO (Int) @@ -175,7 +177,7 @@ getNumLodLevels2'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function clone -} clone :: HG3DClass -> String -> Bool -> String -> IO (SharedPtr) @@ -188,7 +190,7 @@ clone'_ a1' a2' a3' a4' a5' >>= \res -> peekSharedPtr a5'>>= \a5'' -> return (a5'') -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function copyDetailsTo -} copyDetailsTo :: HG3DClass -> IO (SharedPtr) @@ -198,7 +200,7 @@ copyDetailsTo'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function compile -} compile :: HG3DClass -> Bool -> IO () @@ -207,7 +209,7 @@ let {a2' = fromBool a2} in compile'_ a1' a2' >>= \res -> return () -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setPointSize -} setPointSize :: HG3DClass -> Float -> IO () @@ -216,7 +218,7 @@ let {a2' = realToFrac a2} in setPointSize'_ a1' a2' >>= \res -> return () -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setAmbient -} setAmbient :: HG3DClass -> Float -> Float -> Float -> IO () @@ -227,7 +229,7 @@ let {a4' = realToFrac a4} in setAmbient'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setAmbient2 -} setAmbient2 :: HG3DClass -> Colour -> IO () @@ -236,7 +238,7 @@ withColour a2 $ \a2' -> setAmbient2'_ a1' a2' >>= \res -> return () -{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setDiffuse -} setDiffuse :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -248,7 +250,7 @@ let {a5' = realToFrac a5} in setDiffuse'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setDiffuse2 -} setDiffuse2 :: HG3DClass -> Colour -> IO () @@ -257,7 +259,7 @@ withColour a2 $ \a2' -> setDiffuse2'_ a1' a2' >>= \res -> return () -{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setSpecular -} setSpecular :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -269,7 +271,7 @@ let {a5' = realToFrac a5} in setSpecular'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setSpecular2 -} setSpecular2 :: HG3DClass -> Colour -> IO () @@ -278,7 +280,7 @@ withColour a2 $ \a2' -> setSpecular2'_ a1' a2' >>= \res -> return () -{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setShininess -} setShininess :: HG3DClass -> Float -> IO () @@ -287,7 +289,7 @@ let {a2' = realToFrac a2} in setShininess'_ a1' a2' >>= \res -> return () -{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setSelfIllumination -} setSelfIllumination :: HG3DClass -> Float -> Float -> Float -> IO () @@ -298,7 +300,7 @@ let {a4' = realToFrac a4} in setSelfIllumination'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setSelfIllumination2 -} setSelfIllumination2 :: HG3DClass -> Colour -> IO () @@ -307,7 +309,7 @@ withColour a2 $ \a2' -> setSelfIllumination2'_ a1' a2' >>= \res -> return () -{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setDepthCheckEnabled -} setDepthCheckEnabled :: HG3DClass -> Bool -> IO () @@ -316,7 +318,7 @@ let {a2' = fromBool a2} in setDepthCheckEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setDepthWriteEnabled -} setDepthWriteEnabled :: HG3DClass -> Bool -> IO () @@ -325,7 +327,7 @@ let {a2' = fromBool a2} in setDepthWriteEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setColourWriteEnabled -} setColourWriteEnabled :: HG3DClass -> Bool -> IO () @@ -334,7 +336,7 @@ let {a2' = fromBool a2} in setColourWriteEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 203 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setLightingEnabled -} setLightingEnabled :: HG3DClass -> Bool -> IO () @@ -343,7 +345,7 @@ let {a2' = fromBool a2} in setLightingEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setDepthBias -} setDepthBias :: HG3DClass -> Float -> Float -> IO () @@ -353,7 +355,7 @@ let {a3' = realToFrac a3} in setDepthBias'_ a1' a2' a3' >>= \res -> return () -{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function setTextureAnisotropy -} setTextureAnisotropy :: HG3DClass -> Int -> IO () @@ -362,7 +364,7 @@ let {a2' = fromIntegral a2} in setTextureAnisotropy'_ a1' a2' >>= \res -> return () -{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function touch -} touch :: HG3DClass -> IO () @@ -370,7 +372,7 @@ withHG3DClass a1 $ \a1' -> touch'_ a1' >>= \res -> return () -{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} {- function getCompilationRequired -} getCompilationRequired :: HG3DClass -> IO (Bool) @@ -380,7 +382,7 @@ getCompilationRequired'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} +{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterial.chs.h ogre_mtrl_destruct"
HGamer3D/Bindings/Ogre/ClassMaterialManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,13 +44,13 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function MaterialManager -} new :: IO (HG3DClass) @@ -57,7 +59,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function ~MaterialManager -} delete :: HG3DClass -> IO () @@ -65,7 +67,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function initialise -} initialise :: HG3DClass -> IO () @@ -73,7 +75,7 @@ withHG3DClass a1 $ \a1' -> initialise'_ a1' >>= \res -> return () -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function setDefaultAnisotropy -} setDefaultAnisotropy :: HG3DClass -> Int -> IO () @@ -82,7 +84,7 @@ let {a2' = fromIntegral a2} in setDefaultAnisotropy'_ a1' a2' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function getDefaultAnisotropy -} getDefaultAnisotropy :: HG3DClass -> IO (Int) @@ -92,7 +94,7 @@ getDefaultAnisotropy'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function getDefaultSettings -} getDefaultSettings :: HG3DClass -> IO (SharedPtr) @@ -102,7 +104,7 @@ getDefaultSettings'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function getActiveScheme -} getActiveScheme :: HG3DClass -> IO (String) @@ -112,7 +114,7 @@ getActiveScheme'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function setActiveScheme -} setActiveScheme :: HG3DClass -> String -> IO () @@ -121,7 +123,7 @@ withCString a2 $ \a2' -> setActiveScheme'_ a1' a2' >>= \res -> return () -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -130,7 +132,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -139,7 +141,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMaterialManager.chs.h ogre_mtrlmgr_construct"
HGamer3D/Bindings/Ogre/ClassMesh.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} import HGamer3D.Bindings.Ogre.EnumVertexAnimationType -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function ~Mesh -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function unnameSubMesh -} unnameSubMesh :: HG3DClass -> String -> IO () @@ -67,7 +69,7 @@ withCString a2 $ \a2' -> unnameSubMesh'_ a1' a2' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getNumSubMeshes -} getNumSubMeshes :: HG3DClass -> IO (Int) @@ -77,7 +79,7 @@ getNumSubMeshes'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function destroySubMesh -} destroySubMesh :: HG3DClass -> Int -> IO () @@ -86,7 +88,7 @@ let {a2' = fromIntegral a2} in destroySubMesh'_ a1' a2' >>= \res -> return () -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function destroySubMesh2 -} destroySubMesh2 :: HG3DClass -> String -> IO () @@ -95,7 +97,7 @@ withCString a2 $ \a2' -> destroySubMesh2'_ a1' a2' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function clone -} clone :: HG3DClass -> String -> String -> IO (SharedPtr) @@ -107,7 +109,7 @@ clone'_ a1' a2' a3' a4' >>= \res -> peekSharedPtr a4'>>= \a4'' -> return (a4'') -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getBoundingSphereRadius -} getBoundingSphereRadius :: HG3DClass -> IO (Float) @@ -117,7 +119,7 @@ getBoundingSphereRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function setSkeletonName -} setSkeletonName :: HG3DClass -> String -> IO () @@ -126,7 +128,7 @@ withCString a2 $ \a2' -> setSkeletonName'_ a1' a2' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function hasSkeleton -} hasSkeleton :: HG3DClass -> IO (Bool) @@ -136,7 +138,7 @@ hasSkeleton'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function hasVertexAnimation -} hasVertexAnimation :: HG3DClass -> IO (Bool) @@ -146,7 +148,7 @@ hasVertexAnimation'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getSkeleton -} getSkeleton :: HG3DClass -> IO (SharedPtr) @@ -156,7 +158,7 @@ getSkeleton'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getSkeletonName -} getSkeletonName :: HG3DClass -> IO (String) @@ -166,7 +168,7 @@ getSkeletonName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function clearBoneAssignments -} clearBoneAssignments :: HG3DClass -> IO () @@ -174,7 +176,7 @@ withHG3DClass a1 $ \a1' -> clearBoneAssignments'_ a1' >>= \res -> return () -{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function createManualLodLevel -} createManualLodLevel :: HG3DClass -> Float -> String -> String -> IO () @@ -185,7 +187,7 @@ withCString a4 $ \a4' -> createManualLodLevel'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function isLodManual -} isLodManual :: HG3DClass -> IO (Bool) @@ -195,7 +197,7 @@ isLodManual'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function removeLodLevels -} removeLodLevels :: HG3DClass -> IO () @@ -203,7 +205,7 @@ withHG3DClass a1 $ \a1' -> removeLodLevels'_ a1' >>= \res -> return () -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function isVertexBufferShadowed -} isVertexBufferShadowed :: HG3DClass -> IO (Bool) @@ -213,7 +215,7 @@ isVertexBufferShadowed'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function isIndexBufferShadowed -} isIndexBufferShadowed :: HG3DClass -> IO (Bool) @@ -223,7 +225,7 @@ isIndexBufferShadowed'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function buildEdgeList -} buildEdgeList :: HG3DClass -> IO () @@ -231,7 +233,7 @@ withHG3DClass a1 $ \a1' -> buildEdgeList'_ a1' >>= \res -> return () -{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function freeEdgeList -} freeEdgeList :: HG3DClass -> IO () @@ -239,7 +241,7 @@ withHG3DClass a1 $ \a1' -> freeEdgeList'_ a1' >>= \res -> return () -{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function prepareForShadowVolume -} prepareForShadowVolume :: HG3DClass -> IO () @@ -247,7 +249,7 @@ withHG3DClass a1 $ \a1' -> prepareForShadowVolume'_ a1' >>= \res -> return () -{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function isPreparedForShadowVolumes -} isPreparedForShadowVolumes :: HG3DClass -> IO (Bool) @@ -257,7 +259,7 @@ isPreparedForShadowVolumes'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function isEdgeListBuilt -} isEdgeListBuilt :: HG3DClass -> IO (Bool) @@ -267,7 +269,7 @@ isEdgeListBuilt'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function setAutoBuildEdgeLists -} setAutoBuildEdgeLists :: HG3DClass -> Bool -> IO () @@ -276,7 +278,7 @@ let {a2' = fromBool a2} in setAutoBuildEdgeLists'_ a1' a2' >>= \res -> return () -{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getAutoBuildEdgeLists -} getAutoBuildEdgeLists :: HG3DClass -> IO (Bool) @@ -286,7 +288,7 @@ getAutoBuildEdgeLists'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getSharedVertexDataAnimationType -} getSharedVertexDataAnimationType :: HG3DClass -> IO (EnumVertexAnimationType) @@ -296,7 +298,7 @@ getSharedVertexDataAnimationType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getSharedVertexDataAnimationIncludesNormals -} getSharedVertexDataAnimationIncludesNormals :: HG3DClass -> IO (Bool) @@ -306,7 +308,7 @@ getSharedVertexDataAnimationIncludesNormals'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function createAnimation -} createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass) @@ -318,7 +320,7 @@ createAnimation'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getAnimation -} getAnimation :: HG3DClass -> String -> IO (HG3DClass) @@ -329,7 +331,7 @@ getAnimation'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function hasAnimation -} hasAnimation :: HG3DClass -> String -> IO (Bool) @@ -340,7 +342,7 @@ hasAnimation'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function removeAnimation -} removeAnimation :: HG3DClass -> String -> IO () @@ -349,7 +351,7 @@ withCString a2 $ \a2' -> removeAnimation'_ a1' a2' >>= \res -> return () -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getNumAnimations -} getNumAnimations :: HG3DClass -> IO (Int) @@ -359,7 +361,7 @@ getNumAnimations'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getAnimation2 -} getAnimation2 :: HG3DClass -> Int -> IO (HG3DClass) @@ -370,7 +372,7 @@ getAnimation2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 215 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function removeAllAnimations -} removeAllAnimations :: HG3DClass -> IO () @@ -378,7 +380,7 @@ withHG3DClass a1 $ \a1' -> removeAllAnimations'_ a1' >>= \res -> return () -{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function updateMaterialForAllSubMeshes -} updateMaterialForAllSubMeshes :: HG3DClass -> IO () @@ -386,7 +388,7 @@ withHG3DClass a1 $ \a1' -> updateMaterialForAllSubMeshes'_ a1' >>= \res -> return () -{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function getPoseCount -} getPoseCount :: HG3DClass -> IO (Int) @@ -396,7 +398,7 @@ getPoseCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function removePose2 -} removePose2 :: HG3DClass -> String -> IO () @@ -405,7 +407,7 @@ withCString a2 $ \a2' -> removePose2'_ a1' a2' >>= \res -> return () -{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} {- function removeAllPoses -} removeAllPoses :: HG3DClass -> IO () @@ -413,7 +415,7 @@ withHG3DClass a1 $ \a1' -> removeAllPoses'_ a1' >>= \res -> return () -{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} +{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassMesh.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMesh.chs.h ogre_msh_destruct"
HGamer3D/Bindings/Ogre/ClassMeshManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function MeshManager -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function ~MeshManager -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function setPrepareAllMeshesForShadowVolumes -} setPrepareAllMeshesForShadowVolumes :: HG3DClass -> Bool -> IO () @@ -72,7 +74,7 @@ let {a2' = fromBool a2} in setPrepareAllMeshesForShadowVolumes'_ a1' a2' >>= \res -> return () -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function getPrepareAllMeshesForShadowVolumes -} getPrepareAllMeshesForShadowVolumes :: HG3DClass -> IO (Bool) @@ -82,7 +84,7 @@ getPrepareAllMeshesForShadowVolumes'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function getBoundsPaddingFactor -} getBoundsPaddingFactor :: HG3DClass -> IO (Float) @@ -92,7 +94,7 @@ getBoundsPaddingFactor'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function setBoundsPaddingFactor -} setBoundsPaddingFactor :: HG3DClass -> Float -> IO () @@ -101,7 +103,7 @@ let {a2' = realToFrac a2} in setBoundsPaddingFactor'_ a1' a2' >>= \res -> return () -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function loadResource -} loadResource :: HG3DClass -> HG3DClass -> IO () @@ -110,7 +112,7 @@ withHG3DClass a2 $ \a2' -> loadResource'_ a1' a2' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -119,7 +121,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -128,7 +130,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMeshManager.chs.h ogre_mshmgr_construct"
HGamer3D/Bindings/Ogre/ClassMovableObject.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function ~MovableObject -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -64,7 +66,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getMovableType -} getMovableType :: HG3DClass -> IO (String) @@ -74,7 +76,7 @@ getMovableType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getParentNode -} getParentNode :: HG3DClass -> IO (HG3DClass) @@ -84,7 +86,7 @@ getParentNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getParentSceneNode -} getParentSceneNode :: HG3DClass -> IO (HG3DClass) @@ -94,7 +96,7 @@ getParentSceneNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function isParentTagPoint -} isParentTagPoint :: HG3DClass -> IO (Bool) @@ -104,7 +106,7 @@ isParentTagPoint'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function isAttached -} isAttached :: HG3DClass -> IO (Bool) @@ -114,7 +116,7 @@ isAttached'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function detachFromParent -} detachFromParent :: HG3DClass -> IO () @@ -122,7 +124,7 @@ withHG3DClass a1 $ \a1' -> detachFromParent'_ a1' >>= \res -> return () -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function isInScene -} isInScene :: HG3DClass -> IO (Bool) @@ -132,7 +134,7 @@ isInScene'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getBoundingRadius -} getBoundingRadius :: HG3DClass -> IO (Float) @@ -142,7 +144,7 @@ getBoundingRadius'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setVisible -} setVisible :: HG3DClass -> Bool -> IO () @@ -151,7 +153,7 @@ let {a2' = fromBool a2} in setVisible'_ a1' a2' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getVisible -} getVisible :: HG3DClass -> IO (Bool) @@ -161,7 +163,7 @@ getVisible'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function isVisible -} isVisible :: HG3DClass -> IO (Bool) @@ -171,7 +173,7 @@ isVisible'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setRenderingDistance -} setRenderingDistance :: HG3DClass -> Float -> IO () @@ -180,7 +182,7 @@ let {a2' = realToFrac a2} in setRenderingDistance'_ a1' a2' >>= \res -> return () -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getRenderingDistance -} getRenderingDistance :: HG3DClass -> IO (Float) @@ -190,7 +192,7 @@ getRenderingDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setRenderingMinPixelSize -} setRenderingMinPixelSize :: HG3DClass -> Float -> IO () @@ -199,7 +201,7 @@ let {a2' = realToFrac a2} in setRenderingMinPixelSize'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getRenderingMinPixelSize -} getRenderingMinPixelSize :: HG3DClass -> IO (Float) @@ -209,7 +211,7 @@ getRenderingMinPixelSize'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setQueryFlags -} setQueryFlags :: HG3DClass -> Int -> IO () @@ -218,7 +220,7 @@ let {a2' = fromIntegral a2} in setQueryFlags'_ a1' a2' >>= \res -> return () -{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function addQueryFlags -} addQueryFlags :: HG3DClass -> Int -> IO () @@ -227,7 +229,7 @@ let {a2' = fromIntegral a2} in addQueryFlags'_ a1' a2' >>= \res -> return () -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function removeQueryFlags -} removeQueryFlags :: HG3DClass -> Int -> IO () @@ -236,7 +238,7 @@ let {a2' = fromIntegral a2} in removeQueryFlags'_ a1' a2' >>= \res -> return () -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getQueryFlags -} getQueryFlags :: HG3DClass -> IO (Int) @@ -246,7 +248,7 @@ getQueryFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setVisibilityFlags -} setVisibilityFlags :: HG3DClass -> Int -> IO () @@ -255,7 +257,7 @@ let {a2' = fromIntegral a2} in setVisibilityFlags'_ a1' a2' >>= \res -> return () -{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function addVisibilityFlags -} addVisibilityFlags :: HG3DClass -> Int -> IO () @@ -264,7 +266,7 @@ let {a2' = fromIntegral a2} in addVisibilityFlags'_ a1' a2' >>= \res -> return () -{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function removeVisibilityFlags -} removeVisibilityFlags :: HG3DClass -> Int -> IO () @@ -273,7 +275,7 @@ let {a2' = fromIntegral a2} in removeVisibilityFlags'_ a1' a2' >>= \res -> return () -{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getVisibilityFlags -} getVisibilityFlags :: HG3DClass -> IO (Int) @@ -283,7 +285,7 @@ getVisibilityFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getLightMask -} getLightMask :: HG3DClass -> IO (Int) @@ -293,7 +295,7 @@ getLightMask'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setLightMask -} setLightMask :: HG3DClass -> Int -> IO () @@ -302,7 +304,7 @@ let {a2' = fromIntegral a2} in setLightMask'_ a1' a2' >>= \res -> return () -{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function hasEdgeList -} hasEdgeList :: HG3DClass -> IO (Bool) @@ -312,7 +314,7 @@ hasEdgeList'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setCastShadows -} setCastShadows :: HG3DClass -> Bool -> IO () @@ -321,7 +323,7 @@ let {a2' = fromBool a2} in setCastShadows'_ a1' a2' >>= \res -> return () -{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getCastShadows -} getCastShadows :: HG3DClass -> IO (Bool) @@ -331,7 +333,7 @@ getCastShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getReceivesShadows -} getReceivesShadows :: HG3DClass -> IO (Bool) @@ -341,7 +343,7 @@ getReceivesShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getPointExtrusionDistance -} getPointExtrusionDistance :: HG3DClass -> HG3DClass -> IO (Float) @@ -352,7 +354,7 @@ getPointExtrusionDistance'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getTypeFlags -} getTypeFlags :: HG3DClass -> IO (Int) @@ -362,7 +364,7 @@ getTypeFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setDebugDisplayEnabled -} setDebugDisplayEnabled :: HG3DClass -> Bool -> IO () @@ -371,7 +373,7 @@ let {a2' = fromBool a2} in setDebugDisplayEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function isDebugDisplayEnabled -} isDebugDisplayEnabled :: HG3DClass -> IO (Bool) @@ -381,7 +383,7 @@ isDebugDisplayEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setDefaultQueryFlags -} setDefaultQueryFlags :: Int -> IO () @@ -389,7 +391,7 @@ let {a1' = fromIntegral a1} in setDefaultQueryFlags'_ a1' >>= \res -> return () -{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getDefaultQueryFlags -} getDefaultQueryFlags :: IO (Int) @@ -398,7 +400,7 @@ getDefaultQueryFlags'_ a1' >>= \res -> peekIntConv a1'>>= \a1'' -> return (a1'') -{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function setDefaultVisibilityFlags -} setDefaultVisibilityFlags :: Int -> IO () @@ -406,7 +408,7 @@ let {a1' = fromIntegral a1} in setDefaultVisibilityFlags'_ a1' >>= \res -> return () -{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} {- function getDefaultVisibilityFlags -} getDefaultVisibilityFlags :: IO (Int) @@ -415,7 +417,7 @@ getDefaultVisibilityFlags'_ a1' >>= \res -> peekIntConv a1'>>= \a1'' -> return (a1'') -{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} +{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObject.chs.h ogre_mvo_destruct"
HGamer3D/Bindings/Ogre/ClassMovableObjectFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} {- function ~MovableObjectFactory -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} {- function getType -} getType :: HG3DClass -> IO (String) @@ -64,7 +66,7 @@ getType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -73,7 +75,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} {- function requestTypeFlags -} requestTypeFlags :: HG3DClass -> IO (Bool) @@ -83,7 +85,7 @@ requestTypeFlags'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} {- function getTypeFlags -} getTypeFlags :: HG3DClass -> IO (Int) @@ -93,7 +95,7 @@ getTypeFlags'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMovableObjectFactory.chs.h ogre_mvof_destruct"
HGamer3D/Bindings/Ogre/ClassMultiRenderTarget.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} {- function bindSurface -} bindSurface :: HG3DClass -> Int -> HG3DClass -> IO () @@ -56,7 +58,7 @@ withHG3DClass a3 $ \a3' -> bindSurface'_ a1' a2' a3' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} {- function unbindSurface -} unbindSurface :: HG3DClass -> Int -> IO () @@ -65,7 +67,7 @@ let {a2' = fromIntegral a2} in unbindSurface'_ a1' a2' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} {- function getBoundSurface -} getBoundSurface :: HG3DClass -> Int -> IO (HG3DClass) @@ -76,7 +78,7 @@ getBoundSurface'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassMultiRenderTarget.chs.h ogre_mrt_bindSurface"
HGamer3D/Bindings/Ogre/ClassNode.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,19 +44,19 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.EnumNodeTransformSpace -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} import HGamer3D.Bindings.Ogre.StructRadians -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function ~Node -} delete :: HG3DClass -> IO () @@ -62,7 +64,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -72,7 +74,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getParent -} getParent :: HG3DClass -> IO (HG3DClass) @@ -82,7 +84,7 @@ getParent'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getOrientation -} getOrientation :: HG3DClass -> IO (Quaternion) @@ -92,7 +94,7 @@ getOrientation'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setOrientation -} setOrientation :: HG3DClass -> Quaternion -> IO () @@ -101,7 +103,7 @@ withQuaternion a2 $ \a2' -> setOrientation'_ a1' a2' >>= \res -> return () -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setOrientation2 -} setOrientation2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -113,7 +115,7 @@ let {a5' = realToFrac a5} in setOrientation2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function resetOrientation -} resetOrientation :: HG3DClass -> IO () @@ -121,7 +123,7 @@ withHG3DClass a1 $ \a1' -> resetOrientation'_ a1' >>= \res -> return () -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setPosition -} setPosition :: HG3DClass -> Vec3 -> IO () @@ -130,7 +132,7 @@ withVec3 a2 $ \a2' -> setPosition'_ a1' a2' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setPosition2 -} setPosition2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -141,7 +143,7 @@ let {a4' = realToFrac a4} in setPosition2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getPosition -} getPosition :: HG3DClass -> IO (Vec3) @@ -151,7 +153,7 @@ getPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setScale -} setScale :: HG3DClass -> Vec3 -> IO () @@ -160,7 +162,7 @@ withVec3 a2 $ \a2' -> setScale'_ a1' a2' >>= \res -> return () -{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setScale2 -} setScale2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -171,7 +173,7 @@ let {a4' = realToFrac a4} in setScale2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getScale -} getScale :: HG3DClass -> IO (Vec3) @@ -181,7 +183,7 @@ getScale'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setInheritOrientation -} setInheritOrientation :: HG3DClass -> Bool -> IO () @@ -190,7 +192,7 @@ let {a2' = fromBool a2} in setInheritOrientation'_ a1' a2' >>= \res -> return () -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getInheritOrientation -} getInheritOrientation :: HG3DClass -> IO (Bool) @@ -200,7 +202,7 @@ getInheritOrientation'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setInheritScale -} setInheritScale :: HG3DClass -> Bool -> IO () @@ -209,7 +211,7 @@ let {a2' = fromBool a2} in setInheritScale'_ a1' a2' >>= \res -> return () -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getInheritScale -} getInheritScale :: HG3DClass -> IO (Bool) @@ -219,7 +221,7 @@ getInheritScale'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function scale -} scale :: HG3DClass -> Vec3 -> IO () @@ -228,7 +230,7 @@ withVec3 a2 $ \a2' -> scale'_ a1' a2' >>= \res -> return () -{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function scale2 -} scale2 :: HG3DClass -> Float -> Float -> Float -> IO () @@ -239,7 +241,7 @@ let {a4' = realToFrac a4} in scale2'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function translate -} translate :: HG3DClass -> Vec3 -> EnumNodeTransformSpace -> IO () @@ -249,7 +251,7 @@ let {a3' = cIntFromEnum a3} in translate'_ a1' a2' a3' >>= \res -> return () -{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function translate2 -} translate2 :: HG3DClass -> Float -> Float -> Float -> EnumNodeTransformSpace -> IO () @@ -261,7 +263,7 @@ let {a5' = cIntFromEnum a5} in translate2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function roll -} roll :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO () @@ -271,7 +273,7 @@ let {a3' = cIntFromEnum a3} in roll'_ a1' a2' a3' >>= \res -> return () -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function pitch -} pitch :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO () @@ -281,7 +283,7 @@ let {a3' = cIntFromEnum a3} in pitch'_ a1' a2' a3' >>= \res -> return () -{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 177 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function yaw -} yaw :: HG3DClass -> Radians -> EnumNodeTransformSpace -> IO () @@ -291,7 +293,7 @@ let {a3' = cIntFromEnum a3} in yaw'_ a1' a2' a3' >>= \res -> return () -{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function rotate -} rotate :: HG3DClass -> Vec3 -> Radians -> EnumNodeTransformSpace -> IO () @@ -302,7 +304,7 @@ let {a4' = cIntFromEnum a4} in rotate'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function rotate2 -} rotate2 :: HG3DClass -> Quaternion -> EnumNodeTransformSpace -> IO () @@ -312,7 +314,7 @@ let {a3' = cIntFromEnum a3} in rotate2'_ a1' a2' a3' >>= \res -> return () -{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function createChild -} createChild :: HG3DClass -> Vec3 -> Quaternion -> IO (HG3DClass) @@ -324,7 +326,7 @@ createChild'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 201 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 203 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function createChild2 -} createChild2 :: HG3DClass -> String -> Vec3 -> Quaternion -> IO (HG3DClass) @@ -337,7 +339,7 @@ createChild2'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function addChild -} addChild :: HG3DClass -> HG3DClass -> IO () @@ -346,7 +348,7 @@ withHG3DClass a2 $ \a2' -> addChild'_ a1' a2' >>= \res -> return () -{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function numChildren -} numChildren :: HG3DClass -> IO (Int) @@ -356,7 +358,7 @@ numChildren'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getChild -} getChild :: HG3DClass -> Int -> IO (HG3DClass) @@ -367,7 +369,7 @@ getChild'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getChild2 -} getChild2 :: HG3DClass -> String -> IO (HG3DClass) @@ -378,7 +380,7 @@ getChild2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function removeChild -} removeChild :: HG3DClass -> Int -> IO (HG3DClass) @@ -389,7 +391,7 @@ removeChild'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 237 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function removeChild2 -} removeChild2 :: HG3DClass -> HG3DClass -> IO (HG3DClass) @@ -400,7 +402,7 @@ removeChild2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 243 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 245 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function removeChild3 -} removeChild3 :: HG3DClass -> String -> IO (HG3DClass) @@ -411,7 +413,7 @@ removeChild3'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function removeAllChildren -} removeAllChildren :: HG3DClass -> IO () @@ -419,7 +421,7 @@ withHG3DClass a1 $ \a1' -> removeAllChildren'_ a1' >>= \res -> return () -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function setInitialState -} setInitialState :: HG3DClass -> IO () @@ -427,7 +429,7 @@ withHG3DClass a1 $ \a1' -> setInitialState'_ a1' >>= \res -> return () -{-# LINE 257 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function resetToInitialState -} resetToInitialState :: HG3DClass -> IO () @@ -435,7 +437,7 @@ withHG3DClass a1 $ \a1' -> resetToInitialState'_ a1' >>= \res -> return () -{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getInitialPosition -} getInitialPosition :: HG3DClass -> IO (Vec3) @@ -445,7 +447,7 @@ getInitialPosition'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 266 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function convertWorldToLocalPosition -} convertWorldToLocalPosition :: HG3DClass -> Vec3 -> IO (Vec3) @@ -456,7 +458,7 @@ convertWorldToLocalPosition'_ a1' a2' a3' >>= \res -> peekVec3 a3'>>= \a3'' -> return (a3'') -{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function convertLocalToWorldPosition -} convertLocalToWorldPosition :: HG3DClass -> Vec3 -> IO (Vec3) @@ -467,7 +469,7 @@ convertLocalToWorldPosition'_ a1' a2' a3' >>= \res -> peekVec3 a3'>>= \a3'' -> return (a3'') -{-# LINE 278 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function convertWorldToLocalOrientation -} convertWorldToLocalOrientation :: HG3DClass -> Quaternion -> IO (Quaternion) @@ -478,7 +480,7 @@ convertWorldToLocalOrientation'_ a1' a2' a3' >>= \res -> peekQuaternion a3'>>= \a3'' -> return (a3'') -{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 286 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function convertLocalToWorldOrientation -} convertLocalToWorldOrientation :: HG3DClass -> Quaternion -> IO (Quaternion) @@ -489,7 +491,7 @@ convertLocalToWorldOrientation'_ a1' a2' a3' >>= \res -> peekQuaternion a3'>>= \a3'' -> return (a3'') -{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getInitialOrientation -} getInitialOrientation :: HG3DClass -> IO (Quaternion) @@ -499,7 +501,7 @@ getInitialOrientation'_ a1' a2' >>= \res -> peekQuaternion a2'>>= \a2'' -> return (a2'') -{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getInitialScale -} getInitialScale :: HG3DClass -> IO (Vec3) @@ -509,7 +511,7 @@ getInitialScale'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 300 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -520,7 +522,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 306 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 308 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function needUpdate -} needUpdate :: HG3DClass -> Bool -> IO () @@ -529,7 +531,7 @@ let {a2' = fromBool a2} in needUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 311 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 313 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function requestUpdate -} requestUpdate :: HG3DClass -> HG3DClass -> Bool -> IO () @@ -539,7 +541,7 @@ let {a3' = fromBool a3} in requestUpdate'_ a1' a2' a3' >>= \res -> return () -{-# LINE 317 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 319 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function cancelUpdate -} cancelUpdate :: HG3DClass -> HG3DClass -> IO () @@ -548,7 +550,7 @@ withHG3DClass a2 $ \a2' -> cancelUpdate'_ a1' a2' >>= \res -> return () -{-# LINE 322 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 324 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function queueNeedUpdate -} queueNeedUpdate :: HG3DClass -> IO () @@ -556,14 +558,14 @@ withHG3DClass a1 $ \a1' -> queueNeedUpdate'_ a1' >>= \res -> return () -{-# LINE 326 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 328 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} {- function processQueuedUpdates -} processQueuedUpdates :: IO () processQueuedUpdates = processQueuedUpdates'_ >>= \res -> return () -{-# LINE 330 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} +{-# LINE 332 ".\\HGamer3D\\Bindings\\Ogre\\ClassNode.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNode.chs.h ogre_nd_destruct"
HGamer3D/Bindings/Ogre/ClassNodeAnimationTrack.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function NodeAnimationTrack -} new :: HG3DClass -> Int -> IO (HG3DClass) @@ -57,7 +59,7 @@ new'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function ~NodeAnimationTrack -} delete :: HG3DClass -> IO () @@ -65,7 +67,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function getAssociatedNode -} getAssociatedNode :: HG3DClass -> IO (HG3DClass) @@ -75,7 +77,7 @@ getAssociatedNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function setAssociatedNode -} setAssociatedNode :: HG3DClass -> HG3DClass -> IO () @@ -84,7 +86,7 @@ withHG3DClass a2 $ \a2' -> setAssociatedNode'_ a1' a2' >>= \res -> return () -{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function applyToNode -} applyToNode :: HG3DClass -> HG3DClass -> HG3DClass -> Float -> Float -> IO () @@ -96,7 +98,7 @@ let {a5' = realToFrac a5} in applyToNode'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function setUseShortestRotationPath -} setUseShortestRotationPath :: HG3DClass -> Bool -> IO () @@ -105,7 +107,7 @@ let {a2' = fromBool a2} in setUseShortestRotationPath'_ a1' a2' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function getUseShortestRotationPath -} getUseShortestRotationPath :: HG3DClass -> IO (Bool) @@ -115,7 +117,7 @@ getUseShortestRotationPath'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function apply -} apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO () @@ -126,7 +128,7 @@ let {a4' = realToFrac a4} in apply'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function hasNonZeroKeyFrames -} hasNonZeroKeyFrames :: HG3DClass -> IO (Bool) @@ -136,7 +138,7 @@ hasNonZeroKeyFrames'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} {- function optimise -} optimise :: HG3DClass -> IO () @@ -144,7 +146,7 @@ withHG3DClass a1 $ \a1' -> optimise'_ a1' >>= \res -> return () -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNodeAnimationTrack.chs.h ogre_noat_construct"
HGamer3D/Bindings/Ogre/ClassNumericAnimationTrack.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} {- function NumericAnimationTrack -} new :: HG3DClass -> Int -> IO (HG3DClass) @@ -57,7 +59,7 @@ new'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} {- function apply -} apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO () @@ -68,7 +70,7 @@ let {a4' = realToFrac a4} in apply'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassNumericAnimationTrack.chs.h ogre_nuat_construct"
HGamer3D/Bindings/Ogre/ClassPtr.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,176 +44,176 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassAnimation -} type ClassAnimation = Ptr (()) -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassAnimationState -} type ClassAnimationState = Ptr (()) -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassAnimationStateSet -} type ClassAnimationStateSet = Ptr (()) -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassAnimationTrack -} type ClassAnimationTrack = Ptr (()) -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassArchive -} type ClassArchive = Ptr (()) -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassArchiveManager -} type ClassArchiveManager = Ptr (()) -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBillboard -} type ClassBillboard = Ptr (()) -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBillboardChain -} type ClassBillboardChain = Ptr (()) -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBillboardChainFactory -} type ClassBillboardChainFactory = Ptr (()) -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBillboardSet -} type ClassBillboardSet = Ptr (()) -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBillboardSetFactory -} type ClassBillboardSetFactory = Ptr (()) -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassBone -} type ClassBone = Ptr (()) -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassCamera -} type ClassCamera = Ptr (()) -{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassConfigFile -} type ClassConfigFile = Ptr (()) -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassControllerManager -} type ClassControllerManager = Ptr (()) -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassEntity -} type ClassEntity = Ptr (()) -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassEntityFactory -} type ClassEntityFactory = Ptr (()) -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassException -} type ClassException = Ptr (()) -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassFrustum -} type ClassFrustum = Ptr (()) -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassLight -} type ClassLight = Ptr (()) -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassLightFactory -} type ClassLightFactory = Ptr (()) -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassLog -} type ClassLog = Ptr (()) -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassLogManager -} type ClassLogManager = Ptr (()) -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassManualObject -} type ClassManualObject = Ptr (()) -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassManualObjectFactory -} type ClassManualObjectFactory = Ptr (()) -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassManualObjectSection -} type ClassManualObjectSection = Ptr (()) -{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMaterial -} type ClassMaterial = Ptr (()) -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMaterialManager -} type ClassMaterialManager = Ptr (()) -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMesh -} type ClassMesh = Ptr (()) -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMeshManager -} type ClassMeshManager = Ptr (()) -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMovableObject -} type ClassMovableObject = Ptr (()) -{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMovableObjectFactory -} type ClassMovableObjectFactory = Ptr (()) -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassMultiRenderTarget -} type ClassMultiRenderTarget = Ptr (()) -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassNode -} type ClassNode = Ptr (()) -{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassNodeAnimationTrack -} type ClassNodeAnimationTrack = Ptr (()) -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassNumericAnimationTrack -} type ClassNumericAnimationTrack = Ptr (()) -{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRenderable -} type ClassRenderable = Ptr (()) -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRenderSystem -} type ClassRenderSystem = Ptr (()) -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRenderTarget -} type ClassRenderTarget = Ptr (()) -{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRenderTexture -} type ClassRenderTexture = Ptr (()) -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRenderWindow -} type ClassRenderWindow = Ptr (()) -{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassResource -} type ClassResource = Ptr (()) -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassResourceGroupManager -} type ClassResourceGroupManager = Ptr (()) -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassResourceManager -} type ClassResourceManager = Ptr (()) -{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassRoot -} type ClassRoot = Ptr (()) -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassSceneManager -} type ClassSceneManager = Ptr (()) -{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassSceneManagerFactory -} type ClassSceneManagerFactory = Ptr (()) -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassSceneNode -} type ClassSceneNode = Ptr (()) -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassSkeleton -} type ClassSkeleton = Ptr (()) -{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassSkeletonManager -} type ClassSkeletonManager = Ptr (()) -{-# LINE 142 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassTextureManager -} type ClassTextureManager = Ptr (()) -{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassTimeIndex -} type ClassTimeIndex = Ptr (()) -{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassVertexAnimationTrack -} type ClassVertexAnimationTrack = Ptr (()) -{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassViewport -} type ClassViewport = Ptr (()) -{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassWindowEventUtilities -} type ClassWindowEventUtilities = Ptr (()) -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassWindowUtilsHG3D -} type ClassWindowUtilsHG3D = Ptr (()) -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} {- class ClassHG3DMessagePump -} type ClassHG3DMessagePump = Ptr (()) -{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-} +{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassPtr.chs" #-}
HGamer3D/Bindings/Ogre/ClassRenderSystem.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} import HGamer3D.Bindings.Ogre.EnumGpuProgramType -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function ~RenderSystem -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -68,7 +70,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setConfigOption -} setConfigOption :: HG3DClass -> String -> String -> IO () @@ -78,7 +80,7 @@ withCString a3 $ \a3' -> setConfigOption'_ a1' a2' a3' >>= \res -> return () -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function validateConfigOptions -} validateConfigOptions :: HG3DClass -> IO (String) @@ -88,7 +90,7 @@ validateConfigOptions'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function reinitialise -} reinitialise :: HG3DClass -> IO () @@ -96,7 +98,7 @@ withHG3DClass a1 $ \a1' -> reinitialise'_ a1' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function shutdown -} shutdown :: HG3DClass -> IO () @@ -104,7 +106,7 @@ withHG3DClass a1 $ \a1' -> shutdown'_ a1' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setAmbientLight -} setAmbientLight :: HG3DClass -> Float -> Float -> Float -> IO () @@ -115,7 +117,7 @@ let {a4' = realToFrac a4} in setAmbientLight'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setLightingEnabled -} setLightingEnabled :: HG3DClass -> Bool -> IO () @@ -124,7 +126,7 @@ let {a2' = fromBool a2} in setLightingEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setWBufferEnabled -} setWBufferEnabled :: HG3DClass -> Bool -> IO () @@ -133,7 +135,7 @@ let {a2' = fromBool a2} in setWBufferEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getWBufferEnabled -} getWBufferEnabled :: HG3DClass -> IO (Bool) @@ -143,7 +145,7 @@ getWBufferEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function createMultiRenderTarget -} createMultiRenderTarget :: HG3DClass -> String -> IO (HG3DClass) @@ -154,7 +156,7 @@ createMultiRenderTarget'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function destroyRenderWindow -} destroyRenderWindow :: HG3DClass -> String -> IO () @@ -163,7 +165,7 @@ withCString a2 $ \a2' -> destroyRenderWindow'_ a1' a2' >>= \res -> return () -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function destroyRenderTexture -} destroyRenderTexture :: HG3DClass -> String -> IO () @@ -172,7 +174,7 @@ withCString a2 $ \a2' -> destroyRenderTexture'_ a1' a2' >>= \res -> return () -{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function destroyRenderTarget -} destroyRenderTarget :: HG3DClass -> String -> IO () @@ -181,7 +183,7 @@ withCString a2 $ \a2' -> destroyRenderTarget'_ a1' a2' >>= \res -> return () -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function attachRenderTarget -} attachRenderTarget :: HG3DClass -> HG3DClass -> IO () @@ -190,7 +192,7 @@ withHG3DClass a2 $ \a2' -> attachRenderTarget'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getRenderTarget -} getRenderTarget :: HG3DClass -> String -> IO (HG3DClass) @@ -201,7 +203,7 @@ getRenderTarget'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function detachRenderTarget -} detachRenderTarget :: HG3DClass -> String -> IO (HG3DClass) @@ -212,7 +214,7 @@ detachRenderTarget'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getErrorDescription -} getErrorDescription :: HG3DClass -> Int -> IO (String) @@ -223,7 +225,7 @@ getErrorDescription'_ a1' a2' a3' >>= \res -> peekCString a3'>>= \a3'' -> return (a3'') -{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setWaitForVerticalBlank -} setWaitForVerticalBlank :: HG3DClass -> Bool -> IO () @@ -232,7 +234,7 @@ let {a2' = fromBool a2} in setWaitForVerticalBlank'_ a1' a2' >>= \res -> return () -{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getWaitForVerticalBlank -} getWaitForVerticalBlank :: HG3DClass -> IO (Bool) @@ -242,7 +244,7 @@ getWaitForVerticalBlank'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getGlobalNumberOfInstances -} getGlobalNumberOfInstances :: HG3DClass -> IO (Int) @@ -252,7 +254,7 @@ getGlobalNumberOfInstances'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setGlobalNumberOfInstances -} setGlobalNumberOfInstances :: HG3DClass -> Int -> IO () @@ -261,7 +263,7 @@ let {a2' = fromIntegral a2} in setGlobalNumberOfInstances'_ a1' a2' >>= \res -> return () -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setFixedPipelineEnabled -} setFixedPipelineEnabled :: HG3DClass -> Bool -> IO () @@ -270,7 +272,7 @@ let {a2' = fromBool a2} in setFixedPipelineEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getFixedPipelineEnabled -} getFixedPipelineEnabled :: HG3DClass -> IO (Bool) @@ -280,7 +282,7 @@ getFixedPipelineEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setDepthBufferFor -} setDepthBufferFor :: HG3DClass -> HG3DClass -> IO () @@ -289,7 +291,7 @@ withHG3DClass a2 $ \a2' -> setDepthBufferFor'_ a1' a2' >>= \res -> return () -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function areFixedFunctionLightsInViewSpace -} areFixedFunctionLightsInViewSpace :: HG3DClass -> IO (Bool) @@ -299,7 +301,7 @@ areFixedFunctionLightsInViewSpace'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function convertColourValue -} convertColourValue :: HG3DClass -> Colour -> IO (Int) @@ -310,7 +312,7 @@ convertColourValue'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setStencilCheckEnabled -} setStencilCheckEnabled :: HG3DClass -> Bool -> IO () @@ -319,7 +321,7 @@ let {a2' = fromBool a2} in setStencilCheckEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setNormaliseNormals -} setNormaliseNormals :: HG3DClass -> Bool -> IO () @@ -328,7 +330,7 @@ let {a2' = fromBool a2} in setNormaliseNormals'_ a1' a2' >>= \res -> return () -{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function bindGpuProgramPassIterationParameters -} bindGpuProgramPassIterationParameters :: HG3DClass -> EnumGpuProgramType -> IO () @@ -337,7 +339,7 @@ let {a2' = cIntFromEnum a2} in bindGpuProgramPassIterationParameters'_ a1' a2' >>= \res -> return () -{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function unbindGpuProgram -} unbindGpuProgram :: HG3DClass -> EnumGpuProgramType -> IO () @@ -346,7 +348,7 @@ let {a2' = cIntFromEnum a2} in unbindGpuProgram'_ a1' a2' >>= \res -> return () -{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function isGpuProgramBound -} isGpuProgramBound :: HG3DClass -> EnumGpuProgramType -> IO (Bool) @@ -357,7 +359,7 @@ isGpuProgramBound'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function addClipPlane2 -} addClipPlane2 :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -369,7 +371,7 @@ let {a5' = realToFrac a5} in addClipPlane2'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function resetClipPlanes -} resetClipPlanes :: HG3DClass -> IO () @@ -377,7 +379,7 @@ withHG3DClass a1 $ \a1' -> resetClipPlanes'_ a1' >>= \res -> return () -{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setInvertVertexWinding -} setInvertVertexWinding :: HG3DClass -> Bool -> IO () @@ -386,7 +388,7 @@ let {a2' = fromBool a2} in setInvertVertexWinding'_ a1' a2' >>= \res -> return () -{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getInvertVertexWinding -} getInvertVertexWinding :: HG3DClass -> IO (Bool) @@ -396,7 +398,7 @@ getInvertVertexWinding'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setScissorTest -} setScissorTest :: HG3DClass -> Bool -> Int -> Int -> Int -> Int -> IO () @@ -409,7 +411,7 @@ let {a6' = fromIntegral a6} in setScissorTest'_ a1' a2' a3' a4' a5' a6' >>= \res -> return () -{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function clearFrameBuffer -} clearFrameBuffer :: HG3DClass -> Int -> Colour -> Float -> Int -> IO () @@ -421,7 +423,7 @@ let {a5' = fromIntegral a5} in clearFrameBuffer'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 250 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 252 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getHorizontalTexelOffset -} getHorizontalTexelOffset :: HG3DClass -> IO (Float) @@ -431,7 +433,7 @@ getHorizontalTexelOffset'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 257 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getVerticalTexelOffset -} getVerticalTexelOffset :: HG3DClass -> IO (Float) @@ -441,7 +443,7 @@ getVerticalTexelOffset'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getMinimumDepthInputValue -} getMinimumDepthInputValue :: HG3DClass -> IO (Float) @@ -451,7 +453,7 @@ getMinimumDepthInputValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 265 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 267 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getMaximumDepthInputValue -} getMaximumDepthInputValue :: HG3DClass -> IO (Float) @@ -461,7 +463,7 @@ getMaximumDepthInputValue'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 270 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setCurrentPassIterationCount -} setCurrentPassIterationCount :: HG3DClass -> Int -> IO () @@ -470,7 +472,7 @@ let {a2' = fromIntegral a2} in setCurrentPassIterationCount'_ a1' a2' >>= \res -> return () -{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 277 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function setDeriveDepthBias -} setDeriveDepthBias :: HG3DClass -> Bool -> Float -> Float -> Float -> IO () @@ -482,7 +484,7 @@ let {a5' = realToFrac a5} in setDeriveDepthBias'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 283 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function preExtraThreadsStarted -} preExtraThreadsStarted :: HG3DClass -> IO () @@ -490,7 +492,7 @@ withHG3DClass a1 $ \a1' -> preExtraThreadsStarted'_ a1' >>= \res -> return () -{-# LINE 287 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 289 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function postExtraThreadsStarted -} postExtraThreadsStarted :: HG3DClass -> IO () @@ -498,7 +500,7 @@ withHG3DClass a1 $ \a1' -> postExtraThreadsStarted'_ a1' >>= \res -> return () -{-# LINE 291 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 293 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function registerThread -} registerThread :: HG3DClass -> IO () @@ -506,7 +508,7 @@ withHG3DClass a1 $ \a1' -> registerThread'_ a1' >>= \res -> return () -{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function unregisterThread -} unregisterThread :: HG3DClass -> IO () @@ -514,7 +516,7 @@ withHG3DClass a1 $ \a1' -> unregisterThread'_ a1' >>= \res -> return () -{-# LINE 299 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 301 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function getDisplayMonitorCount -} getDisplayMonitorCount :: HG3DClass -> IO (Int) @@ -524,7 +526,7 @@ getDisplayMonitorCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 304 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 306 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function beginProfileEvent -} beginProfileEvent :: HG3DClass -> String -> IO () @@ -533,7 +535,7 @@ withCString a2 $ \a2' -> beginProfileEvent'_ a1' a2' >>= \res -> return () -{-# LINE 309 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 311 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function endProfileEvent -} endProfileEvent :: HG3DClass -> IO () @@ -541,7 +543,7 @@ withHG3DClass a1 $ \a1' -> endProfileEvent'_ a1' >>= \res -> return () -{-# LINE 313 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 315 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} {- function markProfileEvent -} markProfileEvent :: HG3DClass -> String -> IO () @@ -550,7 +552,7 @@ withCString a2 $ \a2' -> markProfileEvent'_ a1' a2' >>= \res -> return () -{-# LINE 318 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} +{-# LINE 320 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderSystem.chs.h ogre_rds_destruct"
HGamer3D/Bindings/Ogre/ClassRenderTarget.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function ~RenderTarget -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -64,7 +66,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getMetrics -} getMetrics :: HG3DClass -> IO (Int, Int, Int) @@ -78,7 +80,7 @@ peekIntConv a3'>>= \a3'' -> peekIntConv a4'>>= \a4'' -> return (a2'', a3'', a4'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getWidth -} getWidth :: HG3DClass -> IO (Int) @@ -88,7 +90,7 @@ getWidth'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getHeight -} getHeight :: HG3DClass -> IO (Int) @@ -98,7 +100,7 @@ getHeight'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getColourDepth -} getColourDepth :: HG3DClass -> IO (Int) @@ -108,7 +110,7 @@ getColourDepth'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function setDepthBufferPool -} setDepthBufferPool :: HG3DClass -> Int -> IO () @@ -117,7 +119,7 @@ let {a2' = fromIntegral a2} in setDepthBufferPool'_ a1' a2' >>= \res -> return () -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getDepthBufferPool -} getDepthBufferPool :: HG3DClass -> IO (Int) @@ -127,7 +129,7 @@ getDepthBufferPool'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function detachDepthBuffer -} detachDepthBuffer :: HG3DClass -> IO () @@ -135,7 +137,7 @@ withHG3DClass a1 $ \a1' -> detachDepthBuffer'_ a1' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function update -} update :: HG3DClass -> Bool -> IO () @@ -144,7 +146,7 @@ let {a2' = fromBool a2} in update'_ a1' a2' >>= \res -> return () -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function swapBuffers -} swapBuffers :: HG3DClass -> Bool -> IO () @@ -153,7 +155,7 @@ let {a2' = fromBool a2} in swapBuffers'_ a1' a2' >>= \res -> return () -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function addViewport -} addViewport :: HG3DClass -> HG3DClass -> Int -> Float -> Float -> Float -> Float -> IO (HG3DClass) @@ -169,7 +171,7 @@ addViewport'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res -> peek a8'>>= \a8'' -> return (a8'') -{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getNumViewports -} getNumViewports :: HG3DClass -> IO (Int) @@ -179,7 +181,7 @@ getNumViewports'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getViewport -} getViewport :: HG3DClass -> Int -> IO (HG3DClass) @@ -190,7 +192,7 @@ getViewport'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getViewportByZOrder -} getViewportByZOrder :: HG3DClass -> Int -> IO (HG3DClass) @@ -201,7 +203,7 @@ getViewportByZOrder'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function hasViewportWithZOrder -} hasViewportWithZOrder :: HG3DClass -> Int -> IO (Bool) @@ -212,7 +214,7 @@ hasViewportWithZOrder'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function removeViewport -} removeViewport :: HG3DClass -> Int -> IO () @@ -221,7 +223,7 @@ let {a2' = fromIntegral a2} in removeViewport'_ a1' a2' >>= \res -> return () -{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function removeAllViewports -} removeAllViewports :: HG3DClass -> IO () @@ -229,7 +231,7 @@ withHG3DClass a1 $ \a1' -> removeAllViewports'_ a1' >>= \res -> return () -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getStatistics -} getStatistics :: HG3DClass -> IO (Float, Float, Float, Float) @@ -245,7 +247,7 @@ peekFloatConv a4'>>= \a4'' -> peekFloatConv a5'>>= \a5'' -> return (a2'', a3'', a4'', a5'') -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getLastFPS -} getLastFPS :: HG3DClass -> IO (Float) @@ -255,7 +257,7 @@ getLastFPS'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getAverageFPS -} getAverageFPS :: HG3DClass -> IO (Float) @@ -265,7 +267,7 @@ getAverageFPS'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getBestFPS -} getBestFPS :: HG3DClass -> IO (Float) @@ -275,7 +277,7 @@ getBestFPS'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getWorstFPS -} getWorstFPS :: HG3DClass -> IO (Float) @@ -285,7 +287,7 @@ getWorstFPS'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getBestFrameTime -} getBestFrameTime :: HG3DClass -> IO (Float) @@ -295,7 +297,7 @@ getBestFrameTime'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getWorstFrameTime -} getWorstFrameTime :: HG3DClass -> IO (Float) @@ -305,7 +307,7 @@ getWorstFrameTime'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function resetStatistics -} resetStatistics :: HG3DClass -> IO () @@ -313,7 +315,7 @@ withHG3DClass a1 $ \a1' -> resetStatistics'_ a1' >>= \res -> return () -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function removeAllListeners -} removeAllListeners :: HG3DClass -> IO () @@ -321,7 +323,7 @@ withHG3DClass a1 $ \a1' -> removeAllListeners'_ a1' >>= \res -> return () -{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function isActive -} isActive :: HG3DClass -> IO (Bool) @@ -331,7 +333,7 @@ isActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function setActive -} setActive :: HG3DClass -> Bool -> IO () @@ -340,7 +342,7 @@ let {a2' = fromBool a2} in setActive'_ a1' a2' >>= \res -> return () -{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function setAutoUpdated -} setAutoUpdated :: HG3DClass -> Bool -> IO () @@ -349,7 +351,7 @@ let {a2' = fromBool a2} in setAutoUpdated'_ a1' a2' >>= \res -> return () -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function isAutoUpdated -} isAutoUpdated :: HG3DClass -> IO (Bool) @@ -359,7 +361,7 @@ isAutoUpdated'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 207 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 209 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function writeContentsToFile -} writeContentsToFile :: HG3DClass -> String -> IO () @@ -368,7 +370,7 @@ withCString a2 $ \a2' -> writeContentsToFile'_ a1' a2' >>= \res -> return () -{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function writeContentsToTimestampedFile -} writeContentsToTimestampedFile :: HG3DClass -> String -> String -> IO (String) @@ -380,7 +382,7 @@ writeContentsToTimestampedFile'_ a1' a2' a3' a4' >>= \res -> peekCString a4'>>= \a4'' -> return (a4'') -{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function requiresTextureFlipping -} requiresTextureFlipping :: HG3DClass -> IO (Bool) @@ -390,7 +392,7 @@ requiresTextureFlipping'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getTriangleCount -} getTriangleCount :: HG3DClass -> IO (Int) @@ -400,7 +402,7 @@ getTriangleCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getBatchCount -} getBatchCount :: HG3DClass -> IO (Int) @@ -410,7 +412,7 @@ getBatchCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function isPrimary -} isPrimary :: HG3DClass -> IO (Bool) @@ -420,7 +422,7 @@ isPrimary'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function isHardwareGammaEnabled -} isHardwareGammaEnabled :: HG3DClass -> IO (Bool) @@ -430,7 +432,7 @@ isHardwareGammaEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getFSAA -} getFSAA :: HG3DClass -> IO (Int) @@ -440,7 +442,7 @@ getFSAA'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} {- function getFSAAHint -} getFSAAHint :: HG3DClass -> IO (String) @@ -450,7 +452,7 @@ getFSAAHint'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 254 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} +{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTarget.chs.h ogre_rtgt_destruct"
HGamer3D/Bindings/Ogre/ClassRenderTexture.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} {- function ~RenderTexture -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderTexture.chs.h ogre_rtx_destruct"
HGamer3D/Bindings/Ogre/ClassRenderWindow.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setFullscreen -} setFullscreen :: HG3DClass -> Bool -> Int -> Int -> IO () @@ -57,7 +59,7 @@ let {a4' = fromIntegral a4} in setFullscreen'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function destroy -} destroy :: HG3DClass -> IO () @@ -65,7 +67,7 @@ withHG3DClass a1 $ \a1' -> destroy'_ a1' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function resize -} resize :: HG3DClass -> Int -> Int -> IO () @@ -75,7 +77,7 @@ let {a3' = fromIntegral a3} in resize'_ a1' a2' a3' >>= \res -> return () -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function windowMovedOrResized -} windowMovedOrResized :: HG3DClass -> IO () @@ -83,7 +85,7 @@ withHG3DClass a1 $ \a1' -> windowMovedOrResized'_ a1' >>= \res -> return () -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function reposition -} reposition :: HG3DClass -> Int -> Int -> IO () @@ -93,7 +95,7 @@ let {a3' = fromIntegral a3} in reposition'_ a1' a2' a3' >>= \res -> return () -{-# LINE 70 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isVisible -} isVisible :: HG3DClass -> IO (Bool) @@ -103,7 +105,7 @@ isVisible'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setVisible -} setVisible :: HG3DClass -> Bool -> IO () @@ -112,7 +114,7 @@ let {a2' = fromBool a2} in setVisible'_ a1' a2' >>= \res -> return () -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isHidden -} isHidden :: HG3DClass -> IO (Bool) @@ -122,7 +124,7 @@ isHidden'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setHidden -} setHidden :: HG3DClass -> Bool -> IO () @@ -131,7 +133,7 @@ let {a2' = fromBool a2} in setHidden'_ a1' a2' >>= \res -> return () -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setVSyncEnabled -} setVSyncEnabled :: HG3DClass -> Bool -> IO () @@ -140,7 +142,7 @@ let {a2' = fromBool a2} in setVSyncEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isVSyncEnabled -} isVSyncEnabled :: HG3DClass -> IO (Bool) @@ -150,7 +152,7 @@ isVSyncEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setVSyncInterval -} setVSyncInterval :: HG3DClass -> Int -> IO () @@ -159,7 +161,7 @@ let {a2' = fromIntegral a2} in setVSyncInterval'_ a1' a2' >>= \res -> return () -{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function getVSyncInterval -} getVSyncInterval :: HG3DClass -> IO (Int) @@ -169,7 +171,7 @@ getVSyncInterval'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isActive -} isActive :: HG3DClass -> IO (Bool) @@ -179,7 +181,7 @@ isActive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isClosed -} isClosed :: HG3DClass -> IO (Bool) @@ -189,7 +191,7 @@ isClosed'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isPrimary -} isPrimary :: HG3DClass -> IO (Bool) @@ -199,7 +201,7 @@ isPrimary'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isFullScreen -} isFullScreen :: HG3DClass -> IO (Bool) @@ -209,7 +211,7 @@ isFullScreen'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function getMetrics -} getMetrics :: HG3DClass -> IO (Int, Int, Int, Int, Int) @@ -227,7 +229,7 @@ peekIntConv a5'>>= \a5'' -> peekIntConv a6'>>= \a6'' -> return (a2'', a3'', a4'', a5'', a6'') -{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function isDeactivatedOnFocusChange -} isDeactivatedOnFocusChange :: HG3DClass -> IO (Bool) @@ -237,7 +239,7 @@ isDeactivatedOnFocusChange'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 144 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} {- function setDeactivateOnFocusChange -} setDeactivateOnFocusChange :: HG3DClass -> Bool -> IO () @@ -246,7 +248,7 @@ let {a2' = fromBool a2} in setDeactivateOnFocusChange'_ a1' a2' >>= \res -> return () -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderWindow.chs.h ogre_rw_setFullscreen"
HGamer3D/Bindings/Ogre/ClassRenderable.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,13 +44,13 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function ~Renderable -} delete :: HG3DClass -> IO () @@ -56,7 +58,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getMaterial -} getMaterial :: HG3DClass -> IO (SharedPtr) @@ -66,7 +68,7 @@ getMaterial'_ a1' a2' >>= \res -> peekSharedPtr a2'>>= \a2'' -> return (a2'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function preRender -} preRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO (Bool) @@ -78,7 +80,7 @@ preRender'_ a1' a2' a3' a4' >>= \res -> peekBoolUtil a4'>>= \a4'' -> return (a4'') -{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function postRender -} postRender :: HG3DClass -> HG3DClass -> HG3DClass -> IO () @@ -88,7 +90,7 @@ withHG3DClass a3 $ \a3' -> postRender'_ a1' a2' a3' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getNumWorldTransforms -} getNumWorldTransforms :: HG3DClass -> IO (Int) @@ -98,7 +100,7 @@ getNumWorldTransforms'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function setUseIdentityProjection -} setUseIdentityProjection :: HG3DClass -> Bool -> IO () @@ -107,7 +109,7 @@ let {a2' = fromBool a2} in setUseIdentityProjection'_ a1' a2' >>= \res -> return () -{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getUseIdentityProjection -} getUseIdentityProjection :: HG3DClass -> IO (Bool) @@ -117,7 +119,7 @@ getUseIdentityProjection'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function setUseIdentityView -} setUseIdentityView :: HG3DClass -> Bool -> IO () @@ -126,7 +128,7 @@ let {a2' = fromBool a2} in setUseIdentityView'_ a1' a2' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getUseIdentityView -} getUseIdentityView :: HG3DClass -> IO (Bool) @@ -136,7 +138,7 @@ getUseIdentityView'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getSquaredViewDepth -} getSquaredViewDepth :: HG3DClass -> HG3DClass -> IO (Float) @@ -147,7 +149,7 @@ getSquaredViewDepth'_ a1' a2' a3' >>= \res -> peekFloatConv a3'>>= \a3'' -> return (a3'') -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getCastsShadows -} getCastsShadows :: HG3DClass -> IO (Bool) @@ -157,7 +159,7 @@ getCastsShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function removeCustomParameter -} removeCustomParameter :: HG3DClass -> Int -> IO () @@ -166,7 +168,7 @@ let {a2' = fromIntegral a2} in removeCustomParameter'_ a1' a2' >>= \res -> return () -{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function hasCustomParameter -} hasCustomParameter :: HG3DClass -> Int -> IO (Bool) @@ -177,7 +179,7 @@ hasCustomParameter'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function setPolygonModeOverrideable -} setPolygonModeOverrideable :: HG3DClass -> Bool -> IO () @@ -186,7 +188,7 @@ let {a2' = fromBool a2} in setPolygonModeOverrideable'_ a1' a2' >>= \res -> return () -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} {- function getPolygonModeOverrideable -} getPolygonModeOverrideable :: HG3DClass -> IO (Bool) @@ -196,7 +198,7 @@ getPolygonModeOverrideable'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRenderable.chs.h ogre_rndl_destruct"
HGamer3D/Bindings/Ogre/ClassResource.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function ~Resource -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function prepare -} prepare :: HG3DClass -> Bool -> IO () @@ -63,7 +65,7 @@ let {a2' = fromBool a2} in prepare'_ a1' a2' >>= \res -> return () -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function load -} load :: HG3DClass -> Bool -> IO () @@ -72,7 +74,7 @@ let {a2' = fromBool a2} in load'_ a1' a2' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function reload -} reload :: HG3DClass -> IO () @@ -80,7 +82,7 @@ withHG3DClass a1 $ \a1' -> reload'_ a1' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isReloadable -} isReloadable :: HG3DClass -> IO (Bool) @@ -90,7 +92,7 @@ isReloadable'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isManuallyLoaded -} isManuallyLoaded :: HG3DClass -> IO (Bool) @@ -100,7 +102,7 @@ isManuallyLoaded'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function unload -} unload :: HG3DClass -> IO () @@ -108,7 +110,7 @@ withHG3DClass a1 $ \a1' -> unload'_ a1' >>= \res -> return () -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getSize -} getSize :: HG3DClass -> IO (Int) @@ -118,7 +120,7 @@ getSize'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function touch -} touch :: HG3DClass -> IO () @@ -126,7 +128,7 @@ withHG3DClass a1 $ \a1' -> touch'_ a1' >>= \res -> return () -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -136,7 +138,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isPrepared -} isPrepared :: HG3DClass -> IO (Bool) @@ -146,7 +148,7 @@ isPrepared'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isLoaded -} isLoaded :: HG3DClass -> IO (Bool) @@ -156,7 +158,7 @@ isLoaded'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isLoading -} isLoading :: HG3DClass -> IO (Bool) @@ -166,7 +168,7 @@ isLoading'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function isBackgroundLoaded -} isBackgroundLoaded :: HG3DClass -> IO (Bool) @@ -176,7 +178,7 @@ isBackgroundLoaded'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function setBackgroundLoaded -} setBackgroundLoaded :: HG3DClass -> Bool -> IO () @@ -185,7 +187,7 @@ let {a2' = fromBool a2} in setBackgroundLoaded'_ a1' a2' >>= \res -> return () -{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function escalateLoading -} escalateLoading :: HG3DClass -> IO () @@ -193,7 +195,7 @@ withHG3DClass a1 $ \a1' -> escalateLoading'_ a1' >>= \res -> return () -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getGroup -} getGroup :: HG3DClass -> IO (String) @@ -203,7 +205,7 @@ getGroup'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function changeGroupOwnership -} changeGroupOwnership :: HG3DClass -> String -> IO () @@ -212,7 +214,7 @@ withCString a2 $ \a2' -> changeGroupOwnership'_ a1' a2' >>= \res -> return () -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getCreator -} getCreator :: HG3DClass -> IO (HG3DClass) @@ -222,7 +224,7 @@ getCreator'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getOrigin -} getOrigin :: HG3DClass -> IO (String) @@ -232,7 +234,7 @@ getOrigin'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} {- function getStateCount -} getStateCount :: HG3DClass -> IO (Int) @@ -242,7 +244,7 @@ getStateCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} +{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassResource.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResource.chs.h ogre_rsrc_destruct"
HGamer3D/Bindings/Ogre/ClassResourceGroupManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function ResourceGroupManager -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function ~ResourceGroupManager -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function createResourceGroup -} createResourceGroup :: HG3DClass -> String -> Bool -> IO () @@ -73,7 +75,7 @@ let {a3' = fromBool a3} in createResourceGroup'_ a1' a2' a3' >>= \res -> return () -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function initialiseResourceGroup -} initialiseResourceGroup :: HG3DClass -> String -> IO () @@ -82,7 +84,7 @@ withCString a2 $ \a2' -> initialiseResourceGroup'_ a1' a2' >>= \res -> return () -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function initialiseAllResourceGroups -} initialiseAllResourceGroups :: HG3DClass -> IO () @@ -90,7 +92,7 @@ withHG3DClass a1 $ \a1' -> initialiseAllResourceGroups'_ a1' >>= \res -> return () -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function prepareResourceGroup -} prepareResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO () @@ -101,7 +103,7 @@ let {a4' = fromBool a4} in prepareResourceGroup'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function loadResourceGroup -} loadResourceGroup :: HG3DClass -> String -> Bool -> Bool -> IO () @@ -112,7 +114,7 @@ let {a4' = fromBool a4} in loadResourceGroup'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function unloadResourceGroup -} unloadResourceGroup :: HG3DClass -> String -> Bool -> IO () @@ -122,7 +124,7 @@ let {a3' = fromBool a3} in unloadResourceGroup'_ a1' a2' a3' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function unloadUnreferencedResourcesInGroup -} unloadUnreferencedResourcesInGroup :: HG3DClass -> String -> Bool -> IO () @@ -132,7 +134,7 @@ let {a3' = fromBool a3} in unloadUnreferencedResourcesInGroup'_ a1' a2' a3' >>= \res -> return () -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function clearResourceGroup -} clearResourceGroup :: HG3DClass -> String -> IO () @@ -141,7 +143,7 @@ withCString a2 $ \a2' -> clearResourceGroup'_ a1' a2' >>= \res -> return () -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function destroyResourceGroup -} destroyResourceGroup :: HG3DClass -> String -> IO () @@ -150,7 +152,7 @@ withCString a2 $ \a2' -> destroyResourceGroup'_ a1' a2' >>= \res -> return () -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function isResourceGroupInitialised -} isResourceGroupInitialised :: HG3DClass -> String -> IO (Bool) @@ -161,7 +163,7 @@ isResourceGroupInitialised'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function isResourceGroupLoaded -} isResourceGroupLoaded :: HG3DClass -> String -> IO (Bool) @@ -172,7 +174,7 @@ isResourceGroupLoaded'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function resourceGroupExists -} resourceGroupExists :: HG3DClass -> String -> IO (Bool) @@ -183,7 +185,7 @@ resourceGroupExists'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function addResourceLocation -} addResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO () @@ -195,7 +197,7 @@ let {a5' = fromBool a5} in addResourceLocation'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function removeResourceLocation -} removeResourceLocation :: HG3DClass -> String -> String -> IO () @@ -205,7 +207,7 @@ withCString a3 $ \a3' -> removeResourceLocation'_ a1' a2' a3' >>= \res -> return () -{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function resourceLocationExists -} resourceLocationExists :: HG3DClass -> String -> String -> IO (Bool) @@ -217,7 +219,7 @@ resourceLocationExists'_ a1' a2' a3' a4' >>= \res -> peekBoolUtil a4'>>= \a4'' -> return (a4'') -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function undeclareResource -} undeclareResource :: HG3DClass -> String -> String -> IO () @@ -227,7 +229,7 @@ withCString a3 $ \a3' -> undeclareResource'_ a1' a2' a3' >>= \res -> return () -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function resourceExists -} resourceExists :: HG3DClass -> String -> String -> IO (Bool) @@ -239,7 +241,7 @@ resourceExists'_ a1' a2' a3' a4' >>= \res -> peekBoolUtil a4'>>= \a4'' -> return (a4'') -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function resourceExistsInAnyGroup -} resourceExistsInAnyGroup :: HG3DClass -> String -> IO (Bool) @@ -250,7 +252,7 @@ resourceExistsInAnyGroup'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function findGroupContainingResource -} findGroupContainingResource :: HG3DClass -> String -> IO (String) @@ -261,7 +263,7 @@ findGroupContainingResource'_ a1' a2' a3' >>= \res -> peekCString a3'>>= \a3'' -> return (a3'') -{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 168 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function deleteResource -} deleteResource :: HG3DClass -> String -> String -> String -> IO () @@ -272,7 +274,7 @@ withCString a4 $ \a4' -> deleteResource'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 175 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function deleteMatchingResources -} deleteMatchingResources :: HG3DClass -> String -> String -> String -> IO () @@ -283,7 +285,7 @@ withCString a4 $ \a4' -> deleteMatchingResources'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function setWorldResourceGroupName -} setWorldResourceGroupName :: HG3DClass -> String -> IO () @@ -292,7 +294,7 @@ withCString a2 $ \a2' -> setWorldResourceGroupName'_ a1' a2' >>= \res -> return () -{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function getWorldResourceGroupName -} getWorldResourceGroupName :: HG3DClass -> IO (String) @@ -302,7 +304,7 @@ getWorldResourceGroupName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 192 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function linkWorldGeometryToResourceGroup -} linkWorldGeometryToResourceGroup :: HG3DClass -> String -> String -> HG3DClass -> IO () @@ -313,7 +315,7 @@ withHG3DClass a4 $ \a4' -> linkWorldGeometryToResourceGroup'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function unlinkWorldGeometryFromResourceGroup -} unlinkWorldGeometryFromResourceGroup :: HG3DClass -> String -> IO () @@ -322,7 +324,7 @@ withCString a2 $ \a2' -> unlinkWorldGeometryFromResourceGroup'_ a1' a2' >>= \res -> return () -{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function isResourceGroupInGlobalPool -} isResourceGroupInGlobalPool :: HG3DClass -> String -> IO (Bool) @@ -333,7 +335,7 @@ isResourceGroupInGlobalPool'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function shutdownAll -} shutdownAll :: HG3DClass -> IO () @@ -341,7 +343,7 @@ withHG3DClass a1 $ \a1' -> shutdownAll'_ a1' >>= \res -> return () -{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 214 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -350,7 +352,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -359,7 +361,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 220 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} +{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceGroupManager.chs.h ogre_rgmgr_construct"
HGamer3D/Bindings/Ogre/ClassResourceManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function ~ResourceManager -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function setMemoryBudget -} setMemoryBudget :: HG3DClass -> Int -> IO () @@ -63,7 +65,7 @@ let {a2' = fromIntegral a2} in setMemoryBudget'_ a1' a2' >>= \res -> return () -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function getMemoryBudget -} getMemoryBudget :: HG3DClass -> IO (Int) @@ -73,7 +75,7 @@ getMemoryBudget'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function getMemoryUsage -} getMemoryUsage :: HG3DClass -> IO (Int) @@ -83,7 +85,7 @@ getMemoryUsage'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function unload -} unload :: HG3DClass -> String -> IO () @@ -92,7 +94,7 @@ withCString a2 $ \a2' -> unload'_ a1' a2' >>= \res -> return () -{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function unloadAll -} unloadAll :: HG3DClass -> Bool -> IO () @@ -101,7 +103,7 @@ let {a2' = fromBool a2} in unloadAll'_ a1' a2' >>= \res -> return () -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function reloadAll -} reloadAll :: HG3DClass -> Bool -> IO () @@ -110,7 +112,7 @@ let {a2' = fromBool a2} in reloadAll'_ a1' a2' >>= \res -> return () -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function unloadUnreferencedResources -} unloadUnreferencedResources :: HG3DClass -> Bool -> IO () @@ -119,7 +121,7 @@ let {a2' = fromBool a2} in unloadUnreferencedResources'_ a1' a2' >>= \res -> return () -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function reloadUnreferencedResources -} reloadUnreferencedResources :: HG3DClass -> Bool -> IO () @@ -128,7 +130,7 @@ let {a2' = fromBool a2} in reloadUnreferencedResources'_ a1' a2' >>= \res -> return () -{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 89 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function remove2 -} remove2 :: HG3DClass -> String -> IO () @@ -137,7 +139,7 @@ withCString a2 $ \a2' -> remove2'_ a1' a2' >>= \res -> return () -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function removeAll -} removeAll :: HG3DClass -> IO () @@ -145,7 +147,7 @@ withHG3DClass a1 $ \a1' -> removeAll'_ a1' >>= \res -> return () -{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function removeUnreferencedResources -} removeUnreferencedResources :: HG3DClass -> Bool -> IO () @@ -154,7 +156,7 @@ let {a2' = fromBool a2} in removeUnreferencedResources'_ a1' a2' >>= \res -> return () -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function resourceExists -} resourceExists :: HG3DClass -> String -> IO (Bool) @@ -165,7 +167,7 @@ resourceExists'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function getLoadingOrder -} getLoadingOrder :: HG3DClass -> IO (Float) @@ -175,7 +177,7 @@ getLoadingOrder'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function getResourceType -} getResourceType :: HG3DClass -> IO (String) @@ -185,7 +187,7 @@ getResourceType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 117 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 119 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function setVerbose -} setVerbose :: HG3DClass -> Bool -> IO () @@ -194,7 +196,7 @@ let {a2' = fromBool a2} in setVerbose'_ a1' a2' >>= \res -> return () -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function getVerbose -} getVerbose :: HG3DClass -> IO (Bool) @@ -204,7 +206,7 @@ getVerbose'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 127 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 129 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function destroyResourcePool2 -} destroyResourcePool2 :: HG3DClass -> String -> IO () @@ -213,7 +215,7 @@ withCString a2 $ \a2' -> destroyResourcePool2'_ a1' a2' >>= \res -> return () -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} {- function destroyAllResourcePools -} destroyAllResourcePools :: HG3DClass -> IO () @@ -221,7 +223,7 @@ withHG3DClass a1 $ \a1' -> destroyAllResourcePools'_ a1' >>= \res -> return () -{-# LINE 136 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} +{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassResourceManager.chs.h ogre_rsrcmgr_destruct"
HGamer3D/Bindings/Ogre/ClassRoot.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,13 +44,13 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function Root -} new :: String -> String -> String -> IO (HG3DClass) @@ -60,7 +62,7 @@ new'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function ~Root -} delete :: HG3DClass -> IO () @@ -68,7 +70,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function saveConfig -} saveConfig :: HG3DClass -> IO () @@ -76,7 +78,7 @@ withHG3DClass a1 $ \a1' -> saveConfig'_ a1' >>= \res -> return () -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function restoreConfig -} restoreConfig :: HG3DClass -> IO (Bool) @@ -86,7 +88,7 @@ restoreConfig'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function showConfigDialog -} showConfigDialog :: HG3DClass -> IO (Bool) @@ -96,7 +98,7 @@ showConfigDialog'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function addRenderSystem -} addRenderSystem :: HG3DClass -> HG3DClass -> IO () @@ -105,7 +107,7 @@ withHG3DClass a2 $ \a2' -> addRenderSystem'_ a1' a2' >>= \res -> return () -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getRenderSystemByName -} getRenderSystemByName :: HG3DClass -> String -> IO (HG3DClass) @@ -116,7 +118,7 @@ getRenderSystemByName'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setRenderSystem -} setRenderSystem :: HG3DClass -> HG3DClass -> IO () @@ -125,7 +127,7 @@ withHG3DClass a2 $ \a2' -> setRenderSystem'_ a1' a2' >>= \res -> return () -{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getRenderSystem -} getRenderSystem :: HG3DClass -> IO (HG3DClass) @@ -135,7 +137,7 @@ getRenderSystem'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function initialise -} initialise :: HG3DClass -> Bool -> String -> String -> IO (HG3DClass) @@ -148,7 +150,7 @@ initialise'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function isInitialised -} isInitialised :: HG3DClass -> IO (Bool) @@ -158,7 +160,7 @@ isInitialised'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getRemoveRenderQueueStructuresOnClear -} getRemoveRenderQueueStructuresOnClear :: HG3DClass -> IO (Bool) @@ -168,7 +170,7 @@ getRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setRemoveRenderQueueStructuresOnClear -} setRemoveRenderQueueStructuresOnClear :: HG3DClass -> Bool -> IO () @@ -177,7 +179,7 @@ let {a2' = fromBool a2} in setRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res -> return () -{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function addSceneManagerFactory -} addSceneManagerFactory :: HG3DClass -> HG3DClass -> IO () @@ -186,7 +188,7 @@ withHG3DClass a2 $ \a2' -> addSceneManagerFactory'_ a1' a2' >>= \res -> return () -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function removeSceneManagerFactory -} removeSceneManagerFactory :: HG3DClass -> HG3DClass -> IO () @@ -195,7 +197,7 @@ withHG3DClass a2 $ \a2' -> removeSceneManagerFactory'_ a1' a2' >>= \res -> return () -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function createSceneManager -} createSceneManager :: HG3DClass -> String -> String -> IO (HG3DClass) @@ -207,7 +209,7 @@ createSceneManager'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function destroySceneManager -} destroySceneManager :: HG3DClass -> HG3DClass -> IO () @@ -216,7 +218,7 @@ withHG3DClass a2 $ \a2' -> destroySceneManager'_ a1' a2' >>= \res -> return () -{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getSceneManager -} getSceneManager :: HG3DClass -> String -> IO (HG3DClass) @@ -227,7 +229,7 @@ getSceneManager'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function hasSceneManager -} hasSceneManager :: HG3DClass -> String -> IO (Bool) @@ -238,7 +240,7 @@ hasSceneManager'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getTextureManager -} getTextureManager :: HG3DClass -> IO (HG3DClass) @@ -248,7 +250,7 @@ getTextureManager'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getMeshManager -} getMeshManager :: HG3DClass -> IO (HG3DClass) @@ -258,7 +260,7 @@ getMeshManager'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getErrorDescription -} getErrorDescription :: HG3DClass -> Int -> IO (String) @@ -269,7 +271,7 @@ getErrorDescription'_ a1' a2' a3' >>= \res -> peekCString a3'>>= \a3'' -> return (a3'') -{-# LINE 163 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function queueEndRendering -} queueEndRendering :: HG3DClass -> IO () @@ -277,7 +279,7 @@ withHG3DClass a1 $ \a1' -> queueEndRendering'_ a1' >>= \res -> return () -{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function startRendering -} startRendering :: HG3DClass -> IO () @@ -285,7 +287,7 @@ withHG3DClass a1 $ \a1' -> startRendering'_ a1' >>= \res -> return () -{-# LINE 171 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function renderOneFrame -} renderOneFrame :: HG3DClass -> IO (Bool) @@ -295,7 +297,7 @@ renderOneFrame'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function renderOneFrame2 -} renderOneFrame2 :: HG3DClass -> Float -> IO (Bool) @@ -306,7 +308,7 @@ renderOneFrame2'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 182 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function shutdown -} shutdown :: HG3DClass -> IO () @@ -314,7 +316,7 @@ withHG3DClass a1 $ \a1' -> shutdown'_ a1' >>= \res -> return () -{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function addResourceLocation -} addResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO () @@ -326,7 +328,7 @@ let {a5' = fromBool a5} in addResourceLocation'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 194 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function removeResourceLocation -} removeResourceLocation :: HG3DClass -> String -> String -> IO () @@ -336,7 +338,7 @@ withCString a3 $ \a3' -> removeResourceLocation'_ a1' a2' a3' >>= \res -> return () -{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function convertColourValue -} convertColourValue :: HG3DClass -> Colour -> IO (Int) @@ -347,7 +349,7 @@ convertColourValue'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getAutoCreatedWindow -} getAutoCreatedWindow :: HG3DClass -> IO (HG3DClass) @@ -357,7 +359,7 @@ getAutoCreatedWindow'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 211 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function detachRenderTarget -} detachRenderTarget :: HG3DClass -> HG3DClass -> IO (HG3DClass) @@ -368,7 +370,7 @@ detachRenderTarget'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 217 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function detachRenderTarget2 -} detachRenderTarget2 :: HG3DClass -> String -> IO (HG3DClass) @@ -379,7 +381,7 @@ detachRenderTarget2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function destroyRenderTarget -} destroyRenderTarget :: HG3DClass -> HG3DClass -> IO () @@ -388,7 +390,7 @@ withHG3DClass a2 $ \a2' -> destroyRenderTarget'_ a1' a2' >>= \res -> return () -{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function destroyRenderTarget2 -} destroyRenderTarget2 :: HG3DClass -> String -> IO () @@ -397,7 +399,7 @@ withCString a2 $ \a2' -> destroyRenderTarget2'_ a1' a2' >>= \res -> return () -{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getRenderTarget -} getRenderTarget :: HG3DClass -> String -> IO (HG3DClass) @@ -408,7 +410,7 @@ getRenderTarget'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 239 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function loadPlugin -} loadPlugin :: HG3DClass -> String -> IO () @@ -417,7 +419,7 @@ withCString a2 $ \a2' -> loadPlugin'_ a1' a2' >>= \res -> return () -{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function unloadPlugin -} unloadPlugin :: HG3DClass -> String -> IO () @@ -426,7 +428,7 @@ withCString a2 $ \a2' -> unloadPlugin'_ a1' a2' >>= \res -> return () -{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function destroyRenderQueueInvocationSequence -} destroyRenderQueueInvocationSequence :: HG3DClass -> String -> IO () @@ -435,7 +437,7 @@ withCString a2 $ \a2' -> destroyRenderQueueInvocationSequence'_ a1' a2' >>= \res -> return () -{-# LINE 254 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function destroyAllRenderQueueInvocationSequences -} destroyAllRenderQueueInvocationSequences :: HG3DClass -> IO () @@ -443,7 +445,7 @@ withHG3DClass a1 $ \a1' -> destroyAllRenderQueueInvocationSequences'_ a1' >>= \res -> return () -{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function clearEventTimes -} clearEventTimes :: HG3DClass -> IO () @@ -451,7 +453,7 @@ withHG3DClass a1 $ \a1' -> clearEventTimes'_ a1' >>= \res -> return () -{-# LINE 262 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setFrameSmoothingPeriod -} setFrameSmoothingPeriod :: HG3DClass -> Float -> IO () @@ -460,7 +462,7 @@ let {a2' = realToFrac a2} in setFrameSmoothingPeriod'_ a1' a2' >>= \res -> return () -{-# LINE 267 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getFrameSmoothingPeriod -} getFrameSmoothingPeriod :: HG3DClass -> IO (Float) @@ -470,7 +472,7 @@ getFrameSmoothingPeriod'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 272 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function addMovableObjectFactory -} addMovableObjectFactory :: HG3DClass -> HG3DClass -> Bool -> IO () @@ -480,7 +482,7 @@ let {a3' = fromBool a3} in addMovableObjectFactory'_ a1' a2' a3' >>= \res -> return () -{-# LINE 278 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function removeMovableObjectFactory -} removeMovableObjectFactory :: HG3DClass -> HG3DClass -> IO () @@ -489,7 +491,7 @@ withHG3DClass a2 $ \a2' -> removeMovableObjectFactory'_ a1' a2' >>= \res -> return () -{-# LINE 283 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function hasMovableObjectFactory -} hasMovableObjectFactory :: HG3DClass -> String -> IO (Bool) @@ -500,7 +502,7 @@ hasMovableObjectFactory'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 289 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 291 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getMovableObjectFactory -} getMovableObjectFactory :: HG3DClass -> String -> IO (HG3DClass) @@ -511,7 +513,7 @@ getMovableObjectFactory'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 295 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getDisplayMonitorCount -} getDisplayMonitorCount :: HG3DClass -> IO (Int) @@ -521,7 +523,7 @@ getDisplayMonitorCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 300 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setBlendIndicesGpuRedundant -} setBlendIndicesGpuRedundant :: HG3DClass -> Bool -> IO () @@ -530,7 +532,7 @@ let {a2' = fromBool a2} in setBlendIndicesGpuRedundant'_ a1' a2' >>= \res -> return () -{-# LINE 305 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 307 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function isBlendIndicesGpuRedundant -} isBlendIndicesGpuRedundant :: HG3DClass -> IO (Bool) @@ -540,7 +542,7 @@ isBlendIndicesGpuRedundant'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 310 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setBlendWeightsGpuRedundant -} setBlendWeightsGpuRedundant :: HG3DClass -> Bool -> IO () @@ -549,7 +551,7 @@ let {a2' = fromBool a2} in setBlendWeightsGpuRedundant'_ a1' a2' >>= \res -> return () -{-# LINE 315 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 317 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function isBlendWeightsGpuRedundant -} isBlendWeightsGpuRedundant :: HG3DClass -> IO (Bool) @@ -559,7 +561,7 @@ isBlendWeightsGpuRedundant'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 320 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 322 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function setDefaultMinPixelSize -} setDefaultMinPixelSize :: HG3DClass -> Float -> IO () @@ -568,7 +570,7 @@ let {a2' = realToFrac a2} in setDefaultMinPixelSize'_ a1' a2' >>= \res -> return () -{-# LINE 325 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 327 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getDefaultMinPixelSize -} getDefaultMinPixelSize :: HG3DClass -> IO (Float) @@ -578,7 +580,7 @@ getDefaultMinPixelSize'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 330 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 332 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -587,7 +589,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 334 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -596,7 +598,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 338 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} +{-# LINE 340 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_construct"
HGamer3D/Bindings/Ogre/ClassSceneManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,23 +44,23 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.StructSharedPtr -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.EnumSceneManagerPrefabType -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.EnumSceneManagerSpecialCaseRenderQueueMode -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} import HGamer3D.Bindings.Ogre.EnumLightType -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function ~SceneManager -} delete :: HG3DClass -> IO () @@ -66,7 +68,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getName -} getName :: HG3DClass -> IO (String) @@ -76,7 +78,7 @@ getName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getTypeName -} getTypeName :: HG3DClass -> IO (String) @@ -86,7 +88,7 @@ getTypeName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createCamera -} createCamera :: HG3DClass -> String -> IO (HG3DClass) @@ -97,7 +99,7 @@ createCamera'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getCamera -} getCamera :: HG3DClass -> String -> IO (HG3DClass) @@ -108,7 +110,7 @@ getCamera'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasCamera -} hasCamera :: HG3DClass -> String -> IO (Bool) @@ -119,7 +121,7 @@ hasCamera'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyCamera -} destroyCamera :: HG3DClass -> HG3DClass -> IO () @@ -128,7 +130,7 @@ withHG3DClass a2 $ \a2' -> destroyCamera'_ a1' a2' >>= \res -> return () -{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyCamera2 -} destroyCamera2 :: HG3DClass -> String -> IO () @@ -137,7 +139,7 @@ withCString a2 $ \a2' -> destroyCamera2'_ a1' a2' >>= \res -> return () -{-# LINE 91 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllCameras -} destroyAllCameras :: HG3DClass -> IO () @@ -145,7 +147,7 @@ withHG3DClass a1 $ \a1' -> destroyAllCameras'_ a1' >>= \res -> return () -{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createLight -} createLight :: HG3DClass -> String -> IO (HG3DClass) @@ -156,7 +158,7 @@ createLight'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 101 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createLight2 -} createLight2 :: HG3DClass -> IO (HG3DClass) @@ -166,7 +168,7 @@ createLight2'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getLight -} getLight :: HG3DClass -> String -> IO (HG3DClass) @@ -177,7 +179,7 @@ getLight'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasLight -} hasLight :: HG3DClass -> String -> IO (Bool) @@ -188,7 +190,7 @@ hasLight'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyLight -} destroyLight :: HG3DClass -> String -> IO () @@ -197,7 +199,7 @@ withCString a2 $ \a2' -> destroyLight'_ a1' a2' >>= \res -> return () -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyLight2 -} destroyLight2 :: HG3DClass -> HG3DClass -> IO () @@ -206,7 +208,7 @@ withHG3DClass a2 $ \a2' -> destroyLight2'_ a1' a2' >>= \res -> return () -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllLights -} destroyAllLights :: HG3DClass -> IO () @@ -214,7 +216,7 @@ withHG3DClass a1 $ \a1' -> destroyAllLights'_ a1' >>= \res -> return () -{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 134 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createSceneNode -} createSceneNode :: HG3DClass -> IO (HG3DClass) @@ -224,7 +226,7 @@ createSceneNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 139 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createSceneNode2 -} createSceneNode2 :: HG3DClass -> String -> IO (HG3DClass) @@ -235,7 +237,7 @@ createSceneNode2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroySceneNode -} destroySceneNode :: HG3DClass -> String -> IO () @@ -244,7 +246,7 @@ withCString a2 $ \a2' -> destroySceneNode'_ a1' a2' >>= \res -> return () -{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 150 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroySceneNode2 -} destroySceneNode2 :: HG3DClass -> HG3DClass -> IO () @@ -253,7 +255,7 @@ withHG3DClass a2 $ \a2' -> destroySceneNode2'_ a1' a2' >>= \res -> return () -{-# LINE 153 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 155 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getRootSceneNode -} getRootSceneNode :: HG3DClass -> IO (HG3DClass) @@ -263,7 +265,7 @@ getRootSceneNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 158 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 160 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getSceneNode -} getSceneNode :: HG3DClass -> String -> IO (HG3DClass) @@ -274,7 +276,7 @@ getSceneNode'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasSceneNode -} hasSceneNode :: HG3DClass -> String -> IO (Bool) @@ -285,7 +287,7 @@ hasSceneNode'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity -} createEntity :: HG3DClass -> String -> String -> String -> IO (HG3DClass) @@ -298,7 +300,7 @@ createEntity'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity2 -} createEntity2 :: HG3DClass -> String -> SharedPtr -> IO (HG3DClass) @@ -310,7 +312,7 @@ createEntity2'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 187 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity3 -} createEntity3 :: HG3DClass -> String -> IO (HG3DClass) @@ -321,7 +323,7 @@ createEntity3'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity4 -} createEntity4 :: HG3DClass -> SharedPtr -> IO (HG3DClass) @@ -332,7 +334,7 @@ createEntity4'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 197 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 199 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity5 -} createEntity5 :: HG3DClass -> String -> EnumSceneManagerPrefabType -> IO (HG3DClass) @@ -344,7 +346,7 @@ createEntity5'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 204 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 206 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createEntity6 -} createEntity6 :: HG3DClass -> EnumSceneManagerPrefabType -> IO (HG3DClass) @@ -355,7 +357,7 @@ createEntity6'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 212 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getEntity -} getEntity :: HG3DClass -> String -> IO (HG3DClass) @@ -366,7 +368,7 @@ getEntity'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasEntity -} hasEntity :: HG3DClass -> String -> IO (Bool) @@ -377,7 +379,7 @@ hasEntity'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 222 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 224 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyEntity -} destroyEntity :: HG3DClass -> HG3DClass -> IO () @@ -386,7 +388,7 @@ withHG3DClass a2 $ \a2' -> destroyEntity'_ a1' a2' >>= \res -> return () -{-# LINE 227 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 229 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyEntity2 -} destroyEntity2 :: HG3DClass -> String -> IO () @@ -395,7 +397,7 @@ withCString a2 $ \a2' -> destroyEntity2'_ a1' a2' >>= \res -> return () -{-# LINE 232 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 234 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllEntities -} destroyAllEntities :: HG3DClass -> IO () @@ -403,7 +405,7 @@ withHG3DClass a1 $ \a1' -> destroyAllEntities'_ a1' >>= \res -> return () -{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createManualObject -} createManualObject :: HG3DClass -> String -> IO (HG3DClass) @@ -414,7 +416,7 @@ createManualObject'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 242 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 244 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createManualObject2 -} createManualObject2 :: HG3DClass -> IO (HG3DClass) @@ -424,7 +426,7 @@ createManualObject2'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 247 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 249 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getManualObject -} getManualObject :: HG3DClass -> String -> IO (HG3DClass) @@ -435,7 +437,7 @@ getManualObject'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 255 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasManualObject -} hasManualObject :: HG3DClass -> String -> IO (Bool) @@ -446,7 +448,7 @@ hasManualObject'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 259 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyManualObject -} destroyManualObject :: HG3DClass -> HG3DClass -> IO () @@ -455,7 +457,7 @@ withHG3DClass a2 $ \a2' -> destroyManualObject'_ a1' a2' >>= \res -> return () -{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 266 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyManualObject2 -} destroyManualObject2 :: HG3DClass -> String -> IO () @@ -464,7 +466,7 @@ withCString a2 $ \a2' -> destroyManualObject2'_ a1' a2' >>= \res -> return () -{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 271 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllManualObjects -} destroyAllManualObjects :: HG3DClass -> IO () @@ -472,7 +474,7 @@ withHG3DClass a1 $ \a1' -> destroyAllManualObjects'_ a1' >>= \res -> return () -{-# LINE 273 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createBillboardChain -} createBillboardChain :: HG3DClass -> String -> IO (HG3DClass) @@ -483,7 +485,7 @@ createBillboardChain'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 279 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 281 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createBillboardChain2 -} createBillboardChain2 :: HG3DClass -> IO (HG3DClass) @@ -493,7 +495,7 @@ createBillboardChain2'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 286 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getBillboardChain -} getBillboardChain :: HG3DClass -> String -> IO (HG3DClass) @@ -504,7 +506,7 @@ getBillboardChain'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasBillboardChain -} hasBillboardChain :: HG3DClass -> String -> IO (Bool) @@ -515,7 +517,7 @@ hasBillboardChain'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 296 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 298 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyBillboardChain -} destroyBillboardChain :: HG3DClass -> HG3DClass -> IO () @@ -524,7 +526,7 @@ withHG3DClass a2 $ \a2' -> destroyBillboardChain'_ a1' a2' >>= \res -> return () -{-# LINE 301 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 303 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyBillboardChain2 -} destroyBillboardChain2 :: HG3DClass -> String -> IO () @@ -533,7 +535,7 @@ withCString a2 $ \a2' -> destroyBillboardChain2'_ a1' a2' >>= \res -> return () -{-# LINE 306 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 308 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllBillboardChains -} destroyAllBillboardChains :: HG3DClass -> IO () @@ -541,7 +543,7 @@ withHG3DClass a1 $ \a1' -> destroyAllBillboardChains'_ a1' >>= \res -> return () -{-# LINE 310 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasRibbonTrail -} hasRibbonTrail :: HG3DClass -> String -> IO (Bool) @@ -552,7 +554,7 @@ hasRibbonTrail'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 316 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 318 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyRibbonTrail2 -} destroyRibbonTrail2 :: HG3DClass -> String -> IO () @@ -561,7 +563,7 @@ withCString a2 $ \a2' -> destroyRibbonTrail2'_ a1' a2' >>= \res -> return () -{-# LINE 321 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 323 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllRibbonTrails -} destroyAllRibbonTrails :: HG3DClass -> IO () @@ -569,7 +571,7 @@ withHG3DClass a1 $ \a1' -> destroyAllRibbonTrails'_ a1' >>= \res -> return () -{-# LINE 325 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 327 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasParticleSystem -} hasParticleSystem :: HG3DClass -> String -> IO (Bool) @@ -580,7 +582,7 @@ hasParticleSystem'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 331 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 333 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyParticleSystem2 -} destroyParticleSystem2 :: HG3DClass -> String -> IO () @@ -589,7 +591,7 @@ withCString a2 $ \a2' -> destroyParticleSystem2'_ a1' a2' >>= \res -> return () -{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 338 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllParticleSystems -} destroyAllParticleSystems :: HG3DClass -> IO () @@ -597,7 +599,7 @@ withHG3DClass a1 $ \a1' -> destroyAllParticleSystems'_ a1' >>= \res -> return () -{-# LINE 340 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 342 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function clearScene -} clearScene :: HG3DClass -> IO () @@ -605,7 +607,7 @@ withHG3DClass a1 $ \a1' -> clearScene'_ a1' >>= \res -> return () -{-# LINE 344 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 346 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setAmbientLight -} setAmbientLight :: HG3DClass -> Colour -> IO () @@ -614,7 +616,7 @@ withColour a2 $ \a2' -> setAmbientLight'_ a1' a2' >>= \res -> return () -{-# LINE 349 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 351 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getAmbientLight -} getAmbientLight :: HG3DClass -> IO (Colour) @@ -624,7 +626,7 @@ getAmbientLight'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 354 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 356 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function prepareWorldGeometry -} prepareWorldGeometry :: HG3DClass -> String -> IO () @@ -633,7 +635,7 @@ withCString a2 $ \a2' -> prepareWorldGeometry'_ a1' a2' >>= \res -> return () -{-# LINE 359 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 361 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setWorldGeometry -} setWorldGeometry :: HG3DClass -> String -> IO () @@ -642,7 +644,7 @@ withCString a2 $ \a2' -> setWorldGeometry'_ a1' a2' >>= \res -> return () -{-# LINE 364 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 366 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function estimateWorldGeometry -} estimateWorldGeometry :: HG3DClass -> String -> IO (Int) @@ -653,7 +655,7 @@ estimateWorldGeometry'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 370 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 372 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasOption -} hasOption :: HG3DClass -> String -> IO (Bool) @@ -664,7 +666,7 @@ hasOption'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 376 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 378 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSkyPlaneEnabled -} setSkyPlaneEnabled :: HG3DClass -> Bool -> IO () @@ -673,7 +675,7 @@ let {a2' = fromBool a2} in setSkyPlaneEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 381 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 383 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isSkyPlaneEnabled -} isSkyPlaneEnabled :: HG3DClass -> IO (Bool) @@ -683,7 +685,7 @@ isSkyPlaneEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 386 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 388 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getSkyPlaneNode -} getSkyPlaneNode :: HG3DClass -> IO (HG3DClass) @@ -693,7 +695,7 @@ getSkyPlaneNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 391 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 393 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSkyBox -} setSkyBox :: HG3DClass -> Bool -> String -> Float -> Bool -> Quaternion -> String -> IO () @@ -707,7 +709,7 @@ withCString a7 $ \a7' -> setSkyBox'_ a1' a2' a3' a4' a5' a6' a7' >>= \res -> return () -{-# LINE 401 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 403 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSkyBoxEnabled -} setSkyBoxEnabled :: HG3DClass -> Bool -> IO () @@ -716,7 +718,7 @@ let {a2' = fromBool a2} in setSkyBoxEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 406 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 408 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isSkyBoxEnabled -} isSkyBoxEnabled :: HG3DClass -> IO (Bool) @@ -726,7 +728,7 @@ isSkyBoxEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 411 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 413 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getSkyBoxNode -} getSkyBoxNode :: HG3DClass -> IO (HG3DClass) @@ -736,7 +738,7 @@ getSkyBoxNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 416 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 418 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSkyDome -} setSkyDome :: HG3DClass -> Bool -> String -> Float -> Float -> Float -> Bool -> Quaternion -> Int -> Int -> Int -> String -> IO () @@ -755,7 +757,7 @@ withCString a12 $ \a12' -> setSkyDome'_ a1' a2' a3' a4' a5' a6' a7' a8' a9' a10' a11' a12' >>= \res -> return () -{-# LINE 431 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 433 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSkyDomeEnabled -} setSkyDomeEnabled :: HG3DClass -> Bool -> IO () @@ -764,7 +766,7 @@ let {a2' = fromBool a2} in setSkyDomeEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 436 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 438 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isSkyDomeEnabled -} isSkyDomeEnabled :: HG3DClass -> IO (Bool) @@ -774,7 +776,7 @@ isSkyDomeEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 441 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 443 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getSkyDomeNode -} getSkyDomeNode :: HG3DClass -> IO (HG3DClass) @@ -784,7 +786,7 @@ getSkyDomeNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 446 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 448 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFogColour -} getFogColour :: HG3DClass -> IO (Colour) @@ -794,7 +796,7 @@ getFogColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 451 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 453 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFogStart -} getFogStart :: HG3DClass -> IO (Float) @@ -804,7 +806,7 @@ getFogStart'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 456 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 458 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFogEnd -} getFogEnd :: HG3DClass -> IO (Float) @@ -814,7 +816,7 @@ getFogEnd'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 461 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 463 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFogDensity -} getFogDensity :: HG3DClass -> IO (Float) @@ -824,7 +826,7 @@ getFogDensity'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 466 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 468 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createBillboardSet -} createBillboardSet :: HG3DClass -> String -> Int -> IO (HG3DClass) @@ -836,7 +838,7 @@ createBillboardSet'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 473 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 475 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createBillboardSet2 -} createBillboardSet2 :: HG3DClass -> Int -> IO (HG3DClass) @@ -847,7 +849,7 @@ createBillboardSet2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 479 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 481 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getBillboardSet -} getBillboardSet :: HG3DClass -> String -> IO (HG3DClass) @@ -858,7 +860,7 @@ getBillboardSet'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 485 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 487 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasBillboardSet -} hasBillboardSet :: HG3DClass -> String -> IO (Bool) @@ -869,7 +871,7 @@ hasBillboardSet'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 491 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 493 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyBillboardSet -} destroyBillboardSet :: HG3DClass -> HG3DClass -> IO () @@ -878,7 +880,7 @@ withHG3DClass a2 $ \a2' -> destroyBillboardSet'_ a1' a2' >>= \res -> return () -{-# LINE 496 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 498 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyBillboardSet2 -} destroyBillboardSet2 :: HG3DClass -> String -> IO () @@ -887,7 +889,7 @@ withCString a2 $ \a2' -> destroyBillboardSet2'_ a1' a2' >>= \res -> return () -{-# LINE 501 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 503 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllBillboardSets -} destroyAllBillboardSets :: HG3DClass -> IO () @@ -895,7 +897,7 @@ withHG3DClass a1 $ \a1' -> destroyAllBillboardSets'_ a1' >>= \res -> return () -{-# LINE 505 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 507 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setDisplaySceneNodes -} setDisplaySceneNodes :: HG3DClass -> Bool -> IO () @@ -904,7 +906,7 @@ let {a2' = fromBool a2} in setDisplaySceneNodes'_ a1' a2' >>= \res -> return () -{-# LINE 510 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 512 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getDisplaySceneNodes -} getDisplaySceneNodes :: HG3DClass -> IO (Bool) @@ -914,7 +916,7 @@ getDisplaySceneNodes'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 515 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 517 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createAnimation -} createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass) @@ -926,7 +928,7 @@ createAnimation'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 522 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 524 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getAnimation -} getAnimation :: HG3DClass -> String -> IO (HG3DClass) @@ -937,7 +939,7 @@ getAnimation'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 528 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 530 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasAnimation -} hasAnimation :: HG3DClass -> String -> IO (Bool) @@ -948,7 +950,7 @@ hasAnimation'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 534 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 536 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAnimation -} destroyAnimation :: HG3DClass -> String -> IO () @@ -957,7 +959,7 @@ withCString a2 $ \a2' -> destroyAnimation'_ a1' a2' >>= \res -> return () -{-# LINE 539 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 541 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllAnimations -} destroyAllAnimations :: HG3DClass -> IO () @@ -965,7 +967,7 @@ withHG3DClass a1 $ \a1' -> destroyAllAnimations'_ a1' >>= \res -> return () -{-# LINE 543 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 545 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function createAnimationState -} createAnimationState :: HG3DClass -> String -> IO (HG3DClass) @@ -976,7 +978,7 @@ createAnimationState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 549 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 551 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getAnimationState -} getAnimationState :: HG3DClass -> String -> IO (HG3DClass) @@ -987,7 +989,7 @@ getAnimationState'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 555 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 557 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasAnimationState -} hasAnimationState :: HG3DClass -> String -> IO (Bool) @@ -998,7 +1000,7 @@ hasAnimationState'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 561 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 563 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAnimationState -} destroyAnimationState :: HG3DClass -> String -> IO () @@ -1007,7 +1009,7 @@ withCString a2 $ \a2' -> destroyAnimationState'_ a1' a2' >>= \res -> return () -{-# LINE 566 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 568 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllAnimationStates -} destroyAllAnimationStates :: HG3DClass -> IO () @@ -1015,7 +1017,7 @@ withHG3DClass a1 $ \a1' -> destroyAllAnimationStates'_ a1' >>= \res -> return () -{-# LINE 570 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 572 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function clearSpecialCaseRenderQueues -} clearSpecialCaseRenderQueues :: HG3DClass -> IO () @@ -1023,7 +1025,7 @@ withHG3DClass a1 $ \a1' -> clearSpecialCaseRenderQueues'_ a1' >>= \res -> return () -{-# LINE 574 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 576 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setSpecialCaseRenderQueueMode -} setSpecialCaseRenderQueueMode :: HG3DClass -> EnumSceneManagerSpecialCaseRenderQueueMode -> IO () @@ -1032,7 +1034,7 @@ let {a2' = cIntFromEnum a2} in setSpecialCaseRenderQueueMode'_ a1' a2' >>= \res -> return () -{-# LINE 579 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 581 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getSpecialCaseRenderQueueMode -} getSpecialCaseRenderQueueMode :: HG3DClass -> IO (EnumSceneManagerSpecialCaseRenderQueueMode) @@ -1042,7 +1044,7 @@ getSpecialCaseRenderQueueMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 584 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 586 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function showBoundingBoxes -} showBoundingBoxes :: HG3DClass -> Bool -> IO () @@ -1051,7 +1053,7 @@ let {a2' = fromBool a2} in showBoundingBoxes'_ a1' a2' >>= \res -> return () -{-# LINE 589 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 591 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShowBoundingBoxes -} getShowBoundingBoxes :: HG3DClass -> IO (Bool) @@ -1061,7 +1063,7 @@ getShowBoundingBoxes'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 594 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 596 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShowDebugShadows -} setShowDebugShadows :: HG3DClass -> Bool -> IO () @@ -1070,7 +1072,7 @@ let {a2' = fromBool a2} in setShowDebugShadows'_ a1' a2' >>= \res -> return () -{-# LINE 599 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 601 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShowDebugShadows -} getShowDebugShadows :: HG3DClass -> IO (Bool) @@ -1080,7 +1082,7 @@ getShowDebugShadows'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 604 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 606 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowColour -} setShadowColour :: HG3DClass -> Colour -> IO () @@ -1089,7 +1091,7 @@ withColour a2 $ \a2' -> setShadowColour'_ a1' a2' >>= \res -> return () -{-# LINE 609 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 611 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowColour -} getShadowColour :: HG3DClass -> IO (Colour) @@ -1099,7 +1101,7 @@ getShadowColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 614 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 616 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowDirectionalLightExtrusionDistance -} setShadowDirectionalLightExtrusionDistance :: HG3DClass -> Float -> IO () @@ -1108,7 +1110,7 @@ let {a2' = realToFrac a2} in setShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res -> return () -{-# LINE 619 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 621 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowDirectionalLightExtrusionDistance -} getShadowDirectionalLightExtrusionDistance :: HG3DClass -> IO (Float) @@ -1118,7 +1120,7 @@ getShadowDirectionalLightExtrusionDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 624 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 626 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowFarDistance -} setShadowFarDistance :: HG3DClass -> Float -> IO () @@ -1127,7 +1129,7 @@ let {a2' = realToFrac a2} in setShadowFarDistance'_ a1' a2' >>= \res -> return () -{-# LINE 629 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 631 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowFarDistance -} getShadowFarDistance :: HG3DClass -> IO (Float) @@ -1137,7 +1139,7 @@ getShadowFarDistance'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 634 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 636 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowFarDistanceSquared -} getShadowFarDistanceSquared :: HG3DClass -> IO (Float) @@ -1147,7 +1149,7 @@ getShadowFarDistanceSquared'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 639 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 641 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowIndexBufferSize -} setShadowIndexBufferSize :: HG3DClass -> Int -> IO () @@ -1156,7 +1158,7 @@ let {a2' = fromIntegral a2} in setShadowIndexBufferSize'_ a1' a2' >>= \res -> return () -{-# LINE 644 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 646 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowIndexBufferSize -} getShadowIndexBufferSize :: HG3DClass -> IO (Int) @@ -1166,7 +1168,7 @@ getShadowIndexBufferSize'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 649 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 651 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureSize -} setShadowTextureSize :: HG3DClass -> Int -> IO () @@ -1175,7 +1177,7 @@ let {a2' = fromIntegral a2} in setShadowTextureSize'_ a1' a2' >>= \res -> return () -{-# LINE 654 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 656 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureFSAA -} setShadowTextureFSAA :: HG3DClass -> Int -> IO () @@ -1184,7 +1186,7 @@ let {a2' = fromIntegral a2} in setShadowTextureFSAA'_ a1' a2' >>= \res -> return () -{-# LINE 659 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 661 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureCount -} setShadowTextureCount :: HG3DClass -> Int -> IO () @@ -1193,7 +1195,7 @@ let {a2' = fromIntegral a2} in setShadowTextureCount'_ a1' a2' >>= \res -> return () -{-# LINE 664 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 666 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowTextureCount -} getShadowTextureCount :: HG3DClass -> IO (Int) @@ -1203,7 +1205,7 @@ getShadowTextureCount'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 669 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 671 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureCountPerLightType -} setShadowTextureCountPerLightType :: HG3DClass -> EnumLightType -> Int -> IO () @@ -1213,7 +1215,7 @@ let {a3' = fromIntegral a3} in setShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res -> return () -{-# LINE 675 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 677 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowTextureCountPerLightType -} getShadowTextureCountPerLightType :: HG3DClass -> EnumLightType -> IO (Int) @@ -1224,7 +1226,7 @@ getShadowTextureCountPerLightType'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') -{-# LINE 681 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 683 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowTexture -} getShadowTexture :: HG3DClass -> Int -> IO (SharedPtr) @@ -1235,7 +1237,7 @@ getShadowTexture'_ a1' a2' a3' >>= \res -> peekSharedPtr a3'>>= \a3'' -> return (a3'') -{-# LINE 687 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 689 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowDirLightTextureOffset -} setShadowDirLightTextureOffset :: HG3DClass -> Float -> IO () @@ -1244,7 +1246,7 @@ let {a2' = realToFrac a2} in setShadowDirLightTextureOffset'_ a1' a2' >>= \res -> return () -{-# LINE 692 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 694 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowDirLightTextureOffset -} getShadowDirLightTextureOffset :: HG3DClass -> IO (Float) @@ -1254,7 +1256,7 @@ getShadowDirLightTextureOffset'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 697 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 699 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureFadeStart -} setShadowTextureFadeStart :: HG3DClass -> Float -> IO () @@ -1263,7 +1265,7 @@ let {a2' = realToFrac a2} in setShadowTextureFadeStart'_ a1' a2' >>= \res -> return () -{-# LINE 702 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 704 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureFadeEnd -} setShadowTextureFadeEnd :: HG3DClass -> Float -> IO () @@ -1272,7 +1274,7 @@ let {a2' = realToFrac a2} in setShadowTextureFadeEnd'_ a1' a2' >>= \res -> return () -{-# LINE 707 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 709 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureSelfShadow -} setShadowTextureSelfShadow :: HG3DClass -> Bool -> IO () @@ -1281,7 +1283,7 @@ let {a2' = fromBool a2} in setShadowTextureSelfShadow'_ a1' a2' >>= \res -> return () -{-# LINE 712 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 714 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowTextureSelfShadow -} getShadowTextureSelfShadow :: HG3DClass -> IO (Bool) @@ -1291,7 +1293,7 @@ getShadowTextureSelfShadow'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 717 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 719 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureCasterMaterial -} setShadowTextureCasterMaterial :: HG3DClass -> String -> IO () @@ -1300,7 +1302,7 @@ withCString a2 $ \a2' -> setShadowTextureCasterMaterial'_ a1' a2' >>= \res -> return () -{-# LINE 722 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 724 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowTextureReceiverMaterial -} setShadowTextureReceiverMaterial :: HG3DClass -> String -> IO () @@ -1309,7 +1311,7 @@ withCString a2 $ \a2' -> setShadowTextureReceiverMaterial'_ a1' a2' >>= \res -> return () -{-# LINE 727 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 729 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowCasterRenderBackFaces -} setShadowCasterRenderBackFaces :: HG3DClass -> Bool -> IO () @@ -1318,7 +1320,7 @@ let {a2' = fromBool a2} in setShadowCasterRenderBackFaces'_ a1' a2' >>= \res -> return () -{-# LINE 732 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 734 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowCasterRenderBackFaces -} getShadowCasterRenderBackFaces :: HG3DClass -> IO (Bool) @@ -1328,7 +1330,7 @@ getShadowCasterRenderBackFaces'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 737 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 739 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowUseInfiniteFarPlane -} setShadowUseInfiniteFarPlane :: HG3DClass -> Bool -> IO () @@ -1337,7 +1339,7 @@ let {a2' = fromBool a2} in setShadowUseInfiniteFarPlane'_ a1' a2' >>= \res -> return () -{-# LINE 742 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 744 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueStencilBased -} isShadowTechniqueStencilBased :: HG3DClass -> IO (Bool) @@ -1347,7 +1349,7 @@ isShadowTechniqueStencilBased'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 747 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 749 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueTextureBased -} isShadowTechniqueTextureBased :: HG3DClass -> IO (Bool) @@ -1357,7 +1359,7 @@ isShadowTechniqueTextureBased'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 752 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 754 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueModulative -} isShadowTechniqueModulative :: HG3DClass -> IO (Bool) @@ -1367,7 +1369,7 @@ isShadowTechniqueModulative'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 757 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 759 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueAdditive -} isShadowTechniqueAdditive :: HG3DClass -> IO (Bool) @@ -1377,7 +1379,7 @@ isShadowTechniqueAdditive'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 762 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 764 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueIntegrated -} isShadowTechniqueIntegrated :: HG3DClass -> IO (Bool) @@ -1387,7 +1389,7 @@ isShadowTechniqueIntegrated'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 767 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 769 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isShadowTechniqueInUse -} isShadowTechniqueInUse :: HG3DClass -> IO (Bool) @@ -1397,7 +1399,7 @@ isShadowTechniqueInUse'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 772 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 774 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setShadowUseLightClipPlanes -} setShadowUseLightClipPlanes :: HG3DClass -> Bool -> IO () @@ -1406,7 +1408,7 @@ let {a2' = fromBool a2} in setShadowUseLightClipPlanes'_ a1' a2' >>= \res -> return () -{-# LINE 777 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 779 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getShadowUseLightClipPlanes -} getShadowUseLightClipPlanes :: HG3DClass -> IO (Bool) @@ -1416,7 +1418,7 @@ getShadowUseLightClipPlanes'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 782 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 784 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setLateMaterialResolving -} setLateMaterialResolving :: HG3DClass -> Bool -> IO () @@ -1425,7 +1427,7 @@ let {a2' = fromBool a2} in setLateMaterialResolving'_ a1' a2' >>= \res -> return () -{-# LINE 787 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 789 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function isLateMaterialResolving -} isLateMaterialResolving :: HG3DClass -> IO (Bool) @@ -1435,7 +1437,7 @@ isLateMaterialResolving'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 792 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 794 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasStaticGeometry -} hasStaticGeometry :: HG3DClass -> String -> IO (Bool) @@ -1446,7 +1448,7 @@ hasStaticGeometry'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 798 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 800 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyStaticGeometry2 -} destroyStaticGeometry2 :: HG3DClass -> String -> IO () @@ -1455,7 +1457,7 @@ withCString a2 $ \a2' -> destroyStaticGeometry2'_ a1' a2' >>= \res -> return () -{-# LINE 803 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 805 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllStaticGeometry -} destroyAllStaticGeometry :: HG3DClass -> IO () @@ -1463,7 +1465,7 @@ withHG3DClass a1 $ \a1' -> destroyAllStaticGeometry'_ a1' >>= \res -> return () -{-# LINE 807 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 809 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyInstancedGeometry2 -} destroyInstancedGeometry2 :: HG3DClass -> String -> IO () @@ -1472,7 +1474,7 @@ withCString a2 $ \a2' -> destroyInstancedGeometry2'_ a1' a2' >>= \res -> return () -{-# LINE 812 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 814 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllInstancedGeometry -} destroyAllInstancedGeometry :: HG3DClass -> IO () @@ -1480,7 +1482,7 @@ withHG3DClass a1 $ \a1' -> destroyAllInstancedGeometry'_ a1' >>= \res -> return () -{-# LINE 816 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 818 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasInstanceManager -} hasInstanceManager :: HG3DClass -> String -> IO (Bool) @@ -1491,7 +1493,7 @@ hasInstanceManager'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 822 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 824 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyInstanceManager -} destroyInstanceManager :: HG3DClass -> String -> IO () @@ -1500,7 +1502,7 @@ withCString a2 $ \a2' -> destroyInstanceManager'_ a1' a2' >>= \res -> return () -{-# LINE 827 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 829 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllInstanceManagers -} destroyAllInstanceManagers :: HG3DClass -> IO () @@ -1508,7 +1510,7 @@ withHG3DClass a1 $ \a1' -> destroyAllInstanceManagers'_ a1' >>= \res -> return () -{-# LINE 831 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 833 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyMovableObject -} destroyMovableObject :: HG3DClass -> String -> String -> IO () @@ -1518,7 +1520,7 @@ withCString a3 $ \a3' -> destroyMovableObject'_ a1' a2' a3' >>= \res -> return () -{-# LINE 837 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 839 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyMovableObject2 -} destroyMovableObject2 :: HG3DClass -> HG3DClass -> IO () @@ -1527,7 +1529,7 @@ withHG3DClass a2 $ \a2' -> destroyMovableObject2'_ a1' a2' >>= \res -> return () -{-# LINE 842 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 844 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllMovableObjectsByType -} destroyAllMovableObjectsByType :: HG3DClass -> String -> IO () @@ -1536,7 +1538,7 @@ withCString a2 $ \a2' -> destroyAllMovableObjectsByType'_ a1' a2' >>= \res -> return () -{-# LINE 847 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 849 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function destroyAllMovableObjects -} destroyAllMovableObjects :: HG3DClass -> IO () @@ -1544,7 +1546,7 @@ withHG3DClass a1 $ \a1' -> destroyAllMovableObjects'_ a1' >>= \res -> return () -{-# LINE 851 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 853 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getMovableObject -} getMovableObject :: HG3DClass -> String -> String -> IO (HG3DClass) @@ -1556,7 +1558,7 @@ getMovableObject'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 858 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 860 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function hasMovableObject -} hasMovableObject :: HG3DClass -> String -> String -> IO (Bool) @@ -1568,7 +1570,7 @@ hasMovableObject'_ a1' a2' a3' a4' >>= \res -> peekBoolUtil a4'>>= \a4'' -> return (a4'') -{-# LINE 865 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 867 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function injectMovableObject -} injectMovableObject :: HG3DClass -> HG3DClass -> IO () @@ -1577,7 +1579,7 @@ withHG3DClass a2 $ \a2' -> injectMovableObject'_ a1' a2' >>= \res -> return () -{-# LINE 870 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 872 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function extractMovableObject -} extractMovableObject :: HG3DClass -> String -> String -> IO () @@ -1587,7 +1589,7 @@ withCString a3 $ \a3' -> extractMovableObject'_ a1' a2' a3' >>= \res -> return () -{-# LINE 876 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 878 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function extractMovableObject2 -} extractMovableObject2 :: HG3DClass -> HG3DClass -> IO () @@ -1596,7 +1598,7 @@ withHG3DClass a2 $ \a2' -> extractMovableObject2'_ a1' a2' >>= \res -> return () -{-# LINE 881 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 883 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function extractAllMovableObjectsByType -} extractAllMovableObjectsByType :: HG3DClass -> String -> IO () @@ -1605,7 +1607,7 @@ withCString a2 $ \a2' -> extractAllMovableObjectsByType'_ a1' a2' >>= \res -> return () -{-# LINE 886 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 888 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setVisibilityMask -} setVisibilityMask :: HG3DClass -> Int -> IO () @@ -1614,7 +1616,7 @@ let {a2' = fromIntegral a2} in setVisibilityMask'_ a1' a2' >>= \res -> return () -{-# LINE 891 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 893 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getVisibilityMask -} getVisibilityMask :: HG3DClass -> IO (Int) @@ -1624,7 +1626,7 @@ getVisibilityMask'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 896 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 898 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setFindVisibleObjects -} setFindVisibleObjects :: HG3DClass -> Bool -> IO () @@ -1633,7 +1635,7 @@ let {a2' = fromBool a2} in setFindVisibleObjects'_ a1' a2' >>= \res -> return () -{-# LINE 901 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 903 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFindVisibleObjects -} getFindVisibleObjects :: HG3DClass -> IO (Bool) @@ -1643,7 +1645,7 @@ getFindVisibleObjects'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 906 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 908 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setNormaliseNormalsOnScale -} setNormaliseNormalsOnScale :: HG3DClass -> Bool -> IO () @@ -1652,7 +1654,7 @@ let {a2' = fromBool a2} in setNormaliseNormalsOnScale'_ a1' a2' >>= \res -> return () -{-# LINE 911 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 913 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getNormaliseNormalsOnScale -} getNormaliseNormalsOnScale :: HG3DClass -> IO (Bool) @@ -1662,7 +1664,7 @@ getNormaliseNormalsOnScale'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 916 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 918 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setFlipCullingOnNegativeScale -} setFlipCullingOnNegativeScale :: HG3DClass -> Bool -> IO () @@ -1671,7 +1673,7 @@ let {a2' = fromBool a2} in setFlipCullingOnNegativeScale'_ a1' a2' >>= \res -> return () -{-# LINE 921 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 923 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getFlipCullingOnNegativeScale -} getFlipCullingOnNegativeScale :: HG3DClass -> IO (Bool) @@ -1681,7 +1683,7 @@ getFlipCullingOnNegativeScale'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 926 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 928 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getDestinationRenderSystem -} getDestinationRenderSystem :: HG3DClass -> IO (HG3DClass) @@ -1691,7 +1693,7 @@ getDestinationRenderSystem'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 931 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 933 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getCurrentViewport -} getCurrentViewport :: HG3DClass -> IO (HG3DClass) @@ -1701,7 +1703,7 @@ getCurrentViewport'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 936 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 938 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function setCameraRelativeRendering -} setCameraRelativeRendering :: HG3DClass -> Bool -> IO () @@ -1710,7 +1712,7 @@ let {a2' = fromBool a2} in setCameraRelativeRendering'_ a1' a2' >>= \res -> return () -{-# LINE 941 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 943 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} {- function getCameraRelativeRendering -} getCameraRelativeRendering :: HG3DClass -> IO (Bool) @@ -1720,7 +1722,7 @@ getCameraRelativeRendering'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 946 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} +{-# LINE 948 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManager.chs.h ogre_scmgr_destruct"
HGamer3D/Bindings/Ogre/ClassSceneManagerFactory.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} {- function ~SceneManagerFactory -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} {- function createInstance -} createInstance :: HG3DClass -> String -> IO (HG3DClass) @@ -65,7 +67,7 @@ createInstance'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} {- function destroyInstance -} destroyInstance :: HG3DClass -> HG3DClass -> IO () @@ -74,7 +76,7 @@ withHG3DClass a2 $ \a2' -> destroyInstance'_ a1' a2' >>= \res -> return () -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneManagerFactory.chs.h ogre_smf_destruct"
HGamer3D/Bindings/Ogre/ClassSceneNode.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} import HGamer3D.Bindings.Ogre.StructVec3 -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} import HGamer3D.Bindings.Ogre.StructQuaternion -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function ~SceneNode -} delete :: HG3DClass -> IO () @@ -58,7 +60,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function attachObject -} attachObject :: HG3DClass -> HG3DClass -> IO () @@ -67,7 +69,7 @@ withHG3DClass a2 $ \a2' -> attachObject'_ a1' a2' >>= \res -> return () -{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function numAttachedObjects -} numAttachedObjects :: HG3DClass -> IO (Int) @@ -77,7 +79,7 @@ numAttachedObjects'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getAttachedObject -} getAttachedObject :: HG3DClass -> Int -> IO (HG3DClass) @@ -88,7 +90,7 @@ getAttachedObject'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getAttachedObject2 -} getAttachedObject2 :: HG3DClass -> String -> IO (HG3DClass) @@ -99,7 +101,7 @@ getAttachedObject2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function detachObject -} detachObject :: HG3DClass -> Int -> IO (HG3DClass) @@ -110,7 +112,7 @@ detachObject'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function detachObject2 -} detachObject2 :: HG3DClass -> HG3DClass -> IO () @@ -119,7 +121,7 @@ withHG3DClass a2 $ \a2' -> detachObject2'_ a1' a2' >>= \res -> return () -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function detachObject3 -} detachObject3 :: HG3DClass -> String -> IO (HG3DClass) @@ -130,7 +132,7 @@ detachObject3'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function detachAllObjects -} detachAllObjects :: HG3DClass -> IO () @@ -138,7 +140,7 @@ withHG3DClass a1 $ \a1' -> detachAllObjects'_ a1' >>= \res -> return () -{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function isInSceneGraph -} isInSceneGraph :: HG3DClass -> IO (Bool) @@ -148,7 +150,7 @@ isInSceneGraph'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 97 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 99 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getCreator -} getCreator :: HG3DClass -> IO (HG3DClass) @@ -158,7 +160,7 @@ getCreator'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function removeAndDestroyChild -} removeAndDestroyChild :: HG3DClass -> String -> IO () @@ -167,7 +169,7 @@ withCString a2 $ \a2' -> removeAndDestroyChild'_ a1' a2' >>= \res -> return () -{-# LINE 107 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function removeAndDestroyChild2 -} removeAndDestroyChild2 :: HG3DClass -> Int -> IO () @@ -176,7 +178,7 @@ let {a2' = fromIntegral a2} in removeAndDestroyChild2'_ a1' a2' >>= \res -> return () -{-# LINE 112 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 114 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function removeAndDestroyAllChildren -} removeAndDestroyAllChildren :: HG3DClass -> IO () @@ -184,7 +186,7 @@ withHG3DClass a1 $ \a1' -> removeAndDestroyAllChildren'_ a1' >>= \res -> return () -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function showBoundingBox -} showBoundingBox :: HG3DClass -> Bool -> IO () @@ -193,7 +195,7 @@ let {a2' = fromBool a2} in showBoundingBox'_ a1' a2' >>= \res -> return () -{-# LINE 121 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function hideBoundingBox -} hideBoundingBox :: HG3DClass -> Bool -> IO () @@ -202,7 +204,7 @@ let {a2' = fromBool a2} in hideBoundingBox'_ a1' a2' >>= \res -> return () -{-# LINE 126 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getShowBoundingBox -} getShowBoundingBox :: HG3DClass -> IO (Bool) @@ -212,7 +214,7 @@ getShowBoundingBox'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 131 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function createChildSceneNode -} createChildSceneNode :: HG3DClass -> Vec3 -> Quaternion -> IO (HG3DClass) @@ -224,7 +226,7 @@ createChildSceneNode'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function createChildSceneNode2 -} createChildSceneNode2 :: HG3DClass -> String -> Vec3 -> Quaternion -> IO (HG3DClass) @@ -237,7 +239,7 @@ createChildSceneNode2'_ a1' a2' a3' a4' a5' >>= \res -> peek a5'>>= \a5'' -> return (a5'') -{-# LINE 146 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 148 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function setFixedYawAxis -} setFixedYawAxis :: HG3DClass -> Bool -> Vec3 -> IO () @@ -247,7 +249,7 @@ withVec3 a3 $ \a3' -> setFixedYawAxis'_ a1' a2' a3' >>= \res -> return () -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getAutoTrackTarget -} getAutoTrackTarget :: HG3DClass -> IO (HG3DClass) @@ -257,7 +259,7 @@ getAutoTrackTarget'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getAutoTrackOffset -} getAutoTrackOffset :: HG3DClass -> IO (Vec3) @@ -267,7 +269,7 @@ getAutoTrackOffset'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getAutoTrackLocalDirection -} getAutoTrackLocalDirection :: HG3DClass -> IO (Vec3) @@ -277,7 +279,7 @@ getAutoTrackLocalDirection'_ a1' a2' >>= \res -> peekVec3 a2'>>= \a2'' -> return (a2'') -{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function getParentSceneNode -} getParentSceneNode :: HG3DClass -> IO (HG3DClass) @@ -287,7 +289,7 @@ getParentSceneNode'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function setVisible -} setVisible :: HG3DClass -> Bool -> Bool -> IO () @@ -297,7 +299,7 @@ let {a3' = fromBool a3} in setVisible'_ a1' a2' a3' >>= \res -> return () -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function flipVisibility -} flipVisibility :: HG3DClass -> Bool -> IO () @@ -306,7 +308,7 @@ let {a2' = fromBool a2} in flipVisibility'_ a1' a2' >>= \res -> return () -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} {- function setDebugDisplayEnabled -} setDebugDisplayEnabled :: HG3DClass -> Bool -> Bool -> IO () @@ -316,7 +318,7 @@ let {a3' = fromBool a3} in setDebugDisplayEnabled'_ a1' a2' a3' >>= \res -> return () -{-# LINE 189 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} +{-# LINE 191 ".\\HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSceneNode.chs.h ogre_sn_destruct"
HGamer3D/Bindings/Ogre/ClassSkeleton.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,13 +44,13 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} import HGamer3D.Bindings.Ogre.EnumSkeletonAnimationBlendMode -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function ~Skeleton -} delete :: HG3DClass -> IO () @@ -56,7 +58,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function createBone -} createBone :: HG3DClass -> IO (HG3DClass) @@ -66,7 +68,7 @@ createBone'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function createBone2 -} createBone2 :: HG3DClass -> Int -> IO (HG3DClass) @@ -77,7 +79,7 @@ createBone2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function createBone3 -} createBone3 :: HG3DClass -> String -> IO (HG3DClass) @@ -88,7 +90,7 @@ createBone3'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function createBone4 -} createBone4 :: HG3DClass -> String -> Int -> IO (HG3DClass) @@ -100,7 +102,7 @@ createBone4'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 72 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getNumBones -} getNumBones :: HG3DClass -> IO (Int) @@ -110,7 +112,7 @@ getNumBones'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 77 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getRootBone -} getRootBone :: HG3DClass -> IO (HG3DClass) @@ -120,7 +122,7 @@ getRootBone'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getBone -} getBone :: HG3DClass -> Int -> IO (HG3DClass) @@ -131,7 +133,7 @@ getBone'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getBone2 -} getBone2 :: HG3DClass -> String -> IO (HG3DClass) @@ -142,7 +144,7 @@ getBone2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 94 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 96 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function hasBone -} hasBone :: HG3DClass -> String -> IO (Bool) @@ -153,7 +155,7 @@ hasBone'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 102 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function setBindingPose -} setBindingPose :: HG3DClass -> IO () @@ -161,7 +163,7 @@ withHG3DClass a1 $ \a1' -> setBindingPose'_ a1' >>= \res -> return () -{-# LINE 104 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 106 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function reset -} reset :: HG3DClass -> Bool -> IO () @@ -170,7 +172,7 @@ let {a2' = fromBool a2} in reset'_ a1' a2' >>= \res -> return () -{-# LINE 109 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 111 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function createAnimation -} createAnimation :: HG3DClass -> String -> Float -> IO (HG3DClass) @@ -182,7 +184,7 @@ createAnimation'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 116 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getAnimation2 -} getAnimation2 :: HG3DClass -> String -> IO (HG3DClass) @@ -193,7 +195,7 @@ getAnimation2'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 122 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 124 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function hasAnimation -} hasAnimation :: HG3DClass -> String -> IO (Bool) @@ -204,7 +206,7 @@ hasAnimation'_ a1' a2' a3' >>= \res -> peekBoolUtil a3'>>= \a3'' -> return (a3'') -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function removeAnimation -} removeAnimation :: HG3DClass -> String -> IO () @@ -213,7 +215,7 @@ withCString a2 $ \a2' -> removeAnimation'_ a1' a2' >>= \res -> return () -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function setAnimationState -} setAnimationState :: HG3DClass -> HG3DClass -> IO () @@ -222,7 +224,7 @@ withHG3DClass a2 $ \a2' -> setAnimationState'_ a1' a2' >>= \res -> return () -{-# LINE 138 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 140 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getNumAnimations -} getNumAnimations :: HG3DClass -> IO (Int) @@ -232,7 +234,7 @@ getNumAnimations'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 145 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getAnimation3 -} getAnimation3 :: HG3DClass -> Int -> IO (HG3DClass) @@ -243,7 +245,7 @@ getAnimation3'_ a1' a2' a3' >>= \res -> peek a3'>>= \a3'' -> return (a3'') -{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 151 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getBlendMode -} getBlendMode :: HG3DClass -> IO (EnumSkeletonAnimationBlendMode) @@ -253,7 +255,7 @@ getBlendMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 156 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function setBlendMode -} setBlendMode :: HG3DClass -> EnumSkeletonAnimationBlendMode -> IO () @@ -262,7 +264,7 @@ let {a2' = cIntFromEnum a2} in setBlendMode'_ a1' a2' >>= \res -> return () -{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 161 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function optimiseAllAnimations -} optimiseAllAnimations :: HG3DClass -> Bool -> IO () @@ -271,7 +273,7 @@ let {a2' = fromBool a2} in optimiseAllAnimations'_ a1' a2' >>= \res -> return () -{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 166 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function addLinkedSkeletonAnimationSource -} addLinkedSkeletonAnimationSource :: HG3DClass -> String -> Float -> IO () @@ -281,7 +283,7 @@ let {a3' = realToFrac a3} in addLinkedSkeletonAnimationSource'_ a1' a2' a3' >>= \res -> return () -{-# LINE 170 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function removeAllLinkedSkeletonAnimationSources -} removeAllLinkedSkeletonAnimationSources :: HG3DClass -> IO () @@ -289,7 +291,7 @@ withHG3DClass a1 $ \a1' -> removeAllLinkedSkeletonAnimationSources'_ a1' >>= \res -> return () -{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 176 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function getManualBonesDirty -} getManualBonesDirty :: HG3DClass -> IO (Bool) @@ -299,7 +301,7 @@ getManualBonesDirty'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 179 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 181 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} {- function hasManualBones -} hasManualBones :: HG3DClass -> IO (Bool) @@ -309,7 +311,7 @@ hasManualBones'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} +{-# LINE 186 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeleton.chs.h ogre_skl_destruct"
HGamer3D/Bindings/Ogre/ClassSkeletonManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} {- function SkeletonManager -} new :: IO (HG3DClass) @@ -55,7 +57,7 @@ new'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} {- function ~SkeletonManager -} delete :: HG3DClass -> IO () @@ -63,7 +65,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -72,7 +74,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -81,7 +83,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} +{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassSkeletonManager.chs.h ogre_sklmgr_construct"
HGamer3D/Bindings/Ogre/ClassTextureManager.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} {- function ~TextureManager -} delete :: HG3DClass -> IO () @@ -54,7 +56,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} {- function setDefaultNumMipmaps -} setDefaultNumMipmaps :: HG3DClass -> Int -> IO () @@ -63,7 +65,7 @@ let {a2' = fromIntegral a2} in setDefaultNumMipmaps'_ a1' a2' >>= \res -> return () -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} {- function getDefaultNumMipmaps -} getDefaultNumMipmaps :: HG3DClass -> IO (Int) @@ -73,7 +75,7 @@ getDefaultNumMipmaps'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} {- function getSingleton -} getSingleton :: IO (HG3DClass) @@ -82,7 +84,7 @@ getSingleton'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} {- function getSingletonPtr -} getSingletonPtr :: IO (HG3DClass) @@ -91,7 +93,7 @@ getSingletonPtr'_ a1' >>= \res -> peek a1'>>= \a1'' -> return (a1'') -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTextureManager.chs.h ogre_txmgr_destruct"
HGamer3D/Bindings/Ogre/ClassTimeIndex.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} {- function TimeIndex -} new :: Float -> IO (HG3DClass) @@ -56,7 +58,7 @@ new'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} {- function hasKeyIndex -} hasKeyIndex :: HG3DClass -> IO (Bool) @@ -66,7 +68,7 @@ hasKeyIndex'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} {- function getTimePos -} getTimePos :: HG3DClass -> IO (Float) @@ -76,7 +78,7 @@ getTimePos'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 60 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} {- function getKeyIndex -} getKeyIndex :: HG3DClass -> IO (Int) @@ -86,7 +88,7 @@ getKeyIndex'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} +{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassTimeIndex.chs.h ogre_tnx_construct"
HGamer3D/Bindings/Ogre/ClassVertexAnimationTrack.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,15 +44,15 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.EnumVertexAnimationType -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} import HGamer3D.Bindings.Ogre.EnumVertexAnimationTrackTargetMode -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function VertexAnimationTrack -} new :: HG3DClass -> Int -> EnumVertexAnimationType -> IO (HG3DClass) @@ -62,7 +64,7 @@ new'_ a1' a2' a3' a4' >>= \res -> peek a4'>>= \a4'' -> return (a4'') -{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 54 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function getAnimationType -} getAnimationType :: HG3DClass -> IO (EnumVertexAnimationType) @@ -72,7 +74,7 @@ getAnimationType'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function getVertexAnimationIncludesNormals -} getVertexAnimationIncludesNormals :: HG3DClass -> IO (Bool) @@ -82,7 +84,7 @@ getVertexAnimationIncludesNormals'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function apply -} apply :: HG3DClass -> HG3DClass -> Float -> Float -> IO () @@ -93,7 +95,7 @@ let {a4' = realToFrac a4} in apply'_ a1' a2' a3' a4' >>= \res -> return () -{-# LINE 69 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function setTargetMode -} setTargetMode :: HG3DClass -> EnumVertexAnimationTrackTargetMode -> IO () @@ -102,7 +104,7 @@ let {a2' = cIntFromEnum a2} in setTargetMode'_ a1' a2' >>= \res -> return () -{-# LINE 74 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function getTargetMode -} getTargetMode :: HG3DClass -> IO (EnumVertexAnimationTrackTargetMode) @@ -112,7 +114,7 @@ getTargetMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 79 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 81 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function hasNonZeroKeyFrames -} hasNonZeroKeyFrames :: HG3DClass -> IO (Bool) @@ -122,7 +124,7 @@ hasNonZeroKeyFrames'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 84 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 86 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} {- function optimise -} optimise :: HG3DClass -> IO () @@ -130,7 +132,7 @@ withHG3DClass a1 $ \a1' -> optimise'_ a1' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassVertexAnimationTrack.chs.h ogre_vat_construct"
HGamer3D/Bindings/Ogre/ClassViewport.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,17 +44,17 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} import HGamer3D.Bindings.Ogre.StructColour -{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} import HGamer3D.Bindings.Ogre.EnumOrientationMode -{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} import HGamer3D.Bindings.Ogre.StructVec2 -{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function Viewport -} new :: HG3DClass -> HG3DClass -> Float -> Float -> Float -> Float -> Int -> IO (HG3DClass) @@ -68,7 +70,7 @@ new'_ a1' a2' a3' a4' a5' a6' a7' a8' >>= \res -> peek a8'>>= \a8'' -> return (a8'') -{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 59 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function ~Viewport -} delete :: HG3DClass -> IO () @@ -76,7 +78,7 @@ withHG3DClass a1 $ \a1' -> delete'_ a1' >>= \res -> return () -{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 63 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function update -} update :: HG3DClass -> IO () @@ -84,7 +86,7 @@ withHG3DClass a1 $ \a1' -> update'_ a1' >>= \res -> return () -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function clear -} clear :: HG3DClass -> Int -> Colour -> Float -> Int -> IO () @@ -96,7 +98,7 @@ let {a5' = fromIntegral a5} in clear'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 73 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 75 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getTarget -} getTarget :: HG3DClass -> IO (HG3DClass) @@ -106,7 +108,7 @@ getTarget'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 78 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 80 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getCamera -} getCamera :: HG3DClass -> IO (HG3DClass) @@ -116,7 +118,7 @@ getCamera'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') -{-# LINE 83 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 85 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setCamera -} setCamera :: HG3DClass -> HG3DClass -> IO () @@ -125,7 +127,7 @@ withHG3DClass a2 $ \a2' -> setCamera'_ a1' a2' >>= \res -> return () -{-# LINE 88 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 90 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getZOrder -} getZOrder :: HG3DClass -> IO (Int) @@ -135,7 +137,7 @@ getZOrder'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 93 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 95 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getLeft -} getLeft :: HG3DClass -> IO (Float) @@ -145,7 +147,7 @@ getLeft'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 98 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getTop -} getTop :: HG3DClass -> IO (Float) @@ -155,7 +157,7 @@ getTop'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 103 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getWidth -} getWidth :: HG3DClass -> IO (Float) @@ -165,7 +167,7 @@ getWidth'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 108 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getHeight -} getHeight :: HG3DClass -> IO (Float) @@ -175,7 +177,7 @@ getHeight'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 113 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getActualLeft -} getActualLeft :: HG3DClass -> IO (Int) @@ -185,7 +187,7 @@ getActualLeft'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 118 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getActualTop -} getActualTop :: HG3DClass -> IO (Int) @@ -195,7 +197,7 @@ getActualTop'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 123 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getActualWidth -} getActualWidth :: HG3DClass -> IO (Int) @@ -205,7 +207,7 @@ getActualWidth'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 128 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 130 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getActualHeight -} getActualHeight :: HG3DClass -> IO (Int) @@ -215,7 +217,7 @@ getActualHeight'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 133 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 135 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setDimensions -} setDimensions :: HG3DClass -> Float -> Float -> Float -> Float -> IO () @@ -227,7 +229,7 @@ let {a5' = realToFrac a5} in setDimensions'_ a1' a2' a3' a4' a5' >>= \res -> return () -{-# LINE 141 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setOrientationMode -} setOrientationMode :: HG3DClass -> EnumOrientationMode -> Bool -> IO () @@ -237,7 +239,7 @@ let {a3' = fromBool a3} in setOrientationMode'_ a1' a2' a3' >>= \res -> return () -{-# LINE 147 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getOrientationMode -} getOrientationMode :: HG3DClass -> IO (EnumOrientationMode) @@ -247,7 +249,7 @@ getOrientationMode'_ a1' a2' >>= \res -> peekEnumUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 152 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setBackgroundColour -} setBackgroundColour :: HG3DClass -> Colour -> IO () @@ -256,7 +258,7 @@ withColour a2 $ \a2' -> setBackgroundColour'_ a1' a2' >>= \res -> return () -{-# LINE 157 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getBackgroundColour -} getBackgroundColour :: HG3DClass -> IO (Colour) @@ -266,7 +268,7 @@ getBackgroundColour'_ a1' a2' >>= \res -> peekColour a2'>>= \a2'' -> return (a2'') -{-# LINE 162 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 164 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setDepthClear -} setDepthClear :: HG3DClass -> Float -> IO () @@ -275,7 +277,7 @@ let {a2' = realToFrac a2} in setDepthClear'_ a1' a2' >>= \res -> return () -{-# LINE 167 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getDepthClear -} getDepthClear :: HG3DClass -> IO (Float) @@ -285,7 +287,7 @@ getDepthClear'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') -{-# LINE 172 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 174 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setClearEveryFrame -} setClearEveryFrame :: HG3DClass -> Bool -> Int -> IO () @@ -295,7 +297,7 @@ let {a3' = fromIntegral a3} in setClearEveryFrame'_ a1' a2' a3' >>= \res -> return () -{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 180 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getClearEveryFrame -} getClearEveryFrame :: HG3DClass -> IO (Bool) @@ -305,7 +307,7 @@ getClearEveryFrame'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 183 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 185 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getClearBuffers -} getClearBuffers :: HG3DClass -> IO (Int) @@ -315,7 +317,7 @@ getClearBuffers'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 190 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setAutoUpdated -} setAutoUpdated :: HG3DClass -> Bool -> IO () @@ -324,7 +326,7 @@ let {a2' = fromBool a2} in setAutoUpdated'_ a1' a2' >>= \res -> return () -{-# LINE 193 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 195 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function isAutoUpdated -} isAutoUpdated :: HG3DClass -> IO (Bool) @@ -334,7 +336,7 @@ isAutoUpdated'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 198 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 200 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setMaterialScheme -} setMaterialScheme :: HG3DClass -> String -> IO () @@ -343,7 +345,7 @@ withCString a2 $ \a2' -> setMaterialScheme'_ a1' a2' >>= \res -> return () -{-# LINE 203 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 205 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getMaterialScheme -} getMaterialScheme :: HG3DClass -> IO (String) @@ -353,7 +355,7 @@ getMaterialScheme'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 210 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getActualDimensions -} getActualDimensions :: HG3DClass -> IO (Int, Int, Int, Int) @@ -369,7 +371,7 @@ peekIntConv a4'>>= \a4'' -> peekIntConv a5'>>= \a5'' -> return (a2'', a3'', a4'', a5'') -{-# LINE 216 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 218 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setOverlaysEnabled -} setOverlaysEnabled :: HG3DClass -> Bool -> IO () @@ -378,7 +380,7 @@ let {a2' = fromBool a2} in setOverlaysEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 221 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 223 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getOverlaysEnabled -} getOverlaysEnabled :: HG3DClass -> IO (Bool) @@ -388,7 +390,7 @@ getOverlaysEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 226 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 228 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setSkiesEnabled -} setSkiesEnabled :: HG3DClass -> Bool -> IO () @@ -397,7 +399,7 @@ let {a2' = fromBool a2} in setSkiesEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 231 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 233 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getSkiesEnabled -} getSkiesEnabled :: HG3DClass -> IO (Bool) @@ -407,7 +409,7 @@ getSkiesEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 236 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 238 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setShadowsEnabled -} setShadowsEnabled :: HG3DClass -> Bool -> IO () @@ -416,7 +418,7 @@ let {a2' = fromBool a2} in setShadowsEnabled'_ a1' a2' >>= \res -> return () -{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 243 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getShadowsEnabled -} getShadowsEnabled :: HG3DClass -> IO (Bool) @@ -426,7 +428,7 @@ getShadowsEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') -{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 248 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setVisibilityMask -} setVisibilityMask :: HG3DClass -> Int -> IO () @@ -435,7 +437,7 @@ let {a2' = fromIntegral a2} in setVisibilityMask'_ a1' a2' >>= \res -> return () -{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 253 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getVisibilityMask -} getVisibilityMask :: HG3DClass -> IO (Int) @@ -445,7 +447,7 @@ getVisibilityMask'_ a1' a2' >>= \res -> peekIntConv a2'>>= \a2'' -> return (a2'') -{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 258 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setRenderQueueInvocationSequenceName -} setRenderQueueInvocationSequenceName :: HG3DClass -> String -> IO () @@ -454,7 +456,7 @@ withCString a2 $ \a2' -> setRenderQueueInvocationSequenceName'_ a1' a2' >>= \res -> return () -{-# LINE 261 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 263 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getRenderQueueInvocationSequenceName -} getRenderQueueInvocationSequenceName :: HG3DClass -> IO (String) @@ -464,7 +466,7 @@ getRenderQueueInvocationSequenceName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') -{-# LINE 266 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 268 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function pointOrientedToScreen -} pointOrientedToScreen :: HG3DClass -> Vec2 -> Int -> IO (Vec2) @@ -476,7 +478,7 @@ pointOrientedToScreen'_ a1' a2' a3' a4' >>= \res -> peekVec2 a4'>>= \a4'' -> return (a4'') -{-# LINE 273 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 275 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function pointOrientedToScreen2 -} pointOrientedToScreen2 :: HG3DClass -> Float -> Float -> Int -> IO (Float, Float) @@ -491,7 +493,7 @@ peekFloatConv a5'>>= \a5'' -> peekFloatConv a6'>>= \a6'' -> return (a5'', a6'') -{-# LINE 282 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 284 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function setDefaultOrientationMode -} setDefaultOrientationMode :: EnumOrientationMode -> IO () @@ -499,7 +501,7 @@ let {a1' = cIntFromEnum a1} in setDefaultOrientationMode'_ a1' >>= \res -> return () -{-# LINE 286 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 288 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} {- function getDefaultOrientationMode -} getDefaultOrientationMode :: IO (EnumOrientationMode) @@ -508,7 +510,7 @@ getDefaultOrientationMode'_ a1' >>= \res -> peekEnumUtil a1'>>= \a1'' -> return (a1'') -{-# LINE 290 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} +{-# LINE 292 ".\\HGamer3D\\Bindings\\Ogre\\ClassViewport.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassViewport.chs.h ogre_vprt_construct"
HGamer3D/Bindings/Ogre/ClassWindowEventUtilities.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,18 +44,18 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} {- function messagePump -} messagePump :: IO () messagePump = messagePump'_ >>= \res -> return () -{-# LINE 47 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} +{-# LINE 49 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowEventUtilities.chs.h ogre_weu_messagePump"
HGamer3D/Bindings/Ogre/ClassWindowUtilsHG3D.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -42,11 +44,11 @@ import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.Utils -{-# LINE 40 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} +{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr -{-# LINE 41 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} +{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} import HGamer3D.Bindings.Ogre.StructHG3DClass -{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} +{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} {- function getWindowTopLeft -} getWindowTopLeft :: HG3DClass -> IO (Int, Int, Int, Int) @@ -62,7 +64,7 @@ peekIntConv a4'>>= \a4'' -> peekIntConv a5'>>= \a5'' -> return (a2'', a3'', a4'', a5'') -{-# LINE 51 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} +{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} {- function showCursor -} showCursor :: Bool -> IO () @@ -70,7 +72,7 @@ let {a1' = fromBool a1} in showCursor'_ a1' >>= \res -> return () -{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} +{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs" #-} foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassWindowUtilsHG3D.chs.h ogre_wuhg3d_getWindowTopLeft"
HGamer3D/Bindings/Ogre/EnumAnimationInterpolationMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumAnimationRotationInterpolationMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxCorner.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumAxisAlignedBoxExtent.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumBillboardChainTexCoordDirection.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumBillboardOrigin.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumBillboardRotationType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumBillboardType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumDataStreamAccessMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumEntityVertexDataBindChoice.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumExceptionCode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumFrustumPlane.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumGpuProgramType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumLightType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumLogMessageLevel.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumLoggingLevel.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumMathAngleUnit.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumMeshManagerMeshBuildType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumNodeTransformSpace.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumOrientationMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumProjectionType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumRenderOperationOperationType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumRenderTargetFrameBuffer.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumRenderTargetStatFlags.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumRootFrameEventTimeType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSceneManagerBoxPlane.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSceneManagerIlluminationRenderStage.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSceneManagerPrefabType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSceneManagerSpecialCaseRenderQueueMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSceneType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumSkeletonAnimationBlendMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumStencilOperation.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumTexCoordCalcMethod.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumVertexAnimationTrackTargetMode.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/EnumVertexAnimationType.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
HGamer3D/Bindings/Ogre/StructColour.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -49,7 +51,7 @@ instance Storable Colour where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 16 -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-} peek p = do r <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p g <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p @@ -64,7 +66,7 @@ (\ptr val -> do {pokeByteOff ptr 12 (val::CFloat)}) p (realToFrac a) type ColourPtr = Ptr (Colour) -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\StructColour.chs" #-} withColour :: Colour -> (ColourPtr -> IO b) -> IO b withColour = with
HGamer3D/Bindings/Ogre/StructDegrees.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -49,7 +51,7 @@ instance Storable Degrees where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 4 -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-} peek p = do d <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p let de = Degrees (realToFrac d) @@ -58,7 +60,7 @@ (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac d) type DegreesPtr = Ptr (Degrees) -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\StructDegrees.chs" #-} withDegrees :: Degrees -> (DegreesPtr -> IO b) -> IO b withDegrees = with
HGamer3D/Bindings/Ogre/StructHG3DClass.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -47,7 +49,7 @@ import HGamer3D.Data.HG3DClass type HG3DClassPtr = Ptr (HG3DClass) -{-# LINE 46 ".\\HGamer3D\\Bindings\\Ogre\\StructHG3DClass.chs" #-} +{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\StructHG3DClass.chs" #-} withHG3DClass :: HG3DClass -> (HG3DClassPtr -> IO b) -> IO b withHG3DClass = with
HGamer3D/Bindings/Ogre/StructQuaternion.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -51,7 +53,7 @@ instance Storable Quat where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 16 -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-} peek p = do fw <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p fx <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p @@ -68,7 +70,7 @@ type QuatPtr = Ptr (Quat) type QuaternionPtr = Ptr (Quaternion) -{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-} +{-# LINE 68 ".\\HGamer3D\\Bindings\\Ogre\\StructQuaternion.chs" #-} withQuaternion :: Quaternion -> (QuaternionPtr -> IO b) -> IO b withQuaternion q f = with q' f' where
HGamer3D/Bindings/Ogre/StructRadians.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -49,7 +51,7 @@ instance Storable Radians where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 4 -{-# LINE 48 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-} +{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-} peek p = do r <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p let ra = Radians (realToFrac r) @@ -58,7 +60,7 @@ (\ptr val -> do {pokeByteOff ptr 0 (val::CFloat)}) p (realToFrac r) type RadiansPtr = Ptr (Radians) -{-# LINE 56 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-} +{-# LINE 58 ".\\HGamer3D\\Bindings\\Ogre\\StructRadians.chs" #-} withRadians :: Radians -> (RadiansPtr -> IO b) -> IO b withRadians = with
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -54,7 +56,7 @@ instance Storable SharedPtr where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 12 -{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-} +{-# LINE 55 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-} peek p = do pt <- (\ptr -> do {peekByteOff ptr 0 ::IO (Ptr ())}) p pc <- (\ptr -> do {peekByteOff ptr 4 ::IO (Ptr ())}) p @@ -67,7 +69,7 @@ (\ptr val -> do {pokeByteOff ptr 8 (val::(Ptr ()))}) p pf type SharedPtrPtr = Ptr (SharedPtr) -{-# LINE 65 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-} +{-# LINE 67 ".\\HGamer3D\\Bindings\\Ogre\\StructSharedPtr.chs" #-} withSharedPtr :: SharedPtr -> (SharedPtrPtr -> IO b) -> IO b withSharedPtr = with
HGamer3D/Bindings/Ogre/StructVec2.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -51,7 +53,7 @@ instance Storable Vector2 where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 8 -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-} peek p = do x <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p @@ -64,7 +66,7 @@ type Vector2Ptr = Ptr (Vector2) type Vec2Ptr = Ptr (Vec2) -{-# LINE 62 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-} +{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\StructVec2.chs" #-} withVec2 :: Vec2 -> (Vec2Ptr -> IO b) -> IO b withVec2 v f = with v' f' where
HGamer3D/Bindings/Ogre/StructVec3.hs view
@@ -10,8 +10,10 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz -- +-- The files are part of HGamer3D (www.hgamer3d.org) +-- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at @@ -51,7 +53,7 @@ instance Storable Vector3 where alignment _ = alignment (undefined :: CDouble) sizeOf _ = 12 -{-# LINE 50 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-} +{-# LINE 52 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-} peek p = do x <- (\ptr -> do {peekByteOff ptr 0 ::IO CFloat}) p y <- (\ptr -> do {peekByteOff ptr 4 ::IO CFloat}) p @@ -66,7 +68,7 @@ type Vector3Ptr = Ptr (Vector3) type Vec3Ptr = Ptr (Vec3) -{-# LINE 64 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-} +{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\StructVec3.chs" #-} withVec3 :: Vec3 -> (Vec3Ptr -> IO b) -> IO b withVec3 v f = with v' f' where
HGamer3D/Bindings/Ogre/Utils.hs view
@@ -10,7 +10,9 @@ -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
LICENSE view
@@ -1,4 +1,6 @@-(c) 2011, 2012 Peter Althainz +(c) 2011-2013 Peter Althainz + +The files are part of HGamer3D (www.hgamer3d.org) Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License.
Setup.hs view
@@ -2,7 +2,9 @@ -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- --- (c) 2011, 2012 Peter Althainz +-- (c) 2011-2013 Peter Althainz +-- +-- The files are part of HGamer3D (www.hgamer3d.org) -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License.
include/ClassAnimation.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassAnimationState.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassAnimationStateSet.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassAnimationTrack.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassArchive.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassArchiveManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBillboard.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBillboardChain.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBillboardChainFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBillboardSet.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBillboardSetFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassBone.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassCamera.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassConfigFile.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassControllerManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassEntity.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassEntityFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassException.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassFrustum.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassHG3DMessagePump.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassLight.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassLightFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassLog.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassLogManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassManualObject.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassManualObjectFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassManualObjectSection.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMaterial.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMaterialManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMesh.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMeshManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMovableObject.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMovableObjectFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassMultiRenderTarget.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassNode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassNodeAnimationTrack.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassNumericAnimationTrack.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassPtr.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRenderSystem.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRenderTarget.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRenderTexture.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRenderWindow.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRenderable.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassResource.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassResourceGroupManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassResourceManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassRoot.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassSceneManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassSceneManagerFactory.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassSceneNode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassSkeleton.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassSkeletonManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassTextureManager.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassTimeIndex.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassVertexAnimationTrack.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassViewport.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassWindowEventUtilities.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/ClassWindowUtilsHG3D.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumAnimationInterpolationMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumAnimationRotationInterpolationMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumAxisAlignedBoxCorner.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumAxisAlignedBoxExtent.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumBillboardChainTexCoordDirection.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumBillboardOrigin.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumBillboardRotationType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumBillboardType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumDataStreamAccessMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumEntityVertexDataBindChoice.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumExceptionCode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumFrustumPlane.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumGpuProgramType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumLightType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumLogMessageLevel.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumLoggingLevel.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumMathAngleUnit.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumMeshManagerMeshBuildType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumNodeTransformSpace.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumOrientationMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumProjectionType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumRenderOperationOperationType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumRenderTargetFrameBuffer.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumRenderTargetStatFlags.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumRootFrameEventTimeType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSceneManagerBoxPlane.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSceneManagerIlluminationRenderStage.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSceneManagerPrefabType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSceneManagerSpecialCaseRenderQueueMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSceneType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumSkeletonAnimationBlendMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumStencilOperation.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumTexCoordCalcMethod.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumVertexAnimationTrackTargetMode.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/EnumVertexAnimationType.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/OgreDllDefines.h view
@@ -1,5 +1,7 @@-// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz // +// The files are part of HGamer3D (www.hgamer3d.org) +// // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License. // You may obtain a copy of the License at @@ -16,10 +18,10 @@ // OgreDllDefines.h -#ifndef _HGamer3DOgre020_DLLDEFINES_H_ -#define _HGamer3DOgre020_DLLDEFINES_H_ +#ifndef _HGamer3DOgre021_DLLDEFINES_H_ +#define _HGamer3DOgre021_DLLDEFINES_H_ -/* Cmake will define HGamer3DOgre020_EXPORTS on Windows when it +/* Cmake will define HGamer3DOgre021_EXPORTS on Windows when it configures to build a shared library. If you are going to use another build system on windows or create the visual studio projects by hand you need to define MyLibrary_EXPORTS when @@ -29,13 +31,13 @@ // We are using the Visual Studio Compiler and building Shared libraries #if (defined (_WIN32)) && !(defined (__GNUC__)) - #if defined(HGamer3DOgre020_EXPORTS) + #if defined(HGamer3DOgre021_EXPORTS) #define Ogre_LIB_EXPORT __declspec(dllexport) #else #define Ogre_LIB_EXPORT __declspec(dllimport) - #endif /* HGamer3DOgre020_EXPORTS */ + #endif /* HGamer3DOgre021_EXPORTS */ #else /* defined (_WIN32) */ #define Ogre_LIB_EXPORT #endif -#endif /* _HGamer3DOgre020_DLLDEFINES_H_ */ +#endif /* _HGamer3DOgre021_DLLDEFINES_H_ */
include/StructColour.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructDegrees.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructHG3DClass.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructQuaternion.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructRadians.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructVec2.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.
include/StructVec3.h view
@@ -2,7 +2,9 @@ // (A project to enable 3D game development in Haskell) // For the latest info, see http://www.althainz.de/HGamer3D.html // -// (c) 2011, 2012 Peter Althainz +// (c) 2011-2013 Peter Althainz +// +// The files are part of HGamer3D (www.hgamer3d.org) // // Licensed under the Apache License, Version 2.0 (the "License"); // you may not use this file except in compliance with the License.