library(AFM)
data(AFMImageOfAluminiumInterface)
newAFMImage<-extractAFMImage(AFMImageOfAluminiumInterface, cornerX=50, cornerY=50, size=64)
exportToSTL(newAFMImage, paste(tempdir(), "myFile.stl", sep="/"))Run the code above in your browser using DataLab