Implementation.hs

{-# LANGUAGE EmptyDataDecls, FlexibleContexts, FlexibleInstances,
  ForeignFunctionInterface, IncoherentInstances,
  MultiParamTypeClasses, OverlappingInstances, TemplateHaskell,
  TypeFamilies, TypeSynonymInstances #-}
module HROOT.Graf.TGraphQQ.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.TGraphQQ.RawType
import HROOT.Graf.TGraphQQ.FFI
import HROOT.Graf.TGraphQQ.Interface
import HROOT.Graf.TGraphQQ.Cast
import HROOT.Graf.TGraphQQ.RawType
import HROOT.Graf.TGraphQQ.Cast
import HROOT.Graf.TGraphQQ.Interface
import HROOT.Hist.TF1.RawType
import HROOT.Hist.TF1.Cast
import HROOT.Hist.TF1.Interface
import HROOT.Hist.TH1F.RawType
import HROOT.Hist.TH1F.Cast
import HROOT.Hist.TH1F.Interface
import HROOT.Hist.TAxis.RawType
import HROOT.Hist.TAxis.Cast
import HROOT.Hist.TAxis.Interface
import HROOT.Core.TClass.RawType
import HROOT.Core.TClass.Cast
import HROOT.Core.TClass.Interface
import HROOT.Hist.TGraph.RawType
import HROOT.Hist.TGraph.Cast
import HROOT.Hist.TGraph.Interface
import HROOT.Core.TNamed.RawType
import HROOT.Core.TNamed.Cast
import HROOT.Core.TNamed.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 HROOT.Core.TAttMarker.RawType
import HROOT.Core.TAttMarker.Cast
import HROOT.Core.TAttMarker.Interface
import HROOT.Core.TObject.RawType
import HROOT.Core.TObject.Cast
import HROOT.Core.TObject.Interface
import STD.Deletable.RawType
import STD.Deletable.Cast
import STD.Deletable.Interface

instance () => ITGraphQQ (TGraphQQ) where

instance () => ITGraph (TGraphQQ) where
        apply = xform1 c_tgraphqq_apply
        chisquare = xform1 c_tgraphqq_chisquare
        drawGraph = xform4 c_tgraphqq_drawgraph
        drawPanelTGraph = xform0 c_tgraphqq_drawpaneltgraph
        expand = xform2 c_tgraphqq_expand
        fitPanelTGraph = xform0 c_tgraphqq_fitpaneltgraph
        getCorrelationFactorTGraph
          = xform0 c_tgraphqq_getcorrelationfactortgraph
        getCovarianceTGraph = xform0 c_tgraphqq_getcovariancetgraph
        getMeanTGraph = xform1 c_tgraphqq_getmeantgraph
        getRMSTGraph = xform1 c_tgraphqq_getrmstgraph
        getErrorX = xform1 c_tgraphqq_geterrorx
        getErrorY = xform1 c_tgraphqq_geterrory
        getErrorXhigh = xform1 c_tgraphqq_geterrorxhigh
        getErrorXlow = xform1 c_tgraphqq_geterrorxlow
        getErrorYhigh = xform1 c_tgraphqq_geterroryhigh
        getErrorYlow = xform1 c_tgraphqq_geterrorylow
        initExpo = xform2 c_tgraphqq_initexpo
        initGaus = xform2 c_tgraphqq_initgaus
        initPolynom = xform2 c_tgraphqq_initpolynom
        insertPoint = xform0 c_tgraphqq_insertpoint
        integralTGraph = xform2 c_tgraphqq_integraltgraph
        isEditable = xform0 c_tgraphqq_iseditable
        isInsideTGraph = xform2 c_tgraphqq_isinsidetgraph
        leastSquareFit = xform4 c_tgraphqq_leastsquarefit
        paintStats = xform1 c_tgraphqq_paintstats
        removePoint = xform1 c_tgraphqq_removepoint
        setEditable = xform1 c_tgraphqq_seteditable
        setHistogram = xform1 c_tgraphqq_sethistogram
        setMaximumTGraph = xform1 c_tgraphqq_setmaximumtgraph
        setMinimumTGraph = xform1 c_tgraphqq_setminimumtgraph
        set = xform1 c_tgraphqq_set
        setPoint = xform3 c_tgraphqq_setpoint

instance () => ITNamed (TGraphQQ) where
        setName = xform1 c_tgraphqq_setname
        setNameTitle = xform2 c_tgraphqq_setnametitle
        setTitle = xform1 c_tgraphqq_settitle

instance () => ITAttLine (TGraphQQ) where
        getLineColor = xform0 c_tgraphqq_getlinecolor
        getLineStyle = xform0 c_tgraphqq_getlinestyle
        getLineWidth = xform0 c_tgraphqq_getlinewidth
        resetAttLine = xform1 c_tgraphqq_resetattline
        setLineAttributes = xform0 c_tgraphqq_setlineattributes
        setLineColor = xform1 c_tgraphqq_setlinecolor
        setLineStyle = xform1 c_tgraphqq_setlinestyle
        setLineWidth = xform1 c_tgraphqq_setlinewidth

instance () => ITAttFill (TGraphQQ) where
        setFillColor = xform1 c_tgraphqq_setfillcolor
        setFillStyle = xform1 c_tgraphqq_setfillstyle

instance () => ITAttMarker (TGraphQQ) where
        getMarkerColor = xform0 c_tgraphqq_getmarkercolor
        getMarkerStyle = xform0 c_tgraphqq_getmarkerstyle
        getMarkerSize = xform0 c_tgraphqq_getmarkersize
        resetAttMarker = xform1 c_tgraphqq_resetattmarker
        setMarkerAttributes = xform0 c_tgraphqq_setmarkerattributes
        setMarkerColor = xform1 c_tgraphqq_setmarkercolor
        setMarkerStyle = xform1 c_tgraphqq_setmarkerstyle
        setMarkerSize = xform1 c_tgraphqq_setmarkersize

instance () => ITObject (TGraphQQ) where
        clear = xform1 c_tgraphqq_clear
        draw = xform1 c_tgraphqq_draw
        findObject = xform1 c_tgraphqq_findobject
        getName = xform0 c_tgraphqq_getname
        isA = xform0 c_tgraphqq_isa
        paint = xform1 c_tgraphqq_paint
        printObj = xform1 c_tgraphqq_printobj
        saveAs = xform2 c_tgraphqq_saveas
        write = xform3 c_tgraphqq_write
        write_ = xform0 c_tgraphqq_write_

instance () => IDeletable (TGraphQQ) where
        delete = xform0 c_tgraphqq_delete

newTGraphQQ ::
              () => CInt -> Ptr CDouble -> CInt -> Ptr CDouble -> IO TGraphQQ
newTGraphQQ = xform3 c_tgraphqq_newtgraphqq