grid = (
({wide, tall, dash, showH, showV, showUps, showDowns}) =>
(series) =>
R.map(scale(width / wide))(
R.unnest(
[
show(R.map(v(tall))(d3.range(wide + 1)))(showH),
show(R.map(h(wide))(d3.range(tall + 1)))(showV),
show(R.map(line(up({wide, tall})))(series))(showUps),
show(R.map(line(down({wide, tall})))(series))(showDowns),
]
)
)
)
(settings)(series)