{-# LANGUAGE ForeignFunctionInterface #-}

module GEGL.FFI.Color
  ( GeglColor(..)
  , GeglColorDummy
  , c_gegl_color_new
  , c_gegl_color_set_rgba
  ) where

import Foreign
import Foreign.C.Types
import Foreign.C.String (CString)

-- import GEGL.Color

-- ANOTHER HACKY POINTER!!!
type GeglColorDummy = Ptr ()
newtype GeglColor = GeglColor GeglColorDummy

foreign import ccall unsafe "gegl.h gegl_color_new"
  c_gegl_color_new :: CString -> IO GeglColorDummy

foreign import ccall unsafe "gegl.h gegl_color_set_rgba"
  c_gegl_color_set_rgba :: GeglColorDummy -> CDouble -> CDouble -> CDouble -> CDouble -> IO ()