{-# LANGUAGE ForeignFunctionInterface #-} -- module HROOT.Class.FFI where module HROOT.Class.TAttFill.FFI where import Foreign.C import Foreign.Ptr -- import HROOT.Class.Interface -- #include "" import HROOT.Class.TAttFill.RawType #include "HROOTTAttFill.h" foreign import ccall "HROOTTAttFill.h TAttFill_delete" c_tattfill_delete :: (Ptr RawTAttFill) -> IO () foreign import ccall "HROOTTAttFill.h TAttFill_newTAttFill" c_tattfill_newtattfill :: CInt -> CInt -> IO (Ptr RawTAttFill) foreign import ccall "HROOTTAttFill.h TAttFill_SetFillColor" c_tattfill_setfillcolor :: (Ptr RawTAttFill) -> CInt -> IO () foreign import ccall "HROOTTAttFill.h TAttFill_SetFillStyle" c_tattfill_setfillstyle :: (Ptr RawTAttFill) -> CInt -> IO ()