# NOT RUN {
nosquash <- demo_stim(1) |>
crop(0.4, 0.5)
squash <- demo_stim(1) |>
crop(0.4, 0.5) |>
squash_tem()
# add padding and visualise templates
c(nosquash, squash) |>
pad(50) |>
draw_tem(pt.size = 5)
# }
Run the code above in your browser using DataLab