A snippet of Mathematica code as an effective 'clean room' version of Max Bill's Variation 1.


variation1[n_:8]:=
Module[{v=metagon[n], l={}, model=1,
maxcolors = {Yellow, Red, Green, Blue, Orange, Purple}},
If[n>8, model=0];
Do[color=If[model==1,maxcolors[[i-2]],Hue[(i-2.)/(n-2.)]];
AppendTo[l, {color,
Polygon[v[[i-2]]]}], {i, n, 3, -1}];
Show[Graphics[{Flatten[l]}, AspectRatio->Automatic]]]