In what is surely not a coincidence, 2012 is also the year in which a Stack Exchange question about how to generate these beautiful diagrams in Mathematica came

In what is surely not a coincidence, 2012 is also the year in which a Stack Exchange question about how to generate these beautiful diagrams in Mathematica came up: https://mathematica.stackexchange.com/questions/11657/factorisation-diagrams https://mathematica.stackexchange.com/questions/11657/factor... I wrote an answer there that produced these diagrams from fairly few lines of code. The question there referred to same now-broken link mentioned above so the origin still unknown.