Create the dual mesh

source("R/book.mesh.dual_function.R")
dmesh <- book.mesh.dual(mesh)