Skip to contents

Shapes

Zuguang Gu ()

2024-09-05

Source: vignettes/shape.Rmd
shape.Rmd

Shapes in 2x2 curves 

draw_multiple_curves(
    sfc_2x2("I", 11), 
    sfc_2x2("R", 22),
    sfc_2x2("I", 22), 
    sfc_2x2("L", 11, rot = 90),
    nrow = 1
)

draw_multiple_curves(
    sfc_shape(sfc_2x2("I", 11)), 
    sfc_shape(sfc_2x2("R", 22)),
    sfc_shape(sfc_2x2("I", 22)), 
    sfc_shape(sfc_2x2("L", 11, rot = 90)),
    nrow = 1, col = "black"
)

sl = all_2x2_shapes(2)
draw_multiple_curves(list = sl, lwd = 2, col = "black", nrow = 2)

sl = all_2x2_shapes(3)
draw_multiple_curves(list = sl, lwd = 2, col = "black", nrow = 3)

Shapes in 3x3 Peano curves 

p = sfc_3x3_peano("I", 11)
draw_multiple_curves(
    p, 
    sfc_dflip(p),
    sfc_shape(p), 
    sfc_shape(sfc_dflip(p, slop = 1)),
    nrow = 2, col = "black")

## [1] 272
draw_multiple_curves(sl[1:12], lwd = 2, col = "black", nrow = 2)

Shapes in 3x3 Meander curves 

sl = all_3x3_meander_shapes(2)
draw_multiple_curves(list = sl, lwd = 2, col = "black", ncol = 4)

sl = all_3x3_meander_shapes(3)
draw_multiple_curves(list = sl, lwd = 2, col = "black", ncol = 4)