Adds canvas bindings

Author: Mike Solomon

src/Web/GPU/GPUCanvasAlphaMode.purs

@@ -0,0 +1,19 @@
+module Web.GPU.GPUCanvasAlphaMode
+  ( GPUCanvasAlphaMode
+  , opaque
+  , premultiplied
+  ) where
+
+import Prelude
+
+newtype GPUCanvasAlphaMode = GPUCanvasAlphaMode String
+
+derive instance Eq GPUCanvasAlphaMode
+derive instance Ord GPUCanvasAlphaMode
+derive newtype instance Show GPUCanvasAlphaMode
+
+opaque :: GPUCanvasAlphaMode
+opaque = GPUCanvasAlphaMode "opaque"
+
+premultiplied :: GPUCanvasAlphaMode
+premultiplied = GPUCanvasAlphaMode "premultiplied"

src/Web/GPU/GPUCanvasConfiguration.purs

@@ -0,0 +1,25 @@
+module Web.GPU.GPUCanvasConfiguration where
+
+import Data.Newtype (class Newtype)
+import Web.GPU.GPUCanvasAlphaMode (GPUCanvasAlphaMode)
+import Web.GPU.GPUTextureFormat (GPUTextureFormat)
+import Web.GPU.GPUTextureUsage (GPUTextureUsageFlags)
+import Web.GPU.Internal.RequiredAndOptional (RequiredAndOptional)
+import Web.GPU.Internal.Types (GPUDevice)
+import Web.GPU.PredefinedColorSpace (PredefinedColorSpace)
+
+newtype GPUCanvasConfiguration = GPUCanvasConfiguration
+  ( RequiredAndOptional
+      ( device :: GPUDevice
+      , format :: GPUTextureFormat
+
+      )
+      ( usage :: GPUTextureUsageFlags
+      , viewFormats :: Array GPUTextureFormat
+      , colorSpace :: PredefinedColorSpace
+      , alphaMode :: GPUCanvasAlphaMode
+
+      )
+  )
+
+derive instance Newtype GPUCanvasConfiguration _

src/Web/GPU/GPUCanvasContext.js

@@ -0,0 +1,6 @@
+export const canvasImpl = (context) => () => context.canvas;
+export const configureImpl = (context) => (descriptor) => () =>
+  context.configure(descriptor);
+export const unconfigureImpl = (context) => () => context.unconfigure();
+export const getCurrentTextureImpl = (context) => () =>
+  context.getCurrentTexture();

src/Web/GPU/GPUCanvasContext.purs

@@ -0,0 +1,34 @@
+module Web.GPU.GPUCanvasContext
+  ( canvas
+  , configure
+  , getCurrentTexture
+  , unconfigure
+  ) where
+
+import Prelude
+
+import Effect (Effect)
+import Web.GPU.GPUCanvasConfiguration (GPUCanvasConfiguration)
+import Web.GPU.Internal.Types (GPUCanvasContext, GPUTexture)
+import Web.HTML (HTMLCanvasElement)
+
+foreign import canvasImpl :: GPUCanvasContext -> Effect HTMLCanvasElement
+
+canvas :: GPUCanvasContext -> Effect HTMLCanvasElement
+canvas = canvasImpl
+
+foreign import configureImpl
+  :: GPUCanvasContext -> GPUCanvasConfiguration -> Effect Unit
+
+configure :: GPUCanvasContext -> GPUCanvasConfiguration -> Effect Unit
+configure = configureImpl
+
+foreign import unconfigureImpl :: GPUCanvasContext -> Effect Unit
+
+unconfigure :: GPUCanvasContext -> Effect Unit
+unconfigure = unconfigureImpl
+
+foreign import getCurrentTextureImpl :: GPUCanvasContext -> Effect GPUTexture
+
+getCurrentTexture :: GPUCanvasContext -> Effect GPUTexture
+getCurrentTexture = getCurrentTextureImpl

src/Web/GPU/GPUQuerySet.js

@@ -0,0 +1,3 @@
+export const destroyImpl = (querySet) => () => querySet.destroy();
+export const typeImpl = (querySet) => () => querySet.type;
+export const countImpl = (querySet) => () => querySet.count;

src/Web/GPU/GPUQuerySet.purs

@@ -0,0 +1,26 @@
+module Web.GPU.GPUQuerySet
+  ( count
+  , destroy
+  , type'
+  ) where
+
+import Prelude
+
+import Effect (Effect)
+import Web.GPU.GPUQueryType (GPUQueryType)
+import Web.GPU.Internal.Types (GPUQuerySet, GPUSize32)
+
+foreign import destroyImpl :: GPUQuerySet -> Effect Unit
+
+destroy :: GPUQuerySet -> Effect Unit
+destroy = destroyImpl
+
+foreign import typeImpl :: GPUQuerySet -> Effect GPUQueryType
+
+type' :: GPUQuerySet -> Effect GPUQueryType
+type' = typeImpl
+
+foreign import countImpl :: GPUQuerySet -> Effect GPUSize32
+
+count :: GPUQuerySet -> Effect Int
+count = countImpl

src/Web/GPU/HTMLCanvasElement.js

@@ -0,0 +1,4 @@
+export const getContextImpl = (just) => (nothing) => (canvas) => () => {
+  const o = canvas.getContext("webgpu");
+  return o ? just(o) : nothing;
+};

src/Web/GPU/HTMLCanvasElement.purs

@@ -0,0 +1,17 @@
+module Web.GPU.HTMLCanvasElement
+  ( getContext
+  ) where
+
+import Data.Maybe (Maybe(..))
+import Effect (Effect)
+import Web.GPU.Internal.Types (GPUCanvasContext)
+import Web.HTML (HTMLCanvasElement)
+
+foreign import getContextImpl
+  :: (GPUCanvasContext -> Maybe GPUCanvasContext)
+  -> Maybe GPUCanvasContext
+  -> HTMLCanvasElement
+  -> Effect (Maybe GPUCanvasContext)
+
+getContext ∷ HTMLCanvasElement → Effect (Maybe GPUCanvasContext)
+getContext = getContextImpl Just Nothing

src/Web/GPU/Internal/Types.purs

@@ -8,6 +8,7 @@ module Web.GPU.Internal.Types
   , GPUBindGroupLayoutEntry
   , GPUBuffer
   , GPUBufferDynamicOffset
+  , GPUCanvasContext
   , GPUColor
   , GPUCommandBuffer
   , GPUCommandEncoder
@@ -20,8 +21,8 @@ module Web.GPU.Internal.Types
   , GPUImageCopyExternalImageSource
   , GPUIndex32
   , GPUIntegerCoordinate
-  , GPUOrigin3D
   , GPUOrigin2D
+  , GPUOrigin3D
   , GPUPipelineLayout
   , GPUQuerySet
   , GPUQueue
@@ -78,6 +79,7 @@ data GPUComputePassEncoder
 data GPUCommandBuffer
 data GPURenderBundle
 data GPUImageCopyExternalImageSource
+data GPUCanvasContext
 data GPUOrigin3D
 data GPUExtent3D
 data GPUOrigin2D