# NOT RUN {
center = getFlame(dz=0.8)
triangles3d(center$vertices[center$id[, (2 * 20 + 1):150], ],
col="#e6ffff", alpha=1, shininess=1,lit=FALSE)
inner = getFlame(dz=0.97, expand=2)
triangles3d(inner$vertices[inner$id[, (2 * 20 + 1):175], ],
col="#f0ff00", alpha=0.6, shininess=1,lit=FALSE)
outer = getFlame(dz=1, expand=3)
triangles3d(outer$vertices[outer$id[, (2*20+1):200], ],
col="#ce1301", alpha=0.3,shininess=10,lit=FALSE)
# }
Run the code above in your browser using DataLab