@@ -1,6 +1,7 @@
11
22import MJS (V3,M4x4,v3,m4x4makeRotate,m4x4makePerspective,m4x4makeLookAt,m4x4mul)
33import Graphics.WebGL (Program, link, Triangle, zipTriangle, Buffer, bind, Model, encapsulate, webgl)
4+import Window(dimensions)
45
56-- Define what our geometry looks like
67
@@ -76,5 +77,5 @@ rot = (\t -> { rot = m4x4mul (m4x4makeRotate (3*t) (v3 0 1 0)) (m4x4makeRotate (
7677draw : Signal [Model]
7778draw = combine [ (encapsulate prog buf) <~ rot ]
7879
79−main = webgl (400,400) <~ draw
80+main = webgl <~ dimensions ~ draw
8081