--

-- Dependencies:

--   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.Vector2 as Vec2 exposing (Vec2, vec2)

import Math.Vector3 as Vec3 exposing (Vec3, vec3)

import Result

import Task

import WebGL

import WebGL.Texture as Texture

​

​

​

-- MAIN

​

​

main =

  Browser.element

    { init = init

    , view = view

    , update = \msg model -> (update msg model, Cmd.none)

    , subscriptions = subscriptions

    }

​

​

​

-- MODEL

​

​

type alias Model =

  { angle : Float

  , texture : Maybe Texture.Texture

  }

​

​

init : () -> (Model, Cmd Msg)

init () =

  ( { angle = 0

    , texture = Nothing

    }

  , Task.attempt GotTexture (Texture.load "https://elm-lang.org/images/wood-crate.jpg")