module NanoVG.Internal.State where
import qualified Foreign.Ptr as C2HSImp
import NanoVG.Internal.Context
save :: (Context) -> IO ()
save a1 =
let {a1' = id a1} in
save'_ a1' >>
return ()
restore :: (Context) -> IO ()
restore a1 =
let {a1' = id a1} in
restore'_ a1' >>
return ()
reset :: (Context) -> IO ()
reset a1 =
let {a1' = id a1} in
reset'_ a1' >>
return ()
foreign import ccall unsafe "NanoVG/Internal/State.chs.h nvgSave"
save'_ :: ((Context) -> (IO ()))
foreign import ccall unsafe "NanoVG/Internal/State.chs.h nvgRestore"
restore'_ :: ((Context) -> (IO ()))
foreign import ccall unsafe "NanoVG/Internal/State.chs.h nvgReset"
reset'_ :: ((Context) -> (IO ()))