~alcinnz/CatTrap

ref: 09970dfcfc40c806e18836659ab4b3a3fa3784ce CatTrap/Graphics/Layout.hs -rw-r--r-- 505 bytes
09970dfc — Adrian Cochrane Draft public API for CatTrap. 1 year, 4 months ago 
                                                                                
09970dfc Adrian Cochrane 














1 year, 4 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]