# NOT RUN {
# remove external template points and crop
stimuli <- demo_stim() |> subset_tem(features("face")) |> crop_tem(25)
# three styles of mask
omask1 <- mask_oval(stimuli) |> label("default")
omask2 <- mask_oval(stimuli, each = FALSE) |> label("each = FALSE")
omask3 <- mask_oval(stimuli, bounds = list(t= 50, r = 30, b = 40, l = 30)) |>
label("manual bounds")
# visualise masks
c(omask1, omask2, omask3) |> plot(nrow = 2, byrow = FALSE)
# }
Run the code above in your browser using DataLab