{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances, ForeignFunctionInterface, IncoherentInstances, MultiParamTypeClasses, OverlappingInstances, TemplateHaskell, TypeFamilies, TypeSynonymInstances #-} module HROOT.Graf.TCrown.Implementation where import Data.Monoid import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import Language.Haskell.TH import Language.Haskell.TH.Syntax import System.IO.Unsafe import FFICXX.Runtime.Cast import FFICXX.Runtime.CodeGen.Cxx import FFICXX.Runtime.TH import HROOT.Graf.TCrown.RawType import HROOT.Graf.TCrown.FFI import HROOT.Graf.TCrown.Interface import HROOT.Graf.TCrown.Cast import HROOT.Graf.TCrown.RawType import HROOT.Graf.TCrown.Cast import HROOT.Graf.TCrown.Interface import HROOT.Core.TClass.RawType import HROOT.Core.TClass.Cast import HROOT.Core.TClass.Interface import HROOT.Graf.TEllipse.RawType import HROOT.Graf.TEllipse.Cast import HROOT.Graf.TEllipse.Interface import HROOT.Core.TObject.RawType import HROOT.Core.TObject.Cast import HROOT.Core.TObject.Interface import HROOT.Core.TAttLine.RawType import HROOT.Core.TAttLine.Cast import HROOT.Core.TAttLine.Interface import HROOT.Core.TAttFill.RawType import HROOT.Core.TAttFill.Cast import HROOT.Core.TAttFill.Interface import STD.Deletable.RawType import STD.Deletable.Cast import STD.Deletable.Interface instance () => ITCrown (TCrown) where instance () => ITEllipse (TCrown) where instance () => ITObject (TCrown) where clear :: forall c0. Castable c0 CString => TCrown -> c0 -> IO () clear = (Ptr RawTCrown -> CString -> IO ()) -> TCrown -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO () c_tcrown_clear draw :: forall c0. Castable c0 CString => TCrown -> c0 -> IO () draw = (Ptr RawTCrown -> CString -> IO ()) -> TCrown -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO () c_tcrown_draw findObject :: forall c0. Castable c0 CString => TCrown -> c0 -> IO TObject findObject = (Ptr RawTCrown -> CString -> IO (Ptr RawTObject)) -> TCrown -> c0 -> IO TObject forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO (Ptr RawTObject) c_tcrown_findobject getName :: TCrown -> IO CString getName = (Ptr RawTCrown -> IO CString) -> TCrown -> IO CString forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO CString c_tcrown_getname isA :: TCrown -> IO TClass isA = (Ptr RawTCrown -> IO (Ptr RawTClass)) -> TCrown -> IO TClass forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO (Ptr RawTClass) c_tcrown_isa paint :: forall c0. Castable c0 CString => TCrown -> c0 -> IO () paint = (Ptr RawTCrown -> CString -> IO ()) -> TCrown -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO () c_tcrown_paint printObj :: forall c0. Castable c0 CString => TCrown -> c0 -> IO () printObj = (Ptr RawTCrown -> CString -> IO ()) -> TCrown -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO () c_tcrown_printobj saveAs :: forall c1 c0. (Castable c1 CString, Castable c0 CString) => TCrown -> c0 -> c1 -> IO () saveAs = (Ptr RawTCrown -> CString -> CString -> IO ()) -> TCrown -> c0 -> c1 -> IO () forall a ca x1 cx1 x2 cx2 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable y cy) => (ca -> cx1 -> cx2 -> IO cy) -> a -> x1 -> x2 -> IO y xform2 Ptr RawTCrown -> CString -> CString -> IO () c_tcrown_saveas write :: forall c0. Castable c0 CString => TCrown -> c0 -> CInt -> CInt -> IO CInt write = (Ptr RawTCrown -> CString -> CInt -> CInt -> IO CInt) -> TCrown -> c0 -> CInt -> CInt -> IO CInt forall a ca x1 cx1 x2 cx2 x3 cx3 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable x3 cx3, Castable y cy) => (ca -> cx1 -> cx2 -> cx3 -> IO cy) -> a -> x1 -> x2 -> x3 -> IO y xform3 Ptr RawTCrown -> CString -> CInt -> CInt -> IO CInt c_tcrown_write write_ :: TCrown -> IO CInt write_ = (Ptr RawTCrown -> IO CInt) -> TCrown -> IO CInt forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO CInt c_tcrown_write_ instance () => ITAttLine (TCrown) where getLineColor :: TCrown -> IO CShort getLineColor = (Ptr RawTCrown -> IO CShort) -> TCrown -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO CShort c_tcrown_getlinecolor getLineStyle :: TCrown -> IO CShort getLineStyle = (Ptr RawTCrown -> IO CShort) -> TCrown -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO CShort c_tcrown_getlinestyle getLineWidth :: TCrown -> IO CShort getLineWidth = (Ptr RawTCrown -> IO CShort) -> TCrown -> IO CShort forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO CShort c_tcrown_getlinewidth resetAttLine :: forall c0. Castable c0 CString => TCrown -> c0 -> IO () resetAttLine = (Ptr RawTCrown -> CString -> IO ()) -> TCrown -> c0 -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CString -> IO () c_tcrown_resetattline setLineAttributes :: TCrown -> IO () setLineAttributes = (Ptr RawTCrown -> IO ()) -> TCrown -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO () c_tcrown_setlineattributes setLineColor :: TCrown -> CShort -> IO () setLineColor = (Ptr RawTCrown -> CShort -> IO ()) -> TCrown -> CShort -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CShort -> IO () c_tcrown_setlinecolor setLineStyle :: TCrown -> CShort -> IO () setLineStyle = (Ptr RawTCrown -> CShort -> IO ()) -> TCrown -> CShort -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CShort -> IO () c_tcrown_setlinestyle setLineWidth :: TCrown -> CShort -> IO () setLineWidth = (Ptr RawTCrown -> CShort -> IO ()) -> TCrown -> CShort -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CShort -> IO () c_tcrown_setlinewidth instance () => ITAttFill (TCrown) where setFillColor :: TCrown -> CInt -> IO () setFillColor = (Ptr RawTCrown -> CInt -> IO ()) -> TCrown -> CInt -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CInt -> IO () c_tcrown_setfillcolor setFillStyle :: TCrown -> CInt -> IO () setFillStyle = (Ptr RawTCrown -> CInt -> IO ()) -> TCrown -> CInt -> IO () forall a ca x1 cx1 y cy. (Castable a ca, Castable x1 cx1, Castable y cy) => (ca -> cx1 -> IO cy) -> a -> x1 -> IO y xform1 Ptr RawTCrown -> CInt -> IO () c_tcrown_setfillstyle instance () => IDeletable (TCrown) where delete :: TCrown -> IO () delete = (Ptr RawTCrown -> IO ()) -> TCrown -> IO () forall a ca y cy. (Castable a ca, Castable y cy) => (ca -> IO cy) -> a -> IO y xform0 Ptr RawTCrown -> IO () c_tcrown_delete newTCrown :: () => CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO TCrown newTCrown :: CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO TCrown newTCrown = (CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO (Ptr RawTCrown)) -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO TCrown forall a ca x1 cx1 x2 cx2 x3 cx3 x4 cx4 x5 cx5 y cy. (Castable a ca, Castable x1 cx1, Castable x2 cx2, Castable x3 cx3, Castable x4 cx4, Castable x5 cx5, Castable y cy) => (ca -> cx1 -> cx2 -> cx3 -> cx4 -> cx5 -> IO cy) -> a -> x1 -> x2 -> x3 -> x4 -> x5 -> IO y xform5 CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> CDouble -> IO (Ptr RawTCrown) c_tcrown_newtcrown