-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell) -- Edit the ORIGNAL .chs file instead! {-# LINE 1 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE TypeSynonymInstances #-} -- This source file is part of HGamer3D -- (A project to enable 3D game development in Haskell) -- For the latest info, see http://www.althainz.de/HGamer3D.html -- -- Copyright 2011 Dr. Peter Althainz -- -- Licensed under the Apache License, Version 2.0 (the "License"); -- you may not use this file except in compliance with the License. -- You may obtain a copy of the License at -- -- http://www.apache.org/licenses/LICENSE-2.0 -- -- Unless required by applicable law or agreed to in writing, software -- distributed under the License is distributed on an "AS IS" BASIS, -- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -- See the License for the specific language governing permissions and -- limitations under the License. -- -- ClassParticleEmitter.chs -- -- -- -- -- File for type, method, enum or function stubs -- in: "..\OgreSDK_vc10_v1-7-4\include\OGRE\OgreParticleEmitter.h" -- -- each stub combines the following files: -- a C++ implementation file, transforming cpp calls into C-functions -- a C-header file, making this C-functions available for the C2HS parser -- a chs file, give instructions to the C2HS parser. -- -- module HGamer3D.Bindings.Ogre.ClassParticleEmitter where import C2HS import Foreign import Foreign.Ptr import Foreign.C import Monad (liftM, liftM2) import HGamer3D.Data.HG3DClass import HGamer3D.Data.Vector2 import HGamer3D.Data.Vector3 import HGamer3D.Data.Vector4 import HGamer3D.Data.Quaternion import HGamer3D.Data.Colour import HGamer3D.Data.Angle import HGamer3D.Bindings.Ogre.TypeHG3DClass {-# LINE 52 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} import HGamer3D.Bindings.Ogre.ClassPtr {-# LINE 53 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} import HGamer3D.Bindings.Ogre.Utils {-# LINE 54 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} import HGamer3D.Bindings.Ogre.TypeVector3 {-# LINE 55 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} import HGamer3D.Bindings.Ogre.TypeRadian {-# LINE 56 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} import HGamer3D.Bindings.Ogre.TypeColour {-# LINE 57 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} cPeSetPosition :: HG3DClass -> Vector3 -> IO () cPeSetPosition a1 a2 = withHG3DClass a1 $ \a1' -> withVector3 a2 $ \a2' -> cPeSetPosition'_ a1' a2' >>= \res -> return () {-# LINE 63 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetPosition :: HG3DClass -> IO (Vector3) cPeGetPosition a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetPosition'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 67 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetDirection :: HG3DClass -> Vector3 -> IO () cPeSetDirection a1 a2 = withHG3DClass a1 $ \a1' -> withVector3 a2 $ \a2' -> cPeSetDirection'_ a1' a2' >>= \res -> return () {-# LINE 71 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetDirection :: HG3DClass -> IO (Vector3) cPeGetDirection a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetDirection'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 75 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetAngle :: HG3DClass -> Radians -> IO () cPeSetAngle a1 a2 = withHG3DClass a1 $ \a1' -> withRadians a2 $ \a2' -> cPeSetAngle'_ a1' a2' >>= \res -> return () {-# LINE 79 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetAngle :: HG3DClass -> IO (Radians) cPeGetAngle a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetAngle'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 83 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetParticleVelocity :: HG3DClass -> Float -> IO () cPeSetParticleVelocity a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetParticleVelocity'_ a1' a2' >>= \res -> return () {-# LINE 87 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetParticleVelocity2 :: HG3DClass -> Float -> Float -> IO () cPeSetParticleVelocity2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in let {a3' = realToFrac a3} in cPeSetParticleVelocity2'_ a1' a2' a3' >>= \res -> return () {-# LINE 92 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMinParticleVelocity :: HG3DClass -> Float -> IO () cPeSetMinParticleVelocity a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMinParticleVelocity'_ a1' a2' >>= \res -> return () {-# LINE 96 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMaxParticleVelocity :: HG3DClass -> Float -> IO () cPeSetMaxParticleVelocity a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMaxParticleVelocity'_ a1' a2' >>= \res -> return () {-# LINE 100 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetParticleVelocity :: HG3DClass -> IO (Float) cPeGetParticleVelocity a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetParticleVelocity'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 104 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMinParticleVelocity :: HG3DClass -> IO (Float) cPeGetMinParticleVelocity a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMinParticleVelocity'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 108 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMaxParticleVelocity :: HG3DClass -> IO (Float) cPeGetMaxParticleVelocity a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMaxParticleVelocity'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 112 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetEmissionRate :: HG3DClass -> Float -> IO () cPeSetEmissionRate a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetEmissionRate'_ a1' a2' >>= \res -> return () {-# LINE 116 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetEmissionRate :: HG3DClass -> IO (Float) cPeGetEmissionRate a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetEmissionRate'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 120 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetTimeToLive :: HG3DClass -> Float -> IO () cPeSetTimeToLive a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetTimeToLive'_ a1' a2' >>= \res -> return () {-# LINE 124 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetTimeToLive2 :: HG3DClass -> Float -> Float -> IO () cPeSetTimeToLive2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in let {a3' = realToFrac a3} in cPeSetTimeToLive2'_ a1' a2' a3' >>= \res -> return () {-# LINE 129 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMinTimeToLive :: HG3DClass -> Float -> IO () cPeSetMinTimeToLive a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMinTimeToLive'_ a1' a2' >>= \res -> return () {-# LINE 133 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMaxTimeToLive :: HG3DClass -> Float -> IO () cPeSetMaxTimeToLive a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMaxTimeToLive'_ a1' a2' >>= \res -> return () {-# LINE 137 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetTimeToLive :: HG3DClass -> IO (Float) cPeGetTimeToLive a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetTimeToLive'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 141 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMinTimeToLive :: HG3DClass -> IO (Float) cPeGetMinTimeToLive a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMinTimeToLive'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 145 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMaxTimeToLive :: HG3DClass -> IO (Float) cPeGetMaxTimeToLive a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMaxTimeToLive'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 149 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetColour :: HG3DClass -> Colour -> IO () cPeSetColour a1 a2 = withHG3DClass a1 $ \a1' -> withColour a2 $ \a2' -> cPeSetColour'_ a1' a2' >>= \res -> return () {-# LINE 153 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetColour2 :: HG3DClass -> Colour -> Colour -> IO () cPeSetColour2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> withColour a2 $ \a2' -> withColour a3 $ \a3' -> cPeSetColour2'_ a1' a2' a3' >>= \res -> return () {-# LINE 158 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetColourRangeStart :: HG3DClass -> Colour -> IO () cPeSetColourRangeStart a1 a2 = withHG3DClass a1 $ \a1' -> withColour a2 $ \a2' -> cPeSetColourRangeStart'_ a1' a2' >>= \res -> return () {-# LINE 162 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetColourRangeEnd :: HG3DClass -> Colour -> IO () cPeSetColourRangeEnd a1 a2 = withHG3DClass a1 $ \a1' -> withColour a2 $ \a2' -> cPeSetColourRangeEnd'_ a1' a2' >>= \res -> return () {-# LINE 166 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetColour :: HG3DClass -> IO (Colour) cPeGetColour a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetColour'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 170 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetColourRangeStart :: HG3DClass -> IO (Colour) cPeGetColourRangeStart a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetColourRangeStart'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 174 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetColourRangeEnd :: HG3DClass -> IO (Colour) cPeGetColourRangeEnd a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetColourRangeEnd'_ a1' a2' >>= \res -> peek a2'>>= \a2'' -> return (a2'') {-# LINE 178 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetEmissionCount :: HG3DClass -> Float -> IO (Int) cPeGetEmissionCount a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in alloca $ \a3' -> cPeGetEmissionCount'_ a1' a2' a3' >>= \res -> peekIntConv a3'>>= \a3'' -> return (a3'') {-# LINE 183 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetType :: HG3DClass -> IO (String) cPeGetType a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> cPeGetType'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') {-# LINE 187 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetEnabled :: HG3DClass -> Bool -> IO () cPeSetEnabled a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in cPeSetEnabled'_ a1' a2' >>= \res -> return () {-# LINE 191 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetEnabled :: HG3DClass -> IO (Bool) cPeGetEnabled a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetEnabled'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 195 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetStartTime :: HG3DClass -> Float -> IO () cPeSetStartTime a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetStartTime'_ a1' a2' >>= \res -> return () {-# LINE 199 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetStartTime :: HG3DClass -> IO (Float) cPeGetStartTime a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetStartTime'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 203 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetDuration :: HG3DClass -> Float -> IO () cPeSetDuration a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetDuration'_ a1' a2' >>= \res -> return () {-# LINE 207 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetDuration :: HG3DClass -> IO (Float) cPeGetDuration a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetDuration'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 211 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetDuration2 :: HG3DClass -> Float -> Float -> IO () cPeSetDuration2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in let {a3' = realToFrac a3} in cPeSetDuration2'_ a1' a2' a3' >>= \res -> return () {-# LINE 216 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMinDuration :: HG3DClass -> Float -> IO () cPeSetMinDuration a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMinDuration'_ a1' a2' >>= \res -> return () {-# LINE 220 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMaxDuration :: HG3DClass -> Float -> IO () cPeSetMaxDuration a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMaxDuration'_ a1' a2' >>= \res -> return () {-# LINE 224 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMinDuration :: HG3DClass -> IO (Float) cPeGetMinDuration a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMinDuration'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 228 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMaxDuration :: HG3DClass -> IO (Float) cPeGetMaxDuration a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMaxDuration'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 232 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetRepeatDelay :: HG3DClass -> Float -> IO () cPeSetRepeatDelay a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetRepeatDelay'_ a1' a2' >>= \res -> return () {-# LINE 236 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetRepeatDelay :: HG3DClass -> IO (Float) cPeGetRepeatDelay a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetRepeatDelay'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 240 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetRepeatDelay2 :: HG3DClass -> Float -> Float -> IO () cPeSetRepeatDelay2 a1 a2 a3 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in let {a3' = realToFrac a3} in cPeSetRepeatDelay2'_ a1' a2' a3' >>= \res -> return () {-# LINE 245 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMinRepeatDelay :: HG3DClass -> Float -> IO () cPeSetMinRepeatDelay a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMinRepeatDelay'_ a1' a2' >>= \res -> return () {-# LINE 249 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetMaxRepeatDelay :: HG3DClass -> Float -> IO () cPeSetMaxRepeatDelay a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = realToFrac a2} in cPeSetMaxRepeatDelay'_ a1' a2' >>= \res -> return () {-# LINE 253 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMinRepeatDelay :: HG3DClass -> IO (Float) cPeGetMinRepeatDelay a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMinRepeatDelay'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 257 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetMaxRepeatDelay :: HG3DClass -> IO (Float) cPeGetMaxRepeatDelay a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeGetMaxRepeatDelay'_ a1' a2' >>= \res -> peekFloatConv a2'>>= \a2'' -> return (a2'') {-# LINE 261 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetName :: HG3DClass -> IO (String) cPeGetName a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> cPeGetName'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') {-# LINE 265 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetName :: HG3DClass -> String -> IO () cPeSetName a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> cPeSetName'_ a1' a2' >>= \res -> return () {-# LINE 269 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeGetEmittedEmitter :: HG3DClass -> IO (String) cPeGetEmittedEmitter a1 = withHG3DClass a1 $ \a1' -> alloc64k $ \a2' -> cPeGetEmittedEmitter'_ a1' a2' >>= \res -> peekCString a2'>>= \a2'' -> return (a2'') {-# LINE 273 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetEmittedEmitter :: HG3DClass -> String -> IO () cPeSetEmittedEmitter a1 a2 = withHG3DClass a1 $ \a1' -> withCString a2 $ \a2' -> cPeSetEmittedEmitter'_ a1' a2' >>= \res -> return () {-# LINE 277 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeIsEmitted :: HG3DClass -> IO (Bool) cPeIsEmitted a1 = withHG3DClass a1 $ \a1' -> alloca $ \a2' -> cPeIsEmitted'_ a1' a2' >>= \res -> peekBoolUtil a2'>>= \a2'' -> return (a2'') {-# LINE 281 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; cPeSetEmitted :: HG3DClass -> Bool -> IO () cPeSetEmitted a1 a2 = withHG3DClass a1 $ \a1' -> let {a2' = fromBool a2} in cPeSetEmitted'_ a1' a2' >>= \res -> return () {-# LINE 285 "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs" #-} ; foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setPosition_c" cPeSetPosition'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getPosition_c" cPeGetPosition'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setDirection_c" cPeSetDirection'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getDirection_c" cPeGetDirection'_ :: ((HG3DClassPtr) -> ((Vector3Ptr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setAngle_c" cPeSetAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getAngle_c" cPeGetAngle'_ :: ((HG3DClassPtr) -> ((RadiansPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setParticleVelocity_c" cPeSetParticleVelocity'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setParticleVelocity2_c" cPeSetParticleVelocity2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMinParticleVelocity_c" cPeSetMinParticleVelocity'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMaxParticleVelocity_c" cPeSetMaxParticleVelocity'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getParticleVelocity_c" cPeGetParticleVelocity'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMinParticleVelocity_c" cPeGetMinParticleVelocity'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMaxParticleVelocity_c" cPeGetMaxParticleVelocity'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setEmissionRate_c" cPeSetEmissionRate'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getEmissionRate_c" cPeGetEmissionRate'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setTimeToLive_c" cPeSetTimeToLive'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setTimeToLive2_c" cPeSetTimeToLive2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMinTimeToLive_c" cPeSetMinTimeToLive'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMaxTimeToLive_c" cPeSetMaxTimeToLive'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getTimeToLive_c" cPeGetTimeToLive'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMinTimeToLive_c" cPeGetMinTimeToLive'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMaxTimeToLive_c" cPeGetMaxTimeToLive'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColour_c" cPeSetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColour2_c" cPeSetColour2'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((ColourPtr) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColourRangeStart_c" cPeSetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setColourRangeEnd_c" cPeSetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColour_c" cPeGetColour'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColourRangeStart_c" cPeGetColourRangeStart'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getColourRangeEnd_c" cPeGetColourRangeEnd'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe__getEmissionCount_c" cPeGetEmissionCount'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CUShort) -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getType_c" cPeGetType'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setEnabled_c" cPeSetEnabled'_ :: ((HG3DClassPtr) -> (CInt -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getEnabled_c" cPeGetEnabled'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setStartTime_c" cPeSetStartTime'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getStartTime_c" cPeGetStartTime'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setDuration_c" cPeSetDuration'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getDuration_c" cPeGetDuration'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setDuration2_c" cPeSetDuration2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMinDuration_c" cPeSetMinDuration'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMaxDuration_c" cPeSetMaxDuration'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMinDuration_c" cPeGetMinDuration'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMaxDuration_c" cPeGetMaxDuration'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setRepeatDelay_c" cPeSetRepeatDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getRepeatDelay_c" cPeGetRepeatDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setRepeatDelay2_c" cPeSetRepeatDelay2'_ :: ((HG3DClassPtr) -> (CFloat -> (CFloat -> (IO ())))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMinRepeatDelay_c" cPeSetMinRepeatDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setMaxRepeatDelay_c" cPeSetMaxRepeatDelay'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMinRepeatDelay_c" cPeGetMinRepeatDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getMaxRepeatDelay_c" cPeGetMaxRepeatDelay'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getName_c" cPeGetName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setName_c" cPeSetName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_getEmittedEmitter_c" cPeGetEmittedEmitter'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setEmittedEmitter_c" cPeSetEmittedEmitter'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_isEmitted_c" cPeIsEmitted'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ()))) foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassParticleEmitter.chs.h cPe_setEmitted_c" cPeSetEmitted'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))