noise.mesh {Arothron}

noise.mesh

Description

This function adds noise to a mesh

Usage

noise.mesh(mesh, noise = 0.025, seed = 123)

Arguments

mesh

triangular mesh stored as object of class "mesh3d"

noise

sd deviation to define vertex noise

seed

seed for random number generator

Value

mesh_n a 3D model of class "mesh3d" with noise

Author(s)

Antonio Profico, Costantino Buzi, Marina Melchionna, Paolo Piras, Pasquale Raia, Alessio Veneziano

Examples

#load mesh
library(compositions)
library(rgl)
data("SCP1.mesh")
mesh<-SCP1.mesh
#add noise
noised<-noise.mesh(mesh,noise=0.05)
#plot original and mesh with noise added
open3d()
shade3d(mesh,col=3)
shade3d(noised,col=2,add=TRUE)