Code: Select all
$J = johnson_solid(90);
$PJ = polarize($J);
compose($J->VISUAL(FacetColor=>"red",VertexLabels=>"hidden"), $PJ->VISUAL(FacetColor=>"blue",VertexLabels=>"hidden"));
Code: Select all
$J = johnson_solid(90);
$PJ = polarize($J);
compose($J->VISUAL(FacetColor=>"red",VertexLabels=>"hidden"), $PJ->VISUAL(FacetColor=>"blue",VertexLabels=>"hidden"));