mjhjmtu

Taking inspiration from Playing around with a Rubik's Cube in TikZ, I want to generate diagrams of Rubik's cubes that look like this

Using a solution from Playing around with a Rubik's Cube in TikZ, I was able to generate this diagram

My question is what is the best way to modify the code so I can quickly generate the diagrams in the above graphic? Something like a command cube....? But even I am not sure how you can specify the colour info in this manner. Use a symbol for each colour? G - green, B - blue etc. So there are 27 square faces in this diagram, so does that mean you need 27 arguments? And if you leave it blank then it will display a gray tile? I would appreciate any advice the best way to code this in LaTeX. My ultimate goal is to make over 100 diagrams like the ones above. So if it was possible to make a really efficient code to generate the diagrams that would be amazing.

MWE

documentclassarticle
usepackagetikz
usepackagetikz-3dplot
usetikzlibrary3d
begindocument
pgfmathsetmacroradius0.1
newcommandfrontcolorred
newcommandsidecolorblue
 tdplotsetmaincoords55135
 begintikzpicture
 clip (-3,-2.5) rectangle (3,2.5);
 beginscope[tdplot_main_coords]
 filldraw [canvas is yz plane at x=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 filldraw [canvas is xz plane at y=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 filldraw [canvas is yx plane at z=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 foreach X in -1.5,-0.5,0.5
 foreach Y in -1.5,-0.5,0.5
 draw [thick,canvas is yz plane at x=1.5,shift=(X,Y),fill=sidecolor] (0.5,0) -- (1-radius,0) arc (-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc (90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 draw [thick,canvas is xz plane at y=1.5,shift=(X,Y),fill=frontcolor] (0.5,0) -- (1-radius,0) arc (-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc (90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 draw [thick,canvas is yx plane at z=1.5,shift=(X,Y),fill=yellow] (0.5,0) -- (1-radius,0) arc (-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc (90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 
 
 endscope
 endtikzpicture
enddocument 

That's a neat question, and here is a proposal for an answer. The colors are stored in an array called myarray, which determines the colors of the cells. The relation between entry (the index starts at 0) and cell is illustrated by this example

documentclassarticle
usepackagetikz
usepackagetikz-3dplot
usetikzlibrary3d
newififshowcellnumber
showcellnumbertrue
begindocument
definecolorRRGB202,65,55
definecolorGRGB151,216,56
definecolorBRGB51,72,237
%definecolorWRGB255,255,255
definecolorWRGB65,65,65

defmyarray"W","W","B","W","G","W","R","R","W","W","W","W","G","W","B","B","W","W","G","B","R","W","R","B","W","W","W"
pgfmathsetmacroradius0.1
newcommandfrontcolorred
newcommandsidecolorblue
 tdplotsetmaincoords55135
 begintikzpicture
 clip (-3,-2.5) rectangle (3,2.5);
 beginscope[tdplot_main_coords]
 filldraw [canvas is yz plane at x=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 filldraw [canvas is xz plane at y=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 filldraw [canvas is yx plane at z=1.5] (-1.5,-1.5) rectangle (1.5,1.5);
 foreach X [count=XX starting from 0] in -1.5,-0.5,0.5
 foreach Y [count=YY starting from 0] in -1.5,-0.5,0.5
 pgfmathtruncatemacroZXX+3*(2-YY)
 pgfmathsetmacromycolormyarray[Z]
 draw [thick,canvas is yz plane at
x=1.5,shift=(X,Y),fill=mycolor] (0.5,0) -- (1-radius,0) arc
(-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc
(90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 ifshowcellnumber
 node[canvas is yz plane at x=1.5,shift=(X+0.5,Y+0.5)] Z;
 fi 
 pgfmathtruncatemacroZ2-XX+3*(2-YY)+9
 pgfmathsetmacromycolormyarray[Z]
 draw [thick,canvas is xz plane at
y=1.5,shift=(X,Y),fill=mycolor] (0.5,0) -- (1-radius,0) arc
(-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc
(90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 ifshowcellnumber
 node[canvas is xz plane at y=1.5,shift=(X+0.5,Y+0.5),xscale=-1] Z;
 fi 
 pgfmathtruncatemacroZ2-YY+3*XX+18
 pgfmathsetmacromycolormyarray[Z]
 draw [thick,canvas is yx plane at
z=1.5,shift=(X,Y),fill=mycolor] (0.5,0) -- (1-radius,0) arc
(-90:0:radius) -- (1,1-radius) arc (0:90:radius) -- (radius,1) arc
(90:180:radius) -- (0,radius) arc (180:270:radius) -- cycle;
 ifshowcellnumber
 node[canvas is yx plane at z=1.5,shift=(X+0.5,Y+0.5),xscale=-1,rotate=-90] Z;
 fi 
 
 
 endscope
 endtikzpicture
enddocument 

If you replace showcellnumbertrue by showcellnumberfalse, the numbers will be gone

EDIT: Illustrated the relation between array index and cell and adjusted the color (big thanks to @manooooh!).