~alcinnz/CatTrap

ref: 3dce4d79a99984588660089433a6a7eb78701300 CatTrap/Graphics/Layout.hs -rw-r--r-- 513 bytes
3dce4d79 — Adrian Cochrane Unit test calc() implementation! 1 year, 9 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 x]
    | LayoutGrid x (Grid n) [(GridItem n, LayoutItem n x)]
-- 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]-}