bat/tests/syntax-tests/highlighted/Elm/test.elm
2020-10-04 15:19:54 +02:00

138 lines
15 KiB
Elm
Vendored
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

-- elm install elm-explorations/linear-algebra
-- elm install elm-explorations/webgl
import Browser
import Browser.Events as E
import Html exposing (Html)
import Html.Attributes exposing (width, height, style)
import Math.Matrix4 as Mat4 exposing (Mat4)
import Math.Vector3 as Vec3 exposing (Vec3, vec3)
import WebGL
-- MAIN
main =
 Browser.element
 { init = init
 , view = view
 , update = update
 , subscriptions = subscriptions
 }
-- MODEL
type alias Model =
 Float
init : () -> (Model, Cmd Msg)
init () =
 ( 0, Cmd.none )
-- UPDATE
type Msg
 = TimeDelta Float
update : Msg -> Model -> (Model, Cmd Msg)
update msg currentTime =
 case msg of
 TimeDelta delta ->
 ( delta + currentTime, Cmd.none )
-- SUBSCRIPTIONS
subscriptions : Model -> Sub Msg
subscriptions _ =
 E.onAnimationFrameDelta TimeDelta
-- VIEW
view : Model -> Html msg
view t =
 WebGL.toHtml
 [ width 400, height 400, style "display" "block"
 ]
 [ WebGL.entity vertexShader fragmentShader mesh { perspective = perspective (t / 1000) }
 ]
perspective : Float -> Mat4
perspective t =
 Mat4.mul
 (Mat4.makePerspective 45 1 0.01 100)
 (Mat4.makeLookAt (vec3 (4 * cos t) 0 (4 * sin t)) (vec3 0 0 0) (vec3 0 1 0))
-- MESH
type alias Vertex =
 { position : Vec3
 , color : Vec3
 }
mesh : WebGL.Mesh Vertex
mesh =
 WebGL.triangles
 [ ( 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)
 )
 ]
-- SHADERS
type alias Uniforms =
 { perspective : Mat4
 }
vertexShader : WebGL.Shader Vertex Uniforms { vcolor : Vec3 }
vertexShader =
 [glsl|
 attribute vec3 position;
 attribute vec3 color;
 uniform mat4 perspective;
 varying vec3 vcolor;
 void main () {
 gl_Position = perspective * vec4(position, 1.0);
 vcolor = color;
 }
 |]
fragmentShader : WebGL.Shader {} Uniforms { vcolor : Vec3 }
fragmentShader =
 [glsl|
 precision mediump float;
 varying vec3 vcolor;
 void main () {
 gl_FragColor = vec4(vcolor, 1.0);
 }
 |]