git.iko.soy/elk
on master help sign in
The box is resizable
4384bf8John P Mayer Jr
tests/good/Box.elm+2−1
compare with master
unifiedsplit
@@ -1,6 +1,7 @@
1
1
2import MJS (V3,M4x4,v3,m4x4makeRotate,m4x4makePerspective,m4x4makeLookAt,m4x4mul)
2import MJS (V3,M4x4,v3,m4x4makeRotate,m4x4makePerspective,m4x4makeLookAt,m4x4mul)
3import Graphics.WebGL (Program, link, Triangle, zipTriangle, Buffer, bind, Model, encapsulate, webgl)
3import Graphics.WebGL (Program, link, Triangle, zipTriangle, Buffer, bind, Model, encapsulate, webgl)
4+import Window(dimensions)
4
5
5-- Define what our geometry looks like
6-- Define what our geometry looks like
6
7
@@ -76,5 +77,5 @@ rot = (\t -> { rot = m4x4mul (m4x4makeRotate (3*t) (v3 0 1 0)) (m4x4makeRotate (
76draw : Signal [Model]
77draw : Signal [Model]
77draw = combine [ (encapsulate prog buf) <~ rot ]
78draw = combine [ (encapsulate prog buf) <~ rot ]
78
79
79−main = webgl (400,400) <~ draw
80+main = webgl <~ dimensions ~ draw
80
81