Music.Theory.Diagram.Grid

Functions for drawing grid and table structure common in music theory and in compositions such as Morton Feldman's durational grid music of the 1950's.

Grid

type R = Double

Real number, synonym for Double.

type P = (R, R)

Point given as pair of R.

type C = (R, R, R)

Red, green and blue colour triple.

type L = (Int, Int)

Cell location as row and column indices.

type Cell = (L, C, String)

Cell

type Grid = [Cell]

Grid

grid :: P -> (R, R) -> (Int, Int) -> [P]

Given (x,y) upper-left co-ordinate of grid, (w,h) cell dimensions, and (r,c) grid dimensions, make list of upper-left co-ordinates of cells.

 grid (10,10) (50,10) (2,2) == [(10,10),(60,10),(10,20),(60,20)]

grid_pt :: (R, R) -> (R, R) -> L -> P

Variant on grid that constructs a single point.

 map (grid_pt (10,10) (50,10)) [(0,0),(1,1)] == [(10,10),(60,20)]

displace :: (R, R) -> P -> P

Displace P (pointwise addition).

 displace (2,3) (1,1) == (3,4)

mk_bbox :: (Int, Int) -> (R, R)

Make a bounding box from row and column dimensions.

Table

type Table_Cell = ([Attr], [Content])

A table cell is an Attr and Content duple.

type Caption = [Content]

type Table = (Caption, [[Table_Cell]])

Table of row order Table_Cells.

simple_table :: Caption -> [[Content]] -> Table

Construct a Table with one Content per cell.

simple_table_class :: Caption -> [[(String, Content)]] -> Table

Construct a Table with one Content per cell, and an associated class.

type Build_F = (Int, Int) -> Maybe Table_Cell

build_table_m :: Caption -> (Int, Int) -> Build_F -> Table

Build a table of (rows,columns) dimensions given a function from (row,column) to Maybe Table_Cell. If the function is Nothing the cell is skipped, becase another cell has claimed it's locations with colspan or rowspan.

build_table :: Caption -> (Int, Int) -> ((Int, Int) -> Table_Cell) -> Table

Build a table of (rows,columns) dimensions given a function from (row,column) to Table_Cell.

table :: Table -> Content

Render Table as HTML table.

type Table_Set = [Table]

A set of related tables.

table_set :: Table_Set -> Content

Render a Table_Sets in a div with class table-set.

page :: Maybe FilePath -> [Table_Set] -> String

Render set of Table_Sets as HTML.

to_html :: FilePath -> Maybe FilePath -> [Table_Set] -> IO ()

Write set of Table_Sets to HTML file.