{-# LANGUAGE ForeignFunctionInterface #-}

-- module HROOT.Class.FFI where

module HROOT.Graf.TPCON.FFI where


import Foreign.C            
import Foreign.Ptr

-- import HROOT.Class.Interface

-- #include ""

import HROOT.Graf.TPCON.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TClass.RawType

#include "HROOTGrafTPCON.h"

foreign import ccall "HROOTGrafTPCON.h TPCON_SetName" c_tpcon_setname 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetNameTitle" c_tpcon_setnametitle 
  :: (Ptr RawTPCON) -> CString -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetTitle" c_tpcon_settitle 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_GetLineColor" c_tpcon_getlinecolor 
  :: (Ptr RawTPCON) -> IO CInt

foreign import ccall "HROOTGrafTPCON.h TPCON_GetLineStyle" c_tpcon_getlinestyle 
  :: (Ptr RawTPCON) -> IO CInt

foreign import ccall "HROOTGrafTPCON.h TPCON_GetLineWidth" c_tpcon_getlinewidth 
  :: (Ptr RawTPCON) -> IO CInt

foreign import ccall "HROOTGrafTPCON.h TPCON_ResetAttLine" c_tpcon_resetattline 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetLineAttributes" c_tpcon_setlineattributes 
  :: (Ptr RawTPCON) -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetLineColor" c_tpcon_setlinecolor 
  :: (Ptr RawTPCON) -> CInt -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetLineStyle" c_tpcon_setlinestyle 
  :: (Ptr RawTPCON) -> CInt -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetLineWidth" c_tpcon_setlinewidth 
  :: (Ptr RawTPCON) -> CInt -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetFillColor" c_tpcon_setfillcolor 
  :: (Ptr RawTPCON) -> CInt -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SetFillStyle" c_tpcon_setfillstyle 
  :: (Ptr RawTPCON) -> CInt -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_Draw" c_tpcon_draw 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_FindObject" c_tpcon_findobject 
  :: (Ptr RawTPCON) -> CString -> IO (Ptr RawTObject)

foreign import ccall "HROOTGrafTPCON.h TPCON_GetName" c_tpcon_getname 
  :: (Ptr RawTPCON) -> IO CString

foreign import ccall "HROOTGrafTPCON.h TPCON_IsA" c_tpcon_isa 
  :: (Ptr RawTPCON) -> IO (Ptr RawTClass)

foreign import ccall "HROOTGrafTPCON.h TPCON_Paint" c_tpcon_paint 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_printObj" c_tpcon_printobj 
  :: (Ptr RawTPCON) -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_SaveAs" c_tpcon_saveas 
  :: (Ptr RawTPCON) -> CString -> CString -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_Write" c_tpcon_write 
  :: (Ptr RawTPCON) -> CString -> CInt -> CInt -> IO CInt

foreign import ccall "HROOTGrafTPCON.h TPCON_delete" c_tpcon_delete 
  :: (Ptr RawTPCON) -> IO ()

foreign import ccall "HROOTGrafTPCON.h TPCON_newTPCON" c_tpcon_newtpcon 
  :: CString -> CString -> CString -> CDouble -> CDouble -> CInt -> IO (Ptr RawTPCON)