Skip to content

Instantly share code, notes, and snippets.

@dallinbeutler
Created July 17, 2019 23:07
Show Gist options
  • Save dallinbeutler/83d99e638c35521a590987b9125305d1 to your computer and use it in GitHub Desktop.
Save dallinbeutler/83d99e638c35521a590987b9125305d1 to your computer and use it in GitHub Desktop.
Some Ideas on how a main Program might communicate with its view
open System
type Resource =
|Texture of string
|Sound of string
|Model of string
|Data of string * System.Type
|Pipeline of Veldrid.Pipeline
module Draw3D =
type Mat4 = System.Numerics.Matrix4x4
type Camera = {proj:Mat4; view:Mat4}
type Context = {cam:Camera; world:Mat4 }
type Command =
|Text of string
module Draw2D =
type Pos = System.Numerics.Vector2
type Command =
|Text of obj
|SetCursor of int * int
|Square of int * int * Command list
open System.Numerics
type RecievedInput=
|Key of string
|Mouse of Vector2
type RequestInput =
|Key of string
|Mouse of string
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment