# NOT RUN {
tr = Tract(c(x=25,y=25), cellSize=0.5)
btr = bufferedTract(5, tr)
dlogs = downLogs(20, btr, buttDiams=c(25,35),logLens=c(3,10))
plot(btr, axes=TRUE, bufferColor='lightblue')
plot(dlogs, add=TRUE, showLogCenter=TRUE, logCenterColor='grey30', cex=2)
# }
Run the code above in your browser using DataLab