library(EBImage)
Computes the oriented contour of objects.
x <- readImage(system.file("images", "shapes.png", package="EBImage"))
x <- x[1:120,50:120]
display(x)
oc = ocontour(x)
plot(oc[[1]], type='l')
points(oc[[1]], col=2)
packageVersion("EBImage")
## [1] '4.8.2'
efg
2015-01-23 2353