{-# LANGUAGE ForeignFunctionInterface, TypeFamilies,
  MultiParamTypeClasses, FlexibleInstances, TypeSynonymInstances,
  EmptyDataDecls, ExistentialQuantification, ScopedTypeVariables #-}
module HROOT.Core.TAtt3D.RawType where
import Foreign.Ptr
import FFICXX.Runtime.Cast

data RawTAtt3D

newtype TAtt3D = TAtt3D (Ptr RawTAtt3D)
               deriving (Eq, Ord, Show)

instance FPtr TAtt3D where
        type Raw TAtt3D = RawTAtt3D
        get_fptr (TAtt3D ptr) = ptr
        cast_fptr_to_obj = TAtt3D