PageScroll.model

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