inst/test/Test.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


path2myXYZRGBtxt<-system.file("extdata", "point_cloud.txt", package = "JFM")


file_name<- "point_cloud"


mesh3d<-build_3d_mesh(path2myXYZRGBtxt,0.5,file_name)

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

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


#snapshot3d( "point_cloud.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 processes; 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.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,1)

##### 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( paste0(file_name,"_tol_ang_fam",tol_ang,".png" ))