Skip to content

Instantly share code, notes, and snippets.

@manuscrypt
Created June 18, 2016 22:30
Show Gist options
  • Save manuscrypt/2934dfcdb567661218a0470e8e993d5f to your computer and use it in GitHub Desktop.
Save manuscrypt/2934dfcdb567661218a0470e8e993d5f to your computer and use it in GitHub Desktop.
type alias Cell a =
{ pos: Vec2
, content: VirtualDom.Node a
}
type Cols a
= Cols (List (Cell a)) (Cell a) (List (Cell a))
type Rows a
= Rows (List (Cols a)) (Cols a) (List (Cols a))
type alias Model a msg =
{ animation: Animation (Window.Size->Svg msg)
, rows : Rows a
, windowSize: Window.Size
}
type Msg
= MouseOver
| NoOp
| Animate Time
| OnSizeChanged Window.Size
| StartAnimation
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment