### Generating the data
myLd <- gald3d()
part <- partition(rep(1:3,each=50))
plot3d(myLd,part)
### Creation of the scene
scene <- plot3dPdf(myLd,part)
drawScene.rgl(scene)
### Export in '.azy' file
saveTrianglesAsASY(scene)
### Creation of a '.prc' file
# Open a console, then run:
# 'asy -inlineimage -tex pdflatex scene.azy'
### Creation of the LaTeX main document
makeLatexFile()
### Creation of the '.pdf'
# Open a console window, then run
# pdfLatex main.tex
Run the code above in your browser using DataLab