### Generating the data
myLd <- gald(c(5,5,5),clusterLD=FALSE)
part <- partition(rep(1:3,5))
### 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 window, 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