--

-- Dependencies:

--   elm install elm/json

--   elm install elm-explorations/linear-algebra

--   elm install elm-explorations/webgl

--

-- Thanks to The PaperNES Guy for the texture:

--   https://the-papernes-guy.deviantart.com/art/Thwomps-Thwomps-Thwomps-186879685

​

​

import Browser

import Browser.Dom as Dom

import Browser.Events as E

import Html exposing (Html)

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

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 Result

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 =

  { width : Float

  , height : Float

  , x : Float

  , y : Float