{-# 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
  draw (ETObject x) = draw x
  findObject (ETObject x) = findObject x
  getName (ETObject x) = getName x
  isA (ETObject x) = isA x
  isFolder (ETObject x) = isFolder x
  isEqual (ETObject x) = isEqual x
  isSortable (ETObject x) = isSortable x
  paint (ETObject x) = paint x
  printObj (ETObject x) = printObj x
  recursiveRemove (ETObject x) = recursiveRemove x
  saveAs (ETObject x) = saveAs x
  useCurrentStyle (ETObject x) = useCurrentStyle x
  write (ETObject x) = write 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
  draw (ETNamed x) = draw x
  findObject (ETNamed x) = findObject x
  getName (ETNamed x) = getName x
  isA (ETNamed x) = isA x
  isFolder (ETNamed x) = isFolder x
  isEqual (ETNamed x) = isEqual x
  isSortable (ETNamed x) = isSortable x
  paint (ETNamed x) = paint x
  printObj (ETNamed x) = printObj x
  recursiveRemove (ETNamed x) = recursiveRemove x
  saveAs (ETNamed x) = saveAs x
  useCurrentStyle (ETNamed x) = useCurrentStyle x
  write (ETNamed x) = write 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
  draw (ETClass x) = draw x
  findObject (ETClass x) = findObject x
  getName (ETClass x) = getName x
  isA (ETClass x) = isA x
  isFolder (ETClass x) = isFolder x
  isEqual (ETClass x) = isEqual x
  isSortable (ETClass x) = isSortable x
  paint (ETClass x) = paint x
  printObj (ETClass x) = printObj x
  recursiveRemove (ETClass x) = recursiveRemove x
  saveAs (ETClass x) = saveAs x
  useCurrentStyle (ETClass x) = useCurrentStyle x
  write (ETClass x) = write x

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

instance ITFormula (Exist TFormula) where
  compile (ETFormula x) = compile x
  clear (ETFormula x) = clear x
  definedValue (ETFormula x) = definedValue x
  eval (ETFormula x) = eval x
  evalParOld (ETFormula x) = evalParOld x
  evalPar (ETFormula x) = evalPar x
  getNdim (ETFormula x) = getNdim x
  getNpar (ETFormula x) = getNpar x
  getNumber (ETFormula x) = getNumber x
  getParNumber (ETFormula x) = getParNumber x
  isLinear (ETFormula x) = isLinear x
  isNormalized (ETFormula x) = isNormalized x
  setNumber (ETFormula x) = setNumber x
  setParameter (ETFormula x) = setParameter x
  setParameters (ETFormula x) = setParameters x
  setParName (ETFormula x) = setParName x
  setParNames (ETFormula x) = setParNames x
  update (ETFormula x) = update 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
  draw (ETFormula x) = draw x
  findObject (ETFormula x) = findObject x
  getName (ETFormula x) = getName x
  isA (ETFormula x) = isA x
  isFolder (ETFormula x) = isFolder x
  isEqual (ETFormula x) = isEqual x
  isSortable (ETFormula x) = isSortable x
  paint (ETFormula x) = paint x
  printObj (ETFormula x) = printObj x
  recursiveRemove (ETFormula x) = recursiveRemove x
  saveAs (ETFormula x) = saveAs x
  useCurrentStyle (ETFormula x) = useCurrentStyle x
  write (ETFormula x) = write 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
  getLineColor (ETAttLine x) = getLineColor x
  getLineStyle (ETAttLine x) = getLineStyle x
  getLineWidth (ETAttLine x) = getLineWidth x
  resetAttLine (ETAttLine x) = resetAttLine x
  setLineAttributes (ETAttLine x) = setLineAttributes x
  setLineColor (ETAttLine x) = setLineColor x
  setLineStyle (ETAttLine x) = setLineStyle x
  setLineWidth (ETAttLine x) = setLineWidth x

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

instance ITAttMarker (Exist TAttMarker) where
  getMarkerColor (ETAttMarker x) = getMarkerColor x
  getMarkerStyle (ETAttMarker x) = getMarkerStyle x
  getMarkerSize (ETAttMarker x) = getMarkerSize x
  resetAttMarker (ETAttMarker x) = resetAttMarker x
  setMarkerAttributes (ETAttMarker x) = setMarkerAttributes x
  setMarkerColor (ETAttMarker x) = setMarkerColor x
  setMarkerStyle (ETAttMarker x) = setMarkerStyle x
  setMarkerSize (ETAttMarker x) = setMarkerSize x

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

instance ITAttPad (Exist TAttPad) where
  resetAttPad (ETAttPad x) = resetAttPad x
  setBottomMargin (ETAttPad x) = setBottomMargin x
  setLeftMargin (ETAttPad x) = setLeftMargin x
  setRightMargin (ETAttPad x) = setRightMargin x
  setTopMargin (ETAttPad x) = setTopMargin x
  setMargin (ETAttPad x) = setMargin x
  setAfile (ETAttPad x) = setAfile x
  setXfile (ETAttPad x) = setXfile x
  setYfile (ETAttPad x) = setYfile x
  setAstat (ETAttPad x) = setAstat x
  setXstat (ETAttPad x) = setXstat x
  setYstat (ETAttPad x) = setYstat x

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
  draw (ETAttParticle x) = draw x
  findObject (ETAttParticle x) = findObject x
  getName (ETAttParticle x) = getName x
  isA (ETAttParticle x) = isA x
  isFolder (ETAttParticle x) = isFolder x
  isEqual (ETAttParticle x) = isEqual x
  isSortable (ETAttParticle x) = isSortable x
  paint (ETAttParticle x) = paint x
  printObj (ETAttParticle x) = printObj x
  recursiveRemove (ETAttParticle x) = recursiveRemove x
  saveAs (ETAttParticle x) = saveAs x
  useCurrentStyle (ETAttParticle x) = useCurrentStyle x
  write (ETAttParticle x) = write x

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

instance ITAttText (Exist TAttText) where
  getTextAlign (ETAttText x) = getTextAlign x
  getTextAngle (ETAttText x) = getTextAngle x
  getTextColor (ETAttText x) = getTextColor x
  getTextFont (ETAttText x) = getTextFont x
  getTextSize (ETAttText x) = getTextSize x
  resetAttText (ETAttText x) = resetAttText x
  setTextAttributes (ETAttText x) = setTextAttributes x
  setTextAlign (ETAttText x) = setTextAlign x
  setTextAngle (ETAttText x) = setTextAngle x
  setTextColor (ETAttText x) = setTextColor x
  setTextFont (ETAttText x) = setTextFont x
  setTextSize (ETAttText x) = setTextSize x
  setTextSizePixels (ETAttText x) = setTextSizePixels 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
  draw (ETHStack x) = draw x
  findObject (ETHStack x) = findObject x
  getName (ETHStack x) = getName x
  isA (ETHStack x) = isA x
  isFolder (ETHStack x) = isFolder x
  isEqual (ETHStack x) = isEqual x
  isSortable (ETHStack x) = isSortable x
  paint (ETHStack x) = paint x
  printObj (ETHStack x) = printObj x
  recursiveRemove (ETHStack x) = recursiveRemove x
  saveAs (ETHStack x) = saveAs x
  useCurrentStyle (ETHStack x) = useCurrentStyle x
  write (ETHStack x) = write x

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

instance ITF1 (Exist TF1) where
  derivative (ETF1 x) = derivative x
  derivative2 (ETF1 x) = derivative2 x
  derivative3 (ETF1 x) = derivative3 x
  drawCopyTF1 (ETF1 x) a1 = return . ETF1 =<< drawCopyTF1 x a1
  drawDerivative (ETF1 x) = drawDerivative x
  drawIntegral (ETF1 x) = drawIntegral x
  drawF1 (ETF1 x) = drawF1 x
  fixParameter (ETF1 x) = fixParameter x
  getMaximumTF1 (ETF1 x) = getMaximumTF1 x
  getMinimumTF1 (ETF1 x) = getMinimumTF1 x
  getMaximumX (ETF1 x) = getMaximumX x
  getMinimumX (ETF1 x) = getMinimumX x
  getNDF (ETF1 x) = getNDF x
  getNpx (ETF1 x) = getNpx x
  getNumberFreeParameters (ETF1 x) = getNumberFreeParameters x
  getNumberFitPoints (ETF1 x) = getNumberFitPoints x
  getParError (ETF1 x) = getParError x
  getProb (ETF1 x) = getProb x
  getQuantilesTF1 (ETF1 x) = getQuantilesTF1 x
  getRandomTF1 (ETF1 x) = getRandomTF1 x
  getSave (ETF1 x) = getSave x
  getX (ETF1 x) = getX x
  getXmin (ETF1 x) = getXmin x
  getXmax (ETF1 x) = getXmax x
  gradientPar (ETF1 x) = gradientPar x
  initArgs (ETF1 x) = initArgs x
  integralTF1 (ETF1 x) = integralTF1 x
  integralError (ETF1 x) = integralError x
  integralFast (ETF1 x) = integralFast x
  isInside (ETF1 x) = isInside x
  releaseParameter (ETF1 x) = releaseParameter x
  setChisquare (ETF1 x) = setChisquare x
  setMaximumTF1 (ETF1 x) = setMaximumTF1 x
  setMinimumTF1 (ETF1 x) = setMinimumTF1 x
  setNDF (ETF1 x) = setNDF x
  setNumberFitPoints (ETF1 x) = setNumberFitPoints x
  setNpx (ETF1 x) = setNpx x
  setParError (ETF1 x) = setParError x
  setParErrors (ETF1 x) = setParErrors x
  setParLimits (ETF1 x) = setParLimits x
  setParent (ETF1 x) = setParent x
  setRange1 (ETF1 x) = setRange1 x
  setRange2 (ETF1 x) = setRange2 x
  setRange3 (ETF1 x) = setRange3 x
  setSavedPoint (ETF1 x) = setSavedPoint x
  moment (ETF1 x) = moment x
  centralMoment (ETF1 x) = centralMoment x
  mean (ETF1 x) = mean x
  variance (ETF1 x) = variance x

instance ITFormula (Exist TF1) where
  compile (ETF1 x) = compile x
  clear (ETF1 x) = clear x
  definedValue (ETF1 x) = definedValue x
  eval (ETF1 x) = eval x
  evalParOld (ETF1 x) = evalParOld x
  evalPar (ETF1 x) = evalPar x
  getNdim (ETF1 x) = getNdim x
  getNpar (ETF1 x) = getNpar x
  getNumber (ETF1 x) = getNumber x
  getParNumber (ETF1 x) = getParNumber x
  isLinear (ETF1 x) = isLinear x
  isNormalized (ETF1 x) = isNormalized x
  setNumber (ETF1 x) = setNumber x
  setParameter (ETF1 x) = setParameter x
  setParameters (ETF1 x) = setParameters x
  setParName (ETF1 x) = setParName x
  setParNames (ETF1 x) = setParNames x
  update (ETF1 x) = update x

instance ITAttLine (Exist TF1) where
  getLineColor (ETF1 x) = getLineColor x
  getLineStyle (ETF1 x) = getLineStyle x
  getLineWidth (ETF1 x) = getLineWidth x
  resetAttLine (ETF1 x) = resetAttLine x
  setLineAttributes (ETF1 x) = setLineAttributes x
  setLineColor (ETF1 x) = setLineColor x
  setLineStyle (ETF1 x) = setLineStyle x
  setLineWidth (ETF1 x) = setLineWidth x

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

instance ITAttMarker (Exist TF1) where
  getMarkerColor (ETF1 x) = getMarkerColor x
  getMarkerStyle (ETF1 x) = getMarkerStyle x
  getMarkerSize (ETF1 x) = getMarkerSize x
  resetAttMarker (ETF1 x) = resetAttMarker x
  setMarkerAttributes (ETF1 x) = setMarkerAttributes x
  setMarkerColor (ETF1 x) = setMarkerColor x
  setMarkerStyle (ETF1 x) = setMarkerStyle x
  setMarkerSize (ETF1 x) = setMarkerSize 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
  draw (ETF1 x) = draw x
  findObject (ETF1 x) = findObject x
  getName (ETF1 x) = getName x
  isA (ETF1 x) = isA x
  isFolder (ETF1 x) = isFolder x
  isEqual (ETF1 x) = isEqual x
  isSortable (ETF1 x) = isSortable x
  paint (ETF1 x) = paint x
  printObj (ETF1 x) = printObj x
  recursiveRemove (ETF1 x) = recursiveRemove x
  saveAs (ETF1 x) = saveAs x
  useCurrentStyle (ETF1 x) = useCurrentStyle x
  write (ETF1 x) = write x

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

instance ITGraph (Exist TGraph) where
  apply (ETGraph x) = apply x
  chisquare (ETGraph x) = chisquare x
  drawGraph (ETGraph x) = drawGraph x
  drawPanelTGraph (ETGraph x) = drawPanelTGraph x
  expand (ETGraph x) = expand x
  fitPanelTGraph (ETGraph x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraph x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraph x) = getCovarianceTGraph x
  getMeanTGraph (ETGraph x) = getMeanTGraph x
  getRMSTGraph (ETGraph x) = getRMSTGraph x
  getErrorX (ETGraph x) = getErrorX x
  getErrorY (ETGraph x) = getErrorY x
  getErrorXhigh (ETGraph x) = getErrorXhigh x
  getErrorXlow (ETGraph x) = getErrorXlow x
  getErrorYhigh (ETGraph x) = getErrorYhigh x
  getErrorYlow (ETGraph x) = getErrorYlow x
  initExpo (ETGraph x) = initExpo x
  initGaus (ETGraph x) = initGaus x
  initPolynom (ETGraph x) = initPolynom x
  insertPoint (ETGraph x) = insertPoint x
  integralTGraph (ETGraph x) = integralTGraph x
  isEditable (ETGraph x) = isEditable x
  isInsideTGraph (ETGraph x) = isInsideTGraph x
  leastSquareFit (ETGraph x) = leastSquareFit x
  paintStats (ETGraph x) = paintStats x
  removePoint (ETGraph x) = removePoint x
  setEditable (ETGraph x) = setEditable x
  setHistogram (ETGraph x) = setHistogram x
  setMaximumTGraph (ETGraph x) = setMaximumTGraph x
  setMinimumTGraph (ETGraph x) = setMinimumTGraph x
  set (ETGraph x) = set x
  setPoint (ETGraph x) = setPoint x

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
  getLineColor (ETGraph x) = getLineColor x
  getLineStyle (ETGraph x) = getLineStyle x
  getLineWidth (ETGraph x) = getLineWidth x
  resetAttLine (ETGraph x) = resetAttLine x
  setLineAttributes (ETGraph x) = setLineAttributes x
  setLineColor (ETGraph x) = setLineColor x
  setLineStyle (ETGraph x) = setLineStyle x
  setLineWidth (ETGraph x) = setLineWidth x

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

instance ITAttMarker (Exist TGraph) where
  getMarkerColor (ETGraph x) = getMarkerColor x
  getMarkerStyle (ETGraph x) = getMarkerStyle x
  getMarkerSize (ETGraph x) = getMarkerSize x
  resetAttMarker (ETGraph x) = resetAttMarker x
  setMarkerAttributes (ETGraph x) = setMarkerAttributes x
  setMarkerColor (ETGraph x) = setMarkerColor x
  setMarkerStyle (ETGraph x) = setMarkerStyle x
  setMarkerSize (ETGraph x) = setMarkerSize x

instance ITObject (Exist TGraph) where
  draw (ETGraph x) = draw x
  findObject (ETGraph x) = findObject x
  getName (ETGraph x) = getName x
  isA (ETGraph x) = isA x
  isFolder (ETGraph x) = isFolder x
  isEqual (ETGraph x) = isEqual x
  isSortable (ETGraph x) = isSortable x
  paint (ETGraph x) = paint x
  printObj (ETGraph x) = printObj x
  recursiveRemove (ETGraph x) = recursiveRemove x
  saveAs (ETGraph x) = saveAs x
  useCurrentStyle (ETGraph x) = useCurrentStyle x
  write (ETGraph x) = write x

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

instance ITGraphAsymmErrors (Exist TGraphAsymmErrors) where


instance ITGraph (Exist TGraphAsymmErrors) where
  apply (ETGraphAsymmErrors x) = apply x
  chisquare (ETGraphAsymmErrors x) = chisquare x
  drawGraph (ETGraphAsymmErrors x) = drawGraph x
  drawPanelTGraph (ETGraphAsymmErrors x) = drawPanelTGraph x
  expand (ETGraphAsymmErrors x) = expand x
  fitPanelTGraph (ETGraphAsymmErrors x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraphAsymmErrors x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraphAsymmErrors x) = getCovarianceTGraph x
  getMeanTGraph (ETGraphAsymmErrors x) = getMeanTGraph x
  getRMSTGraph (ETGraphAsymmErrors x) = getRMSTGraph x
  getErrorX (ETGraphAsymmErrors x) = getErrorX x
  getErrorY (ETGraphAsymmErrors x) = getErrorY x
  getErrorXhigh (ETGraphAsymmErrors x) = getErrorXhigh x
  getErrorXlow (ETGraphAsymmErrors x) = getErrorXlow x
  getErrorYhigh (ETGraphAsymmErrors x) = getErrorYhigh x
  getErrorYlow (ETGraphAsymmErrors x) = getErrorYlow x
  initExpo (ETGraphAsymmErrors x) = initExpo x
  initGaus (ETGraphAsymmErrors x) = initGaus x
  initPolynom (ETGraphAsymmErrors x) = initPolynom x
  insertPoint (ETGraphAsymmErrors x) = insertPoint x
  integralTGraph (ETGraphAsymmErrors x) = integralTGraph x
  isEditable (ETGraphAsymmErrors x) = isEditable x
  isInsideTGraph (ETGraphAsymmErrors x) = isInsideTGraph x
  leastSquareFit (ETGraphAsymmErrors x) = leastSquareFit x
  paintStats (ETGraphAsymmErrors x) = paintStats x
  removePoint (ETGraphAsymmErrors x) = removePoint x
  setEditable (ETGraphAsymmErrors x) = setEditable x
  setHistogram (ETGraphAsymmErrors x) = setHistogram x
  setMaximumTGraph (ETGraphAsymmErrors x) = setMaximumTGraph x
  setMinimumTGraph (ETGraphAsymmErrors x) = setMinimumTGraph x
  set (ETGraphAsymmErrors x) = set x
  setPoint (ETGraphAsymmErrors x) = setPoint x

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
  getLineColor (ETGraphAsymmErrors x) = getLineColor x
  getLineStyle (ETGraphAsymmErrors x) = getLineStyle x
  getLineWidth (ETGraphAsymmErrors x) = getLineWidth x
  resetAttLine (ETGraphAsymmErrors x) = resetAttLine x
  setLineAttributes (ETGraphAsymmErrors x) = setLineAttributes x
  setLineColor (ETGraphAsymmErrors x) = setLineColor x
  setLineStyle (ETGraphAsymmErrors x) = setLineStyle x
  setLineWidth (ETGraphAsymmErrors x) = setLineWidth x

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

instance ITAttMarker (Exist TGraphAsymmErrors) where
  getMarkerColor (ETGraphAsymmErrors x) = getMarkerColor x
  getMarkerStyle (ETGraphAsymmErrors x) = getMarkerStyle x
  getMarkerSize (ETGraphAsymmErrors x) = getMarkerSize x
  resetAttMarker (ETGraphAsymmErrors x) = resetAttMarker x
  setMarkerAttributes (ETGraphAsymmErrors x) = setMarkerAttributes x
  setMarkerColor (ETGraphAsymmErrors x) = setMarkerColor x
  setMarkerStyle (ETGraphAsymmErrors x) = setMarkerStyle x
  setMarkerSize (ETGraphAsymmErrors x) = setMarkerSize x

instance ITObject (Exist TGraphAsymmErrors) where
  draw (ETGraphAsymmErrors x) = draw x
  findObject (ETGraphAsymmErrors x) = findObject x
  getName (ETGraphAsymmErrors x) = getName x
  isA (ETGraphAsymmErrors x) = isA x
  isFolder (ETGraphAsymmErrors x) = isFolder x
  isEqual (ETGraphAsymmErrors x) = isEqual x
  isSortable (ETGraphAsymmErrors x) = isSortable x
  paint (ETGraphAsymmErrors x) = paint x
  printObj (ETGraphAsymmErrors x) = printObj x
  recursiveRemove (ETGraphAsymmErrors x) = recursiveRemove x
  saveAs (ETGraphAsymmErrors x) = saveAs x
  useCurrentStyle (ETGraphAsymmErrors x) = useCurrentStyle x
  write (ETGraphAsymmErrors x) = write x

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

instance ITCutG (Exist TCutG) where


instance ITGraph (Exist TCutG) where
  apply (ETCutG x) = apply x
  chisquare (ETCutG x) = chisquare x
  drawGraph (ETCutG x) = drawGraph x
  drawPanelTGraph (ETCutG x) = drawPanelTGraph x
  expand (ETCutG x) = expand x
  fitPanelTGraph (ETCutG x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETCutG x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETCutG x) = getCovarianceTGraph x
  getMeanTGraph (ETCutG x) = getMeanTGraph x
  getRMSTGraph (ETCutG x) = getRMSTGraph x
  getErrorX (ETCutG x) = getErrorX x
  getErrorY (ETCutG x) = getErrorY x
  getErrorXhigh (ETCutG x) = getErrorXhigh x
  getErrorXlow (ETCutG x) = getErrorXlow x
  getErrorYhigh (ETCutG x) = getErrorYhigh x
  getErrorYlow (ETCutG x) = getErrorYlow x
  initExpo (ETCutG x) = initExpo x
  initGaus (ETCutG x) = initGaus x
  initPolynom (ETCutG x) = initPolynom x
  insertPoint (ETCutG x) = insertPoint x
  integralTGraph (ETCutG x) = integralTGraph x
  isEditable (ETCutG x) = isEditable x
  isInsideTGraph (ETCutG x) = isInsideTGraph x
  leastSquareFit (ETCutG x) = leastSquareFit x
  paintStats (ETCutG x) = paintStats x
  removePoint (ETCutG x) = removePoint x
  setEditable (ETCutG x) = setEditable x
  setHistogram (ETCutG x) = setHistogram x
  setMaximumTGraph (ETCutG x) = setMaximumTGraph x
  setMinimumTGraph (ETCutG x) = setMinimumTGraph x
  set (ETCutG x) = set x
  setPoint (ETCutG x) = setPoint x

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
  getLineColor (ETCutG x) = getLineColor x
  getLineStyle (ETCutG x) = getLineStyle x
  getLineWidth (ETCutG x) = getLineWidth x
  resetAttLine (ETCutG x) = resetAttLine x
  setLineAttributes (ETCutG x) = setLineAttributes x
  setLineColor (ETCutG x) = setLineColor x
  setLineStyle (ETCutG x) = setLineStyle x
  setLineWidth (ETCutG x) = setLineWidth x

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

instance ITAttMarker (Exist TCutG) where
  getMarkerColor (ETCutG x) = getMarkerColor x
  getMarkerStyle (ETCutG x) = getMarkerStyle x
  getMarkerSize (ETCutG x) = getMarkerSize x
  resetAttMarker (ETCutG x) = resetAttMarker x
  setMarkerAttributes (ETCutG x) = setMarkerAttributes x
  setMarkerColor (ETCutG x) = setMarkerColor x
  setMarkerStyle (ETCutG x) = setMarkerStyle x
  setMarkerSize (ETCutG x) = setMarkerSize x

instance ITObject (Exist TCutG) where
  draw (ETCutG x) = draw x
  findObject (ETCutG x) = findObject x
  getName (ETCutG x) = getName x
  isA (ETCutG x) = isA x
  isFolder (ETCutG x) = isFolder x
  isEqual (ETCutG x) = isEqual x
  isSortable (ETCutG x) = isSortable x
  paint (ETCutG x) = paint x
  printObj (ETCutG x) = printObj x
  recursiveRemove (ETCutG x) = recursiveRemove x
  saveAs (ETCutG x) = saveAs x
  useCurrentStyle (ETCutG x) = useCurrentStyle x
  write (ETCutG x) = write x

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

instance ITGraphBentErrors (Exist TGraphBentErrors) where


instance ITGraph (Exist TGraphBentErrors) where
  apply (ETGraphBentErrors x) = apply x
  chisquare (ETGraphBentErrors x) = chisquare x
  drawGraph (ETGraphBentErrors x) = drawGraph x
  drawPanelTGraph (ETGraphBentErrors x) = drawPanelTGraph x
  expand (ETGraphBentErrors x) = expand x
  fitPanelTGraph (ETGraphBentErrors x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraphBentErrors x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraphBentErrors x) = getCovarianceTGraph x
  getMeanTGraph (ETGraphBentErrors x) = getMeanTGraph x
  getRMSTGraph (ETGraphBentErrors x) = getRMSTGraph x
  getErrorX (ETGraphBentErrors x) = getErrorX x
  getErrorY (ETGraphBentErrors x) = getErrorY x
  getErrorXhigh (ETGraphBentErrors x) = getErrorXhigh x
  getErrorXlow (ETGraphBentErrors x) = getErrorXlow x
  getErrorYhigh (ETGraphBentErrors x) = getErrorYhigh x
  getErrorYlow (ETGraphBentErrors x) = getErrorYlow x
  initExpo (ETGraphBentErrors x) = initExpo x
  initGaus (ETGraphBentErrors x) = initGaus x
  initPolynom (ETGraphBentErrors x) = initPolynom x
  insertPoint (ETGraphBentErrors x) = insertPoint x
  integralTGraph (ETGraphBentErrors x) = integralTGraph x
  isEditable (ETGraphBentErrors x) = isEditable x
  isInsideTGraph (ETGraphBentErrors x) = isInsideTGraph x
  leastSquareFit (ETGraphBentErrors x) = leastSquareFit x
  paintStats (ETGraphBentErrors x) = paintStats x
  removePoint (ETGraphBentErrors x) = removePoint x
  setEditable (ETGraphBentErrors x) = setEditable x
  setHistogram (ETGraphBentErrors x) = setHistogram x
  setMaximumTGraph (ETGraphBentErrors x) = setMaximumTGraph x
  setMinimumTGraph (ETGraphBentErrors x) = setMinimumTGraph x
  set (ETGraphBentErrors x) = set x
  setPoint (ETGraphBentErrors x) = setPoint x

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
  getLineColor (ETGraphBentErrors x) = getLineColor x
  getLineStyle (ETGraphBentErrors x) = getLineStyle x
  getLineWidth (ETGraphBentErrors x) = getLineWidth x
  resetAttLine (ETGraphBentErrors x) = resetAttLine x
  setLineAttributes (ETGraphBentErrors x) = setLineAttributes x
  setLineColor (ETGraphBentErrors x) = setLineColor x
  setLineStyle (ETGraphBentErrors x) = setLineStyle x
  setLineWidth (ETGraphBentErrors x) = setLineWidth x

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

instance ITAttMarker (Exist TGraphBentErrors) where
  getMarkerColor (ETGraphBentErrors x) = getMarkerColor x
  getMarkerStyle (ETGraphBentErrors x) = getMarkerStyle x
  getMarkerSize (ETGraphBentErrors x) = getMarkerSize x
  resetAttMarker (ETGraphBentErrors x) = resetAttMarker x
  setMarkerAttributes (ETGraphBentErrors x) = setMarkerAttributes x
  setMarkerColor (ETGraphBentErrors x) = setMarkerColor x
  setMarkerStyle (ETGraphBentErrors x) = setMarkerStyle x
  setMarkerSize (ETGraphBentErrors x) = setMarkerSize x

instance ITObject (Exist TGraphBentErrors) where
  draw (ETGraphBentErrors x) = draw x
  findObject (ETGraphBentErrors x) = findObject x
  getName (ETGraphBentErrors x) = getName x
  isA (ETGraphBentErrors x) = isA x
  isFolder (ETGraphBentErrors x) = isFolder x
  isEqual (ETGraphBentErrors x) = isEqual x
  isSortable (ETGraphBentErrors x) = isSortable x
  paint (ETGraphBentErrors x) = paint x
  printObj (ETGraphBentErrors x) = printObj x
  recursiveRemove (ETGraphBentErrors x) = recursiveRemove x
  saveAs (ETGraphBentErrors x) = saveAs x
  useCurrentStyle (ETGraphBentErrors x) = useCurrentStyle x
  write (ETGraphBentErrors x) = write x

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

instance ITGraphErrors (Exist TGraphErrors) where


instance ITGraph (Exist TGraphErrors) where
  apply (ETGraphErrors x) = apply x
  chisquare (ETGraphErrors x) = chisquare x
  drawGraph (ETGraphErrors x) = drawGraph x
  drawPanelTGraph (ETGraphErrors x) = drawPanelTGraph x
  expand (ETGraphErrors x) = expand x
  fitPanelTGraph (ETGraphErrors x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraphErrors x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraphErrors x) = getCovarianceTGraph x
  getMeanTGraph (ETGraphErrors x) = getMeanTGraph x
  getRMSTGraph (ETGraphErrors x) = getRMSTGraph x
  getErrorX (ETGraphErrors x) = getErrorX x
  getErrorY (ETGraphErrors x) = getErrorY x
  getErrorXhigh (ETGraphErrors x) = getErrorXhigh x
  getErrorXlow (ETGraphErrors x) = getErrorXlow x
  getErrorYhigh (ETGraphErrors x) = getErrorYhigh x
  getErrorYlow (ETGraphErrors x) = getErrorYlow x
  initExpo (ETGraphErrors x) = initExpo x
  initGaus (ETGraphErrors x) = initGaus x
  initPolynom (ETGraphErrors x) = initPolynom x
  insertPoint (ETGraphErrors x) = insertPoint x
  integralTGraph (ETGraphErrors x) = integralTGraph x
  isEditable (ETGraphErrors x) = isEditable x
  isInsideTGraph (ETGraphErrors x) = isInsideTGraph x
  leastSquareFit (ETGraphErrors x) = leastSquareFit x
  paintStats (ETGraphErrors x) = paintStats x
  removePoint (ETGraphErrors x) = removePoint x
  setEditable (ETGraphErrors x) = setEditable x
  setHistogram (ETGraphErrors x) = setHistogram x
  setMaximumTGraph (ETGraphErrors x) = setMaximumTGraph x
  setMinimumTGraph (ETGraphErrors x) = setMinimumTGraph x
  set (ETGraphErrors x) = set x
  setPoint (ETGraphErrors x) = setPoint x

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
  getLineColor (ETGraphErrors x) = getLineColor x
  getLineStyle (ETGraphErrors x) = getLineStyle x
  getLineWidth (ETGraphErrors x) = getLineWidth x
  resetAttLine (ETGraphErrors x) = resetAttLine x
  setLineAttributes (ETGraphErrors x) = setLineAttributes x
  setLineColor (ETGraphErrors x) = setLineColor x
  setLineStyle (ETGraphErrors x) = setLineStyle x
  setLineWidth (ETGraphErrors x) = setLineWidth x

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

instance ITAttMarker (Exist TGraphErrors) where
  getMarkerColor (ETGraphErrors x) = getMarkerColor x
  getMarkerStyle (ETGraphErrors x) = getMarkerStyle x
  getMarkerSize (ETGraphErrors x) = getMarkerSize x
  resetAttMarker (ETGraphErrors x) = resetAttMarker x
  setMarkerAttributes (ETGraphErrors x) = setMarkerAttributes x
  setMarkerColor (ETGraphErrors x) = setMarkerColor x
  setMarkerStyle (ETGraphErrors x) = setMarkerStyle x
  setMarkerSize (ETGraphErrors x) = setMarkerSize x

instance ITObject (Exist TGraphErrors) where
  draw (ETGraphErrors x) = draw x
  findObject (ETGraphErrors x) = findObject x
  getName (ETGraphErrors x) = getName x
  isA (ETGraphErrors x) = isA x
  isFolder (ETGraphErrors x) = isFolder x
  isEqual (ETGraphErrors x) = isEqual x
  isSortable (ETGraphErrors x) = isSortable x
  paint (ETGraphErrors x) = paint x
  printObj (ETGraphErrors x) = printObj x
  recursiveRemove (ETGraphErrors x) = recursiveRemove x
  saveAs (ETGraphErrors x) = saveAs x
  useCurrentStyle (ETGraphErrors x) = useCurrentStyle x
  write (ETGraphErrors x) = write 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
  apply (ETGraphPolar x) = apply x
  chisquare (ETGraphPolar x) = chisquare x
  drawGraph (ETGraphPolar x) = drawGraph x
  drawPanelTGraph (ETGraphPolar x) = drawPanelTGraph x
  expand (ETGraphPolar x) = expand x
  fitPanelTGraph (ETGraphPolar x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraphPolar x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraphPolar x) = getCovarianceTGraph x
  getMeanTGraph (ETGraphPolar x) = getMeanTGraph x
  getRMSTGraph (ETGraphPolar x) = getRMSTGraph x
  getErrorX (ETGraphPolar x) = getErrorX x
  getErrorY (ETGraphPolar x) = getErrorY x
  getErrorXhigh (ETGraphPolar x) = getErrorXhigh x
  getErrorXlow (ETGraphPolar x) = getErrorXlow x
  getErrorYhigh (ETGraphPolar x) = getErrorYhigh x
  getErrorYlow (ETGraphPolar x) = getErrorYlow x
  initExpo (ETGraphPolar x) = initExpo x
  initGaus (ETGraphPolar x) = initGaus x
  initPolynom (ETGraphPolar x) = initPolynom x
  insertPoint (ETGraphPolar x) = insertPoint x
  integralTGraph (ETGraphPolar x) = integralTGraph x
  isEditable (ETGraphPolar x) = isEditable x
  isInsideTGraph (ETGraphPolar x) = isInsideTGraph x
  leastSquareFit (ETGraphPolar x) = leastSquareFit x
  paintStats (ETGraphPolar x) = paintStats x
  removePoint (ETGraphPolar x) = removePoint x
  setEditable (ETGraphPolar x) = setEditable x
  setHistogram (ETGraphPolar x) = setHistogram x
  setMaximumTGraph (ETGraphPolar x) = setMaximumTGraph x
  setMinimumTGraph (ETGraphPolar x) = setMinimumTGraph x
  set (ETGraphPolar x) = set x
  setPoint (ETGraphPolar x) = setPoint x

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
  getLineColor (ETGraphPolar x) = getLineColor x
  getLineStyle (ETGraphPolar x) = getLineStyle x
  getLineWidth (ETGraphPolar x) = getLineWidth x
  resetAttLine (ETGraphPolar x) = resetAttLine x
  setLineAttributes (ETGraphPolar x) = setLineAttributes x
  setLineColor (ETGraphPolar x) = setLineColor x
  setLineStyle (ETGraphPolar x) = setLineStyle x
  setLineWidth (ETGraphPolar x) = setLineWidth x

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

instance ITAttMarker (Exist TGraphPolar) where
  getMarkerColor (ETGraphPolar x) = getMarkerColor x
  getMarkerStyle (ETGraphPolar x) = getMarkerStyle x
  getMarkerSize (ETGraphPolar x) = getMarkerSize x
  resetAttMarker (ETGraphPolar x) = resetAttMarker x
  setMarkerAttributes (ETGraphPolar x) = setMarkerAttributes x
  setMarkerColor (ETGraphPolar x) = setMarkerColor x
  setMarkerStyle (ETGraphPolar x) = setMarkerStyle x
  setMarkerSize (ETGraphPolar x) = setMarkerSize x

instance ITObject (Exist TGraphPolar) where
  draw (ETGraphPolar x) = draw x
  findObject (ETGraphPolar x) = findObject x
  getName (ETGraphPolar x) = getName x
  isA (ETGraphPolar x) = isA x
  isFolder (ETGraphPolar x) = isFolder x
  isEqual (ETGraphPolar x) = isEqual x
  isSortable (ETGraphPolar x) = isSortable x
  paint (ETGraphPolar x) = paint x
  printObj (ETGraphPolar x) = printObj x
  recursiveRemove (ETGraphPolar x) = recursiveRemove x
  saveAs (ETGraphPolar x) = saveAs x
  useCurrentStyle (ETGraphPolar x) = useCurrentStyle x
  write (ETGraphPolar x) = write x

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

instance ITGraphQQ (Exist TGraphQQ) where


instance ITGraph (Exist TGraphQQ) where
  apply (ETGraphQQ x) = apply x
  chisquare (ETGraphQQ x) = chisquare x
  drawGraph (ETGraphQQ x) = drawGraph x
  drawPanelTGraph (ETGraphQQ x) = drawPanelTGraph x
  expand (ETGraphQQ x) = expand x
  fitPanelTGraph (ETGraphQQ x) = fitPanelTGraph x
  getCorrelationFactorTGraph (ETGraphQQ x) = getCorrelationFactorTGraph x
  getCovarianceTGraph (ETGraphQQ x) = getCovarianceTGraph x
  getMeanTGraph (ETGraphQQ x) = getMeanTGraph x
  getRMSTGraph (ETGraphQQ x) = getRMSTGraph x
  getErrorX (ETGraphQQ x) = getErrorX x
  getErrorY (ETGraphQQ x) = getErrorY x
  getErrorXhigh (ETGraphQQ x) = getErrorXhigh x
  getErrorXlow (ETGraphQQ x) = getErrorXlow x
  getErrorYhigh (ETGraphQQ x) = getErrorYhigh x
  getErrorYlow (ETGraphQQ x) = getErrorYlow x
  initExpo (ETGraphQQ x) = initExpo x
  initGaus (ETGraphQQ x) = initGaus x
  initPolynom (ETGraphQQ x) = initPolynom x
  insertPoint (ETGraphQQ x) = insertPoint x
  integralTGraph (ETGraphQQ x) = integralTGraph x
  isEditable (ETGraphQQ x) = isEditable x
  isInsideTGraph (ETGraphQQ x) = isInsideTGraph x
  leastSquareFit (ETGraphQQ x) = leastSquareFit x
  paintStats (ETGraphQQ x) = paintStats x
  removePoint (ETGraphQQ x) = removePoint x
  setEditable (ETGraphQQ x) = setEditable x
  setHistogram (ETGraphQQ x) = setHistogram x
  setMaximumTGraph (ETGraphQQ x) = setMaximumTGraph x
  setMinimumTGraph (ETGraphQQ x) = setMinimumTGraph x
  set (ETGraphQQ x) = set x
  setPoint (ETGraphQQ x) = setPoint x

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
  getLineColor (ETGraphQQ x) = getLineColor x
  getLineStyle (ETGraphQQ x) = getLineStyle x
  getLineWidth (ETGraphQQ x) = getLineWidth x
  resetAttLine (ETGraphQQ x) = resetAttLine x
  setLineAttributes (ETGraphQQ x) = setLineAttributes x
  setLineColor (ETGraphQQ x) = setLineColor x
  setLineStyle (ETGraphQQ x) = setLineStyle x
  setLineWidth (ETGraphQQ x) = setLineWidth x

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

instance ITAttMarker (Exist TGraphQQ) where
  getMarkerColor (ETGraphQQ x) = getMarkerColor x
  getMarkerStyle (ETGraphQQ x) = getMarkerStyle x
  getMarkerSize (ETGraphQQ x) = getMarkerSize x
  resetAttMarker (ETGraphQQ x) = resetAttMarker x
  setMarkerAttributes (ETGraphQQ x) = setMarkerAttributes x
  setMarkerColor (ETGraphQQ x) = setMarkerColor x
  setMarkerStyle (ETGraphQQ x) = setMarkerStyle x
  setMarkerSize (ETGraphQQ x) = setMarkerSize x

instance ITObject (Exist TGraphQQ) where
  draw (ETGraphQQ x) = draw x
  findObject (ETGraphQQ x) = findObject x
  getName (ETGraphQQ x) = getName x
  isA (ETGraphQQ x) = isA x
  isFolder (ETGraphQQ x) = isFolder x
  isEqual (ETGraphQQ x) = isEqual x
  isSortable (ETGraphQQ x) = isSortable x
  paint (ETGraphQQ x) = paint x
  printObj (ETGraphQQ x) = printObj x
  recursiveRemove (ETGraphQQ x) = recursiveRemove x
  saveAs (ETGraphQQ x) = saveAs x
  useCurrentStyle (ETGraphQQ x) = useCurrentStyle x
  write (ETGraphQQ x) = write x

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

instance ITEllipse (Exist TEllipse) where


instance ITObject (Exist TEllipse) where
  draw (ETEllipse x) = draw x
  findObject (ETEllipse x) = findObject x
  getName (ETEllipse x) = getName x
  isA (ETEllipse x) = isA x
  isFolder (ETEllipse x) = isFolder x
  isEqual (ETEllipse x) = isEqual x
  isSortable (ETEllipse x) = isSortable x
  paint (ETEllipse x) = paint x
  printObj (ETEllipse x) = printObj x
  recursiveRemove (ETEllipse x) = recursiveRemove x
  saveAs (ETEllipse x) = saveAs x
  useCurrentStyle (ETEllipse x) = useCurrentStyle x
  write (ETEllipse x) = write x

instance ITAttLine (Exist TEllipse) where
  getLineColor (ETEllipse x) = getLineColor x
  getLineStyle (ETEllipse x) = getLineStyle x
  getLineWidth (ETEllipse x) = getLineWidth x
  resetAttLine (ETEllipse x) = resetAttLine x
  setLineAttributes (ETEllipse x) = setLineAttributes x
  setLineColor (ETEllipse x) = setLineColor x
  setLineStyle (ETEllipse x) = setLineStyle x
  setLineWidth (ETEllipse x) = setLineWidth 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
  draw (ETArc x) = draw x
  findObject (ETArc x) = findObject x
  getName (ETArc x) = getName x
  isA (ETArc x) = isA x
  isFolder (ETArc x) = isFolder x
  isEqual (ETArc x) = isEqual x
  isSortable (ETArc x) = isSortable x
  paint (ETArc x) = paint x
  printObj (ETArc x) = printObj x
  recursiveRemove (ETArc x) = recursiveRemove x
  saveAs (ETArc x) = saveAs x
  useCurrentStyle (ETArc x) = useCurrentStyle x
  write (ETArc x) = write x

instance ITAttLine (Exist TArc) where
  getLineColor (ETArc x) = getLineColor x
  getLineStyle (ETArc x) = getLineStyle x
  getLineWidth (ETArc x) = getLineWidth x
  resetAttLine (ETArc x) = resetAttLine x
  setLineAttributes (ETArc x) = setLineAttributes x
  setLineColor (ETArc x) = setLineColor x
  setLineStyle (ETArc x) = setLineStyle x
  setLineWidth (ETArc x) = setLineWidth 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
  draw (ETCrown x) = draw x
  findObject (ETCrown x) = findObject x
  getName (ETCrown x) = getName x
  isA (ETCrown x) = isA x
  isFolder (ETCrown x) = isFolder x
  isEqual (ETCrown x) = isEqual x
  isSortable (ETCrown x) = isSortable x
  paint (ETCrown x) = paint x
  printObj (ETCrown x) = printObj x
  recursiveRemove (ETCrown x) = recursiveRemove x
  saveAs (ETCrown x) = saveAs x
  useCurrentStyle (ETCrown x) = useCurrentStyle x
  write (ETCrown x) = write x

instance ITAttLine (Exist TCrown) where
  getLineColor (ETCrown x) = getLineColor x
  getLineStyle (ETCrown x) = getLineStyle x
  getLineWidth (ETCrown x) = getLineWidth x
  resetAttLine (ETCrown x) = resetAttLine x
  setLineAttributes (ETCrown x) = setLineAttributes x
  setLineColor (ETCrown x) = setLineColor x
  setLineStyle (ETCrown x) = setLineStyle x
  setLineWidth (ETCrown x) = setLineWidth 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
  drawLine (ETLine x) = drawLine x
  drawLineNDC (ETLine x) = drawLineNDC x
  paintLine (ETLine x) = paintLine x
  paintLineNDC (ETLine x) = paintLineNDC x
  setX1 (ETLine x) = setX1 x
  setX2 (ETLine x) = setX2 x
  setY1 (ETLine x) = setY1 x
  setY2 (ETLine x) = setY2 x

instance ITObject (Exist TLine) where
  draw (ETLine x) = draw x
  findObject (ETLine x) = findObject x
  getName (ETLine x) = getName x
  isA (ETLine x) = isA x
  isFolder (ETLine x) = isFolder x
  isEqual (ETLine x) = isEqual x
  isSortable (ETLine x) = isSortable x
  paint (ETLine x) = paint x
  printObj (ETLine x) = printObj x
  recursiveRemove (ETLine x) = recursiveRemove x
  saveAs (ETLine x) = saveAs x
  useCurrentStyle (ETLine x) = useCurrentStyle x
  write (ETLine x) = write x

instance ITAttLine (Exist TLine) where
  getLineColor (ETLine x) = getLineColor x
  getLineStyle (ETLine x) = getLineStyle x
  getLineWidth (ETLine x) = getLineWidth x
  resetAttLine (ETLine x) = resetAttLine x
  setLineAttributes (ETLine x) = setLineAttributes x
  setLineColor (ETLine x) = setLineColor x
  setLineStyle (ETLine x) = setLineStyle x
  setLineWidth (ETLine x) = setLineWidth x

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

instance ITArrow (Exist TArrow) where


instance ITLine (Exist TArrow) where
  drawLine (ETArrow x) = drawLine x
  drawLineNDC (ETArrow x) = drawLineNDC x
  paintLine (ETArrow x) = paintLine x
  paintLineNDC (ETArrow x) = paintLineNDC x
  setX1 (ETArrow x) = setX1 x
  setX2 (ETArrow x) = setX2 x
  setY1 (ETArrow x) = setY1 x
  setY2 (ETArrow x) = setY2 x

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

instance ITObject (Exist TArrow) where
  draw (ETArrow x) = draw x
  findObject (ETArrow x) = findObject x
  getName (ETArrow x) = getName x
  isA (ETArrow x) = isA x
  isFolder (ETArrow x) = isFolder x
  isEqual (ETArrow x) = isEqual x
  isSortable (ETArrow x) = isSortable x
  paint (ETArrow x) = paint x
  printObj (ETArrow x) = printObj x
  recursiveRemove (ETArrow x) = recursiveRemove x
  saveAs (ETArrow x) = saveAs x
  useCurrentStyle (ETArrow x) = useCurrentStyle x
  write (ETArrow x) = write x

instance ITAttLine (Exist TArrow) where
  getLineColor (ETArrow x) = getLineColor x
  getLineStyle (ETArrow x) = getLineStyle x
  getLineWidth (ETArrow x) = getLineWidth x
  resetAttLine (ETArrow x) = resetAttLine x
  setLineAttributes (ETArrow x) = setLineAttributes x
  setLineColor (ETArrow x) = setLineColor x
  setLineStyle (ETArrow x) = setLineStyle x
  setLineWidth (ETArrow x) = setLineWidth x

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

instance ITGaxis (Exist TGaxis) where


instance ITLine (Exist TGaxis) where
  drawLine (ETGaxis x) = drawLine x
  drawLineNDC (ETGaxis x) = drawLineNDC x
  paintLine (ETGaxis x) = paintLine x
  paintLineNDC (ETGaxis x) = paintLineNDC x
  setX1 (ETGaxis x) = setX1 x
  setX2 (ETGaxis x) = setX2 x
  setY1 (ETGaxis x) = setY1 x
  setY2 (ETGaxis x) = setY2 x

instance ITAttText (Exist TGaxis) where
  getTextAlign (ETGaxis x) = getTextAlign x
  getTextAngle (ETGaxis x) = getTextAngle x
  getTextColor (ETGaxis x) = getTextColor x
  getTextFont (ETGaxis x) = getTextFont x
  getTextSize (ETGaxis x) = getTextSize x
  resetAttText (ETGaxis x) = resetAttText x
  setTextAttributes (ETGaxis x) = setTextAttributes x
  setTextAlign (ETGaxis x) = setTextAlign x
  setTextAngle (ETGaxis x) = setTextAngle x
  setTextColor (ETGaxis x) = setTextColor x
  setTextFont (ETGaxis x) = setTextFont x
  setTextSize (ETGaxis x) = setTextSize x
  setTextSizePixels (ETGaxis x) = setTextSizePixels x

instance ITObject (Exist TGaxis) where
  draw (ETGaxis x) = draw x
  findObject (ETGaxis x) = findObject x
  getName (ETGaxis x) = getName x
  isA (ETGaxis x) = isA x
  isFolder (ETGaxis x) = isFolder x
  isEqual (ETGaxis x) = isEqual x
  isSortable (ETGaxis x) = isSortable x
  paint (ETGaxis x) = paint x
  printObj (ETGaxis x) = printObj x
  recursiveRemove (ETGaxis x) = recursiveRemove x
  saveAs (ETGaxis x) = saveAs x
  useCurrentStyle (ETGaxis x) = useCurrentStyle x
  write (ETGaxis x) = write x

instance ITAttLine (Exist TGaxis) where
  getLineColor (ETGaxis x) = getLineColor x
  getLineStyle (ETGaxis x) = getLineStyle x
  getLineWidth (ETGaxis x) = getLineWidth x
  resetAttLine (ETGaxis x) = resetAttLine x
  setLineAttributes (ETGaxis x) = setLineAttributes x
  setLineColor (ETGaxis x) = setLineColor x
  setLineStyle (ETGaxis x) = setLineStyle x
  setLineWidth (ETGaxis x) = setLineWidth 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
  getLineColor (ETShape x) = getLineColor x
  getLineStyle (ETShape x) = getLineStyle x
  getLineWidth (ETShape x) = getLineWidth x
  resetAttLine (ETShape x) = resetAttLine x
  setLineAttributes (ETShape x) = setLineAttributes x
  setLineColor (ETShape x) = setLineColor x
  setLineStyle (ETShape x) = setLineStyle x
  setLineWidth (ETShape x) = setLineWidth 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
  draw (ETShape x) = draw x
  findObject (ETShape x) = findObject x
  getName (ETShape x) = getName x
  isA (ETShape x) = isA x
  isFolder (ETShape x) = isFolder x
  isEqual (ETShape x) = isEqual x
  isSortable (ETShape x) = isSortable x
  paint (ETShape x) = paint x
  printObj (ETShape x) = printObj x
  recursiveRemove (ETShape x) = recursiveRemove x
  saveAs (ETShape x) = saveAs x
  useCurrentStyle (ETShape x) = useCurrentStyle x
  write (ETShape x) = write 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
  getLineColor (ETBRIK x) = getLineColor x
  getLineStyle (ETBRIK x) = getLineStyle x
  getLineWidth (ETBRIK x) = getLineWidth x
  resetAttLine (ETBRIK x) = resetAttLine x
  setLineAttributes (ETBRIK x) = setLineAttributes x
  setLineColor (ETBRIK x) = setLineColor x
  setLineStyle (ETBRIK x) = setLineStyle x
  setLineWidth (ETBRIK x) = setLineWidth 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
  draw (ETBRIK x) = draw x
  findObject (ETBRIK x) = findObject x
  getName (ETBRIK x) = getName x
  isA (ETBRIK x) = isA x
  isFolder (ETBRIK x) = isFolder x
  isEqual (ETBRIK x) = isEqual x
  isSortable (ETBRIK x) = isSortable x
  paint (ETBRIK x) = paint x
  printObj (ETBRIK x) = printObj x
  recursiveRemove (ETBRIK x) = recursiveRemove x
  saveAs (ETBRIK x) = saveAs x
  useCurrentStyle (ETBRIK x) = useCurrentStyle x
  write (ETBRIK x) = write 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
  getLineColor (ETTUBE x) = getLineColor x
  getLineStyle (ETTUBE x) = getLineStyle x
  getLineWidth (ETTUBE x) = getLineWidth x
  resetAttLine (ETTUBE x) = resetAttLine x
  setLineAttributes (ETTUBE x) = setLineAttributes x
  setLineColor (ETTUBE x) = setLineColor x
  setLineStyle (ETTUBE x) = setLineStyle x
  setLineWidth (ETTUBE x) = setLineWidth 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
  draw (ETTUBE x) = draw x
  findObject (ETTUBE x) = findObject x
  getName (ETTUBE x) = getName x
  isA (ETTUBE x) = isA x
  isFolder (ETTUBE x) = isFolder x
  isEqual (ETTUBE x) = isEqual x
  isSortable (ETTUBE x) = isSortable x
  paint (ETTUBE x) = paint x
  printObj (ETTUBE x) = printObj x
  recursiveRemove (ETTUBE x) = recursiveRemove x
  saveAs (ETTUBE x) = saveAs x
  useCurrentStyle (ETTUBE x) = useCurrentStyle x
  write (ETTUBE x) = write 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
  getLineColor (ETPCON x) = getLineColor x
  getLineStyle (ETPCON x) = getLineStyle x
  getLineWidth (ETPCON x) = getLineWidth x
  resetAttLine (ETPCON x) = resetAttLine x
  setLineAttributes (ETPCON x) = setLineAttributes x
  setLineColor (ETPCON x) = setLineColor x
  setLineStyle (ETPCON x) = setLineStyle x
  setLineWidth (ETPCON x) = setLineWidth 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
  draw (ETPCON x) = draw x
  findObject (ETPCON x) = findObject x
  getName (ETPCON x) = getName x
  isA (ETPCON x) = isA x
  isFolder (ETPCON x) = isFolder x
  isEqual (ETPCON x) = isEqual x
  isSortable (ETPCON x) = isSortable x
  paint (ETPCON x) = paint x
  printObj (ETPCON x) = printObj x
  recursiveRemove (ETPCON x) = recursiveRemove x
  saveAs (ETPCON x) = saveAs x
  useCurrentStyle (ETPCON x) = useCurrentStyle x
  write (ETPCON x) = write 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
  getLineColor (ETSPHE x) = getLineColor x
  getLineStyle (ETSPHE x) = getLineStyle x
  getLineWidth (ETSPHE x) = getLineWidth x
  resetAttLine (ETSPHE x) = resetAttLine x
  setLineAttributes (ETSPHE x) = setLineAttributes x
  setLineColor (ETSPHE x) = setLineColor x
  setLineStyle (ETSPHE x) = setLineStyle x
  setLineWidth (ETSPHE x) = setLineWidth 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
  draw (ETSPHE x) = draw x
  findObject (ETSPHE x) = findObject x
  getName (ETSPHE x) = getName x
  isA (ETSPHE x) = isA x
  isFolder (ETSPHE x) = isFolder x
  isEqual (ETSPHE x) = isEqual x
  isSortable (ETSPHE x) = isSortable x
  paint (ETSPHE x) = paint x
  printObj (ETSPHE x) = printObj x
  recursiveRemove (ETSPHE x) = recursiveRemove x
  saveAs (ETSPHE x) = saveAs x
  useCurrentStyle (ETSPHE x) = useCurrentStyle x
  write (ETSPHE x) = write 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
  getLineColor (ETXTRU x) = getLineColor x
  getLineStyle (ETXTRU x) = getLineStyle x
  getLineWidth (ETXTRU x) = getLineWidth x
  resetAttLine (ETXTRU x) = resetAttLine x
  setLineAttributes (ETXTRU x) = setLineAttributes x
  setLineColor (ETXTRU x) = setLineColor x
  setLineStyle (ETXTRU x) = setLineStyle x
  setLineWidth (ETXTRU x) = setLineWidth 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
  draw (ETXTRU x) = draw x
  findObject (ETXTRU x) = findObject x
  getName (ETXTRU x) = getName x
  isA (ETXTRU x) = isA x
  isFolder (ETXTRU x) = isFolder x
  isEqual (ETXTRU x) = isEqual x
  isSortable (ETXTRU x) = isSortable x
  paint (ETXTRU x) = paint x
  printObj (ETXTRU x) = printObj x
  recursiveRemove (ETXTRU x) = recursiveRemove x
  saveAs (ETXTRU x) = saveAs x
  useCurrentStyle (ETXTRU x) = useCurrentStyle x
  write (ETXTRU x) = write x

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

instance ITBox (Exist TBox) where


instance ITObject (Exist TBox) where
  draw (ETBox x) = draw x
  findObject (ETBox x) = findObject x
  getName (ETBox x) = getName x
  isA (ETBox x) = isA x
  isFolder (ETBox x) = isFolder x
  isEqual (ETBox x) = isEqual x
  isSortable (ETBox x) = isSortable x
  paint (ETBox x) = paint x
  printObj (ETBox x) = printObj x
  recursiveRemove (ETBox x) = recursiveRemove x
  saveAs (ETBox x) = saveAs x
  useCurrentStyle (ETBox x) = useCurrentStyle x
  write (ETBox x) = write x

instance ITAttLine (Exist TBox) where
  getLineColor (ETBox x) = getLineColor x
  getLineStyle (ETBox x) = getLineStyle x
  getLineWidth (ETBox x) = getLineWidth x
  resetAttLine (ETBox x) = resetAttLine x
  setLineAttributes (ETBox x) = setLineAttributes x
  setLineColor (ETBox x) = setLineColor x
  setLineStyle (ETBox x) = setLineStyle x
  setLineWidth (ETBox x) = setLineWidth 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
  draw (ETPave x) = draw x
  findObject (ETPave x) = findObject x
  getName (ETPave x) = getName x
  isA (ETPave x) = isA x
  isFolder (ETPave x) = isFolder x
  isEqual (ETPave x) = isEqual x
  isSortable (ETPave x) = isSortable x
  paint (ETPave x) = paint x
  printObj (ETPave x) = printObj x
  recursiveRemove (ETPave x) = recursiveRemove x
  saveAs (ETPave x) = saveAs x
  useCurrentStyle (ETPave x) = useCurrentStyle x
  write (ETPave x) = write x

instance ITAttLine (Exist TPave) where
  getLineColor (ETPave x) = getLineColor x
  getLineStyle (ETPave x) = getLineStyle x
  getLineWidth (ETPave x) = getLineWidth x
  resetAttLine (ETPave x) = resetAttLine x
  setLineAttributes (ETPave x) = setLineAttributes x
  setLineColor (ETPave x) = setLineColor x
  setLineStyle (ETPave x) = setLineStyle x
  setLineWidth (ETPave x) = setLineWidth 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
  getTextAlign (ETPaveText x) = getTextAlign x
  getTextAngle (ETPaveText x) = getTextAngle x
  getTextColor (ETPaveText x) = getTextColor x
  getTextFont (ETPaveText x) = getTextFont x
  getTextSize (ETPaveText x) = getTextSize x
  resetAttText (ETPaveText x) = resetAttText x
  setTextAttributes (ETPaveText x) = setTextAttributes x
  setTextAlign (ETPaveText x) = setTextAlign x
  setTextAngle (ETPaveText x) = setTextAngle x
  setTextColor (ETPaveText x) = setTextColor x
  setTextFont (ETPaveText x) = setTextFont x
  setTextSize (ETPaveText x) = setTextSize x
  setTextSizePixels (ETPaveText x) = setTextSizePixels x

instance ITBox (Exist TPaveText) where


instance ITObject (Exist TPaveText) where
  draw (ETPaveText x) = draw x
  findObject (ETPaveText x) = findObject x
  getName (ETPaveText x) = getName x
  isA (ETPaveText x) = isA x
  isFolder (ETPaveText x) = isFolder x
  isEqual (ETPaveText x) = isEqual x
  isSortable (ETPaveText x) = isSortable x
  paint (ETPaveText x) = paint x
  printObj (ETPaveText x) = printObj x
  recursiveRemove (ETPaveText x) = recursiveRemove x
  saveAs (ETPaveText x) = saveAs x
  useCurrentStyle (ETPaveText x) = useCurrentStyle x
  write (ETPaveText x) = write x

instance ITAttLine (Exist TPaveText) where
  getLineColor (ETPaveText x) = getLineColor x
  getLineStyle (ETPaveText x) = getLineStyle x
  getLineWidth (ETPaveText x) = getLineWidth x
  resetAttLine (ETPaveText x) = resetAttLine x
  setLineAttributes (ETPaveText x) = setLineAttributes x
  setLineColor (ETPaveText x) = setLineColor x
  setLineStyle (ETPaveText x) = setLineStyle x
  setLineWidth (ETPaveText x) = setLineWidth 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
  getTextAlign (ETDiamond x) = getTextAlign x
  getTextAngle (ETDiamond x) = getTextAngle x
  getTextColor (ETDiamond x) = getTextColor x
  getTextFont (ETDiamond x) = getTextFont x
  getTextSize (ETDiamond x) = getTextSize x
  resetAttText (ETDiamond x) = resetAttText x
  setTextAttributes (ETDiamond x) = setTextAttributes x
  setTextAlign (ETDiamond x) = setTextAlign x
  setTextAngle (ETDiamond x) = setTextAngle x
  setTextColor (ETDiamond x) = setTextColor x
  setTextFont (ETDiamond x) = setTextFont x
  setTextSize (ETDiamond x) = setTextSize x
  setTextSizePixels (ETDiamond x) = setTextSizePixels x

instance ITBox (Exist TDiamond) where


instance ITObject (Exist TDiamond) where
  draw (ETDiamond x) = draw x
  findObject (ETDiamond x) = findObject x
  getName (ETDiamond x) = getName x
  isA (ETDiamond x) = isA x
  isFolder (ETDiamond x) = isFolder x
  isEqual (ETDiamond x) = isEqual x
  isSortable (ETDiamond x) = isSortable x
  paint (ETDiamond x) = paint x
  printObj (ETDiamond x) = printObj x
  recursiveRemove (ETDiamond x) = recursiveRemove x
  saveAs (ETDiamond x) = saveAs x
  useCurrentStyle (ETDiamond x) = useCurrentStyle x
  write (ETDiamond x) = write x

instance ITAttLine (Exist TDiamond) where
  getLineColor (ETDiamond x) = getLineColor x
  getLineStyle (ETDiamond x) = getLineStyle x
  getLineWidth (ETDiamond x) = getLineWidth x
  resetAttLine (ETDiamond x) = resetAttLine x
  setLineAttributes (ETDiamond x) = setLineAttributes x
  setLineColor (ETDiamond x) = setLineColor x
  setLineStyle (ETDiamond x) = setLineStyle x
  setLineWidth (ETDiamond x) = setLineWidth 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
  getTextAlign (ETPaveStats x) = getTextAlign x
  getTextAngle (ETPaveStats x) = getTextAngle x
  getTextColor (ETPaveStats x) = getTextColor x
  getTextFont (ETPaveStats x) = getTextFont x
  getTextSize (ETPaveStats x) = getTextSize x
  resetAttText (ETPaveStats x) = resetAttText x
  setTextAttributes (ETPaveStats x) = setTextAttributes x
  setTextAlign (ETPaveStats x) = setTextAlign x
  setTextAngle (ETPaveStats x) = setTextAngle x
  setTextColor (ETPaveStats x) = setTextColor x
  setTextFont (ETPaveStats x) = setTextFont x
  setTextSize (ETPaveStats x) = setTextSize x
  setTextSizePixels (ETPaveStats x) = setTextSizePixels x

instance ITBox (Exist TPaveStats) where


instance ITObject (Exist TPaveStats) where
  draw (ETPaveStats x) = draw x
  findObject (ETPaveStats x) = findObject x
  getName (ETPaveStats x) = getName x
  isA (ETPaveStats x) = isA x
  isFolder (ETPaveStats x) = isFolder x
  isEqual (ETPaveStats x) = isEqual x
  isSortable (ETPaveStats x) = isSortable x
  paint (ETPaveStats x) = paint x
  printObj (ETPaveStats x) = printObj x
  recursiveRemove (ETPaveStats x) = recursiveRemove x
  saveAs (ETPaveStats x) = saveAs x
  useCurrentStyle (ETPaveStats x) = useCurrentStyle x
  write (ETPaveStats x) = write x

instance ITAttLine (Exist TPaveStats) where
  getLineColor (ETPaveStats x) = getLineColor x
  getLineStyle (ETPaveStats x) = getLineStyle x
  getLineWidth (ETPaveStats x) = getLineWidth x
  resetAttLine (ETPaveStats x) = resetAttLine x
  setLineAttributes (ETPaveStats x) = setLineAttributes x
  setLineColor (ETPaveStats x) = setLineColor x
  setLineStyle (ETPaveStats x) = setLineStyle x
  setLineWidth (ETPaveStats x) = setLineWidth 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
  getTextAlign (ETPavesText x) = getTextAlign x
  getTextAngle (ETPavesText x) = getTextAngle x
  getTextColor (ETPavesText x) = getTextColor x
  getTextFont (ETPavesText x) = getTextFont x
  getTextSize (ETPavesText x) = getTextSize x
  resetAttText (ETPavesText x) = resetAttText x
  setTextAttributes (ETPavesText x) = setTextAttributes x
  setTextAlign (ETPavesText x) = setTextAlign x
  setTextAngle (ETPavesText x) = setTextAngle x
  setTextColor (ETPavesText x) = setTextColor x
  setTextFont (ETPavesText x) = setTextFont x
  setTextSize (ETPavesText x) = setTextSize x
  setTextSizePixels (ETPavesText x) = setTextSizePixels x

instance ITBox (Exist TPavesText) where


instance ITObject (Exist TPavesText) where
  draw (ETPavesText x) = draw x
  findObject (ETPavesText x) = findObject x
  getName (ETPavesText x) = getName x
  isA (ETPavesText x) = isA x
  isFolder (ETPavesText x) = isFolder x
  isEqual (ETPavesText x) = isEqual x
  isSortable (ETPavesText x) = isSortable x
  paint (ETPavesText x) = paint x
  printObj (ETPavesText x) = printObj x
  recursiveRemove (ETPavesText x) = recursiveRemove x
  saveAs (ETPavesText x) = saveAs x
  useCurrentStyle (ETPavesText x) = useCurrentStyle x
  write (ETPavesText x) = write x

instance ITAttLine (Exist TPavesText) where
  getLineColor (ETPavesText x) = getLineColor x
  getLineStyle (ETPavesText x) = getLineStyle x
  getLineWidth (ETPavesText x) = getLineWidth x
  resetAttLine (ETPavesText x) = resetAttLine x
  setLineAttributes (ETPavesText x) = setLineAttributes x
  setLineColor (ETPavesText x) = setLineColor x
  setLineStyle (ETPavesText x) = setLineStyle x
  setLineWidth (ETPavesText x) = setLineWidth 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
  getTextAlign (ETLegend x) = getTextAlign x
  getTextAngle (ETLegend x) = getTextAngle x
  getTextColor (ETLegend x) = getTextColor x
  getTextFont (ETLegend x) = getTextFont x
  getTextSize (ETLegend x) = getTextSize x
  resetAttText (ETLegend x) = resetAttText x
  setTextAttributes (ETLegend x) = setTextAttributes x
  setTextAlign (ETLegend x) = setTextAlign x
  setTextAngle (ETLegend x) = setTextAngle x
  setTextColor (ETLegend x) = setTextColor x
  setTextFont (ETLegend x) = setTextFont x
  setTextSize (ETLegend x) = setTextSize x
  setTextSizePixels (ETLegend x) = setTextSizePixels x

instance ITBox (Exist TLegend) where


instance ITObject (Exist TLegend) where
  draw (ETLegend x) = draw x
  findObject (ETLegend x) = findObject x
  getName (ETLegend x) = getName x
  isA (ETLegend x) = isA x
  isFolder (ETLegend x) = isFolder x
  isEqual (ETLegend x) = isEqual x
  isSortable (ETLegend x) = isSortable x
  paint (ETLegend x) = paint x
  printObj (ETLegend x) = printObj x
  recursiveRemove (ETLegend x) = recursiveRemove x
  saveAs (ETLegend x) = saveAs x
  useCurrentStyle (ETLegend x) = useCurrentStyle x
  write (ETLegend x) = write x

instance ITAttLine (Exist TLegend) where
  getLineColor (ETLegend x) = getLineColor x
  getLineStyle (ETLegend x) = getLineStyle x
  getLineWidth (ETLegend x) = getLineWidth x
  resetAttLine (ETLegend x) = resetAttLine x
  setLineAttributes (ETLegend x) = setLineAttributes x
  setLineColor (ETLegend x) = setLineColor x
  setLineStyle (ETLegend x) = setLineStyle x
  setLineWidth (ETLegend x) = setLineWidth 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
  draw (ETLegendEntry x) = draw x
  findObject (ETLegendEntry x) = findObject x
  getName (ETLegendEntry x) = getName x
  isA (ETLegendEntry x) = isA x
  isFolder (ETLegendEntry x) = isFolder x
  isEqual (ETLegendEntry x) = isEqual x
  isSortable (ETLegendEntry x) = isSortable x
  paint (ETLegendEntry x) = paint x
  printObj (ETLegendEntry x) = printObj x
  recursiveRemove (ETLegendEntry x) = recursiveRemove x
  saveAs (ETLegendEntry x) = saveAs x
  useCurrentStyle (ETLegendEntry x) = useCurrentStyle x
  write (ETLegendEntry x) = write x

instance ITAttText (Exist TLegendEntry) where
  getTextAlign (ETLegendEntry x) = getTextAlign x
  getTextAngle (ETLegendEntry x) = getTextAngle x
  getTextColor (ETLegendEntry x) = getTextColor x
  getTextFont (ETLegendEntry x) = getTextFont x
  getTextSize (ETLegendEntry x) = getTextSize x
  resetAttText (ETLegendEntry x) = resetAttText x
  setTextAttributes (ETLegendEntry x) = setTextAttributes x
  setTextAlign (ETLegendEntry x) = setTextAlign x
  setTextAngle (ETLegendEntry x) = setTextAngle x
  setTextColor (ETLegendEntry x) = setTextColor x
  setTextFont (ETLegendEntry x) = setTextFont x
  setTextSize (ETLegendEntry x) = setTextSize x
  setTextSizePixels (ETLegendEntry x) = setTextSizePixels x

instance ITAttLine (Exist TLegendEntry) where
  getLineColor (ETLegendEntry x) = getLineColor x
  getLineStyle (ETLegendEntry x) = getLineStyle x
  getLineWidth (ETLegendEntry x) = getLineWidth x
  resetAttLine (ETLegendEntry x) = resetAttLine x
  setLineAttributes (ETLegendEntry x) = setLineAttributes x
  setLineColor (ETLegendEntry x) = setLineColor x
  setLineStyle (ETLegendEntry x) = setLineStyle x
  setLineWidth (ETLegendEntry x) = setLineWidth x

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

instance ITAttMarker (Exist TLegendEntry) where
  getMarkerColor (ETLegendEntry x) = getMarkerColor x
  getMarkerStyle (ETLegendEntry x) = getMarkerStyle x
  getMarkerSize (ETLegendEntry x) = getMarkerSize x
  resetAttMarker (ETLegendEntry x) = resetAttMarker x
  setMarkerAttributes (ETLegendEntry x) = setMarkerAttributes x
  setMarkerColor (ETLegendEntry x) = setMarkerColor x
  setMarkerStyle (ETLegendEntry x) = setMarkerStyle x
  setMarkerSize (ETLegendEntry x) = setMarkerSize x

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
  getTextAlign (ETPaveLabel x) = getTextAlign x
  getTextAngle (ETPaveLabel x) = getTextAngle x
  getTextColor (ETPaveLabel x) = getTextColor x
  getTextFont (ETPaveLabel x) = getTextFont x
  getTextSize (ETPaveLabel x) = getTextSize x
  resetAttText (ETPaveLabel x) = resetAttText x
  setTextAttributes (ETPaveLabel x) = setTextAttributes x
  setTextAlign (ETPaveLabel x) = setTextAlign x
  setTextAngle (ETPaveLabel x) = setTextAngle x
  setTextColor (ETPaveLabel x) = setTextColor x
  setTextFont (ETPaveLabel x) = setTextFont x
  setTextSize (ETPaveLabel x) = setTextSize x
  setTextSizePixels (ETPaveLabel x) = setTextSizePixels x

instance ITBox (Exist TPaveLabel) where


instance ITObject (Exist TPaveLabel) where
  draw (ETPaveLabel x) = draw x
  findObject (ETPaveLabel x) = findObject x
  getName (ETPaveLabel x) = getName x
  isA (ETPaveLabel x) = isA x
  isFolder (ETPaveLabel x) = isFolder x
  isEqual (ETPaveLabel x) = isEqual x
  isSortable (ETPaveLabel x) = isSortable x
  paint (ETPaveLabel x) = paint x
  printObj (ETPaveLabel x) = printObj x
  recursiveRemove (ETPaveLabel x) = recursiveRemove x
  saveAs (ETPaveLabel x) = saveAs x
  useCurrentStyle (ETPaveLabel x) = useCurrentStyle x
  write (ETPaveLabel x) = write x

instance ITAttLine (Exist TPaveLabel) where
  getLineColor (ETPaveLabel x) = getLineColor x
  getLineStyle (ETPaveLabel x) = getLineStyle x
  getLineWidth (ETPaveLabel x) = getLineWidth x
  resetAttLine (ETPaveLabel x) = resetAttLine x
  setLineAttributes (ETPaveLabel x) = setLineAttributes x
  setLineColor (ETPaveLabel x) = setLineColor x
  setLineStyle (ETPaveLabel x) = setLineStyle x
  setLineWidth (ETPaveLabel x) = setLineWidth 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
  getTextAlign (ETPaveClass x) = getTextAlign x
  getTextAngle (ETPaveClass x) = getTextAngle x
  getTextColor (ETPaveClass x) = getTextColor x
  getTextFont (ETPaveClass x) = getTextFont x
  getTextSize (ETPaveClass x) = getTextSize x
  resetAttText (ETPaveClass x) = resetAttText x
  setTextAttributes (ETPaveClass x) = setTextAttributes x
  setTextAlign (ETPaveClass x) = setTextAlign x
  setTextAngle (ETPaveClass x) = setTextAngle x
  setTextColor (ETPaveClass x) = setTextColor x
  setTextFont (ETPaveClass x) = setTextFont x
  setTextSize (ETPaveClass x) = setTextSize x
  setTextSizePixels (ETPaveClass x) = setTextSizePixels x

instance ITBox (Exist TPaveClass) where


instance ITObject (Exist TPaveClass) where
  draw (ETPaveClass x) = draw x
  findObject (ETPaveClass x) = findObject x
  getName (ETPaveClass x) = getName x
  isA (ETPaveClass x) = isA x
  isFolder (ETPaveClass x) = isFolder x
  isEqual (ETPaveClass x) = isEqual x
  isSortable (ETPaveClass x) = isSortable x
  paint (ETPaveClass x) = paint x
  printObj (ETPaveClass x) = printObj x
  recursiveRemove (ETPaveClass x) = recursiveRemove x
  saveAs (ETPaveClass x) = saveAs x
  useCurrentStyle (ETPaveClass x) = useCurrentStyle x
  write (ETPaveClass x) = write x

instance ITAttLine (Exist TPaveClass) where
  getLineColor (ETPaveClass x) = getLineColor x
  getLineStyle (ETPaveClass x) = getLineStyle x
  getLineWidth (ETPaveClass x) = getLineWidth x
  resetAttLine (ETPaveClass x) = resetAttLine x
  setLineAttributes (ETPaveClass x) = setLineAttributes x
  setLineColor (ETPaveClass x) = setLineColor x
  setLineStyle (ETPaveClass x) = setLineStyle x
  setLineWidth (ETPaveClass x) = setLineWidth 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
  draw (ETWbox x) = draw x
  findObject (ETWbox x) = findObject x
  getName (ETWbox x) = getName x
  isA (ETWbox x) = isA x
  isFolder (ETWbox x) = isFolder x
  isEqual (ETWbox x) = isEqual x
  isSortable (ETWbox x) = isSortable x
  paint (ETWbox x) = paint x
  printObj (ETWbox x) = printObj x
  recursiveRemove (ETWbox x) = recursiveRemove x
  saveAs (ETWbox x) = saveAs x
  useCurrentStyle (ETWbox x) = useCurrentStyle x
  write (ETWbox x) = write x

instance ITAttLine (Exist TWbox) where
  getLineColor (ETWbox x) = getLineColor x
  getLineStyle (ETWbox x) = getLineStyle x
  getLineWidth (ETWbox x) = getLineWidth x
  resetAttLine (ETWbox x) = resetAttLine x
  setLineAttributes (ETWbox x) = setLineAttributes x
  setLineColor (ETWbox x) = setLineColor x
  setLineStyle (ETWbox x) = setLineStyle x
  setLineWidth (ETWbox x) = setLineWidth 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
  draw (ETFrame x) = draw x
  findObject (ETFrame x) = findObject x
  getName (ETFrame x) = getName x
  isA (ETFrame x) = isA x
  isFolder (ETFrame x) = isFolder x
  isEqual (ETFrame x) = isEqual x
  isSortable (ETFrame x) = isSortable x
  paint (ETFrame x) = paint x
  printObj (ETFrame x) = printObj x
  recursiveRemove (ETFrame x) = recursiveRemove x
  saveAs (ETFrame x) = saveAs x
  useCurrentStyle (ETFrame x) = useCurrentStyle x
  write (ETFrame x) = write x

instance ITAttLine (Exist TFrame) where
  getLineColor (ETFrame x) = getLineColor x
  getLineStyle (ETFrame x) = getLineStyle x
  getLineWidth (ETFrame x) = getLineWidth x
  resetAttLine (ETFrame x) = resetAttLine x
  setLineAttributes (ETFrame x) = setLineAttributes x
  setLineColor (ETFrame x) = setLineColor x
  setLineStyle (ETFrame x) = setLineStyle x
  setLineWidth (ETFrame x) = setLineWidth 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
  draw (ETSliderBox x) = draw x
  findObject (ETSliderBox x) = findObject x
  getName (ETSliderBox x) = getName x
  isA (ETSliderBox x) = isA x
  isFolder (ETSliderBox x) = isFolder x
  isEqual (ETSliderBox x) = isEqual x
  isSortable (ETSliderBox x) = isSortable x
  paint (ETSliderBox x) = paint x
  printObj (ETSliderBox x) = printObj x
  recursiveRemove (ETSliderBox x) = recursiveRemove x
  saveAs (ETSliderBox x) = saveAs x
  useCurrentStyle (ETSliderBox x) = useCurrentStyle x
  write (ETSliderBox x) = write x

instance ITAttLine (Exist TSliderBox) where
  getLineColor (ETSliderBox x) = getLineColor x
  getLineStyle (ETSliderBox x) = getLineStyle x
  getLineWidth (ETSliderBox x) = getLineWidth x
  resetAttLine (ETSliderBox x) = resetAttLine x
  setLineAttributes (ETSliderBox x) = setLineAttributes x
  setLineColor (ETSliderBox x) = setLineColor x
  setLineStyle (ETSliderBox x) = setLineStyle x
  setLineWidth (ETSliderBox x) = setLineWidth 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
  getLineColor (ETTree x) = getLineColor x
  getLineStyle (ETTree x) = getLineStyle x
  getLineWidth (ETTree x) = getLineWidth x
  resetAttLine (ETTree x) = resetAttLine x
  setLineAttributes (ETTree x) = setLineAttributes x
  setLineColor (ETTree x) = setLineColor x
  setLineStyle (ETTree x) = setLineStyle x
  setLineWidth (ETTree x) = setLineWidth x

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

instance ITAttMarker (Exist TTree) where
  getMarkerColor (ETTree x) = getMarkerColor x
  getMarkerStyle (ETTree x) = getMarkerStyle x
  getMarkerSize (ETTree x) = getMarkerSize x
  resetAttMarker (ETTree x) = resetAttMarker x
  setMarkerAttributes (ETTree x) = setMarkerAttributes x
  setMarkerColor (ETTree x) = setMarkerColor x
  setMarkerStyle (ETTree x) = setMarkerStyle x
  setMarkerSize (ETTree x) = setMarkerSize x

instance ITObject (Exist TTree) where
  draw (ETTree x) = draw x
  findObject (ETTree x) = findObject x
  getName (ETTree x) = getName x
  isA (ETTree x) = isA x
  isFolder (ETTree x) = isFolder x
  isEqual (ETTree x) = isEqual x
  isSortable (ETTree x) = isSortable x
  paint (ETTree x) = paint x
  printObj (ETTree x) = printObj x
  recursiveRemove (ETTree x) = recursiveRemove x
  saveAs (ETTree x) = saveAs x
  useCurrentStyle (ETTree x) = useCurrentStyle x
  write (ETTree x) = write 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
  getLineColor (ETChain x) = getLineColor x
  getLineStyle (ETChain x) = getLineStyle x
  getLineWidth (ETChain x) = getLineWidth x
  resetAttLine (ETChain x) = resetAttLine x
  setLineAttributes (ETChain x) = setLineAttributes x
  setLineColor (ETChain x) = setLineColor x
  setLineStyle (ETChain x) = setLineStyle x
  setLineWidth (ETChain x) = setLineWidth x

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

instance ITAttMarker (Exist TChain) where
  getMarkerColor (ETChain x) = getMarkerColor x
  getMarkerStyle (ETChain x) = getMarkerStyle x
  getMarkerSize (ETChain x) = getMarkerSize x
  resetAttMarker (ETChain x) = resetAttMarker x
  setMarkerAttributes (ETChain x) = setMarkerAttributes x
  setMarkerColor (ETChain x) = setMarkerColor x
  setMarkerStyle (ETChain x) = setMarkerStyle x
  setMarkerSize (ETChain x) = setMarkerSize x

instance ITObject (Exist TChain) where
  draw (ETChain x) = draw x
  findObject (ETChain x) = findObject x
  getName (ETChain x) = getName x
  isA (ETChain x) = isA x
  isFolder (ETChain x) = isFolder x
  isEqual (ETChain x) = isEqual x
  isSortable (ETChain x) = isSortable x
  paint (ETChain x) = paint x
  printObj (ETChain x) = printObj x
  recursiveRemove (ETChain x) = recursiveRemove x
  saveAs (ETChain x) = saveAs x
  useCurrentStyle (ETChain x) = useCurrentStyle x
  write (ETChain x) = write 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
  getLineColor (ETNtuple x) = getLineColor x
  getLineStyle (ETNtuple x) = getLineStyle x
  getLineWidth (ETNtuple x) = getLineWidth x
  resetAttLine (ETNtuple x) = resetAttLine x
  setLineAttributes (ETNtuple x) = setLineAttributes x
  setLineColor (ETNtuple x) = setLineColor x
  setLineStyle (ETNtuple x) = setLineStyle x
  setLineWidth (ETNtuple x) = setLineWidth x

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

instance ITAttMarker (Exist TNtuple) where
  getMarkerColor (ETNtuple x) = getMarkerColor x
  getMarkerStyle (ETNtuple x) = getMarkerStyle x
  getMarkerSize (ETNtuple x) = getMarkerSize x
  resetAttMarker (ETNtuple x) = resetAttMarker x
  setMarkerAttributes (ETNtuple x) = setMarkerAttributes x
  setMarkerColor (ETNtuple x) = setMarkerColor x
  setMarkerStyle (ETNtuple x) = setMarkerStyle x
  setMarkerSize (ETNtuple x) = setMarkerSize x

instance ITObject (Exist TNtuple) where
  draw (ETNtuple x) = draw x
  findObject (ETNtuple x) = findObject x
  getName (ETNtuple x) = getName x
  isA (ETNtuple x) = isA x
  isFolder (ETNtuple x) = isFolder x
  isEqual (ETNtuple x) = isEqual x
  isSortable (ETNtuple x) = isSortable x
  paint (ETNtuple x) = paint x
  printObj (ETNtuple x) = printObj x
  recursiveRemove (ETNtuple x) = recursiveRemove x
  saveAs (ETNtuple x) = saveAs x
  useCurrentStyle (ETNtuple x) = useCurrentStyle x
  write (ETNtuple x) = write 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
  getLineColor (ETNtupleD x) = getLineColor x
  getLineStyle (ETNtupleD x) = getLineStyle x
  getLineWidth (ETNtupleD x) = getLineWidth x
  resetAttLine (ETNtupleD x) = resetAttLine x
  setLineAttributes (ETNtupleD x) = setLineAttributes x
  setLineColor (ETNtupleD x) = setLineColor x
  setLineStyle (ETNtupleD x) = setLineStyle x
  setLineWidth (ETNtupleD x) = setLineWidth x

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

instance ITAttMarker (Exist TNtupleD) where
  getMarkerColor (ETNtupleD x) = getMarkerColor x
  getMarkerStyle (ETNtupleD x) = getMarkerStyle x
  getMarkerSize (ETNtupleD x) = getMarkerSize x
  resetAttMarker (ETNtupleD x) = resetAttMarker x
  setMarkerAttributes (ETNtupleD x) = setMarkerAttributes x
  setMarkerColor (ETNtupleD x) = setMarkerColor x
  setMarkerStyle (ETNtupleD x) = setMarkerStyle x
  setMarkerSize (ETNtupleD x) = setMarkerSize x

instance ITObject (Exist TNtupleD) where
  draw (ETNtupleD x) = draw x
  findObject (ETNtupleD x) = findObject x
  getName (ETNtupleD x) = getName x
  isA (ETNtupleD x) = isA x
  isFolder (ETNtupleD x) = isFolder x
  isEqual (ETNtupleD x) = isEqual x
  isSortable (ETNtupleD x) = isSortable x
  paint (ETNtupleD x) = paint x
  printObj (ETNtupleD x) = printObj x
  recursiveRemove (ETNtupleD x) = recursiveRemove x
  saveAs (ETNtupleD x) = saveAs x
  useCurrentStyle (ETNtupleD x) = useCurrentStyle x
  write (ETNtupleD x) = write 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
  getLineColor (ETTreeSQL x) = getLineColor x
  getLineStyle (ETTreeSQL x) = getLineStyle x
  getLineWidth (ETTreeSQL x) = getLineWidth x
  resetAttLine (ETTreeSQL x) = resetAttLine x
  setLineAttributes (ETTreeSQL x) = setLineAttributes x
  setLineColor (ETTreeSQL x) = setLineColor x
  setLineStyle (ETTreeSQL x) = setLineStyle x
  setLineWidth (ETTreeSQL x) = setLineWidth x

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

instance ITAttMarker (Exist TTreeSQL) where
  getMarkerColor (ETTreeSQL x) = getMarkerColor x
  getMarkerStyle (ETTreeSQL x) = getMarkerStyle x
  getMarkerSize (ETTreeSQL x) = getMarkerSize x
  resetAttMarker (ETTreeSQL x) = resetAttMarker x
  setMarkerAttributes (ETTreeSQL x) = setMarkerAttributes x
  setMarkerColor (ETTreeSQL x) = setMarkerColor x
  setMarkerStyle (ETTreeSQL x) = setMarkerStyle x
  setMarkerSize (ETTreeSQL x) = setMarkerSize x

instance ITObject (Exist TTreeSQL) where
  draw (ETTreeSQL x) = draw x
  findObject (ETTreeSQL x) = findObject x
  getName (ETTreeSQL x) = getName x
  isA (ETTreeSQL x) = isA x
  isFolder (ETTreeSQL x) = isFolder x
  isEqual (ETTreeSQL x) = isEqual x
  isSortable (ETTreeSQL x) = isSortable x
  paint (ETTreeSQL x) = paint x
  printObj (ETTreeSQL x) = printObj x
  recursiveRemove (ETTreeSQL x) = recursiveRemove x
  saveAs (ETTreeSQL x) = saveAs x
  useCurrentStyle (ETTreeSQL x) = useCurrentStyle x
  write (ETTreeSQL x) = write x

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

instance ITPolyLine (Exist TPolyLine) where


instance ITObject (Exist TPolyLine) where
  draw (ETPolyLine x) = draw x
  findObject (ETPolyLine x) = findObject x
  getName (ETPolyLine x) = getName x
  isA (ETPolyLine x) = isA x
  isFolder (ETPolyLine x) = isFolder x
  isEqual (ETPolyLine x) = isEqual x
  isSortable (ETPolyLine x) = isSortable x
  paint (ETPolyLine x) = paint x
  printObj (ETPolyLine x) = printObj x
  recursiveRemove (ETPolyLine x) = recursiveRemove x
  saveAs (ETPolyLine x) = saveAs x
  useCurrentStyle (ETPolyLine x) = useCurrentStyle x
  write (ETPolyLine x) = write x

instance ITAttLine (Exist TPolyLine) where
  getLineColor (ETPolyLine x) = getLineColor x
  getLineStyle (ETPolyLine x) = getLineStyle x
  getLineWidth (ETPolyLine x) = getLineWidth x
  resetAttLine (ETPolyLine x) = resetAttLine x
  setLineAttributes (ETPolyLine x) = setLineAttributes x
  setLineColor (ETPolyLine x) = setLineColor x
  setLineStyle (ETPolyLine x) = setLineStyle x
  setLineWidth (ETPolyLine x) = setLineWidth 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
  draw (ETCurlyLine x) = draw x
  findObject (ETCurlyLine x) = findObject x
  getName (ETCurlyLine x) = getName x
  isA (ETCurlyLine x) = isA x
  isFolder (ETCurlyLine x) = isFolder x
  isEqual (ETCurlyLine x) = isEqual x
  isSortable (ETCurlyLine x) = isSortable x
  paint (ETCurlyLine x) = paint x
  printObj (ETCurlyLine x) = printObj x
  recursiveRemove (ETCurlyLine x) = recursiveRemove x
  saveAs (ETCurlyLine x) = saveAs x
  useCurrentStyle (ETCurlyLine x) = useCurrentStyle x
  write (ETCurlyLine x) = write x

instance ITAttLine (Exist TCurlyLine) where
  getLineColor (ETCurlyLine x) = getLineColor x
  getLineStyle (ETCurlyLine x) = getLineStyle x
  getLineWidth (ETCurlyLine x) = getLineWidth x
  resetAttLine (ETCurlyLine x) = resetAttLine x
  setLineAttributes (ETCurlyLine x) = setLineAttributes x
  setLineColor (ETCurlyLine x) = setLineColor x
  setLineStyle (ETCurlyLine x) = setLineStyle x
  setLineWidth (ETCurlyLine x) = setLineWidth 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
  draw (ETCurlyArc x) = draw x
  findObject (ETCurlyArc x) = findObject x
  getName (ETCurlyArc x) = getName x
  isA (ETCurlyArc x) = isA x
  isFolder (ETCurlyArc x) = isFolder x
  isEqual (ETCurlyArc x) = isEqual x
  isSortable (ETCurlyArc x) = isSortable x
  paint (ETCurlyArc x) = paint x
  printObj (ETCurlyArc x) = printObj x
  recursiveRemove (ETCurlyArc x) = recursiveRemove x
  saveAs (ETCurlyArc x) = saveAs x
  useCurrentStyle (ETCurlyArc x) = useCurrentStyle x
  write (ETCurlyArc x) = write x

instance ITAttLine (Exist TCurlyArc) where
  getLineColor (ETCurlyArc x) = getLineColor x
  getLineStyle (ETCurlyArc x) = getLineStyle x
  getLineWidth (ETCurlyArc x) = getLineWidth x
  resetAttLine (ETCurlyArc x) = resetAttLine x
  setLineAttributes (ETCurlyArc x) = setLineAttributes x
  setLineColor (ETCurlyArc x) = setLineColor x
  setLineStyle (ETCurlyArc x) = setLineStyle x
  setLineWidth (ETCurlyArc x) = setLineWidth 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
  getLineColor (ETEfficiency x) = getLineColor x
  getLineStyle (ETEfficiency x) = getLineStyle x
  getLineWidth (ETEfficiency x) = getLineWidth x
  resetAttLine (ETEfficiency x) = resetAttLine x
  setLineAttributes (ETEfficiency x) = setLineAttributes x
  setLineColor (ETEfficiency x) = setLineColor x
  setLineStyle (ETEfficiency x) = setLineStyle x
  setLineWidth (ETEfficiency x) = setLineWidth x

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

instance ITAttMarker (Exist TEfficiency) where
  getMarkerColor (ETEfficiency x) = getMarkerColor x
  getMarkerStyle (ETEfficiency x) = getMarkerStyle x
  getMarkerSize (ETEfficiency x) = getMarkerSize x
  resetAttMarker (ETEfficiency x) = resetAttMarker x
  setMarkerAttributes (ETEfficiency x) = setMarkerAttributes x
  setMarkerColor (ETEfficiency x) = setMarkerColor x
  setMarkerStyle (ETEfficiency x) = setMarkerStyle x
  setMarkerSize (ETEfficiency x) = setMarkerSize x

instance ITObject (Exist TEfficiency) where
  draw (ETEfficiency x) = draw x
  findObject (ETEfficiency x) = findObject x
  getName (ETEfficiency x) = getName x
  isA (ETEfficiency x) = isA x
  isFolder (ETEfficiency x) = isFolder x
  isEqual (ETEfficiency x) = isEqual x
  isSortable (ETEfficiency x) = isSortable x
  paint (ETEfficiency x) = paint x
  printObj (ETEfficiency x) = printObj x
  recursiveRemove (ETEfficiency x) = recursiveRemove x
  saveAs (ETEfficiency x) = saveAs x
  useCurrentStyle (ETEfficiency x) = useCurrentStyle x
  write (ETEfficiency x) = write 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
  draw (ETAxis x) = draw x
  findObject (ETAxis x) = findObject x
  getName (ETAxis x) = getName x
  isA (ETAxis x) = isA x
  isFolder (ETAxis x) = isFolder x
  isEqual (ETAxis x) = isEqual x
  isSortable (ETAxis x) = isSortable x
  paint (ETAxis x) = paint x
  printObj (ETAxis x) = printObj x
  recursiveRemove (ETAxis x) = recursiveRemove x
  saveAs (ETAxis x) = saveAs x
  useCurrentStyle (ETAxis x) = useCurrentStyle x
  write (ETAxis x) = write 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
  getLineColor (ETLatex x) = getLineColor x
  getLineStyle (ETLatex x) = getLineStyle x
  getLineWidth (ETLatex x) = getLineWidth x
  resetAttLine (ETLatex x) = resetAttLine x
  setLineAttributes (ETLatex x) = setLineAttributes x
  setLineColor (ETLatex x) = setLineColor x
  setLineStyle (ETLatex x) = setLineStyle x
  setLineWidth (ETLatex x) = setLineWidth 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
  getTextAlign (ETLatex x) = getTextAlign x
  getTextAngle (ETLatex x) = getTextAngle x
  getTextColor (ETLatex x) = getTextColor x
  getTextFont (ETLatex x) = getTextFont x
  getTextSize (ETLatex x) = getTextSize x
  resetAttText (ETLatex x) = resetAttText x
  setTextAttributes (ETLatex x) = setTextAttributes x
  setTextAlign (ETLatex x) = setTextAlign x
  setTextAngle (ETLatex x) = setTextAngle x
  setTextColor (ETLatex x) = setTextColor x
  setTextFont (ETLatex x) = setTextFont x
  setTextSize (ETLatex x) = setTextSize x
  setTextSizePixels (ETLatex x) = setTextSizePixels x

instance ITObject (Exist TLatex) where
  draw (ETLatex x) = draw x
  findObject (ETLatex x) = findObject x
  getName (ETLatex x) = getName x
  isA (ETLatex x) = isA x
  isFolder (ETLatex x) = isFolder x
  isEqual (ETLatex x) = isEqual x
  isSortable (ETLatex x) = isSortable x
  paint (ETLatex x) = paint x
  printObj (ETLatex x) = printObj x
  recursiveRemove (ETLatex x) = recursiveRemove x
  saveAs (ETLatex x) = saveAs x
  useCurrentStyle (ETLatex x) = useCurrentStyle x
  write (ETLatex x) = write 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
  getTextAlign (ETText x) = getTextAlign x
  getTextAngle (ETText x) = getTextAngle x
  getTextColor (ETText x) = getTextColor x
  getTextFont (ETText x) = getTextFont x
  getTextSize (ETText x) = getTextSize x
  resetAttText (ETText x) = resetAttText x
  setTextAttributes (ETText x) = setTextAttributes x
  setTextAlign (ETText x) = setTextAlign x
  setTextAngle (ETText x) = setTextAngle x
  setTextColor (ETText x) = setTextColor x
  setTextFont (ETText x) = setTextFont x
  setTextSize (ETText x) = setTextSize x
  setTextSizePixels (ETText x) = setTextSizePixels x

instance ITObject (Exist TText) where
  draw (ETText x) = draw x
  findObject (ETText x) = findObject x
  getName (ETText x) = getName x
  isA (ETText x) = isA x
  isFolder (ETText x) = isFolder x
  isEqual (ETText x) = isEqual x
  isSortable (ETText x) = isSortable x
  paint (ETText x) = paint x
  printObj (ETText x) = printObj x
  recursiveRemove (ETText x) = recursiveRemove x
  saveAs (ETText x) = saveAs x
  useCurrentStyle (ETText x) = useCurrentStyle x
  write (ETText x) = write 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
  draw (ETDirectory x) = draw x
  findObject (ETDirectory x) = findObject x
  getName (ETDirectory x) = getName x
  isA (ETDirectory x) = isA x
  isFolder (ETDirectory x) = isFolder x
  isEqual (ETDirectory x) = isEqual x
  isSortable (ETDirectory x) = isSortable x
  paint (ETDirectory x