Brillant Carl! I found an expression for the exact radius of the Icosahedron. After rearranging (after my own liking) I use the following code, displaying the football with and without the wireframe.
PlotFootball := proc(L::list)
uses geom3d, plottools, plots;
TruncatedIcosahedron(football, point(C, 0, 0, 0), 1);
FootballFaces := seq(polygon(faces(football)[i], color = `if`(nops(faces(football)[i])=5,L,L), linestyle=solid, tickness=3), i = 1 .. 32);
display(FootballFaces, axes = none);
plot1:=PlotFootball([red,yellow]); #plot football only and assign to name
display(plot1,plot2); #plot football with wireframe of Icosahedron
I also tried displaying a sphere around the football, but somehow Maple didn't like using the geom3d package along with the plottools package. Using them together gave an error message. Anyway I don't really know if it is useful, because it will be hard to see if all vertices is lying on this sphere ...
NB! Impressing how I always receive a bunch of very usefull answers on Mapleprimes. Great website!