# NOT RUN {
stimuli <- demo_stim() |> resize(0.5)
rotate(stimuli, 45, fill = "dodgerblue")
rotate(stimuli, 45, fill = "dodgerblue", keep_size = FALSE)
# }
# NOT RUN {
# if images are not in the centre of the image,
# try setting the origin to tem or specific point(s)
offset <- stimuli[1] |>
draw_tem() |>
pad(0, 250, 0, 0, fill = "dodgerblue")
rotate(offset, 45, origin = "image", fill = "pink")
rotate(offset, 45, origin = "tem", fill = "pink")
# rotate around point 0 (left eye)
offset |> crop_tem() |> rep(8) |>
rotate(seq(0, 325, 45), origin = 0, fill = "pink") |>
animate(fps = 5)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab