Commit 439e7f67 authored by Adrian Cochrane's avatar Adrian Cochrane

Note that there'd be utility functions

parent d5a5a3d5
......@@ -23,6 +23,7 @@ type Time = Time Real # Unix time
type Duration = Duration Real # In seconds
type Timeline a = Change Duration a Timeline a | Future Duration Timeline a | End
# Inputs
type MouseButton = Primary | Secondary | Middle
type Coord = Coord Real Real
type Mouse = Scroll Signed Signed |
......@@ -32,7 +33,10 @@ type Keyboard = Down Char | Up Char | Press Char
type Touch = Down Coord | Move Coord | Up Coord
type GameControl = # TODO
type Color = Color Byte Byte Byte Byte
# Outputs
type Color = Color Byte Byte Byte Byte # red green blue opacity
type Rect = Rect Coord Coord # topleft size
type Image = Fill Color Rect | Sprite Image Image # foreground background, with foreground clipped to background
type Sound = Sound List Tuple Real Real
\ No newline at end of file
type Sound = Sound List Tuple Real Real
# TODO functions to operate on these types
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment