FFI.hsc

{-# LANGUAGE ForeignFunctionInterface #-}
module HROOT.Core.TAttMarker.FFI where
import Foreign.C
import Foreign.Ptr
import HROOT.Core.TAttMarker.RawType

foreign import ccall safe "HROOTCoreTAttMarker.h TAttMarker_delete"
               c_tattmarker_delete :: Ptr RawTAttMarker -> IO ()

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_newTAttMarker"
               c_tattmarker_newtattmarker ::
               CInt -> CInt -> CInt -> IO (Ptr RawTAttMarker)

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_GetMarkerColor"
               c_tattmarker_getmarkercolor :: Ptr RawTAttMarker -> IO CInt

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_GetMarkerStyle"
               c_tattmarker_getmarkerstyle :: Ptr RawTAttMarker -> IO CInt

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_GetMarkerSize"
               c_tattmarker_getmarkersize :: Ptr RawTAttMarker -> IO CDouble

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_ResetAttMarker"
               c_tattmarker_resetattmarker ::
               Ptr RawTAttMarker -> CString -> IO ()

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_SetMarkerAttributes"
               c_tattmarker_setmarkerattributes :: Ptr RawTAttMarker -> IO ()

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_SetMarkerColor"
               c_tattmarker_setmarkercolor :: Ptr RawTAttMarker -> CInt -> IO ()

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_SetMarkerStyle"
               c_tattmarker_setmarkerstyle :: Ptr RawTAttMarker -> CInt -> IO ()

foreign import ccall safe
               "HROOTCoreTAttMarker.h TAttMarker_SetMarkerSize"
               c_tattmarker_setmarkersize :: Ptr RawTAttMarker -> CInt -> IO ()