p = sfc_3x3_peano("I", level = 3)
draw_multiple_curves(
p,
sfc_reduce(p, 2),
sfc_reduce(p, 1),
nrow = 1)
p = hilbert_curve(level = 4)
draw_multiple_curves(
p,
sfc_reduce(p, 3),
sfc_reduce(p, 2),
nrow = 1)
p = hilbert_curve(3)
draw_multiple_curves(
add_base_structure(p, level = 1),
add_base_structure(p, level = 2),
nrow = 1
)
Run the code above in your browser using DataLab