Forked from
agnumpde / dune-tectonic
139 commits ahead of the upstream repository.
Code owners
Assign users and groups as approvers for specific file changes. Learn more.
write_contours.py 362 B
writeContours <- function (contours, level, file) {
file.create(file)
for (cl in contours[sapply(contours, function(x) x$level) == level]) {
conn <- file(file, 'a')
write.table(cbind(cl$x, cl$y, level),
file = file, row.names = FALSE, col.names = FALSE,
append = TRUE)
writeLines("\n", conn)
close(conn)
}
}