16 let initial c u x m = {
17 m = m; c = c; u = u; x = x
20 let process_cell st y x c =
22 (A.get_attr L.concat [] st.c y x)
23 (A.get_attr (S.concat "") "" st.u y x)
24 (A.get_attr (S.concat "") "" st.x y x)
27 let process_row st y row =
28 V.iteri (process_cell st y) row
30 let process css uri ext matrix =
31 let st = initial css uri ext matrix in
32 V.iteri (process_row st) matrix.M.m