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)
26 let process_row st y row =
27 V.iteri (process_cell st y) row
29 let process css uri ext matrix =
30 let st = initial css uri ext matrix in
31 V.iteri (process_row st) matrix.M.m