libraries/Graphics/WebGL.elm · elk

on 68e8bca help sign in

34 lines 987 B history raw

1module Graphics.WebGL (link, bind, encapsulate, webgl) where

3{-| WebGL -}

5import Graphics.Element (Element)

6import Native.Graphics.WebGL

8data GL = Dummy_GL

10data Shader auv = Dummy_Shader

11data Program a u = Dummy_Program

13link : GL -> Shader { attribute : a, uniform : u, varying : v } -> Shader { attribute : {}, uniform : {}, varying : v } -> Program a u

14link = Native.Graphics.WebGL.link

16-- Binder really should not need a program

17-- I need runtime type information from something though...

19data Buffer a = Dummy_Buffer

21bind : GL -> Program a u -> [a] -> Buffer a

22bind = Native.Graphics.WebGL.bind

24-- Now I cheat here because elm lacks existential types or rank-n

25-- I'm in essense doing the following

26-- data Model = forall a u. Model (Program a u) (Buffer a) u

28data Model = Dummy_Model

30encapsulate : Program a u -> Buffer a -> u -> Model

31encapsulate = Native.Graphics.WebGL.encapsulate

33webgl : Int -> Int -> (GL -> [Model]) -> Element

34webgl = Native.Graphics.WebGL.webgl