EXT_clip_control.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from EXT_clip_control (webref). Do not edit.
module JSDOM.Generated.EXT_clip_control
       (clipControlEXT, pattern LOWER_LEFT_EXT, pattern UPPER_LEFT_EXT, pattern NEGATIVE_ONE_TO_ONE_EXT, pattern ZERO_TO_ONE_EXT, pattern CLIP_ORIGIN_EXT, pattern CLIP_DEPTH_MODE_EXT, EXT_clip_control(..), gTypeEXT_clip_control)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

clipControlEXT :: (MonadDOM m) => EXT_clip_control -> Word -> Word -> m ()
clipControlEXT self origin depth = liftDOM (void (self ^. jsf "clipControlEXT" [toJSVal origin, toJSVal depth]))

pattern LOWER_LEFT_EXT = 0x8CA1

pattern UPPER_LEFT_EXT = 0x8CA2

pattern NEGATIVE_ONE_TO_ONE_EXT = 0x935E

pattern ZERO_TO_ONE_EXT = 0x935F

pattern CLIP_ORIGIN_EXT = 0x935C

pattern CLIP_DEPTH_MODE_EXT = 0x935D