require(rgl)
data(nose)##load data
##warp a mesh onto another landmark configuration:
warpnose.long <- warp.mesh(shortnose.mesh,shortnose.lm,longnose.lm)
shade3d(warpnose.long,col=skin1)
data(boneData)
## deform mesh belonging to the first specimen
## onto the landmark configuration of the 10th specimen
warpskull <- warp.mesh(skull_0144_ch_fe.mesh,boneLM[,,1],
boneLM[,,10])
## render deformed mesh and landmarks
shade3d(warpskull, col=2, specular=1)
spheres3d(boneLM[,,1])
## render original mesh
shade3d(skull_0144_ch_fe.mesh, col=3, specular=1)
spheres3d(boneLM[,,10])
Run the code above in your browser using DataLab