inst/test/JFM_workflow.R

In JFM: Rock Mass Structural Analysis from 3D Mesh of Point Cloud

#clean memory
#----------------------------------------------------------------------------------------
rm(list=ls(all=T))
graphics.off()

require("JFM")


# Set here your working path where you keep & save your data


setwd("your\\working\\dir")



############ import PLY file #### execute this line if you have to read directly a .ply 3D mesh

require("Rvcg")

mesh3d<-vcgPlyRead("3Dmesh.ply", updateNormals = TRUE, clean = TRUE) 


#################################

########### read XYZRGB.txt file ### execute this line if you have to read directly a XYZRGB.txt file and than build a 3D mesh

file_name<- "myXYZRGBtxt"

path2myXYZRGBtxt<-paste0(file_name,".txt")

mesh3d<-build_3d_mesh(path2myXYZRGBtxt,0.5,file_name)

###################################

vertici_tr<-t(mesh3d[["vb"]])
 
indici_tri<-t(mesh3d[['it']])


#snapshot3d( "3Dmesh.png" )


### find neighbours of each triangle facet using a Rcpp function 

neighbours<-find_neighbours_rcpp(indici_tri)

### or a hybrid R-Rcpp function

#### core number to dedicate to computational process; check with detectCores() function how many cores your pc owns

require("parallel")

detectCores()

### keep free some cores

no_cores <- detectCores() - 4

neighbours<-findNeighbourFacets(no_cores,indici_tri)

### compute normal of each triangle facet

normals<-compute_facets_normal(vertici_tr,indici_tri)

### apply wildfire search 

normali_recalc<-Rcpp_wildfire_search(7,normals[,1:3],neighbours)



### plot search result and if not satisfied repeat search increasing/decreasing tolerance angle

plotrand_col_planes(mesh3d,normali_recalc)


## snapshot3d( "mesh_1.png" )


### calculate least square plane for each group of facets



joint_list_Cpp<-calculate_joints(vertici_tr,indici_tri,normali_recalc)



### calculate area for each group of facets

val_area<-calculate_joints_area(normali_recalc)



### extract pole maxima setting your minimum contour density and area to filter data, plot and save them

poles_maxima<-plot_joint_poles(normali_recalc,joint_list_Cpp,val_area,file_name,0.3,.5)

##### plot and save great circle of pole maxima


azi_dip_maxima<-plot_joint_great_circles(poles_maxima, file_name)

### plot colors of pole maxima onto mesh facets

plot_maxima2mesh(mesh3d,azi_dip_maxima,normali_recalc,10)


#snapshot3d( "mesh2.png" )