# Lichtenberg Figures

GROUPS:
 Henrik Schachner 6 Votes Dear all,Lichtenberg figures (https://en.wikipedia.org/wiki/Lichtenberg_figure) can be generated by irradiating e.g. PMMA (i.e. Poly(methyl methacrylate), "acrylic glass") with a high energy electron beam. This way electrons are implanted inside the material - which is an insulator. By a controlled discharge very aesthetic tree structures consisting of tracks from the electrical current can be generated. (This is just one method.)It is fun trying to imitate this using Mathematica! The idea is simple: define a MeshRegion (this is all you need as input); convert it to a Graph (with preserved VertexCoordinates and EdgeWeight); use FindShortestPath to a specific "starting point". As mentioned there is a simple mapping from a MeshRegion to the Lichtenberg graphics: The code - a short notebook - comes as attachment. And - due to the universally designed WL functions - it works in 3D without any change of code: Best regards -- Henrik Attachments: