--

-- Dependencies:

--   elm install elm-explorations/linear-algebra

--   elm install elm-explorations/webgl

--

-- Try adding the ability to crouch or to land on top of the crate!

--

​

​

import Browser

import Browser.Dom as Dom

import Browser.Events as E

import Html exposing (Html, p, text, div)

import Html.Attributes exposing (width, height, style)

import Json.Decode as D

import Math.Matrix4 as Mat4 exposing (Mat4)

import Math.Vector2 as Vec2 exposing (Vec2, vec2)

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

import Task

import WebGL

import WebGL.Texture as Texture

​

​

​

-- MAIN

​

​

main : Program () Model Msg

main =

  Browser.element

    { init = init

    , view = view

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

    , subscriptions = subscriptions

    }

​

​

​

-- MODEL

​

​

type alias Model =

  { keys : Keys

  , width : Float

  , height : Float

  , person : Person

  , texture : Maybe Texture.Texture

  }