{-# LANGUAGE ForeignFunctionInterface, TypeFamilies, MultiParamTypeClasses, 
             FlexibleInstances, TypeSynonymInstances, EmptyDataDecls #-}


module HROOT.Class.Implementation where

import Data.Word
-- import Foreign.C            
import Foreign.Ptr
import Foreign.ForeignPtr

import System.IO.Unsafe

import HROOT.Class.Interface
import HROOT.Class.FFI



instance (ITObject a, FPtr a) => Castable a (Ptr RawTObject) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITNamed a, FPtr a) => Castable a (Ptr RawTNamed) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 



instance (ITClass a, FPtr a) => Castable a (Ptr RawTClass) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITFormula a, FPtr a) => Castable a (Ptr RawTFormula) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAtt3D a, FPtr a) => Castable a (Ptr RawTAtt3D) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttAxis a, FPtr a) => Castable a (Ptr RawTAttAxis) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttBBox a, FPtr a) => Castable a (Ptr RawTAttBBox) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttCanvas a, FPtr a) => Castable a (Ptr RawTAttCanvas) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttFill a, FPtr a) => Castable a (Ptr RawTAttFill) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttImage a, FPtr a) => Castable a (Ptr RawTAttImage) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttLine a, FPtr a) => Castable a (Ptr RawTAttLine) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttMarker a, FPtr a) => Castable a (Ptr RawTAttMarker) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttPad a, FPtr a) => Castable a (Ptr RawTAttPad) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttParticle a, FPtr a) => Castable a (Ptr RawTAttParticle) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAttText a, FPtr a) => Castable a (Ptr RawTAttText) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITHStack a, FPtr a) => Castable a (Ptr RawTHStack) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITF1 a, FPtr a) => Castable a (Ptr RawTF1) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraph a, FPtr a) => Castable a (Ptr RawTGraph) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraphAsymmErrors a, FPtr a) => Castable a (Ptr RawTGraphAsymmErrors) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCutG a, FPtr a) => Castable a (Ptr RawTCutG) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraphBentErrors a, FPtr a) => Castable a (Ptr RawTGraphBentErrors) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraphErrors a, FPtr a) => Castable a (Ptr RawTGraphErrors) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraphPolar a, FPtr a) => Castable a (Ptr RawTGraphPolar) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGraphQQ a, FPtr a) => Castable a (Ptr RawTGraphQQ) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITEllipse a, FPtr a) => Castable a (Ptr RawTEllipse) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArc a, FPtr a) => Castable a (Ptr RawTArc) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCrown a, FPtr a) => Castable a (Ptr RawTCrown) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITLine a, FPtr a) => Castable a (Ptr RawTLine) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrow a, FPtr a) => Castable a (Ptr RawTArrow) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGaxis a, FPtr a) => Castable a (Ptr RawTGaxis) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITShape a, FPtr a) => Castable a (Ptr RawTShape) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITBRIK a, FPtr a) => Castable a (Ptr RawTBRIK) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITTUBE a, FPtr a) => Castable a (Ptr RawTTUBE) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPCON a, FPtr a) => Castable a (Ptr RawTPCON) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITSPHE a, FPtr a) => Castable a (Ptr RawTSPHE) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITXTRU a, FPtr a) => Castable a (Ptr RawTXTRU) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITBox a, FPtr a) => Castable a (Ptr RawTBox) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPave a, FPtr a) => Castable a (Ptr RawTPave) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPaveText a, FPtr a) => Castable a (Ptr RawTPaveText) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITDiamond a, FPtr a) => Castable a (Ptr RawTDiamond) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPaveStats a, FPtr a) => Castable a (Ptr RawTPaveStats) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPavesText a, FPtr a) => Castable a (Ptr RawTPavesText) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITLegend a, FPtr a) => Castable a (Ptr RawTLegend) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITLegendEntry a, FPtr a) => Castable a (Ptr RawTLegendEntry) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPaveLabel a, FPtr a) => Castable a (Ptr RawTPaveLabel) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPaveClass a, FPtr a) => Castable a (Ptr RawTPaveClass) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITWbox a, FPtr a) => Castable a (Ptr RawTWbox) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITFrame a, FPtr a) => Castable a (Ptr RawTFrame) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITSliderBox a, FPtr a) => Castable a (Ptr RawTSliderBox) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITTree a, FPtr a) => Castable a (Ptr RawTTree) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITChain a, FPtr a) => Castable a (Ptr RawTChain) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITNtuple a, FPtr a) => Castable a (Ptr RawTNtuple) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITNtupleD a, FPtr a) => Castable a (Ptr RawTNtupleD) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITTreeSQL a, FPtr a) => Castable a (Ptr RawTTreeSQL) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPolyLine a, FPtr a) => Castable a (Ptr RawTPolyLine) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCurlyLine a, FPtr a) => Castable a (Ptr RawTCurlyLine) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCurlyArc a, FPtr a) => Castable a (Ptr RawTCurlyArc) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITEfficiency a, FPtr a) => Castable a (Ptr RawTEfficiency) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITAxis a, FPtr a) => Castable a (Ptr RawTAxis) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITLatex a, FPtr a) => Castable a (Ptr RawTLatex) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITText a, FPtr a) => Castable a (Ptr RawTText) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITDirectory a, FPtr a) => Castable a (Ptr RawTDirectory) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITDirectoryFile a, FPtr a) => Castable a (Ptr RawTDirectoryFile) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITFile a, FPtr a) => Castable a (Ptr RawTFile) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITBranch a, FPtr a) => Castable a (Ptr RawTBranch) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITVirtualTreePlayer a, FPtr a) => Castable a (Ptr RawTVirtualTreePlayer) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITTreePlayer a, FPtr a) => Castable a (Ptr RawTTreePlayer) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArray a, FPtr a) => Castable a (Ptr RawTArray) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayC a, FPtr a) => Castable a (Ptr RawTArrayC) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayD a, FPtr a) => Castable a (Ptr RawTArrayD) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayF a, FPtr a) => Castable a (Ptr RawTArrayF) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayI a, FPtr a) => Castable a (Ptr RawTArrayI) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayL a, FPtr a) => Castable a (Ptr RawTArrayL) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayL64 a, FPtr a) => Castable a (Ptr RawTArrayL64) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITArrayS a, FPtr a) => Castable a (Ptr RawTArrayS) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1 a, FPtr a) => Castable a (Ptr RawTH1) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2 a, FPtr a) => Castable a (Ptr RawTH2) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3 a, FPtr a) => Castable a (Ptr RawTH3) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1C a, FPtr a) => Castable a (Ptr RawTH1C) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1D a, FPtr a) => Castable a (Ptr RawTH1D) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1F a, FPtr a) => Castable a (Ptr RawTH1F) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1I a, FPtr a) => Castable a (Ptr RawTH1I) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH1S a, FPtr a) => Castable a (Ptr RawTH1S) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2C a, FPtr a) => Castable a (Ptr RawTH2C) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2D a, FPtr a) => Castable a (Ptr RawTH2D) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2F a, FPtr a) => Castable a (Ptr RawTH2F) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2I a, FPtr a) => Castable a (Ptr RawTH2I) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2Poly a, FPtr a) => Castable a (Ptr RawTH2Poly) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH2S a, FPtr a) => Castable a (Ptr RawTH2S) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3C a, FPtr a) => Castable a (Ptr RawTH3C) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3D a, FPtr a) => Castable a (Ptr RawTH3D) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3F a, FPtr a) => Castable a (Ptr RawTH3F) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3I a, FPtr a) => Castable a (Ptr RawTH3I) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITH3S a, FPtr a) => Castable a (Ptr RawTH3S) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITQObject a, FPtr a) => Castable a (Ptr RawTQObject) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITVirtualPad a, FPtr a) => Castable a (Ptr RawTVirtualPad) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITPad a, FPtr a) => Castable a (Ptr RawTPad) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITButton a, FPtr a) => Castable a (Ptr RawTButton) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITGroupButton a, FPtr a) => Castable a (Ptr RawTGroupButton) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCanvas a, FPtr a) => Castable a (Ptr RawTCanvas) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITDialogCanvas a, FPtr a) => Castable a (Ptr RawTDialogCanvas) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITInspectCanvas a, FPtr a) => Castable a (Ptr RawTInspectCanvas) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITEvePad a, FPtr a) => Castable a (Ptr RawTEvePad) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITSlider a, FPtr a) => Castable a (Ptr RawTSlider) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITApplication a, FPtr a) => Castable a (Ptr RawTApplication) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITRint a, FPtr a) => Castable a (Ptr RawTRint) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITRandom a, FPtr a) => Castable a (Ptr RawTRandom) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITCollection a, FPtr a) => Castable a (Ptr RawTCollection) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITSeqCollection a, FPtr a) => Castable a (Ptr RawTSeqCollection) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITObjArray a, FPtr a) => Castable a (Ptr RawTObjArray) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITList a, FPtr a) => Castable a (Ptr RawTList) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITKey a, FPtr a) => Castable a (Ptr RawTKey) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 

instance (ITDatime a, FPtr a) => Castable a (Ptr RawTDatime) where
  cast = unsafeForeignPtrToPtr . castForeignPtr . get_fptr
  uncast = cast_fptr_to_obj . castForeignPtr . unsafePerformIO . newForeignPtr_ 



instance FPtr (Exist TObject) where
  type Raw (Exist TObject) = RawTObject
  get_fptr (ETObject obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETObject (cast_fptr_to_obj (fptr :: ForeignPtr RawTObject) :: TObject)

instance FPtr (Exist TNamed) where
  type Raw (Exist TNamed) = RawTNamed
  get_fptr (ETNamed obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETNamed (cast_fptr_to_obj (fptr :: ForeignPtr RawTNamed) :: TNamed)

instance FPtr (Exist TClass) where
  type Raw (Exist TClass) = RawTClass
  get_fptr (ETClass obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETClass (cast_fptr_to_obj (fptr :: ForeignPtr RawTClass) :: TClass)

instance FPtr (Exist TFormula) where
  type Raw (Exist TFormula) = RawTFormula
  get_fptr (ETFormula obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETFormula (cast_fptr_to_obj (fptr :: ForeignPtr RawTFormula) :: TFormula)

instance FPtr (Exist TAtt3D) where
  type Raw (Exist TAtt3D) = RawTAtt3D
  get_fptr (ETAtt3D obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAtt3D (cast_fptr_to_obj (fptr :: ForeignPtr RawTAtt3D) :: TAtt3D)

instance FPtr (Exist TAttAxis) where
  type Raw (Exist TAttAxis) = RawTAttAxis
  get_fptr (ETAttAxis obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttAxis (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttAxis) :: TAttAxis)

instance FPtr (Exist TAttBBox) where
  type Raw (Exist TAttBBox) = RawTAttBBox
  get_fptr (ETAttBBox obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttBBox (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttBBox) :: TAttBBox)

instance FPtr (Exist TAttCanvas) where
  type Raw (Exist TAttCanvas) = RawTAttCanvas
  get_fptr (ETAttCanvas obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttCanvas (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttCanvas) :: TAttCanvas)

instance FPtr (Exist TAttFill) where
  type Raw (Exist TAttFill) = RawTAttFill
  get_fptr (ETAttFill obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttFill (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttFill) :: TAttFill)

instance FPtr (Exist TAttImage) where
  type Raw (Exist TAttImage) = RawTAttImage
  get_fptr (ETAttImage obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttImage (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttImage) :: TAttImage)

instance FPtr (Exist TAttLine) where
  type Raw (Exist TAttLine) = RawTAttLine
  get_fptr (ETAttLine obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttLine (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttLine) :: TAttLine)

instance FPtr (Exist TAttMarker) where
  type Raw (Exist TAttMarker) = RawTAttMarker
  get_fptr (ETAttMarker obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttMarker (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttMarker) :: TAttMarker)

instance FPtr (Exist TAttPad) where
  type Raw (Exist TAttPad) = RawTAttPad
  get_fptr (ETAttPad obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttPad (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttPad) :: TAttPad)

instance FPtr (Exist TAttParticle) where
  type Raw (Exist TAttParticle) = RawTAttParticle
  get_fptr (ETAttParticle obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttParticle (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttParticle) :: TAttParticle)

instance FPtr (Exist TAttText) where
  type Raw (Exist TAttText) = RawTAttText
  get_fptr (ETAttText obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAttText (cast_fptr_to_obj (fptr :: ForeignPtr RawTAttText) :: TAttText)

instance FPtr (Exist THStack) where
  type Raw (Exist THStack) = RawTHStack
  get_fptr (ETHStack obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETHStack (cast_fptr_to_obj (fptr :: ForeignPtr RawTHStack) :: THStack)

instance FPtr (Exist TF1) where
  type Raw (Exist TF1) = RawTF1
  get_fptr (ETF1 obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETF1 (cast_fptr_to_obj (fptr :: ForeignPtr RawTF1) :: TF1)

instance FPtr (Exist TGraph) where
  type Raw (Exist TGraph) = RawTGraph
  get_fptr (ETGraph obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraph (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraph) :: TGraph)

instance FPtr (Exist TGraphAsymmErrors) where
  type Raw (Exist TGraphAsymmErrors) = RawTGraphAsymmErrors
  get_fptr (ETGraphAsymmErrors obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraphAsymmErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphAsymmErrors) :: TGraphAsymmErrors)

instance FPtr (Exist TCutG) where
  type Raw (Exist TCutG) = RawTCutG
  get_fptr (ETCutG obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCutG (cast_fptr_to_obj (fptr :: ForeignPtr RawTCutG) :: TCutG)

instance FPtr (Exist TGraphBentErrors) where
  type Raw (Exist TGraphBentErrors) = RawTGraphBentErrors
  get_fptr (ETGraphBentErrors obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraphBentErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphBentErrors) :: TGraphBentErrors)

instance FPtr (Exist TGraphErrors) where
  type Raw (Exist TGraphErrors) = RawTGraphErrors
  get_fptr (ETGraphErrors obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraphErrors (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphErrors) :: TGraphErrors)

instance FPtr (Exist TGraphPolar) where
  type Raw (Exist TGraphPolar) = RawTGraphPolar
  get_fptr (ETGraphPolar obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraphPolar (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphPolar) :: TGraphPolar)

instance FPtr (Exist TGraphQQ) where
  type Raw (Exist TGraphQQ) = RawTGraphQQ
  get_fptr (ETGraphQQ obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGraphQQ (cast_fptr_to_obj (fptr :: ForeignPtr RawTGraphQQ) :: TGraphQQ)

instance FPtr (Exist TEllipse) where
  type Raw (Exist TEllipse) = RawTEllipse
  get_fptr (ETEllipse obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETEllipse (cast_fptr_to_obj (fptr :: ForeignPtr RawTEllipse) :: TEllipse)

instance FPtr (Exist TArc) where
  type Raw (Exist TArc) = RawTArc
  get_fptr (ETArc obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArc (cast_fptr_to_obj (fptr :: ForeignPtr RawTArc) :: TArc)

instance FPtr (Exist TCrown) where
  type Raw (Exist TCrown) = RawTCrown
  get_fptr (ETCrown obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCrown (cast_fptr_to_obj (fptr :: ForeignPtr RawTCrown) :: TCrown)

instance FPtr (Exist TLine) where
  type Raw (Exist TLine) = RawTLine
  get_fptr (ETLine obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETLine (cast_fptr_to_obj (fptr :: ForeignPtr RawTLine) :: TLine)

instance FPtr (Exist TArrow) where
  type Raw (Exist TArrow) = RawTArrow
  get_fptr (ETArrow obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrow (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrow) :: TArrow)

instance FPtr (Exist TGaxis) where
  type Raw (Exist TGaxis) = RawTGaxis
  get_fptr (ETGaxis obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGaxis (cast_fptr_to_obj (fptr :: ForeignPtr RawTGaxis) :: TGaxis)

instance FPtr (Exist TShape) where
  type Raw (Exist TShape) = RawTShape
  get_fptr (ETShape obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETShape (cast_fptr_to_obj (fptr :: ForeignPtr RawTShape) :: TShape)

instance FPtr (Exist TBRIK) where
  type Raw (Exist TBRIK) = RawTBRIK
  get_fptr (ETBRIK obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETBRIK (cast_fptr_to_obj (fptr :: ForeignPtr RawTBRIK) :: TBRIK)

instance FPtr (Exist TTUBE) where
  type Raw (Exist TTUBE) = RawTTUBE
  get_fptr (ETTUBE obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETTUBE (cast_fptr_to_obj (fptr :: ForeignPtr RawTTUBE) :: TTUBE)

instance FPtr (Exist TPCON) where
  type Raw (Exist TPCON) = RawTPCON
  get_fptr (ETPCON obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPCON (cast_fptr_to_obj (fptr :: ForeignPtr RawTPCON) :: TPCON)

instance FPtr (Exist TSPHE) where
  type Raw (Exist TSPHE) = RawTSPHE
  get_fptr (ETSPHE obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETSPHE (cast_fptr_to_obj (fptr :: ForeignPtr RawTSPHE) :: TSPHE)

instance FPtr (Exist TXTRU) where
  type Raw (Exist TXTRU) = RawTXTRU
  get_fptr (ETXTRU obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETXTRU (cast_fptr_to_obj (fptr :: ForeignPtr RawTXTRU) :: TXTRU)

instance FPtr (Exist TBox) where
  type Raw (Exist TBox) = RawTBox
  get_fptr (ETBox obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETBox (cast_fptr_to_obj (fptr :: ForeignPtr RawTBox) :: TBox)

instance FPtr (Exist TPave) where
  type Raw (Exist TPave) = RawTPave
  get_fptr (ETPave obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPave (cast_fptr_to_obj (fptr :: ForeignPtr RawTPave) :: TPave)

instance FPtr (Exist TPaveText) where
  type Raw (Exist TPaveText) = RawTPaveText
  get_fptr (ETPaveText obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPaveText (cast_fptr_to_obj (fptr :: ForeignPtr RawTPaveText) :: TPaveText)

instance FPtr (Exist TDiamond) where
  type Raw (Exist TDiamond) = RawTDiamond
  get_fptr (ETDiamond obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETDiamond (cast_fptr_to_obj (fptr :: ForeignPtr RawTDiamond) :: TDiamond)

instance FPtr (Exist TPaveStats) where
  type Raw (Exist TPaveStats) = RawTPaveStats
  get_fptr (ETPaveStats obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPaveStats (cast_fptr_to_obj (fptr :: ForeignPtr RawTPaveStats) :: TPaveStats)

instance FPtr (Exist TPavesText) where
  type Raw (Exist TPavesText) = RawTPavesText
  get_fptr (ETPavesText obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPavesText (cast_fptr_to_obj (fptr :: ForeignPtr RawTPavesText) :: TPavesText)

instance FPtr (Exist TLegend) where
  type Raw (Exist TLegend) = RawTLegend
  get_fptr (ETLegend obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETLegend (cast_fptr_to_obj (fptr :: ForeignPtr RawTLegend) :: TLegend)

instance FPtr (Exist TLegendEntry) where
  type Raw (Exist TLegendEntry) = RawTLegendEntry
  get_fptr (ETLegendEntry obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETLegendEntry (cast_fptr_to_obj (fptr :: ForeignPtr RawTLegendEntry) :: TLegendEntry)

instance FPtr (Exist TPaveLabel) where
  type Raw (Exist TPaveLabel) = RawTPaveLabel
  get_fptr (ETPaveLabel obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPaveLabel (cast_fptr_to_obj (fptr :: ForeignPtr RawTPaveLabel) :: TPaveLabel)

instance FPtr (Exist TPaveClass) where
  type Raw (Exist TPaveClass) = RawTPaveClass
  get_fptr (ETPaveClass obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPaveClass (cast_fptr_to_obj (fptr :: ForeignPtr RawTPaveClass) :: TPaveClass)

instance FPtr (Exist TWbox) where
  type Raw (Exist TWbox) = RawTWbox
  get_fptr (ETWbox obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETWbox (cast_fptr_to_obj (fptr :: ForeignPtr RawTWbox) :: TWbox)

instance FPtr (Exist TFrame) where
  type Raw (Exist TFrame) = RawTFrame
  get_fptr (ETFrame obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETFrame (cast_fptr_to_obj (fptr :: ForeignPtr RawTFrame) :: TFrame)

instance FPtr (Exist TSliderBox) where
  type Raw (Exist TSliderBox) = RawTSliderBox
  get_fptr (ETSliderBox obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETSliderBox (cast_fptr_to_obj (fptr :: ForeignPtr RawTSliderBox) :: TSliderBox)

instance FPtr (Exist TTree) where
  type Raw (Exist TTree) = RawTTree
  get_fptr (ETTree obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETTree (cast_fptr_to_obj (fptr :: ForeignPtr RawTTree) :: TTree)

instance FPtr (Exist TChain) where
  type Raw (Exist TChain) = RawTChain
  get_fptr (ETChain obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETChain (cast_fptr_to_obj (fptr :: ForeignPtr RawTChain) :: TChain)

instance FPtr (Exist TNtuple) where
  type Raw (Exist TNtuple) = RawTNtuple
  get_fptr (ETNtuple obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETNtuple (cast_fptr_to_obj (fptr :: ForeignPtr RawTNtuple) :: TNtuple)

instance FPtr (Exist TNtupleD) where
  type Raw (Exist TNtupleD) = RawTNtupleD
  get_fptr (ETNtupleD obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETNtupleD (cast_fptr_to_obj (fptr :: ForeignPtr RawTNtupleD) :: TNtupleD)

instance FPtr (Exist TTreeSQL) where
  type Raw (Exist TTreeSQL) = RawTTreeSQL
  get_fptr (ETTreeSQL obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETTreeSQL (cast_fptr_to_obj (fptr :: ForeignPtr RawTTreeSQL) :: TTreeSQL)

instance FPtr (Exist TPolyLine) where
  type Raw (Exist TPolyLine) = RawTPolyLine
  get_fptr (ETPolyLine obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPolyLine (cast_fptr_to_obj (fptr :: ForeignPtr RawTPolyLine) :: TPolyLine)

instance FPtr (Exist TCurlyLine) where
  type Raw (Exist TCurlyLine) = RawTCurlyLine
  get_fptr (ETCurlyLine obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCurlyLine (cast_fptr_to_obj (fptr :: ForeignPtr RawTCurlyLine) :: TCurlyLine)

instance FPtr (Exist TCurlyArc) where
  type Raw (Exist TCurlyArc) = RawTCurlyArc
  get_fptr (ETCurlyArc obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCurlyArc (cast_fptr_to_obj (fptr :: ForeignPtr RawTCurlyArc) :: TCurlyArc)

instance FPtr (Exist TEfficiency) where
  type Raw (Exist TEfficiency) = RawTEfficiency
  get_fptr (ETEfficiency obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETEfficiency (cast_fptr_to_obj (fptr :: ForeignPtr RawTEfficiency) :: TEfficiency)

instance FPtr (Exist TAxis) where
  type Raw (Exist TAxis) = RawTAxis
  get_fptr (ETAxis obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETAxis (cast_fptr_to_obj (fptr :: ForeignPtr RawTAxis) :: TAxis)

instance FPtr (Exist TLatex) where
  type Raw (Exist TLatex) = RawTLatex
  get_fptr (ETLatex obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETLatex (cast_fptr_to_obj (fptr :: ForeignPtr RawTLatex) :: TLatex)

instance FPtr (Exist TText) where
  type Raw (Exist TText) = RawTText
  get_fptr (ETText obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETText (cast_fptr_to_obj (fptr :: ForeignPtr RawTText) :: TText)

instance FPtr (Exist TDirectory) where
  type Raw (Exist TDirectory) = RawTDirectory
  get_fptr (ETDirectory obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETDirectory (cast_fptr_to_obj (fptr :: ForeignPtr RawTDirectory) :: TDirectory)

instance FPtr (Exist TDirectoryFile) where
  type Raw (Exist TDirectoryFile) = RawTDirectoryFile
  get_fptr (ETDirectoryFile obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETDirectoryFile (cast_fptr_to_obj (fptr :: ForeignPtr RawTDirectoryFile) :: TDirectoryFile)

instance FPtr (Exist TFile) where
  type Raw (Exist TFile) = RawTFile
  get_fptr (ETFile obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETFile (cast_fptr_to_obj (fptr :: ForeignPtr RawTFile) :: TFile)

instance FPtr (Exist TBranch) where
  type Raw (Exist TBranch) = RawTBranch
  get_fptr (ETBranch obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETBranch (cast_fptr_to_obj (fptr :: ForeignPtr RawTBranch) :: TBranch)

instance FPtr (Exist TVirtualTreePlayer) where
  type Raw (Exist TVirtualTreePlayer) = RawTVirtualTreePlayer
  get_fptr (ETVirtualTreePlayer obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETVirtualTreePlayer (cast_fptr_to_obj (fptr :: ForeignPtr RawTVirtualTreePlayer) :: TVirtualTreePlayer)

instance FPtr (Exist TTreePlayer) where
  type Raw (Exist TTreePlayer) = RawTTreePlayer
  get_fptr (ETTreePlayer obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETTreePlayer (cast_fptr_to_obj (fptr :: ForeignPtr RawTTreePlayer) :: TTreePlayer)

instance FPtr (Exist TArray) where
  type Raw (Exist TArray) = RawTArray
  get_fptr (ETArray obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArray (cast_fptr_to_obj (fptr :: ForeignPtr RawTArray) :: TArray)

instance FPtr (Exist TArrayC) where
  type Raw (Exist TArrayC) = RawTArrayC
  get_fptr (ETArrayC obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayC (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayC) :: TArrayC)

instance FPtr (Exist TArrayD) where
  type Raw (Exist TArrayD) = RawTArrayD
  get_fptr (ETArrayD obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayD (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayD) :: TArrayD)

instance FPtr (Exist TArrayF) where
  type Raw (Exist TArrayF) = RawTArrayF
  get_fptr (ETArrayF obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayF (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayF) :: TArrayF)

instance FPtr (Exist TArrayI) where
  type Raw (Exist TArrayI) = RawTArrayI
  get_fptr (ETArrayI obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayI (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayI) :: TArrayI)

instance FPtr (Exist TArrayL) where
  type Raw (Exist TArrayL) = RawTArrayL
  get_fptr (ETArrayL obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayL (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayL) :: TArrayL)

instance FPtr (Exist TArrayL64) where
  type Raw (Exist TArrayL64) = RawTArrayL64
  get_fptr (ETArrayL64 obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayL64 (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayL64) :: TArrayL64)

instance FPtr (Exist TArrayS) where
  type Raw (Exist TArrayS) = RawTArrayS
  get_fptr (ETArrayS obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETArrayS (cast_fptr_to_obj (fptr :: ForeignPtr RawTArrayS) :: TArrayS)

instance FPtr (Exist TH1) where
  type Raw (Exist TH1) = RawTH1
  get_fptr (ETH1 obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1) :: TH1)

instance FPtr (Exist TH2) where
  type Raw (Exist TH2) = RawTH2
  get_fptr (ETH2 obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2) :: TH2)

instance FPtr (Exist TH3) where
  type Raw (Exist TH3) = RawTH3
  get_fptr (ETH3 obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3 (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3) :: TH3)

instance FPtr (Exist TH1C) where
  type Raw (Exist TH1C) = RawTH1C
  get_fptr (ETH1C obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1C) :: TH1C)

instance FPtr (Exist TH1D) where
  type Raw (Exist TH1D) = RawTH1D
  get_fptr (ETH1D obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1D) :: TH1D)

instance FPtr (Exist TH1F) where
  type Raw (Exist TH1F) = RawTH1F
  get_fptr (ETH1F obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1F) :: TH1F)

instance FPtr (Exist TH1I) where
  type Raw (Exist TH1I) = RawTH1I
  get_fptr (ETH1I obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1I) :: TH1I)

instance FPtr (Exist TH1S) where
  type Raw (Exist TH1S) = RawTH1S
  get_fptr (ETH1S obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH1S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH1S) :: TH1S)

instance FPtr (Exist TH2C) where
  type Raw (Exist TH2C) = RawTH2C
  get_fptr (ETH2C obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2C) :: TH2C)

instance FPtr (Exist TH2D) where
  type Raw (Exist TH2D) = RawTH2D
  get_fptr (ETH2D obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2D) :: TH2D)

instance FPtr (Exist TH2F) where
  type Raw (Exist TH2F) = RawTH2F
  get_fptr (ETH2F obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2F) :: TH2F)

instance FPtr (Exist TH2I) where
  type Raw (Exist TH2I) = RawTH2I
  get_fptr (ETH2I obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2I) :: TH2I)

instance FPtr (Exist TH2Poly) where
  type Raw (Exist TH2Poly) = RawTH2Poly
  get_fptr (ETH2Poly obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2Poly (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2Poly) :: TH2Poly)

instance FPtr (Exist TH2S) where
  type Raw (Exist TH2S) = RawTH2S
  get_fptr (ETH2S obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH2S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH2S) :: TH2S)

instance FPtr (Exist TH3C) where
  type Raw (Exist TH3C) = RawTH3C
  get_fptr (ETH3C obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3C (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3C) :: TH3C)

instance FPtr (Exist TH3D) where
  type Raw (Exist TH3D) = RawTH3D
  get_fptr (ETH3D obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3D (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3D) :: TH3D)

instance FPtr (Exist TH3F) where
  type Raw (Exist TH3F) = RawTH3F
  get_fptr (ETH3F obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3F (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3F) :: TH3F)

instance FPtr (Exist TH3I) where
  type Raw (Exist TH3I) = RawTH3I
  get_fptr (ETH3I obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3I (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3I) :: TH3I)

instance FPtr (Exist TH3S) where
  type Raw (Exist TH3S) = RawTH3S
  get_fptr (ETH3S obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETH3S (cast_fptr_to_obj (fptr :: ForeignPtr RawTH3S) :: TH3S)

instance FPtr (Exist TQObject) where
  type Raw (Exist TQObject) = RawTQObject
  get_fptr (ETQObject obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETQObject (cast_fptr_to_obj (fptr :: ForeignPtr RawTQObject) :: TQObject)

instance FPtr (Exist TVirtualPad) where
  type Raw (Exist TVirtualPad) = RawTVirtualPad
  get_fptr (ETVirtualPad obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETVirtualPad (cast_fptr_to_obj (fptr :: ForeignPtr RawTVirtualPad) :: TVirtualPad)

instance FPtr (Exist TPad) where
  type Raw (Exist TPad) = RawTPad
  get_fptr (ETPad obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETPad (cast_fptr_to_obj (fptr :: ForeignPtr RawTPad) :: TPad)

instance FPtr (Exist TButton) where
  type Raw (Exist TButton) = RawTButton
  get_fptr (ETButton obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETButton (cast_fptr_to_obj (fptr :: ForeignPtr RawTButton) :: TButton)

instance FPtr (Exist TGroupButton) where
  type Raw (Exist TGroupButton) = RawTGroupButton
  get_fptr (ETGroupButton obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETGroupButton (cast_fptr_to_obj (fptr :: ForeignPtr RawTGroupButton) :: TGroupButton)

instance FPtr (Exist TCanvas) where
  type Raw (Exist TCanvas) = RawTCanvas
  get_fptr (ETCanvas obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCanvas (cast_fptr_to_obj (fptr :: ForeignPtr RawTCanvas) :: TCanvas)

instance FPtr (Exist TDialogCanvas) where
  type Raw (Exist TDialogCanvas) = RawTDialogCanvas
  get_fptr (ETDialogCanvas obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETDialogCanvas (cast_fptr_to_obj (fptr :: ForeignPtr RawTDialogCanvas) :: TDialogCanvas)

instance FPtr (Exist TInspectCanvas) where
  type Raw (Exist TInspectCanvas) = RawTInspectCanvas
  get_fptr (ETInspectCanvas obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETInspectCanvas (cast_fptr_to_obj (fptr :: ForeignPtr RawTInspectCanvas) :: TInspectCanvas)

instance FPtr (Exist TEvePad) where
  type Raw (Exist TEvePad) = RawTEvePad
  get_fptr (ETEvePad obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETEvePad (cast_fptr_to_obj (fptr :: ForeignPtr RawTEvePad) :: TEvePad)

instance FPtr (Exist TSlider) where
  type Raw (Exist TSlider) = RawTSlider
  get_fptr (ETSlider obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETSlider (cast_fptr_to_obj (fptr :: ForeignPtr RawTSlider) :: TSlider)

instance FPtr (Exist TApplication) where
  type Raw (Exist TApplication) = RawTApplication
  get_fptr (ETApplication obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETApplication (cast_fptr_to_obj (fptr :: ForeignPtr RawTApplication) :: TApplication)

instance FPtr (Exist TRint) where
  type Raw (Exist TRint) = RawTRint
  get_fptr (ETRint obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETRint (cast_fptr_to_obj (fptr :: ForeignPtr RawTRint) :: TRint)

instance FPtr (Exist TRandom) where
  type Raw (Exist TRandom) = RawTRandom
  get_fptr (ETRandom obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETRandom (cast_fptr_to_obj (fptr :: ForeignPtr RawTRandom) :: TRandom)

instance FPtr (Exist TCollection) where
  type Raw (Exist TCollection) = RawTCollection
  get_fptr (ETCollection obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETCollection (cast_fptr_to_obj (fptr :: ForeignPtr RawTCollection) :: TCollection)

instance FPtr (Exist TSeqCollection) where
  type Raw (Exist TSeqCollection) = RawTSeqCollection
  get_fptr (ETSeqCollection obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETSeqCollection (cast_fptr_to_obj (fptr :: ForeignPtr RawTSeqCollection) :: TSeqCollection)

instance FPtr (Exist TObjArray) where
  type Raw (Exist TObjArray) = RawTObjArray
  get_fptr (ETObjArray obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETObjArray (cast_fptr_to_obj (fptr :: ForeignPtr RawTObjArray) :: TObjArray)

instance FPtr (Exist TList) where
  type Raw (Exist TList) = RawTList
  get_fptr (ETList obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETList (cast_fptr_to_obj (fptr :: ForeignPtr RawTList) :: TList)

instance FPtr (Exist TKey) where
  type Raw (Exist TKey) = RawTKey
  get_fptr (ETKey obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETKey (cast_fptr_to_obj (fptr :: ForeignPtr RawTKey) :: TKey)

instance FPtr (Exist TDatime) where
  type Raw (Exist TDatime) = RawTDatime
  get_fptr (ETDatime obj) = castForeignPtr (get_fptr obj)
  cast_fptr_to_obj fptr = ETDatime (cast_fptr_to_obj (fptr :: ForeignPtr RawTDatime) :: TDatime)

instance ITObject (Exist TObject) where
  getName (ETObject x) = getName x
  draw (ETObject x) = draw x
  findObject (ETObject x) = findObject x
  saveAs (ETObject x) = saveAs x
  write (ETObject x) = write x
  isA (ETObject x) = isA x
  printObj (ETObject x) = printObj x

instance IDeletable (Exist TObject) where
  delete (ETObject x) = delete x

instance ITNamed (Exist TNamed) where
  setName (ETNamed x) = setName x
  setNameTitle (ETNamed x) = setNameTitle x
  setTitle (ETNamed x) = setTitle x

instance ITObject (Exist TNamed) where
  getName (ETNamed x) = getName x
  draw (ETNamed x) = draw x
  findObject (ETNamed x) = findObject x
  saveAs (ETNamed x) = saveAs x
  write (ETNamed x) = write x
  isA (ETNamed x) = isA x
  printObj (ETNamed x) = printObj x

instance IDeletable (Exist TNamed) where
  delete (ETNamed x) = delete x

instance ITClass (Exist TClass) where


instance ITDictionary (Exist TClass) where


instance ITNamed (Exist TClass) where
  setName (ETClass x) = setName x
  setNameTitle (ETClass x) = setNameTitle x
  setTitle (ETClass x) = setTitle x

instance ITObject (Exist TClass) where
  getName (ETClass x) = getName x
  draw (ETClass x) = draw x
  findObject (ETClass x) = findObject x
  saveAs (ETClass x) = saveAs x
  write (ETClass x) = write x
  isA (ETClass x) = isA x
  printObj (ETClass x) = printObj x

instance IDeletable (Exist TClass) where
  delete (ETClass x) = delete x

instance ITFormula (Exist TFormula) where
  getParameter (ETFormula x) = getParameter x
  setParameter (ETFormula x) = setParameter x

instance ITNamed (Exist TFormula) where
  setName (ETFormula x) = setName x
  setNameTitle (ETFormula x) = setNameTitle x
  setTitle (ETFormula x) = setTitle x

instance ITObject (Exist TFormula) where
  getName (ETFormula x) = getName x
  draw (ETFormula x) = draw x
  findObject (ETFormula x) = findObject x
  saveAs (ETFormula x) = saveAs x
  write (ETFormula x) = write x
  isA (ETFormula x) = isA x
  printObj (ETFormula x) = printObj x

instance IDeletable (Exist TFormula) where
  delete (ETFormula x) = delete x

instance ITAtt3D (Exist TAtt3D) where


instance IDeletable (Exist TAtt3D) where
  delete (ETAtt3D x) = delete x

instance ITAttAxis (Exist TAttAxis) where
  getNdivisions (ETAttAxis x) = getNdivisions x
  getAxisColor (ETAttAxis x) = getAxisColor x
  getLabelColor (ETAttAxis x) = getLabelColor x
  getLabelFont (ETAttAxis x) = getLabelFont x
  getLabelOffset (ETAttAxis x) = getLabelOffset x
  getLabelSize (ETAttAxis x) = getLabelSize x
  getTitleOffset (ETAttAxis x) = getTitleOffset x
  getTitleSize (ETAttAxis x) = getTitleSize x
  getTickLength (ETAttAxis x) = getTickLength x
  getTitleFont (ETAttAxis x) = getTitleFont x
  setNdivisions (ETAttAxis x) = setNdivisions x
  setAxisColor (ETAttAxis x) = setAxisColor x
  setLabelColor (ETAttAxis x) = setLabelColor x
  setLabelFont (ETAttAxis x) = setLabelFont x
  setLabelOffset (ETAttAxis x) = setLabelOffset x
  setLabelSize (ETAttAxis x) = setLabelSize x
  setTickLength (ETAttAxis x) = setTickLength x
  setTitleOffset (ETAttAxis x) = setTitleOffset x
  setTitleSize (ETAttAxis x) = setTitleSize x
  setTitleColor (ETAttAxis x) = setTitleColor x
  setTitleFont (ETAttAxis x) = setTitleFont x

instance IDeletable (Exist TAttAxis) where
  delete (ETAttAxis x) = delete x

instance ITAttBBox (Exist TAttBBox) where


instance IDeletable (Exist TAttBBox) where
  delete (ETAttBBox x) = delete x

instance ITAttCanvas (Exist TAttCanvas) where


instance IDeletable (Exist TAttCanvas) where
  delete (ETAttCanvas x) = delete x

instance ITAttFill (Exist TAttFill) where
  setFillColor (ETAttFill x) = setFillColor x
  setFillStyle (ETAttFill x) = setFillStyle x

instance IDeletable (Exist TAttFill) where
  delete (ETAttFill x) = delete x

instance ITAttImage (Exist TAttImage) where


instance IDeletable (Exist TAttImage) where
  delete (ETAttImage x) = delete x

instance ITAttLine (Exist TAttLine) where
  setLineColor (ETAttLine x) = setLineColor x

instance IDeletable (Exist TAttLine) where
  delete (ETAttLine x) = delete x

instance ITAttMarker (Exist TAttMarker) where


instance IDeletable (Exist TAttMarker) where
  delete (ETAttMarker x) = delete x

instance ITAttPad (Exist TAttPad) where


instance IDeletable (Exist TAttPad) where
  delete (ETAttPad x) = delete x

instance ITAttParticle (Exist TAttParticle) where


instance ITNamed (Exist TAttParticle) where
  setName (ETAttParticle x) = setName x
  setNameTitle (ETAttParticle x) = setNameTitle x
  setTitle (ETAttParticle x) = setTitle x

instance ITObject (Exist TAttParticle) where
  getName (ETAttParticle x) = getName x
  draw (ETAttParticle x) = draw x
  findObject (ETAttParticle x) = findObject x
  saveAs (ETAttParticle x) = saveAs x
  write (ETAttParticle x) = write x
  isA (ETAttParticle x) = isA x
  printObj (ETAttParticle x) = printObj x

instance IDeletable (Exist TAttParticle) where
  delete (ETAttParticle x) = delete x

instance ITAttText (Exist TAttText) where
  setTextColor (ETAttText x) = setTextColor x
  setTextAlign (ETAttText x) = setTextAlign x
  setTextSize (ETAttText x) = setTextSize x

instance IDeletable (Exist TAttText) where
  delete (ETAttText x) = delete x

instance ITHStack (Exist THStack) where


instance ITNamed (Exist THStack) where
  setName (ETHStack x) = setName x
  setNameTitle (ETHStack x) = setNameTitle x
  setTitle (ETHStack x) = setTitle x

instance ITObject (Exist THStack) where
  getName (ETHStack x) = getName x
  draw (ETHStack x) = draw x
  findObject (ETHStack x) = findObject x
  saveAs (ETHStack x) = saveAs x
  write (ETHStack x) = write x
  isA (ETHStack x) = isA x
  printObj (ETHStack x) = printObj x

instance IDeletable (Exist THStack) where
  delete (ETHStack x) = delete x

instance ITF1 (Exist TF1) where


instance ITFormula (Exist TF1) where
  getParameter (ETF1 x) = getParameter x
  setParameter (ETF1 x) = setParameter x

instance ITAttLine (Exist TF1) where
  setLineColor (ETF1 x) = setLineColor x

instance ITAttFill (Exist TF1) where
  setFillColor (ETF1 x) = setFillColor x
  setFillStyle (ETF1 x) = setFillStyle x

instance ITNamed (Exist TF1) where
  setName (ETF1 x) = setName x
  setNameTitle (ETF1 x) = setNameTitle x
  setTitle (ETF1 x) = setTitle x

instance ITObject (Exist TF1) where
  getName (ETF1 x) = getName x
  draw (ETF1 x) = draw x
  findObject (ETF1 x) = findObject x
  saveAs (ETF1 x) = saveAs x
  write (ETF1 x) = write x
  isA (ETF1 x) = isA x
  printObj (ETF1 x) = printObj x

instance IDeletable (Exist TF1) where
  delete (ETF1 x) = delete x

instance ITGraph (Exist TGraph) where


instance ITNamed (Exist TGraph) where
  setName (ETGraph x) = setName x
  setNameTitle (ETGraph x) = setNameTitle x
  setTitle (ETGraph x) = setTitle x

instance ITAttLine (Exist TGraph) where
  setLineColor (ETGraph x) = setLineColor x

instance ITAttFill (Exist TGraph) where
  setFillColor (ETGraph x) = setFillColor x
  setFillStyle (ETGraph x) = setFillStyle x

instance ITAttMarker (Exist TGraph) where


instance ITObject (Exist TGraph) where
  getName (ETGraph x) = getName x
  draw (ETGraph x) = draw x
  findObject (ETGraph x) = findObject x
  saveAs (ETGraph x) = saveAs x
  write (ETGraph x) = write x
  isA (ETGraph x) = isA x
  printObj (ETGraph x) = printObj x

instance IDeletable (Exist TGraph) where
  delete (ETGraph x) = delete x

instance ITGraphAsymmErrors (Exist TGraphAsymmErrors) where


instance ITGraph (Exist TGraphAsymmErrors) where


instance ITNamed (Exist TGraphAsymmErrors) where
  setName (ETGraphAsymmErrors x) = setName x
  setNameTitle (ETGraphAsymmErrors x) = setNameTitle x
  setTitle (ETGraphAsymmErrors x) = setTitle x

instance ITAttLine (Exist TGraphAsymmErrors) where
  setLineColor (ETGraphAsymmErrors x) = setLineColor x

instance ITAttFill (Exist TGraphAsymmErrors) where
  setFillColor (ETGraphAsymmErrors x) = setFillColor x
  setFillStyle (ETGraphAsymmErrors x) = setFillStyle x

instance ITAttMarker (Exist TGraphAsymmErrors) where


instance ITObject (Exist TGraphAsymmErrors) where
  getName (ETGraphAsymmErrors x) = getName x
  draw (ETGraphAsymmErrors x) = draw x
  findObject (ETGraphAsymmErrors x) = findObject x
  saveAs (ETGraphAsymmErrors x) = saveAs x
  write (ETGraphAsymmErrors x) = write x
  isA (ETGraphAsymmErrors x) = isA x
  printObj (ETGraphAsymmErrors x) = printObj x

instance IDeletable (Exist TGraphAsymmErrors) where
  delete (ETGraphAsymmErrors x) = delete x

instance ITCutG (Exist TCutG) where


instance ITGraph (Exist TCutG) where


instance ITNamed (Exist TCutG) where
  setName (ETCutG x) = setName x
  setNameTitle (ETCutG x) = setNameTitle x
  setTitle (ETCutG x) = setTitle x

instance ITAttLine (Exist TCutG) where
  setLineColor (ETCutG x) = setLineColor x

instance ITAttFill (Exist TCutG) where
  setFillColor (ETCutG x) = setFillColor x
  setFillStyle (ETCutG x) = setFillStyle x

instance ITAttMarker (Exist TCutG) where


instance ITObject (Exist TCutG) where
  getName (ETCutG x) = getName x
  draw (ETCutG x) = draw x
  findObject (ETCutG x) = findObject x
  saveAs (ETCutG x) = saveAs x
  write (ETCutG x) = write x
  isA (ETCutG x) = isA x
  printObj (ETCutG x) = printObj x

instance IDeletable (Exist TCutG) where
  delete (ETCutG x) = delete x

instance ITGraphBentErrors (Exist TGraphBentErrors) where


instance ITGraph (Exist TGraphBentErrors) where


instance ITNamed (Exist TGraphBentErrors) where
  setName (ETGraphBentErrors x) = setName x
  setNameTitle (ETGraphBentErrors x) = setNameTitle x
  setTitle (ETGraphBentErrors x) = setTitle x

instance ITAttLine (Exist TGraphBentErrors) where
  setLineColor (ETGraphBentErrors x) = setLineColor x

instance ITAttFill (Exist TGraphBentErrors) where
  setFillColor (ETGraphBentErrors x) = setFillColor x
  setFillStyle (ETGraphBentErrors x) = setFillStyle x

instance ITAttMarker (Exist TGraphBentErrors) where


instance ITObject (Exist TGraphBentErrors) where
  getName (ETGraphBentErrors x) = getName x
  draw (ETGraphBentErrors x) = draw x
  findObject (ETGraphBentErrors x) = findObject x
  saveAs (ETGraphBentErrors x) = saveAs x
  write (ETGraphBentErrors x) = write x
  isA (ETGraphBentErrors x) = isA x
  printObj (ETGraphBentErrors x) = printObj x

instance IDeletable (Exist TGraphBentErrors) where
  delete (ETGraphBentErrors x) = delete x

instance ITGraphErrors (Exist TGraphErrors) where


instance ITGraph (Exist TGraphErrors) where


instance ITNamed (Exist TGraphErrors) where
  setName (ETGraphErrors x) = setName x
  setNameTitle (ETGraphErrors x) = setNameTitle x
  setTitle (ETGraphErrors x) = setTitle x

instance ITAttLine (Exist TGraphErrors) where
  setLineColor (ETGraphErrors x) = setLineColor x

instance ITAttFill (Exist TGraphErrors) where
  setFillColor (ETGraphErrors x) = setFillColor x
  setFillStyle (ETGraphErrors x) = setFillStyle x

instance ITAttMarker (Exist TGraphErrors) where


instance ITObject (Exist TGraphErrors) where
  getName (ETGraphErrors x) = getName x
  draw (ETGraphErrors x) = draw x
  findObject (ETGraphErrors x) = findObject x
  saveAs (ETGraphErrors x) = saveAs x
  write (ETGraphErrors x) = write x
  isA (ETGraphErrors x) = isA x
  printObj (ETGraphErrors x) = printObj x

instance IDeletable (Exist TGraphErrors) where
  delete (ETGraphErrors x) = delete x

instance ITGraphPolar (Exist TGraphPolar) where


instance ITGraphErrors (Exist TGraphPolar) where


instance ITGraph (Exist TGraphPolar) where


instance ITNamed (Exist TGraphPolar) where
  setName (ETGraphPolar x) = setName x
  setNameTitle (ETGraphPolar x) = setNameTitle x
  setTitle (ETGraphPolar x) = setTitle x

instance ITAttLine (Exist TGraphPolar) where
  setLineColor (ETGraphPolar x) = setLineColor x

instance ITAttFill (Exist TGraphPolar) where
  setFillColor (ETGraphPolar x) = setFillColor x
  setFillStyle (ETGraphPolar x) = setFillStyle x

instance ITAttMarker (Exist TGraphPolar) where


instance ITObject (Exist TGraphPolar) where
  getName (ETGraphPolar x) = getName x
  draw (ETGraphPolar x) = draw x
  findObject (ETGraphPolar x) = findObject x
  saveAs (ETGraphPolar x) = saveAs x
  write (ETGraphPolar x) = write x
  isA (ETGraphPolar x) = isA x
  printObj (ETGraphPolar x) = printObj x

instance IDeletable (Exist TGraphPolar) where
  delete (ETGraphPolar x) = delete x

instance ITGraphQQ (Exist TGraphQQ) where


instance ITGraph (Exist TGraphQQ) where


instance ITNamed (Exist TGraphQQ) where
  setName (ETGraphQQ x) = setName x
  setNameTitle (ETGraphQQ x) = setNameTitle x
  setTitle (ETGraphQQ x) = setTitle x

instance ITAttLine (Exist TGraphQQ) where
  setLineColor (ETGraphQQ x) = setLineColor x

instance ITAttFill (Exist TGraphQQ) where
  setFillColor (ETGraphQQ x) = setFillColor x
  setFillStyle (ETGraphQQ x) = setFillStyle x

instance ITAttMarker (Exist TGraphQQ) where


instance ITObject (Exist TGraphQQ) where
  getName (ETGraphQQ x) = getName x
  draw (ETGraphQQ x) = draw x
  findObject (ETGraphQQ x) = findObject x
  saveAs (ETGraphQQ x) = saveAs x
  write (ETGraphQQ x) = write x
  isA (ETGraphQQ x) = isA x
  printObj (ETGraphQQ x) = printObj x

instance IDeletable (Exist TGraphQQ) where
  delete (ETGraphQQ x) = delete x

instance ITEllipse (Exist TEllipse) where


instance ITObject (Exist TEllipse) where
  getName (ETEllipse x) = getName x
  draw (ETEllipse x) = draw x
  findObject (ETEllipse x) = findObject x
  saveAs (ETEllipse x) = saveAs x
  write (ETEllipse x) = write x
  isA (ETEllipse x) = isA x
  printObj (ETEllipse x) = printObj x

instance ITAttLine (Exist TEllipse) where
  setLineColor (ETEllipse x) = setLineColor x

instance ITAttFill (Exist TEllipse) where
  setFillColor (ETEllipse x) = setFillColor x
  setFillStyle (ETEllipse x) = setFillStyle x

instance IDeletable (Exist TEllipse) where
  delete (ETEllipse x) = delete x

instance ITArc (Exist TArc) where


instance ITEllipse (Exist TArc) where


instance ITObject (Exist TArc) where
  getName (ETArc x) = getName x
  draw (ETArc x) = draw x
  findObject (ETArc x) = findObject x
  saveAs (ETArc x) = saveAs x
  write (ETArc x) = write x
  isA (ETArc x) = isA x
  printObj (ETArc x) = printObj x

instance ITAttLine (Exist TArc) where
  setLineColor (ETArc x) = setLineColor x

instance ITAttFill (Exist TArc) where
  setFillColor (ETArc x) = setFillColor x
  setFillStyle (ETArc x) = setFillStyle x

instance IDeletable (Exist TArc) where
  delete (ETArc x) = delete x

instance ITCrown (Exist TCrown) where


instance ITEllipse (Exist TCrown) where


instance ITObject (Exist TCrown) where
  getName (ETCrown x) = getName x
  draw (ETCrown x) = draw x
  findObject (ETCrown x) = findObject x
  saveAs (ETCrown x) = saveAs x
  write (ETCrown x) = write x
  isA (ETCrown x) = isA x
  printObj (ETCrown x) = printObj x

instance ITAttLine (Exist TCrown) where
  setLineColor (ETCrown x) = setLineColor x

instance ITAttFill (Exist TCrown) where
  setFillColor (ETCrown x) = setFillColor x
  setFillStyle (ETCrown x) = setFillStyle x

instance IDeletable (Exist TCrown) where
  delete (ETCrown x) = delete x

instance ITLine (Exist TLine) where


instance ITObject (Exist TLine) where
  getName (ETLine x) = getName x
  draw (ETLine x) = draw x
  findObject (ETLine x) = findObject x
  saveAs (ETLine x) = saveAs x
  write (ETLine x) = write x
  isA (ETLine x) = isA x
  printObj (ETLine x) = printObj x

instance ITAttLine (Exist TLine) where
  setLineColor (ETLine x) = setLineColor x

instance IDeletable (Exist TLine) where
  delete (ETLine x) = delete x

instance ITArrow (Exist TArrow) where


instance ITLine (Exist TArrow) where


instance ITAttFill (Exist TArrow) where
  setFillColor (ETArrow x) = setFillColor x
  setFillStyle (ETArrow x) = setFillStyle x

instance ITObject (Exist TArrow) where
  getName (ETArrow x) = getName x
  draw (ETArrow x) = draw x
  findObject (ETArrow x) = findObject x
  saveAs (ETArrow x) = saveAs x
  write (ETArrow x) = write x
  isA (ETArrow x) = isA x
  printObj (ETArrow x) = printObj x

instance ITAttLine (Exist TArrow) where
  setLineColor (ETArrow x) = setLineColor x

instance IDeletable (Exist TArrow) where
  delete (ETArrow x) = delete x

instance ITGaxis (Exist TGaxis) where


instance ITLine (Exist TGaxis) where


instance ITAttText (Exist TGaxis) where
  setTextColor (ETGaxis x) = setTextColor x
  setTextAlign (ETGaxis x) = setTextAlign x
  setTextSize (ETGaxis x) = setTextSize x

instance ITObject (Exist TGaxis) where
  getName (ETGaxis x) = getName x
  draw (ETGaxis x) = draw x
  findObject (ETGaxis x) = findObject x
  saveAs (ETGaxis x) = saveAs x
  write (ETGaxis x) = write x
  isA (ETGaxis x) = isA x
  printObj (ETGaxis x) = printObj x

instance ITAttLine (Exist TGaxis) where
  setLineColor (ETGaxis x) = setLineColor x

instance IDeletable (Exist TGaxis) where
  delete (ETGaxis x) = delete x

instance ITShape (Exist TShape) where


instance ITNamed (Exist TShape) where
  setName (ETShape x) = setName x
  setNameTitle (ETShape x) = setNameTitle x
  setTitle (ETShape x) = setTitle x

instance ITAttLine (Exist TShape) where
  setLineColor (ETShape x) = setLineColor x

instance ITAttFill (Exist TShape) where
  setFillColor (ETShape x) = setFillColor x
  setFillStyle (ETShape x) = setFillStyle x

instance ITAtt3D (Exist TShape) where


instance ITObject (Exist TShape) where
  getName (ETShape x) = getName x
  draw (ETShape x) = draw x
  findObject (ETShape x) = findObject x
  saveAs (ETShape x) = saveAs x
  write (ETShape x) = write x
  isA (ETShape x) = isA x
  printObj (ETShape x) = printObj x

instance IDeletable (Exist TShape) where
  delete (ETShape x) = delete x

instance ITBRIK (Exist TBRIK) where


instance ITShape (Exist TBRIK) where


instance ITNamed (Exist TBRIK) where
  setName (ETBRIK x) = setName x
  setNameTitle (ETBRIK x) = setNameTitle x
  setTitle (ETBRIK x) = setTitle x

instance ITAttLine (Exist TBRIK) where
  setLineColor (ETBRIK x) = setLineColor x

instance ITAttFill (Exist TBRIK) where
  setFillColor (ETBRIK x) = setFillColor x
  setFillStyle (ETBRIK x) = setFillStyle x

instance ITAtt3D (Exist TBRIK) where


instance ITObject (Exist TBRIK) where
  getName (ETBRIK x) = getName x
  draw (ETBRIK x) = draw x
  findObject (ETBRIK x) = findObject x
  saveAs (ETBRIK x) = saveAs x
  write (ETBRIK x) = write x
  isA (ETBRIK x) = isA x
  printObj (ETBRIK x) = printObj x

instance IDeletable (Exist TBRIK) where
  delete (ETBRIK x) = delete x

instance ITTUBE (Exist TTUBE) where


instance ITShape (Exist TTUBE) where


instance ITNamed (Exist TTUBE) where
  setName (ETTUBE x) = setName x
  setNameTitle (ETTUBE x) = setNameTitle x
  setTitle (ETTUBE x) = setTitle x

instance ITAttLine (Exist TTUBE) where
  setLineColor (ETTUBE x) = setLineColor x

instance ITAttFill (Exist TTUBE) where
  setFillColor (ETTUBE x) = setFillColor x
  setFillStyle (ETTUBE x) = setFillStyle x

instance ITAtt3D (Exist TTUBE) where


instance ITObject (Exist TTUBE) where
  getName (ETTUBE x) = getName x
  draw (ETTUBE x) = draw x
  findObject (ETTUBE x) = findObject x
  saveAs (ETTUBE x) = saveAs x
  write (ETTUBE x) = write x
  isA (ETTUBE x) = isA x
  printObj (ETTUBE x) = printObj x

instance IDeletable (Exist TTUBE) where
  delete (ETTUBE x) = delete x

instance ITPCON (Exist TPCON) where


instance ITShape (Exist TPCON) where


instance ITNamed (Exist TPCON) where
  setName (ETPCON x) = setName x
  setNameTitle (ETPCON x) = setNameTitle x
  setTitle (ETPCON x) = setTitle x

instance ITAttLine (Exist TPCON) where
  setLineColor (ETPCON x) = setLineColor x

instance ITAttFill (Exist TPCON) where
  setFillColor (ETPCON x) = setFillColor x
  setFillStyle (ETPCON x) = setFillStyle x

instance ITAtt3D (Exist TPCON) where


instance ITObject (Exist TPCON) where
  getName (ETPCON x) = getName x
  draw (ETPCON x) = draw x
  findObject (ETPCON x) = findObject x
  saveAs (ETPCON x) = saveAs x
  write (ETPCON x) = write x
  isA (ETPCON x) = isA x
  printObj (ETPCON x) = printObj x

instance IDeletable (Exist TPCON) where
  delete (ETPCON x) = delete x

instance ITSPHE (Exist TSPHE) where


instance ITShape (Exist TSPHE) where


instance ITNamed (Exist TSPHE) where
  setName (ETSPHE x) = setName x
  setNameTitle (ETSPHE x) = setNameTitle x
  setTitle (ETSPHE x) = setTitle x

instance ITAttLine (Exist TSPHE) where
  setLineColor (ETSPHE x) = setLineColor x

instance ITAttFill (Exist TSPHE) where
  setFillColor (ETSPHE x) = setFillColor x
  setFillStyle (ETSPHE x) = setFillStyle x

instance ITAtt3D (Exist TSPHE) where


instance ITObject (Exist TSPHE) where
  getName (ETSPHE x) = getName x
  draw (ETSPHE x) = draw x
  findObject (ETSPHE x) = findObject x
  saveAs (ETSPHE x) = saveAs x
  write (ETSPHE x) = write x
  isA (ETSPHE x) = isA x
  printObj (ETSPHE x) = printObj x

instance IDeletable (Exist TSPHE) where
  delete (ETSPHE x) = delete x

instance ITXTRU (Exist TXTRU) where


instance ITShape (Exist TXTRU) where


instance ITNamed (Exist TXTRU) where
  setName (ETXTRU x) = setName x
  setNameTitle (ETXTRU x) = setNameTitle x
  setTitle (ETXTRU x) = setTitle x

instance ITAttLine (Exist TXTRU) where
  setLineColor (ETXTRU x) = setLineColor x

instance ITAttFill (Exist TXTRU) where
  setFillColor (ETXTRU x) = setFillColor x
  setFillStyle (ETXTRU x) = setFillStyle x

instance ITAtt3D (Exist TXTRU) where


instance ITObject (Exist TXTRU) where
  getName (ETXTRU x) = getName x
  draw (ETXTRU x) = draw x
  findObject (ETXTRU x) = findObject x
  saveAs (ETXTRU x) = saveAs x
  write (ETXTRU x) = write x
  isA (ETXTRU x) = isA x
  printObj (ETXTRU x) = printObj x

instance IDeletable (Exist TXTRU) where
  delete (ETXTRU x) = delete x

instance ITBox (Exist TBox) where


instance ITObject (Exist TBox) where
  getName (ETBox x) = getName x
  draw (ETBox x) = draw x
  findObject (ETBox x) = findObject x
  saveAs (ETBox x) = saveAs x
  write (ETBox x) = write x
  isA (ETBox x) = isA x
  printObj (ETBox x) = printObj x

instance ITAttLine (Exist TBox) where
  setLineColor (ETBox x) = setLineColor x

instance ITAttFill (Exist TBox) where
  setFillColor (ETBox x) = setFillColor x
  setFillStyle (ETBox x) = setFillStyle x

instance IDeletable (Exist TBox) where
  delete (ETBox x) = delete x

instance ITPave (Exist TPave) where


instance ITBox (Exist TPave) where


instance ITObject (Exist TPave) where
  getName (ETPave x) = getName x
  draw (ETPave x) = draw x
  findObject (ETPave x) = findObject x
  saveAs (ETPave x) = saveAs x
  write (ETPave x) = write x
  isA (ETPave x) = isA x
  printObj (ETPave x) = printObj x

instance ITAttLine (Exist TPave) where
  setLineColor (ETPave x) = setLineColor x

instance ITAttFill (Exist TPave) where
  setFillColor (ETPave x) = setFillColor x
  setFillStyle (ETPave x) = setFillStyle x

instance IDeletable (Exist TPave) where
  delete (ETPave x) = delete x

instance ITPaveText (Exist TPaveText) where


instance ITPave (Exist TPaveText) where


instance ITAttText (Exist TPaveText) where
  setTextColor (ETPaveText x) = setTextColor x
  setTextAlign (ETPaveText x) = setTextAlign x
  setTextSize (ETPaveText x) = setTextSize x

instance ITBox (Exist TPaveText) where


instance ITObject (Exist TPaveText) where
  getName (ETPaveText x) = getName x
  draw (ETPaveText x) = draw x
  findObject (ETPaveText x) = findObject x
  saveAs (ETPaveText x) = saveAs x
  write (ETPaveText x) = write x
  isA (ETPaveText x) = isA x
  printObj (ETPaveText x) = printObj x

instance ITAttLine (Exist TPaveText) where
  setLineColor (ETPaveText x) = setLineColor x

instance ITAttFill (Exist TPaveText) where
  setFillColor (ETPaveText x) = setFillColor x
  setFillStyle (ETPaveText x) = setFillStyle x

instance IDeletable (Exist TPaveText) where
  delete (ETPaveText x) = delete x

instance ITDiamond (Exist TDiamond) where


instance ITPaveText (Exist TDiamond) where


instance ITPave (Exist TDiamond) where


instance ITAttText (Exist TDiamond) where
  setTextColor (ETDiamond x) = setTextColor x
  setTextAlign (ETDiamond x) = setTextAlign x
  setTextSize (ETDiamond x) = setTextSize x

instance ITBox (Exist TDiamond) where


instance ITObject (Exist TDiamond) where
  getName (ETDiamond x) = getName x
  draw (ETDiamond x) = draw x
  findObject (ETDiamond x) = findObject x
  saveAs (ETDiamond x) = saveAs x
  write (ETDiamond x) = write x
  isA (ETDiamond x) = isA x
  printObj (ETDiamond x) = printObj x

instance ITAttLine (Exist TDiamond) where
  setLineColor (ETDiamond x) = setLineColor x

instance ITAttFill (Exist TDiamond) where
  setFillColor (ETDiamond x) = setFillColor x
  setFillStyle (ETDiamond x) = setFillStyle x

instance IDeletable (Exist TDiamond) where
  delete (ETDiamond x) = delete x

instance ITPaveStats (Exist TPaveStats) where


instance ITPaveText (Exist TPaveStats) where


instance ITPave (Exist TPaveStats) where


instance ITAttText (Exist TPaveStats) where
  setTextColor (ETPaveStats x) = setTextColor x
  setTextAlign (ETPaveStats x) = setTextAlign x
  setTextSize (ETPaveStats x) = setTextSize x

instance ITBox (Exist TPaveStats) where


instance ITObject (Exist TPaveStats) where
  getName (ETPaveStats x) = getName x
  draw (ETPaveStats x) = draw x
  findObject (ETPaveStats x) = findObject x
  saveAs (ETPaveStats x) = saveAs x
  write (ETPaveStats x) = write x
  isA (ETPaveStats x) = isA x
  printObj (ETPaveStats x) = printObj x

instance ITAttLine (Exist TPaveStats) where
  setLineColor (ETPaveStats x) = setLineColor x

instance ITAttFill (Exist TPaveStats) where
  setFillColor (ETPaveStats x) = setFillColor x
  setFillStyle (ETPaveStats x) = setFillStyle x

instance IDeletable (Exist TPaveStats) where
  delete (ETPaveStats x) = delete x

instance ITPavesText (Exist TPavesText) where


instance ITPaveText (Exist TPavesText) where


instance ITPave (Exist TPavesText) where


instance ITAttText (Exist TPavesText) where
  setTextColor (ETPavesText x) = setTextColor x
  setTextAlign (ETPavesText x) = setTextAlign x
  setTextSize (ETPavesText x) = setTextSize x

instance ITBox (Exist TPavesText) where


instance ITObject (Exist TPavesText) where
  getName (ETPavesText x) = getName x
  draw (ETPavesText x) = draw x
  findObject (ETPavesText x) = findObject x
  saveAs (ETPavesText x) = saveAs x
  write (ETPavesText x) = write x
  isA (ETPavesText x) = isA x
  printObj (ETPavesText x) = printObj x

instance ITAttLine (Exist TPavesText) where
  setLineColor (ETPavesText x) = setLineColor x

instance ITAttFill (Exist TPavesText) where
  setFillColor (ETPavesText x) = setFillColor x
  setFillStyle (ETPavesText x) = setFillStyle x

instance IDeletable (Exist TPavesText) where
  delete (ETPavesText x) = delete x

instance ITLegend (Exist TLegend) where
  addEntry (ETLegend x) = addEntry x

instance ITPave (Exist TLegend) where


instance ITAttText (Exist TLegend) where
  setTextColor (ETLegend x) = setTextColor x
  setTextAlign (ETLegend x) = setTextAlign x
  setTextSize (ETLegend x) = setTextSize x

instance ITBox (Exist TLegend) where


instance ITObject (Exist TLegend) where
  getName (ETLegend x) = getName x
  draw (ETLegend x) = draw x
  findObject (ETLegend x) = findObject x
  saveAs (ETLegend x) = saveAs x
  write (ETLegend x) = write x
  isA (ETLegend x) = isA x
  printObj (ETLegend x) = printObj x

instance ITAttLine (Exist TLegend) where
  setLineColor (ETLegend x) = setLineColor x

instance ITAttFill (Exist TLegend) where
  setFillColor (ETLegend x) = setFillColor x
  setFillStyle (ETLegend x) = setFillStyle x

instance IDeletable (Exist TLegend) where
  delete (ETLegend x) = delete x

instance ITLegendEntry (Exist TLegendEntry) where


instance ITObject (Exist TLegendEntry) where
  getName (ETLegendEntry x) = getName x
  draw (ETLegendEntry x) = draw x
  findObject (ETLegendEntry x) = findObject x
  saveAs (ETLegendEntry x) = saveAs x
  write (ETLegendEntry x) = write x
  isA (ETLegendEntry x) = isA x
  printObj (ETLegendEntry x) = printObj x

instance ITAttText (Exist TLegendEntry) where
  setTextColor (ETLegendEntry x) = setTextColor x
  setTextAlign (ETLegendEntry x) = setTextAlign x
  setTextSize (ETLegendEntry x) = setTextSize x

instance ITAttLine (Exist TLegendEntry) where
  setLineColor (ETLegendEntry x) = setLineColor x

instance ITAttFill (Exist TLegendEntry) where
  setFillColor (ETLegendEntry x) = setFillColor x
  setFillStyle (ETLegendEntry x) = setFillStyle x

instance ITAttMarker (Exist TLegendEntry) where


instance IDeletable (Exist TLegendEntry) where
  delete (ETLegendEntry x) = delete x

instance ITPaveLabel (Exist TPaveLabel) where


instance ITPave (Exist TPaveLabel) where


instance ITAttText (Exist TPaveLabel) where
  setTextColor (ETPaveLabel x) = setTextColor x
  setTextAlign (ETPaveLabel x) = setTextAlign x
  setTextSize (ETPaveLabel x) = setTextSize x

instance ITBox (Exist TPaveLabel) where


instance ITObject (Exist TPaveLabel) where
  getName (ETPaveLabel x) = getName x
  draw (ETPaveLabel x) = draw x
  findObject (ETPaveLabel x) = findObject x
  saveAs (ETPaveLabel x) = saveAs x
  write (ETPaveLabel x) = write x
  isA (ETPaveLabel x) = isA x
  printObj (ETPaveLabel x) = printObj x

instance ITAttLine (Exist TPaveLabel) where
  setLineColor (ETPaveLabel x) = setLineColor x

instance ITAttFill (Exist TPaveLabel) where
  setFillColor (ETPaveLabel x) = setFillColor x
  setFillStyle (ETPaveLabel x) = setFillStyle x

instance IDeletable (Exist TPaveLabel) where
  delete (ETPaveLabel x) = delete x

instance ITPaveClass (Exist TPaveClass) where


instance ITPaveLabel (Exist TPaveClass) where


instance ITPave (Exist TPaveClass) where


instance ITAttText (Exist TPaveClass) where
  setTextColor (ETPaveClass x) = setTextColor x
  setTextAlign (ETPaveClass x) = setTextAlign x
  setTextSize (ETPaveClass x) = setTextSize x

instance ITBox (Exist TPaveClass) where


instance ITObject (Exist TPaveClass) where
  getName (ETPaveClass x) = getName x
  draw (ETPaveClass x) = draw x
  findObject (ETPaveClass x) = findObject x
  saveAs (ETPaveClass x) = saveAs x
  write (ETPaveClass x) = write x
  isA (ETPaveClass x) = isA x
  printObj (ETPaveClass x) = printObj x

instance ITAttLine (Exist TPaveClass) where
  setLineColor (ETPaveClass x) = setLineColor x

instance ITAttFill (Exist TPaveClass) where
  setFillColor (ETPaveClass x) = setFillColor x
  setFillStyle (ETPaveClass x) = setFillStyle x

instance IDeletable (Exist TPaveClass) where
  delete (ETPaveClass x) = delete x

instance ITWbox (Exist TWbox) where
  setBorderMode (ETWbox x) = setBorderMode x

instance ITBox (Exist TWbox) where


instance ITObject (Exist TWbox) where
  getName (ETWbox x) = getName x
  draw (ETWbox x) = draw x
  findObject (ETWbox x) = findObject x
  saveAs (ETWbox x) = saveAs x
  write (ETWbox x) = write x
  isA (ETWbox x) = isA x
  printObj (ETWbox x) = printObj x

instance ITAttLine (Exist TWbox) where
  setLineColor (ETWbox x) = setLineColor x

instance ITAttFill (Exist TWbox) where
  setFillColor (ETWbox x) = setFillColor x
  setFillStyle (ETWbox x) = setFillStyle x

instance IDeletable (Exist TWbox) where
  delete (ETWbox x) = delete x

instance ITFrame (Exist TFrame) where


instance ITWbox (Exist TFrame) where
  setBorderMode (ETFrame x) = setBorderMode x

instance ITBox (Exist TFrame) where


instance ITObject (Exist TFrame) where
  getName (ETFrame x) = getName x
  draw (ETFrame x) = draw x
  findObject (ETFrame x) = findObject x
  saveAs (ETFrame x) = saveAs x
  write (ETFrame x) = write x
  isA (ETFrame x) = isA x
  printObj (ETFrame x) = printObj x

instance ITAttLine (Exist TFrame) where
  setLineColor (ETFrame x) = setLineColor x

instance ITAttFill (Exist TFrame) where
  setFillColor (ETFrame x) = setFillColor x
  setFillStyle (ETFrame x) = setFillStyle x

instance IDeletable (Exist TFrame) where
  delete (ETFrame x) = delete x

instance ITSliderBox (Exist TSliderBox) where


instance ITWbox (Exist TSliderBox) where
  setBorderMode (ETSliderBox x) = setBorderMode x

instance ITBox (Exist TSliderBox) where


instance ITObject (Exist TSliderBox) where
  getName (ETSliderBox x) = getName x
  draw (ETSliderBox x) = draw x
  findObject (ETSliderBox x) = findObject x
  saveAs (ETSliderBox x) = saveAs x
  write (ETSliderBox x) = write x
  isA (ETSliderBox x) = isA x
  printObj (ETSliderBox x) = printObj x

instance ITAttLine (Exist TSliderBox) where
  setLineColor (ETSliderBox x) = setLineColor x

instance ITAttFill (Exist TSliderBox) where
  setFillColor (ETSliderBox x) = setFillColor x
  setFillStyle (ETSliderBox x) = setFillStyle x

instance IDeletable (Exist TSliderBox) where
  delete (ETSliderBox x) = delete x

instance ITTree (Exist TTree) where


instance ITNamed (Exist TTree) where
  setName (ETTree x) = setName x
  setNameTitle (ETTree x) = setNameTitle x
  setTitle (ETTree x) = setTitle x

instance ITAttLine (Exist TTree) where
  setLineColor (ETTree x) = setLineColor x

instance ITAttFill (Exist TTree) where
  setFillColor (ETTree x) = setFillColor x
  setFillStyle (ETTree x) = setFillStyle x

instance ITAttMarker (Exist TTree) where


instance ITObject (Exist TTree) where
  getName (ETTree x) = getName x
  draw (ETTree x) = draw x
  findObject (ETTree x) = findObject x
  saveAs (ETTree x) = saveAs x
  write (ETTree x) = write x
  isA (ETTree x) = isA x
  printObj (ETTree x) = printObj x

instance IDeletable (Exist TTree) where
  delete (ETTree x) = delete x

instance ITChain (Exist TChain) where


instance ITTree (Exist TChain) where


instance ITNamed (Exist TChain) where
  setName (ETChain x) = setName x
  setNameTitle (ETChain x) = setNameTitle x
  setTitle (ETChain x) = setTitle x

instance ITAttLine (Exist TChain) where
  setLineColor (ETChain x) = setLineColor x

instance ITAttFill (Exist TChain) where
  setFillColor (ETChain x) = setFillColor x
  setFillStyle (ETChain x) = setFillStyle x

instance ITAttMarker (Exist TChain) where


instance ITObject (Exist TChain) where
  getName (ETChain x) = getName x
  draw (ETChain x) = draw x
  findObject (ETChain x) = findObject x
  saveAs (ETChain x) = saveAs x
  write (ETChain x) = write x
  isA (ETChain x) = isA x
  printObj (ETChain x) = printObj x

instance IDeletable (Exist TChain) where
  delete (ETChain x) = delete x

instance ITNtuple (Exist TNtuple) where


instance ITTree (Exist TNtuple) where


instance ITNamed (Exist TNtuple) where
  setName (ETNtuple x) = setName x
  setNameTitle (ETNtuple x) = setNameTitle x
  setTitle (ETNtuple x) = setTitle x

instance ITAttLine (Exist TNtuple) where
  setLineColor (ETNtuple x) = setLineColor x

instance ITAttFill (Exist TNtuple) where
  setFillColor (ETNtuple x) = setFillColor x
  setFillStyle (ETNtuple x) = setFillStyle x

instance ITAttMarker (Exist TNtuple) where


instance ITObject (Exist TNtuple) where
  getName (ETNtuple x) = getName x
  draw (ETNtuple x) = draw x
  findObject (ETNtuple x) = findObject x
  saveAs (ETNtuple x) = saveAs x
  write (ETNtuple x) = write x
  isA (ETNtuple x) = isA x
  printObj (ETNtuple x) = printObj x

instance IDeletable (Exist TNtuple) where
  delete (ETNtuple x) = delete x

instance ITNtupleD (Exist TNtupleD) where


instance ITTree (Exist TNtupleD) where


instance ITNamed (Exist TNtupleD) where
  setName (ETNtupleD x) = setName x
  setNameTitle (ETNtupleD x) = setNameTitle x
  setTitle (ETNtupleD x) = setTitle x

instance ITAttLine (Exist TNtupleD) where
  setLineColor (ETNtupleD x) = setLineColor x

instance ITAttFill (Exist TNtupleD) where
  setFillColor (ETNtupleD x) = setFillColor x
  setFillStyle (ETNtupleD x) = setFillStyle x

instance ITAttMarker (Exist TNtupleD) where


instance ITObject (Exist TNtupleD) where
  getName (ETNtupleD x) = getName x
  draw (ETNtupleD x) = draw x
  findObject (ETNtupleD x) = findObject x
  saveAs (ETNtupleD x) = saveAs x
  write (ETNtupleD x) = write x
  isA (ETNtupleD x) = isA x
  printObj (ETNtupleD x) = printObj x

instance IDeletable (Exist TNtupleD) where
  delete (ETNtupleD x) = delete x

instance ITTreeSQL (Exist TTreeSQL) where


instance ITTree (Exist TTreeSQL) where


instance ITNamed (Exist TTreeSQL) where
  setName (ETTreeSQL x) = setName x
  setNameTitle (ETTreeSQL x) = setNameTitle x
  setTitle (ETTreeSQL x) = setTitle x

instance ITAttLine (Exist TTreeSQL) where
  setLineColor (ETTreeSQL x) = setLineColor x

instance ITAttFill (Exist TTreeSQL) where
  setFillColor (ETTreeSQL x) = setFillColor x
  setFillStyle (ETTreeSQL x) = setFillStyle x

instance ITAttMarker (Exist TTreeSQL) where


instance ITObject (Exist TTreeSQL) where
  getName (ETTreeSQL x) = getName x
  draw (ETTreeSQL x) = draw x
  findObject (ETTreeSQL x) = findObject x
  saveAs (ETTreeSQL x) = saveAs x
  write (ETTreeSQL x) = write x
  isA (ETTreeSQL x) = isA x
  printObj (ETTreeSQL x) = printObj x

instance IDeletable (Exist TTreeSQL) where
  delete (ETTreeSQL x) = delete x

instance ITPolyLine (Exist TPolyLine) where


instance ITObject (Exist TPolyLine) where
  getName (ETPolyLine x) = getName x
  draw (ETPolyLine x) = draw x
  findObject (ETPolyLine x) = findObject x
  saveAs (ETPolyLine x) = saveAs x
  write (ETPolyLine x) = write x
  isA (ETPolyLine x) = isA x
  printObj (ETPolyLine x) = printObj x

instance ITAttLine (Exist TPolyLine) where
  setLineColor (ETPolyLine x) = setLineColor x

instance ITAttFill (Exist TPolyLine) where
  setFillColor (ETPolyLine x) = setFillColor x
  setFillStyle (ETPolyLine x) = setFillStyle x

instance IDeletable (Exist TPolyLine) where
  delete (ETPolyLine x) = delete x

instance ITCurlyLine (Exist TCurlyLine) where


instance ITPolyLine (Exist TCurlyLine) where


instance ITObject (Exist TCurlyLine) where
  getName (ETCurlyLine x) = getName x
  draw (ETCurlyLine x) = draw x
  findObject (ETCurlyLine x) = findObject x
  saveAs (ETCurlyLine x) = saveAs x
  write (ETCurlyLine x) = write x
  isA (ETCurlyLine x) = isA x
  printObj (ETCurlyLine x) = printObj x

instance ITAttLine (Exist TCurlyLine) where
  setLineColor (ETCurlyLine x) = setLineColor x

instance ITAttFill (Exist TCurlyLine) where
  setFillColor (ETCurlyLine x) = setFillColor x
  setFillStyle (ETCurlyLine x) = setFillStyle x

instance IDeletable (Exist TCurlyLine) where
  delete (ETCurlyLine x) = delete x

instance ITCurlyArc (Exist TCurlyArc) where


instance ITCurlyLine (Exist TCurlyArc) where


instance ITPolyLine (Exist TCurlyArc) where


instance ITObject (Exist TCurlyArc) where
  getName (ETCurlyArc x) = getName x
  draw (ETCurlyArc x) = draw x
  findObject (ETCurlyArc x) = findObject x
  saveAs (ETCurlyArc x) = saveAs x
  write (ETCurlyArc x) = write x
  isA (ETCurlyArc x) = isA x
  printObj (ETCurlyArc x) = printObj x

instance ITAttLine (Exist TCurlyArc) where
  setLineColor (ETCurlyArc x) = setLineColor x

instance ITAttFill (Exist TCurlyArc) where
  setFillColor (ETCurlyArc x) = setFillColor x
  setFillStyle (ETCurlyArc x) = setFillStyle x

instance IDeletable (Exist TCurlyArc) where
  delete (ETCurlyArc x) = delete x

instance ITEfficiency (Exist TEfficiency) where


instance ITNamed (Exist TEfficiency) where
  setName (ETEfficiency x) = setName x
  setNameTitle (ETEfficiency x) = setNameTitle x
  setTitle (ETEfficiency x) = setTitle x

instance ITAttLine (Exist TEfficiency) where
  setLineColor (ETEfficiency x) = setLineColor x

instance ITAttFill (Exist TEfficiency) where
  setFillColor (ETEfficiency x) = setFillColor x
  setFillStyle (ETEfficiency x) = setFillStyle x

instance ITAttMarker (Exist TEfficiency) where


instance ITObject (Exist TEfficiency) where
  getName (ETEfficiency x) = getName x
  draw (ETEfficiency x) = draw x
  findObject (ETEfficiency x) = findObject x
  saveAs (ETEfficiency x) = saveAs x
  write (ETEfficiency x) = write x
  isA (ETEfficiency x) = isA x
  printObj (ETEfficiency x) = printObj x

instance IDeletable (Exist TEfficiency) where
  delete (ETEfficiency x) = delete x

instance ITAxis (Exist TAxis) where
  setTimeDisplay (ETAxis x) = setTimeDisplay x
  setTimeFormat (ETAxis x) = setTimeFormat x
  setTimeOffset (ETAxis x) = setTimeOffset x

instance ITNamed (Exist TAxis) where
  setName (ETAxis x) = setName x
  setNameTitle (ETAxis x) = setNameTitle x
  setTitle (ETAxis x) = setTitle x

instance ITAttAxis (Exist TAxis) where
  getNdivisions (ETAxis x) = getNdivisions x
  getAxisColor (ETAxis x) = getAxisColor x
  getLabelColor (ETAxis x) = getLabelColor x
  getLabelFont (ETAxis x) = getLabelFont x
  getLabelOffset (ETAxis x) = getLabelOffset x
  getLabelSize (ETAxis x) = getLabelSize x
  getTitleOffset (ETAxis x) = getTitleOffset x
  getTitleSize (ETAxis x) = getTitleSize x
  getTickLength (ETAxis x) = getTickLength x
  getTitleFont (ETAxis x) = getTitleFont x
  setNdivisions (ETAxis x) = setNdivisions x
  setAxisColor (ETAxis x) = setAxisColor x
  setLabelColor (ETAxis x) = setLabelColor x
  setLabelFont (ETAxis x) = setLabelFont x
  setLabelOffset (ETAxis x) = setLabelOffset x
  setLabelSize (ETAxis x) = setLabelSize x
  setTickLength (ETAxis x) = setTickLength x
  setTitleOffset (ETAxis x) = setTitleOffset x
  setTitleSize (ETAxis x) = setTitleSize x
  setTitleColor (ETAxis x) = setTitleColor x
  setTitleFont (ETAxis x) = setTitleFont x

instance ITObject (Exist TAxis) where
  getName (ETAxis x) = getName x
  draw (ETAxis x) = draw x
  findObject (ETAxis x) = findObject x
  saveAs (ETAxis x) = saveAs x
  write (ETAxis x) = write x
  isA (ETAxis x) = isA x
  printObj (ETAxis x) = printObj x

instance IDeletable (Exist TAxis) where
  delete (ETAxis x) = delete x

instance ITLatex (Exist TLatex) where


instance ITText (Exist TLatex) where


instance ITAttLine (Exist TLatex) where
  setLineColor (ETLatex x) = setLineColor x

instance ITNamed (Exist TLatex) where
  setName (ETLatex x) = setName x
  setNameTitle (ETLatex x) = setNameTitle x
  setTitle (ETLatex x) = setTitle x

instance ITAttText (Exist TLatex) where
  setTextColor (ETLatex x) = setTextColor x
  setTextAlign (ETLatex x) = setTextAlign x
  setTextSize (ETLatex x) = setTextSize x

instance ITObject (Exist TLatex) where
  getName (ETLatex x) = getName x
  draw (ETLatex x) = draw x
  findObject (ETLatex x) = findObject x
  saveAs (ETLatex x) = saveAs x
  write (ETLatex x) = write x
  isA (ETLatex x) = isA x
  printObj (ETLatex x) = printObj x

instance IDeletable (Exist TLatex) where
  delete (ETLatex x) = delete x

instance ITText (Exist TText) where


instance ITNamed (Exist TText) where
  setName (ETText x) = setName x
  setNameTitle (ETText x) = setNameTitle x
  setTitle (ETText x) = setTitle x

instance ITAttText (Exist TText) where
  setTextColor (ETText x) = setTextColor x
  setTextAlign (ETText x) = setTextAlign x
  setTextSize (ETText x) = setTextSize x

instance ITObject (Exist TText) where
  getName (ETText x) = getName x
  draw (ETText x) = draw x
  findObject (ETText x) = findObject x
  saveAs (ETText x) = saveAs x
  write (ETText x) = write x
  isA (ETText x) = isA x
  printObj (ETText x) = printObj x

instance IDeletable (Exist TText) where
  delete (ETText x) = delete x

instance ITDirectory (Exist TDirectory) where
  append (ETDirectory x) = append x
  addD (ETDirectory x) = addD x
  appendKey (ETDirectory x) = appendKey x
  close (ETDirectory x) = close x
  get (ETDirectory x) = get x

instance ITNamed (Exist TDirectory) where
  setName (ETDirectory x) = setName x
  setNameTitle (ETDirectory x) = setNameTitle x
  setTitle (ETDirectory x) = setTitle x

instance ITObject (Exist TDirectory) where
  getName (ETDirectory x) = getName x
  draw (ETDirectory x) = draw x
  findObject (ETDirectory x) = findObject x
  saveAs (ETDirectory x) = saveAs x
  write (ETDirectory x) = write x
  isA (ETDirectory x) = isA x
  printObj (ETDirectory x) = printObj x

instance IDeletable (Exist TDirectory) where
  delete (ETDirectory x) = delete x

instance ITDirectoryFile (Exist TDirectoryFile) where
  getListOfKeys (ETDirectoryFile x) = getListOfKeys x

instance ITDirectory (Exist TDirectoryFile) where
  append (ETDirectoryFile x) = append x
  addD (ETDirectoryFile x) = addD x
  appendKey (ETDirectoryFile x) = appendKey x
  close (ETDirectoryFile x) = close x
  get (ETDirectoryFile x) = get x

instance ITNamed (Exist TDirectoryFile) where
  setName (ETDirectoryFile x) = setName x
  setNameTitle (ETDirectoryFile x) = setNameTitle x
  setTitle (ETDirectoryFile x) = setTitle x

instance ITObject (Exist TDirectoryFile) where
  getName (ETDirectoryFile x) = getName x
  draw (ETDirectoryFile x) = draw x
  findObject (ETDirectoryFile x) = findObject x
  saveAs (ETDirectoryFile x) = saveAs x
  write (ETDirectoryFile x) = write x
  isA (ETDirectoryFile x) = isA x
  printObj (ETDirectoryFile x) = printObj x

instance IDeletable (Exist TDirectoryFile) where
  delete (ETDirectoryFile x) = delete x

instance ITFile (Exist TFile) where


instance ITDirectoryFile (Exist TFile) where
  getListOfKeys (ETFile x) = getListOfKeys x

instance ITDirectory (Exist TFile) where
  append (ETFile x) = append x
  addD (ETFile x) = addD x
  appendKey (ETFile x) = appendKey x
  close (ETFile x) = close x
  get (ETFile x) = get x

instance ITNamed (Exist TFile) where
  setName (ETFile x) = setName x
  setNameTitle (ETFile x) = setNameTitle x
  setTitle (ETFile x) = setTitle x

instance ITObject (Exist TFile) where
  getName (ETFile x) = getName x
  draw (ETFile x) = draw x
  findObject (ETFile x) = findObject x
  saveAs (ETFile x) = saveAs x
  write (ETFile x) = write x
  isA (ETFile x) = isA x
  printObj (ETFile x) = printObj x

instance IDeletable (Exist TFile) where
  delete (ETFile x) = delete x

instance ITBranch (Exist TBranch) where


instance ITNamed (Exist TBranch) where
  setName (ETBranch x) = setName x
  setNameTitle (ETBranch x) = setNameTitle x
  setTitle (ETBranch x) = setTitle x

instance ITAttFill (Exist TBranch) where
  setFillColor (ETBranch x) = setFillColor x
  setFillStyle (ETBranch x) = setFillStyle x

instance ITObject (Exist TBranch) where
  getName (ETBranch x) = getName x
  draw (ETBranch x) = draw x
  findObject (ETBranch x) = findObject x
  saveAs (ETBranch x) = saveAs x
  write (ETBranch x) = write x
  isA (ETBranch x) = isA x
  printObj (ETBranch x) = printObj x

instance IDeletable (Exist TBranch) where
  delete (ETBranch x) = delete x

instance ITVirtualTreePlayer (Exist TVirtualTreePlayer) where


instance ITObject (Exist TVirtualTreePlayer) where
  getName (ETVirtualTreePlayer x) = getName x
  draw (ETVirtualTreePlayer x) = draw x
  findObject (ETVirtualTreePlayer x) = findObject x
  saveAs (ETVirtualTreePlayer x) = saveAs x
  write (ETVirtualTreePlayer x) = write x
  isA (ETVirtualTreePlayer x) = isA x
  printObj (ETVirtualTreePlayer x) = printObj x

instance IDeletable (Exist TVirtualTreePlayer) where
  delete (ETVirtualTreePlayer x) = delete x

instance ITTreePlayer (Exist TTreePlayer) where


instance ITVirtualTreePlayer (Exist TTreePlayer) where


instance ITObject (Exist TTreePlayer) where
  getName (ETTreePlayer x) = getName x
  draw (ETTreePlayer x) = draw x
  findObject (ETTreePlayer x) = findObject x
  saveAs (ETTreePlayer x) = saveAs x
  write (ETTreePlayer x) = write x
  isA (ETTreePlayer x) = isA x
  printObj (ETTreePlayer x) = printObj x

instance IDeletable (Exist TTreePlayer) where
  delete (ETTreePlayer x) = delete x

instance ITArray (Exist TArray) where


instance IDeletable (Exist TArray) where
  delete (ETArray x) = delete x

instance ITArrayC (Exist TArrayC) where


instance ITArray (Exist TArrayC) where


instance IDeletable (Exist TArrayC) where
  delete (ETArrayC x) = delete x

instance ITArrayD (Exist TArrayD) where


instance ITArray (Exist TArrayD) where


instance IDeletable (Exist TArrayD) where
  delete (ETArrayD x) = delete x

instance ITArrayF (Exist TArrayF) where


instance ITArray (Exist TArrayF) where


instance IDeletable (Exist TArrayF) where
  delete (ETArrayF x) = delete x

instance ITArrayI (Exist TArrayI) where


instance ITArray (Exist TArrayI) where


instance IDeletable (Exist TArrayI) where
  delete (ETArrayI x) = delete x

instance ITArrayL (Exist TArrayL) where


instance ITArray (Exist TArrayL) where


instance IDeletable (Exist TArrayL) where
  delete (ETArrayL x) = delete x

instance ITArrayL64 (Exist TArrayL64) where


instance ITArray (Exist TArrayL64) where


instance IDeletable (Exist TArrayL64) where
  delete (ETArrayL64 x) = delete x

instance ITArrayS (Exist TArrayS) where


instance ITArray (Exist TArrayS) where


instance IDeletable (Exist TArrayS) where
  delete (ETArrayS x) = delete x

instance ITH1 (Exist TH1) where
  add (ETH1 x) = add x
  addBinContent (ETH1 x) = addBinContent x
  chi2Test (ETH1 x) = chi2Test x
  computeIntegral (ETH1 x) = computeIntegral x
  directoryAutoAdd (ETH1 x) = directoryAutoAdd x
  distancetoPrimitive (ETH1 x) = distancetoPrimitive x
  divide (ETH1 x) = divide x
  drawCopy (ETH1 x) a1 = return . ETH1 =<< drawCopy x a1
  drawNormalized (ETH1 x) = drawNormalized x
  drawPanel (ETH1 x) = drawPanel x
  bufferEmpty (ETH1 x) = bufferEmpty x
  eval (ETH1 x) = eval x
  executeEvent (ETH1 x) = executeEvent x
  fFT (ETH1 x) = fFT x
  fill1 (ETH1 x) = fill1 x
  fillN (ETH1 x) = fillN x
  fillRandom (ETH1 x) = fillRandom x
  findBin (ETH1 x) = findBin x
  findFixBin (ETH1 x) = findFixBin x
  findFirstBinAbove (ETH1 x) = findFirstBinAbove x
  findLastBinAbove (ETH1 x) = findLastBinAbove x
  fitPanel (ETH1 x) = fitPanel x
  getNdivisionA (ETH1 x) = getNdivisionA x
  getAxisColorA (ETH1 x) = getAxisColorA x
  getLabelColorA (ETH1 x) = getLabelColorA x
  getLabelFontA (ETH1 x) = getLabelFontA x
  getLabelOffsetA (ETH1 x) = getLabelOffsetA x
  getLabelSizeA (ETH1 x) = getLabelSizeA x
  getTitleFontA (ETH1 x) = getTitleFontA x
  getTitleOffsetA (ETH1 x) = getTitleOffsetA x
  getTitleSizeA (ETH1 x) = getTitleSizeA x
  getTickLengthA (ETH1 x) = getTickLengthA x
  getBarOffset (ETH1 x) = getBarOffset x
  getBarWidth (ETH1 x) = getBarWidth x
  getContour (ETH1 x) = getContour x
  getContourLevel (ETH1 x) = getContourLevel x
  getContourLevelPad (ETH1 x) = getContourLevelPad x
  getBin (ETH1 x) = getBin x
  getBinCenter (ETH1 x) = getBinCenter x
  getBinContent1 (ETH1 x) = getBinContent1 x
  getBinContent2 (ETH1 x) = getBinContent2 x
  getBinContent3 (ETH1 x) = getBinContent3 x
  getBinError1 (ETH1 x) = getBinError1 x
  getBinError2 (ETH1 x) = getBinError2 x
  getBinError3 (ETH1 x) = getBinError3 x
  getBinLowEdge (ETH1 x) = getBinLowEdge x
  getBinWidth (ETH1 x) = getBinWidth x
  getCellContent (ETH1 x) = getCellContent x
  getCellError (ETH1 x) = getCellError x
  getEntries (ETH1 x) = getEntries x
  getEffectiveEntries (ETH1 x) = getEffectiveEntries x
  getFunction (ETH1 x) = getFunction x
  getDimension (ETH1 x) = getDimension x
  getKurtosis (ETH1 x) = getKurtosis x
  getLowEdge (ETH1 x) = getLowEdge x
  getMaximum (ETH1 x) = getMaximum x
  getMaximumBin (ETH1 x) = getMaximumBin x
  getMaximumStored (ETH1 x) = getMaximumStored x
  getMinimum (ETH1 x) = getMinimum x
  getMinimumBin (ETH1 x) = getMinimumBin x
  getMinimumStored (ETH1 x) = getMinimumStored x
  getMean (ETH1 x) = getMean x
  getMeanError (ETH1 x) = getMeanError x
  getNbinsX (ETH1 x) = getNbinsX x
  getNbinsY (ETH1 x) = getNbinsY x
  getNbinsZ (ETH1 x) = getNbinsZ x
  getQuantiles (ETH1 x) = getQuantiles x
  getRandom (ETH1 x) = getRandom x
  getStats (ETH1 x) = getStats x
  getSumOfWeights (ETH1 x) = getSumOfWeights x
  getSumw2 (ETH1 x) = getSumw2 x
  getSumw2N (ETH1 x) = getSumw2N x
  getRMS (ETH1 x) = getRMS x
  getRMSError (ETH1 x) = getRMSError x
  getSkewness (ETH1 x) = getSkewness x
  integral1 (ETH1 x) = integral1 x
  interpolate1 (ETH1 x) = interpolate1 x
  interpolate2 (ETH1 x) = interpolate2 x
  interpolate3 (ETH1 x) = interpolate3 x
  kolmogorovTest (ETH1 x) = kolmogorovTest x
  labelsDeflate (ETH1 x) = labelsDeflate x
  labelsInflate (ETH1 x) = labelsInflate x
  labelsOption (ETH1 x) = labelsOption x
  multiflyF (ETH1 x) = multiflyF x
  multiply (ETH1 x) = multiply x
  paint (ETH1 x) = paint x
  putStats (ETH1 x) = putStats x
  rebin (ETH1 x) = rebin x
  rebinAxis (ETH1 x) = rebinAxis x
  rebuild (ETH1 x) = rebuild x
  recursiveRemove (ETH1 x) = recursiveRemove x
  reset (ETH1 x) = reset x
  resetStats (ETH1 x) = resetStats x
  scale (ETH1 x) = scale x
  setAxisColorA (ETH1 x) = setAxisColorA x
  setAxisRange (ETH1 x) = setAxisRange x
  setBarOffset (ETH1 x) = setBarOffset x
  setBarWidth (ETH1 x) = setBarWidth x
  setBinContent1 (ETH1 x) = setBinContent1 x
  setBinContent2 (ETH1 x) = setBinContent2 x
  setBinContent3 (ETH1 x) = setBinContent3 x
  setBinError1 (ETH1 x) = setBinError1 x
  setBinError2 (ETH1 x) = setBinError2 x
  setBinError3 (ETH1 x) = setBinError3 x
  setBins1 (ETH1 x) = setBins1 x
  setBins2 (ETH1 x) = setBins2 x
  setBins3 (ETH1 x) = setBins3 x
  setBinsLength (ETH1 x) = setBinsLength x
  setBuffer (ETH1 x) = setBuffer x
  setCellContent (ETH1 x) = setCellContent x
  setContent (ETH1 x) = setContent x
  setContour (ETH1 x) = setContour x
  setContourLevel (ETH1 x) = setContourLevel x
  setDirectory (ETH1 x) = setDirectory x
  setEntries (ETH1 x) = setEntries x
  setError (ETH1 x) = setError x
  setLabelColorA (ETH1 x) = setLabelColorA x
  setLabelSizeA (ETH1 x) = setLabelSizeA x
  setLabelFontA (ETH1 x) = setLabelFontA x
  setLabelOffsetA (ETH1 x) = setLabelOffsetA x
  setMaximum (ETH1 x) = setMaximum x
  setMinimum (ETH1 x) = setMinimum x
  setNormFactor (ETH1 x) = setNormFactor x
  setStats (ETH1 x) = setStats x
  setOption (ETH1 x) = setOption x
  setXTitle (ETH1 x) = setXTitle x
  setYTitle (ETH1 x) = setYTitle x
  setZTitle (ETH1 x) = setZTitle x
  showBackground (ETH1 x) = showBackground x
  showPeaks (ETH1 x) = showPeaks x
  smooth (ETH1 x) = smooth x
  sumw2 (ETH1 x) = sumw2 x

instance ITNamed (Exist TH1) where
  setName (ETH1 x) = setName x
  setNameTitle (ETH1 x) = setNameTitle x
  setTitle (ETH1 x) = setTitle x

instance ITAttLine (Exist TH1) where
  setLineColor (ETH1 x) = setLineColor x

instance ITAttFill (Exist TH1) where
  setFillColor (ETH1 x) = setFillColor x
  setFillStyle (ETH1 x) = setFillStyle x

instance ITAttMarker (Exist TH1) where


instance ITObject (Exist TH1) where
  getName (ETH1 x) = getName x
  draw (ETH1 x) = draw x
  findObject (ETH1 x) = findObject x
  saveAs (ETH1 x) = saveAs x
  write (ETH1 x) = write x
  isA (ETH1 x) = isA x
  printObj (ETH1 x) = printObj x

instance IDeletable (Exist TH1) where
  delete (ETH1 x) = delete x

instance ITH2 (Exist TH2) where
  fill2 (ETH2 x) = fill2 x
  fillRandom2 (ETH2 x) = fillRandom2 x
  findFirstBinAbove2 (ETH2 x) = findFirstBinAbove2 x
  findLastBinAbove2 (ETH2 x) = findLastBinAbove2 x
  fitSlicesX (ETH2 x) = fitSlicesX x
  fitSlicesY (ETH2 x) = fitSlicesY x
  getCorrelationFactor (ETH2 x) = getCorrelationFactor x
  getCovariance (ETH2 x) = getCovariance x
  integral2 (ETH2 x) = integral2 x
  rebinX (ETH2 x) = rebinX x
  rebinY (ETH2 x) = rebinY x
  rebin2D (ETH2 x) = rebin2D x
  setShowProjectionX (ETH2 x) = setShowProjectionX x
  setShowProjectionY (ETH2 x) = setShowProjectionY x

instance ITH1 (Exist TH2) where
  add (ETH2 x) = add x
  addBinContent (ETH2 x) = addBinContent x
  chi2Test (ETH2 x) = chi2Test x
  computeIntegral (ETH2 x) = computeIntegral x
  directoryAutoAdd (ETH2 x) = directoryAutoAdd x
  distancetoPrimitive (ETH2 x) = distancetoPrimitive x
  divide (ETH2 x) = divide x
  drawCopy (ETH2 x) a1 = return . ETH2 =<< drawCopy x a1
  drawNormalized (ETH2 x) = drawNormalized x
  drawPanel (ETH2 x) = drawPanel x
  bufferEmpty (ETH2 x) = bufferEmpty x
  eval (ETH2 x) = eval x
  executeEvent (ETH2 x) = executeEvent x
  fFT (ETH2 x) = fFT x
  fill1 (ETH2 x) = fill1 x
  fillN (ETH2 x) = fillN x
  fillRandom (ETH2 x) = fillRandom x
  findBin (ETH2 x) = findBin x
  findFixBin (ETH2 x) = findFixBin x
  findFirstBinAbove (ETH2 x) = findFirstBinAbove x
  findLastBinAbove (ETH2 x) = findLastBinAbove x
  fitPanel (ETH2 x) = fitPanel x
  getNdivisionA (ETH2 x) = getNdivisionA x
  getAxisColorA (ETH2 x) = getAxisColorA x
  getLabelColorA (ETH2 x) = getLabelColorA x
  getLabelFontA (ETH2 x) = getLabelFontA x
  getLabelOffsetA (ETH2 x) = getLabelOffsetA x
  getLabelSizeA (ETH2 x) = getLabelSizeA x
  getTitleFontA (ETH2 x) = getTitleFontA x
  getTitleOffsetA (ETH2 x) = getTitleOffsetA x
  getTitleSizeA (ETH2 x) = getTitleSizeA x
  getTickLengthA (ETH2 x) = getTickLengthA x
  getBarOffset (ETH2 x) = getBarOffset x
  getBarWidth (ETH2 x) = getBarWidth x
  getContour (ETH2 x) = getContour x
  getContourLevel (ETH2 x) = getContourLevel x
  getContourLevelPad (ETH2 x) = getContourLevelPad x
  getBin (ETH2 x) = getBin x
  getBinCenter (ETH2 x) = getBinCenter x
  getBinContent1 (ETH2 x) = getBinContent1 x
  getBinContent2 (ETH2 x) = getBinContent2 x
  getBinContent3 (ETH2 x) = getBinContent3 x
  getBinError1 (ETH2 x) = getBinError1 x
  getBinError2 (ETH2 x) = getBinError2 x
  getBinError3 (ETH2 x) = getBinError3 x
  getBinLowEdge (ETH2 x) = getBinLowEdge x
  getBinWidth (ETH2 x) = getBinWidth x
  getCellContent (ETH2 x) = getCellContent x
  getCellError (ETH2 x) = getCellError x
  getEntries (ETH2 x) = getEntries x
  getEffectiveEntries (ETH2 x) = getEffectiveEntries x
  getFunction (ETH2 x) = getFunction x
  getDimension (ETH2 x) = getDimension x
  getKurtosis (ETH2 x) = getKurtosis x
  getLowEdge (ETH2 x) = getLowEdge x
  getMaximum (ETH2 x) = getMaximum x
  getMaximumBin (ETH2 x) = getMaximumBin x
  getMaximumStored (ETH2 x) = getMaximumStored x
  getMinimum (ETH2 x) = getMinimum x
  getMinimumBin (ETH2 x) = getMinimumBin x
  getMinimumStored (ETH2 x) = getMinimumStored x
  getMean (ETH2 x) = getMean x
  getMeanError (ETH2 x) = getMeanError x
  getNbinsX (ETH2 x) = getNbinsX x
  getNbinsY (ETH2 x) = getNbinsY x
  getNbinsZ (ETH2 x) = getNbinsZ x
  getQuantiles (ETH2 x) = getQuantiles x
  getRandom (ETH2 x) = getRandom x
  getStats (ETH2 x) = getStats x
  getSumOfWeights (ETH2 x) = getSumOfWeights x
  getSumw2 (ETH2 x) = getSumw2 x
  getSumw2N (ETH2 x) = getSumw2N x
  getRMS (ETH2 x) = getRMS x
  getRMSError (ETH2 x) = getRMSError x
  getSkewness (ETH2 x) = getSkewness x
  integral1 (ETH2 x) = integral1 x
  interpolate1 (ETH2 x) = interpolate1 x
  interpolate2 (ETH2 x) = interpolate2 x
  interpolate3 (ETH2 x) = interpolate3 x
  kolmogorovTest (ETH2 x) = kolmogorovTest x
  labelsDeflate (ETH2 x) = labelsDeflate x
  labelsInflate (ETH2 x) = labelsInflate x
  labelsOption (ETH2 x) = labelsOption x
  multiflyF (ETH2 x) = multiflyF x
  multiply (ETH2 x) = multiply x
  paint (ETH2 x) = paint x
  putStats (ETH2 x) = putStats x
  rebin (ETH2 x) = rebin x
  rebinAxis (ETH2 x) = rebinAxis x
  rebuild (ETH2 x) = rebuild x
  recursiveRemove (ETH2 x) = recursiveRemove x
  reset (ETH2 x) = reset x
  resetStats (ETH2 x) = resetStats x
  scale (ETH2 x) = scale x
  setAxisColorA (ETH2 x) = setAxisColorA x
  setAxisRange (ETH2 x) = setAxisRange x
  setBarOffset (ETH2 x) = setBarOffset x
  setBarWidth (ETH2 x) = setBarWidth x
  setBinContent1 (ETH2 x) = setBinContent1 x
  setBinContent2 (ETH2 x) = setBinContent2 x
  setBinContent3 (ETH2 x) = setBinContent3 x
  setBinError1 (ETH2 x) = setBinError1 x
  setBinError2 (ETH2 x) = setBinError2 x
  setBinError3 (ETH2 x) = setBinError3 x
  setBins1 (ETH2 x) = setBins1 x
  setBins2 (ETH2 x) = setBins2 x
  setBins3 (ETH2 x) = setBins3 x
  setBinsLength (ETH2 x) = setBinsLength x
  setBuffer (ETH2 x) = setBuffer x
  setCellContent (ETH2 x) = setCellContent x
  setContent (ETH2 x) = setContent x
  setContour (ETH2 x) = setContour x
  setContourLevel (ETH2 x) = setContourLevel x
  setDirectory (ETH2 x) = setDirectory x
  setEntries (ETH2 x) = setEntries x
  setError (ETH2 x) = setError x
  setLabelColorA (ETH2 x) = setLabelColorA x
  setLabelSizeA (ETH2 x) = setLabelSizeA x
  setLabelFontA (ETH2 x) = setLabelFontA x
  setLabelOffsetA (ETH2 x) = setLabelOffsetA x
  setMaximum (ETH2 x) = setMaximum x
  setMinimum (ETH2 x) = setMinimum x
  setNormFactor (ETH2 x) = setNormFactor x
  setStats (ETH2 x) = setStats x
  setOption (ETH2 x) = setOption x
  setXTitle (ETH2 x) = setXTitle x
  setYTitle (ETH2 x) = setYTitle x
  setZTitle (ETH2 x) = setZTitle x
  showBackground (ETH2 x) = showBackground x
  showPeaks (ETH2 x) = showPeaks x
  smooth (ETH2 x) = smooth x
  sumw2 (ETH2 x) = sumw2 x

instance ITNamed (Exist TH2) where
  setName (ETH2 x) = setName x
  setNameTitle (ETH2 x) = setNameTitle x
  setTitle (ETH2 x) = setTitle x

instance ITAttLine (Exist TH2) where
  setLineColor (ETH2 x) = setLineColor x

instance ITAttFill (Exist TH2) where
  setFillColor (ETH2 x) = setFillColor x
  setFillStyle (ETH2 x) = setFillStyle x

instance ITAttMarker (Exist TH2) where


instance ITObject (Exist TH2) where
  getName (ETH2 x) = getName x
  draw (ETH2 x) = draw x
  findObject (ETH2 x) = findObject x
  saveAs (ETH2 x) = saveAs x
  write (ETH2 x) = write x
  isA (ETH2 x) = isA x
  printObj (ETH2 x) = printObj x

instance IDeletable (Exist TH2) where
  delete (ETH2 x) = delete x

instance ITH3 (Exist TH3) where


instance ITH1 (Exist TH3) where
  add (ETH3 x) = add x
  addBinContent (ETH3 x) = addBinContent x
  chi2Test (ETH3 x) = chi2Test x
  computeIntegral (ETH3 x) = computeIntegral x
  directoryAutoAdd (ETH3 x) = directoryAutoAdd x
  distancetoPrimitive (ETH3 x) = distancetoPrimitive x
  divide (ETH3 x) = divide x
  drawCopy (ETH3 x) a1 = return . ETH3 =<< drawCopy x a1
  drawNormalized (ETH3 x) = drawNormalized x
  drawPanel (ETH3 x) = drawPanel x
  bufferEmpty (ETH3 x) = bufferEmpty x
  eval (ETH3 x) = eval x
  executeEvent (ETH3 x) = executeEvent x
  fFT (ETH3 x) = fFT x
  fill1 (ETH3 x) = fill1 x
  fillN (ETH3 x) = fillN x
  fillRandom (ETH3 x) = fillRandom x
  findBin (ETH3 x) = findBin x
  findFixBin (ETH3 x) = findFixBin x
  findFirstBinAbove (ETH3 x) = findFirstBinAbove x
  findLastBinAbove (ETH3 x) = findLastBinAbove x
  fitPanel (ETH3 x) = fitPanel x
  getNdivisionA (ETH3 x) = getNdivisionA x
  getAxisColorA (ETH3 x) = getAxisColorA x
  getLabelColorA (ETH3 x) = getLabelColorA x
  getLabelFontA (ETH3 x) = getLabelFontA x
  getLabelOffsetA (ETH3 x) = getLabelOffsetA x
  getLabelSizeA (ETH3 x) = getLabelSizeA x
  getTitleFontA (ETH3 x) = getTitleFontA x
  getTitleOffsetA (ETH3 x) = getTitleOffsetA x
  getTitleSizeA (ETH3 x) = getTitleSizeA x
  getTickLengthA (ETH3 x) = getTickLengthA x
  getBarOffset (ETH3 x) = getBarOffset x
  getBarWidth (ETH3 x) = getBarWidth x
  getContour (ETH3 x) = getContour x
  getContourLevel (ETH3 x) = getContourLevel x
  getContourLevelPad (ETH3 x) = getContourLevelPad x
  getBin (ETH3 x) = getBin x
  getBinCenter (ETH3 x) = getBinCenter x
  getBinContent1 (ETH3 x) = getBinContent1 x
  getBinContent2 (ETH3 x) = getBinContent2 x
  getBinContent3 (ETH3 x) = getBinContent3 x
  getBinError1 (ETH3 x) = getBinError1 x
  getBinError2 (ETH3 x) = getBinError2 x
  getBinError3 (ETH3 x) = getBinError3 x
  getBinLowEdge (ETH3 x) = getBinLowEdge x
  getBinWidth (ETH3 x) = getBinWidth x
  getCellContent (ETH3 x) = getCellContent x
  getCellError (ETH3 x) = getCellError x
  getEntries (ETH3 x) = getEntries x
  getEffectiveEntries (ETH3 x) = getEffectiveEntries x
  getFunction (ETH3 x) = getFunction x
  getDimension (ETH3 x) = getDimension x
  getKurtosis (ETH3 x) = getKurtosis x
  getLowEdge (ETH3 x) = getLowEdge x
  getMaximum (ETH3 x) = getMaximum x
  getMaximumBin (ETH3 x) = getMaximumBin x
  getMaximumStored (ETH3 x) = getMaximumStored x
  getMinimum (ETH3 x) = getMinimum x
  getMinimumBin (ETH3 x) = getMinimumBin x
  getMinimumStored (ETH3 x) = getMinimumStored x
  getMean (ETH3 x) = getMean x
  getMeanError (ETH3 x) = getMeanError x
  getNbinsX (ETH3 x) = getNbinsX x
  getNbinsY (ETH3 x) = getNbinsY x
  getNbinsZ (ETH3 x) = getNbinsZ x
  getQuantiles (ETH3 x) = getQuantiles x
  getRandom (ETH3 x) = getRandom x
  getStats (ETH3 x) = getStats x
  getSumOfWeights (ETH3 x) = getSumOfWeights x
  getSumw2 (ETH3 x) = getSumw2 x
  getSumw2N (ETH3 x) = getSumw2N x
  getRMS (ETH3 x) = getRMS x
  getRMSError (ETH3 x) = getRMSError x
  getSkewness (ETH3 x) = getSkewness x
  integral1 (ETH3 x) = integral1 x
  interpolate1 (ETH3 x) = interpolate1 x
  interpolate2 (ETH3 x) = interpolate2 x
  interpolate3 (ETH3 x) = interpolate3 x
  kolmogorovTest (ETH3 x) = kolmogorovTest x
  labelsDeflate (ETH3 x) = labelsDeflate x
  labelsInflate (ETH3 x) = labelsInflate x
  labelsOption (ETH3 x) = labelsOption x
  multiflyF (ETH3 x) = multiflyF x
  multiply (ETH3 x) = multiply x
  paint (ETH3 x) = paint x
  putStats (ETH3 x) = putStats x
  rebin (ETH3 x) = rebin x
  rebinAxis (ETH3 x) = rebinAxis x
  rebuild (ETH3 x) = rebuild x
  recursiveRemove (ETH3 x) = recursiveRemove x
  reset (ETH3 x) = reset x
  resetStats (ETH3 x) = resetStats x
  scale (ETH3 x) = scale x
  setAxisColorA (ETH3 x) = setAxisColorA x
  setAxisRange (ETH3 x) = setAxisRange x
  setBarOffset (ETH3 x) = setBarOffset x
  setBarWidth (ETH3 x) = setBarWidth x
  setBinContent1 (ETH3 x) = setBinContent1 x
  setBinContent2 (ETH3 x) = setBinContent2 x
  setBinContent3 (ETH3 x) = setBinContent3 x
  setBinError1 (ETH3 x) = setBinError1 x
  setBinError2 (ETH3 x) = setBinError2 x
  setBinError3 (ETH3 x) = setBinError3 x
  setBins1 (ETH3 x) = setBins1 x
  setBins2 (ETH3 x) = setBins2 x
  setBins3 (ETH3 x) = setBins3 x
  setBinsLength (ETH3 x) = setBinsLength x
  setBuffer (ETH3 x) = setBuffer x
  setCellContent (ETH3 x) = setCellContent x
  setContent (ETH3 x) = setContent x
  setContour (ETH3 x) = setContour x
  setContourLevel (ETH3 x) = setContourLevel x
  setDirectory (ETH3 x) = setDirectory x
  setEntries (ETH3 x) = setEntries x
  setError (ETH3 x) = setError x
  setLabelColorA (ETH3 x) = setLabelColorA x
  setLabelSizeA (ETH3 x) = setLabelSizeA x
  setLabelFontA (ETH3 x) = setLabelFontA x
  setLabelOffsetA (ETH3 x) = setLabelOffsetA x
  setMaximum (ETH3 x) = setMaximum x
  setMinimum (ETH3 x) = setMinimum x
  setNormFactor (ETH3 x) = setNormFactor x
  setStats (ETH3 x) = setStats x
  setOption (ETH3 x) = setOption x
  setXTitle (ETH3 x) = setXTitle x
  setYTitle (ETH3 x) = setYTitle x
  setZTitle (ETH3 x) = setZTitle x
  showBackground (ETH3 x) = showBackground x
  showPeaks (ETH3 x) = showPeaks x
  smooth (ETH3 x) = smooth x
  sumw2 (ETH3 x) = sumw2 x

instance ITAtt3D (Exist TH3) where


instance ITNamed (Exist TH3) where
  setName (ETH3 x) = setName x
  setNameTitle (ETH3 x) = setNameTitle x
  setTitle (ETH3 x) = setTitle x

instance ITAttLine (Exist TH3) where
  setLineColor (ETH3 x) = setLineColor x

instance ITAttFill (Exist TH3) where
  setFillColor (ETH3 x) = setFillColor x
  setFillStyle (ETH3 x) = setFillStyle x

instance ITAttMarker (Exist TH3) where


instance ITObject (Exist TH3) where
  getName (ETH3 x) = getName x
  draw (ETH3 x) = draw x
  findObject (ETH3 x) = findObject x
  saveAs (ETH3 x) = saveAs x
  write (ETH3 x) = write x
  isA (ETH3 x) = isA x
  printObj (ETH3 x) = printObj x

instance IDeletable (Exist TH3) where
  delete (ETH3 x) = delete x

instance ITH1C (Exist TH1C) where


instance ITH1 (Exist TH1C) where
  add (ETH1C x) = add x
  addBinContent (ETH1C x) = addBinContent x
  chi2Test (ETH1C x) = chi2Test x
  computeIntegral (ETH1C x) = computeIntegral x
  directoryAutoAdd (ETH1C x) = directoryAutoAdd x
  distancetoPrimitive (ETH1C x) = distancetoPrimitive x
  divide (ETH1C x) = divide x
  drawCopy (ETH1C x) a1 = return . ETH1C =<< drawCopy x a1
  drawNormalized (ETH1C x) = drawNormalized x
  drawPanel (ETH1C x) = drawPanel x
  bufferEmpty (ETH1C x) = bufferEmpty x
  eval (ETH1C x) = eval x
  executeEvent (ETH1C x) = executeEvent x
  fFT (ETH1C x) = fFT x
  fill1 (ETH1C x) = fill1 x
  fillN (ETH1C x) = fillN x
  fillRandom (ETH1C x) = fillRandom x
  findBin (ETH1C x) = findBin x
  findFixBin (ETH1C x) = findFixBin x
  findFirstBinAbove (ETH1C x) = findFirstBinAbove x
  findLastBinAbove (ETH1C x) = findLastBinAbove x
  fitPanel (ETH1C x) = fitPanel x
  getNdivisionA (ETH1C x) = getNdivisionA x
  getAxisColorA (ETH1C x) = getAxisColorA x
  getLabelColorA (ETH1C x) = getLabelColorA x
  getLabelFontA (ETH1C x) = getLabelFontA x
  getLabelOffsetA (ETH1C x) = getLabelOffsetA x
  getLabelSizeA (ETH1C x) = getLabelSizeA x
  getTitleFontA (ETH1C x) = getTitleFontA x
  getTitleOffsetA (ETH1C x) = getTitleOffsetA x
  getTitleSizeA (ETH1C x) = getTitleSizeA x
  getTickLengthA (ETH1C x) = getTickLengthA x
  getBarOffset (ETH1C x) = getBarOffset x
  getBarWidth (ETH1C x) = getBarWidth x
  getContour (ETH1C x) = getContour x
  getContourLevel (ETH1C x) = getContourLevel x
  getContourLevelPad (ETH1C x) = getContourLevelPad x
  getBin (ETH1C x) = getBin x
  getBinCenter (ETH1C x) = getBinCenter x
  getBinContent1 (ETH1C x) = getBinContent1 x
  getBinContent2 (ETH1C x) = getBinContent2 x
  getBinContent3 (ETH1C x) = getBinContent3 x
  getBinError1 (ETH1C x) = getBinError1 x
  getBinError2 (ETH1C x) = getBinError2 x
  getBinError3 (ETH1C x) = getBinError3 x
  getBinLowEdge (ETH1C x) = getBinLowEdge x
  getBinWidth (ETH1C x) = getBinWidth x
  getCellContent (ETH1C x) = getCellContent x
  getCellError (ETH1C x) = getCellError x
  getEntries (ETH1C x) = getEntries x
  getEffectiveEntries (ETH1C x) = getEffectiveEntries x
  getFunction (ETH1C x) = getFunction x
  getDimension (ETH1C x) = getDimension x
  getKurtosis (ETH1C x) = getKurtosis x
  getLowEdge (ETH1C x) = getLowEdge x
  getMaximum (ETH1C x) = getMaximum x
  getMaximumBin (ETH1C x) = getMaximumBin x
  getMaximumStored (ETH1C x) = getMaximumStored x
  getMinimum (ETH1C x) = getMinimum x
  getMinimumBin (ETH1C x) = getMinimumBin x
  getMinimumStored (ETH1C x) = getMinimumStored x
  getMean (ETH1C x) = getMean x
  getMeanError (ETH1C x) = getMeanError x
  getNbinsX (ETH1C x) = getNbinsX x
  getNbinsY (ETH1C x) = getNbinsY x
  getNbinsZ (ETH1C x) = getNbinsZ x
  getQuantiles (ETH1C x) = getQuantiles x
  getRandom (ETH1C x) = getRandom x
  getStats (ETH1C x) = getStats x
  getSumOfWeights (ETH1C x) = getSumOfWeights x
  getSumw2 (ETH1C x) = getSumw2 x
  getSumw2N (ETH1C x) = getSumw2N x
  getRMS (ETH1C x) = getRMS x
  getRMSError (ETH1C x) = getRMSError x
  getSkewness (ETH1C x) = getSkewness x
  integral1 (ETH1C x) = integral1 x
  interpolate1 (ETH1C x) = interpolate1 x
  interpolate2 (ETH1C x) = interpolate2 x
  interpolate3 (ETH1C x) = interpolate3 x
  kolmogorovTest (ETH1C x) = kolmogorovTest x
  labelsDeflate (ETH1C x) = labelsDeflate x
  labelsInflate (ETH1C x) = labelsInflate x
  labelsOption (ETH1C x) = labelsOption x
  multiflyF (ETH1C x) = multiflyF x
  multiply (ETH1C x) = multiply x
  paint (ETH1C x) = paint x
  putStats (ETH1C x) = putStats x
  rebin (ETH1C x) = rebin x
  rebinAxis (ETH1C x) = rebinAxis x
  rebuild (ETH1C x) = rebuild x
  recursiveRemove (ETH1C x) = recursiveRemove x
  reset (ETH1C x) = reset x
  resetStats (ETH1C x) = resetStats x
  scale (ETH1C x) = scale x
  setAxisColorA (ETH1C x) = setAxisColorA x
  setAxisRange (ETH1C x) = setAxisRange x
  setBarOffset (ETH1C x) = setBarOffset x
  setBarWidth (ETH1C x) = setBarWidth x
  setBinContent1 (ETH1C x) = setBinContent1 x
  setBinContent2 (ETH1C x) = setBinContent2 x
  setBinContent3 (ETH1C x) = setBinContent3 x
  setBinError1 (ETH1C x) = setBinError1 x
  setBinError2 (ETH1C x) = setBinError2 x
  setBinError3 (ETH1C x) = setBinError3 x
  setBins1 (ETH1C x) = setBins1 x
  setBins2 (ETH1C x) = setBins2 x
  setBins3 (ETH1C x) = setBins3 x
  setBinsLength (ETH1C x) = setBinsLength x
  setBuffer (ETH1C x) = setBuffer x
  setCellContent (ETH1C x) = setCellContent x
  setContent (ETH1C x) = setContent x
  setContour (ETH1C x) = setContour x
  setContourLevel (ETH1C x) = setContourLevel x
  setDirectory (ETH1C x) = setDirectory x
  setEntries (ETH1C x) = setEntries x
  setError (ETH1C x) = setError x
  setLabelColorA (ETH1C x) = setLabelColorA x
  setLabelSizeA (ETH1C x) = setLabelSizeA x
  setLabelFontA (ETH1C x) = setLabelFontA x
  setLabelOffsetA (ETH1C x) = setLabelOffsetA x
  setMaximum (ETH1C x) = setMaximum x
  setMinimum (ETH1C x) = setMinimum x
  setNormFactor (ETH1C x) = setNormFactor x
  setStats (ETH1C x) = setStats x
  setOption (ETH1C x) = setOption x
  setXTitle (ETH1C x) = setXTitle x
  setYTitle (ETH1C x) = setYTitle x
  setZTitle (ETH1C x) = setZTitle x
  showBackground (ETH1C x) = showBackground x
  showPeaks (ETH1C x) = showPeaks x
  smooth (ETH1C x) = smooth x
  sumw2 (ETH1C x) = sumw2 x

instance ITArrayC (Exist TH1C) where


instance ITNamed (Exist TH1C) where
  setName (ETH1C x) = setName x
  setNameTitle (ETH1C x) = setNameTitle x
  setTitle (ETH1C x) = setTitle x

instance ITAttLine (Exist TH1C) where
  setLineColor (ETH1C x) = setLineColor x

instance ITAttFill (Exist TH1C) where
  setFillColor (ETH1C x) = setFillColor x
  setFillStyle (ETH1C x) = setFillStyle x

instance ITAttMarker (Exist TH1C) where


instance ITObject (Exist TH1C) where
  getName (ETH1C x) = getName x
  draw (ETH1C x) = draw x
  findObject (ETH1C x) = findObject x
  saveAs (ETH1C x) = saveAs x
  write (ETH1C x) = write x
  isA (ETH1C x) = isA x
  printObj (ETH1C x) = printObj x

instance IDeletable (Exist TH1C) where
  delete (ETH1C x) = delete x

instance ITArray (Exist TH1C) where


instance ITH1D (Exist TH1D) where


instance ITH1 (Exist TH1D) where
  add (ETH1D x) = add x
  addBinContent (ETH1D x) = addBinContent x
  chi2Test (ETH1D x) = chi2Test x
  computeIntegral (ETH1D x) = computeIntegral x
  directoryAutoAdd (ETH1D x) = directoryAutoAdd x
  distancetoPrimitive (ETH1D x) = distancetoPrimitive x
  divide (ETH1D x) = divide x
  drawCopy (ETH1D x) a1 = return . ETH1D =<< drawCopy x a1
  drawNormalized (ETH1D x) = drawNormalized x
  drawPanel (ETH1D x) = drawPanel x
  bufferEmpty (ETH1D x) = bufferEmpty x
  eval (ETH1D x) = eval x
  executeEvent (ETH1D x) = executeEvent x
  fFT (ETH1D x) = fFT x
  fill1 (ETH1D x) = fill1 x
  fillN (ETH1D x) = fillN x
  fillRandom (ETH1D x) = fillRandom x
  findBin (ETH1D x) = findBin x
  findFixBin (ETH1D x) = findFixBin x
  findFirstBinAbove (ETH1D x) = findFirstBinAbove x
  findLastBinAbove (ETH1D x) = findLastBinAbove x
  fitPanel (ETH1D x) = fitPanel x
  getNdivisionA (ETH1D x) = getNdivisionA x
  getAxisColorA (ETH1D x) = getAxisColorA x
  getLabelColorA (ETH1D x) = getLabelColorA x
  getLabelFontA (ETH1D x) = getLabelFontA x
  getLabelOffsetA (ETH1D x) = getLabelOffsetA x
  getLabelSizeA (ETH1D x) = getLabelSizeA x
  getTitleFontA (ETH1D x) = getTitleFontA x
  getTitleOffsetA (ETH1D x) = getTitleOffsetA x
  getTitleSizeA (ETH1D x) = getTitleSizeA x
  getTickLengthA (ETH1D x) = getTickLengthA x
  getBarOffset (ETH1D x) = getBarOffset x
  getBarWidth (ETH1D x) = getBarWidth x
  getContour (ETH1D x) = getContour x
  getContourLevel (ETH1D x) = getContourLevel x
  getContourLevelPad (ETH1D x) = getContourLevelPad x
  getBin (ETH1D x) = getBin x
  getBinCenter (ETH1D x) = getBinCenter x
  getBinContent1 (ETH1D x) = getBinContent1 x
  getBinContent2 (ETH1D x) = getBinContent2 x
  getBinContent3 (ETH1D x) = getBinContent3 x
  getBinError1 (ETH1D x) = getBinError1 x
  getBinError2 (ETH1D x) = getBinError2 x
  getBinError3 (ETH1D x) = getBinError3 x
  getBinLowEdge (ETH1D x) = getBinLowEdge x
  getBinWidth (ETH1D x) = getBinWidth x
  getCellContent (ETH1D x) = getCellContent x
  getCellError (ETH1D x) = getCellError x
  getEntries (ETH1D x) = getEntries x
  getEffectiveEntries (ETH1D x) = getEffectiveEntries x
  getFunction (ETH1D x) = getFunction x
  getDimension (ETH1D x) = getDimension x
  getKurtosis (ETH1D x) = getKurtosis x
  getLowEdge (ETH1D x) = getLowEdge x
  getMaximum (ETH1D x) = getMaximum x
  getMaximumBin (ETH1D x) = getMaximumBin x
  getMaximumStored (ETH1D x) = getMaximumStored x
  getMinimum (ETH1D x) = getMinimum x
  getMinimumBin (ETH1D x) = getMinimumBin x
  getMinimumStored (ETH1D x) = getMinimumStored x
  getMean (ETH1D x) = getMean x
  getMeanError (ETH1D x) = getMeanError x
  getNbinsX (ETH1D x) = getNbinsX x
  getNbinsY (ETH1D x) = getNbinsY x
  getNbinsZ (ETH1D x) = getNbinsZ x
  getQuantiles (ETH1D x) = getQuantiles x
  getRandom (ETH1D x) = getRandom x
  getStats (ETH1D x) = getStats x
  getSumOfWeights (ETH1D x) = getSumOfWeights x
  getSumw2 (ETH1D x) = getSumw2 x
  getSumw2N (ETH1D x) = getSumw2N x
  getRMS (ETH1D x) = getRMS x
  getRMSError (ETH1D x) = getRMSError x
  getSkewness (ETH1D x) = getSkewness x
  integral1 (ETH1D x) = integral1 x
  interpolate1 (ETH1D x) = interpolate1 x
  interpolate2 (ETH1D x) = interpolate2 x
  interpolate3 (ETH1D x) = interpolate3 x
  kolmogorovTest (ETH1D x) = kolmogorovTest x
  labelsDeflate (ETH1D x) = labelsDeflate x
  labelsInflate (ETH1D x) = labelsInflate x
  labelsOption (ETH1D x) = labelsOption x
  multiflyF (ETH1D x) = multiflyF x
  multiply (ETH1D x) = multiply x
  paint (ETH1D x) = paint x
  putStats (ETH1D x) = putStats x
  rebin (ETH1D x) = rebin x
  rebinAxis (ETH1D x) = rebinAxis x
  rebuild (ETH1D x) = rebuild x
  recursiveRemove (ETH1D x) = recursiveRemove x
  reset (ETH1D x) = reset x
  resetStats (ETH1D x) = resetStats x
  scale (ETH1D x) = scale x
  setAxisColorA (ETH1D x) = setAxisColorA x
  setAxisRange (ETH1D x) = setAxisRange x
  setBarOffset (ETH1D x) = setBarOffset x
  setBarWidth (ETH1D x) = setBarWidth x
  setBinContent1 (ETH1D x) = setBinContent1 x
  setBinContent2 (ETH1D x) = setBinContent2 x
  setBinContent3 (ETH1D x) = setBinContent3 x
  setBinError1 (ETH1D x) = setBinError1 x
  setBinError2 (ETH1D x) = setBinError2 x
  setBinError3 (ETH1D x) = setBinError3 x
  setBins1 (ETH1D x) = setBins1 x
  setBins2 (ETH1D x) = setBins2 x
  setBins3 (ETH1D x) = setBins3 x
  setBinsLength (ETH1D x) = setBinsLength x
  setBuffer (ETH1D x) = setBuffer x
  setCellContent (ETH1D x) = setCellContent x
  setContent (ETH1D x) = setContent x
  setContour (ETH1D x) = setContour x
  setContourLevel (ETH1D x) = setContourLevel x
  setDirectory (ETH1D x) = setDirectory x
  setEntries (ETH1D x) = setEntries x
  setError (ETH1D x) = setError x
  setLabelColorA (ETH1D x) = setLabelColorA x
  setLabelSizeA (ETH1D x) = setLabelSizeA x
  setLabelFontA (ETH1D x) = setLabelFontA x
  setLabelOffsetA (ETH1D x) = setLabelOffsetA x
  setMaximum (ETH1D x) = setMaximum x
  setMinimum (ETH1D x) = setMinimum x
  setNormFactor (ETH1D x) = setNormFactor x
  setStats (ETH1D x) = setStats x
  setOption (ETH1D x) = setOption x
  setXTitle (ETH1D x) = setXTitle x
  setYTitle (ETH1D x) = setYTitle x
  setZTitle (ETH1D x) = setZTitle x
  showBackground (ETH1D x) = showBackground x
  showPeaks (ETH1D x) = showPeaks x
  smooth (ETH1D x) = smooth x
  sumw2 (ETH1D x) = sumw2 x

instance ITArrayD (Exist TH1D) where


instance ITNamed (Exist TH1D) where
  setName (ETH1D x) = setName x
  setNameTitle (ETH1D x) = setNameTitle x
  setTitle (ETH1D x) = setTitle x

instance ITAttLine (Exist TH1D) where
  setLineColor (ETH1D x) = setLineColor x

instance ITAttFill (Exist TH1D) where
  setFillColor (ETH1D x) = setFillColor x
  setFillStyle (ETH1D x) = setFillStyle x

instance ITAttMarker (Exist TH1D) where


instance ITObject (Exist TH1D) where
  getName (ETH1D x) = getName x
  draw (ETH1D x) = draw x
  findObject (ETH1D x) = findObject x
  saveAs (ETH1D x) = saveAs x
  write (ETH1D x) = write x
  isA (ETH1D x) = isA x
  printObj (ETH1D x) = printObj x

instance IDeletable (Exist TH1D) where
  delete (ETH1D x) = delete x

instance ITArray (Exist TH1D) where


instance ITH1F (Exist TH1F) where


instance ITH1 (Exist TH1F) where
  add (ETH1F x) = add x
  addBinContent (ETH1F x) = addBinContent x
  chi2Test (ETH1F x) = chi2Test x
  computeIntegral (ETH1F x) = computeIntegral x
  directoryAutoAdd (ETH1F x) = directoryAutoAdd x
  distancetoPrimitive (ETH1F x) = distancetoPrimitive x
  divide (ETH1F x) = divide x
  drawCopy (ETH1F x) a1 = return . ETH1F =<< drawCopy x a1
  drawNormalized (ETH1F x) = drawNormalized x
  drawPanel (ETH1F x) = drawPanel x
  bufferEmpty (ETH1F x) = bufferEmpty x
  eval (ETH1F x) = eval x
  executeEvent (ETH1F x) = executeEvent x
  fFT (ETH1F x) = fFT x
  fill1 (ETH1F x) = fill1 x
  fillN (ETH1F x) = fillN x
  fillRandom (ETH1F x) = fillRandom x
  findBin (ETH1F x) = findBin x
  findFixBin (ETH1F x) = findFixBin x
  findFirstBinAbove (ETH1F x) = findFirstBinAbove x
  findLastBinAbove (ETH1F x) = findLastBinAbove x
  fitPanel (ETH1F x) = fitPanel x
  getNdivisionA (ETH1F x) = getNdivisionA x
  getAxisColorA (ETH1F x) = getAxisColorA x
  getLabelColorA (ETH1F x) = getLabelColorA x
  getLabelFontA (ETH1F x) = getLabelFontA x
  getLabelOffsetA (ETH1F x) = getLabelOffsetA x
  getLabelSizeA (ETH1F x) = getLabelSizeA x
  getTitleFontA (ETH1F x) = getTitleFontA x
  getTitleOffsetA (ETH1F x) = getTitleOffsetA x
  getTitleSizeA (ETH1F x) = getTitleSizeA x
  getTickLengthA (ETH1F x) = getTickLengthA x
  getBarOffset (ETH1F x) = getBarOffset x
  getBarWidth (ETH1F x) = getBarWidth x
  getContour (ETH1F x) = getContour x
  getContourLevel (ETH1F x) = getContourLevel x
  getContourLevelPad (ETH1F x) = getContourLevelPad x
  getBin (ETH1F x) = getBin x
  getBinCenter (ETH1F x) = getBinCenter x
  getBinContent1 (ETH1F x) = getBinContent1 x
  getBinContent2 (ETH1F x) = getBinContent2 x
  getBinContent3 (ETH1F x) = getBinContent3 x
  getBinError1 (ETH1F x) = getBinError1 x
  getBinError2 (ETH1F x) = getBinError2 x
  getBinError3 (ETH1F x) = getBinError3 x
  getBinLowEdge (ETH1F x) = getBinLowEdge x
  getBinWidth (ETH1F x) = getBinWidth x
  getCellContent (ETH1F x) = getCellContent x
  getCellError (ETH1F x) = getCellError x
  getEntries (ETH1F x) = getEntries x
  getEffectiveEntries (ETH1F x) = getEffectiveEntries x
  getFunction (ETH1F x) = getFunction x
  getDimension (ETH1F x) = getDimension x
  getKurtosis (ETH1F x) = getKurtosis x
  getLowEdge (ETH1F x) = getLowEdge x
  getMaximum (ETH1F x) = getMaximum x
  getMaximumBin (ETH1F x) = getMaximumBin x
  getMaximumStored (ETH1F x) = getMaximumStored x
  getMinimum (ETH1F x) = getMinimum x
  getMinimumBin (ETH1F x) = getMinimumBin x
  getMinimumStored (ETH1F x) = getMinimumStored x
  getMean (ETH1F x) = getMean x
  getMeanError (ETH1F x) = getMeanError x
  getNbinsX (ETH1F x) = getNbinsX x
  getNbinsY (ETH1F x) = getNbinsY x
  getNbinsZ (ETH1F x) = getNbinsZ x
  getQuantiles (ETH1F x) = getQuantiles x
  getRandom (ETH1F x) = getRandom x
  getStats (ETH1F x) = getStats x
  getSumOfWeights (ETH1F x) = getSumOfWeights x
  getSumw2 (ETH1F x) = getSumw2 x
  getSumw2N (ETH1F x) = getSumw2N x
  getRMS (ETH1F x) = getRMS x
  getRMSError (ETH1F x) = getRMSError x
  getSkewness (ETH1F x) = getSkewness x
  integral1 (ETH1F x) = integral1 x
  interpolate1 (ETH1F x) = interpolate1 x
  interpolate2 (ETH1F x) = interpolate2 x
  interpolate3 (ETH1F x) = interpolate3 x
  kolmogorovTest (ETH1F x) = kolmogorovTest x
  labelsDeflate (ETH1F x) = labelsDeflate x
  labelsInflate (ETH1F x) = labelsInflate x
  labelsOption (ETH1F x) = labelsOption x
  multiflyF (ETH1F x) = multiflyF x
  multiply (ETH1F x) = multiply x
  paint (ETH1F x) = paint x
  putStats (ETH1F x) = putStats x
  rebin (ETH1F x) = rebin x
  rebinAxis (ETH1F x) = rebinAxis x
  rebuild (ETH1F x) = rebuild x
  recursiveRemove (ETH1F x) = recursiveRemove x
  reset (ETH1F x) = reset x
  resetStats (ETH1F x) = resetStats x
  scale (ETH1F x) = scale x
  setAxisColorA (ETH1F x) = setAxisColorA x
  setAxisRange (ETH1F x) = setAxisRange x
  setBarOffset (ETH1F x) = setBarOffset x
  setBarWidth (ETH1F x) = setBarWidth x
  setBinContent1 (ETH1F x) = setBinContent1 x
  setBinContent2 (ETH1F x) = setBinContent2 x
  setBinContent3 (ETH1F x) = setBinContent3 x
  setBinError1 (ETH1F x) = setBinError1 x
  setBinError2 (ETH1F x) = setBinError2 x
  setBinError3 (ETH1F x) = setBinError3 x
  setBins1 (ETH1F x) = setBins1 x
  setBins2 (ETH1F x) = setBins2 x
  setBins3 (ETH1F x) = setBins3 x
  setBinsLength (ETH1F x) = setBinsLength x
  setBuffer (ETH1F x) = setBuffer x
  setCellContent (ETH1F x) = setCellContent x
  setContent (ETH1F x) = setContent x
  setContour (ETH1F x) = setContour x
  setContourLevel (ETH1F x) = setContourLevel x
  setDirectory (ETH1F x) = setDirectory x
  setEntries (ETH1F x) = setEntries x
  setError (ETH1F x) = setError x
  setLabelColorA (ETH1F x) = setLabelColorA x
  setLabelSizeA (ETH1F x) = setLabelSizeA x
  setLabelFontA (ETH1F x) = setLabelFontA x
  setLabelOffsetA (ETH1F x) = setLabelOffsetA x
  setMaximum (ETH1F x) = setMaximum x
  setMinimum (ETH1F x) = setMinimum x
  setNormFactor (ETH1F x) = setNormFactor x
  setStats (ETH1F x) = setStats x
  setOption (ETH1F x) = setOption x
  setXTitle (ETH1F x) = setXTitle x
  setYTitle (ETH1F x) = setYTitle x
  setZTitle (ETH1F x) = setZTitle x
  showBackground (ETH1F x) = showBackground x
  showPeaks (ETH1F x) = showPeaks x
  smooth (ETH1F x) = smooth x
  sumw2 (ETH1F x) = sumw2 x

instance ITArrayF (Exist TH1F) where


instance ITNamed (Exist TH1F) where
  setName (ETH1F x) = setName x
  setNameTitle (ETH1F x) = setNameTitle x
  setTitle (ETH1F x) = setTitle x

instance ITAttLine (Exist TH1F) where
  setLineColor (ETH1F x) = setLineColor x

instance ITAttFill (Exist TH1F) where
  setFillColor (ETH1F x) = setFillColor x
  setFillStyle (ETH1F x) = setFillStyle x

instance ITAttMarker (Exist TH1F) where


instance ITObject (Exist TH1F) where
  getName (ETH1F x) = getName x
  draw (ETH1F x) = draw x
  findObject (ETH1F x) = findObject x
  saveAs (ETH1F x) = saveAs x
  write (ETH1F x) = write x
  isA (ETH1F x) = isA x
  printObj (ETH1F x) = printObj x

instance IDeletable (Exist TH1F) where
  delete (ETH1F x) = delete x

instance ITArray (Exist TH1F) where


instance ITH1I (Exist TH1I) where


instance ITH1 (Exist TH1I) where
  add (ETH1I x) = add x
  addBinContent (ETH1I x) = addBinContent x
  chi2Test (ETH1I x) = chi2Test x
  computeIntegral (ETH1I x) = computeIntegral x
  directoryAutoAdd (ETH1I x) = directoryAutoAdd x
  distancetoPrimitive (ETH1I x) = distancetoPrimitive x
  divide (ETH1I x) = divide x
  drawCopy (ETH1I x) a1 = return . ETH1I =<< drawCopy x a1
  drawNormalized (ETH1I x) = drawNormalized x
  drawPanel (ETH1I x) = drawPanel x
  bufferEmpty (ETH1I x) = bufferEmpty x
  eval (ETH1I x) = eval x
  executeEvent (ETH1I x) = executeEvent x
  fFT (ETH1I x) = fFT x
  fill1 (ETH1I x) = fill1 x
  fillN (ETH1I x) = fillN x
  fillRandom (ETH1I x) = fillRandom x
  findBin (ETH1I x) = findBin x
  findFixBin (ETH1I x) = findFixBin x
  findFirstBinAbove (ETH1I x) = findFirstBinAbove x
  findLastBinAbove (ETH1I x) = findLastBinAbove x
  fitPanel (ETH1I x) = fitPanel x
  getNdivisionA (ETH1I x) = getNdivisionA x
  getAxisColorA (ETH1I x) = getAxisColorA x
  getLabelColorA (ETH1I x) = getLabelColorA x
  getLabelFontA (ETH1I x) = getLabelFontA x
  getLabelOffsetA (ETH1I x) = getLabelOffsetA x
  getLabelSizeA (ETH1I x) = getLabelSizeA x
  getTitleFontA (ETH1I x) = getTitleFontA x
  getTitleOffsetA (ETH1I x) = getTitleOffsetA x
  getTitleSizeA (ETH1I x) = getTitleSizeA x
  getTickLengthA (ETH1I x) = getTickLengthA x
  getBarOffset (ETH1I x) = getBarOffset x
  getBarWidth (ETH1I x) = getBarWidth x
  getContour (ETH1I x) = getContour x
  getContourLevel (ETH1I x) = getContourLevel x
  getContourLevelPad (ETH1I x) = getContourLevelPad x
  getBin (ETH1I x) = getBin x
  getBinCenter (ETH1I x) = getBinCenter x
  getBinContent1 (ETH1I x) = getBinContent1 x
  getBinContent2 (ETH1I x) = getBinContent2 x
  getBinContent3 (ETH1I x) = getBinContent3 x
  getBinError1 (ETH1I x) = getBinError1 x
  getBinError2 (ETH1I x) = getBinError2 x
  getBinError3 (ETH1I x) = getBinError3 x
  getBinLowEdge (ETH1I x) = getBinLowEdge x
  getBinWidth (ETH1I x) = getBinWidth x
  getCellContent (ETH1I x) = getCellContent x
  getCellError (ETH1I x) = getCellError x
  getEntries (ETH1I x) = getEntries x
  getEffectiveEntries (ETH1I x) = getEffectiveEntries x
  getFunction (ETH1I x) = getFunction x
  getDimension (ETH1I x) = getDimension x
  getKurtosis (ETH1I x) = getKurtosis x
  getLowEdge (ETH1I x) = getLowEdge x
  getMaximum (ETH1I x) = getMaximum x
  getMaximumBin (ETH1I x) = getMaximumBin x
  getMaximumStored (ETH1I x) = getMaximumStored x
  getMinimum (ETH1I x) = getMinimum x
  getMinimumBin (ETH1I x) = getMinimumBin x
  getMinimumStored (ETH1I x) = getMinimumStored x
  getMean (ETH1I x) = getMean x
  getMeanError (ETH1I x) = getMeanError x
  getNbinsX (ETH1I x) = getNbinsX x
  getNbinsY (ETH1I x) = getNbinsY x
  getNbinsZ (ETH1I x) = getNbinsZ x
  getQuantiles (ETH1I x) = getQuantiles x
  getRandom (ETH1I x) = getRandom x
  getStats (ETH1I x) = getStats x
  getSumOfWeights (ETH1I x) = getSumOfWeights x
  getSumw2 (ETH1I x) = getSumw2 x
  getSumw2N (ETH1I x) = getSumw2N x
  getRMS (ETH1I x) = getRMS x
  getRMSError (ETH1I x) = getRMSError x
  getSkewness (ETH1I x) = getSkewness x
  integral1 (ETH1I x) = integral1 x
  interpolate1 (ETH1I x) = interpolate1 x
  interpolate2 (ETH1I x) = interpolate2 x
  interpolate3 (ETH1I x) = interpolate3 x
  kolmogorovTest (ETH1I x) = kolmogorovTest x
  labelsDeflate (ETH1I x) = labelsDeflate x
  labelsInflate (ETH1I x) = labelsInflate x
  labelsOption (ETH1I x) = labelsOption x
  multiflyF (ETH1I x) = multiflyF x
  multiply (ETH1I x) = multiply x
  paint (ETH1I x) = paint x
  putStats (ETH1I x) = putStats x
  rebin (ETH1I x) = rebin x
  rebinAxis (ETH1I x) = rebinAxis x
  rebuild (ETH1I x) = rebuild x
  recursiveRemove (ETH1I x) = recursiveRemove x
  reset (ETH1I x) = reset x
  resetStats (ETH1I x) = resetStats x
  scale (ETH1I x) = scale x
  setAxisColorA (ETH1I x) = setAxisColorA x
  setAxisRange (ETH1I x) = setAxisRange x
  setBarOffset (ETH1I x) = setBarOffset x
  setBarWidth (ETH1I x) = setBarWidth x
  setBinContent1 (ETH1I x) = setBinContent1 x
  setBinContent2 (ETH1I x) = setBinContent2 x
  setBinContent3 (ETH1I x) = setBinContent3 x
  setBinError1 (ETH1I x) = setBinError1 x
  setBinError2 (ETH1I x) = setBinError2 x
  setBinError3 (ETH1I x) = setBinError3 x
  setBins1 (ETH1I x) = setBins1 x
  setBins2 (ETH1I x) = setBins2 x
  setBins3 (ETH1I x) = setBins3 x
  setBinsLength (ETH1I x) = setBinsLength x
  setBuffer (ETH1I x) = setBuffer x
  setCellContent (ETH1I x) = setCellContent x
  setContent (ETH1I x) = setContent x
  setContour (ETH1I x) = setContour x
  setContourLevel (ETH1I x) = setContourLevel x
  setDirectory (ETH1I x) = setDirectory x
  setEntries (ETH1I x) = setEntries x
  setError (ETH1I x) = setError x
  setLabelColorA (ETH1I x) = setLabelColorA x
  setLabelSizeA (ETH1I x) = setLabelSizeA x
  setLabelFontA (ETH1I x) = setLabelFontA x
  setLabelOffsetA (ETH1I x) = setLabelOffsetA x
  setMaximum (ETH1I x) = setMaximum x
  setMinimum (ETH1I x) = setMinimum x
  setNormFactor (ETH1I x) = setNormFactor x
  setStats (ETH1I x) = setStats x
  setOption (ETH1I x) = setOption x
  setXTitle (ETH1I x) = setXTitle x
  setYTitle (ETH1I x) = setYTitle x
  setZTitle (ETH1I x) = setZTitle x
  showBackground (ETH1I x) = showBackground x
  showPeaks (ETH1I x) = showPeaks x
  smooth (ETH1I x) = smooth x
  sumw2 (ETH1I x) = sumw2 x

instance ITArrayI (Exist TH1I) where


instance ITNamed (Exist TH1I) where
  setName (ETH1I x) = setName x
  setNameTitle (ETH1I x) = setNameTitle x
  setTitle (ETH1I x) = setTitle x

instance ITAttLine (Exist TH1I) where
  setLineColor (ETH1I x) = setLineColor x

instance ITAttFill (Exist TH1I) where
  setFillColor (ETH1I x) = setFillColor x
  setFillStyle (ETH1I x) = setFillStyle x

instance ITAttMarker (Exist TH1I) where


instance ITObject (Exist TH1I) where