clear area

This commit is contained in:
nek0 2016-12-11 12:24:02 +01:00
parent f034f40c2d
commit 5a0b78827c

View file

@ -3,6 +3,8 @@
-- | Module for drawing primitives
module Affection.Draw
( drawRect
-- , clear
, clearArea
) where
import Affection.Types (DrawType(..), Affection, GeglRectangle(..), liftIO)
@ -77,3 +79,16 @@ unsafeColorize col =
, G.CVdouble $ CDouble $ b
, G.CVdouble $ CDouble $ a
)
-- -- | Clear all data from a buffer
-- clear
-- :: G.GeglBuffer -- ^ Target buffer
-- -> IO ()
-- clear buf = clearArea buf =<< G.gegl_rectangle_infinite_plane
-- | Clear a specified area of a buffer from all data
clearArea
:: G.GeglBuffer -- ^ Target buffer
-> G.GeglRectangle -- ^ Area to clear
-> IO ()
clearArea = G.gegl_buffer_clear