-- 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 =