Metatron's Cube

Author

Eric W. Weisstein
August 31, 2026

This notebook downloaded from https://mathworld.wolfram.com/notebooks/RecreationalMathematics/MetatronsCube.nb.

For more information, see Eric's MathWorld entry https://mathworld.wolfram.com/MetatronsCube.

Copyright 2026 Wolfram Research, Inc. except for portions noted otherwise

Figure

The 13 circles and 78 line segments joining their centers.

Module[{points, pairs, ink, secondaryInk}, 
  points = Join[{{0, 0}}, Flatten[Table[r*{Cos[theta], Sin[theta]}, {r, {1, 2}}, 
       {theta, 0, 5*(Pi/3), Pi/3}], 1]]; pairs = Subsets[points, {2}]; 
   ink = LightDarkSwitched[Black, White]; secondaryInk = GrayLevel[0.55]; 
   Graphics[{{secondaryInk, AbsoluteThickness[1.25], (Circle[#1, 1] & ) /@ points}, 
     {Opacity[0.32], ink, AbsoluteThickness[0.8], Line /@ pairs}, 
     {Orange, PointSize[0.012], Point[points]}}]]