module GHCJS.DOM.JSFFI.Generated.SVGPathSeg
(pattern PATHSEG_UNKNOWN, pattern PATHSEG_CLOSEPATH,
pattern PATHSEG_MOVETO_ABS, pattern PATHSEG_MOVETO_REL,
pattern PATHSEG_LINETO_ABS, pattern PATHSEG_LINETO_REL,
pattern PATHSEG_CURVETO_CUBIC_ABS,
pattern PATHSEG_CURVETO_CUBIC_REL,
pattern PATHSEG_CURVETO_QUADRATIC_ABS,
pattern PATHSEG_CURVETO_QUADRATIC_REL, pattern PATHSEG_ARC_ABS,
pattern PATHSEG_ARC_REL, pattern PATHSEG_LINETO_HORIZONTAL_ABS,
pattern PATHSEG_LINETO_HORIZONTAL_REL,
pattern PATHSEG_LINETO_VERTICAL_ABS,
pattern PATHSEG_LINETO_VERTICAL_REL,
pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS,
pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL,
pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS,
pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL, js_getPathSegType,
getPathSegType, js_getPathSegTypeAsLetter, getPathSegTypeAsLetter,
SVGPathSeg(..), gTypeSVGPathSeg, IsSVGPathSeg, toSVGPathSeg)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
pattern PATHSEG_UNKNOWN = 0
pattern PATHSEG_CLOSEPATH = 1
pattern PATHSEG_MOVETO_ABS = 2
pattern PATHSEG_MOVETO_REL = 3
pattern PATHSEG_LINETO_ABS = 4
pattern PATHSEG_LINETO_REL = 5
pattern PATHSEG_CURVETO_CUBIC_ABS = 6
pattern PATHSEG_CURVETO_CUBIC_REL = 7
pattern PATHSEG_CURVETO_QUADRATIC_ABS = 8
pattern PATHSEG_CURVETO_QUADRATIC_REL = 9
pattern PATHSEG_ARC_ABS = 10
pattern PATHSEG_ARC_REL = 11
pattern PATHSEG_LINETO_HORIZONTAL_ABS = 12
pattern PATHSEG_LINETO_HORIZONTAL_REL = 13
pattern PATHSEG_LINETO_VERTICAL_ABS = 14
pattern PATHSEG_LINETO_VERTICAL_REL = 15
pattern PATHSEG_CURVETO_CUBIC_SMOOTH_ABS = 16
pattern PATHSEG_CURVETO_CUBIC_SMOOTH_REL = 17
pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_ABS = 18
pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19
foreign import javascript unsafe "$1[\"pathSegType\"]"
js_getPathSegType :: SVGPathSeg -> IO Word
getPathSegType :: (MonadIO m, IsSVGPathSeg self) => self -> m Word
getPathSegType self
= liftIO (js_getPathSegType (toSVGPathSeg self))
foreign import javascript unsafe "$1[\"pathSegTypeAsLetter\"]"
js_getPathSegTypeAsLetter :: SVGPathSeg -> IO JSString
getPathSegTypeAsLetter ::
(MonadIO m, IsSVGPathSeg self, FromJSString result) =>
self -> m result
getPathSegTypeAsLetter self
= liftIO
(fromJSString <$> (js_getPathSegTypeAsLetter (toSVGPathSeg self)))