Klitzing’s 4D CRF Jonathan Kirk Polychoron

(* Symbolic Permutations *)

{
{2,0,2+2φ,2+4φ},
{1,1,3,3+4φ},
{φ,2+φ,2+φ,4+3φ},
{-1-φ,-3-φ,-1-φ,3+3φ},
{1+φ,1+φ,1+3φ,3+3φ},
{-1-2φ,-1-2φ,-1-2φ,3+2φ},
{φ,-φ,2+3φ,2+3φ},
{1+2φ,1+2φ,3+2φ,3+2φ}};
{#,inNcolClr[#/.φRep]}&/@%
perms[#,"Esign"]&/@%%;
Length/@(*)Union@**)%
Total@%
Partition[#,UpTo@8]&/@%%%;
kirkCRFsym=Flatten[%%%%,1];

hulls3DPerms["kirkCRFsym",False,,1]

customFaces;