diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.elm | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/example.elm')
-rw-r--r-- | tests/examplefiles/example.elm | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/tests/examplefiles/example.elm b/tests/examplefiles/example.elm deleted file mode 100644 index 222d46e5..00000000 --- a/tests/examplefiles/example.elm +++ /dev/null @@ -1,58 +0,0 @@ -import Math.Vector3 (..) -import Math.Matrix4 (..) -import Graphics.WebGL (..) - --- Create a mesh with two triangles - -type Vertex = { position:Vec3, color:Vec3 } - -mesh : [Triangle Vertex] -mesh = [ ( Vertex (vec3 0 0 0) (vec3 1 0 0) - , Vertex (vec3 1 1 0) (vec3 0 1 0) - , Vertex (vec3 1 -1 0) (vec3 0 0 1) - ) - ] - --- Create the scene - -main : Signal Element -main = scene <~ foldp (+) 0 (fps 30) - -scene : Float -> Element -scene t = - webgl (400,400) - [ entity vertexShader fragmentShader mesh { view = view (t / 1000) } ] - -view : Float -> Mat4 -view t = - mul (makePerspective 45 1 0.01 100) - (makeLookAt (vec3 (4 * cos t) 0 (4 * sin t)) (vec3 0 0 0) (vec3 0 1 0)) - --- Shaders - -vertexShader : Shader { attr | position:Vec3, color:Vec3 } { unif | view:Mat4 } { vcolor:Vec3 } -vertexShader = [glsl| - -attribute vec3 position; -attribute vec3 color; -uniform mat4 view; -varying vec3 vcolor; - -void main () { - gl_Position = view * vec4(position, 1.0); - vcolor = color; -} - -|] - -fragmentShader : Shader {} u { vcolor:Vec3 } -fragmentShader = [glsl| - -precision mediump float; -varying vec3 vcolor; - -void main () { - gl_FragColor = vec4(vcolor, 1.0); -} - -|] |