heartL <- mesh3dL_to_cgalMeshL(data_heart_obsL)
## remove one structure to save time in running example
heartL$Obs01$Obs01_HEART <- NULL
heartL$Obs02$Obs02_HEART <- NULL
heartL$Obs03$Obs03_HEART <- NULL
## takes more time than reasonable for automated checking
if(interactive()) {
uiL <- get_mesh_ui(heartL)
## volume of union/intersection for first pair
uiL[[1]]$vol_u
uiL[[1]]$vol_i
}
Run the code above in your browser using DataLab