if (FALSE) {
normali_recalc<-Rcpp_wildfire_search(7,normals[,1:3],neighbours)
joint_list_Cpp<-calculate_joints(mesh3d,normali_recalc)
val_area<-calculate_joints_area(normali_recalc)
file_name<-"my_out_file"
max_pole<-0.3
min_area<-1
poles_maxima<-plot_joint_poles(normali_recalc,joint_list_Cpp,val_area,file_name,max_pole,min_area) }
Run the code above in your browser using DataLab