HGamer3D-Ogre-Binding-0.2.1: HGamer3D/Bindings/Ogre/ClassRoot.hs

-- GENERATED by C->Haskell Compiler, version 0.16.3 Crystal Seed, 24 Jan 2009 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE TypeSynonymInstances #-}

-- This source file is part of HGamer3D
-- (A project to enable 3D game development in Haskell)
-- For the latest info, see http://www.althainz.de/HGamer3D.html
-- 

-- (c) 2011-2013 Peter Althainz
-- 
-- The files are part of HGamer3D (www.hgamer3d.org)
-- 
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
-- 
--     http://www.apache.org/licenses/LICENSE-2.0
-- 
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
-- 


-- ClassRoot.chs

-- 

module HGamer3D.Bindings.Ogre.ClassRoot where

import Foreign
import Foreign.Ptr
import Foreign.C

import HGamer3D.Data.HG3DClass
import HGamer3D.Data.Vector
import HGamer3D.Data.Colour
import HGamer3D.Data.Angle

import HGamer3D.Bindings.Ogre.Utils
{-# LINE 42 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
import HGamer3D.Bindings.Ogre.ClassPtr
{-# LINE 43 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
import HGamer3D.Bindings.Ogre.StructHG3DClass
{-# LINE 44 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}
import HGamer3D.Bindings.Ogre.StructColour
{-# LINE 45 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function Root -}
new :: String -> String -> String -> IO (HG3DClass)
new a1 a2 a3 =
  withCString a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  withCString a3 $ \a3' -> 
  alloca $ \a4' -> 
  new'_ a1' a2' a3' a4' >>= \res ->
  peek  a4'>>= \a4'' -> 
  return (a4'')
{-# LINE 53 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function ~Root -}
delete :: HG3DClass -> IO ()
delete a1 =
  withHG3DClass a1 $ \a1' -> 
  delete'_ a1' >>= \res ->
  return ()
{-# LINE 57 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function saveConfig -}
saveConfig :: HG3DClass -> IO ()
saveConfig a1 =
  withHG3DClass a1 $ \a1' -> 
  saveConfig'_ a1' >>= \res ->
  return ()
{-# LINE 61 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function restoreConfig -}
restoreConfig :: HG3DClass -> IO (Bool)
restoreConfig a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  restoreConfig'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 66 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function showConfigDialog -}
showConfigDialog :: HG3DClass -> IO (Bool)
showConfigDialog a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  showConfigDialog'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 71 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function addRenderSystem -}
addRenderSystem :: HG3DClass -> HG3DClass -> IO ()
addRenderSystem a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  addRenderSystem'_ a1' a2' >>= \res ->
  return ()
{-# LINE 76 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getRenderSystemByName -}
getRenderSystemByName :: HG3DClass -> String -> IO (HG3DClass)
getRenderSystemByName a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getRenderSystemByName'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 82 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setRenderSystem -}
setRenderSystem :: HG3DClass -> HG3DClass -> IO ()
setRenderSystem a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  setRenderSystem'_ a1' a2' >>= \res ->
  return ()
{-# LINE 87 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getRenderSystem -}
getRenderSystem :: HG3DClass -> IO (HG3DClass)
getRenderSystem a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getRenderSystem'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 92 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function initialise -}
initialise :: HG3DClass -> Bool -> String -> String -> IO (HG3DClass)
initialise a1 a2 a3 a4 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  withCString a3 $ \a3' -> 
  withCString a4 $ \a4' -> 
  alloca $ \a5' -> 
  initialise'_ a1' a2' a3' a4' a5' >>= \res ->
  peek  a5'>>= \a5'' -> 
  return (a5'')
{-# LINE 100 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function isInitialised -}
isInitialised :: HG3DClass -> IO (Bool)
isInitialised a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  isInitialised'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 105 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getRemoveRenderQueueStructuresOnClear -}
getRemoveRenderQueueStructuresOnClear :: HG3DClass -> IO (Bool)
getRemoveRenderQueueStructuresOnClear a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 110 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setRemoveRenderQueueStructuresOnClear -}
setRemoveRenderQueueStructuresOnClear :: HG3DClass -> Bool -> IO ()
setRemoveRenderQueueStructuresOnClear a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  setRemoveRenderQueueStructuresOnClear'_ a1' a2' >>= \res ->
  return ()
{-# LINE 115 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function addSceneManagerFactory -}
addSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
addSceneManagerFactory a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  addSceneManagerFactory'_ a1' a2' >>= \res ->
  return ()
{-# LINE 120 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function removeSceneManagerFactory -}
removeSceneManagerFactory :: HG3DClass -> HG3DClass -> IO ()
removeSceneManagerFactory a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  removeSceneManagerFactory'_ a1' a2' >>= \res ->
  return ()
{-# LINE 125 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function createSceneManager -}
createSceneManager :: HG3DClass -> String -> String -> IO (HG3DClass)
createSceneManager a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  withCString a3 $ \a3' -> 
  alloca $ \a4' -> 
  createSceneManager'_ a1' a2' a3' a4' >>= \res ->
  peek  a4'>>= \a4'' -> 
  return (a4'')
{-# LINE 132 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function destroySceneManager -}
destroySceneManager :: HG3DClass -> HG3DClass -> IO ()
destroySceneManager a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  destroySceneManager'_ a1' a2' >>= \res ->
  return ()
{-# LINE 137 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getSceneManager -}
getSceneManager :: HG3DClass -> String -> IO (HG3DClass)
getSceneManager a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getSceneManager'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 143 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function hasSceneManager -}
hasSceneManager :: HG3DClass -> String -> IO (Bool)
hasSceneManager a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  hasSceneManager'_ a1' a2' a3' >>= \res ->
  peekBoolUtil  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 149 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getTextureManager -}
getTextureManager :: HG3DClass -> IO (HG3DClass)
getTextureManager a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getTextureManager'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 154 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getMeshManager -}
getMeshManager :: HG3DClass -> IO (HG3DClass)
getMeshManager a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getMeshManager'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 159 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getErrorDescription -}
getErrorDescription :: HG3DClass -> Int -> IO (String)
getErrorDescription a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromIntegral a2} in 
  alloc64k $ \a3' -> 
  getErrorDescription'_ a1' a2' a3' >>= \res ->
  peekCString  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 165 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function queueEndRendering -}
queueEndRendering :: HG3DClass -> IO ()
queueEndRendering a1 =
  withHG3DClass a1 $ \a1' -> 
  queueEndRendering'_ a1' >>= \res ->
  return ()
{-# LINE 169 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function startRendering -}
startRendering :: HG3DClass -> IO ()
startRendering a1 =
  withHG3DClass a1 $ \a1' -> 
  startRendering'_ a1' >>= \res ->
  return ()
{-# LINE 173 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function renderOneFrame -}
renderOneFrame :: HG3DClass -> IO (Bool)
renderOneFrame a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  renderOneFrame'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 178 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function renderOneFrame2 -}
renderOneFrame2 :: HG3DClass -> Float -> IO (Bool)
renderOneFrame2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = realToFrac a2} in 
  alloca $ \a3' -> 
  renderOneFrame2'_ a1' a2' a3' >>= \res ->
  peekBoolUtil  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 184 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function shutdown -}
shutdown :: HG3DClass -> IO ()
shutdown a1 =
  withHG3DClass a1 $ \a1' -> 
  shutdown'_ a1' >>= \res ->
  return ()
{-# LINE 188 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function addResourceLocation -}
addResourceLocation :: HG3DClass -> String -> String -> String -> Bool -> IO ()
addResourceLocation a1 a2 a3 a4 a5 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  withCString a3 $ \a3' -> 
  withCString a4 $ \a4' -> 
  let {a5' = fromBool a5} in 
  addResourceLocation'_ a1' a2' a3' a4' a5' >>= \res ->
  return ()
{-# LINE 196 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function removeResourceLocation -}
removeResourceLocation :: HG3DClass -> String -> String -> IO ()
removeResourceLocation a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  withCString a3 $ \a3' -> 
  removeResourceLocation'_ a1' a2' a3' >>= \res ->
  return ()
{-# LINE 202 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function convertColourValue -}
convertColourValue :: HG3DClass -> Colour -> IO (Int)
convertColourValue a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withColour a2 $ \a2' -> 
  alloca $ \a3' -> 
  convertColourValue'_ a1' a2' a3' >>= \res ->
  peekIntConv  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 208 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getAutoCreatedWindow -}
getAutoCreatedWindow :: HG3DClass -> IO (HG3DClass)
getAutoCreatedWindow a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getAutoCreatedWindow'_ a1' a2' >>= \res ->
  peek  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 213 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function detachRenderTarget -}
detachRenderTarget :: HG3DClass -> HG3DClass -> IO (HG3DClass)
detachRenderTarget a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  alloca $ \a3' -> 
  detachRenderTarget'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 219 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function detachRenderTarget2 -}
detachRenderTarget2 :: HG3DClass -> String -> IO (HG3DClass)
detachRenderTarget2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  detachRenderTarget2'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 225 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function destroyRenderTarget -}
destroyRenderTarget :: HG3DClass -> HG3DClass -> IO ()
destroyRenderTarget a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  destroyRenderTarget'_ a1' a2' >>= \res ->
  return ()
{-# LINE 230 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function destroyRenderTarget2 -}
destroyRenderTarget2 :: HG3DClass -> String -> IO ()
destroyRenderTarget2 a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  destroyRenderTarget2'_ a1' a2' >>= \res ->
  return ()
{-# LINE 235 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getRenderTarget -}
getRenderTarget :: HG3DClass -> String -> IO (HG3DClass)
getRenderTarget a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getRenderTarget'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 241 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function loadPlugin -}
loadPlugin :: HG3DClass -> String -> IO ()
loadPlugin a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  loadPlugin'_ a1' a2' >>= \res ->
  return ()
{-# LINE 246 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function unloadPlugin -}
unloadPlugin :: HG3DClass -> String -> IO ()
unloadPlugin a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  unloadPlugin'_ a1' a2' >>= \res ->
  return ()
{-# LINE 251 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function destroyRenderQueueInvocationSequence -}
destroyRenderQueueInvocationSequence :: HG3DClass -> String -> IO ()
destroyRenderQueueInvocationSequence a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  destroyRenderQueueInvocationSequence'_ a1' a2' >>= \res ->
  return ()
{-# LINE 256 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function destroyAllRenderQueueInvocationSequences -}
destroyAllRenderQueueInvocationSequences :: HG3DClass -> IO ()
destroyAllRenderQueueInvocationSequences a1 =
  withHG3DClass a1 $ \a1' -> 
  destroyAllRenderQueueInvocationSequences'_ a1' >>= \res ->
  return ()
{-# LINE 260 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function clearEventTimes -}
clearEventTimes :: HG3DClass -> IO ()
clearEventTimes a1 =
  withHG3DClass a1 $ \a1' -> 
  clearEventTimes'_ a1' >>= \res ->
  return ()
{-# LINE 264 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setFrameSmoothingPeriod -}
setFrameSmoothingPeriod :: HG3DClass -> Float -> IO ()
setFrameSmoothingPeriod a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = realToFrac a2} in 
  setFrameSmoothingPeriod'_ a1' a2' >>= \res ->
  return ()
{-# LINE 269 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getFrameSmoothingPeriod -}
getFrameSmoothingPeriod :: HG3DClass -> IO (Float)
getFrameSmoothingPeriod a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getFrameSmoothingPeriod'_ a1' a2' >>= \res ->
  peekFloatConv  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 274 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function addMovableObjectFactory -}
addMovableObjectFactory :: HG3DClass -> HG3DClass -> Bool -> IO ()
addMovableObjectFactory a1 a2 a3 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  let {a3' = fromBool a3} in 
  addMovableObjectFactory'_ a1' a2' a3' >>= \res ->
  return ()
{-# LINE 280 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function removeMovableObjectFactory -}
removeMovableObjectFactory :: HG3DClass -> HG3DClass -> IO ()
removeMovableObjectFactory a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withHG3DClass a2 $ \a2' -> 
  removeMovableObjectFactory'_ a1' a2' >>= \res ->
  return ()
{-# LINE 285 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function hasMovableObjectFactory -}
hasMovableObjectFactory :: HG3DClass -> String -> IO (Bool)
hasMovableObjectFactory a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  hasMovableObjectFactory'_ a1' a2' a3' >>= \res ->
  peekBoolUtil  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 291 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getMovableObjectFactory -}
getMovableObjectFactory :: HG3DClass -> String -> IO (HG3DClass)
getMovableObjectFactory a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  withCString a2 $ \a2' -> 
  alloca $ \a3' -> 
  getMovableObjectFactory'_ a1' a2' a3' >>= \res ->
  peek  a3'>>= \a3'' -> 
  return (a3'')
{-# LINE 297 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getDisplayMonitorCount -}
getDisplayMonitorCount :: HG3DClass -> IO (Int)
getDisplayMonitorCount a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getDisplayMonitorCount'_ a1' a2' >>= \res ->
  peekIntConv  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 302 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setBlendIndicesGpuRedundant -}
setBlendIndicesGpuRedundant :: HG3DClass -> Bool -> IO ()
setBlendIndicesGpuRedundant a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  setBlendIndicesGpuRedundant'_ a1' a2' >>= \res ->
  return ()
{-# LINE 307 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function isBlendIndicesGpuRedundant -}
isBlendIndicesGpuRedundant :: HG3DClass -> IO (Bool)
isBlendIndicesGpuRedundant a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  isBlendIndicesGpuRedundant'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 312 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setBlendWeightsGpuRedundant -}
setBlendWeightsGpuRedundant :: HG3DClass -> Bool -> IO ()
setBlendWeightsGpuRedundant a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = fromBool a2} in 
  setBlendWeightsGpuRedundant'_ a1' a2' >>= \res ->
  return ()
{-# LINE 317 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function isBlendWeightsGpuRedundant -}
isBlendWeightsGpuRedundant :: HG3DClass -> IO (Bool)
isBlendWeightsGpuRedundant a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  isBlendWeightsGpuRedundant'_ a1' a2' >>= \res ->
  peekBoolUtil  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 322 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function setDefaultMinPixelSize -}
setDefaultMinPixelSize :: HG3DClass -> Float -> IO ()
setDefaultMinPixelSize a1 a2 =
  withHG3DClass a1 $ \a1' -> 
  let {a2' = realToFrac a2} in 
  setDefaultMinPixelSize'_ a1' a2' >>= \res ->
  return ()
{-# LINE 327 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getDefaultMinPixelSize -}
getDefaultMinPixelSize :: HG3DClass -> IO (Float)
getDefaultMinPixelSize a1 =
  withHG3DClass a1 $ \a1' -> 
  alloca $ \a2' -> 
  getDefaultMinPixelSize'_ a1' a2' >>= \res ->
  peekFloatConv  a2'>>= \a2'' -> 
  return (a2'')
{-# LINE 332 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getSingleton -}
getSingleton :: IO (HG3DClass)
getSingleton =
  alloca $ \a1' -> 
  getSingleton'_ a1' >>= \res ->
  peek  a1'>>= \a1'' -> 
  return (a1'')
{-# LINE 336 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}

{- function getSingletonPtr -}
getSingletonPtr :: IO (HG3DClass)
getSingletonPtr =
  alloca $ \a1' -> 
  getSingletonPtr'_ a1' >>= \res ->
  peek  a1'>>= \a1'' -> 
  return (a1'')
{-# LINE 340 ".\\HGamer3D\\Bindings\\Ogre\\ClassRoot.chs" #-}


foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_construct"
  new'_ :: ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destruct"
  delete'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_saveConfig"
  saveConfig'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_restoreConfig"
  restoreConfig'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_showConfigDialog"
  showConfigDialog'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addRenderSystem"
  addRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderSystemByName"
  getRenderSystemByName'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setRenderSystem"
  setRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderSystem"
  getRenderSystem'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_initialise"
  initialise'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isInitialised"
  isInitialised'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRemoveRenderQueueStructuresOnClear"
  getRemoveRenderQueueStructuresOnClear'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setRemoveRenderQueueStructuresOnClear"
  setRemoveRenderQueueStructuresOnClear'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addSceneManagerFactory"
  addSceneManagerFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeSceneManagerFactory"
  removeSceneManagerFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_createSceneManager"
  createSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ())))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroySceneManager"
  destroySceneManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSceneManager"
  getSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_hasSceneManager"
  hasSceneManager'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getTextureManager"
  getTextureManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getMeshManager"
  getMeshManager'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getErrorDescription"
  getErrorDescription'_ :: ((HG3DClassPtr) -> (CInt -> ((Ptr CChar) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_queueEndRendering"
  queueEndRendering'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_startRendering"
  startRendering'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_renderOneFrame"
  renderOneFrame'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_renderOneFrame2"
  renderOneFrame2'_ :: ((HG3DClassPtr) -> (CFloat -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_shutdown"
  shutdown'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addResourceLocation"
  addResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> ((Ptr CChar) -> (CInt -> (IO ()))))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeResourceLocation"
  removeResourceLocation'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_convertColourValue"
  convertColourValue'_ :: ((HG3DClassPtr) -> ((ColourPtr) -> ((Ptr CUInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getAutoCreatedWindow"
  getAutoCreatedWindow'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_detachRenderTarget"
  detachRenderTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_detachRenderTarget2"
  detachRenderTarget2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderTarget"
  destroyRenderTarget'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderTarget2"
  destroyRenderTarget2'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getRenderTarget"
  getRenderTarget'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_loadPlugin"
  loadPlugin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_unloadPlugin"
  unloadPlugin'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyRenderQueueInvocationSequence"
  destroyRenderQueueInvocationSequence'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_destroyAllRenderQueueInvocationSequences"
  destroyAllRenderQueueInvocationSequences'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_clearEventTimes"
  clearEventTimes'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setFrameSmoothingPeriod"
  setFrameSmoothingPeriod'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getFrameSmoothingPeriod"
  getFrameSmoothingPeriod'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_addMovableObjectFactory"
  addMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (CInt -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_removeMovableObjectFactory"
  removeMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((HG3DClassPtr) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_hasMovableObjectFactory"
  hasMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((Ptr CInt) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getMovableObjectFactory"
  getMovableObjectFactory'_ :: ((HG3DClassPtr) -> ((Ptr CChar) -> ((HG3DClassPtr) -> (IO ()))))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getDisplayMonitorCount"
  getDisplayMonitorCount'_ :: ((HG3DClassPtr) -> ((Ptr CUInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setBlendIndicesGpuRedundant"
  setBlendIndicesGpuRedundant'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isBlendIndicesGpuRedundant"
  isBlendIndicesGpuRedundant'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setBlendWeightsGpuRedundant"
  setBlendWeightsGpuRedundant'_ :: ((HG3DClassPtr) -> (CInt -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_isBlendWeightsGpuRedundant"
  isBlendWeightsGpuRedundant'_ :: ((HG3DClassPtr) -> ((Ptr CInt) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_setDefaultMinPixelSize"
  setDefaultMinPixelSize'_ :: ((HG3DClassPtr) -> (CFloat -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getDefaultMinPixelSize"
  getDefaultMinPixelSize'_ :: ((HG3DClassPtr) -> ((Ptr CFloat) -> (IO ())))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSingleton"
  getSingleton'_ :: ((HG3DClassPtr) -> (IO ()))

foreign import ccall safe "HGamer3D\\Bindings\\Ogre\\ClassRoot.chs.h ogre_rt_getSingletonPtr"
  getSingletonPtr'_ :: ((HG3DClassPtr) -> (IO ()))