# NOT RUN {
# load an image and mirror it
o <- demo_tems("frl") |> resize(0.5)
m <- mirror(o, "frl")
# visualise the face outline points
c(o, m) |>
subset_tem(features("face")) |>
draw_tem(pt.shape = "index", pt.size = 15) |>
label(c("original", "mirrored"))
# }
Run the code above in your browser using DataLab