# NOT RUN {
#Plot the dragon
plot_image(dragon)
#Add an overlay of a red semi-transparent circle:
circlemat = generate_2d_disk(min(dim(dragon)[1:2]))
circlemat = circlemat/max(circlemat)
#Create RGBA image, with a transparency of 0.5
rgba_array = array(0, dim=c(nrow(circlemat),ncol(circlemat),4))
rgba_array[,,1] = circlemat
rgba_array[,,4] = 0.5
dragon_clipped = dragon
dragon_clipped[dragon_clipped > 1] = 1
# }
# NOT RUN {
add_image_overlay(dragon_clipped, image_overlay = rgba_array, preview = TRUE)
# }
Run the code above in your browser using DataLab