~alcinnz/CatTrap

ref: 474bbc4e0ba0be7bdb7b84d0dba7d84931a555a0 CatTrap/Graphics/Layout.hs -rw-r--r-- 505 bytes
474bbc4e — Adrian Cochrane Draft shunting yard interpreter for calc(). 1 year, 7 months ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
module Graphics.Layout where

import Graphics.Layout.Box
import Graphics.Layout.Grid

data LayoutItem n x =
    LayoutFlow x (PaddedBox n) [LayoutItem n]
    | LayoutGrid x (Grid n) [(GridItem n, LayoutItem n)]
-- More to come...

sizeBound :: LayoutItem Length () -> LayoutItem Length ()
size :: PaddedBox Double -> LayoutItem Length () -> LayoutItem Double ()
position :: LayoutItem Double -> LayoutItem Double Size
layout :: PaddedBox Double -> LayoutItem Length () -> Bool -> [LayoutItem Double Size]